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