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: Lazarus 3.0 compatibility (workaround)

Browse source 
(cherry picked from commit f7b4475541)
This commit is contained in:
Alexander Koblov 2023-11-19 21:13:16 +03:00
commit a2500df30c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/platform/win/ubitmap.pas
View file

@ -22,7 +22,7 @@ unit uBitmap;
interface
uses
LCLIntf, Classes, Graphics, Windows;
LCLIntf, Classes, Graphics, Windows, LCLVersion;
function BitmapCreateFromHICON(Handle: HICON): Graphics.TBitmap;
function BitmapCreateFromHBITMAP(Handle: HBITMAP): Graphics.TBitmap;
@ -31,12 +31,12 @@ implementation
uses
FPImage, GraphType, Forms, IntfGraphics
{$IF DEFINED(LCLQT5)}
{$IF DEFINED(LCLQT5) OR (LCL_FULLVERSION >= 3000000)}
, SysUtils, LCLProc
{$ENDIF}
;
{$IF DEFINED(LCLQT5)}
{$IF DEFINED(LCLQT5) OR (LCL_FULLVERSION >= 3000000)}
procedure FillRawImageDescriptionColors(var ADesc: TRawImageDescription);
begin