paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-27 13:17:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL : made TCustomForm.DoCreate and DoDestroy virtual (bug #9301)

Browse Source 
git-svn-id: trunk@11585 -
This commit is contained in:
vincents 2007-07-20 19:25:48 +00:00
parent c44cc0e9c3
commit 146cc33de1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/forms.pp
View File

@ -395,8 +395,6 @@ type
function IsIconStored: Boolean; function IsIconStored: Boolean;
procedure ClientWndProc(var Message: TLMessage); procedure ClientWndProc(var Message: TLMessage);
procedure CloseModal; procedure CloseModal;
procedure DoCreate;
procedure DoDestroy;
procedure IconChanged(Sender: TObject); procedure IconChanged(Sender: TObject);
function IsKeyPreviewStored: boolean; function IsKeyPreviewStored: boolean;
procedure SetActive(AValue: Boolean); procedure SetActive(AValue: Boolean);
@ -439,6 +437,8 @@ type
procedure Deactivate;dynamic; procedure Deactivate;dynamic;
procedure DestroyWnd; override; procedure DestroyWnd; override;
procedure DoClose(var CloseAction: TCloseAction); dynamic; procedure DoClose(var CloseAction: TCloseAction); dynamic;
procedure DoCreate; virtual;
procedure DoDestroy; virtual;
procedure DoHide; dynamic; procedure DoHide; dynamic;
procedure DoShow; dynamic; procedure DoShow; dynamic;
procedure EndFormUpdate; procedure EndFormUpdate;