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

lcl: fix compilation on Linux

Browse Source 
git-svn-id: trunk@57768 -
This commit is contained in:
ondrej 2018-05-02 07:33:20 +00:00
parent 6a5a329a91
commit 30440aa678
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/buttonglyph.inc
View File

@ -367,8 +367,7 @@ begin
FLCLGlyphResourceName := '';
end;
function TButtonGlyph.QueryInterface(constref iid: TGuid; out obj): LongInt;
stdcall;
function TButtonGlyph.QueryInterface(constref iid: TGuid; out obj): longint; {$IFDEF WINDOWs}stdcall{$ELSE}cdecl{$ENDIF};
begin
if GetInterface(iid, obj) then
Result := 0