jvcllaz: Fix compilation with Laz 1.8.4/FPC3.0.4

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8252 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-04-15 22:56:31 +00:00
parent 3a13c399a1
commit 509f33e4d7
5 changed files with 20 additions and 7 deletions

View File

@ -901,10 +901,12 @@ const
const
SInvalidBitmap = 'Invalid bitmap';
{$IF LCL_FullVersion > 1080400}
function GetAppHandle: THandle;
begin
Result := Application.Handle;
end;
{$IFEND}
(***************** NOT CONVERTED ***
type