paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazarus Documentation Editor improvements. Issue #22518, patch from Mario Ray Mahardhika

Browse Source 
git-svn-id: trunk@38066 -
This commit is contained in:
juha 2012-07-28 07:50:31 +00:00
parent bca8afb5c1
commit d8c4a67f36
3 changed files with 159 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

228
doceditor/frmbuild.lfm
View File

@ -14,15 +14,15 @@ object BuildForm: TBuildForm
OnCreate = BuildFormCreate OnCreate = BuildFormCreate
OnResize = FormResize OnResize = FormResize
OnShow = FormResize OnShow = FormResize
LCLVersion = '0.9.29' LCLVersion = '1.1'
object LCBPackage: TLabel object LCBPackage: TLabel
AnchorSideLeft.Control = CBFormat AnchorSideLeft.Control = CBFormat
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 175 Left = 175
Height = 18 Height = 16
Top = 6 Top = 6
Width = 71 Width = 47
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Package' Caption = '&Package'
FocusControl = CBPackage FocusControl = CBPackage
@ -33,9 +33,9 @@ object BuildForm: TBuildForm
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 6 Left = 6
Height = 18 Height = 16
Top = 6 Top = 6
Width = 61 Width = 42
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Format' Caption = '&Format'
FocusControl = CBFormat FocusControl = CBFormat
@ -44,12 +44,12 @@ object BuildForm: TBuildForm
end end
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CBPackage AnchorSideTop.Control = CBAutoTOC
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 16
Top = 65 Top = 85
Width = 61 Width = 43
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Output' Caption = '&Output'
Layout = tlCenter Layout = tlCenter
@ -61,9 +61,9 @@ object BuildForm: TBuildForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
Left = 181 Left = 181
Height = 29 Height = 23
Top = 30 Top = 28
Width = 348 Width = 347
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
@ -74,21 +74,23 @@ object BuildForm: TBuildForm
AnchorSideTop.Control = LCBFormat AnchorSideTop.Control = LCBFormat
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 31 Height = 24
Top = 30 Top = 28
Width = 157 Width = 157
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'chm'
'html' 'html'
'latex' 'latex'
'man' 'man'
'txt' 'txt'
) )
OnChange = CBFormatChange
Style = csDropDownList Style = csDropDownList
TabOrder = 1 TabOrder = 1
Text = 'html' Text = 'chm'
end end
object PCOptions: TPageControl object PCOptions: TPageControl
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -99,27 +101,27 @@ object BuildForm: TBuildForm
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 221 Height = 241
Top = 158 Top = 138
Width = 604 Width = 604
ActivePage = TSOther ActivePage = TSDescription
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
TabIndex = 2 TabIndex = 0
TabOrder = 2 TabOrder = 2
object TSDescription: TTabSheet object TSDescription: TTabSheet
Caption = 'Description' Caption = 'Description'
ClientHeight = 190 ClientHeight = 211
ClientWidth = 600 ClientWidth = 596
object PBDescr: TPanel object PBDescr: TPanel
Left = 530 Left = 524
Height = 190 Height = 211
Top = 0 Top = 0
Width = 70 Width = 72
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 190 ClientHeight = 211
ClientWidth = 70 ClientWidth = 72
FullRepaint = False FullRepaint = False
TabOrder = 0 TabOrder = 0
object BAddDescription: TButton object BAddDescription: TButton
@ -128,9 +130,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = PBDescr AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 6 Top = 6
Width = 58 Width = 60
Action = ADescrAdd Action = ADescrAdd
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -144,9 +146,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = PBDescr AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 41 Top = 36
Width = 58 Width = 60
Action = ADescrDelete Action = ADescrDelete
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -160,9 +162,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = PBDescr AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 76 Top = 66
Width = 58 Width = 60
Action = ADescrEdit Action = ADescrEdit
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -176,9 +178,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = PBDescr AnchorSideRight.Control = PBDescr
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 111 Top = 96
Width = 58 Width = 60
Action = ADescrAddAll Action = ADescrAddAll
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -188,14 +190,13 @@ object BuildForm: TBuildForm
end end
object LBDescrFiles: TListBox object LBDescrFiles: TListBox
Left = 0 Left = 0
Height = 190 Height = 211
Top = 0 Top = 0
Width = 530 Width = 524
Align = alClient Align = alClient
ClickOnSelChange = False ClickOnSelChange = False
ItemHeight = 0 ItemHeight = 0
TabOrder = 1 TabOrder = 1
TopIndex = -1
end end
end end
object TSSources: TTabSheet object TSSources: TTabSheet
@ -276,7 +277,7 @@ object BuildForm: TBuildForm
RowCount = 2 RowCount = 2
TabOrder = 1 TabOrder = 1
TitleStyle = tsNative TitleStyle = tsNative
OnDblClick = SGSourcesDblClick OnDblClick = SGSourcesDblClick
ColWidths = ( ColWidths = (
242 242
119 119
@ -294,16 +295,16 @@ object BuildForm: TBuildForm
end end
object TSOther: TTabSheet object TSOther: TTabSheet
Caption = 'Other options' Caption = 'Other options'
ClientHeight = 190 ClientHeight = 211
ClientWidth = 600 ClientWidth = 596
object Label2: TLabel object Label2: TLabel
AnchorSideLeft.Control = TSOther AnchorSideLeft.Control = TSOther
AnchorSideTop.Control = CBWarnNoNode AnchorSideTop.Control = CBWarnNoNode
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 16
Top = 81 Top = 87
Width = 128 Width = 111
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Import content file' Caption = 'Import content file'
@ -317,10 +318,10 @@ object BuildForm: TBuildForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ETargetCPU AnchorSideBottom.Control = ETargetCPU
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 128 Left = 122
Height = 18 Height = 16
Top = 151 Top = 145
Width = 68 Width = 56
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -336,9 +337,9 @@ object BuildForm: TBuildForm
AnchorSideBottom.Control = ETargetCPU AnchorSideBottom.Control = ETargetCPU
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 16
Top = 151 Top = 145
Width = 30 Width = 24
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -352,9 +353,9 @@ object BuildForm: TBuildForm
AnchorSideTop.Control = CBHideProtected AnchorSideTop.Control = CBHideProtected
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 21
Top = 31 Top = 33
Width = 174 Width = 150
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show p&rivate methods' Caption = 'Show p&rivate methods'
TabOrder = 0 TabOrder = 0
@ -363,9 +364,9 @@ object BuildForm: TBuildForm
AnchorSideLeft.Control = TSOther AnchorSideLeft.Control = TSOther
AnchorSideTop.Control = TSOther AnchorSideTop.Control = TSOther
Left = 6 Left = 6
Height = 19 Height = 21
Top = 6 Top = 6
Width = 189 Width = 166
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Hide protected methods' Caption = '&Hide protected methods'
TabOrder = 1 TabOrder = 1
@ -375,9 +376,9 @@ object BuildForm: TBuildForm
AnchorSideTop.Control = CBShowPrivate AnchorSideTop.Control = CBShowPrivate
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 21
Top = 56 Top = 60
Width = 280 Width = 240
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Warn if no documentation node found' Caption = 'Warn if no documentation node found'
TabOrder = 2 TabOrder = 2
@ -387,9 +388,9 @@ object BuildForm: TBuildForm
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 29 Height = 23
Top = 105 Top = 109
Width = 562 Width = 558
DialogOptions = [] DialogOptions = []
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
@ -406,9 +407,9 @@ object BuildForm: TBuildForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FEImportFIle AnchorSideTop.Control = FEImportFIle
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 42 Left = 36
Height = 29 Height = 23
Top = 140 Top = 138
Width = 80 Width = 80
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 4 TabOrder = 4
@ -418,9 +419,9 @@ object BuildForm: TBuildForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FEImportFIle AnchorSideTop.Control = FEImportFIle
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 202 Left = 184
Height = 29 Height = 23
Top = 140 Top = 138
Width = 120 Width = 120
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 5 TabOrder = 5
@ -445,8 +446,8 @@ object BuildForm: TBuildForm
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 23
Top = 89 Top = 107
Width = 490 Width = 490
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ButtonWidth = 23 ButtonWidth = 23
@ -459,12 +460,12 @@ object BuildForm: TBuildForm
object CBContent: TCheckBox object CBContent: TCheckBox
AnchorSideLeft.Control = Label1 AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CBPackage AnchorSideTop.Control = CBAutoTOC
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 73 Left = 55
Height = 19 Height = 21
Top = 65 Top = 85
Width = 149 Width = 135
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Create cont&ent file' Caption = 'Create cont&ent file'
TabOrder = 4 TabOrder = 4
@ -473,16 +474,16 @@ object BuildForm: TBuildForm
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 535 Left = 534
Height = 146 Height = 126
Top = 6 Top = 6
Width = 63 Width = 64
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 146 ClientHeight = 126
ClientWidth = 63 ClientWidth = 64
TabOrder = 5 TabOrder = 5
object BSave: TButton object BSave: TButton
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
@ -491,9 +492,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 76 Top = 66
Width = 51 Width = 52
Action = ASave Action = ASave
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -507,9 +508,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 41 Top = 36
Width = 51 Width = 52
Action = ALoad Action = ALoad
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -522,9 +523,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 6 Top = 6
Width = 51 Width = 52
Action = ABuild Action = ABuild
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -538,9 +539,9 @@ object BuildForm: TBuildForm
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 24
Top = 111 Top = 96
Width = 51 Width = 52
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -549,8 +550,45 @@ object BuildForm: TBuildForm
TabOrder = 3 TabOrder = 3
end end
end end
object CBAutoTOC: TCheckBox
AnchorSideLeft.Control = CBFormat
AnchorSideTop.Control = CBFormat
AnchorSideTop.Side = asrBottom
Left = 16
Height = 21
Top = 58
Width = 79
BorderSpacing.Around = 4
Caption = 'Auto TOC'
TabOrder = 6
end
object CBAutoIndex: TCheckBox
AnchorSideLeft.Control = CBAutoTOC
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CBAutoTOC
AnchorSideTop.Side = asrCenter
Left = 99
Height = 21
Top = 58
Width = 85
BorderSpacing.Around = 4
Caption = 'Auto Index'
TabOrder = 7
end
object CBMakeSearchable: TCheckBox
AnchorSideLeft.Control = CBAutoIndex
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CBAutoIndex
AnchorSideTop.Side = asrCenter
Left = 188
Height = 21
Top = 58
Width = 119
BorderSpacing.Around = 4
Caption = 'Make Searchable'
TabOrder = 8
end
object ODSettings: TOpenDialog object ODSettings: TOpenDialog
Title = 'Open existing file'
DefaultExt = '.ldp' DefaultExt = '.ldp'
Filter = 'Documentation project files|*.ldp|All files|*.*' Filter = 'Documentation project files|*.ldp|All files|*.*'
FilterIndex = 0 FilterIndex = 0
@ -559,7 +597,6 @@ object BuildForm: TBuildForm
top = 72 top = 72
end end
object SDSettings: TSaveDialog object SDSettings: TSaveDialog
Title = 'Save file as'
DefaultExt = '.ldp' DefaultExt = '.ldp'
Filter = 'Documentation project files|*.ldp|All files|*.*' Filter = 'Documentation project files|*.ldp|All files|*.*'
FilterIndex = 0 FilterIndex = 0
@ -568,7 +605,6 @@ object BuildForm: TBuildForm
top = 72 top = 72
end end
object ODDescription: TOpenDialog object ODDescription: TOpenDialog
Title = 'Open existing file'
DefaultExt = '.xml' DefaultExt = '.xml'
Filter = 'XML files|*.xml|All files|*.*' Filter = 'XML files|*.xml|All files|*.*'
FilterIndex = 0 FilterIndex = 0

19
doceditor/frmbuild.pp
View File

@ -60,12 +60,15 @@ type
BSourceDelete: TButton; BSourceDelete: TButton;
BSourceEdit: TButton; BSourceEdit: TButton;
BAddAll: TButton; BAddAll: TButton;
CBMakeSearchable: TCheckBox;
CBHideProtected: TCheckBox; CBHideProtected: TCheckBox;
CBPackage: TComboBox; CBPackage: TComboBox;
CBFormat: TComboBox; CBFormat: TComboBox;
CBContent: TCheckBox; CBContent: TCheckBox;
CBShowPrivate: TCheckBox; CBShowPrivate: TCheckBox;
CBWarnNoNode: TCheckBox; CBWarnNoNode: TCheckBox;
CBAutoTOC: TCheckBox;
CBAutoIndex: TCheckBox;
ETargetOS: TEdit; ETargetOS: TEdit;
ETargetCPU: TEdit; ETargetCPU: TEdit;
EOutput: TEditButton; EOutput: TEditButton;
@ -113,6 +116,7 @@ type
procedure BuildFormCloseQuery(Sender: TObject; var CanClose: boolean); procedure BuildFormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure BuildFormCreate(Sender: TObject); procedure BuildFormCreate(Sender: TObject);
procedure BuildFormDestroy(Sender: TObject); procedure BuildFormDestroy(Sender: TObject);
procedure CBFormatChange(Sender: TObject);
procedure EOutputButtonClick(Sender: TObject); procedure EOutputButtonClick(Sender: TObject);
procedure FormResize(Sender: TObject); procedure FormResize(Sender: TObject);
procedure Sgsourcesdblclick(Sender: Tobject); procedure Sgsourcesdblclick(Sender: Tobject);
@ -396,6 +400,13 @@ begin
FOptions.Free; FOptions.Free;
end; end;
procedure TBuildForm.CBFormatChange(Sender: TObject);
begin
CBAutoTOC.Enabled := CBFormat.ItemIndex = 0;
CBAutoIndex.Enabled := CBFormat.ItemIndex = 0;
CBMakeSearchable.Enabled := CBFormat.ItemIndex = 0;
end;
procedure TBuildForm.EOutputButtonClick(Sender: TObject); procedure TBuildForm.EOutputButtonClick(Sender: TObject);
begin begin
if (lowercase(cbFormat.text)='html') then if (lowercase(cbFormat.text)='html') then
@ -702,6 +713,14 @@ begin
Result:=Result+' --package='+CBPackage.Text; Result:=Result+' --package='+CBPackage.Text;
Result:=Result+' --output='+Eoutput.Text; Result:=Result+' --output='+Eoutput.Text;
Result:=Result+' --format='+CBFormat.Text; Result:=Result+' --format='+CBFormat.Text;
if CBFormat.Text = 'chm' then begin
if CBAutoTOC.Checked then
Result:=Result+' --auto-toc';
if CBAutoIndex.Checked then
Result:=Result+' --auto-index';
if CBMakeSearchable.Checked then
Result:=Result+' --make-searchable';
end;
If CBShowPrivate.Checked then If CBShowPrivate.Checked then
Result:=Result+' --show-private'; Result:=Result+' --show-private';
If CBHideProtected.Checked then If CBHideProtected.Checked then

15
doceditor/frmmain.lfm
View File

@ -1,19 +1,19 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 290 Left = 290
Height = 544 Height = 544
Top = 170 Top = 162
Width = 602 Width = 602
HorzScrollBar.Page = 601 HorzScrollBar.Page = 601
VertScrollBar.Page = 523 VertScrollBar.Page = 523
ActiveControl = Splitter1 ActiveControl = Splitter1
Caption = 'MainForm' Caption = 'MainForm'
ClientHeight = 520 ClientHeight = 523
ClientWidth = 602 ClientWidth = 602
Menu = MMain Menu = MMain
OnCloseQuery = MainFormCloseQuery OnCloseQuery = MainFormCloseQuery
OnCreate = MainFormCreate OnCreate = MainFormCreate
OnDestroy = MainFormDestroy OnDestroy = MainFormDestroy
LCLVersion = '0.9.31' LCLVersion = '1.1'
object TBMain: TToolBar object TBMain: TToolBar
Left = 0 Left = 0
Height = 30 Height = 30
@ -130,20 +130,20 @@ object MainForm: TMainForm
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 19 Height = 20
Top = 501 Top = 503
Width = 602 Width = 602
Panels = <> Panels = <>
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 0 Left = 0
Height = 471 Height = 473
Top = 30 Top = 30
Width = 5 Width = 5
end end
object PCFiles: TPageControl object PCFiles: TPageControl
Left = 5 Left = 5
Height = 471 Height = 473
Top = 30 Top = 30
Width = 597 Width = 597
Align = alClient Align = alClient
@ -1209,6 +1209,7 @@ object MainForm: TMainForm
Hint = 'Format selection bold' Hint = 'Format selection bold'
ImageIndex = 7 ImageIndex = 7
OnExecute = DoFormat OnExecute = DoFormat
OnUpdate = CanFormat
ShortCut = 16450 ShortCut = 16450
end end
object AFormatItalic: TAction object AFormatItalic: TAction