paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed Close button glyph transparency (proper transparency mask should be assigned to HBitmap too), bug #19295

Browse Source 
git-svn-id: trunk@31384 -
This commit is contained in:
maxim 2011-06-25 14:35:34 +00:00
parent 3526858f4e
commit 443af0046a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/themes.pas
View File

@ -1910,8 +1910,8 @@ begin
img.Canvas.Pen.Width:=2; img.Canvas.Pen.Width:=2;
img.Canvas.Line(4,4,img.Width-3, img.Height-3); img.Canvas.Line(4,4,img.Width-3, img.Height-3);
img.Canvas.Line(img.Width-4, 4, 3, img.Height-3); img.Canvas.Line(img.Width-4, 4, 3, img.Height-3);
Image:=img.ReleaseHandle; Mask:=img.ReleaseMaskHandle;
Mask:=0; Image:=img.ReleaseHandle;
img.Free; img.Free;
Result:=True; Result:=True;
end; end;