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: Compiling with Free Pascal 3.0.4 and Windows

Browse source 
(cherry picked from commit 60033ba0dd)
This commit is contained in:
Alexander Koblov 2021-11-06 15:42:54 +03:00
commit cc6481296b
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/platform/upixmapmanager.pas
View file

@ -1028,7 +1028,7 @@ begin
Result := PtrInt(FThemePixmapsFileNames.List[fileIndex]^.Data);
end;
function TPixMapManager.LoadThemeIcon(AIconTheme: TIconTheme; const AIconName: String; AIconSize: Integer): TBitmap;
function TPixMapManager.LoadThemeIcon(AIconTheme: TIconTheme; const AIconName: String; AIconSize: Integer): Graphics.TBitmap;
var
FileName: String;
begin
@ -1047,7 +1047,7 @@ begin
end;
end;
function TPixMapManager.LoadIconThemeBitmapLocked(AIconName: String; AIconSize: Integer): TBitmap;
function TPixMapManager.LoadIconThemeBitmapLocked(AIconName: String; AIconSize: Integer): Graphics.TBitmap;
{$IFDEF LCLGTK2}
var
pbPicture: PGdkPixbuf = nil;

4
src/uhotkeymanager.pas
View file

@ -105,7 +105,7 @@ type
const Command: String; const Param: String = ''); overload;
procedure Clear; reintroduce;
procedure Remove(var hotkey: THotkey); reintroduce;
function Find(const Shortcuts: TDynamicStringArray): THotkey;
function Find(const Shortcuts: array of String): THotkey;
{en
Find hotkey which shortcuts begin with Shortcuts parameter.
If BothWays=@true then also looks for shortcuts which are the beginning
@ -427,7 +427,7 @@ begin
DoOnChange(Hotkey, hopUpdate);
end;
function THotkeys.Find(const Shortcuts: TDynamicStringArray): THotkey;
function THotkeys.Find(const Shortcuts: array of String): THotkey;
var
i: Integer;
begin