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

IDE: Refactor the main unit heavily. Code related to source files is moved to a new SourceFileManager unit

Browse Source 
git-svn-id: trunk@38701 -
This commit is contained in:
juha 2012-09-16 21:05:01 +00:00
parent 5c22372849
commit 069cd283e5
3 changed files with 164 additions and 5055 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/lazarus.lpi
View File

@ -63,7 +63,7 @@
<PackageName Value="SynEdit"/>
</Item6>
</RequiredPackages>
<Units Count="91">
<Units Count="92">
<Unit0>
<Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/>
@ -687,6 +687,11 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="IDEInfoNeedBuild"/>
</Unit90>
<Unit91>
<Filename Value="sourcefilemanager.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="SourceFileManager"/>
</Unit91>
</Units>
</ProjectOptions>
<CompilerOptions>

5199
ide/main.pp
View File

File diff suppressed because it is too large Load Diff

13
ide/mainbase.pas
View File

@ -84,6 +84,9 @@ type
private
FToolStatus: TIDEToolStatus;
FWindowMenuActiveForm: TCustomForm;
FDisplayState: TDisplayState;
// used to find the last form so you can display the correct tab
FLastFormActivated: TCustomForm;
protected
FNeedUpdateHighlighters: boolean;
FLastWindowMenuUpdate: TDateTime;
@ -128,7 +131,6 @@ type
procedure ConnectOutputFilter;
public
property ToolStatus: TIDEToolStatus read FToolStatus write SetToolStatus;
function DoResetToolStatus(AFlags: TResetToolFlags): boolean; virtual; abstract;
constructor Create(TheOwner: TComponent); override;
@ -158,17 +160,20 @@ type
var ActiveSourceEditor: TSourceEditor; var ActiveUnitInfo: TUnitInfo); virtual; abstract;
procedure DoShowComponentList(Show: boolean); virtual; abstract;
function DoOpenMacroFile(Sender: TObject; const AFilename: string
): TModalResult; override;
function DoOpenMacroFile(Sender: TObject; const AFilename: string): TModalResult; override;
procedure UpdateWindowMenu(Immediately: boolean = false); override;
property WindowMenuActiveForm: TCustomForm read FWindowMenuActiveForm write FWindowMenuActiveForm;
procedure SetRecentSubMenu(Section: TIDEMenuSection; FileList: TStringList;
OnClickEvent: TNotifyEvent); override;
procedure UpdateHighlighters(Immediately: boolean = false); override;
procedure FindInFilesPerDialog(AProject: TProject); override;
procedure FindInFiles(AProject: TProject; const FindText: string); override;
public
property ToolStatus: TIDEToolStatus read FToolStatus write SetToolStatus;
property WindowMenuActiveForm: TCustomForm read FWindowMenuActiveForm write FWindowMenuActiveForm;
property DisplayState: TDisplayState read FDisplayState write FDisplayState;
property LastFormActivated: TCustomForm read FLastFormActivated write FLastFormActivated;
end;
function GetMainIde: TMainIDEBase;