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

started Hide IDE on run

Browse Source 
git-svn-id: trunk@3040 -
This commit is contained in:
mattias 2002-08-18 08:57:14 +00:00
parent eb3e26ad65
commit a5d058fef4
1 changed files with 62 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
ide/main.pp
View File

@ -161,6 +161,7 @@ type
// view menu // view menu
procedure mnuViewInspectorClicked(Sender : TObject); procedure mnuViewInspectorClicked(Sender : TObject);
procedure mnuViewSourceEditorClicked(Sender : TObject);
procedure mnuViewUnitsClicked(Sender : TObject); procedure mnuViewUnitsClicked(Sender : TObject);
procedure mnuViewFormsClicked(Sender : TObject); procedure mnuViewFormsClicked(Sender : TObject);
procedure mnuViewUnitDependenciesClicked(Sender : TObject); procedure mnuViewUnitDependenciesClicked(Sender : TObject);
@ -477,12 +478,12 @@ type
procedure DoViewUnitDependencies; procedure DoViewUnitDependencies;
// project(s) // project(s)
function DoNewProject(NewProjectType:TProjectType):TModalResult; function DoNewProject(NewProjectType: TProjectType): TModalResult;
function DoSaveProject(Flags: TSaveFlags):TModalResult; function DoSaveProject(Flags: TSaveFlags): TModalResult;
function DoCloseProject:TModalResult; function DoCloseProject: TModalResult;
function DoOpenProjectFile(AFileName:string; Flags: TOpenFlags):TModalResult; function DoOpenProjectFile(AFileName: string; Flags: TOpenFlags): TModalResult;
function DoPublishProject(Flags: TSaveFlags; function DoPublishProject(Flags: TSaveFlags;
ShowDialog: boolean):TModalResult; ShowDialog: boolean): TModalResult;
function DoShowProjectInspector: TModalResult; override; function DoShowProjectInspector: TModalResult; override;
function DoAddActiveUnitToProject: TModalResult; function DoAddActiveUnitToProject: TModalResult;
function DoRemoveFromProjectDialog: TModalResult; function DoRemoveFromProjectDialog: TModalResult;
@ -551,6 +552,8 @@ type
function GetFormOfSource(AnUnitInfo: TUnitInfo; function GetFormOfSource(AnUnitInfo: TUnitInfo;
LoadForm: boolean): TCustomForm; LoadForm: boolean): TCustomForm;
procedure UpdateCaption; override; procedure UpdateCaption; override;
procedure HideIDE; override;
procedure HideUnmodifiedDesigners;
function DoConvertDFMFileToLFMFile(const DFMFilename: string): TModalResult; function DoConvertDFMFileToLFMFile(const DFMFilename: string): TModalResult;
// methods for codetools // methods for codetools
@ -1542,6 +1545,7 @@ procedure TMainIDE.SetupViewMenu;
begin begin
inherited; inherited;
itmViewInspector.OnClick := @mnuViewInspectorClicked; itmViewInspector.OnClick := @mnuViewInspectorClicked;
itmViewSourceEditor.OnClick := @mnuViewSourceEditorClicked;
itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick; itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
itmViewUnits.OnClick := @mnuViewUnitsClicked; itmViewUnits.OnClick := @mnuViewUnitsClicked;
itmViewForms.OnClick := @mnuViewFormsClicked; itmViewForms.OnClick := @mnuViewFormsClicked;
@ -1633,7 +1637,6 @@ end;
procedure TMainIDE.ConnectMainBarEvents; procedure TMainIDE.ConnectMainBarEvents;
begin begin
//OnShow := @FormShow;
OnClose := @FormClose; OnClose := @FormClose;
OnCloseQuery := @FormCloseQuery; OnCloseQuery := @FormCloseQuery;
end; end;
@ -2173,6 +2176,11 @@ begin
DoBringToFrontFormOrInspector; DoBringToFrontFormOrInspector;
end; end;
procedure TMainIDE.mnuViewSourceEditorClicked(Sender: TObject);
begin
SourceNotebook.ShowOnTop;
end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
Procedure TMainIDE.mnuViewUnitsClicked(Sender : TObject); Procedure TMainIDE.mnuViewUnitsClicked(Sender : TObject);
@ -2192,12 +2200,12 @@ end;
Procedure TMainIDE.mnuViewCodeExplorerClick(Sender : TObject); Procedure TMainIDE.mnuViewCodeExplorerClick(Sender : TObject);
begin begin
SourceNotebook.Show; SourceNotebook.ShowOnTop;
end; end;
Procedure TMainIDE.mnuViewMessagesClick(Sender : TObject); Procedure TMainIDE.mnuViewMessagesClick(Sender : TObject);
Begin Begin
MessagesView.Show; MessagesView.ShowOnTop;
End; End;
@ -6262,12 +6270,53 @@ begin
NewCaption:=Format(lisnewProject, [NewCaption]) NewCaption:=Format(lisnewProject, [NewCaption])
end; end;
case ToolStatus of case ToolStatus of
itBuilder: NewCaption:=NewCaption+' (compiliing ...)'; itBuilder: NewCaption:=Format(liscompiling, [NewCaption]);
itDebugger: NewCaption:=NewCaption+' (debugging ...)'; itDebugger: NewCaption:=Format(lisdebugging, [NewCaption]);
end; end;
Caption:=NewCaption; Caption:=NewCaption;
end; end;
procedure TMainIDE.HideIDE;
var
i: Integer;
AForm: TCustomForm;
WindowsList: TList;
begin
HideUnmodifiedDesigners;
WindowsList:=TList.Create;
// collect all windows except the main bar
for i:=0 to Screen.CustomFormCount-1 do begin
AForm:=Screen.CustomForms[i];
if (AForm<>Self)
and (AForm.Designer=nil) and (AForm.Visible)
and (WindowsList.IndexOf(AForm)<0)
and (not (fsModal in AForm.FormState)) then
WindowsList.Add(AForm);
end;
// hide all collected windows
for i:=0 to WindowsList.Count-1 do begin
AForm:=TCustomForm(WindowsList[i]);
AForm.Hide;
end;
// clean up
WindowsList.Free;
end;
procedure TMainIDE.HideUnmodifiedDesigners;
var
AnUnitInfo: TUnitInfo;
NextUnitInfo: TUnitInfo;
begin
AnUnitInfo:=Project1.FirstUnitWithForm;
while AnUnitInfo<>nil do begin
NextUnitInfo:=AnUnitInfo.NextUnitWithForm;
if not AnUnitInfo.NeedsSaveToDisk then
CloseDesignerForm(AnUnitInfo);
AnUnitInfo:=NextUnitInfo;
end;
end;
procedure TMainIDE.DoBringToFrontFormOrUnit; procedure TMainIDE.DoBringToFrontFormOrUnit;
begin begin
if FDisplayState = dsSource then begin if FDisplayState = dsSource then begin
@ -8773,6 +8822,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.579 2003/05/24 11:06:43 mattias
started Hide IDE on run
Revision 1.578 2003/05/24 08:51:40 mattias Revision 1.578 2003/05/24 08:51:40 mattias
implemented designer close query implemented designer close query