paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

converted projectopts to LFM, initial setup to support lazdoc paths, improved lazdoc from Darius

Browse Source 
git-svn-id: trunk@7782 -
This commit is contained in:
mattias 2005-09-22 09:11:56 +00:00
parent 9228d5cd07
commit 91195ae8ce
8 changed files with 993 additions and 853 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -911,6 +911,7 @@ ide/patheditordlg.pas svneol=native#text/pascal
ide/project.pp svneol=native#text/pascal ide/project.pp svneol=native#text/pascal
ide/projectdefs.pas svneol=native#text/pascal ide/projectdefs.pas svneol=native#text/pascal
ide/projectinspector.pas svneol=native#text/pascal ide/projectinspector.pas svneol=native#text/pascal
ide/projectopts.lfm svneol=native#text/plain
ide/projectopts.lrs svneol=native#text/pascal ide/projectopts.lrs svneol=native#text/pascal
ide/projectopts.pp svneol=native#text/pascal ide/projectopts.pp svneol=native#text/pascal
ide/publishmodule.pas svneol=native#text/pascal ide/publishmodule.pas svneol=native#text/pascal

4
ide/lazdocfrm.lfm
View File

@ -15,7 +15,6 @@ object LazDocForm: TLazDocForm
object PageControl: TPageControl object PageControl: TPageControl
ActivePage = ShortTabSheet ActivePage = ShortTabSheet
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
TabIndex = 0 TabIndex = 0
TabOrder = 0 TabOrder = 0
TabPosition = tpBottom TabPosition = tpBottom
@ -29,6 +28,7 @@ object LazDocForm: TLazDocForm
Width = 745 Width = 745
object ShortEdit: TEdit object ShortEdit: TEdit
Align = alTop Align = alTop
BorderSpacing.OnChange = nil
OnChange = DocumentationTagChange OnChange = DocumentationTagChange
TabOrder = 0 TabOrder = 0
Text = 'ShortEdit' Text = 'ShortEdit'
@ -44,7 +44,6 @@ object LazDocForm: TLazDocForm
Width = 745 Width = 745
object DescrMemo: TMemo object DescrMemo: TMemo
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -12 Font.Height = -12
@ -67,6 +66,7 @@ object LazDocForm: TLazDocForm
Width = 745 Width = 745
object ErrorsMemo: TMemo object ErrorsMemo: TMemo
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -12 Font.Height = -12

40
ide/lazdocfrm.lrs
View File

@ -6,24 +6,24 @@ LazarusResources.Add('TLazDocForm','FORMDATA',[
+'ight'#2'u'#11'ClientWidth'#3#241#2#8'OnCreate'#7#10'FormCreate'#13'PixelsPe' +'ight'#2'u'#11'ClientWidth'#3#241#2#8'OnCreate'#7#10'FormCreate'#13'PixelsPe'
+'rInch'#2'`'#18'HorzScrollBar.Page'#3#240#2#18'VertScrollBar.Page'#2't'#4'Le' +'rInch'#2'`'#18'HorzScrollBar.Page'#3#240#2#18'VertScrollBar.Page'#2't'#4'Le'
+'ft'#3#4#1#6'Height'#2'u'#3'Top'#3'H'#2#5'Width'#3#241#2#0#12'TPageControl' +'ft'#3#4#1#6'Height'#2'u'#3'Top'#3'H'#2#5'Width'#3#241#2#0#12'TPageControl'
+#11'PageControl'#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#22 +#11'PageControl'#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#8
+'BorderSpacing.OnChange'#13#8'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7 +'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tpBottom'#6'Height'#2'u'#5
+#8'tpBottom'#6'Height'#2'u'#5'Width'#3#241#2#0#9'TTabSheet'#13'ShortTabSheet' +'Width'#3#241#2#0#9'TTabSheet'#13'ShortTabSheet'#7'Caption'#6#13'ShortTabShe'
+#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2 +'et'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2#6'Height'#2'['#5'Width'#3
+#6'Height'#2'['#5'Width'#3#233#2#0#5'TEdit'#9'ShortEdit'#5'Align'#7#5'alTop' +#233#2#0#5'TEdit'#9'ShortEdit'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChange'
+#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#4'Text'#6#9'ShortE' +#13#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#4'Text'#6#9'Sho'
+'dit'#6'Height'#2#23#5'Width'#3#233#2#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7 +'rtEdit'#6'Height'#2#23#5'Width'#3#233#2#0#0#0#9'TTabSheet'#13'DescrTabSheet'
+'Caption'#6#13'DescrTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2#6 +#7'Caption'#6#13'DescrTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2
+'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#9'DescrMemo'#5'Align'#7#8'alClient' +#6'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#9'DescrMemo'#5'Align'#7#8'alClie'
+#22'BorderSpacing.OnChange'#13#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.C' +'nt'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font'
+'olor'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11'Courier New'#10 +'.Height'#2#244#9'Font.Name'#6#11'Courier New'#10'Font.Pitch'#7#7'fpFixed'#13
+'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7 +'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7#22'DocumentationTagChange'#8
+#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['#5'Width'#3#233#2#0 +'TabOrder'#2#0#6'Height'#2'['#5'Width'#3#233#2#0#0#0#9'TTabSheet'#14'ErrorsT'
+#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'Clie' +'abSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'['#11'ClientWid'
+'ntHeight'#2'['#11'ClientWidth'#3#233#2#6'Height'#2'['#5'Width'#3#233#2#0#5 +'th'#3#233#2#6'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#10'ErrorsMemo'#5'Ali'
+'TMemo'#10'ErrorsMemo'#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHA' +'gn'#7#8'alClient'#22'BorderSpacing.OnChange'#13#12'Font.CharSet'#7#12'ANSI_'
+'RSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11'C' +'CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11
+'ourier New'#10'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#10'ErrorsMemo' +'Courier New'#10'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#10'ErrorsMem'
+#0#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['#5 +'o'#0#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['
+'Width'#3#233#2#0#0#0#0#0 +#5'Width'#3#233#2#0#0#0#0#0
]); ]);

83
ide/lazdocfrm.pas
View File

@ -46,6 +46,7 @@ uses
DOM, DOM,
Forms, Forms,
Graphics, Graphics,
IDEProcs,
LazarusIDEStrConsts, LazarusIDEStrConsts,
LCLProc, LCLProc,
LResources, LResources,
@ -53,7 +54,6 @@ uses
StrUtils, StrUtils,
SynEdit, SynEdit,
SysUtils, SysUtils,
IDEProcs,
XMLread, XMLread,
XMLwrite; XMLwrite;
@ -78,7 +78,7 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
{ private declarations } { private declarations }
FChanged: boolean; FChanged: Boolean;
FDocFileName: String; FDocFileName: String;
FCurrentElement: String; FCurrentElement: String;
FLastElement: String; FLastElement: String;
@ -101,7 +101,7 @@ type
var var
LazDocForm: TLazDocForm; LazDocForm: TLazDocForm;
doc: TXMLdocument = nil; // maybe better to make it a member field of TLazFormDoc doc: TXMLdocument = Nil; //maybe better to make it a member field of TLazFormDoc
procedure DoShowLazDoc; procedure DoShowLazDoc;
@ -123,7 +123,7 @@ begin
begin begin
//reset Self //reset Self
Reset; Reset;
FDocFileName := Value; FDocFileName := Value;
if Assigned(doc) then if Assigned(doc) then
@ -131,11 +131,6 @@ begin
ReadXMLFile(doc, FDocFileName); ReadXMLFile(doc, FDocFileName);
//clear all element editors/viewers
ShortEdit.Clear;
DescrMemo.Clear;
ErrorsMemo.Clear;
SetCaption; SetCaption;
{$ifdef dbgLazDoc} {$ifdef dbgLazDoc}
@ -148,7 +143,7 @@ end;
procedure TLazDocForm.FormCreate(Sender: TObject); procedure TLazDocForm.FormCreate(Sender: TObject);
begin begin
Caption := lisLazDocMainFormCaption; Caption := lisLazDocMainFormCaption;
with PageControl do with PageControl do
begin begin
Page[0].Caption := lisLazDocShortTag; Page[0].Caption := lisLazDocShortTag;
@ -157,11 +152,8 @@ begin
PageIndex := 0; PageIndex := 0;
end; end;
//clear all element editors/viewers Reset;
ShortEdit.Clear;
DescrMemo.Clear;
ErrorsMemo.Clear;
FChanged := False; FChanged := False;
end; end;
@ -221,17 +213,19 @@ begin
if Assigned(n.FirstChild) then if Assigned(n.FirstChild) then
begin begin
{$ifdef dbgLazDoc} {$ifdef dbgLazDoc}
DebugLn('TLazDocForm.GetFirstChildValue: retrieving node ' + n.NodeName + '=' + n.FirstChild.NodeValue); DebugLn('TLazDocForm.GetFirstChildValue: retrieving node ' +
n.NodeName + '=' + n.FirstChild.NodeValue);
{$endif} {$endif}
Result := n.FirstChild.NodeValue Result := n.FirstChild.NodeValue;
end end
else else
begin begin
{$ifdef dbgLazDoc} {$ifdef dbgLazDoc}
DebugLn('TLazDocForm.GetFirstChildValue: retrieving empty node ' + n.NodeName); DebugLn('TLazDocForm.GetFirstChildValue: retrieving empty node ' +
n.NodeName);
{$endif} {$endif}
Result := ''; Result := '';
end; end;
end; end;
@ -253,7 +247,7 @@ begin
if S = 'descr' then if S = 'descr' then
Result.Descr := GetFirstChildValue(Node); Result.Descr := GetFirstChildValue(Node);
if S='errors' then if S = 'errors' then
Result.Errors := GetFirstChildValue(Node); Result.Errors := GetFirstChildValue(Node);
end; end;
Node := Node.NextSibling; Node := Node.NextSibling;
@ -270,7 +264,8 @@ begin
ypos := startpos.y; ypos := startpos.y;
result := ''; result := '';
while (src[ypos][xpos] <> '(') and (src[ypos][xpos] <> ';') and (src[ypos][xpos] <> ':') do while (src[ypos][xpos] <> '(') and (src[ypos][xpos] <> ';') and
(src[ypos][xpos] <> ':') do
begin begin
Result := Result + src[ypos][xpos]; Result := Result + src[ypos][xpos];
Inc(xpos); Inc(xpos);
@ -336,21 +331,32 @@ begin
else else
strCaption := strCaption + lisLazDocNoTagCaption + ' - '; strCaption := strCaption + lisLazDocNoTagCaption + ' - ';
Caption := strCaption + FDocFileName; if FDocFileName <> '' then
Caption := strCaption + FDocFileName
else
Caption := strCaption + lisLazDocNoTagCaption;
end; end;
procedure TLazDocForm.Reset; procedure TLazDocForm.Reset;
begin begin
FreeAndNil(Doc); FreeAndNil(Doc);
FCurrentElement := ''; FCurrentElement := '';
FDocFileName := '';
SetCaption; SetCaption;
//clear all element editors/viewers
ShortEdit.Clear;
DescrMemo.Clear;
ErrorsMemo.Clear;
FChanged := False;
end; end;
procedure TLazDocForm.UpdateLazDoc(source: TStrings; pos: TPoint); procedure TLazDocForm.UpdateLazDoc(source: TStrings; pos: TPoint);
var var
dn: TFPDocNode; dn: TFPDocNode;
n: TDOMNode; n: TDOMNode;
EnabledState: boolean; EnabledState: Boolean;
begin begin
if not Assigned(doc) then if not Assigned(doc) then
begin begin
@ -369,7 +375,7 @@ begin
//or FCurrentElement is empty (J. Reyes) //or FCurrentElement is empty (J. Reyes)
if (FCurrentElement = FLastElement) or (FCurrentElement = '') then if (FCurrentElement = FLastElement) or (FCurrentElement = '') then
Exit; Exit;
FLastElement := FCurrentElement; FLastElement := FCurrentElement;
n := NodeByName(FCurrentElement); n := NodeByName(FCurrentElement);
@ -394,9 +400,9 @@ begin
DescrMemo.Lines.Text := lisLazDocNoDocumentation; DescrMemo.Lines.Text := lisLazDocNoDocumentation;
ErrorsMemo.Lines.Text := lisLazDocNoDocumentation; ErrorsMemo.Lines.Text := lisLazDocNoDocumentation;
end; end;
FChanged := False; FChanged := False;
ShortEdit.Enabled := EnabledState; ShortEdit.Enabled := EnabledState;
DescrMemo.Enabled := EnabledState; DescrMemo.Enabled := EnabledState;
ErrorsMemo.Enabled := EnabledState; ErrorsMemo.Enabled := EnabledState;
@ -407,9 +413,11 @@ var
n: TDOMNode; n: TDOMNode;
S: String; S: String;
child: TDOMNode; child: TDOMNode;
begin begin
//nothing changed, so exit //nothing changed, so exit
if not FChanged then Exit; if not FChanged then
Exit;
n := NodeByName(FCurrentElement); n := NodeByName(FCurrentElement);
@ -424,7 +432,6 @@ begin
S := n.NodeName; S := n.NodeName;
if S = 'short' then if S = 'short' then
begin
if not Assigned(n.FirstChild) then if not Assigned(n.FirstChild) then
begin begin
child := doc.CreateTextNode(ShortEdit.Text); child := doc.CreateTextNode(ShortEdit.Text);
@ -432,36 +439,31 @@ begin
end end
else else
n.FirstChild.NodeValue := ShortEdit.Text; n.FirstChild.NodeValue := ShortEdit.Text;
end;
if S = 'descr' then if S = 'descr' then
begin
if not Assigned(n.FirstChild) then if not Assigned(n.FirstChild) then
begin begin
child := doc.CreateTextNode(StringListToText(DescrMemo.Lines,#10)); child := doc.CreateTextNode(StringListToText(DescrMemo.Lines, #10));
n.AppendChild(child); n.AppendChild(child);
end end
else else
n.FirstChild.NodeValue := StringListToText(DescrMemo.Lines,#10); n.FirstChild.NodeValue := StringListToText(DescrMemo.Lines, #10);
end;
if S = 'errors' then if S = 'errors' then
begin
if not Assigned(n.FirstChild) then if not Assigned(n.FirstChild) then
begin begin
child := doc.CreateTextNode(StringListToText(ErrorsMemo.Lines,#10)); child := doc.CreateTextNode(StringListToText(ErrorsMemo.Lines, #10));
n.AppendChild(child); n.AppendChild(child);
end end
else else
n.FirstChild.NodeValue := StringListToText(ErrorsMemo.Lines,#10); n.FirstChild.NodeValue := StringListToText(ErrorsMemo.Lines, #10);
end;
end; end;
n := n.NextSibling; n := n.NextSibling;
end; end;
WriteXMLFile(doc, FDocFileName); WriteXMLFile(doc, FDocFileName);
FChanged := False; FChanged := False;
end; end;
@ -472,9 +474,8 @@ end;
initialization initialization
{$I lazdocfrm.lrs} {$I lazdocfrm.lrs}
finalization finalization
FreeAndNil(doc) FreeAndNil(doc)
end. end.

398
ide/projectopts.lfm Normal file
View File

@ -0,0 +1,398 @@
object ProjectOptionsDialog: TProjectOptionsDialog
ActiveControl = Page4
Caption = 'ProjectOptionsDialog'
ClientHeight = 375
ClientWidth = 430
OnClose = ProjectOptionsClose
OnResize = ProjectOptionsResize
PixelsPerInch = 96
Position = poScreenCenter
HorzScrollBar.Page = 429
VertScrollBar.Page = 374
Left = 552
Height = 375
Top = 284
Width = 430
object Notebook: TNotebook
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil
PageIndex = 3
Height = 338
Width = 430
object Page1: TPage
Caption = 'Page1'
ClientWidth = 422
ClientHeight = 330
Visible = False
Height = 330
Width = 422
object AppSettingsGroupBox: TGroupBox
Align = alTop
BorderSpacing.Around = 6
Caption = 'AppSettingsGroupBox'
ClientHeight = 55
ClientWidth = 406
ParentColor = True
TabOrder = 0
Left = 6
Height = 73
Top = 6
Width = 410
object TitleLabel: TLabel
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'TitleLabel'
Color = clNone
Left = 6
Height = 13
Top = 6
Width = 394
end
object TitleEdit: TEdit
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Right = 6
TabOrder = 0
Text = 'TitleEdit'
Left = 6
Height = 23
Top = 19
Width = 394
end
end
object OutputSettingsGroupBox: TGroupBox
Align = alTop
BorderSpacing.Around = 6
Caption = 'OutputSettingsGroupBox'
ClientHeight = 55
ClientWidth = 406
ParentColor = True
TabOrder = 1
Left = 6
Height = 73
Top = 85
Width = 410
object TargetFileLabel: TLabel
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'TargetFileLabel'
Color = clNone
Left = 6
Height = 13
Top = 6
Width = 394
end
object TargetFileEdit: TEdit
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Right = 6
TabOrder = 0
Text = 'TargetFileEdit'
Left = 6
Height = 23
Top = 19
Width = 394
end
end
end
object Page2: TPage
Caption = 'Page2'
ClientWidth = 422
ClientHeight = 330
Visible = False
Height = 330
Width = 422
object FormsAutoCreatedLabel: TLabel
BorderSpacing.OnChange = nil
Caption = 'FormsAutoCreatedLabel'
Color = clNone
Left = 36
Height = 13
Top = 10
Width = 116
end
object FormsAvailFormsLabel: TLabel
BorderSpacing.OnChange = nil
Caption = 'FormsAvailFormsLabel'
Color = clNone
Left = 252
Height = 13
Top = 10
Width = 106
end
object FormsAutoCreatedListBox: TListBox
BorderSpacing.OnChange = nil
MultiSelect = True
TabOrder = 0
Left = 36
Height = 242
Top = 32
Width = 168
end
object FormsAvailFormsListBox: TListBox
BorderSpacing.OnChange = nil
MultiSelect = True
TabOrder = 1
Left = 244
Height = 242
Top = 32
Width = 168
end
object FormsMoveAutoCreatedFormUpBtn: TArrow
ArrowType = atUp
BorderSpacing.OnChange = nil
OnClick = FormsMoveAutoCreatedFormUpBtnClick
Left = 6
Height = 24
Top = 32
Width = 24
end
object FormsMoveAutoCreatedFormsDownBtn: TArrow
ArrowType = atDown
BorderSpacing.OnChange = nil
OnClick = FormsMoveAutoCreatedFormDownBtnClick
Left = 6
Height = 24
Top = 60
Width = 24
end
object FormsRemoveFromAutoCreatedFormsBtn: TArrow
ArrowType = atRight
BorderSpacing.OnChange = nil
OnClick = FormsRemoveFromAutoCreatedFormsBtnClick
Left = 212
Height = 24
Top = 32
Width = 24
end
object FormsAddToAutoCreatedFormsBtn: TArrow
BorderSpacing.OnChange = nil
OnClick = FormsAddToAutoCreatedFormsBtnClick
Left = 212
Height = 24
Top = 60
Width = 24
end
object FormsAutoCreateNewFormsCheckBox: TCheckBox
Align = alBottom
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'FormsAutoCreateNewFormsCheckBox'
TabOrder = 2
Left = 6
Height = 23
Top = 283
Width = 410
end
end
object Page3: TPage
Caption = 'Page3'
ClientWidth = 422
ClientHeight = 330
Visible = False
Height = 330
Width = 422
object SaveClosedUnitInfoCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'SaveClosedUnitInfoCheckBox'
TabOrder = 0
Left = 6
Height = 23
Top = 6
Width = 410
end
object MainUnitHasUsesSectionForAllUnitsCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'MainUnitHasUsesSectionForAllUnitsCheckBox'
TabOrder = 1
Left = 6
Height = 23
Top = 103
Width = 410
end
object MainUnitHasCreateFormStatementsCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'MainUnitHasCreateFormStatementsCheckBox'
TabOrder = 2
Left = 6
Height = 23
Top = 132
Width = 410
end
object MainUnitIsPascalSourceCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 16
BorderSpacing.Right = 6
Caption = 'MainUnitIsPascalSourceCheckBox'
TabOrder = 3
Left = 6
Height = 23
Top = 74
Width = 410
end
object SaveOnlyProjectUnitInfoCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'SaveOnlyProjectUnitInfoCheckBox'
TabOrder = 4
Left = 6
Height = 23
Top = 35
Width = 410
end
object MainUnitHasTitleStatementCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'MainUnitHasTitleStatementCheckBox'
TabOrder = 5
Left = 6
Height = 23
Top = 161
Width = 410
end
object RunnableCheckBox: TCheckBox
Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'RunnableCheckBox'
TabOrder = 6
Left = 6
Height = 23
Top = 190
Width = 410
end
end
object Page4: TPage
Caption = 'Page4'
ClientWidth = 422
ClientHeight = 330
Height = 330
Width = 422
object Label2: TLabel
Align = alTop
Caption = 'NOTE: only absolute paths are supported now'
Color = clNone
Height = 17
Top = 222
Width = 422
end
object LazDocPathsGroupBox: TGroupBox
Align = alTop
BorderSpacing.Around = 6
Caption = 'LazDocPathsGroupBox'
ClientHeight = 192
ClientWidth = 406
ParentColor = True
TabOrder = 0
Left = 6
Height = 210
Top = 6
Width = 410
object LazDocListBox: TListBox
Align = alTop
BorderSpacing.Around = 6
TabOrder = 0
Left = 6
Height = 108
Top = 6
Width = 394
end
object LazDocAddPathButton: TButton
Caption = 'LazDocAddPathButton'
OnClick = LazDocAddPathButtonClick
TabOrder = 1
Left = 6
Height = 25
Top = 122
Width = 75
end
object LazDocDeletePathButton: TButton
Caption = 'LazDocDeletePathButton'
OnClick = LazDocDeletePathButtonClick
TabOrder = 2
Left = 90
Height = 25
Top = 122
Width = 75
end
object LazDocPathEdit: TEdit
Anchors = [akTop, akLeft, akRight]
TabOrder = 3
Text = 'LazDocPathEdit'
Left = 6
Height = 23
Top = 154
Width = 358
end
object LazDocBrowseButton: TButton
Anchors = [akTop, akRight]
Caption = '...'
OnClick = LazDocBrowseButtonClick
TabOrder = 4
Left = 369
Height = 23
Top = 154
Width = 23
end
end
end
end
object CancelButton: TButton
Anchors = [akRight, akBottom]
BorderSpacing.OnChange = nil
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
Left = 344
Height = 25
Top = 344
Width = 75
end
object OKButton: TButton
Anchors = [akRight, akBottom]
BorderSpacing.OnChange = nil
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 2
Left = 256
Height = 25
Top = 344
Width = 75
end
object SelectDirectoryDialog: TSelectDirectoryDialog
Title = 'Select Directory'
FilterIndex = 0
Title = 'Select Directory'
left = 344
top = 8
end
end

361
ide/projectopts.lrs
View File

@ -1,244 +1,117 @@
LazarusResources.Add('leftarrow','XPM', { This is an automatically generated lazarus resource file }
'/* XPM */'#10'static char * links_xpm[] = {'#10'"25 25 114 2",'#10'" '#9
+'c None",'#10'". '#9'c #FFFFFF",'#10'"+ '#9'c #E5E5E5",'#10'"@ '#9'c #E3E' LazarusResources.Add('TProjectOptionsDialog','FORMDATA',[
+'3E3",'#10'"# '#9'c #BBBBBB",'#10'"$ '#9'c #B2B2B2",'#10'"% '#9'c #D3D3D3' 'TPF0'#21'TProjectOptionsDialog'#20'ProjectOptionsDialog'#13'ActiveControl'#7
+'",'#10'"& '#9'c #5F5F5F",'#10'"* '#9'c #888888",'#10'"= '#9'c #F1F1F1",' +#5'Page4'#7'Caption'#6#20'ProjectOptionsDialog'#12'ClientHeight'#3'w'#1#11'C'
+#10'"- '#9'c #E8E8E8",'#10'"; '#9'c #ECECEC",'#10'"> '#9'c #E9E9E9",'#10 +'lientWidth'#3#174#1#7'OnClose'#7#19'ProjectOptionsClose'#8'OnResize'#7#20'P'
+'", '#9'c #EBEBEB",'#10'"'' '#9'c #E4E4E4",'#10'") '#9'c #E2E2E2",'#10'"!' +'rojectOptionsResize'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'
+' '#9'c #EDEDED",'#10'"~ '#9'c #EAEAEA",'#10'"{ '#9'c #F0F0F0",'#10'"] '#9 +#18'HorzScrollBar.Page'#3#173#1#18'VertScrollBar.Page'#3'v'#1#4'Left'#3'('#2
+'c #EFEFEF",'#10'"^ '#9'c #F9F9F9",'#10'"/ '#9'c #F4F4F4",'#10'"( '#9'c #' +#6'Height'#3'w'#1#3'Top'#3#28#1#5'Width'#3#174#1#0#9'TNotebook'#8'Notebook'#5
+'F8F8F8",'#10'"_ '#9'c #303030",'#10'": '#9'c #8D8D8D",'#10'"< '#9'c #DFD' +'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+'FDF",'#10'"[ '#9'c #DDDDDD",'#10'"} '#9'c #EEEEEE",'#10'"| '#9'c #FAFAFA' +#22'BorderSpacing.OnChange'#13#9'PageIndex'#2#3#6'Height'#3'R'#1#5'Width'#3
+'",'#10'"1 '#9'c #F3F3F3",'#10'"2 '#9'c #898989",'#10'"3 '#9'c #2F2F2F",' +#174#1#0#5'TPage'#5'Page1'#7'Caption'#6#5'Page1'#11'ClientWidth'#3#166#1#12
+#10'"4 '#9'c #E6E6E6",'#10'"5 '#9'c #E1E1E1",'#10'"6 '#9'c #E0E0E0",'#10 +'ClientHeight'#3'J'#1#7'Visible'#8#6'Height'#3'J'#1#5'Width'#3#166#1#0#9'TGr'
+'"7 '#9'c #B3B3B3",'#10'"8 '#9'c #D6D6D6",'#10'"9 '#9'c #F5F5F5",'#10'"0 ' +'oupBox'#19'AppSettingsGroupBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'
+#9'c #848484",'#10'"a '#9'c #DBDBDB",'#10'"b '#9'c #CACACA",'#10'"c '#9'c' +#2#6#7'Caption'#6#19'AppSettingsGroupBox'#12'ClientHeight'#2'7'#11'ClientWid'
+' #949494",'#10'"d '#9'c #525252",'#10'"e '#9'c #585858",'#10'"f '#9'c #B' +'th'#3#150#1#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'I'#3
+'7B7B7",'#10'"g '#9'c #313131",'#10'"h '#9'c #818181",'#10'"i '#9'c #E7E7' +'Top'#2#6#5'Width'#3#154#1#0#6'TLabel'#10'TitleLabel'#5'Align'#7#5'alTop'#18
+'E7",'#10'"j '#9'c #CBCBCB",'#10'"k '#9'c #868686",'#10'"l '#9'c #414141"' +'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2
+','#10'"m '#9'c #1C1C1C",'#10'"n '#9'c #141414",'#10'"o '#9'c #6C6C6C",' +#6#7'Caption'#6#10'TitleLabel'#5'Color'#7#6'clNone'#4'Left'#2#6#6'Height'#2
+#10'"p '#9'c #323232",'#10'"q '#9'c #8A8A8A",'#10'"r '#9'c #B1B1B1",'#10 +#13#3'Top'#2#6#5'Width'#3#138#1#0#0#5'TEdit'#9'TitleEdit'#5'Align'#7#5'alTop'
+'"s '#9'c #757575",'#10'"t '#9'c #3C3C3C",'#10'"u '#9'c #161616",'#10'"v ' +#18'BorderSpacing.Left'#2#6#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#0#4'Te'
+#9'c #2A2A2A",'#10'"w '#9'c #575757",'#10'"x '#9'c #8B8B8B",'#10'"y '#9'c' +'xt'#6#9'TitleEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#19#5'Width'#3#138#1#0
+' #C4C4C4",'#10'"z '#9'c #717171",'#10'"A '#9'c #2E2E2E",'#10'"B '#9'c #1' +#0#0#9'TGroupBox'#22'OutputSettingsGroupBox'#5'Align'#7#5'alTop'#20'BorderSp'
+'51515",'#10'"C '#9'c #191919",'#10'"D '#9'c #2D2D2D",'#10'"E '#9'c #8E8E' +'acing.Around'#2#6#7'Caption'#6#22'OutputSettingsGroupBox'#12'ClientHeight'#2
+'8E",'#10'"F '#9'c #AAAAAA",'#10'"G '#9'c #A7A7A7",'#10'"H '#9'c #626262"' +'7'#11'ClientWidth'#3#150#1#11'ParentColor'#9#8'TabOrder'#2#1#4'Left'#2#6#6
+','#10'"I '#9'c #3A3A3A",'#10'"J '#9'c #656565",'#10'"K '#9'c #8F8F8F",' +'Height'#2'I'#3'Top'#2'U'#5'Width'#3#154#1#0#6'TLabel'#15'TargetFileLabel'#5
+#10'"L '#9'c #A6A6A6",'#10'"M '#9'c #ADADAD",'#10'"N '#9'c #B0B0B0",'#10 +'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'B'
+'"O '#9'c #909090",'#10'"P '#9'c #393939",'#10'"Q '#9'c #282828",'#10'"R ' +'orderSpacing.Right'#2#6#7'Caption'#6#15'TargetFileLabel'#5'Color'#7#6'clNon'
+#9'c #6D6D6D",'#10'"S '#9'c #9D9D9D",'#10'"T '#9'c #ABABAB",'#10'"U '#9'c' +'e'#4'Left'#2#6#6'Height'#2#13#3'Top'#2#6#5'Width'#3#138#1#0#0#5'TEdit'#14'T'
+' #DCDCDC",'#10'"V '#9'c #C5C5C5",'#10'"W '#9'c #A8A8A8",'#10'"X '#9'c #B' +'argetFileEdit'#5'Align'#7#5'alTop'#18'BorderSpacing.Left'#2#6#19'BorderSpac'
+'5B5B5",'#10'"Y '#9'c #AEAEAE",'#10'"Z '#9'c #ACACAC",'#10'"` '#9'c #A9A9' +'ing.Right'#2#6#8'TabOrder'#2#0#4'Text'#6#14'TargetFileEdit'#4'Left'#2#6#6'H'
+'A9",'#10'" .'#9'c #D2D2D2",'#10'"..'#9'c #AFAFAF",'#10'"+.'#9'c #858585"' +'eight'#2#23#3'Top'#2#19#5'Width'#3#138#1#0#0#0#0#5'TPage'#5'Page2'#7'Captio'
+','#10'"@.'#9'c #8C8C8C",'#10'"#.'#9'c #C0C0C0",'#10'"$.'#9'c #828282",' +'n'#6#5'Page2'#11'ClientWidth'#3#166#1#12'ClientHeight'#3'J'#1#7'Visible'#8#6
+#10'"%.'#9'c #DADADA",'#10'"&.'#9'c #C1C1C1",'#10'"*.'#9'c #838383",'#10 +'Height'#3'J'#1#5'Width'#3#166#1#0#6'TLabel'#21'FormsAutoCreatedLabel'#22'Bo'
+'"=.'#9'c #F7F7F7",'#10'"-.'#9'c #D1D1D1",'#10'";.'#9'c #FDFDFD",'#10'">.' +'rderSpacing.OnChange'#13#7'Caption'#6#21'FormsAutoCreatedLabel'#5'Color'#7#6
+#9'c #878787",'#10'",.'#9'c #F6F6F6",'#10'"''.'#9'c #F2F2F2",'#10'").'#9 +'clNone'#4'Left'#2'$'#6'Height'#2#13#3'Top'#2#10#5'Width'#2't'#0#0#6'TLabel'
+'c #DEDEDE",'#10'"!.'#9'c #7F7F7F",'#10'"~.'#9'c #6B6B6B",'#10'"{.'#9'c #' +#20'FormsAvailFormsLabel'#22'BorderSpacing.OnChange'#13#7'Caption'#6#20'Form'
+'B6B6B6",'#10'"].'#9'c #333333",'#10'"^.'#9'c #383838",'#10'"/.'#9'c #919' +'sAvailFormsLabel'#5'Color'#7#6'clNone'#4'Left'#3#252#0#6'Height'#2#13#3'Top'
+'191",'#10'". . . . . . . . . . . . . . . . . . . . . . . + @ ",'#10'". .' +#2#10#5'Width'#2'j'#0#0#8'TListBox'#23'FormsAutoCreatedListBox'#22'BorderSpa'
+' . . . . . . . . . . . . . . . . . . . . . # $ ",'#10'". . . . . . . . .' +'cing.OnChange'#13#11'MultiSelect'#9#8'TabOrder'#2#0#4'Left'#2'$'#6'Height'#3
+' . . . . . . . . . . . . . % & * ",'#10'". . . = - ; > , ; '' ) ! ~ = , ' +#242#0#3'Top'#2' '#5'Width'#3#168#0#0#0#8'TListBox'#22'FormsAvailFormsListBo'
+'; ; { ] ^ / ( * _ : ",'#10'". . . < { [ ! - , ! - } - = { , ! ~ = ] | 1 ' +'x'#22'BorderSpacing.OnChange'#13#11'MultiSelect'#9#8'TabOrder'#2#1#4'Left'#3
+'2 3 * ",'#10'". . . 4 5 ] 6 = ; ! 4 ! < 6 - ! ) 7 8 @ 9 ; 2 3 0 ",'#10'"' +#244#0#6'Height'#3#242#0#3'Top'#2' '#5'Width'#3#168#0#0#0#6'TArrow'#29'Forms'
+'. . . < ; > 4 = ; , < > [ a b c d e f = } ! 2 g h ",'#10'". . . 4 > @ > ' +'MoveAutoCreatedFormUpBtn'#9'ArrowType'#7#4'atUp'#22'BorderSpacing.OnChange'
+', ! ! [ i j k l m n o '' . ~ 1 * p q ",'#10'". . . 4 , = ! ] { < r s t u' +#13#7'OnClick'#7'"FormsMoveAutoCreatedFormUpBtnClick'#4'Left'#2#6#6'Height'#2
+' n v w } . . @ } q g x ",'#10'". . . + > ] ~ 4 y z A B C D w E F . . . 6' +#24#3'Top'#2' '#5'Width'#2#24#0#0#6'TArrow FormsMoveAutoCreatedFormsDownBtn'
+' > k _ : ",'#10'". . . 4 , '' G H A B C I J K L M N . . . 4 ! * g O ",' +#9'ArrowType'#7#6'atDown'#22'BorderSpacing.OnChange'#13#7'OnClick'#7'$FormsM'
+#10'". . . @ > [ k P Q t R S M F T M F . . . + ; k g : ",'#10'". . . U ) ' +'oveAutoCreatedFormDownBtnClick'#4'Left'#2#6#6'Height'#2#24#3'Top'#2'<'#5'Wi'
+'@ V 7 $ W X $ r Y Z M ` . . . i } k _ * ",'#10'". . . [ 5 > i i , ! .f ' +'dth'#2#24#0#0#6'TArrow"FormsRemoveFromAutoCreatedFormsBtn'#9'ArrowType'#7#7
+'$ ..Y Y M . . . ~ = +._ @.",'#10'". . . 5 4 } ; ! , > ! i #.L Z ..F . . ' +'atRight'#22'BorderSpacing.OnChange'#13#7'OnClick'#7'''FormsRemoveFromAutoCr'
+'. + ~ $.3 E ",'#10'". . . 5 - { ; ! } ~ '' < %.% &.Z T . . . i ; *.g * "' +'eatedFormsBtnClick'#4'Left'#3#212#0#6'Height'#2#24#3'Top'#2' '#5'Width'#2#24
+','#10'". . . i 4 + , 1 =.} ~ , @ [ < -.7 . . . - ; k p K ",'#10'". . . 4' +#0#0#6'TArrow'#29'FormsAddToAutoCreatedFormsBtn'#22'BorderSpacing.OnChange'
+' + '' - } > ^ ;.] 5 @ 4 '' U . . . < i >.p 0 ",'#10'". . . + ) '' - , ] ' +#13#7'OnClick'#7'"FormsAddToAutoCreatedFormsBtnClick'#4'Left'#3#212#0#6'Heig'
+',.= + 4 ''.} 6 U . . . ).4 *._ 0 ",'#10'". . . @ < @ ~ } 1 { ! , ~ > - >' +'ht'#2#24#3'Top'#2'<'#5'Width'#2#24#0#0#9'TCheckBox'#31'FormsAutoCreateNewFo'
+' i U ( . + @ !.3 * ",'#10'". . . ) ).) , { ( { } 1 ] + '' ! 4 5 ~ ! ~ @ ' +'rmsCheckBox'#5'Align'#7#8'alBottom'#22'BorderSpacing.OnChange'#13#20'Border'
+'!.3 0 ",'#10'". . . ) 6 ) - ; 1 = { { } > + + > ~ { ; , ! $.D *.",'#10'"' +'Spacing.Around'#2#6#7'Caption'#6#31'FormsAutoCreateNewFormsCheckBox'#8'TabO'
+'. | b $.*.*.*.0 *.2 E x k $.*.+.>.+.k +.>.2 ~.g 0 ",'#10'"= {.e A _ _ 3 ' +'rder'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#3#27#1#5'Width'#3#154#1#0#0#0#5
+'A g _ _ g ].p _ A _ 3 g g _ 3 p ^.k ",'#10'"6 # q 2 k +.h >.+.x k k +.0 ' +'TPage'#5'Page3'#7'Caption'#6#5'Page3'#11'ClientWidth'#3#166#1#12'ClientHeig'
+'x * x x : O /.: 2 E N "};'#10 +'ht'#3'J'#1#7'Visible'#8#6'Height'#3'J'#1#5'Width'#3#166#1#0#9'TCheckBox'#26
); +'SaveClosedUnitInfoCheckBox'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChange'
LazarusResources.Add('uparrow','XPM', +#13#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Ri'
'/* XPM */'#10'static char * oben_xpm[] = {'#10'"25 25 121 2",'#10'" '#9 +'ght'#2#6#7'Caption'#6#26'SaveClosedUnitInfoCheckBox'#8'TabOrder'#2#0#4'Left'
+'c None",'#10'". '#9'c #FFFFFF",'#10'"+ '#9'c #E5E5E5",'#10'"@ '#9'c #E3E' +#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#154#1#0#0#9'TCheckBox)MainUnitHasU'
+'3E3",'#10'"# '#9'c #BBBBBB",'#10'"$ '#9'c #B2B2B2",'#10'"% '#9'c #D3D3D3' +'sesSectionForAllUnitsCheckBox'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChang'
+'",'#10'"& '#9'c #5F5F5F",'#10'"* '#9'c #888888",'#10'"= '#9'c #F1F1F1",' +'e'#13#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing'
+#10'"- '#9'c #E8E8E8",'#10'"; '#9'c #ECECEC",'#10'"> '#9'c #E9E9E9",'#10 +'.Right'#2#6#7'Caption'#6')MainUnitHasUsesSectionForAllUnitsCheckBox'#8'TabO'
+'", '#9'c #EBEBEB",'#10'"'' '#9'c #E4E4E4",'#10'") '#9'c #E2E2E2",'#10'"!' +'rder'#2#1#4'Left'#2#6#6'Height'#2#23#3'Top'#2'g'#5'Width'#3#154#1#0#0#9'TCh'
+' '#9'c #EDEDED",'#10'"~ '#9'c #EAEAEA",'#10'"{ '#9'c #F0F0F0",'#10'"] '#9 ,'eckBox''MainUnitHasCreateFormStatementsCheckBox'#5'Align'#7#5'alTop'#22'Bor'
+'c #EFEFEF",'#10'"^ '#9'c #F9F9F9",'#10'"/ '#9'c #F4F4F4",'#10'"( '#9'c #' +'derSpacing.OnChange'#13#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6
+'F8F8F8",'#10'"_ '#9'c #303030",'#10'": '#9'c #8D8D8D",'#10'"< '#9'c #DFD' +#19'BorderSpacing.Right'#2#6#7'Caption'#6'''MainUnitHasCreateFormStatementsC'
+'FDF",'#10'"[ '#9'c #DDDDDD",'#10'"} '#9'c #EEEEEE",'#10'"| '#9'c #FAFAFA' +'heckBox'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#23#3'Top'#3#132#0#5'Width'
+'",'#10'"1 '#9'c #F3F3F3",'#10'"2 '#9'c #898989",'#10'"3 '#9'c #2F2F2F",' +#3#154#1#0#0#9'TCheckBox'#30'MainUnitIsPascalSourceCheckBox'#5'Align'#7#5'al'
+#10'"4 '#9'c #E6E6E6",'#10'"5 '#9'c #E1E1E1",'#10'"6 '#9'c #E0E0E0",'#10 +'Top'#22'BorderSpacing.OnChange'#13#18'BorderSpacing.Left'#2#6#17'BorderSpac'
+'"7 '#9'c #D9D9D9",'#10'"8 '#9'c #D8D8D8",'#10'"9 '#9'c #E7E7E7",'#10'"0 ' +'ing.Top'#2#16#19'BorderSpacing.Right'#2#6#7'Caption'#6#30'MainUnitIsPascalS'
+#9'c #F5F5F5",'#10'"a '#9'c #848484",'#10'"b '#9'c #9C9C9C",'#10'"c '#9'c' +'ourceCheckBox'#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#23#3'Top'#2'J'#5'Wid'
+' #838383",'#10'"d '#9'c #B8B8B8",'#10'"e '#9'c #313131",'#10'"f '#9'c #8' +'th'#3#154#1#0#0#9'TCheckBox'#31'SaveOnlyProjectUnitInfoCheckBox'#5'Align'#7
+'18181",'#10'"g '#9'c #5B5B5B",'#10'"h '#9'c #363636",'#10'"i '#9'c #AAAA' +#5'alTop'#22'BorderSpacing.OnChange'#13#18'BorderSpacing.Left'#2#6#17'Border'
+'AA",'#10'"j '#9'c #DCDCDC",'#10'"k '#9'c #F2F2F2",'#10'"l '#9'c #323232"' +'Spacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#31'SaveOnlyProjec'
+','#10'"m '#9'c #8A8A8A",'#10'"n '#9'c #292929",'#10'"o '#9'c #242424",' +'tUnitInfoCheckBox'#8'TabOrder'#2#4#4'Left'#2#6#6'Height'#2#23#3'Top'#2'#'#5
+#10'"p '#9'c #A6A6A6",'#10'"q '#9'c #DEDEDE",'#10'"r '#9'c #8B8B8B",'#10 +'Width'#3#154#1#0#0#9'TCheckBox!MainUnitHasTitleStatementCheckBox'#5'Align'#7
+'"s '#9'c #717171",'#10'"t '#9'c #141414",'#10'"u '#9'c #393939",'#10'"v ' +#5'alTop'#22'BorderSpacing.OnChange'#13#18'BorderSpacing.Left'#2#6#17'Border'
+#9'c #9E9E9E",'#10'"w '#9'c #868686",'#10'"x '#9'c #C6C6C6",'#10'"y '#9'c' +'Spacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6'!MainUnitHasTitle'
+' #191919",'#10'"z '#9'c #696969",'#10'"A '#9'c #ACACAC",'#10'"B '#9'c #C' +'StatementCheckBox'#8'TabOrder'#2#5#4'Left'#2#6#6'Height'#2#23#3'Top'#3#161#0
+'7C7C7",'#10'"C '#9'c #909090",'#10'"D '#9'c #161616",'#10'"E '#9'c #3C3C' +#5'Width'#3#154#1#0#0#9'TCheckBox'#16'RunnableCheckBox'#5'Align'#7#5'alTop'
+'3C",'#10'"F '#9'c #9D9D9D",'#10'"G '#9'c #ADADAD",'#10'"H '#9'c #D6D6D6"' +#22'BorderSpacing.OnChange'#13#18'BorderSpacing.Left'#2#6#17'BorderSpacing.T'
+','#10'"I '#9'c #414141",'#10'"J '#9'c #1A1A1A",'#10'"K '#9'c #6A6A6A",' +'op'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#16'RunnableCheckBox'#8'Tab'
+#10'"L '#9'c #B3B3B3",'#10'"M '#9'c #B1B1B1",'#10'"N '#9'c #AEAEAE",'#10 +'Order'#2#6#4'Left'#2#6#6'Height'#2#23#3'Top'#3#190#0#5'Width'#3#154#1#0#0#0
+'"O '#9'c #BEBEBE",'#10'"P '#9'c #181818",'#10'"Q '#9'c #989898",'#10'"R ' +#5'TPage'#5'Page4'#7'Caption'#6#5'Page4'#11'ClientWidth'#3#166#1#12'ClientHe'
+#9'c #B4B4B4",'#10'"S '#9'c #AFAFAF",'#10'"T '#9'c #A8A8A8",'#10'"U '#9'c' +'ight'#3'J'#1#6'Height'#3'J'#1#5'Width'#3#166#1#0#6'TLabel'#6'Label2'#5'Alig'
+' #858585",'#10'"V '#9'c #8C8C8C",'#10'"W '#9'c #D2D2D2",'#10'"X '#9'c #4' +'n'#7#5'alTop'#7'Caption'#6'+NOTE: only absolute paths are supported now'#5
+'24242",'#10'"Y '#9'c #151515",'#10'"Z '#9'c #B0B0B0",'#10'"` '#9'c #8282' +'Color'#7#6'clNone'#6'Height'#2#17#3'Top'#3#222#0#5'Width'#3#166#1#0#0#9'TGr'
+'82",'#10'" .'#9'c #8E8E8E",'#10'"..'#9'c #1E1E1E",'#10'"+.'#9'c #2E2E2E"' +'oupBox'#19'LazDocPathsGroupBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'
+','#10'"@.'#9'c #939393",'#10'"#.'#9'c #A9A9A9",'#10'"$.'#9'c #A7A7A7",' +#2#6#7'Caption'#6#19'LazDocPathsGroupBox'#12'ClientHeight'#3#192#0#11'Client'
+#10'"%.'#9'c #D4D4D4",'#10'"&.'#9'c #535353",'#10'"*.'#9'c #171717",'#10 +'Width'#3#150#1#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#210
+'"=.'#9'c #5C5C5C",'#10'"-.'#9'c #8F8F8F",'#10'";.'#9'c #484848",'#10'">.' +#0#3'Top'#2#6#5'Width'#3#154#1#0#8'TListBox'#13'LazDocListBox'#5'Align'#7#5
+#9'c #575757",'#10'",.'#9'c #CECECE",'#10'"''.'#9'c #878787",'#10'").'#9 +'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2
+'c #D5D5D5",'#10'"!.'#9'c #7F7F7F",'#10'"~.'#9'c #FCFCFC",'#10'"{.'#9'c #' +'l'#3'Top'#2#6#5'Width'#3#138#1#0#0#7'TButton'#19'LazDocAddPathButton'#7'Cap'
+'FBFBFB",'#10'"].'#9'c #FDFDFD",'#10'"^.'#9'c #FEFEFE",'#10'"/.'#9'c #2D2' +'tion'#6#19'LazDocAddPathButton'#7'OnClick'#7#24'LazDocAddPathButtonClick'#8
+'D2D",'#10'"(.'#9'c #CACACA",'#10'"_.'#9'c #6B6B6B",'#10'":.'#9'c #B6B6B6' +'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#7'TB'
+'",'#10'"<.'#9'c #585858",'#10'"[.'#9'c #333333",'#10'"}.'#9'c #383838",' +'utton'#22'LazDocDeletePathButton'#7'Caption'#6#22'LazDocDeletePathButton'#7
+#10'"|.'#9'c #919191",'#10'". . . . . . . . . . . . . . . . . . . . . . .' +'OnClick'#7#27'LazDocDeletePathButtonClick'#8'TabOrder'#2#2#4'Left'#2'Z'#6'H'
+' + @ ",'#10'". . . . . . . . . . . . . . . . . . . . . . . # $ ",'#10'".' +'eight'#2#25#3'Top'#2'z'#5'Width'#2'K'#0#0#5'TEdit'#14'LazDocPathEdit'#7'Anc'
+' . . . . . . . . . . . . . . . . . . . . . % & * ",'#10'". . . = - ; > ,' +'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#3#4'Text'#6#14'LazDo'
+' ; '' ) ! ~ = , ; ; { ] ^ / ( * _ : ",'#10'". . . < { [ ! - , ! - } - = ' +'cPathEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#3#154#0#5'Width'#3'f'#1#0#0#7
+'{ , ! ~ = ] | 1 2 3 * ",'#10'". . . 4 5 ] 6 = ; ! 7 7 8 < - ! ] - ] 9 0 ' +'TButton'#18'LazDocBrowseButton'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Capti'
+'; 2 3 a ",'#10'". . . < ; > 4 = ; , b c d 7 @ 4 - 9 ~ ~ } ! 2 e f ",'#10 +'on'#6#3'...'#7'OnClick'#7#23'LazDocBrowseButtonClick'#8'TabOrder'#2#4#4'Lef'
+'". . . 4 > @ > , ! 4 g h i @ > [ j + 4 k ~ 1 * l m ",'#10'". . . 4 , = !' +'t'#3'q'#1#6'Height'#2#23#3'Top'#3#154#0#5'Width'#2#23#0#0#0#0#0#7'TButton'
+' ] { d n o p j j q ~ + @ ~ @ } m e r ",'#10'". . . + > ] ~ ; ; s t u v <' +#12'CancelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.On'
+' q ) - 4 '' ~ 6 > w _ : ",'#10'". . . 4 , = } { x e y z A B '' ) ~ , ~ {' +'Change'#13#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrde'
+' 4 ! * e C ",'#10'". . . @ > = { / f D E F A G 5 6 6 + '' , + ; w e : ",' +'r'#2#1#4'Left'#3'X'#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#0#0#7'TBut'
+#10'". . . j ) , ; H I J K L M N O 6 8 ) q 4 9 } w _ * ",'#10'". . . [ 5 ' +'ton'#8'OKButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'BorderSpacing.On'
+'~ ~ 2 P 3 Q R $ S T j 5 4 6 9 ~ = U _ V ",'#10'". . . 5 4 } W X Y g G Z ' +'Change'#13#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2
+'S A A B @ '' [ @ + ~ ` 3 .",'#10'". . . 5 - { Q ..+.@.S A #.$.#.A %.+ 5' +#2#4'Left'#3#0#1#6'Height'#2#25#3'Top'#3'X'#1#5'Width'#2'K'#0#0#22'TSelectDi'
+' 9 9 ; c e * ",'#10'". . . 9 4 8 &.*.=.N Z L $ i $.#.L % W < - ; w l -."' +'rectoryDialog'#21'SelectDirectoryDialog'#5'Title'#6#16'Select Directory'#11
+','#10'". . . 4 + Z ;.>.,.~ ~ ~ ~ ~ ~ ~ ~ . . @ < 9 ''.l a ",'#10'". . . ' +'FilterIndex'#2#0#5'Title'#6#16'Select Directory'#4'left'#3'X'#1#3'top'#2#8#0
+'+ ) d @.).. . . . . . . . . . . ( q 4 c _ a ",'#10'". . . @ < %.6 . . . ' +#0#0
+'. . . . . . . . . . + @ !.3 * ",'#10'". . . ) q 5 k . . . . . . ~.{.. ].' ]);
+'( . ^.~ @ !.3 a ",'#10'". . . ) 6 ) - ; 1 = { { } > + + > ~ { ; , ! ` /.'
+'c ",'#10'". | (.` c c c a c 2 .r w ` c U ''.U w U ''.2 _.e a ",'#10'"= '
+':.<.+._ _ 3 +.e _ _ e [.l _ +._ 3 e e _ 3 l }.w ",'#10'"6 # m 2 w U f '''
+'.U r w w U a r * r r : C |.: 2 .Z "};'#10
);
LazarusResources.Add('rightarrow','XPM',
'/* XPM */'#10'static char * rechts_xpm[] = {'#10'"25 25 109 2",'#10'" '#9
+'c None",'#10'". '#9'c #FFFFFF",'#10'"+ '#9'c #E5E5E5",'#10'"@ '#9'c #E3E'
+'3E3",'#10'"# '#9'c #BBBBBB",'#10'"$ '#9'c #B2B2B2",'#10'"% '#9'c #D3D3D3'
+'",'#10'"& '#9'c #5F5F5F",'#10'"* '#9'c #888888",'#10'"= '#9'c #F1F1F1",'
+#10'"- '#9'c #E8E8E8",'#10'"; '#9'c #ECECEC",'#10'"> '#9'c #E9E9E9",'#10
+'", '#9'c #EBEBEB",'#10'"'' '#9'c #E4E4E4",'#10'") '#9'c #E2E2E2",'#10'"!'
+' '#9'c #EDEDED",'#10'"~ '#9'c #EAEAEA",'#10'"{ '#9'c #F0F0F0",'#10'"] '#9
+'c #EFEFEF",'#10'"^ '#9'c #F9F9F9",'#10'"/ '#9'c #F4F4F4",'#10'"( '#9'c #'
+'F8F8F8",'#10'"_ '#9'c #303030",'#10'": '#9'c #8D8D8D",'#10'"< '#9'c #DFD'
+'FDF",'#10'"[ '#9'c #DDDDDD",'#10'"} '#9'c #EEEEEE",'#10'"| '#9'c #FAFAFA'
+'",'#10'"1 '#9'c #F3F3F3",'#10'"2 '#9'c #898989",'#10'"3 '#9'c #2F2F2F",'
+#10'"4 '#9'c #E6E6E6",'#10'"5 '#9'c #E1E1E1",'#10'"6 '#9'c #BFBFBF",'#10
+'"7 '#9'c #BDBDBD",'#10'"8 '#9'c #E0E0E0",'#10'"9 '#9'c #E7E7E7",'#10'"0 '
+#9'c #F5F5F5",'#10'"a '#9'c #848484",'#10'"b '#9'c #939393",'#10'"c '#9'c'
+' #575757",'#10'"d '#9'c #747474",'#10'"e '#9'c #999999",'#10'"f '#9'c #D'
+'1D1D1",'#10'"g '#9'c #DEDEDE",'#10'"h '#9'c #DBDBDB",'#10'"i '#9'c #3131'
+'31",'#10'"j '#9'c #818181",'#10'"k '#9'c #363636",'#10'"l '#9'c #5B5B5B"'
+','#10'"m '#9'c #585858",'#10'"n '#9'c #686868",'#10'"o '#9'c #8E8E8E",'
+#10'"p '#9'c #CCCCCC",'#10'"q '#9'c #DCDCDC",'#10'"r '#9'c #F2F2F2",'#10
+'"s '#9'c #323232",'#10'"t '#9'c #8A8A8A",'#10'"u '#9'c #989898",'#10'"v '
+#9'c #757575",'#10'"w '#9'c #5E5E5E",'#10'"x '#9'c #808080",'#10'"y '#9'c'
+' #B8B8B8",'#10'"z '#9'c #8B8B8B",'#10'"A '#9'c #B6B6B6",'#10'"B '#9'c #A'
+'CACAC",'#10'"C '#9'c #5C5C5C",'#10'"D '#9'c #828282",'#10'"E '#9'c #8686'
+'86",'#10'"F '#9'c #B9B9B9",'#10'"G '#9'c #B5B5B5",'#10'"H '#9'c #B0B0B0"'
+','#10'"I '#9'c #ABABAB",'#10'"J '#9'c #949494",'#10'"K '#9'c #7F7F7F",'
+#10'"L '#9'c #646464",'#10'"M '#9'c #707070",'#10'"N '#9'c #AAAAAA",'#10
+'"O '#9'c #909090",'#10'"P '#9'c #B4B4B4",'#10'"Q '#9'c #B1B1B1",'#10'"R '
+#9'c #ADADAD",'#10'"S '#9'c #A9A9A9",'#10'"T '#9'c #8C8C8C",'#10'"U '#9'c'
+' #B3B3B3",'#10'"V '#9'c #C0C0C0",'#10'"W '#9'c #CECECE",'#10'"X '#9'c #F'
+'7F7F7",'#10'"Y '#9'c #C7C7C7",'#10'"Z '#9'c #858585",'#10'"` '#9'c #FCFC'
+'FC",'#10'" .'#9'c #FDFDFD",'#10'"..'#9'c #838383",'#10'"+.'#9'c #393939"'
+','#10'"@.'#9'c #D0D0D0",'#10'"#.'#9'c #DADADA",'#10'"$.'#9'c #8F8F8F",'
+#10'"%.'#9'c #878787",'#10'"&.'#9'c #C3C3C3",'#10'"*.'#9'c #F6F6F6",'#10
+'"=.'#9'c #FBFBFB",'#10'"-.'#9'c #2D2D2D",'#10'";.'#9'c #CACACA",'#10'">.'
+#9'c #6B6B6B",'#10'",.'#9'c #2E2E2E",'#10'"''.'#9'c #333333",'#10'").'#9
+'c #383838",'#10'"!.'#9'c #919191",'#10'". . . . . . . . . . . . . . . . '
+'. . . . . . . + @ ",'#10'". . . . . . . . . . . . . . . . . . . . . . . '
+'# $ ",'#10'". . . . . . . . . . . . . . . . . . . . . . % & * ",'#10'". '
+'. . = - ; > , ; '' ) ! ~ = , ; ; { ] ^ / ( * _ : ",'#10'". . . < { [ ! -'
+' , ! - } - = { , ! ~ = ] | 1 2 3 * ",'#10'". . . 4 5 6 7 + , ! 4 ! < 8 -'
+' ! ] - ] 9 0 ; 2 3 a ",'#10'". . . < ; b c d e f g > [ h @ 4 - 9 ~ ~ } !'
+' 2 i j ",'#10'". . . 4 > a k l m n o p @ > ~ [ q + 4 r ~ 1 * s t ",'#10
+'". . . 4 , t s 2 u v w l x y h [ ~ + @ ~ @ } t i z ",'#10'". . . + > 2 _'
+' * A B b d c C D y 8 + '' ~ 8 > E _ : ",'#10'". . . 4 , t i z F G H I J '
+'K L m M N q ] 4 ! * i O ",'#10'". . . @ > t i : y A P Q R S u a T 6 9 { '
+'+ ; E i : ",'#10'". . . q ) E _ z y A G U Q $ V W = . . X 9 } E _ * ",'
+#10'". . . [ 5 E _ 2 y G P y V Y @ . . . . 1 ~ = Z _ T ",'#10'". . . 5 4 '
+'* _ 2 A U V V @ . . . . ` g @ + ~ D 3 o ",'#10'". . . 5 - 2 _ 2 V V q ( '
+'. . . .'' , @ 9 9 ; ..i * ",'#10'". . . 9 4 ..+.@.W ( . . . . g 5 > #.#'
+'.8 - ; E s $.",'#10'". . . 4 + O o . . . . . 9 '' > ~ '' 9 ; @ < 9 %.s a'
+' ",'#10'". . . + ) &.h . . . *.+ 4 r ] ) + '' 9 < g 4 .._ a ",'#10'". . '
+'. @ < < =.. . { ! , ~ > - > - q [ ) + @ K 3 * ",'#10'". . . ) g ) , { ( '
+'{ } 1 ] + '' ! 4 5 ~ ! ~ @ K 3 a ",'#10'". . . ) 8 ) - ; 1 = { { } > + +'
+' > ~ { ; , ! D -...",'#10'". | ;.D ......a ..2 o z E D ..Z %.Z E Z %.2 >'
+'.i a ",'#10'"= A m ,._ _ 3 ,.i _ _ i ''.s _ ,._ 3 i i _ 3 s ).E ",'#10'"'
+'8 # t 2 E Z j %.Z z E E Z a z * z z : O !.: 2 o H "};'#10
);
LazarusResources.Add('downarrow','XPM',
'/* XPM */'#10'static char * unten_xpm[] = {'#10'"25 25 128 2",'#10'" '#9
+'c None",'#10'". '#9'c #FFFFFF",'#10'"+ '#9'c #E5E5E5",'#10'"@ '#9'c #E3E'
+'3E3",'#10'"# '#9'c #BBBBBB",'#10'"$ '#9'c #B2B2B2",'#10'"% '#9'c #D3D3D3'
+'",'#10'"& '#9'c #5F5F5F",'#10'"* '#9'c #888888",'#10'"= '#9'c #F1F1F1",'
+#10'"- '#9'c #E8E8E8",'#10'"; '#9'c #ECECEC",'#10'"> '#9'c #E9E9E9",'#10
+'", '#9'c #EBEBEB",'#10'"'' '#9'c #E4E4E4",'#10'") '#9'c #E2E2E2",'#10'"!'
+' '#9'c #EDEDED",'#10'"~ '#9'c #EAEAEA",'#10'"{ '#9'c #F0F0F0",'#10'"] '#9
+'c #EFEFEF",'#10'"^ '#9'c #F9F9F9",'#10'"/ '#9'c #F4F4F4",'#10'"( '#9'c #'
+'F8F8F8",'#10'"_ '#9'c #303030",'#10'": '#9'c #8D8D8D",'#10'"< '#9'c #DFD'
+'FDF",'#10'"[ '#9'c #DDDDDD",'#10'"} '#9'c #EEEEEE",'#10'"| '#9'c #FAFAFA'
+'",'#10'"1 '#9'c #F3F3F3",'#10'"2 '#9'c #898989",'#10'"3 '#9'c #2F2F2F",'
+#10'"4 '#9'c #E6E6E6",'#10'"5 '#9'c #E1E1E1",'#10'"6 '#9'c #D4D4D4",'#10
+'"7 '#9'c #ADADAD",'#10'"8 '#9'c #AFAFAF",'#10'"9 '#9'c #AAAAAA",'#10'"0 '
+#9'c #ABABAB",'#10'"a '#9'c #A6A6A6",'#10'"b '#9'c #A1A1A1",'#10'"c '#9'c'
+' #A2A2A2",'#10'"d '#9'c #A7A7A7",'#10'"e '#9'c #B4B4B4",'#10'"f '#9'c #D'
+'CDCDC",'#10'"g '#9'c #F5F5F5",'#10'"h '#9'c #848484",'#10'"i '#9'c #CFCF'
+'CF",'#10'"j '#9'c #747474",'#10'"k '#9'c #535353",'#10'"l '#9'c #4A4A4A"'
+','#10'"m '#9'c #494949",'#10'"n '#9'c #454545",'#10'"o '#9'c #484848",'
+#10'"p '#9'c #444444",'#10'"q '#9'c #464646",'#10'"r '#9'c #474747",'#10
+'"s '#9'c #9C9C9C",'#10'"t '#9'c #E0E0E0",'#10'"u '#9'c #313131",'#10'"v '
+#9'c #818181",'#10'"w '#9'c #DADADA",'#10'"x '#9'c #777777",'#10'"y '#9'c'
+' #4D4D4D",'#10'"z '#9'c #666666",'#10'"A '#9'c #686868",'#10'"B '#9'c #6'
+'16161",'#10'"C '#9'c #656565",'#10'"D '#9'c #646464",'#10'"E '#9'c #9B9B'
+'9B",'#10'"F '#9'c #323232",'#10'"G '#9'c #8A8A8A",'#10'"H '#9'c #9F9F9F"'
+','#10'"I '#9'c #565656",'#10'"J '#9'c #959595",'#10'"K '#9'c #A0A0A0",'
+#10'"L '#9'c #A5A5A5",'#10'"M '#9'c #A4A4A4",'#10'"N '#9'c #B5B5B5",'#10
+'"O '#9'c #F6F6F6",'#10'"P '#9'c #8B8B8B",'#10'"Q '#9'c #D0D0D0",'#10'"R '
+#9'c #676767",'#10'"S '#9'c #7D7D7D",'#10'"T '#9'c #ACACAC",'#10'"U '#9'c'
+' #C0C0C0",'#10'"V '#9'c #868686",'#10'"W '#9'c #696969",'#10'"X '#9'c #B'
+'0B0B0",'#10'"Y '#9'c #A9A9A9",'#10'"Z '#9'c #909090",'#10'"` '#9'c #D8D8'
+'D8",'#10'" .'#9'c #7B7B7B",'#10'"..'#9'c #B1B1B1",'#10'"+.'#9'c #AEAEAE"'
+','#10'"@.'#9'c #5C5C5C",'#10'"#.'#9'c #B3B3B3",'#10'"$.'#9'c #DEDEDE",'
+#10'"%.'#9'c #E7E7E7",'#10'"&.'#9'c #C5C5C5",'#10'"*.'#9'c #878787",'#10
+'"=.'#9'c #B6B6B6",'#10'"-.'#9'c #C7C7C7",'#10'";.'#9'c #858585",'#10'">.'
+#9'c #8C8C8C",'#10'",.'#9'c #9D9D9D",'#10'"''.'#9'c #828282",'#10'").'#9
+'c #8E8E8E",'#10'"!.'#9'c #BFBFBF",'#10'"~.'#9'c #595959",'#10'"{.'#9'c #'
+'CECECE",'#10'"].'#9'c #FDFDFD",'#10'"^.'#9'c #838383",'#10'"/.'#9'c #F7F'
+'7F7",'#10'"(.'#9'c #707070",'#10'"_.'#9'c #939393",'#10'":.'#9'c #8F8F8F'
+'",'#10'"<.'#9'c #B7B7B7",'#10'"[.'#9'c #FBFBFB",'#10'"}.'#9'c #7F7F7F",'
+#10'"|.'#9'c #2D2D2D",'#10'"1.'#9'c #CACACA",'#10'"2.'#9'c #6B6B6B",'#10
+'"3.'#9'c #585858",'#10'"4.'#9'c #2E2E2E",'#10'"5.'#9'c #333333",'#10'"6.'
+#9'c #383838",'#10'"7.'#9'c #919191",'#10'". . . . . . . . . . . . . . . '
+'. . . . . . . . + @ ",'#10'". . . . . . . . . . . . . . . . . . . . . . '
+'. # $ ",'#10'". . . . . . . . . . . . . . . . . . . . . . % & * ",'#10'"'
+'. . . = - ; > , ; '' ) ! ~ = , ; ; { ] ^ / ( * _ : ",'#10'". . . < { [ !'
+' - , ! - } - = { , ! ~ = ] | 1 2 3 * ",'#10'". . . 4 5 6 7 8 9 0 a 0 b c'
+' d 0 7 e f 4 g ; 2 3 h ",'#10'". . . < ; i j k l m n o p p q r k s t g }'
+' ! 2 u v ",'#10'". . . 4 > w x y z A B C D z z B E ( . . ~ 1 * F G ",'#10
+'". . . 4 , { H I J d K K L L M N @ . . O @ } G u P ",'#10'". . . + > ] Q'
+' R S T T 0 T 0 0 U ( . . ~ t > V _ : ",'#10'". . . 4 , = ! E W E X 8 T Y'
+' # f . . ] { 4 ! * u Z ",'#10'". . . @ > = { ` D .X ..7 +.U ( . . '' , '
+'+ ; V u : ",'#10'". . . f ) , ; { 2 @.s #...U @ . . - $.4 %.} V _ * ",'
+#10'". . . [ 5 ~ ~ } &.B *.#.=.-.. . . %.t %.~ = ;._ >.",'#10'". . . 5 4 '
+'} ; } ~ * A ,.U @ . . ) 4 $.@ + ~ ''.3 ).",'#10'". . . 5 - { ; ! ! !.~.h'
+' {.. . ].'' , @ %.%.; ^.u * ",'#10'". . . %.4 + , 1 /.4 (._.= . . 5 > w '
+'w t - ; V F :.",'#10'". . . 4 + '' - } > ( <.-.. . . ~ '' %.; @ < %.*.F '
+'h ",'#10'". . . + ) '' - , ] O ) - . . ] ) + '' %.< $.4 ^._ h ",'#10'". '
+'. . @ < @ ~ } 1 { ; { [.g - > - f [ ) + @ }.3 * ",'#10'". . . ) $.) , { '
+'( { } 1 ] + '' ! 4 5 ~ ! ~ @ }.3 h ",'#10'". . . ) t ) - ; 1 = { { } > +'
+' + > ~ { ; , ! ''.|.^.",'#10'". | 1.''.^.^.^.h ^.2 ).P V ''.^.;.*.;.V ;.'
+'*.2 2.u h ",'#10'"= =.3.4._ _ 3 4.u _ _ u 5.F _ 4._ 3 u u _ 3 F 6.V ",'
+#10'"t # G 2 V ;.v *.;.P V V ;.h P * P P : Z 7.: 2 ).X "};'#10
);

908
ide/projectopts.pp
View File

File diff suppressed because it is too large Load Diff

51
ide/uniteditor.pp
View File

@ -2488,19 +2488,35 @@ begin
end; end;
function FindPathFromFile(FileNamePath: string): string; function FindPathFromFile(FileNamePath: string): string;
{$IFDEF EnableLazDoc}
var var
i: integer; i: integer;
fn: string; fn: string;
pathlist: TStrings;
begin begin
Result := ''; Result := '';
pathlist := TStringList.Create;
//get global lazdoc paths
pathlist.AddStrings(EnvironmentOptions.LazDocPathList);
//get project lazdoc paths
pathlist.AddStrings(LazarusIDE.ActiveProject.LazDocPathList);
fn := SetDirSeparators('/') + ChangeFileExt(ExtractFileName(FileNamePath), '.xml'); fn := SetDirSeparators('/') + ChangeFileExt(ExtractFileName(FileNamePath), '.xml');
for i:= 0 to Pred(EnvironmentOptions.LazDocPathList.Count) do for i:= 0 to Pred(pathlist.Count) do
if FileExists(EnvironmentOptions.LazDocPathList[i] + fn) then if FileExists(pathlist[i] + fn) then
begin begin
Result := EnvironmentOptions.LazDocPathList[i]; Result := pathlist[i];
pathlist.Free;
Exit; Exit;
end; end;
pathlist.Free;
end; end;
{$ELSE}
begin
Result:=FileNamePath;
end;
{$ENDIF}
procedure TSourceNotebook.LazDocNewPage; procedure TSourceNotebook.LazDocNewPage;
var var
@ -2520,9 +2536,15 @@ begin
DocPath := FindPathFromFile(SrcEdit.FileName); DocPath := FindPathFromFile(SrcEdit.FileName);
if DocPath <> '' then if DocPath <> '' then
//load the XML file begin
//load the .xml file
LazDocForm.DocFileName := DocPath + SetDirSeparators('/') + LazDocForm.DocFileName := DocPath + SetDirSeparators('/') +
ChangeFileExt(ExtractFileName(SrcEdit.FileName),'.xml'); ChangeFileExt(ExtractFileName(SrcEdit.FileName),'.xml');
UpdateLazDoc;
end
else
LazDocForm.Reset;
end; end;
end; end;
@ -2530,17 +2552,24 @@ procedure TSourceNotebook.UpdateLazDoc;
var var
SrcEdit: TSourceEditor; SrcEdit: TSourceEditor;
DocPath: string; DocPath: string;
CaretPos: TPoint;
begin begin
SrcEdit:=GetActiveSE; SrcEdit:=GetActiveSE;
//try to find if the file belongs to LCL //find a path that contains the .xml file
//for other projects the location of the doc file could
//be found through the lpi file
DocPath := FindPathFromFile(SrcEdit.FileName); DocPath := FindPathFromFile(SrcEdit.FileName);
if DocPath <> '' then if DocPath <> '' then
begin
CaretPos := SrcEdit.EditorComponent.CaretXY;
Dec(CaretPos.x);
Dec(CaretPos.y);
LazDocForm.UpdateLazDoc(SrcEdit.EditorComponent.Lines, LazDocForm.UpdateLazDoc(SrcEdit.EditorComponent.Lines,
SrcEdit.EditorComponent.CaretXY); CaretPos);
end
else
LazDocForm.Reset;
end; end;
function TSourceNotebook.OnSynCompletionPaintItem(const AKey: string; function TSourceNotebook.OnSynCompletionPaintItem(const AKey: string;
@ -4663,7 +4692,9 @@ var TempEditor:TSourceEditor;
Begin Begin
TempEditor:=GetActiveSE; TempEditor:=GetActiveSE;
{$IFDEF EnableLazDoc}
LazDocNewPage; LazDocNewPage;
{$ENDIF}
//writeln('TSourceNotebook.NotebookPageChanged ',Notebook.Pageindex,' ',TempEditor <> nil,' fAutoFocusLock=',fAutoFocusLock); //writeln('TSourceNotebook.NotebookPageChanged ',Notebook.Pageindex,' ',TempEditor <> nil,' fAutoFocusLock=',fAutoFocusLock);
if TempEditor <> nil then if TempEditor <> nil then
@ -4904,17 +4935,21 @@ begin
FOnCtrlMouseUp(Sender,Button,Shift,X,Y); FOnCtrlMouseUp(Sender,Button,Shift,X,Y);
end; end;
end; end;
{$IFDEF EnableLazDoc}
if Assigned(LazDocForm) then if Assigned(LazDocForm) then
UpdateLazDoc; UpdateLazDoc;
{$ENDIF}
end; end;
procedure TSourceNotebook.EditorKeyDown(Sender: TObject; var Key: Word; procedure TSourceNotebook.EditorKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin
{$IFDEF EnableLazDoc}
if not Assigned(LazDocForm) then Exit; if not Assigned(LazDocForm) then Exit;
if Key in [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT, VK_END, VK_HOME] then if Key in [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT, VK_END, VK_HOME] then
UpdateLazDoc; UpdateLazDoc;
{$ENDIF}
end; end;
procedure TSourceNotebook.ShowSynEditHint(const MousePos: TPoint); procedure TSourceNotebook.ShowSynEditHint(const MousePos: TPoint);