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

LCL: cleaned up some unused variables, issue

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-07-31 02:44:43 +03:00
parent 770e392d8e
commit 50e7d46c66
1 changed files with 0 additions and 4 deletions

4
lcl/buttons.pp
View File

@ -575,8 +575,6 @@ end;
function GetDefaultButtonIcon(idButton: Integer;
ScalePercent: Integer): TCustomBitmap;
var
ResName: string;
begin
Result := nil;
if (idButton < Low(BitBtnResNames)) or (idButton > High(BitBtnResNames)) then
@ -631,8 +629,6 @@ begin
end;
procedure LoadGlyphFromResource(AGlyph: TButtonGlyph; idButton: Integer);
var
I: Integer;
begin
if not((Low(TButtonImage)<=idButton) and (idButton<=High(TButtonImage))) then
Exit;