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

Added the Ctrl-Shift-A and S to flip between editor tabs on the editing window.

Browse Source 
Shane

git-svn-id: trunk@158 -
This commit is contained in:
lazarus 2001-01-31 19:50:48 +00:00
parent a5e1df0838
commit 2309e338b0
1 changed files with 39 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
ide/uniteditor.pp
View File

@ -206,6 +206,9 @@ type
Function DisplayPage(SE : TSourceEditor) : Boolean; Function DisplayPage(SE : TSourceEditor) : Boolean;
Function NewSE(Pagenum : Integer) : TSourceEditor; Function NewSE(Pagenum : Integer) : TSourceEditor;
Procedure EditorChanged(sender : TObject); Procedure EditorChanged(sender : TObject);
Procedure NextEditor;
Procedure PrevEditor;
procedure UpdateStatusBar; procedure UpdateStatusBar;
Bookmarks : TImageList; Bookmarks : TImageList;
public public
@ -257,6 +260,9 @@ const
ecFindProcedureDefinition = ecUserFirst+3; ecFindProcedureDefinition = ecUserFirst+3;
ecFindProcedureMethod = ecUserFirst+4; ecFindProcedureMethod = ecUserFirst+4;
ecNextEditor = ecUserFirst+5;
ecPrevEditor = ecUserFirst+6;
var var
Editor_Num : Integer; Editor_Num : Integer;
aHighlighter: TSynPasSyn; aHighlighter: TSynPasSyn;
@ -753,7 +759,15 @@ Writeln('[ProcessUserCommand] --------------');
end; end;
end; end;
ecNextEditor: Begin
//tell the SourceNotebook
TSourceNotebook(FaOwner).NextEditor;
end;
ecPrevEditor : Begin
TSourceNotebook(FaOwner).PrevEditor;
End;
end; //case end; //case
@ -800,6 +814,8 @@ if assigned(FEditor) then
AddKey(ecFindAgain, VK_F3, [], 0, []); AddKey(ecFindAgain, VK_F3, [], 0, []);
AddKey(ecFindProcedureDefinition, VK_UP, [ssShift,ssCtrl], 0, []); AddKey(ecFindProcedureDefinition, VK_UP, [ssShift,ssCtrl], 0, []);
AddKey(ecFindProcedureMethod, VK_Down, [ssShift,ssCtrl], 0, []); AddKey(ecFindProcedureMethod, VK_Down, [ssShift,ssCtrl], 0, []);
AddKey(ecNextEditor, word('S'), [ssShift,ssCtrl], 0, []);
AddKey(ecPrevEditor, word('A'), [ssShift,ssCtrl], 0, []);
OnStatusChange := @EditorStatusChanged; OnStatusChange := @EditorStatusChanged;
OnProcessUserCommand := @ProcessUserCommand; OnProcessUserCommand := @ProcessUserCommand;
@ -809,7 +825,7 @@ if assigned(FEditor) then
{SynEdit} {SynEdit}
FEditor.Lines.Assign(FSource); FEditor.Lines.Assign(FSource);
FEditor.Setfocus;
end; end;
Procedure TSourceEditor.AddControlCode(_Control : TComponent); Procedure TSourceEditor.AddControlCode(_Control : TComponent);
@ -1217,8 +1233,8 @@ begin
SimpleText := 'This is a test'; SimpleText := 'This is a test';
Panels.Add; //x,y coord Panels.Add; //x,y coord
Panels.Add; //Readonly/Modified Panels.Add; //Readonly/Modified
Panels.Add; //Unitname
Panels.Add; //OVR/INS Panels.Add; //OVR/INS
Panels.Add; //Unitname
Panels[0].Text := ''; Panels[0].Text := '';
Panels[0].Width := 100; Panels[0].Width := 100;
Panels[0].Bevel := pbLowered; Panels[0].Bevel := pbLowered;
@ -1227,7 +1243,7 @@ begin
Panels[1].Width := 150; Panels[1].Width := 150;
Panels[2].Text := ''; Panels[2].Text := '';
Panels[2].Bevel := pbLowered; Panels[2].Bevel := pbLowered;
Panels[2].Width := 100; Panels[2].Width := 50;
Panels[3].Text := 'INS'; Panels[3].Text := 'INS';
Panels[3].Bevel := pbLowered; Panels[3].Bevel := pbLowered;
Panels[3].Width := 50; Panels[3].Width := 50;
@ -1453,6 +1469,21 @@ Begin
Result := (not assigned(Notebook1)) or (Notebook1.Pages.Count = 0); Result := (not assigned(Notebook1)) or (Notebook1.Pages.Count = 0);
end; end;
Procedure TSourceNotebook.NextEditor;
Begin
if Notebook1.PageIndex < Notebook1.PAges.Count-1 then
Notebook1.PAgeindex := Notebook1.Pageindex+1;
End;
Procedure TSourceNotebook.PrevEditor;
Begin
if Notebook1.PageIndex > 0 then
Notebook1.PAgeindex := Notebook1.Pageindex-1;
End;
Procedure TSourceNotebook.OpenClicked(Sender: TObject); Procedure TSourceNotebook.OpenClicked(Sender: TObject);
Var Var
TempEditor : TSourceEditor; TempEditor : TSourceEditor;
@ -1695,7 +1726,7 @@ begin
if TempEditor = nil then Exit; if TempEditor = nil then Exit;
Writeln('Updating status bar...'); Writeln('Updating status bar...');
Statusbar.Panels[2].Text := GetActiveSE.Unitname; Statusbar.Panels[3].Text := GetActiveSE.Unitname;
If GetActiveSE.Modified then StatusBar.Panels[1].Text := 'Modified' If GetActiveSE.Modified then StatusBar.Panels[1].Text := 'Modified'
else else
@ -1707,11 +1738,11 @@ begin
StatusBar.Panels[1].Text := 'Readonly'; StatusBar.Panels[1].Text := 'Readonly';
Statusbar.Panels[0].Text := Inttostr(GetActiveSE.CurrentCursorXLine) + ','+ Inttostr(GetActiveSE.CurrentCursorYLine); Statusbar.Panels[0].Text := Inttostr(GetActiveSE.CurrentCursorYLine) + ':'+ Inttostr(GetActiveSE.CurrentCursorXLine);
if GetActiveSE.InsertMode then if GetActiveSE.InsertMode then
Statusbar.Panels[3].Text := 'INS' else Statusbar.Panels[2].Text := 'INS' else
Statusbar.Panels[3].Text := 'OVR'; Statusbar.Panels[2].Text := 'OVR';
End; End;
Procedure TSourceNotebook.NoteBookPageChanged(Sender : TObject); Procedure TSourceNotebook.NoteBookPageChanged(Sender : TObject);