Fix for modal dialogs from Philip Hess.

git-svn-id: trunk@10128 -
This commit is contained in:
sekelsenmat 2006-10-29 21:49:17 +00:00
parent d3c966380d
commit 78ac6c89ab

View File

@ -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));