paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 11:12:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed unused TCustomForm.WMDestroy

Browse Source 
git-svn-id: trunk@3678 -
This commit is contained in:
mattias 2002-11-30 11:24:05 +00:00
parent 5cf67aa3fc
commit ff323fb469
2 changed files with 3 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -284,7 +284,6 @@ type
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;

18
lcl/include/customform.inc
View File

@ -244,21 +244,6 @@ Begin
//writeln('[TCustomForm.SetVisible] END ',Name,':',ClassName,' ',Value,' ',(fsCreating in FFormState),' ',FormUpdating);
end;
{------------------------------------------------------------------------------
Method: TCustomForm.WMDestroy
Params: Msg: The destroy message
Returns: nothing
Destroy event handler.
------------------------------------------------------------------------------}
procedure TCustomForm.WMDestroy(var Message: TLMDestroy);
begin
Assert(False, Format('Trace: [TCustomForm.LMDestroy] %s', [ClassName]));
// First set FHandle to 0, the window doesn't exist anymore.
inherited WMDestroy(Message);
end;
{------------------------------------------------------------------------------
Method: TCustomForm.WMShowWindow
Params: Msg: The showwindow message
@ -1197,6 +1182,9 @@ end;
{ =============================================================================
$Log$
Revision 1.74 2002/11/30 11:24:05 mattias
removed unused TCustomForm.WMDestroy
Revision 1.73 2002/11/30 08:35:42 mattias
TCustomForm.WMDestroy does not Free anymore