paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 04:20:04 +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"/> <PackageName Value="SynEdit"/>
</Item6> </Item6>
</RequiredPackages> </RequiredPackages>
<Units Count="91"> <Units Count="92">
<Unit0> <Unit0>
<Filename Value="lazarus.pp"/> <Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -687,6 +687,11 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="IDEInfoNeedBuild"/> <UnitName Value="IDEInfoNeedBuild"/>
</Unit90> </Unit90>
<Unit91>
<Filename Value="sourcefilemanager.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="SourceFileManager"/>
</Unit91>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

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