paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 20:22:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: small optimization - do not send LM_SHOWWINDOW msg when LCL setted up visibility via ShowHide

Browse Source 
git-svn-id: trunk@24208 -
This commit is contained in:
zeljko 2010-03-25 09:30:27 +00:00
parent 6bce7d6359
commit a5ba77a96e
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2002,6 +2002,10 @@ begin
WriteLn('TQtWidget.SlotShow Name', LCLObject.Name, ' vShow: ', dbgs(vShow));
{$endif}
{do not pass message to LCL if LCL setted up control visibility}
if inUpdate then
exit;
FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_SHOWWINDOW;

4
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -216,7 +216,9 @@ begin
TQtMainWindow(Widget).setWindowState(LCLToQtWindowState[TCustomForm(AWinControl).WindowState]);
end;
Widget.BeginUpdate;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
Widget.EndUpdate;
end;
{------------------------------------------------------------------------------
@ -530,7 +532,9 @@ begin
Widget := TQtWidget(AWinControl.Handle);
Widget.BeginUpdate;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
Widget.EndUpdate;
end;
{------------------------------------------------------------------------------

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

@ -362,7 +362,9 @@ begin
if AWinControl.HandleObjectShouldBeVisible then
SetParams(TCustomScrollBar(AWinControl));
Widget.BeginUpdate;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
Widget.EndUpdate;
end;
{ TQtWSCustomListBox }