delphi Firemonkey ListBoxItem自绘 ListBoxItem1的事件ListBoxItem1Paint procedure TForm1.ListBoxItem1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin if (Sender as TListBoxItem).IsSelected then begin Canvas.Fill.Kind := TBrushKind.Solid;…

ListBoxItem1的事件ListBoxItem1Paint procedure TForm1.ListBoxItem1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin if (Sender as TListBoxItem).IsSelected then begin Canvas.Fill.Kind := TBrushKind.Solid; Canvas.Fill.Color := TAlphaColor…

delphi Firemonkey ListView 使用参考 Tokyo版本 http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Customizing_FireMonkey_ListView_Appearance http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Mobile_Tutorial:_Using_LiveBindings_to_Populate_a_ListView_(iOS_and…

Delphi Firemonkey Button ImageList 按钮图标 在上面 界面上,选择Button,放个ImageList控件,添加图标到ImageList. 然后关联Button和ImageList.设置ImageIndex属性. 然后Button右键Edit Style>选择Text>Align>Bottom; TGlyph>Align>Client OK啦. 也可以设置两个之间的高度!…

Introduction to color gradients in Delphi FireMonkey. Video This video covers the basics of color gradients in Delphi FireMonkey This can be applied any component that has a Fill property such as Shapes (TRectangle, TElipse) and event the background…

Get and set the Z Order of controls at runtime in Delphi FireMonkey. This is a follow on to my earlier post where I provided a VCL solution.Now Ive created a free FireMonkey unit that has the same get and set routines as the VCL solution.  The full s…

delphi DBGrid简单自绘(字体颜色.背景等)  从网上找的代码 应该是C#写的,其实delphi 的操作类似: 1 2 3 4 5 6 7 8 9 10 11 12 13 void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,       const TRect &Rect, int DataCol, TColumn *Column,       TGridDrawState State) {     AnsiStr…

首次用Delphi XE6 开发安卓程序,并没有在网上找到连接远程MySQL服务器的文档,自己摸索一番,发现UniDAC控件新版本也已支持了FireMonkey下的开发.遂记下连接方法和大家分享. 1.新建FireMonkey Mobile Application 2.在设计界面上放上三个控件:TUniConnection(命名为con1).TUniQuery(命名为unqry1).TMySQLUniProvider 3.将TUniQuery的"Connection"属性绑定为TUni…

先看下面的FMX.Layouts.pas中一段代码 procedure TCustomScrollBox.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin FMouseEvents := True; inherited; if (Button = TMouseButton.mbLeft) then begin MousePosToAni(X, Y); AniMouseDown(ssTouch in S…

解决窗体闪烁问题 具体代码: 1.在声明窗体类时加入:   private     procedure CreateParams(var Params: TCreateParams); override; 2.在窗体实现部分加入:   procedure TFrm_Main.CreateParams(var Params: TCreateParams);   begin     inherited;     Params.ExStyle := 33554432; //0x 02 00 00 00…