paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 21:38:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve setting cursor position in new programs. Issue #32089, patch by n7800.

Browse Source
This commit is contained in:
Juha 2024-04-06 09:24:16 +03:00
parent eb480b51d8
commit 1580d1778e
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ide/projectdescriptortypes.pas
View File

@ -58,6 +58,8 @@ type
{ TProjectConsoleApplicationDescriptor }
TProjectConsoleApplicationDescriptor = class(TProjectDescriptor)
protected
FCaretPos: TPoint;
public
constructor Create; override;
function GetLocalizedName: string; override;
@ -102,6 +104,16 @@ type
implementation
procedure SetCaretPosInActiveEditor(aPos: TPoint);
begin
if assigned(SourceEditorManager.ActiveEditor) then
with SourceEditorManager.ActiveEditor.EditorComponent do
begin
MoveCaretIgnoreEOL(aPos);
TopLine:=aPos.Y-LinesInWindow div 2;
end;
end;
{ TProjectApplicationDescriptor }
constructor TProjectApplicationDescriptor.Create;
@ -225,9 +237,7 @@ function TProjectSimpleProgramDescriptor.CreateStartFiles(AProject: TLazProject)
begin
Result:=LazarusIDE.DoOpenEditorFile(AProject.MainFile.Filename,-1,-1,
[ofProjectLoading,ofRegularFile]);
// set caret position
if Assigned(SourceEditorManager.ActiveEditor) then
SourceEditorManager.ActiveEditor.EditorComponent.LogicalCaretXY:=Point(3,3);
SetCaretPosInActiveEditor(Point(3,3));
end;
{ TProjectProgramDescriptor }
@ -288,9 +298,7 @@ function TProjectProgramDescriptor.CreateStartFiles(AProject: TLazProject): TMod
begin
Result:=LazarusIDE.DoOpenEditorFile(AProject.MainFile.Filename,-1,-1,
[ofProjectLoading,ofRegularFile]);
// set caret position
if Assigned(SourceEditorManager.ActiveEditor) then
SourceEditorManager.ActiveEditor.EditorComponent.LogicalCaretXY:=Point(3,13);
SetCaretPosInActiveEditor(Point(3,13));
end;
{ TProjectManualProgramDescriptor }
@ -356,9 +364,7 @@ begin
begin
Result:=LazarusIDE.DoOpenEditorFile(AProject.MainFile.Filename,-1,-1,
[ofProjectLoading,ofRegularFile]);
// set caret position
if Assigned(SourceEditorManager.ActiveEditor) then
SourceEditorManager.ActiveEditor.EditorComponent.LogicalCaretXY:=Point(3,10);
SetCaretPosInActiveEditor(Point(3,10));
end
else
Result:=mrCancel;
@ -380,6 +386,7 @@ begin
Name:=ProjDescNameConsoleApplication;
Flags:=Flags-[pfMainUnitHasCreateFormStatements,pfMainUnitHasTitleStatement,pfMainUnitHasScaledStatement]
+[pfUseDefaultCompilerOptions];
FCaretPos := Point(1,1);
end;
function TProjectConsoleApplicationDescriptor.GetLocalizedName: string;
@ -482,9 +489,10 @@ begin
NewSource.Add(' Terminate;');
NewSource.Add(' Exit;');
NewSource.Add(' end;');
NewSource.Add('');
end;
NewSource.Add('');
NewSource.Add(' { add your program here }');
FCaretPos := Point(3,NewSource.Count); // remember position for move the caret
NewSource.Add('');
NewSource.Add(' // stop program loop');
NewSource.Add(' Terminate;');
@ -540,6 +548,7 @@ function TProjectConsoleApplicationDescriptor.CreateStartFiles(
begin
Result:=LazarusIDE.DoOpenEditorFile(AProject.MainFile.Filename,-1,-1,
[ofProjectLoading,ofRegularFile]);
SetCaretPosInActiveEditor(FCaretPos);
end;
{ TProjectLibraryDescriptor }
@ -600,9 +609,7 @@ function TProjectLibraryDescriptor.CreateStartFiles(AProject: TLazProject): TMod
begin
Result:=LazarusIDE.DoOpenEditorFile(AProject.MainFile.Filename,-1,-1,
[ofProjectLoading,ofRegularFile]);
// set caret position
if Assigned(SourceEditorManager.ActiveEditor) then
SourceEditorManager.ActiveEditor.EditorComponent.LogicalCaretXY:=Point(3,10);
SetCaretPosInActiveEditor(Point(3,10));
end;
end.