mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Warnings

Browse source
This commit is contained in:
Alexander Koblov 2019-11-02 19:38:06 +00:00
commit c9e2cdc2e2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/platform/upixmapmanager.pas
View file

@ -1143,6 +1143,7 @@ var
AIcon: TIcon;
ABitmap: TBitmap;
AFileName: String;
AResult: Pointer absolute Result;
begin
AFileName:= ChangeFileExt(AIconName, '.ico');
if not mbFileExists(AFileName) then Exit(ADefaultIcon);
@ -1152,7 +1153,7 @@ begin
Result:= FPixmapsFileNames.Find(AFileName);
if Result >= 0 then
Result:= PtrInt(FPixmapsFileNames.List[Result]^.Data)
AResult:= FPixmapsFileNames.List[Result]^.Data
else begin
AIcon:= TIcon.Create;
try
@ -1162,7 +1163,7 @@ begin
try
BitmapAssign(ABitmap, AIcon);
Result := FPixmapList.Add(ABitmap);
FPixmapsFileNames.Add(AFileName, Pointer(Result));
FPixmapsFileNames.Add(AFileName, AResult);
except
FreeAndNil(ABitmap);
end;