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

Jedi code format: refactor, extract function FormatIncludeFile

Browse Source
This commit is contained in:
DomingoGP 2025-03-09 10:23:01 +01:00
parent b623211e02
commit 482124d17e
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/jcf2/IdePlugin/lazarus/jcfidemain.pas
View File

@ -72,6 +72,7 @@ type
constructor Create;
destructor Destroy; override;
procedure FormatIncludeFile(srcEditor: TSourceEditorInterface);
procedure DoFormatSelection(Sender: TObject);
procedure DoFormatIncludeFile(Sender: TObject);
procedure DoFormatCurrentIDEWindow(Sender: TObject);
@ -378,19 +379,22 @@ begin
end;
procedure TJcfIdeMain.DoFormatIncludeFile(Sender: TObject);
begin
if (SourceEditorManagerIntf = nil) or (SourceEditorManagerIntf.ActiveEditor = nil) then
begin
LogIdeMessage('', 'No current window', mtInputError, -1, -1);
Exit;
end;
FormatIncludeFile(SourceEditorManagerIntf.ActiveEditor);
end;
procedure TJcfIdeMain.FormatIncludeFile(srcEditor: TSourceEditorInterface);
var
srcEditor: TSourceEditorInterface;
sourceCode: string;
BlockBegin, BlockEnd: TPoint;
fcConverter: TConverter;
outputstr: string;
begin
if (SourceEditorManagerIntf = nil) or (SourceEditorManagerIntf.ActiveEditor = nil) then
begin
LogIdeMessage('', 'No current window', mtInputError, -1, -1);
exit;
end;
srcEditor := SourceEditorManagerIntf.ActiveEditor;
if srcEditor.ReadOnly then
Exit;
sourceCode := srcEditor.GetText(False); //get ALL editor text.