paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 17:19:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

started Hide IDE on run

Browse Source 
git-svn-id: trunk@3096 -
This commit is contained in:
mattias 2002-08-18 08:57:37 +00:00
parent 0c1af8ec05
commit a0b72293e3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/uniteditor.pp
View File

@ -887,6 +887,7 @@ Begin
{$IFDEF VerboseFocus}
writeln('TSourceEditor.FocusEditor A ',PageName,' ',FEditor.Name);
{$ENDIF}
if SourceNotebook<>nil then SourceNotebook.Visible:=true;
FEditor.SetFocus;
{$IFDEF VerboseFocus}
writeln('TSourceEditor.FocusEditor END ',PageName,' ',FEditor.Name);
@ -3482,6 +3483,7 @@ Begin
{$IFDEF IDE_DEBUG}
writeln('[TSourceNotebook.NewFile] A ');
{$ENDIF}
Visible:=true;
TempEditor := NewSE(-1);
{$IFDEF IDE_DEBUG}
writeln('[TSourceNotebook.NewFile] B ');
@ -3506,6 +3508,7 @@ Begin
{$ENDIF}
TempEditor:=FindSourceEditorWithPageIndex(PageIndex);
if TempEditor=nil then exit;
Visible:=true;
TempEditor.Close;
TempEditor.Free;
if Notebook.PageCount>1 then begin
@ -3536,6 +3539,7 @@ begin
if (NoteBook=nil) or (fAutoFocusLock>0) then exit;
SrcEdit:=GetActiveSE;
if SrcEdit=nil then exit;
Show;
SrcEdit.FocusEditor;
end;