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

LCL: cleaned up some unused variables, issue #40414

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/buttons.pp
View File

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