paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 03:59:14 +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; function TAnchorDockCloseButton.DrawGlyph(ACanvas: TCanvas;
const AClient: TRect; const AOffset: TPoint; AState: TButtonState; const AClient: TRect; const AOffset: TPoint; AState: TButtonState;
ATransparent: Boolean; BiDiFlags: Longint): TRect; ATransparent: Boolean; BiDiFlags: Longint): TRect;
var
closeBmp: TBitmap;
begin begin
if BiDiFlags=0 then ; if BiDiFlags=0 then ;
if ATransparent then ; closeBmp := DockMaster.fCloseBtnBitmap;
closeBmp.Transparent := ATransparent;
if ATransparent then
closeBmp.TransparentMode := tmAuto;
if AState=bsDisabled then ; 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); 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; end;
procedure TAnchorDockCloseButton.CalculatePreferredSize(var PreferredWidth, procedure TAnchorDockCloseButton.CalculatePreferredSize(var PreferredWidth,