mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 03:12:32 +02:00
Fix for modal dialogs from Philip Hess.
git-svn-id: trunk@10128 -
This commit is contained in:
parent
d3c966380d
commit
78ac6c89ab
@ -379,7 +379,7 @@ class procedure TQtWSCustomForm.SetQtBorderIcons(const AHandle: TQtMainWindow;
|
||||
var
|
||||
Flags: QtWindowFlags;
|
||||
begin
|
||||
AHandle.windowFlags;
|
||||
Flags := AHandle.windowFlags;
|
||||
|
||||
{$ifdef VerboseQt}
|
||||
WriteLn('Trace:> [TQtWSCustomForm.SetBorderIcons] Flags: ', IntToHex(Flags, 8));
|
||||
|
Loading…
Reference in New Issue
Block a user