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

reduced focus handling and improved focus setting

Browse Source 
git-svn-id: trunk@3066 -
This commit is contained in:
mattias 2002-08-18 08:57:27 +00:00
parent 42d2da428a
commit eb148bec41
1 changed files with 38 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
ide/uniteditor.pp
View File

@ -398,6 +398,8 @@ type
FActiveEditKeyBGColor: TColor;
FActiveEditSymbolFGColor: TColor;
FActiveEditSymbolBGColor: TColor;
fAutoFocusLock: integer;
// PopupMenu
Procedure BuildPopupMenu;
@ -455,7 +457,10 @@ type
function FindBookmark(BookmarkID: integer): TSourceEditor;
function GetEditors(Index:integer):TSourceEditor;
procedure KeyDown(var Key : Word; Shift : TShiftState); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure BeginAutoFocusLock;
procedure EndAutoFocusLock;
public
FindReplaceDlgHistoryIndex: array[TFindDlgComponent] of integer;
FindReplaceDlgUserText: array[TFindDlgComponent] of string;
@ -774,7 +779,6 @@ begin
FindReplaceDlg.Top:=ATop;
if (FindReplaceDlg.ShowModal = mrCancel) then begin
FEditor.SetFocus;
exit;
end;
@ -874,7 +878,13 @@ end;
Procedure TSourceEditor.FocusEditor;
Begin
{$IFDEF VerboseFocus}
writeln('TSourceEditor.FocusEditor A ',PageName,' ',FEditor.Name);
{$ENDIF}
FEditor.SetFocus;
{$IFDEF VerboseFocus}
writeln('TSourceEditor.FocusEditor END ',PageName,' ',FEditor.Name);
{$ENDIF}
end;
Function TSourceEditor.GetReadOnly : Boolean;
@ -3121,7 +3131,6 @@ Begin
Notebook.PageIndex := Notebook.PageIndex+1
else
NoteBook.PageIndex := 0;
FocusEditor;
End;
Procedure TSourceNotebook.PrevEditor;
@ -3131,7 +3140,6 @@ Begin
Notebook.PageIndex := Notebook.PageIndex-1
else
NoteBook.PageIndex := NoteBook.PageCount-1;
FocusEditor;
End;
procedure TSourceNotebook.MoveEditor(OldPageIndex, NewPageIndex: integer);
@ -3520,9 +3528,9 @@ procedure TSourceNotebook.FocusEditor;
var
SrcEdit: TSourceEditor;
begin
if NoteBook=nil then exit;
SrcEdit:=FindSourceEditorWithPageIndex(NoteBook.PageIndex);
if SrcEdit<>nil then exit;
if (NoteBook=nil) or (fAutoFocusLock>0) then exit;
SrcEdit:=GetActiveSE;
if SrcEdit=nil then exit;
SrcEdit.FocusEditor;
end;
@ -3720,17 +3728,19 @@ Begin
TempEditor:=GetActiveSE;
if TempEditor <> nil then
begin
{$IFDEF VerboseFocus}
writeln('TSourceNotebook.NotebookPageChanged BEFORE SetFocus ',
TempEditor.EditorComponent.Name,' ',
NoteBook.Pages[FindPageWithEditor(TempEditor)]);
{$ENDIF}
TempEditor.FocusEditor;
{$IFDEF VerboseFocus}
writeln('TSourceNotebook.NotebookPageChanged AFTER SetFocus ',
TempEditor.EditorComponent.Name,' ',
NoteBook.Pages[FindPageWithEditor(TempEditor)]);
{$ENDIF}
if fAutoFocusLock=0 then begin
{$IFDEF VerboseFocus}
writeln('TSourceNotebook.NotebookPageChanged BEFORE SetFocus ',
TempEditor.EditorComponent.Name,' ',
NoteBook.Pages[FindPageWithEditor(TempEditor)]);
{$ENDIF}
TempEditor.FocusEditor;
{$IFDEF VerboseFocus}
writeln('TSourceNotebook.NotebookPageChanged AFTER SetFocus ',
TempEditor.EditorComponent.Name,' ',
NoteBook.Pages[FindPageWithEditor(TempEditor)]);
{$ENDIF}
end;
UpdateStatusBar;
UpdateActiveEditColors;
if Assigned(FOnEditorVisibleChanged) then
@ -3875,6 +3885,16 @@ Begin
end;
end;
procedure TSourceNotebook.BeginAutoFocusLock;
begin
inc(fAutoFocusLock);
end;
procedure TSourceNotebook.EndAutoFocusLock;
begin
dec(fAutoFocusLock);
end;
Procedure TSourceNotebook.EditorMouseMove(Sender : TObject; Shift: TShiftstate;
X,Y : Integer);
begin