I may sugest another way of making larger project easier to manage
I thing about a navigator that would be someting like a treeview that we see in the Windows explorer left side. Each level could represent a section of the code and have a maximize and minimize option. That could be something like this according to the opened and closed part. I may have omit something but the idea is there.
(+)interface
(+)Implementation
(-)interface
.....(+) Type (TSomthing, TAnotherThing, TSomesortOfThing1, ...)
.....(+) Const
(+)Implementation
(-)interface
.....(-) Type
........... (+)TSomthing = Class(TSomthingElse)
........... TAnotherThing = Array[0..2] Of integer;
........... TSomesortOfThing1 = Array[0..2] Of TAnotherThing;
........... (+)TSomesortOfRec = Record;
.....(+) Const
(+)Implementation
(-)interface
.....(-) Type
........... (+)TSomthing = Class(TSomthingElse)
........... TAnotherThing = Array[0..2] Of integer;
........... TSomesortOfThing1 = Array[0..2] Of TAnotherThing;
........... (-)TSomesortOfRec = Record;
................. Name : String;
................. Val1 : Integer;
................. Val2 : Integer;
................. Val3 : Extended;
............... End;
.....(+) Const
(+)Implementation
(-)interface
.....(-) Type
........... (-)TSomthing = Class(TSomthingElse)
................ private
................... FOnStart: TNotifyEvent;
................... FWantsRestart: boolean;
................ public
................... constructor Create(const AnInput string);
................... destructor Destroy; override;
................... procedure Execute;
................... property WantsRestart: boolean read FWantsRestart;
................end;
........... TAnotherThing = Array[0..2] Of integer;
........... TSomesortOfThing1 = Array[0..2] Of TAnotherThing;
........... (+)TSomesortOfRec = Record;
.....(+) Const
(+)Implementation
(-)interface
.....(+) Type (TSomthing, TAnotherThing, TSomesortOfThing1, ...)
.....(-) Const
.......... Constance1 = 10;
.......... Constance1 = 20;
.......... Constance1 = 30;
(+)Implementation
(+)interface
(-)Implementation
........... (-)TSomthing = Class(TSomthingElse)
................ private
................... FOnStart: TNotifyEvent;
................... FWantsRestart: boolean;
................ public
constructor TSomthing.Create(const AnInput string);
Begin
FOnStart := Nil;
FWantsRestart := False;
End;
destructor TSomthing.Destroy;
Begin
FOnStart := Nil;
FWantsRestart := False;
End;
procedure TSomthing.Execute;
Begin
If FOnStart <> Nil Then
FOnStart;
End;
End.