{
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. *
* *
***************************************************************************
Author: Michael Van Canneyt
}
unit FrmMain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, process,
// LCL
Forms, Controls, Graphics, Dialogs, Menus, ActnList, ExtCtrls, ComCtrls, StdActns,
// LazUtils
LazFileUtils, LazLoggerBase, LazUTF8, UTF8Process,
// DocEditor
pgeditor, fpdeutil;
type
TNodeType = (ntFile,ntPackage,ntModule,ntElement,ntTopic);
{ TMainForm }
TMainForm = class(TForm)
AInsertNumberedList: TAction;
AInsertBulletedList: TAction;
AInsertQuickLink: TAction;
AInsertPrintShort: TAction;
AExtraBuild: TAction;
AExtraOptions: TAction;
AHelpAbout: TAction;
AFormatFile: TAction;
AFormatBold: TAction;
AFormatItalic: TAction;
AFormatUnderline: TAction;
AFormatRemark: TAction;
AFormatVariable: TAction;
AFormatCode: TAction;
AFormatParagraph: TAction;
AInsertTable: TAction;
AInsertPackage: TAction;
AInsertModule: TAction;
AInsertElement: TAction;
AInsertTopic: TAction;
AInsertLink: TAction;
AExit: TAction;
ANew: TAction;
ANewFromFile: TAction;
AOpen: TAction;
ApplicationProperties1: TApplicationProperties;
ASave: TAction;
ASaveAs: TAction;
AClose: TAction;
ALMain: TActionList;
EditCopy1: TEditCopy;
EditCut1: TEditCut;
EditDelete1: TEditDelete;
EditPaste1: TEditPaste;
EditSelectAll1: TEditSelectAll;
EditUndo1: TEditUndo;
ILElements: TImageList;
ILMain: TImageList;
LIBuild: TMenuItem;
MenuItem1: TMenuItem;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem14: TMenuItem;
MenuItem15: TMenuItem;
MenuItem16: TMenuItem;
MenuItem17: TMenuItem;
MenuItem18: TMenuItem;
MenuItem19: TMenuItem;
MenuItem20: TMenuItem;
MenuItem21: TMenuItem;
Lists: TMenuItem;
BulletedList: TMenuItem;
NumberedList: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
PopupMenu1: TPopupMenu;
QuickLink: TMenuItem;
MISeparate: TMenuItem;
MISaveAs: TMenuItem;
MISave: TMenuItem;
MIAbout: TMenuItem;
MIHelp: TMenuItem;
MIExtraOptions: TMenuItem;
MIExtra: TMenuItem;
MIInsertPackage: TMenuItem;
MIInsertModule: TMenuItem;
MIInsertElement: TMenuItem;
MIInsertLink: TMenuItem;
MIInsertTopic: TMenuItem;
MIInsertTable: TMenuItem;
MIInsert: TMenuItem;
MIClose: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MIRecent: TMenuItem;
MINewFromFile: TMenuItem;
MIFileOpen: TMenuItem;
MIFileNew: TMenuItem;
MFile: TMenuItem;
MMain: TMainMenu;
ODMain: TOpenDialog;
PCFiles: TPageControl;
SDMain: TSaveDialog;
Splitter1: TSplitter;
StatusBar1: TStatusBar;
TBMain: TToolBar;
TBNewModule: TToolButton;
TBNewPackage: TToolButton;
TBNew: TToolButton;
TBNewTopic: TToolButton;
TBNewElement: TToolButton;
ToolButton1: TToolButton;
ToolButton10: TToolButton;
TBSaveAs: TToolButton;
TBSave: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
TBOpen: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
procedure ACloseExecute(Sender: TObject);
procedure AExitExecute(Sender: TObject);
procedure AExtraBuildExecute(Sender: TObject);
procedure AExtraOptionsExecute(Sender: TObject);
procedure AFormatParagraphHint(var HintStr: string; var CanShow: Boolean);
procedure AHelpAboutExecute(Sender: TObject);
procedure AInsertNumberedListExecute(Sender: TObject);
procedure AInsertBulletedListExecute(Sender: TObject);
procedure ApplicationProperties1Hint(Sender: TObject);
procedure ASaveUpdate(Sender: TObject);
procedure CanFormat(Sender: TObject);
procedure AInsertLinkExecute(Sender: TObject);
procedure AInsertLinkUpdate(Sender: TObject);
procedure AInsertTableExecute(Sender: TObject);
procedure AInsertTableUpdate(Sender: TObject);
procedure AInsertShortPrintLinkExecute(Sender: TObject);
procedure AInsertShortPrintLinkUpdate(Sender: TObject);
procedure ANewExecute(Sender: TObject);
procedure ANewFromFileExecute(Sender: TObject);
procedure AOpenExecute(Sender: TObject);
procedure ASaveAsExecute(Sender: TObject);
procedure ASaveExecute(Sender: TObject);
procedure DoFormat(Sender: TObject);
procedure HaveEditor(Sender: TObject);
procedure HaveEditorAndModule(Sender: TObject);
procedure HaveEditorAndPackage(Sender: TObject);
procedure HaveEditorAndTopicOrSomething(Sender: TObject);
procedure InsertStructure(Sender: TObject);
procedure MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure MainFormCreate(Sender: TObject);
procedure MainFormDestroy(Sender: TObject);
procedure QuickLinkClick(Sender: TObject);
private
FRecent : TStringListUTF8Fast;
FRecentBuildSettingsFile: String;
// Editor functions.
procedure BuildReopenList;
Procedure AddTorecent(FN : String);
procedure FormLocalization;
Procedure OpenFile(FN : String; Const AStartNode : String = '');
Procedure SaveEditorAs(E : TEditorPage);
Procedure SaveEditor(E : TEditorPage);
Function CloseEditor(E : TEditorPage) : Boolean;
Procedure FileReopen(Sender: TObject);
Procedure NewFile;
Procedure NewFromFile;
Procedure LoadCommandLine;
Procedure LoadRecent;
Procedure SaveRecent;
Function CreatePage : TEditorPage;
Function Currenteditor : TEditorPage;
Function AllowClose : Boolean;
Procedure InsertNode (NT : TNodeType);
Procedure InsertLink;
Procedure InsertTable;
procedure InsertPrintShortLink;
procedure InsertEnumerateList;
procedure InsertItemizeList;
Procedure ShowAbout;
Procedure GetCurrentFiles(List : TStrings);
Procedure ApplyOptions;
public
{ public declarations }
end;
Const
NodeNames : Array[TNodeType] of String
= ('file','package','module','element','topic');
var
MainForm: TMainForm;
implementation
uses
lazdeopts, lazdemsg, inifiles, frmmakeskel, frmOptions, frmNewNode,
frmLink, frmTable, frmAbout, frmBuild, frmlists;
{$R *.lfm}
{ Fixes & additions to LCL}
Const
mbYesNo = [mbYes, mbNo];
function MessageDlg(Fmt: string; Args : Array of const; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
Result:=Dialogs.MessageDlg(Format(Fmt,Args),DlgType,Buttons,HelpCtx);
end;
function MessageDlg(Fmt: string; Args : Array of const; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons): Integer;
begin
Result:=Dialogs.MessageDlg(Format(Fmt,Args),DlgType,Buttons,0);
end;
function MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): Integer;
begin
Result:=Dialogs.MessageDlg(Msg,DlgType,Buttons,0);
end;
{ TMainForm }
Type
TRecentMenuItem = Class (TMenuItem)
public
FileName : String;
end;
procedure TMainForm.FileReopen(Sender: TObject);
begin
OpenFile((Sender as TRecentMenuItem).FileName);
end;
procedure TMainForm.MainFormCreate(Sender: TObject);
begin
FormLocalization;
//
FRecent:=TStringListUTF8Fast.Create;
LoadCommandLine;
LoadOptions;
LoadRecent;
if StartMaximized then
WindowState := wsMaximized;
if ReopenLast and (FRecent.Count>0) then
OpenFile(FRecent[0]);
ApplyOptions;
end;
procedure TMainForm.AOpenExecute(Sender: TObject);
var
i: SizeInt;
begin
if ODMain.Execute then
begin
for i := 0 to ODMain.Files.Count - 1 do
OpenFile(ODMain.Files.Strings[i]);
end;
end;
procedure TMainForm.AExitExecute(Sender: TObject);
begin
Close;
end;
procedure TMainForm.AExtraBuildExecute(Sender: TObject);
var r: Integer;
begin
if Currenteditor.Modified then
begin
r := MessageDlg(sSaveBeforeBuildQuestion,[Currenteditor.FileName, sLineBreak],
mtConfirmation,mbYesNoCancel,0);
if r = mrYes then
begin
SaveEditor(Currenteditor);
Currenteditor.Update;
end
else if r = mrCancel then Exit;
end;
with TBuildForm.Create(Self) do
try
FileName := FRecentBuildSettingsFile;
OnGetList:=@Self.GetCurrentFiles;
ShowModal;
FRecentBuildSettingsFile := FileName;
finally
Free;
end;
end;
procedure TMainForm.ACloseExecute(Sender: TObject);
begin
CloseEditor(CurrentEditor);
end;
procedure TMainForm.AExtraOptionsExecute(Sender: TObject);
var
OptionsForm: TOptionsForm;
begin
OptionsForm:=TOptionsForm.Create(Self);
try
if OptionsForm.ShowModal=mrOk then
ApplyOptions;
finally
OptionsForm.Free;
end;
end;
procedure TMainForm.AFormatParagraphHint(var HintStr: string;
var CanShow: Boolean);
begin
if (HintStr='') then ;
if CanShow then ;
end;
procedure TMainForm.AHelpAboutExecute(Sender: TObject);
begin
ShowAbout;
end;
procedure TMainForm.AInsertNumberedListExecute(Sender: TObject);
begin
InsertEnumerateList;
end;
procedure TMainForm.AInsertBulletedListExecute(Sender: TObject);
begin
InsertItemizeList;
end;
procedure TMainForm.ApplicationProperties1Hint(Sender: TObject);
begin
StatusBar1.SimpleText:=Application.Hint;
end;
procedure TMainForm.ASaveUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=(CurrentEditor <> nil) and (CurrentEditor.Modified);
end;
procedure TMainForm.CanFormat(Sender: TObject);
Var
B : Boolean;
begin
B:=(CurrentEditor<>Nil) and
CurrentEditor.CanInsertTag(TTagType((Sender as TAction).Tag));
(Sender as Taction).Enabled:=B;
end;
procedure TMainForm.AInsertLinkExecute(Sender: TObject);
begin
InsertLink;
end;
procedure TMainForm.AInsertLinkUpdate(Sender: TObject);
var
B : Boolean;
begin
B:=(CurrentEditor<>Nil) and CurrentEditor.CanInsertTag(ttLink);
(Sender as TAction).Enabled:=B;
end;
procedure TMainForm.AInsertTableExecute(Sender: TObject);
begin
InsertTable;
end;
procedure TMainForm.AInsertTableUpdate(Sender: TObject);
var
B : Boolean;
begin
B:=(CurrentEditor<>Nil) and CurrentEditor.CanInsertTag(ttTable);
(Sender as TAction).Enabled:=B;
end;
procedure TMainForm.AInsertShortPrintLinkExecute(Sender: TObject);
begin
InsertPrintShortLink;
end;
procedure TMainForm.AInsertShortPrintLinkUpdate(Sender: TObject);
var
B: Boolean;
begin
B := (CurrentEditor <> nil) and CurrentEditor.CanInsertTag(ttPrintShort);
(Sender as TAction).Enabled := B;
end;
procedure TMainForm.ANewExecute(Sender: TObject);
begin
NewFile;
end;
procedure TMainForm.ANewFromFileExecute(Sender: TObject);
begin
NewFromFile;
end;
procedure TMainForm.ASaveAsExecute(Sender: TObject);
Var
E : TEditorPage;
begin
E:=CurrentEditor;
if (E<>Nil) then
SaveEditorAs(E);
end;
procedure TMainForm.ASaveExecute(Sender: TObject);
var
E : TEditorPage;
begin
E:=CurrentEditor;
If (E<>Nil) then
begin
SaveEditor(E);
Currenteditor.Update;
end;
end;
procedure TMainForm.DoFormat(Sender: TObject);
begin
if Assigned(CurrentEditor) then
CurrentEditor.InsertTag(TTagType((Sender as TAction).Tag));
end;
procedure TMainForm.HaveEditor(Sender: TObject);
begin
(Sender as TAction).Enabled:=(CurrentEditor <> nil);
end;
procedure TMainForm.HaveEditorAndModule(Sender: TObject);
begin
(Sender as TAction).Enabled:=(CurrentEditor <> nil) and
(Currenteditor.CurrentModule <> nil);
end;
procedure TMainForm.HaveEditorAndPackage(Sender: TObject);
begin
(Sender as TAction).Enabled:=(CurrentEditor <> nil) and
(Currenteditor.CurrentPackage <> nil);
end;
procedure TMainForm.HaveEditorAndTopicOrSomething(Sender: TObject);
begin
(Sender as TAction).Enabled:=(CurrentEditor <> nil) and
( (Currenteditor.CurrentTopic <> nil)
or (Currenteditor.CurrentModule <> nil)
or (Currenteditor.CurrentPackage <> nil) );
end;
procedure TMainForm.InsertStructure(Sender: TObject);
begin
InsertNode(TNodeType((Sender as TAction).Tag));
end;
procedure TMainForm.MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
CanClose:=AllowClose;
end;
procedure TMainForm.MainFormDestroy(Sender: TObject);
begin
SaveOptions;
SaveRecent;
FreeAndNil(FRecent);
end;
procedure TMainForm.QuickLinkClick(Sender: TObject);
var
Selection : string;
begin
if Assigned(CurrentEditor) then
begin
Selection := CurrentEditor.CurrentSelection;
if Selection <> '' then
CurrentEditor.InsertLink(CurrentEditor.CurrentElement['name'] + '.' + Selection, Selection)
else
ShowMessage(sSelectSomeText);
end;
end;
procedure TMainForm.BuildReopenList;
Function NewRecentMenuItem (Nr : Integer;AFileName : string) : TRecentMenuItem;
begin
Result:=TRecentMenuItem.Create(Self);
If Nr<10 then
Result.Caption:='&'+IntToStr(Nr)+' '+AFileName
else
Result.Caption:=AFileName;
Result.FileName:=AFileName;
Result.OnCLick:=@FileReopen;
end;
var I : integer;
mi : TRecentMenuItem;
begin
with MIRecent do
begin
CLear;
for I:=FRecent.count-1 downto 0 do
begin
mi:=NewRecentMenuItem (I,FRecent[I]);
Add(mi);
end;
end;
end;
procedure TMainForm.AddTorecent(FN: String);
var
Index : Integer;
begin
FN:=ExpandFileNameUTF8(FN);
With FRecent do
begin
Index:=IndexOf(FN);
If Index<>-1 then
Delete(Index);
Insert(0,FN);
While Count>MaxRecentUsed do
Delete(Count-1);
end;
BuildReopenList;
end;
procedure TMainForm.FormLocalization;
begin
//Localization
Caption:=sLazDocEditor;
//File menu
MFile.Caption:=SMenuFile;
ANew.Caption:=SMenuFileNew;
AOpen.Caption:=SMenuFileOpen;
ANewFromFile.Caption:=SMenuFileNewFromFile;
ASave.Caption:=SMenuFileSave;
ASaveAs.Caption:=SMenuFileSaveAs;
AClose.Caption:=SMenuFileClose;
AExit.Caption:=SMenuFileQuit;
MIRecent.Caption:=SMenuFileRecent;
ANew.Hint:=SHintFileNew;
AOpen.Hint:=SHintFileOpen;
ANewFromFile.Hint:=SHintMenuNewFromFile;
ASave.Hint:=SHintFileSave;
ASaveAs.Hint:=SHintFileSaveAs;
AClose.Hint:=SHintFileClose;
AExit.Hint:=SHintFileExit;
//Format menu
AFormatParagraph.Caption:=SMenuFormatParaGraph;
AFormatBold.Caption:=SMenuFormatBold;
AFormatItalic.Caption:=SMenuFormatItalics;
AFormatUnderline.Caption:=SMenuFormatUnderLine;
AFormatRemark.Caption:=SMenuFormatRemark;
AFormatVariable.Caption:=SMenuformatVariable;
AFormatCode.Caption:=SMenuFormatCode;
AFormatFile.Caption:=SMenuFormatFile;
AFormatBold.Hint:=SHintFormatBold;
AFormatItalic.Hint:=SHintFormatItalics;
AFormatUnderline.Hint:=SHintFormatUnderLine;
AFormatRemark.Hint:=SHintFormatRemark;
AFormatVariable.Hint:=SHintFormatVariable;
AFormatCode.Hint:=SHintFormatCode;
AFormatFile.Hint:=SHintFormatFile;
//Insert menu
MIInsert.Caption:=SMenuInsert;
AInsertPackage.Caption:=SMenuInsertPackage;
AInsertModule.Caption:=SMenuInsertModule;
AInsertElement.Caption:=SMenuInsertElement;
AInsertTopic.Caption:=SMenuInsertTopic;
AInsertLink.Caption:=SMenuInsertLink;
AInsertTable.Caption:=SMenuInsertTable;
AInsertPrintShort.Caption:=SMenuInsertShortDescLink;
AInsertQuickLink.Caption:=SMenuInsertQuickLink;
Lists.Caption := SMenuInsertList;
AInsertBulletedList.Caption:=SMenuInsertBulletedList;
AInsertNumberedList.Caption:=SMenuInsertNumberedList;
AInsertPackage.Hint:=SHintInsertPackage;
AInsertModule.Hint:=SHintInsertModule;
AInsertElement.Hint:=SHintInsertElement;
AInsertTopic.Hint:=SHintInsertTopic;
AInsertLink.Hint:=SHintInsertLink;
AInsertTable.Hint:=ShintInsertTable;
AInsertPrintShort.Hint:=SHintInsertPrintShortLink;
AInsertBulletedList.Hint:=SHintInsertBulletedList;
AInsertNumberedList.Hint:=SHintInsertNumberedList;
//Extra menu
MIExtra.Caption:=SMenuExtra;
AExtraOptions.Caption:=SMenuExtraOptions;
AExtraBuild.Caption:=SMenuExtraBuild;
AExtraBuild.Hint:=SHMenuExtraOptions;
//Help menu
MIHelp.Caption:=SMenuHelp;
AHelpAbout.Caption:=sMenuHelpAbout;
AHelpAbout.Hint:=SHMenuHelpAbout;
end;
procedure TMainForm.NewFile;
const
template = '<?xml version="1.0" encoding="ISO-8859-1"?>'+LineEnding+
'<fpdoc-descriptions>'+LineEnding+
'</fpdoc-descriptions>'+LineEnding;
var
S : TStringStream;
begin
with CreatePage do
begin
if FileExistsUTF8(SFileTemplate) then
LoadFromFile(UTF8ToSys(SFileTemplate))
else
begin
S:=TStringStream.Create(Template);
try
LoadFromStream(S)
finally
S.Free;
end;
end;
end;
end;
procedure TMainForm.OpenFile(FN: String; Const AStartNode : String = '');
begin
if (FN<>'') then
begin
If FileExistsUTF8(FN) then
With CreatePage do
begin
LoadFromFile(UTF8ToSys(FN),AStartNode);
AddToRecent(Fn);
end;
end;
end;
procedure TMainForm.SaveEditorAs(E: TEditorPage);
var
Fn : String;
begin
with SDMain do
begin
FileName:=E.FileName;
if execute then
begin
FN:=FileName;
If ExtractFileExt(FN)='' then
FN:=FN+DefaultExtension;
E.SaveToFile(FN);
AddToRecent(FN);
end;
end;
end;
procedure TMainForm.SaveEditor(E: TEditorPage);
begin
With E do
begin
if (FileName=SNewDocument) then
SaveEditorAs(E)
else
SaveToFile(FileName);
end;
end;
function TMainForm.CloseEditor(E: TEditorPage): Boolean;
begin
Result:=Not E.Modified;
If Not Result then
Case MessageDlg(SFileModified,[E.FileName],mtConfirmation,mbYesNoCancel,0) of
mrYes : begin
SaveEditor(E);
E.Free;
Result:=True;
end;
mrNo : begin
E.Free;
Result:=True;
end;
end
else
E.Free;
end;
procedure TMainForm.LoadCommandLine;
var
I : Integer;
N : string;
begin
I:=1;
While I<=ParamCount do
begin
if (Copy(ParamStrUTF8(i),1,10)='--element=') then
begin
N:=ParamStrUTF8(i);
Delete(N,1,10);
end
else
begin
If FileExistsUTF8(ParamStrUTF8(i)) then
OpenFile(ParamStrUTF8(I),N);
N:='';
end;
Inc(I);
end;
end;
procedure TMainForm.LoadRecent;
var
I,Count : Integer;
S : String;
begin
FRecent.Clear;
With TInifile.Create(UTF8ToSys(GetoptionFileName)) do begin
Count:=ReadInteger('Recent','Count',0);
For I:=1 to Count do begin
S:=ReadString('Recent','File'+IntToStr(i),'');
If S<>'' then
FRecent.Add(S);
end;
Free;
end;
BuildReopenList;
end;
procedure TMainForm.SaveRecent;
var
I : Integer;
begin
With TInifile.Create(UTF8ToSys(GetoptionFileName)) do
try
EraseSection('Recent');
WriteInteger('Recent','Count',FRecent.Count);
For I:=1 to FRecent.Count do
WriteString('Recent','File'+IntToStr(i),FRecent[i-1]);
UpdateFile;
Finally
Free;
end;
end;
function TMainForm.CreatePage: TEditorPage;
begin
Result:=TEditorPage.Create(self);
Result.Caption:=SNewDocument;
Result.PageControl:=PCFiles;
// This should go when it's fixed in the LCL.
Result.Parent:=PCFiles;
PCFiles.ActivePage:=Result;
end;
function TMainForm.Currenteditor: TEditorPage;
begin
If PCFiles.PageCount=0 then
Result:=Nil
else
Result:=PCFiles.ActivePage as TEditorPage;
end;
function TMainForm.AllowClose: Boolean;
begin
Result:=True;
While (PCFiles.PageCount>0) and Result do
Result:=CloseEditor(PCFiles.Pages[PCFiles.PageCount-1] as TEditorPage);
end;
Type
TSkeletonData = Record
InputFile,
OutputFile,
PackageName,
AdditionalOptions : String;
DisableArguments,
DisableResults,
DisablePrivate,
DisableProtected,
DisableSeeAlso,
DisableErrors : Boolean;
end;
Function CreateSkeletonFile(Const S : TSkeletonData) : Boolean;
var
Cmd : String;
begin
With S do
begin
cmd:=cmdMakeSkel+' ';
cmd:=cmd+format('"--input=%s %s"',[Inputfile,Additionaloptions]);
cmd:=cmd+' --output='+OutputFile;
cmd:=cmd+' --package='+PackageName;
If DisableErrors then
cmd:=cmd+' --disable-errors';
If DisableSeeAlso then
cmd:=cmd+' --disable-seealso';
If DisableProtected then
cmd:=cmd+' --disable-protected'
else if DisablePrivate then
cmd:=cmd+' --disable-private';
If DisableResults then
cmd:=cmd+' --disable-function-results';
If DisableArguments then
cmd:=cmd+' --disable-arguments';
DebugLn(cmd);
With TProcessUTF8.Create(Nil) do
try
CommandLine:=cmd;
options:=[poWaitOnExit];
Execute;
If (ExitStatus<>0) then
begin
DebugLn('error detected ',DbgS(ExitStatus));
If FileExistsUTF8(OutputFile) then
Result:=MessageDlg(SSkelErrorWithFile,[ExitStatus],mtWarning,mbYesNo,0)=mrYes
else
begin
MessageDlg(SSkelErrorWithoutFile,[ExitStatus],mtError,[mbOk],0);
Result:=False;
end;
end
else
Result:=FileExistsUTF8(OutputFile);
finally
Free;
end;
end;
end;
Procedure TMainForm.NewFromFile;
var
SkeletonData : TSkeletonData;
OK : Boolean;
begin
With TMakeSkelform.Create(Self) do
try
Caption:=SMakeSkelFromSource;
OK:=ShowModal=mrOK;
If OK Then
With SkeletonData do
begin
InputFile:=FEInputFile.Text;
OutputFile:=FEOutputFile.Text;
PackageName:=EPackage.Text;
AdditionalOptions:=EAdditionalOptions.Text;
DisableArguments:=CBDisableArguments.Checked;
DisableResults:=CBDisableResults.Checked;
DisablePrivate:=CBDisablePrivate.Checked;
DisableProtected:=CBDisableProtected.Checked;
DisableSeeAlso:=CBDisableSeeAlso.Checked;
DisableErrors:=CBDisableErrors.Checked;
end;
Finally
Free;
end;
If OK and CreateSkeletonFile(SkeletonData) then
OpenFile(SkeletonData.OutPutFile)
end;
Procedure TMainForm.InsertNode(NT : TNodeType) ;
Var
S: AnsiString;
begin
If (CurrentEditor<>Nil) then
With TNewNodeForm.Create(Self) do
Try
Case nt of
ntPackage: S:=sNewPackage+SForFile+ExtractFileName(CurrentEditor.FileName);
ntModule: If (CurrentEditor.CurrentPackage<>Nil) then
S:=sNewModule+SForPackage+CurrentEditor.CurrentPackage['name'];
ntElement: begin
If (CurrentEditor.CurrentModule<>Nil) then
S:=sNewElement+SForModule+CurrentEditor.CurrentModule['name'];
If Assigned(CurrentEditor.CurrentElement) and
(CurrentEditor.CurrentElement <> CurrentEditor.CurrentModule) then
begin
ENodeName.Text:=CurrentEditor.CurrentElement['name'] + '.' + 'NewElement';
ENodeName.SelStart:= Length(CurrentEditor.CurrentElement['name']) + 1;
ENodeName.SelLength := Length('NewElement');
end
else
ENodeName.SelText:= 'NewElement';
end;
ntTopic : begin
if (CurrentEditor.CurrentTopic<>Nil) then
S:=sNewTopic+SForTopic+CurrentEditor.CurrentPackage['name']
else if (CurrentEditor.CurrentModule<>Nil) then
S:=sNewTopic+SForModule+CurrentEditor.CurrentModule['name']
else if (CurrentEditor.CurrentPackage<>Nil) then
S:=sNewTopic+SForPackage+CurrentEditor.CurrentPackage['name']
end;
end;
Caption:=S;
LENodeName.Caption := sNodeName;
S:='';
If ShowModal=mrOK Then
begin
S:=ENodeName.Text;
Case nt of
ntPackage : CurrentEditor.NewPackage(S);
ntModule : CurrentEditor.NewModule(S);
ntElement : CurrentEditor.NewElement(S);
ntTopic : CurrentEditor.NewTopic(S);
end;
end;
finally
Free;
end;
end;
procedure TMainForm.InsertLink;
begin
if Assigned(CurrentEditor) then
With TLinkForm.Create(Self) do
Try
Caption:=SInsertLink;
LLinkTarget.Caption := SLinkTarget;
LELinkText.Caption := SLinkText;
Link:=CurrentEditor.CurrentSelection;
Links.BeginUpdate;
Try
CurrentEditor.GetElementList(Links);
Finally
Links.EndUpdate;
end;
If ShowModal=mrOK Then
CurrentEditor.InsertLink(Link,LinkText);
Finally
free;
end;
end;
Procedure TMainForm.InsertTable;
var
R,C : Integer;
begin
with TTableForm.Create(Self) do
try
Caption:=SInsertTable;
LSERows.Caption := STableRows;
LSEColumns.Caption := STableCols;
CBUseHeaderRow.Caption := STableHeader;
SERows.Text:=IntToStr(3);
SEColumns.Text:=IntToStr(3);
If ShowModal=mrOK Then
begin
R:=StrToIntDef(SERows.Text,3);
C:=StrToIntDef(SEColumns.Text,3);
CurrentEditor.InsertTable(C,R,CBUseHeaderRow.Checked);
end;
Finally
Free;
end;
end;
procedure TMainForm.InsertPrintShortLink;
begin
if Assigned(CurrentEditor) then
begin
with TLinkForm.Create(Self) do
try
Caption := SInsertPrintShortLink;
LELinkText.Caption := SLinkText;
LLinkTarget.Caption := SLinkTarget;
ELinkText.Visible := False;
ELinkText.Enabled := False;
LELinkText.Visible := False;
CBTarget.Items.BeginUpdate;
try
CurrentEditor.GetElementList(CBTarget.Items);
{ Find & Select current item. It will be the most used option anyway }
CBTarget.ItemIndex :=
CBTarget.Items.IndexOf(CurrentEditor.CurrentElement['name']);
finally
CBTarget.Items.EndUpdate;
end;
if ShowModal = mrOK then
CurrentEditor.InsertShortPrintLink(CBTarget.Text);
finally
free;
end;
end;
end;
procedure TMainForm.InsertEnumerateList;
begin
with TListForm.Create(Self) do
try
Caption:=SInsertNumberedList;
lblItemsCount.Caption:=sItemsCount;
speItemsCount.Value:=3;
If ShowModal=mrOK Then
CurrentEditor.InsertEnumerateList(speItemsCount.Value);
Finally
Free;
end;
end;
procedure TMainForm.InsertItemizeList;
begin
with TListForm.Create(Self) do
try
Caption:=SInsertBulletedList;
lblItemsCount.Caption:=sItemsCount;
speItemsCount.Value:=3;
If ShowModal=mrOK Then
CurrentEditor.InsertItemizeList(speItemsCount.Value);
Finally
Free;
end;
end;
procedure TMainForm.ShowAbout;
begin
with TAboutForm.Create(Self) do
try
ShowModal
finally
Free;
end;
end;
procedure TMainForm.GetCurrentFiles(List: TStrings);
var
I : Integer;
begin
for I:=0 to PCFiles.PageCount-1 do
List.Add(TEditorPage(PCFiles.Pages[i]).FileName);
end;
procedure TMainForm.ApplyOptions;
var
i: Integer;
begin
ShowHint := ShowHelpHints;
for i:=0 to ComponentCount-1 do
if Components[i] is TToolButton then
TToolButton(Components[i]).ShowHint:=ShowHelpHints;
end;
end.