paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 16:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix themes default idButtonClose stock image drawing

Browse Source 
git-svn-id: trunk@26187 -
This commit is contained in:
dmitry 2010-06-19 12:47:41 +00:00
parent 14da0dee1f
commit 17fa642a30
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/themes.pas
View File

@ -1892,17 +1892,21 @@ begin
begin
img:=TBitmap.Create;
img.SetSize(16, 16);
img.PixelFormat:=pf32bit;
img.PixelFormat:=pf24bit;
img.Transparent:=True;
img.TransparentColor:=clLime;
img.Canvas.AntialiasingMode:=amOff;
img.Canvas.Brush.Color:=img.TransparentColor;
img.Canvas.Brush.Style:=bsSolid;
img.Canvas.FillRect(Rect(0,0,img.Width,img.Height));
img.Canvas.Pen.Color:=clBlack;
img.Canvas.Pen.Width:=3;
img.Canvas.FillRect(Rect(0,0,img.Width,img.Height));
img.Canvas.MoveTo(4,4);
img.Canvas.LineTo(12,12);
img.Canvas.MoveTo(12,4);
img.Canvas.LineTo(4,12);
img.Canvas.LineTo(img.Width-4,img.Height-4);
img.Canvas.MoveTo(img.Width-4,4);
img.Canvas.LineTo(4,img.Height-4);
Image:=img.ReleaseHandle;
Mask:=img.ReleaseMaskHandle;
Mask:=0;
img.Free;
Result:=True;
end;