DocEditor, FPDocUpdater: removed absolute paths (based on patch by Samuel Herzog, bug #18569). While at this, also removed .lrs files

git-svn-id: trunk@31899 -
This commit is contained in:
maxim 2011-08-06 17:03:06 +00:00
parent 54b3d403f6
commit dd31bb20d9
11 changed files with 140 additions and 195 deletions

3
.gitattributes vendored
View File

@ -2840,13 +2840,10 @@ doceditor/fpdocupdater/fpdocfiles.pas svneol=native#text/pascal
doceditor/fpdocupdater/fpdocupdater.lpi svneol=native#text/plain
doceditor/fpdocupdater/fpdocupdater.lpr svneol=native#text/pascal
doceditor/fpdocupdater/mainunit.lfm svneol=native#text/plain
doceditor/fpdocupdater/mainunit.lrs svneol=native#text/pascal
doceditor/fpdocupdater/mainunit.pas svneol=native#text/pascal
doceditor/fpdocupdater/unitmove.lfm svneol=native#text/plain
doceditor/fpdocupdater/unitmove.lrs svneol=native#text/pascal
doceditor/fpdocupdater/unitmove.pas svneol=native#text/pascal
doceditor/fpdocupdater/unitsummary.lfm svneol=native#text/plain
doceditor/fpdocupdater/unitsummary.lrs svneol=native#text/pascal
doceditor/fpdocupdater/unitsummary.pas svneol=native#text/pascal
doceditor/frmabout.lfm svneol=native#text/plain
doceditor/frmabout.pp svneol=native#text/pascal

View File

@ -1,20 +1,23 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="9"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="4"/>
<ResourceType Value="res"/>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/>
<CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -40,29 +43,35 @@
<Filename Value="fpdocupdater.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="FPDocUpdater"/>
<CursorPos X="47" Y="15"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="47" Y="15"/>
<UsageCount Value="48"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="mainunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="FormMain"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainUnit"/>
<CursorPos X="30" Y="105"/>
<TopLine Value="83"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="433"/>
<CursorPos X="73" Y="441"/>
<UsageCount Value="48"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="fpdocfiles.pas"/>
<UnitName Value="FPDocFiles"/>
<CursorPos X="7" Y="377"/>
<TopLine Value="372"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="1245"/>
<CursorPos X="7" Y="377"/>
<UsageCount Value="21"/>
<Bookmarks Count="1">
<Item0 X="25" Y="396" ID="1"/>
@ -72,138 +81,147 @@
<Unit3>
<Filename Value=""/>
<UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="None"/>
</Unit3>
<Unit4>
<Filename Value="unitmove.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="FormMove"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="UnitMove"/>
<CursorPos X="50" Y="81"/>
<TopLine Value="57"/>
<EditorIndex Value="6"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="45" Y="56"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../fpc/2.2.1/source/packages/fcl-xml/src/dom.pp"/>
<UnitName Value="DOM"/>
<CursorPos X="14" Y="223"/>
<TopLine Value="210"/>
<CursorPos X="14" Y="223"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="../../fpc/2.2.1/source/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="20" Y="580"/>
<TopLine Value="572"/>
<CursorPos X="20" Y="580"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="../../fpc/2.2.1/source/rtl/objpas/classes/stringl.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="292"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="../../lcl/masks.pas"/>
<UnitName Value="Masks"/>
<CursorPos X="1" Y="402"/>
<TopLine Value="380"/>
<CursorPos X="1" Y="402"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="../../fpc/2.2.1/source/packages/fcl-xml/src/xmlcfg.pp"/>
<UnitName Value="XMLCfg"/>
<CursorPos X="15" Y="69"/>
<TopLine Value="56"/>
<CursorPos X="15" Y="69"/>
<UsageCount Value="10"/>
</Unit9>
<Unit10>
<Filename Value="../../fpc/2.2.1/source/rtl/objpas/classes/lists.inc"/>
<CursorPos X="3" Y="180"/>
<TopLine Value="178"/>
<CursorPos X="3" Y="180"/>
<UsageCount Value="10"/>
</Unit10>
<Unit11>
<Filename Value="../../fpc/2.2.1/source/rtl/inc/wstringh.inc"/>
<CursorPos X="11" Y="29"/>
<TopLine Value="16"/>
<CursorPos X="11" Y="29"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="../../fpc/2.2.1/source/rtl/inc/wstrings.inc"/>
<CursorPos X="3" Y="1290"/>
<TopLine Value="1285"/>
<CursorPos X="3" Y="1290"/>
<UsageCount Value="10"/>
</Unit12>
<Unit13>
<Filename Value="../../fpc/2.2.1/source/packages/fcl-xml/src/xmlread.pp"/>
<UnitName Value="XMLRead"/>
<CursorPos X="43" Y="2766"/>
<TopLine Value="2750"/>
<CursorPos X="43" Y="2766"/>
<UsageCount Value="10"/>
</Unit13>
<Unit14>
<Filename Value="../../lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/>
<CursorPos X="3" Y="913"/>
<TopLine Value="924"/>
<CursorPos X="3" Y="913"/>
<UsageCount Value="10"/>
</Unit14>
<Unit15>
<Filename Value="../../lcl/lcltype.pp"/>
<UnitName Value="LCLType"/>
<CursorPos X="3" Y="878"/>
<TopLine Value="865"/>
<CursorPos X="3" Y="878"/>
<UsageCount Value="10"/>
</Unit15>
<Unit16>
<Filename Value="unitsummary.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="FormSummary"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="UnitSummary"/>
<CursorPos X="33" Y="72"/>
<TopLine Value="43"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="11" Y="32"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit16>
<Unit17>
<Filename Value="../../ide/helpoptions.pas"/>
<ComponentName Value="HelpOptionsDialog"/>
<HasResources Value="True"/>
<UnitName Value="HelpOptions"/>
<CursorPos X="24" Y="240"/>
<TopLine Value="241"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="182"/>
<CursorPos X="24" Y="240"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit17>
<Unit18>
<Filename Value="../../components/codetools/laz_xmlcfg.pas"/>
<UnitName Value="Laz_XMLCfg"/>
<CursorPos X="3" Y="48"/>
<TopLine Value="35"/>
<CursorPos X="3" Y="48"/>
<UsageCount Value="10"/>
</Unit18>
<Unit19>
<Filename Value="../../fpc/2.2.1/source/packages/fcl-xml/src/xmlwrite.pp"/>
<UnitName Value="XMLWrite"/>
<CursorPos X="11" Y="37"/>
<TopLine Value="24"/>
<CursorPos X="11" Y="37"/>
<UsageCount Value="10"/>
</Unit19>
<Unit20>
<Filename Value="../../../fpc/packages/fcl-xml/src/xmlread.pp"/>
<UnitName Value="XMLRead"/>
<CursorPos X="11" Y="3879"/>
<WindowIndex Value="0"/>
<TopLine Value="3879"/>
<EditorIndex Value="5"/>
<CursorPos X="11" Y="3879"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit20>
</Units>
<JumpHistory Count="22" HistoryIndex="21">
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="fpdocfiles.pas"/>
<Caret Line="341" Column="9" TopLine="329"/>
@ -289,16 +307,49 @@
<Caret Line="396" Column="14" TopLine="378"/>
</Position21>
<Position22>
<Filename Value="../../../fpc/packages/fcl-xml/src/xmlread.pp"/>
<Caret Line="3875" Column="6" TopLine="3873"/>
<Filename Value="mainunit.pas"/>
<Caret Line="30" Column="75" TopLine="18"/>
</Position22>
<Position23>
<Filename Value="mainunit.pas"/>
<Caret Line="50" Column="13" TopLine="18"/>
</Position23>
<Position24>
<Filename Value="mainunit.pas"/>
<Caret Line="65" Column="23" TopLine="27"/>
</Position24>
<Position25>
<Filename Value="mainunit.pas"/>
<Caret Line="197" Column="29" TopLine="159"/>
</Position25>
<Position26>
<Filename Value="mainunit.pas"/>
<Caret Line="199" Column="34" TopLine="161"/>
</Position26>
<Position27>
<Filename Value="mainunit.pas"/>
<Caret Line="211" Column="11" TopLine="173"/>
</Position27>
<Position28>
<Filename Value="mainunit.pas"/>
<Caret Line="224" Column="50" TopLine="186"/>
</Position28>
<Position29>
<Filename Value="mainunit.pas"/>
<Caret Line="247" Column="41" TopLine="221"/>
</Position29>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="10"/>
<SearchPaths>
<UnitOutputDirectory Value="units"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -307,12 +358,16 @@
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<Source Value="../../fpc/2.2.1/source/packages/fcl-xml/src/xmlcfg.pp"/>
<Line Value="135"/>
</Item1>

View File

@ -1,7 +1,7 @@
object FormMain: TFormMain
Left = 253
Height = 528
Top = 156
Top = 138
Width = 598
HorzScrollBar.Page = 597
VertScrollBar.Page = 527
@ -14,6 +14,7 @@ object FormMain: TFormMain
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '0.9.31'
object LabelDocs: TLabel
Left = 12
Height = 14
@ -66,27 +67,27 @@ object FormMain: TFormMain
end
object EditDocs: TDirectoryEdit
Left = 180
Height = 23
Height = 21
Top = 12
Width = 359
Directory = 'D:\Projects\Lazarus\Docs\xml\lcl\'
ShowHidden = False
ButtonWidth = 45
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
ParentColor = False
MaxLength = 0
TabOrder = 0
OnChange = EditDocsChange
end
object EditUnits: TDirectoryEdit
Left = 180
Height = 23
Height = 21
Top = 48
Width = 359
Directory = 'D:\Projects\Lazarus\LCL\'
ShowHidden = False
ButtonWidth = 45
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
ParentColor = False
MaxLength = 0
TabOrder = 1
OnChange = EditUnitsChange
end
@ -122,6 +123,7 @@ object FormMain: TFormMain
Caption = 'Update New'
Font.Color = clRed
OnClick = ButtonUpdateNewClick
ParentFont = False
TabOrder = 4
end
object ButtonRefresh: TButton
@ -141,16 +143,17 @@ object FormMain: TFormMain
Top = 156
Width = 409
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
MultiSelect = True
OnDrawItem = ListBoxDrawItem
Style = lbOwnerDrawFixed
TabOrder = 6
end
object CheckBoxBackup: TCheckBox
Left = 426
Height = 19
Left = 439
Height = 17
Top = 222
Width = 120
Width = 107
Anchors = [akTop, akRight]
Caption = 'Backup FPDoc files'
Checked = True
@ -159,7 +162,7 @@ object FormMain: TFormMain
end
object EditBackup: TEdit
Left = 444
Height = 23
Height = 21
Top = 276
Width = 80
Anchors = [akTop, akRight]
@ -168,7 +171,7 @@ object FormMain: TFormMain
end
object EditPackage: TEdit
Left = 444
Height = 23
Height = 21
Top = 186
Width = 80
Anchors = [akTop, akRight]
@ -177,39 +180,42 @@ object FormMain: TFormMain
end
object EditMakeSkel: TFileNameEdit
Left = 180
Height = 23
Height = 21
Top = 120
Width = 359
FileName = 'D:\Projects\fpcbeta\bin\i386-win32\makeskel'
DialogOptions = []
FilterIndex = 0
HideDirectories = False
ButtonWidth = 45
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
ParentColor = False
MaxLength = 0
TabOrder = 10
end
object EditInclude: TDirectoryEdit
Left = 180
Height = 23
Height = 21
Top = 84
Width = 360
Directory = 'D:\Projects\Lazarus\LCL\Include'
ShowHidden = False
ButtonWidth = 45
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
ParentColor = False
MaxLength = 0
TabOrder = 11
end
object StatusBar: TStatusBar
Height = 20
Top = 508
Left = 0
Height = 23
Top = 505
Width = 598
Panels = <>
end
object CheckBoxShowSummary: TCheckBox
Left = 426
Height = 19
Left = 433
Height = 17
Top = 312
Width = 97
Width = 90
Anchors = [akTop, akRight]
Caption = 'Show summary'
Checked = True

View File

@ -1,68 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFormMain','FORMDATA',[
'TPF0'#9'TFormMain'#8'FormMain'#4'Left'#3#253#0#6'Height'#3#16#2#3'Top'#3#156
+#0#5'Width'#3'V'#2#18'HorzScrollBar.Page'#3'U'#2#18'VertScrollBar.Page'#3#15
+#2#13'ActiveControl'#7#8'EditDocs'#7'Caption'#6#13'FPDoc Updater'#12'ClientH'
+'eight'#3#16#2#11'ClientWidth'#3'V'#2#21'Constraints.MinHeight'#3#13#2#20'Co'
+'nstraints.MinWidth'#3','#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'F'
+'ormDestroy'#6'OnShow'#7#8'FormShow'#0#6'TLabel'#9'LabelDocs'#4'Left'#2#12#6
+'Height'#2#14#3'Top'#2#18#5'Width'#2'R'#7'Caption'#6#17'FPDoc files path:'#11
+'ParentColor'#8#0#0#6'TLabel'#10'LabelUnits'#4'Left'#2#12#6'Height'#2#14#3'T'
+'op'#2'6'#5'Width'#2'6'#7'Caption'#6#11'Units path:'#11'ParentColor'#8#0#0#6
+'TLabel'#11'LabelBackup'#4'Left'#3#188#1#6'Height'#2#14#3'Top'#3#252#0#5'Wid'
+'th'#2'Y'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#17'Backup extensi'
+'on:'#11'ParentColor'#8#0#0#6'TLabel'#12'LabelPackage'#4'Left'#3#176#1#6'Hei'
+'ght'#2#14#3'Top'#3#161#0#5'Width'#2'-'#7'Anchors'#11#5'akTop'#7'akRight'#0#7
+'Caption'#6#8'Package:'#11'ParentColor'#8#0#0#6'TLabel'#13'LabelMakeSkel'#4
+'Left'#2#11#6'Height'#2#14#3'Top'#2'|'#5'Width'#2'_'#7'Caption'#6#19'MakeSke'
+'l tool path:'#11'ParentColor'#8#0#0#6'TLabel'#12'LabelInclude'#4'Left'#2#11
+#6'Height'#2#14#3'Top'#2'Z'#5'Width'#2'W'#7'Caption'#6#19'Include files path'
+':'#11'ParentColor'#8#0#0#14'TDirectoryEdit'#8'EditDocs'#4'Left'#3#180#0#6'H'
+'eight'#2#23#3'Top'#2#12#5'Width'#3'g'#1#9'Directory'#6'!D:\Projects\Lazarus'
+'\Docs\xml\lcl\'#11'ButtonWidth'#2'-'#9'NumGlyphs'#2#1#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#11'ParentColor'#8#8'TabOrder'#2#0#8'OnChange'#7#14'E'
+'ditDocsChange'#0#0#14'TDirectoryEdit'#9'EditUnits'#4'Left'#3#180#0#6'Height'
+#2#23#3'Top'#2'0'#5'Width'#3'g'#1#9'Directory'#6#24'D:\Projects\Lazarus\LCL\'
+#11'ButtonWidth'#2'-'#9'NumGlyphs'#2#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#0#11'ParentColor'#8#8'TabOrder'#2#1#8'OnChange'#7#15'EditUnitsChange'
+#0#0#7'TButton'#12'ButtonUpdate'#4'Left'#3#170#1#6'Height'#2#25#3'Top'#3#140
+#1#5'Width'#2'z'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerB'
+'order'#2#4#7'Caption'#6#6'Update'#7'OnClick'#7#17'ButtonUpdateClick'#8'TabO'
+'rder'#2#2#0#0#7'TButton'#15'ButtonUpdateAll'#4'Left'#3#170#1#6'Height'#2#25
+#3'Top'#3#212#1#5'Width'#2'z'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderS'
+'pacing.InnerBorder'#2#4#7'Caption'#6#10'Update All'#7'OnClick'#7#20'ButtonU'
+'pdateAllClick'#8'TabOrder'#2#3#0#0#7'TButton'#15'ButtonUpdateNew'#4'Left'#3
+#170#1#6'Height'#2#25#3'Top'#3#176#1#5'Width'#2'z'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Update New'#10
+'Font.Color'#7#5'clRed'#7'OnClick'#7#20'ButtonUpdateNewClick'#8'TabOrder'#2#4
+#0#0#7'TButton'#13'ButtonRefresh'#4'Left'#3#170#1#6'Height'#2#25#3'Top'#3'b'
+#1#5'Width'#2'z'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerB'
+'order'#2#4#7'Caption'#6#7'Refresh'#7'OnClick'#7#18'ButtonRefreshClick'#8'Ta'
+'bOrder'#2#5#0#0#8'TListBox'#7'ListBox'#4'Left'#2#11#6'Height'#3'S'#1#3'Top'
+#3#156#0#5'Width'#3#153#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBo'
+'ttom'#0#11'MultiSelect'#9#10'OnDrawItem'#7#15'ListBoxDrawItem'#5'Style'#7#16
+'lbOwnerDrawFixed'#8'TabOrder'#2#6#0#0#9'TCheckBox'#14'CheckBoxBackup'#4'Lef'
+'t'#3#170#1#6'Height'#2#19#3'Top'#3#222#0#5'Width'#2'x'#7'Anchors'#11#5'akTo'
+'p'#7'akRight'#0#7'Caption'#6#18'Backup FPDoc files'#7'Checked'#9#5'State'#7
+#9'cbChecked'#8'TabOrder'#2#7#0#0#5'TEdit'#10'EditBackup'#4'Left'#3#188#1#6
+'Height'#2#23#3'Top'#3#20#1#5'Width'#2'P'#7'Anchors'#11#5'akTop'#7'akRight'#0
+#8'TabOrder'#2#8#4'Text'#6#3'bak'#0#0#5'TEdit'#11'EditPackage'#4'Left'#3#188
+#1#6'Height'#2#23#3'Top'#3#186#0#5'Width'#2'P'#7'Anchors'#11#5'akTop'#7'akRi'
+'ght'#0#8'TabOrder'#2#9#4'Text'#6#3'lcl'#0#0#13'TFileNameEdit'#12'EditMakeSk'
+'el'#4'Left'#3#180#0#6'Height'#2#23#3'Top'#2'x'#5'Width'#3'g'#1#8'FileName'#6
+'+D:\Projects\fpcbeta\bin\i386-win32\makeskel'#11'ButtonWidth'#2'-'#9'NumGly'
+'phs'#2#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#11'ParentColor'#8#8
+'TabOrder'#2#10#0#0#14'TDirectoryEdit'#11'EditInclude'#4'Left'#3#180#0#6'Hei'
+'ght'#2#23#3'Top'#2'T'#5'Width'#3'h'#1#9'Directory'#6#31'D:\Projects\Lazarus'
+'\LCL\Include'#11'ButtonWidth'#2'-'#9'NumGlyphs'#2#1#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#11'ParentColor'#8#8'TabOrder'#2#11#0#0#10'TStatusBar'#9
+'StatusBar'#6'Height'#2#20#3'Top'#3#252#1#5'Width'#3'V'#2#6'Panels'#14#0#0#0
+#9'TCheckBox'#19'CheckBoxShowSummary'#4'Left'#3#170#1#6'Height'#2#19#3'Top'#3
+'8'#1#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#12'Show'
+' summary'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#12#0#0#11'TOpe'
+'nDialog'#10'OpenDialog'#5'Title'#6#15'Open FPDoc file'#10'DefaultExt'#6#4'.'
+'xml'#6'Filter'#6'&FPDoc file (*.xml)|*.xml|All files|*.*'#7'Options'#11#15
+'ofFileMustExist'#14'ofEnableSizing'#12'ofViewDetail'#0#4'left'#2#24#3'top'#3
+#168#0#0#0#0
]);

View File

@ -91,6 +91,8 @@ var
implementation
{$R *.lfm}
uses
UnitMove, UnitSummary;
@ -208,10 +210,10 @@ procedure TFormMain.FormCreate(Sender: TObject);
begin
XMLConfig := TXMLConfig.Create('FPDocUpdater.xml');
EditDocs.Directory := XMLConfig.GetValue('FPDocsPath/Value', 'E:\lazarus\docs\xml\lcl\');
EditUnits.Directory := XMLConfig.GetValue('UnitsPath/Value', 'E:\lazarus\lcl\');
EditInclude.Directory := XMLConfig.GetValue('IncludePath/Value', 'E:\lazarus\lcl\include\');
EditMakeSkel.FileName := XMLConfig.GetValue('MakeSkelPath/Value', 'E:\lazarus\fpc\2.2.1\bin\i386-win32\makeskel.exe');
EditDocs.Directory := XMLConfig.GetValue('FPDocsPath/Value', 'Please set path to <Docs\xml\lcl\>');
EditUnits.Directory := XMLConfig.GetValue('UnitsPath/Value', 'Please set path to <LCL\>');
EditInclude.Directory := XMLConfig.GetValue('IncludePath/Value', 'Please set path to <LCL\Include\>');
EditMakeSkel.FileName := XMLConfig.GetValue('MakeSkelPath/Value', 'Please set path to <makeskel.exe>');
CheckBoxBackup.Checked := XMLConfig.GetValue('BackupFPDocs/Value', True);
EditBackup.Text := XMLConfig.GetValue('BackupExt/Value', 'bak');
EditPackage.Text := XMLConfig.GetValue('Package/Value', 'lcl');
@ -472,8 +474,5 @@ begin
' Dest: ' + DestList[Dest]);
end;
initialization
{$I mainunit.lrs}
end.

View File

@ -13,6 +13,7 @@ object FormMove: TFormMove
ChildSizing.TopBottomSpacing = 10
ClientHeight = 471
ClientWidth = 559
LCLVersion = '0.9.31'
object LabelSrc: TLabel
Left = 10
Height = 42
@ -32,11 +33,12 @@ object FormMove: TFormMove
end
object LabelSrcElement: TLabel
Left = 10
Height = 20
Height = 1
Top = 120
Width = 44
Width = 1
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object ButtonYes: TButton
Left = 384
@ -69,6 +71,9 @@ object FormMove: TFormMove
Caption = 'The following FPDoc element is not present in the skeleton. Move its contents into different one?'
Color = clBtnFace
Font.Style = [fsBold]
ParentFont = False
ParentColor = False
TabOrder = 4
end
object ListBoxDest: TListBox
Left = 10
@ -76,6 +81,7 @@ object FormMove: TFormMove
Top = 180
Width = 538
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
OnDrawItem = ListBoxDestDrawItem
Style = lbOwnerDrawFixed
TabOrder = 2
@ -86,7 +92,6 @@ object FormMove: TFormMove
Top = 153
Width = 309
Anchors = [akTop, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
OnSelect = ComboBoxJumpSelect
Style = csDropDownList

View File

@ -1,33 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFormMove','FORMDATA',[
'TPF0'#9'TFormMove'#8'FormMove'#4'Left'#3'+'#1#6'Height'#3#215#1#3'Top'#3#153
+#0#5'Width'#3'/'#2#18'HorzScrollBar.Page'#3'.'#2#18'VertScrollBar.Page'#3#214
+#1#13'ActiveControl'#7#9'ButtonYes'#11'BorderIcons'#11#12'biSystemMenu'#10'b'
+'iMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#12'Move Element'#28
+'ChildSizing.LeftRightSpacing'#2#10#28'ChildSizing.TopBottomSpacing'#2#10#12
+'ClientHeight'#3#215#1#11'ClientWidth'#3'/'#2#0#6'TLabel'#8'LabelSrc'#4'Left'
+#2#10#6'Height'#2'*'#3'Top'#2'B'#5'Width'#3#26#2#7'Anchors'#11#5'akTop'#6'ak'
+'Left'#7'akRight'#0#8'AutoSize'#8#11'ParentColor'#8#0#0#6'TLabel'#9'LabelDes'
+'t'#4'Left'#2#10#6'Height'#2#14#3'Top'#3#156#0#5'Width'#2'd'#7'Caption'#6#20
+'Destination element:'#11'ParentColor'#8#0#0#6'TLabel'#15'LabelSrcElement'#4
+'Left'#2#10#6'Height'#2#20#3'Top'#2'x'#5'Width'#2','#10'Font.Style'#11#6'fsB'
+'old'#0#11'ParentColor'#8#0#0#7'TButton'#9'ButtonYes'#4'Left'#3#128#1#6'Heig'
+'ht'#2#25#3'Top'#3#182#1#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'Yes'#11'ModalResult'#2#6#8
+'TabOrder'#2#0#0#0#7'TButton'#8'ButtonNo'#4'Left'#3#217#1#6'Height'#2#25#3'T'
+'op'#3#182#1#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderS'
+'pacing.InnerBorder'#2#4#7'Caption'#6#2'No'#11'ModalResult'#2#7#8'TabOrder'#2
+#1#0#0#11'TStaticText'#10'StaticText'#4'Left'#2#10#6'Height'#2'*'#3'Top'#2#10
+#5'Width'#3#27#2#5'Align'#7#5'alTop'#7'Caption'#6'aThe following FPDoc eleme'
+'nt is not present in the skeleton. Move its contents into different one?'#5
+'Color'#7#9'clBtnFace'#10'Font.Style'#11#6'fsBold'#0#0#0#8'TListBox'#11'List'
+'BoxDest'#4'Left'#2#10#6'Height'#3#246#0#3'Top'#3#180#0#5'Width'#3#26#2#7'An'
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'OnDrawItem'#7#19'L'
+'istBoxDestDrawItem'#5'Style'#7#16'lbOwnerDrawFixed'#8'TabOrder'#2#2#0#0#9'T'
+'ComboBox'#12'ComboBoxJump'#4'Left'#3#240#0#6'Height'#2#21#3'Top'#3#153#0#5
+'Width'#3'5'#1#7'Anchors'#11#5'akTop'#7'akRight'#0#16'AutoCompleteText'#11#22
+'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#8'On'
+'Select'#7#18'ComboBoxJumpSelect'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2
+#3#0#0#0
]);

View File

@ -57,6 +57,8 @@ var
implementation
{$R *.lfm}
{ TFormMove }
procedure TFormMove.ListBoxDestDrawItem(Control: TWinControl; Index: Integer; ARect: TRect;
@ -87,8 +89,5 @@ begin
ListBoxDest.ItemIndex := ListBoxDest.Items.IndexOf(ComboBoxJump.Text);
end;
initialization
{$I unitmove.lrs}
end.

View File

@ -9,6 +9,7 @@ object FormSummary: TFormSummary
Caption = 'Update Summary'
ClientHeight = 273
ClientWidth = 303
LCLVersion = '0.9.31'
object LabelFileName: TLabel
Left = 10
Height = 14

View File

@ -1,15 +0,0 @@
LazarusResources.Add('TFormSummary','FORMDATA',[
'TPF0'#12'TFormSummary'#11'FormSummary'#4'Left'#3''''#1#6'Height'#3#17#1#3'To'
+'p'#3#156#0#5'Width'#3'/'#1#18'HorzScrollBar.Page'#3'.'#1#18'VertScrollBar.P'
+'age'#3#16#1#13'ActiveControl'#7#7'Button1'#7'Caption'#6#14'Update Summary'
+#12'ClientHeight'#3#17#1#11'ClientWidth'#3'/'#1#0#6'TLabel'#13'LabelFileName'
+#4'Left'#2#10#6'Height'#2#14#3'Top'#2#11#5'Width'#2'E'#7'Caption'#6#13'Label'
+'FileName'#11'ParentColor'#8#0#0#9'TPaintBox'#8'PaintBox'#4'Left'#2#12#6'Hei'
+'ght'#3#190#0#3'Top'#2'*'#5'Width'#3#26#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#8'akBottom'#0#7'OnPaint'#7#13'PaintBoxPaint'#0#0#7'TButton'#7'Butt'
+'on1'#4'Left'#3#137#0#6'Height'#2#25#3'Top'#3#243#0#5'Width'#2'K'#7'Anchors'
+#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'OK'#11'ModalResult'#2#1#8'TabOrd'
+'er'#2#0#0#0#7'TButton'#7'Button2'#4'Left'#3#221#0#6'Height'#2#25#3'Top'#3
+#243#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Ca'
+'ption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0
]);

View File

@ -29,6 +29,8 @@ var
implementation
{$R *.lfm}
{ TFormSummary }
procedure TFormSummary.PaintBoxPaint(Sender: TObject);
@ -73,8 +75,5 @@ begin
end;
end;
initialization
{$I unitsummary.lrs}
end.