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

Form deactivation fixes.

Browse Source 
git-svn-id: trunk@3303 -
This commit is contained in:
lazarus 2002-09-09 06:27:06 +00:00
parent 4f2ae66e68
commit 7c6093077f
2 changed files with 45 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/forms.pp
View File

@ -110,17 +110,19 @@ type
procedure IconChanged(Sender: TObject);
function IsIconStored: Boolean;
{ events }
procedure WMActivate(var Message : TLMActivate); message LM_Activate;
procedure WMActivate(var Message : TLMActivate); message LM_ACTIVATE;
procedure WMDeactivate(var Message : TLMActivate); message LM_DEACTIVATE;
procedure WMPaint(var message: TLMPaint); message LM_PAINT;
procedure WMSize(var message: TLMSize); message LM_Size;
procedure WMShowWindow(var message: TLMShowWindow); message LM_SHOWWINDOW;
procedure WMCloseQuery(var message: TLMessage); message LM_CLOSEQUERY;
procedure WMDestroy(var message: TLMDestroy); message LM_DESTROY;
protected
procedure Activate; dynamic;
function CloseQuery : boolean; virtual;
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure DeActivate; dynamic;
procedure Deactivate;dynamic;
procedure DoClose(var Action: TCloseAction); dynamic;
procedure DoHide; dynamic;
procedure DoShow; dynamic;

56
lcl/include/customform.inc
View File

@ -108,17 +108,6 @@ begin
//writeln('[TCustomForm.Destroy] END ',Name,':',ClassName);
end;
{------------------------------------------------------------------------------
Method: TCustomForm.Deactivate
Params: None
Returns: Nothing
------------------------------------------------------------------------------}
Procedure TCustomForm.Deactivate;
Begin
if Assigned(FOnDeactivate) then
FOnDeactivate(Self);
end;
{------------------------------------------------------------------------------
Method: TCustomForm.FocusControl
Params: None
@ -261,11 +250,45 @@ end;
Activate event handler.
------------------------------------------------------------------------------}
Procedure TCustomForm.WMActivate(var Message : TLMActivate);
Begin
// Writeln('[TCUSTOMFORM.WMACtivate]');
procedure TCustomForm.WMActivate(var Message : TLMActivate);
begin
Activate;
end;
{------------------------------------------------------------------------------
Method: TCustomForm.WMDeactivate
Params: Msg: When the form is deactivated (loses focus within application)
Returns: nothing
Form deactivation (losing focus within application) event handler.
------------------------------------------------------------------------------}
procedure TCustomForm.WMDeactivate(var Message : TLMActivate);
begin
Deactivate;
end;
{------------------------------------------------------------------------------
Method: TCustomForm.Activate
Params: none
Returns: nothing
Activation form methode event handler.
------------------------------------------------------------------------------}
procedure TCustomForm.Activate;
begin
if Assigned(FOnActivate) then FOnActivate(Self);
// Writeln('[TCUSTOMFORM.WMACtivate] Done');
end;
{------------------------------------------------------------------------------
Method: TCustomForm.Deactivate
Params: none
Returns: nothing
Form deactivation (losing focus within application) event handler.
------------------------------------------------------------------------------}
procedure TCustomForm.Deactivate;
begin
if Assigned(FOnDeactivate) then FOnDeactivate(Self);
end;
{------------------------------------------------------------------------------
@ -1027,6 +1050,9 @@ end;
{ =============================================================================
$Log$
Revision 1.57 2002/09/09 06:27:06 lazarus
Form deactivation fixes.
Revision 1.56 2002/09/03 20:02:01 lazarus
Intermediate UI patch to show a bug.