paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 12:13:11 +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)); WriteLn('TQtWidget.SlotShow Name', LCLObject.Name, ' vShow: ', dbgs(vShow));
{$endif} {$endif}
{do not pass message to LCL if LCL setted up control visibility}
if inUpdate then
exit;
FillChar(Msg, SizeOf(Msg), #0); FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_SHOWWINDOW; Msg.Msg := LM_SHOWWINDOW;

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

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

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

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