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

MWE:

Browse Source 
* Moved call to BeforeDestruction to CustomForm
  - Removed form.inc

git-svn-id: trunk@3572 -
This commit is contained in:
lazarus 2002-10-27 15:46:58 +00:00
parent 989c2e0f11
commit 12a521cac8
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/forms.pp
View File

@ -326,8 +326,6 @@ type
FClientHandle: HWND; FClientHandle: HWND;
FDummyPPI : longint; FDummyPPI : longint;
public public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property ClientHandle: HWND read FClientHandle; property ClientHandle: HWND read FClientHandle;
published published
property PixelsPerInch : Longint read FDummyPPI write FDummyPPI stored False; property PixelsPerInch : Longint read FDummyPPI write FDummyPPI stored False;
@ -738,7 +736,6 @@ end;
{$I scrollingwincontrol.inc} {$I scrollingwincontrol.inc}
{$I scrollbox.inc} {$I scrollbox.inc}
{$I form.inc}
{$I customform.inc} {$I customform.inc}
{$I screen.inc} {$I screen.inc}
{$I application.inc} {$I application.inc}

10
lcl/include/customform.inc
View File

@ -107,6 +107,11 @@ begin
//writeln('[TCustomForm.Destroy] A ',Name,':',ClassName); //writeln('[TCustomForm.Destroy] A ',Name,':',ClassName);
if not (csDestroying in ComponentState) then ;//GlobalNameSpace.BeginWrite; if not (csDestroying in ComponentState) then ;//GlobalNameSpace.BeginWrite;
try try
// ------
// Temp hack to get Beforedestruction called
// FPC1.0.x doesn't call itself before destruction
{$IFDEF VER1_0}BeforeDestruction;{$ENDIF}
// ------
FMenu.Free; FMenu.Free;
FMenu:=nil; FMenu:=nil;
FCanvas.Free; FCanvas.Free;
@ -1165,6 +1170,11 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.67 2002/10/27 15:46:58 lazarus
MWE:
* Moved call to BeforeDestruction to CustomForm
- Removed form.inc
Revision 1.66 2002/10/27 11:51:35 lazarus Revision 1.66 2002/10/27 11:51:35 lazarus
MG: fixed memleaks MG: fixed memleaks