|
Delphi中以前的VCL下的表格控件很老气,不好看;在FIremokey下好看的多;但是功能上仍需要不断的完善。
|
-
运行期可以变动大小和尺寸的自定义控件、
摘要:unitCcDrag; interface uses Windows,SysUtils,Classes,Graphics,Controls,Forms; type TMousePosition=(mpNone,mpRightBottom,mpRight,mpBottom); TCcDrag=...
阅读全文
-
动态创建Ⅱ
摘要:Normal 0 7.8 磅 0 2 false false false EN-US ZH-CN X-NONE ...
阅读全文
-
动态创建Ⅰ
摘要://单独动态创建一个控件; procedure TForm1.BitBtn1Click(Sender: TObject);var myPanel : TPanel;begin myPanel := TPanel.Create(nil);//关于Create(nil)和Create(Self)的区别...
阅读全文
-
delphi XE5皮肤的使用
摘要:做皮肤其实是项浩大的工程,从美工设计、到贴图、到程序设计,都非常的麻烦,如果不是一个非常成熟的产品且有很大的用户群体,并且公司具有相当实力,一般都不会去自己做皮肤,毕竟涉及的东西太多,一旦出现问题,那将对软件本身带来无法预计的后果。比较出名的有AlphaControls、BusinessSkinForm、DynamicSkinForm、VCLSkin和AppFace 五大项 使用便利性 稳定性 内存泄漏测试 贴图效果测试 使用效率 皮肤界面 AlphaControls 便利 一般 有泄漏 很好 高 精致 BusinessSkinForm 便利 好 无泄漏 一般 高 一般 Dynamic...
阅读全文
-
XML解析、使用TreeView呈现效果
摘要:首先用到TXMLDocument控件;Memo来显示XML文件,TreeView来呈现元素;源代码:Procedure TForm2.Button1Click(Sender: TObject);Begin XMLDocument1.LoadFromFile('E:\template1.xml'); Memo1.Font.Size :=15; Memo1.Align := TAlignLayout.alLeft; Memo1.Lines := XMLDocument1.XML; {查看}End;Procedure TForm2.Button2Click(Sender: TObje
阅读全文
-
delphi XE5下 andriod 广告图片的demo
摘要:试了一下,关于好几个广告界面,左右滚动的效果:用TabControl 加上定时器实现即可。1、TTabControl外观TTabControl的外观由属性TabPosition控制,可选项包括:tpTop 选项tab在控件上方tpBottom 选项tab在控件下方tpNone 以原点形式显示...
阅读全文
-
StringGrid 实例5 本例功能:字体修改为居中,红色,20号
摘要:实例5本例功能:在FireMonkey中StringGrid对于字体的调整由于没有font属性和onDrawCell事件使得变得有些麻烦,后来费了一些功夫才找到方法。但由于XE3中某些属性还是没有,(比如说:StGrid.RealignContent;)于是下载了XE4才得以修改成功。 1、字体修改为居中,红色,20号 运行效果图: unit Unit22; interface uses System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes, System.Variants...
阅读全文
-
StringGrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置:上下左右;
摘要:实例4 本例功能:1、给每个单元格赋值2、调整当前单元格位置:上下左右; 运行效果图: type TForm12 = class(TForm) StringGrid1: TStringGrid; StringColumn1: TStringColumn; StringColumn2: TStringColumn; StringColumn3: TStringColumn; StringColumn4: TStringColumn; StringColumn5: TStringColumn; Panel1: TPanel; Button1: TButto...
阅读全文
-
StringGrid 实例3: 本例功能: 1、修改 TStringGrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.
摘要:实例3: 本例功能: 1、修改 TStringGrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值. 实例图形: unit Unit12; interface uses System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Grid, FMX.Layouts; type TForm12 = class(TForm) ...
阅读全文
-
StringGrid 实例2:1、获取 StringGrid 的行数、列数; 2、给单元赋值.
摘要:实例2: 本例功能: 1、获取 StringGrid 的行数、列数; 2、给单元赋值. 运行效果图: //示例代码://获取总列数,和总行数 procedure TForm12.Button1Click(Sender: TObject); var cCount,rCount: Integer; begin cCount :=StringGrid1.ColumnCount; {获取总列数} rCount := StringGrid1.RowCount; {获取总行数} Caption := Format('总列数: %d ,总行数: %d', [cC...
阅读全文
-
StringGrid 实例1:初始化StirngGrid的首行和首列
摘要:实例1:初始化StirngGrid的首行和首列 // 主要代码部分: procedure TForm23.SetSGridTitle(Sender: TObject); var ColIndex, RowIndex: integer; begin //画第一行(标题栏) for colIndex := 1 to StringGrid1.ColumnCount do begin StringGrid1.Cells[colIndex, 0] := '列名' + Chr(ord('A') - 1 + colIndex); end; //画第一列(数字栏) String
阅读全文
-
stringgrid事件大全
摘要:3、StringGrid之Event事件 property LiveBinding //把对象之间的属性绑定起来(XE2新增功能)property OnApplyStyleLookup: TNotifyEvent ...; //应用新样式property OnCanFocus: TCanFocusEvent ...; // SetFocus() 时property OnClick: TNotifyEvent ...; //单击时property OnDblClick: TNotifyEvent ...; //双击时property OnDragEnter: TDragEnterE...
阅读全文
-
firemonkey中stringgrid属性大全
摘要:StringGrid之属性大全: Align: //确定组件在父类组件区内的对齐方式(alScale:随窗口 放大缩小) AlterRowBackGround: //设置用于绘制奇偶数行背景的颜色是否一样 Anchors: //当对象的容器的尺寸改变时,该对象的的位置怎么定位,一般其四个属性都设置为true: akLeft为True是控件与它的父控件的左边缘的距离不变 ; akTop为True是控件与它的父控件的上边缘的距离不变 ; akRight为True是控件与它的父控件的右边缘的距离不变 ; akBottom为True是控件与它的父控件的下边缘的距离不变。 Auto...
阅读全文
|