在WinSubClass单元文件搜索以下过程替换就可以,注意红色代码部分为修改部分:
procedure TSkinSpeedButton.PaintControl(adc:HDC=0);
var
rc:TRect;
C : TControlCanvas;
begin
rc:=gcontrol.ClientRect;
OffsetRect( rc, -rc.left, -rc.top );
if gcontrol is TAcGraphicControl then
if TAcGraphicControl(gcontrol).Canvas.Handle<>0 then
begin
TAcGraphicControl(gcontrol).Canvas.Lock;
try
DrawSpeedbtn(TAcGraphicControl(gcontrol).Canvas,rc);
finally
TAcGraphicControl(gcontrol).Canvas.Unlock;
end;
end;
end;