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: changed default stock closebutton to draw the 1-pixel width cross

Browse Source 
git-svn-id: trunk@26529 -
This commit is contained in:
dmitry 2010-07-08 16:33:04 +00:00
parent 959cda8c75
commit 8dc9238c17
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/themes.pas
View File

@ -1900,11 +1900,9 @@ begin
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.MoveTo(4,4);
img.Canvas.LineTo(img.Width-4,img.Height-4);
img.Canvas.MoveTo(img.Width-4,4);
img.Canvas.LineTo(4,img.Height-4);
img.Canvas.Pen.Width:=2;
img.Canvas.Line(4,4,img.Width-3, img.Height-3);
img.Canvas.Line(img.Width-4, 4, 3, img.Height-3);
Image:=img.ReleaseHandle;
Mask:=0;
img.Free;