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

lazde: patch by Alexey Lagunov:

Browse Source 
- fixed localization
  - improve compilation window - layout, etc.
  - other cosmetic fixes

git-svn-id: trunk@23782 -
This commit is contained in:
paul 2010-02-25 01:51:35 +00:00
parent 523fc39684
commit b4c420cb3f
18 changed files with 1760 additions and 397 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -2333,6 +2333,8 @@ designer/sizecompsdlg.lfm svneol=native#text/plain
designer/sizecompsdlg.pp svneol=native#text/pascal
designer/taborderdlg.lfm svneol=native#text/plain
designer/taborderdlg.pas svneol=native#text/pascal
doceditor/eleditor.lfm svneol=native#text/plain
doceditor/eleditor.lrs svneol=native#text/plain
doceditor/eleditor.pp svneol=native#text/pascal
doceditor/eleditor.xml svneol=native#text/xml
doceditor/fpdeutil.pp svneol=native#text/pascal
@ -2397,11 +2399,13 @@ doceditor/images/treenode_add24.bmp -text
doceditor/images/underline_blue24.bmp -text
doceditor/languages/lazde.po svneol=native#text/plain
doceditor/languages/lazde.ru.po svneol=native#text/plain
doceditor/lazde.ico -text svneol=unset#image/ico
doceditor/lazde.lpi svneol=native#text/plain
doceditor/lazde.lpr svneol=native#text/pascal
doceditor/lazde.res -text
doceditor/lazdemsg.pp svneol=native#text/pascal
doceditor/lazdeopts.pp svneol=native#text/pascal
doceditor/pgeditor.lfm svneol=native#text/plain
doceditor/pgeditor.pp svneol=native#text/pascal
doceditor/pkedit.pp svneol=native#text/pascal
doceditor/pkeditor.pp svneol=native#text/pascal

9
doceditor/eleditor.lfm Normal file
View File

@ -0,0 +1,9 @@
object CustomElementEditorNew: TCustomElementEditorNew
Left = 0
Height = 240
Top = 0
Width = 320
TabOrder = 0
DesignLeft = 487
DesignTop = 306
end

7
doceditor/eleditor.lrs Normal file
View File

@ -0,0 +1,7 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TCustomElementEditorNew','FORMDATA',[
'TPF0'#23'TCustomElementEditorNew'#22'CustomElementEditorNew'#4'Left'#2#0#6'H'
+'eight'#3#240#0#3'Top'#2#0#5'Width'#3'@'#1#8'TabOrder'#2#0#10'DesignLeft'#3
+#231#1#9'DesignTop'#3'2'#1#0#0
]);

77
doceditor/eleditor.pp
View File

@ -30,6 +30,11 @@ uses SysUtils, Classes, DOM, xmlread, xmlwrite, Forms, Controls, ExtCtrls,
ComCtrls, StdCtrls, Dialogs, Menus, fpdeutil, Lazdemsg, Lazdeopts,
GraphType, ActnList, LResources;
type
TCustomElementEditorNew = class(TFrame)
end;
Type
{ TCustomElementEditor }
@ -101,7 +106,7 @@ Type
BAddSeeAlso,
BEditSeeAlso,
BDeleteSeeAlso : TToolButton;
ILElements : TImageList;
//ILElements : TImageList;
FSeeAlso,
FExamples : TListBox;
FCurrentEditable : TWinControl;
@ -118,7 +123,7 @@ Type
Function EditLink(Var Value : String) : Boolean;
Public
Constructor Create (AOwner : TComponent); override;
Destructor destroy; override;
Destructor Destroy; override;
Procedure Refresh;override;
Function GetCurrentSelection : String; override;
Procedure SetElement (Value : TDomElement);override;
@ -134,10 +139,11 @@ Type
procedure InsertPrintShortLink(pLinkTarget: string); override;
end;
implementation
uses frmexample,frmLink, StrUtils;
uses frmexample, frmLink, StrUtils, LCLProc, FrmMain;
{$R *.lfm}
{ TCustomElementEditor }
@ -186,27 +192,29 @@ begin
LockOnChange;
Inherited;
FExampleNodes:=TList.create;
ILElements:=TImageList.Create(Self);
{ ILElements:=TImageList.Create(Self);
ILElements.Height:=22;
ILElements.Width:=22;
ILElements.AddLazarusResource('Insert_16N');
ILElements.AddLazarusResource('Edit_16N');
ILElements.AddLazarusResource('Delete_16N');
ILElements.AddLazarusResource('Delete_16N');}
P0:=TPanel.Create(Self);
With P0 do
begin
with P0 do
begin
Parent:=Self;
Align:=alTop;
Height:=75;
Height:=85;
BevelOuter:=bvNone;
end;
AutoSize:=true;
end;
FLabel:=TLabel.Create(Self);
With FLabel do
begin
begin
parent:=P0;
Caption:='<New element>';
Align:=alTop;
end;
end;
L:=TLabel.Create(self);
With L do
begin
@ -217,22 +225,24 @@ begin
end;
FShortEntry:=TEdit.Create(Self);
With FShortEntry do
begin
begin
Parent:=P0;
Top := 35;
Align:=alTop;
height:=24;
OnEnter:=@OnEnterControl;
OnChange:=@OnTextModified;
end;
end;
// Description
L:=TLabel.Create(self);
With L do
begin
Parent:=P0;
Align:=alBottom;
begin
// Parent:=P0;
Parent:=Self;
Align:=alTop;
Caption:=SDescription;
end;
end;
FDescrMemo:=TMemo.Create(Self);
With FDescrMemo do
begin
@ -311,13 +321,14 @@ begin
end;
TBSeeAlso:=TToolbar.Create(Self);
With TBSeeAlso do
begin
begin
PArent:=P4;
Align:=alRight;
Width:=100;
Transparent := True;
Images:=ILElements;
end;
Images:=MainForm.ILElements; //ILElements;
end;
BAddSeeAlso:=TToolButton.Create(Self);
With BAddSeeAlso do
begin
@ -375,13 +386,14 @@ begin
end;
TBExamples:=TToolbar.Create(Self);
With TBExamples do
begin
begin
PArent:=P4;
Align:=alRight;
Width:=100;
Transparent := True;
Images:=ILElements;
end;
Images:=MainForm.ILElements;//ILElements;
end;
BAddExample:=TToolButton.Create(Self);
With BAddExample do
begin
@ -666,21 +678,22 @@ begin
and ((TagType<>ttTable) or (FCurrentEditable is TMemo));
end;
Procedure TElementEditor.InsertTag (tagName : String);
Var
procedure TElementEditor.InsertTag (tagName : String);
var
S : String;
SS:integer;
begin
If Assigned(CurrentEditable) and (CurrentEditable is TCustomEdit) then
With TCustomEdit(CurrentEditable)do
begin
with TCustomEdit(CurrentEditable)do
begin
S:=SelText;
SS:=SelStart;
S:=Format('<%s>%s</%s>',[TagName,S,TagName]);
Seltext:=S;
SelLength:=Length(S);
SelStart:=SS;
SelLength:=UTF8Length(S);
Modified:=True;
end;
end;
end;
Procedure TElementEditor.InsertTag(TagType : TTagType);

600
doceditor/frmbuild.lfm
View File

@ -1,103 +1,84 @@
object BuildForm: TBuildForm
Left = 303
Height = 337
Top = 145
Width = 477
Left = 289
Height = 379
Top = 234
Width = 604
HorzScrollBar.Page = 476
VertScrollBar.Page = 336
ActiveControl = CBPackage
ActiveControl = CBHideProtected
Caption = 'Build documentation'
ClientHeight = 337
ClientWidth = 477
ClientHeight = 379
ClientWidth = 604
OnActivate = FormResize
OnCloseQuery = BuildFormCloseQuery
OnCreate = BuildFormCreate
OnResize = FormResize
OnShow = FormResize
LCLVersion = '0.9.29'
object LCBPackage: TLabel
Left = 7
Height = 14
Top = 12
Width = 41
AnchorSideLeft.Control = CBFormat
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 175
Height = 18
Top = 6
Width = 71
BorderSpacing.Around = 6
Caption = '&Package'
FocusControl = CBPackage
Layout = tlCenter
ParentColor = False
end
object LCBFormat: TLabel
Left = 7
Height = 14
Top = 40
Width = 35
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 18
Top = 6
Width = 61
BorderSpacing.Around = 6
Caption = '&Format'
FocusControl = CBFormat
Layout = tlCenter
ParentColor = False
end
object Label1: TLabel
Left = 8
Height = 14
Top = 75
Width = 35
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CBPackage
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 65
Width = 61
BorderSpacing.Around = 6
Caption = '&Output'
Layout = tlCenter
ParentColor = False
end
object CBPackage: TComboBox
Left = 112
Height = 21
Top = 8
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
MaxLength = 0
AnchorSideLeft.Control = LCBPackage
AnchorSideTop.Control = LCBPackage
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
Left = 181
Height = 29
Top = 30
Width = 348
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
TabOrder = 0
end
object BClose: TButton
Left = 397
Height = 25
Top = 104
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
Caption = '&Close'
OnClick = BCloseClick
TabOrder = 1
end
object BBuild: TButton
Left = 397
Height = 25
Top = 8
Width = 75
Action = ABuild
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
TabOrder = 2
end
object BLoad: TButton
Left = 397
Height = 25
Top = 40
Width = 75
Action = ALoad
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
TabOrder = 3
end
object BSave: TButton
Left = 397
Height = 25
Top = 72
Width = 75
Action = ASave
Anchors = [akTop, akRight]
BorderSpacing.InnerBorder = 4
TabOrder = 4
end
object CBFormat: TComboBox
Left = 112
Height = 21
Top = 39
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
AnchorSideLeft.Control = LCBFormat
AnchorSideTop.Control = LCBFormat
AnchorSideTop.Side = asrBottom
Left = 12
Height = 31
Top = 30
Width = 157
BorderSpacing.Around = 6
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'html'
@ -105,135 +86,196 @@ object BuildForm: TBuildForm
'man'
'txt'
)
MaxLength = 0
Style = csDropDownList
TabOrder = 5
TabOrder = 1
Text = 'html'
end
object PCOptions: TPageControl
Height = 200
Top = 137
Width = 477
ActivePage = TSDescription
Align = alBottom
TabIndex = 0
TabOrder = 6
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 221
Top = 158
Width = 604
ActivePage = TSOther
Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 2
TabOrder = 2
object TSDescription: TTabSheet
Caption = 'Description'
ClientHeight = 174
ClientWidth = 469
ClientHeight = 190
ClientWidth = 600
object PBDescr: TPanel
Left = 377
Height = 174
Width = 92
Left = 530
Height = 190
Top = 0
Width = 70
Align = alRight
AutoSize = True
BevelOuter = bvNone
ClientHeight = 174
ClientWidth = 92
ClientHeight = 190
ClientWidth = 70
FullRepaint = False
TabOrder = 0
object BAddDescription: TButton
Left = 10
Height = 25
AnchorSideLeft.Control = PBDescr
AnchorSideTop.Control = PBDescr
AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 6
Width = 75
Width = 58
Action = ADescrAdd
BorderSpacing.InnerBorder = 4
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 0
end
object BDeleteDescription: TButton
Left = 10
Height = 25
Top = 38
Width = 75
AnchorSideLeft.Control = PBDescr
AnchorSideTop.Control = BAddDescription
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 41
Width = 58
Action = ADescrDelete
BorderSpacing.InnerBorder = 4
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 1
end
object BEditDescription: TButton
Left = 10
Height = 25
Top = 70
Width = 75
AnchorSideLeft.Control = PBDescr
AnchorSideTop.Control = BDeleteDescription
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 76
Width = 58
Action = ADescrEdit
BorderSpacing.InnerBorder = 4
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 2
end
object BAddAll: TButton
Left = 10
Height = 25
Top = 100
Width = 75
AnchorSideLeft.Control = PBDescr
AnchorSideTop.Control = BEditDescription
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 111
Width = 58
Action = ADescrAddAll
BorderSpacing.InnerBorder = 4
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 3
end
end
object LBDescrFiles: TListBox
Height = 174
Width = 377
Left = 0
Height = 190
Top = 0
Width = 530
Align = alClient
ClickOnSelChange = False
ItemHeight = 0
TabOrder = 1
TopIndex = -1
end
end
object TSSources: TTabSheet
Caption = 'Sources'
ClientHeight = 174
ClientWidth = 469
ClientHeight = 190
ClientWidth = 600
object PSources: TPanel
Left = 377
Height = 174
Width = 92
Left = 530
Height = 190
Top = 0
Width = 70
Align = alRight
AutoSize = True
BevelOuter = bvNone
ClientHeight = 174
ClientWidth = 92
ClientHeight = 190
ClientWidth = 70
FullRepaint = False
TabOrder = 0
object BSourceAdd: TButton
Left = 12
Height = 25
AnchorSideLeft.Control = PSources
AnchorSideTop.Control = PSources
AnchorSideRight.Control = PSources
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 6
Width = 75
Width = 58
Action = ASourceAdd
BorderSpacing.InnerBorder = 4
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 0
end
object BSourceDelete: TButton
Left = 12
Height = 25
Top = 38
Width = 75
AnchorSideLeft.Control = PSources
AnchorSideTop.Control = BSourceAdd
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PSources
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 41
Width = 58
Action = ASourceDelete
BorderSpacing.InnerBorder = 4
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 1
end
object BSourceEdit: TButton
Left = 12
Height = 25
Top = 70
Width = 75
AnchorSideLeft.Control = PSources
AnchorSideTop.Control = BSourceDelete
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PSources
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 76
Width = 58
Action = ASourceEdit
BorderSpacing.InnerBorder = 4
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 2
end
end
object SGSources: TStringGrid
Height = 174
Width = 377
Left = 0
Height = 190
Top = 0
Width = 530
Align = alClient
Color = clWhite
ColCount = 2
DefaultColWidth = 150
DefaultRowHeight = 24
FixedColor = clBtnFace
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goSmoothScroll]
RowCount = 2
ScrollBars = ssAutoBoth
TabOrder = 1
TabStop = True
TitleStyle = tsNative
ColWidths = (
242
119
@ -251,114 +293,260 @@ object BuildForm: TBuildForm
end
object TSOther: TTabSheet
Caption = 'Other options'
ClientHeight = 190
ClientWidth = 600
object Label2: TLabel
Left = -2
Height = 23
Top = 106
Width = 113
AnchorSideLeft.Control = TSOther
AnchorSideTop.Control = CBWarnNoNode
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 81
Width = 128
Alignment = taRightJustify
BorderSpacing.Around = 6
Caption = 'Import content file'
Layout = tlCenter
ParentColor = False
end
object Label3: TLabel
Left = 46
Height = 23
Top = 137
Width = 65
AnchorSideLeft.Control = ETargetOS
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FEImportFIle
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ETargetCPU
AnchorSideBottom.Side = asrBottom
Left = 128
Height = 18
Top = 151
Width = 68
Alignment = taRightJustify
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Target OS'
Layout = tlCenter
ParentColor = False
end
object LTargetCPU: TLabel
Left = 198
Height = 23
Top = 137
Width = 40
AnchorSideLeft.Control = TSOther
AnchorSideTop.Control = FEImportFIle
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ETargetCPU
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 18
Top = 151
Width = 30
Alignment = taRightJustify
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'CPU'
Layout = tlCenter
ParentColor = False
end
object CBShowPrivate: TCheckBox
Left = 14
Height = 23
Top = 35
Width = 141
AnchorSideLeft.Control = TSOther
AnchorSideTop.Control = CBHideProtected
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 174
BorderSpacing.Around = 6
Caption = 'Show p&rivate methods'
TabOrder = 0
end
object CBHideProtected: TCheckBox
Left = 14
Height = 23
Top = 11
Width = 172
AnchorSideLeft.Control = TSOther
AnchorSideTop.Control = TSOther
Left = 6
Height = 19
Top = 6
Width = 189
BorderSpacing.Around = 6
Caption = '&Hide protected methods'
TabOrder = 1
end
object CBWarnNoNode: TCheckBox
Left = 14
Height = 23
Top = 59
Width = 232
AnchorSideLeft.Control = TSOther
AnchorSideTop.Control = CBShowPrivate
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 56
Width = 280
BorderSpacing.Around = 6
Caption = 'Warn if no documentation node found'
TabOrder = 2
end
object FEImportFIle: TFileNameEdit
Left = 118
Height = 23
Top = 106
Width = 318
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 12
Height = 29
Top = 105
Width = 562
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
ParentColor = False
BorderSpacing.Left = 6
BorderSpacing.Top = 6
MaxLength = 0
TabOrder = 3
end
object ETargetOS: TEdit
Left = 118
Height = 23
Top = 137
AnchorSideLeft.Control = LTargetCPU
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FEImportFIle
AnchorSideTop.Side = asrBottom
Left = 42
Height = 29
Top = 140
Width = 80
BorderSpacing.Around = 6
TabOrder = 4
end
object ETargetCPU: TEdit
Left = 246
Height = 23
Top = 137
Width = 80
AnchorSideLeft.Control = Label3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FEImportFIle
AnchorSideTop.Side = asrBottom
Left = 202
Height = 29
Top = 140
Width = 120
BorderSpacing.Around = 6
TabOrder = 5
end
end
object TSBuild: TTabSheet
Caption = 'Build output'
ClientHeight = 190
ClientWidth = 600
object MLog: TMemo
Height = 170
Width = 473
Left = 0
Height = 190
Top = 0
Width = 600
Align = alClient
TabOrder = 0
end
end
end
object EOutput: TEditButton
Left = 112
Height = 23
Top = 72
Width = 239
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 29
Top = 89
Width = 490
Anchors = [akTop, akLeft, akRight]
ButtonWidth = 23
CharCase = ecNormal
MaxLength = 0
NumGlyphs = 1
OnButtonClick = EOutputButtonClick
ParentColor = False
TabOrder = 7
TabOrder = 3
end
object CBContent: TCheckBox
Left = 112
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CBPackage
AnchorSideTop.Side = asrBottom
Left = 73
Height = 19
Top = 101
Width = 112
Top = 65
Width = 149
BorderSpacing.Around = 6
Caption = 'Create cont&ent file'
TabOrder = 8
TabOrder = 4
end
object Panel1: TPanel
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 535
Height = 146
Top = 6
Width = 63
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 146
ClientWidth = 63
TabOrder = 5
object BSave: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = BLoad
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 76
Width = 51
Action = ASave
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 0
end
object BLoad: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = BBuild
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 41
Width = 51
Action = ALoad
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 1
end
object BBuild: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 6
Width = 51
Action = ABuild
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 2
end
object BClose: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = BSave
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 29
Top = 111
Width = 51
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Close'
OnClick = BCloseClick
TabOrder = 3
end
end
object ODSettings: TOpenDialog
Title = 'Open existing file'
@ -366,8 +554,8 @@ object BuildForm: TBuildForm
Filter = 'Documentation project files|*.ldp|All files|*.*'
FilterIndex = 0
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 8
top = 286
left = 472
top = 72
end
object SDSettings: TSaveDialog
Title = 'Save file as'
@ -375,8 +563,8 @@ object BuildForm: TBuildForm
Filter = 'Documentation project files|*.ldp|All files|*.*'
FilterIndex = 0
Options = [ofPathMustExist, ofEnableSizing, ofViewDetail]
left = 8
top = 248
left = 408
top = 72
end
object ODDescription: TOpenDialog
Title = 'Open existing file'
@ -384,67 +572,73 @@ object BuildForm: TBuildForm
Filter = 'XML files|*.xml|All files|*.*'
FilterIndex = 0
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 296
top = 360
left = 408
top = 120
end
object ActionList1: TActionList
left = 105
top = 51
left = 344
top = 128
object ADescrAdd: TAction
Caption = '&Add'
DisableIfNoHandler = True
OnExecute = ADescrAddExecute
end
object ADescrEdit: TAction
Caption = '&Edit'
DisableIfNoHandler = True
OnExecute = ADescrEditExecute
OnUpdate = ADescrEditUpdate
end
object ADescrDelete: TAction
Caption = '&Delete'
DisableIfNoHandler = True
OnExecute = ADescrDeleteExecute
OnUpdate = ADescrDeleteUpdate
end
object ABuild: TAction
Caption = '&Build'
DisableIfNoHandler = True
OnExecute = ABuildExecute
OnUpdate = ABuildUpdate
end
object ASourceAdd: TAction
Caption = '&Add'
DisableIfNoHandler = True
OnExecute = ASourceAddExecute
end
object ASourceEdit: TAction
Caption = '&Edit'
DisableIfNoHandler = True
OnExecute = ASourceEditExecute
OnUpdate = ASourceEditUpdate
end
object ASourceDelete: TAction
Caption = '&Delete'
DisableIfNoHandler = True
OnExecute = ASourceDeleteExecute
OnUpdate = ASourceDeleteUpdate
end
object ADescrAddAll: TAction
Caption = 'Add All'
DisableIfNoHandler = True
OnExecute = ADescrAddAllExecute
OnUpdate = ADescrAddAllUpdate
end
object ALoad: TAction
Caption = '&Load'
DisableIfNoHandler = True
OnExecute = ALoadExecute
end
object ASave: TAction
Caption = '&Save'
DisableIfNoHandler = True
OnExecute = ASaveExecute
end
end
object Compiller: TProcessUTF8
Active = False
Options = [poUsePipes, poStderrToOutPut, poNoConsole]
Priority = ppNormal
StartupOptions = []
ShowWindow = swoNone
WindowColumns = 0
WindowHeight = 0
WindowLeft = 0
WindowRows = 0
WindowTop = 0
WindowWidth = 0
FillAttribute = 0
left = 408
top = 208
end
end

143
doceditor/frmbuild.pp
View File

@ -81,6 +81,8 @@ type
MLog: TMemo;
ODSettings: TOpenDialog;
ODDescription: TOpenDialog;
Panel1: TPanel;
Compiller: TProcessUTF8;
PSources: TPanel;
PBDescr: TPanel;
PCOptions: TPageControl;
@ -112,6 +114,7 @@ type
procedure BuildFormCreate(Sender: TObject);
procedure BuildFormDestroy(Sender: TObject);
procedure EOutputButtonClick(Sender: TObject);
procedure FormResize(Sender: TObject);
private
FFileName: String;
OldBuf: String;
@ -121,7 +124,7 @@ type
Procedure SaveOptions(Const AFileName : String);
Procedure LoadOptions(Const AFileName : String);
procedure SetFileName(const AValue: String);
procedure AddToLog(S : String);
procedure AddToLog(const S : String);
procedure AppendBufToLog(Buf : PChar; BufSize : Integer);
Function BuildCommandLine : String ;
procedure BuildDocs;
@ -155,7 +158,7 @@ var
implementation
uses Inifiles,frmSource,lazdeopts;
uses IniFiles, frmSource, lazdeopts;
{$R *.lfm}
@ -192,9 +195,33 @@ resourcestring
SEditDescriptionFile = 'Change description file';
SSelectOutputFile = 'Select output file name';
SSelectOutputDirectory = 'Select output directory';
SUsingCommand = 'Building docs using command: ';
SErrFPDoc = 'Building failed with exit code %d. Please check log.';
SBuildOK = 'Documentation successfully built.';
SUsingCommand = 'Building docs using command: ';
SErrFPDoc = 'Building failed with exit code %d. Please check log.';
SBuildOK = 'Documentation successfully built.';
sBuildDocumentation = 'Build documentation';
sPackage = '&Package';
sFormat = '&Format';
sOutput = '&Output';
sCreateContentFile = 'Create cont&ent file';
sBuild = '&Build';
sLoad = '&Load';
sSave = '&Save';
sClose = '&Close';
sAdd = '&Add';
sDelete = '&Delete';
sEdit = '&Edit';
sAddAll = 'Add All';
sDescription = 'Description';
sSourcesCapt = 'Sources';
sOtherOptions = 'Other options';
sBuildOutput = 'Build output';
sHideProtectedMethods = '&Hide protected methods';
sImportContentFile = 'Import content file';
sTargetOS = 'Target OS';
sCPU = 'CPU';
sShowPrivateMethods = 'Show p&rivate methods';
sWarnIfNoDocumentationNodeFound = 'Warn if no documentation node found';
{ TBuildForm }
@ -348,20 +375,49 @@ end;
procedure TBuildForm.BCloseClick(Sender: TObject);
begin
if Sender=nil then ;
Close;
end;
procedure TBuildForm.BuildFormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
if Sender=nil then ;
CanClose:=True; // Check here for modifications.
end;
procedure TBuildForm.BuildFormCreate(Sender: TObject);
begin
if Sender=nil then ;
FOptions:=TStringList.Create;
//i18n
Caption:=sBuildDocumentation;
LCBPackage.Caption:=sPackage;
LCBFormat.Caption:=sFormat;
Label1.Caption:=sOutput;
CBContent.Caption:=sCreateContentFile;
BBuild.Caption:=sBuild;
BLoad.Caption:=sLoad;
BSave.Caption:=sSave;
BClose.Caption:=sClose;
BAddDescription.Caption:=sAdd;//'&Add';
BDeleteDescription.Caption:=sDelete; //'&Delete';
BEditDescription.Caption:=sEdit;//'&Edit';
BAddAll.Caption:=sAddAll;//'Add All';
BSourceAdd.Caption:=sAdd;
BSourceDelete.Caption:=sDelete;
BSourceEdit.Caption:=sEdit;
TSDescription.Caption:=sDescription;//'Description';
TSSources.Caption:=sSourcesCapt;//'Sources';
TSOther.Caption:=sOtherOptions;//'Other options';
TSBuild.Caption:=sBuildOutput;//'Build output';
CBHideProtected.Caption:=sHideProtectedMethods;//'&Hide protected methods';
Label2.Caption:=sImportContentFile;//'Import content file';
Label3.Caption:=sTargetOS; //'Target OS';
LTargetCPU.Caption:=sCPU; //'CPU';
CBShowPrivate.Caption:=sShowPrivateMethods;//'Show p&rivate methods';
CBWarnNoNode.Caption:=sWarnIfNoDocumentationNodeFound;//'Warn if no documentation node found';
end;
procedure TBuildForm.BuildFormDestroy(Sender: TObject);
@ -372,7 +428,6 @@ end;
procedure TBuildForm.EOutputButtonClick(Sender: TObject);
begin
if Sender=nil then ;
if (lowercase(cbFormat.text)='html') then
With TSelectDirectoryDialog.Create(Self) do
begin
@ -392,6 +447,11 @@ begin
end
end;
procedure TBuildForm.FormResize(Sender: TObject);
begin
EOutput.Width:= Panel1.Left - EOutput.ButtonWidth - 12;
end;
{ ---------------------------------------------------------------------
general loading and saving of form.
---------------------------------------------------------------------}
@ -632,8 +692,7 @@ begin
Result:=SGSources.Row-1;
end;
procedure TBuildForm.AddToLog(S : String);
procedure TBuildForm.AddToLog(const S : String);
begin
MLog.Lines.Add(S);
end;
@ -659,11 +718,9 @@ begin
end;
Function TBuildForm.BuildCommandLine : String ;
Var
var
I : Integer;
FN,O : String;
begin
Result:=cmdFPDoc;
Result:=Result+' --package='+CBPackage.Text;
@ -685,13 +742,14 @@ begin
Result:=Result+' --cputarget='+ETargetCPU.Text;
For I:=1 to DescrFileCount do
Result:=Result+' --descr='+DescrFile(I-1);
For I:=1 to SourceFileCount do
begin
for i:=1 to SourceFileCount do
begin
GetSourceOptions(I-1,FN,O);
If (O<>'') then
if (O<>'') then
FN:=FN+' '+O;
Result:=Result+' --input="'+FN+'"';
end;
Result:=Result+' --input='+FN+'';
end;
end;
@ -700,35 +758,36 @@ procedure TBuildForm.BuildDocs;
Const
BufSize = 1024;
Var
var
Buf : Array[0..BufSize] of char;
Cmd : String;
R : Integer;
R, E : Integer;
begin
PCOptions.ActivePage:=TSBuild;
MLog.Lines.Clear;
OldBuf:='';
Buf[BufSize]:=#0;
With TProcessUTF8.Create(Self) do
begin
Cmd:=BuildCommandLine;
CommandLine:=Cmd;
AddToLog(SUsingCommand+Cmd);
Options:=[poUsePipes,poNoConsole,poStderrToOutPut];
Execute;
r:=Output.Read(Buf,BufSize);
While (r>0) do
begin
AppendBufToLog(@Buf,R);
r:=Output.Read(Buf,BufSize);
end;
If (OldBuf<>'') then
AddToLog(OldBuf);
If ExitCode<>0 then
MessageDLG(Format(SErrfpdoc,[ExitCode]),mtError,[mbOK],0)
else
AddToLog(SBuildOK);
end;
Cmd:=BuildCommandLine;
Compiller.CommandLine:=Cmd;
AddToLog(SUsingCommand);
AddToLog(Cmd);
Compiller.Execute;
R:=Compiller.Output.Read(Buf,BufSize);
while (R>0) do
begin
AppendBufToLog(@Buf,R);
R:=Compiller.Output.Read(Buf,BufSize);
end;
If (OldBuf<>'') then
AddToLog(OldBuf);
E:=Compiller.ExitStatus;
If E <> 0 then
MessageDLG(Format(SErrfpdoc,[E]),mtError,[mbOK],0)
else
AddToLog(SBuildOK);
end;

432
doceditor/frmmain.lfm
View File

@ -2394,4 +2394,436 @@ object MainForm: TMainForm
83FFB78183FFB78183FFB78183FF
}
end
object ILElements: TImageList
Height = 22
Width = 22
left = 135
top = 200
Bitmap = {
4C69070000001600000016000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00E87300FFFF8A17FFFF952DFFFF9125FFFC7D00FFC66200FFFF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000FF00FF00FF00FF00FF00FF00FF9833FFFF9833FFFBA14AFFF9A4
51FFF7A350FFF5A04BFFF39C47FFEE9843FFE06F00FFE06F00FFFF00FF00FF00
FF00FF00FF00000000000000000000000000000000000000000000000000FF00
FF00FF00FF00D26800FFFC9F44FFFAA654FFF9A859FFF8A553FFF59A40FFF191
32FFEF8D2DFFEC8A2AFFE88524FFE4811FFF8A4400FFFF00FF00FF00FF000000
00000000000000000000000000000000000000000000FF00FF00EC7500FFF194
3AFFFAA958FFF9A95AFFF79C43FFF4902EFFF0851BFFEC7D10FFE97A0DFFE578
0DFFE2760DFFDF760FFFC16812FF8E4600FFFF00FF0000000000000000000000
0000000000000000000000000000FF00FF00EC7500FFFAA654FFF9A95AFFF79A
3FFFF3881FFFEF7E0EFFFFFFFFFFFFFFFFFFE47201FFE07001FFDD6E02FFDA6E
04FFD66D05FF8E4600FFFF00FF00000000000000000000000000000000000000
000000000000A04F00FFF89B40FFF9A859FFF79C43FFF3881FFFEF7B0AFFEB75
02FFFFFFFFFFFFFFFFFFE06F00FFDD6D00FFD96C00FFD56A00FFD26901FFB359
00FF663200FF000000000000000000000000000000000000000000000000A04F
00FFF9A451FFF8A553FFF4902EFFEF7E0EFFEB7502FFE87300FFFFFFFFFFFFFF
FFFFDD6D00FFD96C00FFD56A00FFD26800FFCE6600FFCA6400FF663200FF0000
00000000000000000000000000000000000000000000A04F00FFF7A350FFF59A
40FFF0851BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFCE6600FFCA6400FFC76300FF723800FF00000000000000000000
0000000000000000000000000000904700FFF5A04BFFF19132FFEC7D11FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCA64
00FFC76300FFC46100FF6A3400FF000000000000000000000000000000000000
0000000000007A3C00FFF39D48FFEF8D2DFFE97A0DFFE47201FFE06F00FFDD6D
00FFFFFFFFFFFFFFFFFFD26800FFCE6600FFCA6400FFC76300FFC46100FFC15F
00FF602F00FF0000000000000000000000000000000000000000000000007A3C
00FFD78C43FFEC8A2AFFE5780DFFE07001FFDD6D00FFD96C00FFFFFFFFFFFFFF
FFFFCE6600FFCA6400FFC76300FFC46100FFC15F00FFA75300FF602F00FF0000
00000000000000000000000000000000000000000000FF00FF00906134FFE885
24FFE2760DFFDD6E02FFD96C00FFD56A00FFFFFFFFFFFFFFFFFFCA6400FFC763
00FFC46100FFC15F00FFBE5E00FF6C3500FFFF00FF0000000000000000000000
0000000000000000000000000000FF00FF00865321FFC9721FFFDF760FFFDA6E
04FFD56A00FFD26800FFCE6600FFCA6400FFC76300FFC46100FFC15F00FFBE5E
00FFA65200FF6C3500FFFF00FF00000000000000000000000000000000000000
000000000000FF00FF00FF00FF0085511FFFC16812FFD66D05FFD26901FFCE66
00FFCA6400FFC76300FFC46100FFC15F00FFBE5E00FFA65200FF502800FFFF00
FF00FF00FF00000000000000000000000000000000000000000000000000FF00
FF00FF00FF00FF00FF006A390AFF663303FFB35900FFCA6400FFC76300FFC461
00FFC15F00FFA75300FF6C3500FF6C3500FFFF00FF00FF00FF00FF00FF000000
00000000000000000000000000000000000000000000FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF004C2600FF602F00FF723800FF723800FF623000FF5028
00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00E87300FFFF8A17FFFF952DFFFF91
25FFFC7D00FFC66200FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
00000000000000000000000000000000000000000000FF00FF00FF00FF00FF00
FF00FF9833FFFF9833FFFBA14AFFF9A451FFF7A350FFF5A04BFFF39C47FFEE98
43FFE06F00FFE06F00FFFF00FF00FF00FF00FF00FF0000000000000000000000
0000000000000000000000000000FF00FF00FF00FF00D26800FFFC9F44FFFAA6
54FFF9A859FFF8A553FFF59A40FFF19132FFEF8D2DFFEC8A2AFFE88524FFE481
1FFF8A4400FFFF00FF00FF00FF00000000000000000000000000000000000000
000000000000FF00FF00EC7500FFF1943AFFFAA958FFF9A95AFFF79C43FFF490
2EFFF0851BFFEC7D10FFE97A0DFFE5780DFFE2760DFFDF760FFFC16812FF8E46
00FFFF00FF00000000000000000000000000000000000000000000000000FF00
FF00EC7500FFFAA654FFF9A95AFFF79A3FFFF3881FFFEF7E0EFFEB7706FFE874
02FFE47201FFE07001FFDD6E02FFDA6E04FFD66D05FF8E4600FFFF00FF000000
00000000000000000000000000000000000000000000A04F00FFF89B40FFF9A8
59FFF79C43FFF3881FFFEF7B0AFFEB7502FFEB8927FFE88626FFE06F00FFDD6D
00FFD96C00FFD56A00FFD26901FFB35900FF663200FF00000000000000000000
0000000000000000000000000000A04F00FFF9A451FFF8A553FFF4902EFFEF7E
0EFFEB7502FFF0A459FFFFFFFFFFFFFFFFFFE9A059FFD96C00FFD56A00FFD268
00FFCE6600FFCA6400FF663200FF000000000000000000000000000000000000
000000000000A04F00FFF7A350FFF59A40FFF0851BFFEB7706FFF0A55AFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFE49E59FFD26800FFCE6600FFCA6400FFC763
00FF723800FF0000000000000000000000000000000000000000000000009047
00FFF5A04BFFF19132FFEC7D11FFF0A55AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFDF9B59FFCA6400FFC76300FFC46100FF6A3400FF0000
000000000000000000000000000000000000000000007A3C00FFF39D48FFEF8D
2DFFE97A0DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFC76300FFC46100FFC15F00FF602F00FF00000000000000000000
00000000000000000000000000007A3C00FFD78C43FFEC8A2AFFE5780DFFE070
01FFDD6D00FFD96C00FFD56A00FFD26800FFCE6600FFCA6400FFC76300FFC461
00FFC15F00FFA75300FF602F00FF000000000000000000000000000000000000
000000000000FF00FF00906134FFE88524FFE2760DFFDD6E02FFD96C00FFD56A
00FFD26800FFCE6600FFCA6400FFC76300FFC46100FFC15F00FFBE5E00FF6C35
00FFFF00FF00000000000000000000000000000000000000000000000000FF00
FF00865321FFC9721FFFDF760FFFDA6E04FFD56A00FFD26800FFCE6600FFCA64
00FFC76300FFC46100FFC15F00FFBE5E00FFA65200FF6C3500FFFF00FF000000
00000000000000000000000000000000000000000000FF00FF00FF00FF008551
1FFFC16812FFD66D05FFD26901FFCE6600FFCA6400FFC76300FFC46100FFC15F
00FFBE5E00FFA65200FF502800FFFF00FF00FF00FF0000000000000000000000
0000000000000000000000000000FF00FF00FF00FF00FF00FF006A390AFF6633
03FFB35900FFCA6400FFC76300FFC46100FFC15F00FFA75300FF6C3500FF6C35
00FFFF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF004C2600FF602F
00FF723800FF723800FF623000FF502800FFFF00FF00FF00FF00FF00FF00FF00
FF00FF00FF000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00E87300FFFF8A17FFFF952DFFFF9125FFFC7D00FFC66200FFFF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000FF00FF00FF00FF00FF00FF00FF9833FFFF9833FFFBA14AFFF9A4
51FFF7A350FFF5A04BFFF39C47FFEE9843FFE06F00FFE06F00FFFF00FF00FF00
FF00FF00FF00000000000000000000000000000000000000000000000000FF00
FF00FF00FF00D26800FFFC9F44FFFAA654FFF9A859FFF8A553FFF59A40FFF191
32FFEF8D2DFFEC8A2AFFE88524FFE4811FFF8A4400FFFF00FF00FF00FF000000
00000000000000000000000000000000000000000000FF00FF00EC7500FFF194
3AFFFAA958FFF9A95AFFF79C43FFF4902EFFF0851BFFEC7D10FFE97A0DFFE578
0DFFE2760DFFDF760FFFC16812FF8E4600FFFF00FF0000000000000000000000
0000000000000000000000000000FF00FF00EC7500FFFAA654FFF9A95AFFF79A
3FFFF3881FFFEF7E0EFFEB7706FFE87402FFE47201FFE07001FFDD6E02FFDA6E
04FFD66D05FF8E4600FFFF00FF00000000000000000000000000000000000000
000000000000A04F00FFF89B40FFF9A859FFF79C43FFF3881FFFEF7B0AFFEB75
02FFE87401FFE47100FFE06F00FFDD6D00FFD96C00FFD56A00FFD26901FFB359
00FF663200FF000000000000000000000000000000000000000000000000A04F
00FFF9A451FFF8A553FFF4902EFFEF7E0EFFEB7502FFE87300FFE47100FFE06F
00FFDD6D00FFD96C00FFD56A00FFD26800FFCE6600FFCA6400FF663200FF0000
00000000000000000000000000000000000000000000A04F00FFF7A350FFF59A
40FFF0851BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFCE6600FFCA6400FFC76300FF723800FF00000000000000000000
0000000000000000000000000000904700FFF5A04BFFF19132FFEC7D11FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCA64
00FFC76300FFC46100FF6A3400FF000000000000000000000000000000000000
0000000000007A3C00FFF39D48FFEF8D2DFFE97A0DFFE47201FFE06F00FFDD6D
00FFD96C00FFD56A00FFD26800FFCE6600FFCA6400FFC76300FFC46100FFC15F
00FF602F00FF0000000000000000000000000000000000000000000000007A3C
00FFD78C43FFEC8A2AFFE5780DFFE07001FFDD6D00FFD96C00FFD56A00FFD268
00FFCE6600FFCA6400FFC76300FFC46100FFC15F00FFA75300FF602F00FF0000
00000000000000000000000000000000000000000000FF00FF00906134FFE885
24FFE2760DFFDD6E02FFD96C00FFD56A00FFD26800FFCE6600FFCA6400FFC763
00FFC46100FFC15F00FFBE5E00FF6C3500FFFF00FF0000000000000000000000
0000000000000000000000000000FF00FF00865321FFC9721FFFDF760FFFDA6E
04FFD56A00FFD26800FFCE6600FFCA6400FFC76300FFC46100FFC15F00FFBE5E
00FFA65200FF6C3500FFFF00FF00000000000000000000000000000000000000
000000000000FF00FF00FF00FF0085511FFFC16812FFD66D05FFD26901FFCE66
00FFCA6400FFC76300FFC46100FFC15F00FFBE5E00FFA65200FF502800FFFF00
FF00FF00FF00000000000000000000000000000000000000000000000000FF00
FF00FF00FF00FF00FF006A390AFF663303FFB35900FFCA6400FFC76300FFC461
00FFC15F00FFA75300FF6C3500FF6C3500FFFF00FF00FF00FF00FF00FF000000
00000000000000000000000000000000000000000000FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF004C2600FF602F00FF723800FF723800FF623000FF5028
00FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFFFF909290FF8486
84FF848684FF848684FF848684FF848684FF848684FF848684FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFF909290FF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFF00FFFFFFFFFFFFFFC6C7C6FF848684FFFFFFFFFFFFFFFFFFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FFFFFFFF909290FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
FFFF00FFFFFFC6C7C6FFFFFFFFFF848684FFFFFFFFFFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFF909290FF00FFFFFFFFFFFFFF0808EEFFFFFFFFFF00FFFFFFFFFFFFFF0000
00FF000000FF000000FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFFFF888B88FFFFFF
FFFF00FFFFFF0808EEFF0808EEFFFFFFFFFF0808EEFF0808EEFF00FFFFFFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FDFEFDFF8B8E8BFF00FFFFFFFFFFFFFF0808
EEFF0808EEFF0808EEFF0808EEFF0808EEFFFFFFFFFFC6C7C6FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FDFDFDFF909290FFFFFFFFFF00FFFFFF0808EEFF00FFFFFF0808
EEFF00FFFFFF0808EEFF00FFFFFFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FDFD
FDFF909290FF00FFFFFFFFFFFFFF0808EEFFFFFFFFFF0808EEFFFFFFFFFF0808
EEFFFFFFFFFFC6C7C6FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FDFDFDFF909290FFFFFF
FFFF00FFFFFF0808EEFF00FFFFFFFFFFFFFF00FFFFFF0808EEFF00FFFFFFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FEFEFEFF909290FF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFFC6C7C6FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FDFDFDFF909290FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7
C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FEFE
FEFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FEFEFEFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FFFFFFFF909290FF848684FF848684FF848684FF848684FF8486
84FF848684FF848684FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFF909290FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFFC6C7
C6FF848684FFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFFFF909290FFFFFF
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFC6C7C6FFFFFFFFFF8486
84FFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFF909290FF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000000FF000000FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FFFFFFFF888B88FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
FFFF1E6F08FF1E6F08FF00FFFFFFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FDFE
FDFF8B8E8BFF00FFFFFF1E6F08FF00FFFFFFFFFFFFFF00FFFFFF1E6F08FF1E6F
08FFFFFFFFFFC6C7C6FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FDFDFDFF909290FFFFFF
FFFF1E6F08FF1E6F08FF00FFFFFF1E6F08FF1E6F08FFFFFFFFFF00FFFFFFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FDFDFDFF909290FF00FFFFFF1E6F08FF1E6F
08FFFFFFFFFF1E6F08FF1E6F08FF00FFFFFFFFFFFFFFC6C7C6FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FDFDFDFF909290FFFFFFFFFF00FFFFFF1E6F08FF1E6F08FF1E6F
08FF00FFFFFFFFFFFFFF00FFFFFFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FEFE
FEFF909290FF00FFFFFFFFFFFFFF00FFFFFF1E6F08FF1E6F08FFFFFFFFFF00FF
FFFFFFFFFFFFC6C7C6FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FDFDFDFF909290FFC6C7
C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FEFEFEFF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFFFF909290FF8486
84FF848684FF848684FF848684FF848684FF848684FF848684FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFF909290FF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFF00FFFFFFFFFFFFFFC6C7C6FF848684FFFFFFFFFFFFFFFFFFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FFFFFFFF909290FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
FFFF00FFFFFFC6C7C6FFFFFFFFFF848684FFFFFFFFFFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFF909290FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF0000
00FF000000FF000000FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFFFF888B88FFFFFF
FFFFFD002AFFFD002AFFFD002AFFFD002AFFFD002AFFFD002AFF00FFFFFFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FDFEFDFF8B8E8BFF00FFFFFFFD002AFFFD00
2AFFFD002AFFFD002AFFFD002AFFFD002AFFFFFFFFFFC6C7C6FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FDFDFDFF909290FFFFFFFFFFFD002AFFFFFFFFFFFD002AFFFD00
2AFF00FFFFFFFD002AFF00FFFFFFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FDFD
FDFF909290FF00FFFFFFFFFFFFFF00FFFFFFFD002AFFFD002AFFFFFFFFFF00FF
FFFFFFFFFFFFC6C7C6FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FDFDFDFF909290FFFFFF
FFFF00FFFFFFFFFFFFFFFD002AFFFD002AFF00FFFFFFFFFFFFFF00FFFFFFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FEFEFEFF909290FF00FFFFFFFFFFFFFFFD00
2AFFFD002AFFFD002AFFFD002AFF00FFFFFFFFFFFFFFC6C7C6FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FDFDFDFF909290FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7
C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FEFE
FEFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FEFEFEFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FFFFFFFF909290FF848684FF848684FF848684FF848684FF8486
84FF848684FF848684FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFF909290FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFFC6C7
C6FF848684FFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FFFFFFFF909290FFFFFF
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFC6C7C6FFFFFFFFFF8486
84FFFFFFFFFFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FFFFFFFF909290FF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000000FF000000FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FFFFFFFF888B88FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
FFFF00FFFFFFFFFFFFFF00FFFFFFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FDFE
FDFF8B8E8BFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFFC6C7C6FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FDFDFDFF909290FFFFFF
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FDFDFDFF909290FF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFFC6C7C6FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FDFDFDFF909290FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
FFFF00FFFFFFFFFFFFFF00FFFFFFC6C7C6FF000000FFFFFFFFFF000000000000
000000000000000000000000000000000000000000000000000000000000FEFE
FEFF909290FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
FFFFFFFFFFFFC6C7C6FF000000FFFFFFFFFF0000000000000000000000000000
00000000000000000000000000000000000000000000FDFDFDFF909290FFC6C7
C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7C6FFC6C7
C6FF000000FFFFFFFFFF00000000000000000000000000000000000000000000
0000000000000000000000000000FEFEFEFF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFFFFF
FFFF000000000000000000000000000000000000000000000000000000000000
000000000000FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000
}
end
end

20
doceditor/frmmain.pp
View File

@ -63,6 +63,7 @@ type
AClose: TAction;
ALMain: TActionList;
ILMain: TImageList;
ILElements: TImageList;
LIBuild: TMenuItem;
MenuItem1: TMenuItem;
QuickLink: TMenuItem;
@ -252,16 +253,15 @@ end;
procedure TMainForm.AExtraBuildExecute(Sender: TObject);
begin
if Sender=nil then ;
With TBuildForm.Create(Self) do
Try
FileName := FRecentBuildSettingsFile;
OnGetList:=@Self.GetCurrentFiles;
ShowModal;
FRecentBuildSettingsFile := FileName;
Finally
Free;
end;
with TBuildForm.Create(Self) do
try
FileName := FRecentBuildSettingsFile;
OnGetList:=@Self.GetCurrentFiles;
ShowModal;
FRecentBuildSettingsFile := FileName;
finally
Free;
end;
end;
procedure TMainForm.ACloseExecute(Sender: TObject);

263
doceditor/frmoptions.lfm
View File

@ -1,136 +1,148 @@
object OptionsForm: TOptionsForm
Left = 350
Height = 352
Height = 367
Top = 262
Width = 486
Width = 526
HorzScrollBar.Page = 397
VertScrollBar.Page = 336
ActiveControl = PageControl1
BorderStyle = bsDialog
Caption = 'Options'
ClientHeight = 352
ClientWidth = 486
ClientHeight = 367
ClientWidth = 526
OnClose = FormClose
OnShow = OptionsFormShow
LCLVersion = '0.9.29'
object PageControl1: TPageControl
Left = 0
Height = 300
Height = 315
Top = 0
Width = 486
Width = 526
ActivePage = tabGeneral
Align = alClient
TabIndex = 0
TabOrder = 0
object tabGeneral: TTabSheet
Caption = 'General'
ClientHeight = 269
ClientWidth = 482
ClientHeight = 284
ClientWidth = 522
object LEBackupExtension: TLabel
Left = 6
AnchorSideLeft.Control = LEDefaultExtension
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
Left = 158
Height = 18
Top = 130
Top = 101
Width = 125
Alignment = taRightJustify
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'Backup extension'
FocusControl = EBackupExtension
Layout = tlCenter
ParentColor = False
end
object LEMaxMRU: TLabel
Left = 6
AnchorSideLeft.Control = LEBackupExtension
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
Left = 313
Height = 18
Top = 153
Top = 101
Width = 120
Alignment = taRightJustify
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'Max. recent used'
Layout = tlCenter
ParentColor = False
end
object LEDefaultExtension: TLabel
AnchorSideLeft.Control = tabGeneral
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 104
Top = 101
Width = 122
Alignment = taRightJustify
BorderSpacing.Around = 6
Caption = 'Default extension'
Layout = tlCenter
ParentColor = False
end
object LFEMakeskel: TLabel
AnchorSideLeft.Control = tabGeneral
AnchorSideTop.Control = EDefaultExtension
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 186
Top = 160
Width = 129
Alignment = taRightJustify
BorderSpacing.Around = 6
Caption = 'makeskel program'
FocusControl = FEMakeSkel
Layout = tlCenter
ParentColor = False
end
object LFEfpdoc: TLabel
AnchorSideLeft.Control = tabGeneral
AnchorSideTop.Control = FEMakeSkel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 220
Top = 219
Width = 102
Alignment = taRightJustify
BorderSpacing.Around = 6
Caption = 'fpdoc program'
Layout = tlCenter
ParentColor = False
end
object CBConfirmDelete: TCheckBox
Left = 6
Height = 19
Top = 6
Width = 131
AllowGrayed = True
Caption = 'C&onfirm deletes'
object EBackupExtension: TEdit
AnchorSideLeft.Control = LEBackupExtension
AnchorSideTop.Control = LEBackupExtension
AnchorSideTop.Side = asrBottom
Left = 164
Height = 29
Top = 125
Width = 119
BorderSpacing.Around = 6
TabOrder = 0
end
object CBCreateBackup: TCheckBox
Left = 6
Height = 19
Top = 34
Width = 129
AllowGrayed = True
Caption = 'Create &backups'
object SEMaxRecentUsed: TSpinEdit
AnchorSideLeft.Control = LEMaxMRU
AnchorSideTop.Control = LEMaxMRU
AnchorSideTop.Side = asrBottom
Left = 319
Height = 27
Top = 125
Width = 116
BorderSpacing.Around = 6
TabOrder = 1
end
object CBSkipEmptyNodes: TCheckBox
Left = 6
Height = 19
Top = 66
Width = 234
AllowGrayed = True
Caption = '&Skip empty nodes when saving'
TabOrder = 2
end
object EBackupExtension: TEdit
Left = 120
object EDefaultExtension: TEdit
AnchorSideLeft.Control = LEDefaultExtension
AnchorSideTop.Control = LEDefaultExtension
AnchorSideTop.Side = asrBottom
Left = 12
Height = 29
Top = 130
Width = 80
TabOrder = 3
end
object SEMaxRecentUsed: TSpinEdit
Left = 120
Height = 27
Top = 154
Width = 81
Top = 125
Width = 116
BorderSpacing.Around = 6
TabOrder = 4
end
object EDefaultExtension: TEdit
Left = 120
Height = 29
Top = 104
Width = 80
TabOrder = 7
end
object FEMakeSkel: TFileNameEdit
Left = 120
AnchorSideLeft.Control = LFEMakeskel
AnchorSideTop.Control = LFEMakeskel
AnchorSideTop.Side = asrBottom
Left = 12
Height = 29
Top = 186
Width = 336
Top = 184
Width = 484
DialogTitle = 'Select skeleton generator'
DialogOptions = []
FilterIndex = 0
@ -138,14 +150,19 @@ object OptionsForm: TOptionsForm
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
MaxLength = 0
TabOrder = 5
TabOrder = 2
end
object FEfpdoc: TFileNameEdit
Left = 120
AnchorSideLeft.Control = LFEfpdoc
AnchorSideTop.Control = LFEfpdoc
AnchorSideTop.Side = asrBottom
Left = 12
Height = 29
Top = 212
Width = 336
Top = 243
Width = 484
DialogTitle = 'Select documentation generator'
DialogOptions = []
FilterIndex = 0
@ -153,35 +170,119 @@ object OptionsForm: TOptionsForm
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
MaxLength = 0
TabOrder = 6
TabOrder = 3
end
object CBStartMaximized: TCheckBox
Left = 200
Height = 19
object GroupBox1: TGroupBox
AnchorSideLeft.Control = tabGeneral
AnchorSideTop.Control = tabGeneral
Left = 6
Height = 89
Top = 6
Width = 129
Caption = 'Start maximized'
TabOrder = 8
Width = 254
AutoSize = True
BorderSpacing.Around = 6
ClientHeight = 81
ClientWidth = 246
TabOrder = 5
object CBSkipEmptyNodes: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = CBCreateBackup
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 56
Width = 234
AllowGrayed = True
BorderSpacing.Around = 6
Caption = '&Skip empty nodes when saving'
TabOrder = 0
end
object CBCreateBackup: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = CBConfirmDelete
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 129
AllowGrayed = True
BorderSpacing.Around = 6
Caption = 'Create &backups'
TabOrder = 1
end
object CBConfirmDelete: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 6
Height = 19
Top = 6
Width = 131
AllowGrayed = True
BorderSpacing.Around = 6
Caption = 'C&onfirm deletes'
TabOrder = 2
end
end
object CBReopenLast: TCheckBox
Left = 200
Height = 19
Top = 34
Width = 202
Caption = 'Reopen last file on startup'
TabOrder = 9
object GroupBox2: TGroupBox
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = tabGeneral
AnchorSideRight.Control = tabGeneral
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 266
Height = 89
Top = 6
Width = 250
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ClientHeight = 81
ClientWidth = 242
TabOrder = 6
object CBReopenLast: TCheckBox
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = CBStartMaximized
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 202
BorderSpacing.Around = 6
Caption = 'Reopen last file on startup'
TabOrder = 0
end
object CBStartMaximized: TCheckBox
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 6
Height = 19
Top = 6
Width = 129
BorderSpacing.Around = 6
Caption = 'Start maximized'
TabOrder = 1
end
end
end
object tabDesktop: TTabSheet
Caption = 'Desktop'
ClientHeight = 269
ClientWidth = 482
ClientHeight = 284
ClientWidth = 522
object CBShowHints: TCheckBox
AnchorSideLeft.Control = tabDesktop
AnchorSideTop.Control = tabDesktop
Left = 14
Height = 19
Top = 12
Width = 97
BorderSpacing.Around = 6
Caption = 'Show Hints'
TabOrder = 0
end
@ -190,8 +291,8 @@ object OptionsForm: TOptionsForm
object ButtonPanel1: TButtonPanel
Left = 6
Height = 40
Top = 306
Width = 474
Top = 321
Width = 514
TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
end

2
doceditor/frmoptions.pp
View File

@ -46,6 +46,8 @@ type
EDefaultExtension: TEdit;
FEMakeSkel: TFileNameEdit;
FEfpdoc: TFileNameEdit;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
LFEMakeskel: TLabel;
LFEfpdoc: TLabel;
LEDefaultExtension: TLabel;

253
doceditor/languages/lazde.po
View File

@ -1,14 +1,69 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: frmbuild.sadd
msgctxt "frmbuild.sadd"
msgid "&Add"
msgstr ""
#: frmbuild.saddall
msgctxt "frmbuild.saddall"
msgid "Add All"
msgstr ""
#: frmbuild.sadddescriptionfile
msgid "Select a new description file"
msgstr ""
#: frmbuild.sbuild
msgctxt "frmbuild.sbuild"
msgid "&Build"
msgstr ""
#: frmbuild.sbuilddocumentation
msgctxt "frmbuild.sbuilddocumentation"
msgid "Build documentation"
msgstr ""
#: frmbuild.sbuildok
msgid "Documentation successfully built."
msgstr ""
#: frmbuild.sbuildoutput
msgctxt "frmbuild.sbuildoutput"
msgid "Build output"
msgstr ""
#: frmbuild.sclose
msgctxt "frmbuild.sclose"
msgid "&Close"
msgstr ""
#: frmbuild.scpu
msgctxt "frmbuild.scpu"
msgid "CPU"
msgstr ""
#: frmbuild.screatecontentfile
msgctxt "frmbuild.screatecontentfile"
msgid "Create cont&ent file"
msgstr ""
#: frmbuild.sdelete
msgctxt "frmbuild.sdelete"
msgid "&Delete"
msgstr ""
#: frmbuild.sdescription
msgctxt "frmbuild.sdescription"
msgid "Description"
msgstr ""
#: frmbuild.sedit
msgctxt "frmbuild.sedit"
msgid "&Edit"
msgstr ""
#: frmbuild.seditdescriptionfile
msgid "Change description file"
msgstr ""
@ -17,6 +72,46 @@ msgstr ""
msgid "Building failed with exit code %d. Please check log."
msgstr ""
#: frmbuild.sformat
msgctxt "frmbuild.sformat"
msgid "&Format"
msgstr ""
#: frmbuild.shideprotectedmethods
msgctxt "frmbuild.shideprotectedmethods"
msgid "&Hide protected methods"
msgstr ""
#: frmbuild.simportcontentfile
msgctxt "frmbuild.simportcontentfile"
msgid "Import content file"
msgstr ""
#: frmbuild.sload
msgctxt "frmbuild.sload"
msgid "&Load"
msgstr ""
#: frmbuild.sotheroptions
msgctxt "frmbuild.sotheroptions"
msgid "Other options"
msgstr ""
#: frmbuild.soutput
msgctxt "frmbuild.soutput"
msgid "&Output"
msgstr ""
#: frmbuild.spackage
msgctxt "frmbuild.spackage"
msgid "&Package"
msgstr ""
#: frmbuild.ssave
msgctxt "frmbuild.ssave"
msgid "&Save"
msgstr ""
#: frmbuild.sselectoutputdirectory
msgid "Select output directory"
msgstr ""
@ -25,10 +120,30 @@ msgstr ""
msgid "Select output file name"
msgstr ""
#: frmbuild.sshowprivatemethods
msgctxt "frmbuild.sshowprivatemethods"
msgid "Show p&rivate methods"
msgstr ""
#: frmbuild.ssourcescapt
msgctxt "frmbuild.ssourcescapt"
msgid "Sources"
msgstr ""
#: frmbuild.stargetos
msgctxt "frmbuild.stargetos"
msgid "Target OS"
msgstr ""
#: frmbuild.susingcommand
msgid "Building docs using command: "
msgstr ""
#: frmbuild.swarnifnodocumentationnodefound
msgctxt "frmbuild.swarnifnodocumentationnodefound"
msgid "Warn if no documentation node found"
msgstr ""
#: lazdemsg.sabouttext
msgid ""
"fpdoc editor 1.0\n"
@ -65,6 +180,7 @@ msgid "Are you sure you want to delete topic \"%s\" ?"
msgstr ""
#: lazdemsg.sdescription
msgctxt "lazdemsg.sdescription"
msgid "Description"
msgstr ""
@ -483,6 +599,140 @@ msgstr ""
msgid "Lazarus Documentation Editor"
msgstr ""
#: TBUILDFORM.ABUILD.CAPTION
msgctxt "TBUILDFORM.ABUILD.CAPTION"
msgid "&Build"
msgstr ""
#: TBUILDFORM.ADESCRADD.CAPTION
msgctxt "TBUILDFORM.ADESCRADD.CAPTION"
msgid "&Add"
msgstr ""
#: TBUILDFORM.ADESCRADDALL.CAPTION
msgctxt "TBUILDFORM.ADESCRADDALL.CAPTION"
msgid "Add All"
msgstr ""
#: TBUILDFORM.ADESCRDELETE.CAPTION
msgctxt "TBUILDFORM.ADESCRDELETE.CAPTION"
msgid "&Delete"
msgstr ""
#: TBUILDFORM.ADESCREDIT.CAPTION
msgctxt "TBUILDFORM.ADESCREDIT.CAPTION"
msgid "&Edit"
msgstr ""
#: TBUILDFORM.ALOAD.CAPTION
msgctxt "TBUILDFORM.ALOAD.CAPTION"
msgid "&Load"
msgstr ""
#: TBUILDFORM.ASAVE.CAPTION
msgctxt "TBUILDFORM.ASAVE.CAPTION"
msgid "&Save"
msgstr ""
#: TBUILDFORM.ASOURCEADD.CAPTION
msgctxt "TBUILDFORM.ASOURCEADD.CAPTION"
msgid "&Add"
msgstr ""
#: TBUILDFORM.ASOURCEDELETE.CAPTION
msgctxt "TBUILDFORM.ASOURCEDELETE.CAPTION"
msgid "&Delete"
msgstr ""
#: TBUILDFORM.ASOURCEEDIT.CAPTION
msgctxt "TBUILDFORM.ASOURCEEDIT.CAPTION"
msgid "&Edit"
msgstr ""
#: TBUILDFORM.BCLOSE.CAPTION
msgctxt "TBUILDFORM.BCLOSE.CAPTION"
msgid "&Close"
msgstr ""
#: TBUILDFORM.CAPTION
msgctxt "TBUILDFORM.CAPTION"
msgid "Build documentation"
msgstr ""
#: TBUILDFORM.CBCONTENT.CAPTION
msgctxt "TBUILDFORM.CBCONTENT.CAPTION"
msgid "Create cont&ent file"
msgstr ""
#: TBUILDFORM.CBFORMAT.TEXT
msgid "html"
msgstr ""
#: TBUILDFORM.CBHIDEPROTECTED.CAPTION
msgctxt "TBUILDFORM.CBHIDEPROTECTED.CAPTION"
msgid "&Hide protected methods"
msgstr ""
#: TBUILDFORM.CBSHOWPRIVATE.CAPTION
msgctxt "TBUILDFORM.CBSHOWPRIVATE.CAPTION"
msgid "Show p&rivate methods"
msgstr ""
#: TBUILDFORM.CBWARNNONODE.CAPTION
msgctxt "TBUILDFORM.CBWARNNONODE.CAPTION"
msgid "Warn if no documentation node found"
msgstr ""
#: TBUILDFORM.LABEL1.CAPTION
msgctxt "TBUILDFORM.LABEL1.CAPTION"
msgid "&Output"
msgstr ""
#: TBUILDFORM.LABEL2.CAPTION
msgctxt "TBUILDFORM.LABEL2.CAPTION"
msgid "Import content file"
msgstr ""
#: TBUILDFORM.LABEL3.CAPTION
msgctxt "TBUILDFORM.LABEL3.CAPTION"
msgid "Target OS"
msgstr ""
#: TBUILDFORM.LCBFORMAT.CAPTION
msgctxt "TBUILDFORM.LCBFORMAT.CAPTION"
msgid "&Format"
msgstr ""
#: TBUILDFORM.LCBPACKAGE.CAPTION
msgctxt "TBUILDFORM.LCBPACKAGE.CAPTION"
msgid "&Package"
msgstr ""
#: TBUILDFORM.LTARGETCPU.CAPTION
msgctxt "TBUILDFORM.LTARGETCPU.CAPTION"
msgid "CPU"
msgstr ""
#: TBUILDFORM.TSBUILD.CAPTION
msgctxt "TBUILDFORM.TSBUILD.CAPTION"
msgid "Build output"
msgstr ""
#: TBUILDFORM.TSDESCRIPTION.CAPTION
msgctxt "TBUILDFORM.TSDESCRIPTION.CAPTION"
msgid "Description"
msgstr ""
#: TBUILDFORM.TSOTHER.CAPTION
msgctxt "TBUILDFORM.TSOTHER.CAPTION"
msgid "Other options"
msgstr ""
#: TBUILDFORM.TSSOURCES.CAPTION
msgctxt "TBUILDFORM.TSSOURCES.CAPTION"
msgid "Sources"
msgstr ""
#: TEXAMPLEFORM.CAPTION
msgid "Example file"
msgstr ""
@ -504,6 +754,7 @@ msgid "&Link target"
msgstr ""
#: TMAINFORM.ACLOSE.CAPTION
msgctxt "TMAINFORM.ACLOSE.CAPTION"
msgid "&Close"
msgstr ""
@ -520,6 +771,7 @@ msgid "Exit from the program"
msgstr ""
#: TMAINFORM.AEXTRABUILD.CAPTION
msgctxt "TMAINFORM.AEXTRABUILD.CAPTION"
msgid "&Build"
msgstr ""
@ -685,6 +937,7 @@ msgid "Open an existing documentation file"
msgstr ""
#: TMAINFORM.ASAVE.CAPTION
msgctxt "TMAINFORM.ASAVE.CAPTION"
msgid "&Save"
msgstr ""

301
doceditor/languages/lazde.ru.po
View File

@ -1,14 +1,69 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: frmbuild.sadd
msgctxt "frmbuild.sadd"
msgid "&Add"
msgstr "Добавить"
#: frmbuild.saddall
msgctxt "frmbuild.saddall"
msgid "Add All"
msgstr "Добавить всё"
#: frmbuild.sadddescriptionfile
msgid "Select a new description file"
msgstr "Выберите новый файл описания"
#: frmbuild.sbuild
msgctxt "frmbuild.sbuild"
msgid "&Build"
msgstr "&Собрать"
#: frmbuild.sbuilddocumentation
msgctxt "frmbuild.sbuilddocumentation"
msgid "Build documentation"
msgstr "Компиляция документации"
#: frmbuild.sbuildok
msgid "Documentation successfully built."
msgstr "Документация успешно скомпилированна"
#: frmbuild.sbuildoutput
msgctxt "frmbuild.sbuildoutput"
msgid "Build output"
msgstr "Протокол сборки"
#: frmbuild.sclose
msgctxt "frmbuild.sclose"
msgid "&Close"
msgstr "&Закрыть"
#: frmbuild.scpu
msgctxt "frmbuild.scpu"
msgid "CPU"
msgstr "Целевой процессор"
#: frmbuild.screatecontentfile
msgctxt "frmbuild.screatecontentfile"
msgid "Create cont&ent file"
msgstr "Создать файл оглавления"
#: frmbuild.sdelete
msgctxt "frmbuild.sdelete"
msgid "&Delete"
msgstr "Удалить"
#: frmbuild.sdescription
msgctxt "frmbuild.sdescription"
msgid "Description"
msgstr "Описание"
#: frmbuild.sedit
msgctxt "frmbuild.sedit"
msgid "&Edit"
msgstr "Изменить"
#: frmbuild.seditdescriptionfile
msgid "Change description file"
msgstr "Изменить файл описания"
@ -17,6 +72,46 @@ msgstr "Изменить файл описания"
msgid "Building failed with exit code %d. Please check log."
msgstr "Компиляция прервана с кодом завешения %d. Пожалуста, проверьте протокол."
#: frmbuild.sformat
msgctxt "frmbuild.sformat"
msgid "&Format"
msgstr "&Формат"
#: frmbuild.shideprotectedmethods
msgctxt "frmbuild.shideprotectedmethods"
msgid "&Hide protected methods"
msgstr "Прятать защищённые методы"
#: frmbuild.simportcontentfile
msgctxt "frmbuild.simportcontentfile"
msgid "Import content file"
msgstr "Импортировать файл оглавления"
#: frmbuild.sload
msgctxt "frmbuild.sload"
msgid "&Load"
msgstr "&Загрузить"
#: frmbuild.sotheroptions
msgctxt "frmbuild.sotheroptions"
msgid "Other options"
msgstr "Прочии опции"
#: frmbuild.soutput
msgctxt "frmbuild.soutput"
msgid "&Output"
msgstr "&Вывод"
#: frmbuild.spackage
msgctxt "frmbuild.spackage"
msgid "&Package"
msgstr "&Пакет"
#: frmbuild.ssave
msgctxt "frmbuild.ssave"
msgid "&Save"
msgstr "&Сохранить"
#: frmbuild.sselectoutputdirectory
msgid "Select output directory"
msgstr "Укажите каталог вывода"
@ -25,10 +120,30 @@ msgstr "Укажите каталог вывода"
msgid "Select output file name"
msgstr "Укажите имя выходного файла"
#: frmbuild.sshowprivatemethods
msgctxt "frmbuild.sshowprivatemethods"
msgid "Show p&rivate methods"
msgstr "Отображать приватные методы"
#: frmbuild.ssourcescapt
msgctxt "frmbuild.ssourcescapt"
msgid "Sources"
msgstr "Исходники"
#: frmbuild.stargetos
msgctxt "frmbuild.stargetos"
msgid "Target OS"
msgstr "Целевая ОС"
#: frmbuild.susingcommand
msgid "Building docs using command: "
msgstr "Компиляция документации с использованием команды:"
#: frmbuild.swarnifnodocumentationnodefound
msgctxt "frmbuild.swarnifnodocumentationnodefound"
msgid "Warn if no documentation node found"
msgstr "Предупреждать, если нет узлов документации"
#: lazdemsg.sabouttext
msgid ""
"fpdoc editor 1.0\n"
@ -42,71 +157,72 @@ msgstr "Отмена"
#: lazdemsg.scodeexample
msgid "Example code File"
msgstr ""
msgstr "Файл с примером кода"
#: lazdemsg.sdataforelement
msgid "Documentation for element \"%s\":"
msgstr ""
msgstr "Документация для элемента \"%s\":"
#: lazdemsg.sdeleteelement
msgid "Are you sure you want to delete element \"%s\" ?"
msgstr ""
msgstr "Вы уверены в удалении элемента \"%s\"?"
#: lazdemsg.sdeletemodule
msgid "Are you sure you want to delete module \"%s\" ?"
msgstr ""
msgstr "Вы уверены в удалении модуля \"%s\"?"
#: lazdemsg.sdeletepackage
msgid "Are you sure you want to delete package \"%s\" ?"
msgstr ""
msgstr "Вы уверены в удалении пакета \"%s\"?"
#: lazdemsg.sdeletetopic
msgid "Are you sure you want to delete topic \"%s\" ?"
msgstr ""
msgstr "Вы уверены в удалении раздела \"%s\"?"
#: lazdemsg.sdescription
msgctxt "lazdemsg.sdescription"
msgid "Description"
msgstr ""
msgstr "Описание"
#: lazdemsg.serrnomoduleforelement
msgid "No module found to insert element \"%s\""
msgstr ""
msgstr "Не найден модуль для вставки элемента \"%s\""
#: lazdemsg.serrnonodeforelement
msgid "No node found for element \"%s\""
msgstr ""
msgstr "Не найден узел для вставки элемента \"%s\""
#: lazdemsg.serrnonodeformodule
msgid "No node found for module \"%s\""
msgstr ""
msgstr "Не найден узел для модуля \"%s\""
#: lazdemsg.serrnonodeforpackage
msgid "No node found for package \"%s\""
msgstr ""
msgstr "Не найден узел для пакета \"%s\""
#: lazdemsg.serrnonodefortopic
msgid "No parent node found to insert topic \"%s\""
msgstr ""
msgstr "Не родительского узла для вставки раздела \"%s\""
#: lazdemsg.serrnopackageformodule
msgid "No package found to insert module \"%s\""
msgstr ""
msgstr "Не найден пакет для вставки модуля"
#: lazdemsg.serrors
msgid "Errors"
msgstr ""
msgstr "Ошибки"
#: lazdemsg.serrunknowndomelement
msgid "Unknwon DOM element as parent for selected element: \"%s\""
msgstr ""
msgstr "Не известный элемент DOM для выбранного элемента: \"%s\""
#: lazdemsg.sfilemodified
msgid "Document \"%s\" was modified, would you like to save it?"
msgstr ""
msgstr "Документ \"%s\" изменён, вы хотите сохранить его?"
#: lazdemsg.sfilestructure
msgid "Documentation structure"
msgstr ""
msgstr "Структура документа"
#: lazdemsg.sfiletemplate
msgid "template.xml"
@ -365,19 +481,19 @@ msgstr ""
#: lazdemsg.smoduleelements
msgid "Elements for selected node"
msgstr ""
msgstr "Элементы для выбранного узла"
#: lazdemsg.sname
msgid "Name"
msgstr ""
msgstr "Имя"
#: lazdemsg.snew
msgid "New"
msgstr ""
msgstr "Новый"
#: lazdemsg.snewdocument
msgid "New document"
msgstr ""
msgstr "Новый документ"
#: lazdemsg.snoelement
msgid "No element selected"
@ -483,6 +599,140 @@ msgstr ""
msgid "Lazarus Documentation Editor"
msgstr ""
#: TBUILDFORM.ABUILD.CAPTION
msgctxt "TBUILDFORM.ABUILD.CAPTION"
msgid "&Build"
msgstr "&Собрать"
#: TBUILDFORM.ADESCRADD.CAPTION
msgctxt "TBUILDFORM.ADESCRADD.CAPTION"
msgid "&Add"
msgstr "Добавить"
#: TBUILDFORM.ADESCRADDALL.CAPTION
msgctxt "TBUILDFORM.ADESCRADDALL.CAPTION"
msgid "Add All"
msgstr "Добавить всё"
#: TBUILDFORM.ADESCRDELETE.CAPTION
msgctxt "TBUILDFORM.ADESCRDELETE.CAPTION"
msgid "&Delete"
msgstr "Удалить"
#: TBUILDFORM.ADESCREDIT.CAPTION
msgctxt "TBUILDFORM.ADESCREDIT.CAPTION"
msgid "&Edit"
msgstr "Изменить"
#: TBUILDFORM.ALOAD.CAPTION
msgctxt "TBUILDFORM.ALOAD.CAPTION"
msgid "&Load"
msgstr "&Загрузить"
#: TBUILDFORM.ASAVE.CAPTION
msgctxt "TBUILDFORM.ASAVE.CAPTION"
msgid "&Save"
msgstr "&Сохранить"
#: TBUILDFORM.ASOURCEADD.CAPTION
msgctxt "TBUILDFORM.ASOURCEADD.CAPTION"
msgid "&Add"
msgstr "Добавить"
#: TBUILDFORM.ASOURCEDELETE.CAPTION
msgctxt "TBUILDFORM.ASOURCEDELETE.CAPTION"
msgid "&Delete"
msgstr "Удалить"
#: TBUILDFORM.ASOURCEEDIT.CAPTION
msgctxt "TBUILDFORM.ASOURCEEDIT.CAPTION"
msgid "&Edit"
msgstr "Изменить"
#: TBUILDFORM.BCLOSE.CAPTION
msgctxt "TBUILDFORM.BCLOSE.CAPTION"
msgid "&Close"
msgstr "&Закрыть"
#: TBUILDFORM.CAPTION
msgctxt "TBUILDFORM.CAPTION"
msgid "Build documentation"
msgstr "Компиляция документации"
#: TBUILDFORM.CBCONTENT.CAPTION
msgctxt "TBUILDFORM.CBCONTENT.CAPTION"
msgid "Create cont&ent file"
msgstr "Создать файл оглавления"
#: TBUILDFORM.CBFORMAT.TEXT
msgid "html"
msgstr ""
#: TBUILDFORM.CBHIDEPROTECTED.CAPTION
msgctxt "TBUILDFORM.CBHIDEPROTECTED.CAPTION"
msgid "&Hide protected methods"
msgstr "Прятать защищённые методы"
#: TBUILDFORM.CBSHOWPRIVATE.CAPTION
msgctxt "TBUILDFORM.CBSHOWPRIVATE.CAPTION"
msgid "Show p&rivate methods"
msgstr "Отображать приватные методы"
#: TBUILDFORM.CBWARNNONODE.CAPTION
msgctxt "TBUILDFORM.CBWARNNONODE.CAPTION"
msgid "Warn if no documentation node found"
msgstr "Предупреждать, если нет узлов документации"
#: TBUILDFORM.LABEL1.CAPTION
msgctxt "TBUILDFORM.LABEL1.CAPTION"
msgid "&Output"
msgstr "&Вывод"
#: TBUILDFORM.LABEL2.CAPTION
msgctxt "TBUILDFORM.LABEL2.CAPTION"
msgid "Import content file"
msgstr "Импортировать файл оглавления"
#: TBUILDFORM.LABEL3.CAPTION
msgctxt "TBUILDFORM.LABEL3.CAPTION"
msgid "Target OS"
msgstr "Целевая ОС"
#: TBUILDFORM.LCBFORMAT.CAPTION
msgctxt "TBUILDFORM.LCBFORMAT.CAPTION"
msgid "&Format"
msgstr "&Формат"
#: TBUILDFORM.LCBPACKAGE.CAPTION
msgctxt "TBUILDFORM.LCBPACKAGE.CAPTION"
msgid "&Package"
msgstr "&Пакет"
#: TBUILDFORM.LTARGETCPU.CAPTION
msgctxt "TBUILDFORM.LTARGETCPU.CAPTION"
msgid "CPU"
msgstr "Целевой процессор"
#: TBUILDFORM.TSBUILD.CAPTION
msgctxt "TBUILDFORM.TSBUILD.CAPTION"
msgid "Build output"
msgstr "Протокол сборки"
#: TBUILDFORM.TSDESCRIPTION.CAPTION
msgctxt "TBUILDFORM.TSDESCRIPTION.CAPTION"
msgid "Description"
msgstr "Описание"
#: TBUILDFORM.TSOTHER.CAPTION
msgctxt "TBUILDFORM.TSOTHER.CAPTION"
msgid "Other options"
msgstr "Прочии опции"
#: TBUILDFORM.TSSOURCES.CAPTION
msgctxt "TBUILDFORM.TSSOURCES.CAPTION"
msgid "Sources"
msgstr "Исходники"
#: TEXAMPLEFORM.CAPTION
msgid "Example file"
msgstr ""
@ -504,8 +754,9 @@ msgid "&Link target"
msgstr ""
#: TMAINFORM.ACLOSE.CAPTION
msgctxt "TMAINFORM.ACLOSE.CAPTION"
msgid "&Close"
msgstr ""
msgstr "&Закрыть"
#: TMAINFORM.ACLOSE.HINT
msgid "Close current file"
@ -520,8 +771,9 @@ msgid "Exit from the program"
msgstr ""
#: TMAINFORM.AEXTRABUILD.CAPTION
msgctxt "TMAINFORM.AEXTRABUILD.CAPTION"
msgid "&Build"
msgstr ""
msgstr "&Собрать"
#: TMAINFORM.AEXTRAOPTIONS.CAPTION
msgid "&Options"
@ -685,8 +937,9 @@ msgid "Open an existing documentation file"
msgstr ""
#: TMAINFORM.ASAVE.CAPTION
msgctxt "TMAINFORM.ASAVE.CAPTION"
msgid "&Save"
msgstr ""
msgstr "&Сохранить"
#: TMAINFORM.ASAVE.HINT
msgid "Save the current file"

BIN
doceditor/lazde.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.8 KiB

9
doceditor/lazde.lpi
View File

@ -11,6 +11,7 @@
<TargetFileExt Value=""/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N Value="True"/>
@ -43,6 +44,9 @@
<Unit1>
<Filename Value="eleditor.pp"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="CustomElementEditorNew"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="ElEditor"/>
</Unit1>
<Unit2>
@ -143,11 +147,16 @@
<Unit15>
<Filename Value="pgeditor.pp"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="EditorPageNew"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="pgEditor"/>
</Unit15>
<Unit16>
<Filename Value="pkeditor.pp"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="PkEditor"/>
</Unit16>
</Units>

BIN
doceditor/lazde.res
View File

Binary file not shown.

14
doceditor/lazdeopts.pp
View File

@ -52,8 +52,9 @@ Procedure SaveOptions;
Function GetOptionFileName : String;
Implementation
uses gettext, translations;
Const
const
DefFilename = 'fpde.ini';
SecPrefs = 'Preferences';
KeySkipEmptyNodes = 'SkipEmptyNodes';
@ -139,6 +140,15 @@ begin
end;
end;
procedure TranslateResStrings;
var
Lang, FallbackLang: String;
begin
GetLanguageIDs(Lang,FallbackLang); // in unit gettext
TranslateUnitResourceStrings('LazDEMsg','languages/lazde.%s.po', Lang,FallbackLang);
TranslateUnitResourceStrings('frmBuild','languages/lazde.%s.po', Lang,FallbackLang);
end;
Initialization
SkipEmptyNodes := True;
ConfirmDelete := True;
@ -151,4 +161,6 @@ Initialization
CmdMakeSkel := 'makeskel';
cmdfpdoc := 'fpdoc';
ShowHelpHints := true;
TranslateResStrings;
end.

9
doceditor/pgeditor.lfm Normal file
View File

@ -0,0 +1,9 @@
object EditorPageNew: TEditorPageNew
Left = 0
Height = 321
Top = 0
Width = 466
TabOrder = 0
DesignLeft = 402
DesignTop = 264
end

14
doceditor/pgeditor.pp
View File

@ -54,6 +54,11 @@ interface
uses SysUtils,Classes,dom,xmlread,xmlwrite,Forms,Controls,FileUtil,extctrls,
comctrls,Dialogs,menus,pkeditor,eleditor,fpdeutil;
type
TEditorPageNew = class(TFrame)
end;
Type
{ TEditorPage }
@ -87,7 +92,7 @@ Type
protected
procedure SetParent(NewParent: TWinControl); override;
Public
Constructor Create(AOwner : TComponent); override;
constructor Create(AOwner : TComponent); override;
Function FirstPackage : TDomElement;
Function FirstModule(APackage : TDomElement) : TDomElement;
Procedure LoadFromFile(FN : String);
@ -120,14 +125,15 @@ implementation
uses frmnewnode,lazdeopts,lazdemsg;
{$R *.lfm}
{ ---------------------------------------------------------------------
TPageEditor
---------------------------------------------------------------------}
Constructor TEditorPage.Create(AOwner : TComponent);
constructor TEditorPage.Create(AOwner : TComponent);
begin
Inherited;
inherited;
FPackages:=TPackageEditor.Create(Self);
FPackages.Parent:=Self;
FPackages.Align:=alLeft;