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

MG: added comment for MainIDE:=Self;

Browse Source 
git-svn-id: trunk@1770 -
This commit is contained in:
lazarus 2002-07-04 10:44:50 +00:00
parent 14bb8819d4
commit 277733c08f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -617,7 +617,12 @@ end;
constructor TMainIDE.Create(TheOwner: TComponent); constructor TMainIDE.Create(TheOwner: TComponent);
begin begin
// The MainIDE variable is assigned via
// Application.CreateForm(TMainIDE,MainIDE) _after_ the creation of the form.
// But some IDE parts needs the variable already during creation, so it is set
// here.
MainIDE:=Self; MainIDE:=Self;
inherited Create(TheOwner); inherited Create(TheOwner);
// load options // load options
@ -6561,6 +6566,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.319 2002/07/04 10:44:50 lazarus
MG: added comment for MainIDE:=Self;
Revision 1.318 2002/07/04 10:22:46 lazarus Revision 1.318 2002/07/04 10:22:46 lazarus
MG: fixed double parsing of command line MG: fixed double parsing of command line