paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 05:18:00 +02: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;
procedure ClientWndProc(var Message: TLMessage);
procedure CloseModal;
procedure DoCreate;
procedure DoDestroy;
procedure IconChanged(Sender: TObject);
function IsKeyPreviewStored: boolean;
procedure SetActive(AValue: Boolean);
@ -439,6 +437,8 @@ type
procedure Deactivate;dynamic;
procedure DestroyWnd; override;
procedure DoClose(var CloseAction: TCloseAction); dynamic;
procedure DoCreate; virtual;
procedure DoDestroy; virtual;
procedure DoHide; dynamic;
procedure DoShow; dynamic;
procedure EndFormUpdate;