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

lcl: simplify LoadGlyphFrom*

Browse Source 
git-svn-id: trunk@30345 -
This commit is contained in:
blikblum 2011-04-17 12:19:56 +00:00
parent ef0db983ba
commit f5d51f780f
1 changed files with 8 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/buttons.pp
View File

@ -480,18 +480,10 @@ begin
else
C := CreateBitmapFromLazarusResource(AName);
if C = nil
then begin
AGlyph.Glyph := nil;
Exit;
end
else
begin
try
AGlyph.Glyph.Assign(C);
finally
C.Free;
end;
try
AGlyph.Glyph.Assign(C);
finally
C.Free;
end;
end;
@ -500,15 +492,10 @@ var
C: TCustomBitmap;
begin
C := GetButtonIcon(idButton);
if C = nil then
AGlyph.Glyph := nil
else
begin
try
AGlyph.Glyph.Assign(C);
finally
C.Free;
end;
try
AGlyph.Glyph.Assign(C);
finally
C.Free;
end;
end;