delphi Firemonkey ListBoxItem自绘_H5之家 - 中国HTML5教程资源分享第一站

canvas教程

delphi Firemonkey ListBoxItem自绘

字号+ 作者：H5之家来源：H5之家 2017-08-06 09:00 我要评论( )

delphi Firemonkey ListBoxItem自绘,delphi Firemonkey ListBoxItem自绘ListBoxItem1的事件ListBoxItem1Paintprocedure TForm1.ListBoxItem1Paint(Sender: TObje

delphi Firemonkey ListBoxItem自绘

ListBoxItem1的事件ListBoxItem1Paint

procedure TForm1.ListBoxItem1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); Canvas.Fill.Kind := TBrushKind.Solid; Canvas.Fill.Color := TAlphaColorRec.Blue; Canvas.FillRect(ARect, 0, 0, [], 1); Canvas.Fill.Kind := TBrushKind.Solid; Canvas.Fill.Color := TAlphaColorRec.White; Canvas.FillText(ARect, (Sender as TListBoxItem).Text, False, 1, [], TTextAlign.Leading, TTextAlign.Center); Canvas.Fill.Kind := TBrushKind.Solid; Canvas.Fill.Color := TAlphaColorRec.White; Canvas.FillRect(ARect, 0, 0, [], 1); Canvas.Fill.Color := TAlphaColorRec.Black; Canvas.Fill.Kind := TBrushKind.Solid; Canvas.FillText(ARect, (Sender as TListBoxItem).Text, False, 1, [], TTextAlign.Leading, TTextAlign.Center); end; end;