使用皮肤时,如何更改 TcxButton 背景颜色

欢迎加入全网最大Delphi 技术交流群 682628230
procedure TfmMain.cxButtonNoteCustomDraw(Sender: TObject; ACanvas: TcxCanvas;
    AViewInfo: TcxButtonViewInfo; var AHandled: Boolean);
begin
  ACanvas.Brush.Color := clRed;
  ACanvas.FloodFill(AViewInfo.Bounds.Left + 3, AViewInfo.Bounds.Top + 10, clWhite, fsSurface);

  AViewInfo.Painter.DrawText(ACanvas, AViewInfo.Caption, AViewInfo.CaptionRect, AViewInfo.State, DT_CENTER + DT_VCENTER + DT_NOCLIP);
  AHandled := true;
end;

 

© 版权声明
THE END
喜欢就支持一下吧
点赞5 分享