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

lcl: default idButtonClose theme drawing

Browse Source 
git-svn-id: trunk@26088 -
This commit is contained in:
dmitry 2010-06-13 14:27:28 +00:00
parent 66955c6e49
commit c802efbd20
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/themes.pas
View File

@ -1884,8 +1884,31 @@ begin
end;
function TThemeServices.GetStockImage(StockID: LongInt; out Image, Mask: HBitmap): Boolean;
var
img : TBitmap;
begin
Result := False;
case StockID of
idButtonClose:
begin
img:=TBitmap.Create;
img.SetSize(16, 16);
img.PixelFormat:=pf32bit;
img.Transparent:=True;
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);
Image:=img.ReleaseHandle;
Mask:=img.ReleaseMaskHandle;
img.Free;
Result:=True;
end;
else
Result := False;
end;
end;
function TThemeServices.GetOption(AOption: TThemeOption): Integer;