paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: don't call OnHide/OnShow after minimizing/restoring (bug #7255)

Browse Source 
git-svn-id: trunk@10506 -
This commit is contained in:
vincents 2007-01-26 10:18:27 +00:00
parent b6299f483a
commit 5fef15b66b
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -423,6 +423,7 @@ type
protected
FFormBorderStyle: TFormBorderStyle;
FActionLists: TList;
procedure CMShowingChanged(var Message: TLMessage); message CM_SHOWINGCHANGED;
procedure Activate; dynamic;
procedure ActiveChanged; dynamic;
procedure BeginFormUpdate;

11
lcl/include/customform.inc
View File

@ -428,9 +428,6 @@ begin
{$ENDIF}
LCLIntf.SetFocus(FActiveControl.Handle);
end;
DoShow;
end else begin
DoHide;
end;
end;
finally
@ -471,6 +468,14 @@ begin
Deactivate;
end;
procedure TCustomForm.CMShowingChanged(var Message: TLMessage);
begin
inherited;
if Showing then
DoShow
else
DoHide;
end;
{------------------------------------------------------------------------------
Method: TCustomForm.Activate
Params: none