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

IDE: Set cursor position inside begin..end for new programs. Issue #32089, based on n7800's patch.

Browse Source
This commit is contained in:
Juha 2024-04-05 18:19:26 +03:00
parent f468a36dd0
commit 26de2f9330
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/projectdescriptortypes.pas
View File

@ -15,7 +15,8 @@ uses
// IdeIntf
CompOptsIntf, ProjectIntf, LazIDEIntf,
// IDE
frmCustomApplicationOptions, LazarusIDEStrConsts, Project, W32Manifest;
frmCustomApplicationOptions, LazarusIDEStrConsts, Project, W32Manifest,
SourceEditor;
type
@ -87,6 +88,7 @@ type
function GetLocalizedDescription: string; override;
function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override;
public
property AddMainSource: boolean read FAddMainSource write FAddMainSource;
end;
@ -209,8 +211,8 @@ begin
// create program source
NewSource:='program Project1;'+LineEnding
+LineEnding
+'begin'+LineEnding
+LineEnding
+'end.'+LineEnding
+LineEnding;
AProject.MainFile.SetSourceText(NewSource,true);
@ -223,6 +225,9 @@ 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);
end;
{ TProjectProgramDescriptor }
@ -270,6 +275,7 @@ begin
+' { you can add units after this };'+LineEnding
+LineEnding
+'begin'+LineEnding
+LineEnding
+'end.'+LineEnding
+LineEnding;
AProject.MainFile.SetSourceText(NewSource,true);
@ -282,6 +288,9 @@ 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);
end;
{ TProjectManualProgramDescriptor }
@ -332,6 +341,7 @@ begin
+' { you can add units after this };'+LineEnding
+LineEnding
+'begin'+LineEnding
+LineEnding
+'end.'+LineEnding
+LineEnding;
AProject.MainFile.SetSourceText(NewSource,true);
@ -343,8 +353,13 @@ function TProjectManualProgramDescriptor.CreateStartFiles(AProject: TLazProject
): TModalResult;
begin
if AProject.MainFile<>nil then
begin
Result:=LazarusIDE.DoOpenEditorFile(AProject.MainFile.Filename,-1,-1,
[ofProjectLoading,ofRegularFile])
[ofProjectLoading,ofRegularFile]);
// set caret position
if Assigned(SourceEditorManager.ActiveEditor) then
SourceEditorManager.ActiveEditor.EditorComponent.LogicalCaretXY:=Point(3,10);
end
else
Result:=mrCancel;
end;
@ -570,6 +585,7 @@ begin
+' { you can add units after this };'+LineEnding
+LineEnding
+'begin'+LineEnding
+LineEnding
+'end.'+LineEnding
+LineEnding;
AProject.MainFile.SetSourceText(NewSource,true);
@ -584,6 +600,9 @@ 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);
end;
end.