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

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

1
.gitattributes vendored
View File

@ -911,6 +911,7 @@ ide/patheditordlg.pas svneol=native#text/pascal
ide/project.pp svneol=native#text/pascal
ide/projectdefs.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.pp svneol=native#text/pascal
ide/publishmodule.pas svneol=native#text/pascal

View File

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

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'
+'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'
+#11'PageControl'#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#22
+'BorderSpacing.OnChange'#13#8'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7
+#8'tpBottom'#6'Height'#2'u'#5'Width'#3#241#2#0#9'TTabSheet'#13'ShortTabSheet'
+#7'Caption'#6#13'ShortTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2
+#6'Height'#2'['#5'Width'#3#233#2#0#5'TEdit'#9'ShortEdit'#5'Align'#7#5'alTop'
+#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#4'Text'#6#9'ShortE'
+'dit'#6'Height'#2#23#5'Width'#3#233#2#0#0#0#9'TTabSheet'#13'DescrTabSheet'#7
+'Caption'#6#13'DescrTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2#6
+'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#9'DescrMemo'#5'Align'#7#8'alClient'
+#22'BorderSpacing.OnChange'#13#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.C'
+'olor'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11'Courier New'#10
+'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7
+#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['#5'Width'#3#233#2#0
+#0#0#9'TTabSheet'#14'ErrorsTabSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'Clie'
+'ntHeight'#2'['#11'ClientWidth'#3#233#2#6'Height'#2'['#5'Width'#3#233#2#0#5
+'TMemo'#10'ErrorsMemo'#5'Align'#7#8'alClient'#12'Font.CharSet'#7#12'ANSI_CHA'
+'RSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11'C'
+'ourier New'#10'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#10'ErrorsMemo'
+#0#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['#5
+'Width'#3#233#2#0#0#0#0#0
+#11'PageControl'#10'ActivePage'#7#13'ShortTabSheet'#5'Align'#7#8'alClient'#8
+'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#8'tpBottom'#6'Height'#2'u'#5
+'Width'#3#241#2#0#9'TTabSheet'#13'ShortTabSheet'#7'Caption'#6#13'ShortTabShe'
+'et'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2#6'Height'#2'['#5'Width'#3
+#233#2#0#5'TEdit'#9'ShortEdit'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChange'
+#13#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#4'Text'#6#9'Sho'
+'rtEdit'#6'Height'#2#23#5'Width'#3#233#2#0#0#0#9'TTabSheet'#13'DescrTabSheet'
+#7'Caption'#6#13'DescrTabSheet'#12'ClientHeight'#2'['#11'ClientWidth'#3#233#2
+#6'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#9'DescrMemo'#5'Align'#7#8'alClie'
+'nt'#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font'
+'.Height'#2#244#9'Font.Name'#6#11'Courier New'#10'Font.Pitch'#7#7'fpFixed'#13
+'Lines.Strings'#1#6#9'DescrMemo'#0#8'OnChange'#7#22'DocumentationTagChange'#8
+'TabOrder'#2#0#6'Height'#2'['#5'Width'#3#233#2#0#0#0#9'TTabSheet'#14'ErrorsT'
+'abSheet'#7'Caption'#6#14'ErrorsTabSheet'#12'ClientHeight'#2'['#11'ClientWid'
+'th'#3#233#2#6'Height'#2'['#5'Width'#3#233#2#0#5'TMemo'#10'ErrorsMemo'#5'Ali'
+'gn'#7#8'alClient'#22'BorderSpacing.OnChange'#13#12'Font.CharSet'#7#12'ANSI_'
+'CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#244#9'Font.Name'#6#11
+'Courier New'#10'Font.Pitch'#7#7'fpFixed'#13'Lines.Strings'#1#6#10'ErrorsMem'
+'o'#0#8'OnChange'#7#22'DocumentationTagChange'#8'TabOrder'#2#0#6'Height'#2'['
+#5'Width'#3#233#2#0#0#0#0#0
]);

View File

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

View File

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

File diff suppressed because it is too large Load Diff

View File

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