paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 01:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-fpGUI: Fix compilation. Issue #39354, patch by Peter Blackman.

Browse Source
This commit is contained in:
Juha 2021-11-10 20:34:00 +02:00
parent da7c149b25
commit 43da8c5047
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/fpgui/fpguiwsprivate.pp
View File

@ -55,8 +55,8 @@ type
{ TFPGUIPrivate }
TFPGUIPrivate = class(TInterfacedObject)
function _AddRef : longint;stdcall;
function _Release : longint;stdcall;
function _AddRef: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
function _Release: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
end;
{ To access protected properties of TfpgWidget }
@ -793,12 +793,12 @@ end;
{ TFPGUIPrivate }
function TFPGUIPrivate._AddRef: longint; stdcall;
function TFPGUIPrivate._AddRef: longint; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1;
end;
function TFPGUIPrivate._Release: longint; stdcall;
function TFPGUIPrivate._Release: longint; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1;
end;