mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 21:38:27 +02:00
FpDocUpdater: Fix compilation and main form layout.
git-svn-id: trunk@46986 -
This commit is contained in:
juha
parent
d8175e6e33
commit
6a7959c6d0
@ -709,7 +709,7 @@ procedure TFPDocTopic.Assign(ASource: TFPDocTopic);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
inherited;
|
||||
inherited Assign(ASource);
|
||||
|
||||
for I := 0 to ASource.TopicsCount - 1 do
|
||||
AddTopic(ASource.Topics[I]);
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0"?>
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
@ -6,9 +6,9 @@
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<ResourceType Value="res"/>
|
||||
<ActiveWindowIndexAtStart Value="0"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<Language Value=""/>
|
||||
@ -38,310 +38,39 @@
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="21">
|
||||
<Units Count="4">
|
||||
<Unit0>
|
||||
<Filename Value="fpdocupdater.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="FPDocUpdater"/>
|
||||
<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"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="MainUnit"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<TopLine Value="292"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="../../lcl/masks.pas"/>
|
||||
<UnitName Value="Masks"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<TopLine Value="178"/>
|
||||
<CursorPos X="3" Y="180"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="../../fpc/2.2.1/source/rtl/inc/wstringh.inc"/>
|
||||
<TopLine Value="16"/>
|
||||
<CursorPos X="11" Y="29"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="../../fpc/2.2.1/source/rtl/inc/wstrings.inc"/>
|
||||
<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"/>
|
||||
<TopLine Value="2750"/>
|
||||
<CursorPos X="43" Y="2766"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="../../lcl/stdctrls.pp"/>
|
||||
<UnitName Value="StdCtrls"/>
|
||||
<TopLine Value="924"/>
|
||||
<CursorPos X="3" Y="913"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="../../lcl/lcltype.pp"/>
|
||||
<UnitName Value="LCLType"/>
|
||||
<TopLine Value="865"/>
|
||||
<CursorPos X="3" Y="878"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="unitsummary.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="FormSummary"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="UnitSummary"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<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"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="3879"/>
|
||||
<CursorPos X="11" Y="3879"/>
|
||||
<UsageCount Value="10"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit20>
|
||||
</Unit3>
|
||||
</Units>
|
||||
<JumpHistory Count="29" HistoryIndex="28">
|
||||
<Position1>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="341" Column="9" TopLine="329"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="341" Column="17" TopLine="329"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="342" Column="10" TopLine="329"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="346" Column="26" TopLine="329"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="1054" Column="36" TopLine="1037"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="mainunit.pas"/>
|
||||
<Caret Line="168" Column="77" TopLine="160"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="30" Column="39" TopLine="1"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="943" Column="26" TopLine="926"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="153" Column="76" TopLine="148"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="149" Column="14" TopLine="136"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="161" Column="43" TopLine="136"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="84" Column="14" TopLine="67"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="760" Column="64" TopLine="743"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="84" Column="14" TopLine="67"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="760" Column="15" TopLine="743"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="186" Column="16" TopLine="183"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="792" Column="15" TopLine="771"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="786" Column="15" TopLine="766"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="645" Column="15" TopLine="624"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="634" Column="15" TopLine="614"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="fpdocfiles.pas"/>
|
||||
<Caret Line="396" Column="14" TopLine="378"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<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="10"/>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="units"/>
|
||||
</SearchPaths>
|
||||
@ -357,21 +86,8 @@
|
||||
</Win32>
|
||||
</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>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
<Name Value="ECodetoolError"/>
|
||||
|
||||
@ -7,8 +7,8 @@ uses
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms
|
||||
{ add your units here }, MainUnit, UnitMove, UnitSummary;
|
||||
Forms,
|
||||
MainUnit, UnitMove, UnitSummary;
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
|
||||
@ -14,54 +14,79 @@ object FormMain: TFormMain
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.31'
|
||||
LCLVersion = '1.3'
|
||||
object LabelDocs: TLabel
|
||||
Left = 12
|
||||
Height = 14
|
||||
Top = 18
|
||||
Width = 82
|
||||
AnchorSideTop.Control = EditDocs
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = EditDocs
|
||||
Left = 72
|
||||
Height = 15
|
||||
Top = 15
|
||||
Width = 101
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 7
|
||||
Caption = 'FPDoc files path:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LabelUnits: TLabel
|
||||
Left = 12
|
||||
Height = 14
|
||||
Top = 54
|
||||
Width = 54
|
||||
AnchorSideTop.Control = EditUnits
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = EditUnits
|
||||
Left = 107
|
||||
Height = 15
|
||||
Top = 49
|
||||
Width = 66
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 7
|
||||
Caption = 'Units path:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LabelBackup: TLabel
|
||||
Left = 444
|
||||
Height = 14
|
||||
AnchorSideLeft.Control = ListBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 426
|
||||
Height = 15
|
||||
Top = 252
|
||||
Width = 89
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 111
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Backup extension:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LabelPackage: TLabel
|
||||
Left = 432
|
||||
Height = 14
|
||||
AnchorSideLeft.Control = ListBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 426
|
||||
Height = 15
|
||||
Top = 161
|
||||
Width = 45
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 54
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Package:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LabelMakeSkel: TLabel
|
||||
Left = 11
|
||||
Height = 14
|
||||
Top = 124
|
||||
Width = 95
|
||||
AnchorSideTop.Control = EditMakeSkel
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = EditMakeSkel
|
||||
Left = 54
|
||||
Height = 15
|
||||
Top = 114
|
||||
Width = 119
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 7
|
||||
Caption = 'MakeSkel tool path:'
|
||||
ParentColor = False
|
||||
end
|
||||
object LabelInclude: TLabel
|
||||
Left = 11
|
||||
Height = 14
|
||||
Top = 90
|
||||
Width = 87
|
||||
AnchorSideTop.Control = EditInclude
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = EditInclude
|
||||
Left = 65
|
||||
Height = 15
|
||||
Top = 83
|
||||
Width = 108
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 7
|
||||
Caption = 'Include files path:'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -69,7 +94,7 @@ object FormMain: TFormMain
|
||||
Left = 180
|
||||
Height = 21
|
||||
Top = 12
|
||||
Width = 359
|
||||
Width = 368
|
||||
ShowHidden = False
|
||||
ButtonWidth = 45
|
||||
NumGlyphs = 1
|
||||
@ -79,46 +104,55 @@ object FormMain: TFormMain
|
||||
OnChange = EditDocsChange
|
||||
end
|
||||
object EditUnits: TDirectoryEdit
|
||||
AnchorSideLeft.Control = EditDocs
|
||||
AnchorSideTop.Control = EditDocs
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = EditDocs
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 180
|
||||
Height = 21
|
||||
Top = 48
|
||||
Width = 359
|
||||
Top = 46
|
||||
Width = 368
|
||||
ShowHidden = False
|
||||
ButtonWidth = 45
|
||||
NumGlyphs = 1
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 13
|
||||
MaxLength = 0
|
||||
TabOrder = 1
|
||||
OnChange = EditUnitsChange
|
||||
end
|
||||
object ButtonUpdate: TButton
|
||||
AnchorSideLeft.Control = ButtonRefresh
|
||||
Left = 426
|
||||
Height = 25
|
||||
Top = 396
|
||||
Width = 122
|
||||
Anchors = [akTop, akRight]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Update'
|
||||
OnClick = ButtonUpdateClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object ButtonUpdateAll: TButton
|
||||
AnchorSideLeft.Control = ButtonUpdateNew
|
||||
Left = 426
|
||||
Height = 25
|
||||
Top = 468
|
||||
Width = 122
|
||||
Anchors = [akTop, akRight]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Update All'
|
||||
OnClick = ButtonUpdateAllClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object ButtonUpdateNew: TButton
|
||||
AnchorSideLeft.Control = ButtonUpdate
|
||||
Left = 426
|
||||
Height = 25
|
||||
Top = 432
|
||||
Width = 122
|
||||
Anchors = [akTop, akRight]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Update New'
|
||||
Font.Color = clRed
|
||||
@ -127,11 +161,14 @@ object FormMain: TFormMain
|
||||
TabOrder = 4
|
||||
end
|
||||
object ButtonRefresh: TButton
|
||||
AnchorSideLeft.Control = ListBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 426
|
||||
Height = 25
|
||||
Top = 354
|
||||
Width = 122
|
||||
Anchors = [akTop, akRight]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Refresh'
|
||||
OnClick = ButtonRefreshClick
|
||||
@ -150,73 +187,95 @@ object FormMain: TFormMain
|
||||
TabOrder = 6
|
||||
end
|
||||
object CheckBoxBackup: TCheckBox
|
||||
Left = 439
|
||||
Height = 17
|
||||
AnchorSideLeft.Control = ListBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 426
|
||||
Height = 20
|
||||
Top = 222
|
||||
Width = 107
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 139
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Backup FPDoc files'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 7
|
||||
end
|
||||
object EditBackup: TEdit
|
||||
AnchorSideLeft.Control = ListBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 444
|
||||
Height = 21
|
||||
Top = 276
|
||||
Width = 80
|
||||
Anchors = [akTop, akRight]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 24
|
||||
TabOrder = 8
|
||||
Text = 'bak'
|
||||
end
|
||||
object EditPackage: TEdit
|
||||
AnchorSideLeft.Control = ListBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 444
|
||||
Height = 21
|
||||
Top = 186
|
||||
Width = 80
|
||||
Anchors = [akTop, akRight]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 24
|
||||
TabOrder = 9
|
||||
Text = 'lcl'
|
||||
end
|
||||
object EditMakeSkel: TFileNameEdit
|
||||
AnchorSideLeft.Control = EditInclude
|
||||
AnchorSideTop.Control = LabelInclude
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = EditInclude
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 180
|
||||
Height = 21
|
||||
Top = 120
|
||||
Width = 359
|
||||
Top = 111
|
||||
Width = 368
|
||||
DialogOptions = []
|
||||
FilterIndex = 0
|
||||
HideDirectories = False
|
||||
ButtonWidth = 45
|
||||
NumGlyphs = 1
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 13
|
||||
MaxLength = 0
|
||||
TabOrder = 10
|
||||
end
|
||||
object EditInclude: TDirectoryEdit
|
||||
AnchorSideLeft.Control = EditUnits
|
||||
AnchorSideTop.Control = EditUnits
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = EditUnits
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 180
|
||||
Height = 21
|
||||
Top = 84
|
||||
Width = 360
|
||||
Top = 80
|
||||
Width = 368
|
||||
ShowHidden = False
|
||||
ButtonWidth = 45
|
||||
NumGlyphs = 1
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 13
|
||||
MaxLength = 0
|
||||
TabOrder = 11
|
||||
end
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Height = 23
|
||||
Top = 505
|
||||
Height = 20
|
||||
Top = 508
|
||||
Width = 598
|
||||
Panels = <>
|
||||
end
|
||||
object CheckBoxShowSummary: TCheckBox
|
||||
Left = 433
|
||||
Height = 17
|
||||
AnchorSideLeft.Control = ListBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 426
|
||||
Height = 20
|
||||
Top = 312
|
||||
Width = 90
|
||||
Anchors = [akTop, akRight]
|
||||
Width = 118
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Show summary'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
|
||||
@ -70,7 +70,6 @@ type
|
||||
procedure ListBoxDrawItem(Control: TWinControl; Index: Integer;
|
||||
ARect: TRect; State: TOwnerDrawState);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
procedure BeginUpdate;
|
||||
procedure EndUpdate;
|
||||
@ -125,7 +124,7 @@ begin
|
||||
else
|
||||
begin
|
||||
Brush.Color := ListBox.Color;
|
||||
case Integer(ListBox.Items.Objects[Index]) of
|
||||
case PtrInt(ListBox.Items.Objects[Index]) of
|
||||
0: SetTextColor(ListBox.Canvas.Handle, ListBox.Canvas.Font.Color); // normal
|
||||
1: SetTextColor(ListBox.Canvas.Handle, clRed); // new
|
||||
end;
|
||||
@ -190,7 +189,7 @@ begin
|
||||
BeginUpdate;
|
||||
try
|
||||
for I := 0 to ListBox.Items.Count - 1 do
|
||||
if Integer(ListBox.items.Objects[I]) = 1 then UpdateFile(ListBox.Items[I]);
|
||||
if PtrInt(ListBox.items.Objects[I]) = 1 then UpdateFile(ListBox.Items[I]);
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
@ -240,7 +239,7 @@ var
|
||||
DocsPath, UnitsPath: String;
|
||||
I: Integer;
|
||||
N: String;
|
||||
State: Integer;
|
||||
State: PtrInt;
|
||||
begin
|
||||
ListBox.Items.BeginUpdate;
|
||||
try
|
||||
@ -257,9 +256,10 @@ begin
|
||||
begin
|
||||
N := ExtractFileNameOnly(Units[I]);
|
||||
|
||||
if Docs.IndexOf(N) = -1 then State := 1
|
||||
if Docs.IndexOf(N) = -1 then
|
||||
State := 1
|
||||
else
|
||||
State := 0;
|
||||
State := 0;
|
||||
|
||||
ListBox.Items.AddObject(Units[I], TObject(State));
|
||||
end;
|
||||
|
||||
@ -13,7 +13,7 @@ object FormMove: TFormMove
|
||||
ChildSizing.TopBottomSpacing = 10
|
||||
ClientHeight = 471
|
||||
ClientWidth = 559
|
||||
LCLVersion = '0.9.31'
|
||||
LCLVersion = '1.3'
|
||||
object LabelSrc: TLabel
|
||||
Left = 10
|
||||
Height = 42
|
||||
|
||||
@ -47,10 +47,8 @@ type
|
||||
procedure ListBoxDestDrawItem(Control: TWinControl; Index: Integer; ARect: TRect;
|
||||
State: TOwnerDrawState);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
FormMove: TFormMove;
|
||||
@ -73,7 +71,7 @@ begin
|
||||
else
|
||||
begin
|
||||
Brush.Color := ListBoxDest.Color;
|
||||
case Integer(ListBoxDest.Items.Objects[Index]) of
|
||||
case PtrInt(ListBoxDest.Items.Objects[Index]) of
|
||||
0: SetTextColor(ListBoxDest.Canvas.Handle, ListBoxDest.Canvas.Font.Color); // empty
|
||||
1: SetTextColor(ListBoxDest.Canvas.Handle, clRed); // nonempty
|
||||
end;
|
||||
|
||||
@ -9,12 +9,12 @@ object FormSummary: TFormSummary
|
||||
Caption = 'Update Summary'
|
||||
ClientHeight = 273
|
||||
ClientWidth = 303
|
||||
LCLVersion = '0.9.31'
|
||||
LCLVersion = '1.3'
|
||||
object LabelFileName: TLabel
|
||||
Left = 10
|
||||
Height = 14
|
||||
Height = 15
|
||||
Top = 11
|
||||
Width = 69
|
||||
Width = 89
|
||||
Caption = 'LabelFileName'
|
||||
ParentColor = False
|
||||
end
|
||||
|
||||
@ -19,7 +19,6 @@ type
|
||||
PaintBox: TPaintBox;
|
||||
procedure PaintBoxPaint(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
OldInfo, NewInfo: TFPDocInfo;
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user