paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 06:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: qt: fixed compilation

Browse Source 
git-svn-id: trunk@46932 -
This commit is contained in:
mattias 2014-11-21 12:05:10 +00:00
parent cd3aa9823e
commit c7a30dac48
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtint.pp
View File

@ -318,7 +318,7 @@ uses
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
Graphics, buttons, Menus, Graphics, buttons, Menus,
// Bindings // Bindings
qtwidgets, qtobjects, qtsystemtrayicon; QtWSFactory, qtwidgets, qtobjects, qtsystemtrayicon;
function DTFlagsToQtFlags(const Flags: Cardinal): Integer; function DTFlagsToQtFlags(const Flags: Cardinal): Integer;
begin begin

9
lcl/interfaces/qt/qtwsfactory.pas
View File

@ -556,5 +556,14 @@ begin
Result := False; Result := False;
end; end;
procedure Init;
begin
// Keep a dummy Init to hide compiler messages "unit not used".
// The unit is used by the "alias" functions.
end;
initialization
Init;
end. end.