paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: fixed transparency of close button glyph under winxp theme, bug #16942

Browse Source 
git-svn-id: trunk@26674 -
This commit is contained in:
mattias 2010-07-16 06:51:49 +00:00
parent 76c11c114e
commit 641d21cd17
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
examples/anchordocking/anchordocking.pas
View File

@ -4540,13 +4540,18 @@ end;
function TAnchorDockCloseButton.DrawGlyph(ACanvas: TCanvas;
const AClient: TRect; const AOffset: TPoint; AState: TButtonState;
ATransparent: Boolean; BiDiFlags: Longint): TRect;
var
closeBmp: TBitmap;
begin
if BiDiFlags=0 then ;
if ATransparent then ;
closeBmp := DockMaster.fCloseBtnBitmap;
closeBmp.Transparent := ATransparent;
if ATransparent then
closeBmp.TransparentMode := tmAuto;
if AState=bsDisabled then ;
Result:=Rect(0,0,DockMaster.fCloseBtnBitmap.Width,DockMaster.fCloseBtnBitmap.Height);
Result:=Rect(0,0,closeBmp.Width,closeBmp.Height);
OffsetRect(Result,AClient.Left+AOffset.X,AClient.Top+AOffset.Y);
ACanvas.Draw(Result.Left,Result.Top,DockMaster.fCloseBtnBitmap);
ACanvas.Draw(Result.Left,Result.Top,closeBmp);
end;
procedure TAnchorDockCloseButton.CalculatePreferredSize(var PreferredWidth,