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

focus fixes, reduced lpi size

Browse Source 
git-svn-id: trunk@3014 -
This commit is contained in:
mattias 2002-08-18 08:57:01 +00:00
parent 3b3d23a9d1
commit f9126d6ec6
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/uniteditor.pp
View File

@ -481,6 +481,7 @@ type
Procedure NewFile(const NewShortName: String; ASource : TCodeBuffer);
Procedure CloseFile(PageIndex:integer);
procedure FocusEditor;
Procedure ToggleBookmark(Value : Integer);
Procedure SetBookmark(Value : Integer);
@ -2843,6 +2844,7 @@ Begin
Notebook.PageIndex := Notebook.PageIndex+1
else
NoteBook.PageIndex := 0;
FocusEditor;
End;
Procedure TSourceNotebook.PrevEditor;
@ -2852,6 +2854,7 @@ Begin
Notebook.PageIndex := Notebook.PageIndex-1
else
NoteBook.PageIndex := NoteBook.PageCount-1;
FocusEditor;
End;
procedure TSourceNotebook.MoveEditor(OldPageIndex, NewPageIndex: integer);
@ -3222,6 +3225,16 @@ Begin
{$ENDIF}
end;
procedure TSourceNotebook.FocusEditor;
var
SrcEdit: TSourceEditor;
begin
if NoteBook=nil then exit;
SrcEdit:=FindSourceEditorWithPageIndex(NoteBook.PageIndex);
if SrcEdit<>nil then exit;
SrcEdit.FocusEditor;
end;
Procedure TSourceNotebook.NewClicked(Sender: TObject);
Begin
if Assigned(FOnNewClicked) then FOnNewClicked(Sender);
@ -3408,6 +3421,8 @@ Begin
TempEditor:=GetActiveSE;
if TempEditor <> nil then
begin
//writeln('TSourceNotebook.NotebookPageChanged ',
// NoteBook.Pages[FindPageWithEditor(TempEditor)]);
TempEditor.FocusEditor;
UpdateStatusBar;
UpdateActiveEditColors;