delphi spSkinButton控件的onPaint事件,用png图片绘制透明效果的icon给Button显示
由于需要得到背景区域的Canvas,需要用到GetParentImage函数,所以需要引用SPUtils单元。
下面是代码:
procedure TfrmLogin.btnClosePaint(Sender: TObject; Cnvs: TCanvas; R: TRect;
ADown, AMouseIn: Boolean; var DrawDefault: Boolean);
var...
原创
2019-12-02 18:57:43 ·
493 阅读 ·
1 评论