paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDocUpdater: Fix compilation and main form layout.

Browse Source 
git-svn-id: trunk@46986 -
This commit is contained in:
juha 2014-11-25 17:46:18 +00:00
parent d8175e6e33
commit 6a7959c6d0
9 changed files with 131 additions and 359 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doceditor/fpdocupdater/fpdocfiles.pas
View File

@ -709,7 +709,7 @@ procedure TFPDocTopic.Assign(ASource: TFPDocTopic);
var var
I: Integer; I: Integer;
begin begin
inherited; inherited Assign(ASource);
for I := 0 to ASource.TopicsCount - 1 do for I := 0 to ASource.TopicsCount - 1 do
AddTopic(ASource.Topics[I]); AddTopic(ASource.Topics[I]);

302
doceditor/fpdocupdater/fpdocupdater.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@ -6,9 +6,9 @@
<Flags> <Flags>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<Language Value=""/> <Language Value=""/>
@ -38,310 +38,39 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="21"> <Units Count="4">
<Unit0> <Unit0>
<Filename Value="fpdocupdater.lpr"/> <Filename Value="fpdocupdater.lpr"/>
<IsPartOfProject Value="True"/> <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> </Unit0>
<Unit1> <Unit1>
<Filename Value="mainunit.pas"/> <Filename Value="mainunit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="FormMain"/> <ComponentName Value="FormMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="MainUnit"/> <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> </Unit1>
<Unit2> <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"/> <Filename Value="unitmove.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="FormMove"/> <ComponentName Value="FormMove"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="UnitMove"/> <UnitName Value="UnitMove"/>
<IsVisibleTab Value="True"/> </Unit2>
<EditorIndex Value="5"/> <Unit3>
<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>
<Filename Value="unitsummary.pas"/> <Filename Value="unitsummary.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="FormSummary"/> <ComponentName Value="FormSummary"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="UnitSummary"/> <UnitName Value="UnitSummary"/>
<EditorIndex Value="3"/> </Unit3>
<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>
</Units> </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> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="units"/> <UnitOutputDirectory Value="units"/>
</SearchPaths> </SearchPaths>
@ -357,21 +86,8 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <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"> <Exceptions Count="2">
<Item1> <Item1>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>

4
doceditor/fpdocupdater/fpdocupdater.lpr
View File

@ -7,8 +7,8 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms Forms,
{ add your units here }, MainUnit, UnitMove, UnitSummary; MainUnit, UnitMove, UnitSummary;
begin begin
Application.Initialize; Application.Initialize;

155
doceditor/fpdocupdater/mainunit.lfm
View File

@ -14,54 +14,79 @@ object FormMain: TFormMain
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.31' LCLVersion = '1.3'
object LabelDocs: TLabel object LabelDocs: TLabel
Left = 12 AnchorSideTop.Control = EditDocs
Height = 14 AnchorSideTop.Side = asrCenter
Top = 18 AnchorSideRight.Control = EditDocs
Width = 82 Left = 72
Height = 15
Top = 15
Width = 101
Anchors = [akTop, akRight]
BorderSpacing.Right = 7
Caption = 'FPDoc files path:' Caption = 'FPDoc files path:'
ParentColor = False ParentColor = False
end end
object LabelUnits: TLabel object LabelUnits: TLabel
Left = 12 AnchorSideTop.Control = EditUnits
Height = 14 AnchorSideTop.Side = asrCenter
Top = 54 AnchorSideRight.Control = EditUnits
Width = 54 Left = 107
Height = 15
Top = 49
Width = 66
Anchors = [akTop, akRight]
BorderSpacing.Right = 7
Caption = 'Units path:' Caption = 'Units path:'
ParentColor = False ParentColor = False
end end
object LabelBackup: TLabel object LabelBackup: TLabel
Left = 444 AnchorSideLeft.Control = ListBox
Height = 14 AnchorSideLeft.Side = asrBottom
Left = 426
Height = 15
Top = 252 Top = 252
Width = 89 Width = 111
Anchors = [akTop, akRight] BorderSpacing.Left = 6
Caption = 'Backup extension:' Caption = 'Backup extension:'
ParentColor = False ParentColor = False
end end
object LabelPackage: TLabel object LabelPackage: TLabel
Left = 432 AnchorSideLeft.Control = ListBox
Height = 14 AnchorSideLeft.Side = asrBottom
Left = 426
Height = 15
Top = 161 Top = 161
Width = 45 Width = 54
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
Caption = 'Package:' Caption = 'Package:'
ParentColor = False ParentColor = False
end end
object LabelMakeSkel: TLabel object LabelMakeSkel: TLabel
Left = 11 AnchorSideTop.Control = EditMakeSkel
Height = 14 AnchorSideTop.Side = asrCenter
Top = 124 AnchorSideRight.Control = EditMakeSkel
Width = 95 Left = 54
Height = 15
Top = 114
Width = 119
Anchors = [akTop, akRight]
BorderSpacing.Right = 7
Caption = 'MakeSkel tool path:' Caption = 'MakeSkel tool path:'
ParentColor = False ParentColor = False
end end
object LabelInclude: TLabel object LabelInclude: TLabel
Left = 11 AnchorSideTop.Control = EditInclude
Height = 14 AnchorSideTop.Side = asrCenter
Top = 90 AnchorSideRight.Control = EditInclude
Width = 87 Left = 65
Height = 15
Top = 83
Width = 108
Anchors = [akTop, akRight]
BorderSpacing.Right = 7
Caption = 'Include files path:' Caption = 'Include files path:'
ParentColor = False ParentColor = False
end end
@ -69,7 +94,7 @@ object FormMain: TFormMain
Left = 180 Left = 180
Height = 21 Height = 21
Top = 12 Top = 12
Width = 359 Width = 368
ShowHidden = False ShowHidden = False
ButtonWidth = 45 ButtonWidth = 45
NumGlyphs = 1 NumGlyphs = 1
@ -79,46 +104,55 @@ object FormMain: TFormMain
OnChange = EditDocsChange OnChange = EditDocsChange
end end
object EditUnits: TDirectoryEdit object EditUnits: TDirectoryEdit
AnchorSideLeft.Control = EditDocs
AnchorSideTop.Control = EditDocs
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = EditDocs
AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 21 Height = 21
Top = 48 Top = 46
Width = 359 Width = 368
ShowHidden = False ShowHidden = False
ButtonWidth = 45 ButtonWidth = 45
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 13
MaxLength = 0 MaxLength = 0
TabOrder = 1 TabOrder = 1
OnChange = EditUnitsChange OnChange = EditUnitsChange
end end
object ButtonUpdate: TButton object ButtonUpdate: TButton
AnchorSideLeft.Control = ButtonRefresh
Left = 426 Left = 426
Height = 25 Height = 25
Top = 396 Top = 396
Width = 122 Width = 122
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Update' Caption = 'Update'
OnClick = ButtonUpdateClick OnClick = ButtonUpdateClick
TabOrder = 2 TabOrder = 2
end end
object ButtonUpdateAll: TButton object ButtonUpdateAll: TButton
AnchorSideLeft.Control = ButtonUpdateNew
Left = 426 Left = 426
Height = 25 Height = 25
Top = 468 Top = 468
Width = 122 Width = 122
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Update All' Caption = 'Update All'
OnClick = ButtonUpdateAllClick OnClick = ButtonUpdateAllClick
TabOrder = 3 TabOrder = 3
end end
object ButtonUpdateNew: TButton object ButtonUpdateNew: TButton
AnchorSideLeft.Control = ButtonUpdate
Left = 426 Left = 426
Height = 25 Height = 25
Top = 432 Top = 432
Width = 122 Width = 122
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Update New' Caption = 'Update New'
Font.Color = clRed Font.Color = clRed
@ -127,11 +161,14 @@ object FormMain: TFormMain
TabOrder = 4 TabOrder = 4
end end
object ButtonRefresh: TButton object ButtonRefresh: TButton
AnchorSideLeft.Control = ListBox
AnchorSideLeft.Side = asrBottom
Left = 426 Left = 426
Height = 25 Height = 25
Top = 354 Top = 354
Width = 122 Width = 122
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Refresh' Caption = 'Refresh'
OnClick = ButtonRefreshClick OnClick = ButtonRefreshClick
@ -150,73 +187,95 @@ object FormMain: TFormMain
TabOrder = 6 TabOrder = 6
end end
object CheckBoxBackup: TCheckBox object CheckBoxBackup: TCheckBox
Left = 439 AnchorSideLeft.Control = ListBox
Height = 17 AnchorSideLeft.Side = asrBottom
Left = 426
Height = 20
Top = 222 Top = 222
Width = 107 Width = 139
Anchors = [akTop, akRight] BorderSpacing.Left = 6
Caption = 'Backup FPDoc files' Caption = 'Backup FPDoc files'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 7 TabOrder = 7
end end
object EditBackup: TEdit object EditBackup: TEdit
AnchorSideLeft.Control = ListBox
AnchorSideLeft.Side = asrBottom
Left = 444 Left = 444
Height = 21 Height = 21
Top = 276 Top = 276
Width = 80 Width = 80
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
TabOrder = 8 TabOrder = 8
Text = 'bak' Text = 'bak'
end end
object EditPackage: TEdit object EditPackage: TEdit
AnchorSideLeft.Control = ListBox
AnchorSideLeft.Side = asrBottom
Left = 444 Left = 444
Height = 21 Height = 21
Top = 186 Top = 186
Width = 80 Width = 80
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
TabOrder = 9 TabOrder = 9
Text = 'lcl' Text = 'lcl'
end end
object EditMakeSkel: TFileNameEdit object EditMakeSkel: TFileNameEdit
AnchorSideLeft.Control = EditInclude
AnchorSideTop.Control = LabelInclude
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = EditInclude
AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 21 Height = 21
Top = 120 Top = 111
Width = 359 Width = 368
DialogOptions = [] DialogOptions = []
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 45 ButtonWidth = 45
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 13
MaxLength = 0 MaxLength = 0
TabOrder = 10 TabOrder = 10
end end
object EditInclude: TDirectoryEdit object EditInclude: TDirectoryEdit
AnchorSideLeft.Control = EditUnits
AnchorSideTop.Control = EditUnits
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = EditUnits
AnchorSideRight.Side = asrBottom
Left = 180 Left = 180
Height = 21 Height = 21
Top = 84 Top = 80
Width = 360 Width = 368
ShowHidden = False ShowHidden = False
ButtonWidth = 45 ButtonWidth = 45
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 13
MaxLength = 0 MaxLength = 0
TabOrder = 11 TabOrder = 11
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 20
Top = 505 Top = 508
Width = 598 Width = 598
Panels = <> Panels = <>
end end
object CheckBoxShowSummary: TCheckBox object CheckBoxShowSummary: TCheckBox
Left = 433 AnchorSideLeft.Control = ListBox
Height = 17 AnchorSideLeft.Side = asrBottom
Left = 426
Height = 20
Top = 312 Top = 312
Width = 90 Width = 118
Anchors = [akTop, akRight] BorderSpacing.Left = 6
Caption = 'Show summary' Caption = 'Show summary'
Checked = True Checked = True
State = cbChecked State = cbChecked

12
doceditor/fpdocupdater/mainunit.pas
View File

@ -70,7 +70,6 @@ type
procedure ListBoxDrawItem(Control: TWinControl; Index: Integer; procedure ListBoxDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState); ARect: TRect; State: TOwnerDrawState);
private private
{ private declarations }
public public
procedure BeginUpdate; procedure BeginUpdate;
procedure EndUpdate; procedure EndUpdate;
@ -125,7 +124,7 @@ begin
else else
begin begin
Brush.Color := ListBox.Color; 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 0: SetTextColor(ListBox.Canvas.Handle, ListBox.Canvas.Font.Color); // normal
1: SetTextColor(ListBox.Canvas.Handle, clRed); // new 1: SetTextColor(ListBox.Canvas.Handle, clRed); // new
end; end;
@ -190,7 +189,7 @@ begin
BeginUpdate; BeginUpdate;
try try
for I := 0 to ListBox.Items.Count - 1 do 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 finally
EndUpdate; EndUpdate;
end; end;
@ -240,7 +239,7 @@ var
DocsPath, UnitsPath: String; DocsPath, UnitsPath: String;
I: Integer; I: Integer;
N: String; N: String;
State: Integer; State: PtrInt;
begin begin
ListBox.Items.BeginUpdate; ListBox.Items.BeginUpdate;
try try
@ -257,9 +256,10 @@ begin
begin begin
N := ExtractFileNameOnly(Units[I]); N := ExtractFileNameOnly(Units[I]);
if Docs.IndexOf(N) = -1 then State := 1 if Docs.IndexOf(N) = -1 then
State := 1
else else
State := 0; State := 0;
ListBox.Items.AddObject(Units[I], TObject(State)); ListBox.Items.AddObject(Units[I], TObject(State));
end; end;

2
doceditor/fpdocupdater/unitmove.lfm
View File

@ -13,7 +13,7 @@ object FormMove: TFormMove
ChildSizing.TopBottomSpacing = 10 ChildSizing.TopBottomSpacing = 10
ClientHeight = 471 ClientHeight = 471
ClientWidth = 559 ClientWidth = 559
LCLVersion = '0.9.31' LCLVersion = '1.3'
object LabelSrc: TLabel object LabelSrc: TLabel
Left = 10 Left = 10
Height = 42 Height = 42

6
doceditor/fpdocupdater/unitmove.pas
View File

@ -47,10 +47,8 @@ type
procedure ListBoxDestDrawItem(Control: TWinControl; Index: Integer; ARect: TRect; procedure ListBoxDestDrawItem(Control: TWinControl; Index: Integer; ARect: TRect;
State: TOwnerDrawState); State: TOwnerDrawState);
private private
{ private declarations }
public public
{ public declarations } end;
end;
var var
FormMove: TFormMove; FormMove: TFormMove;
@ -73,7 +71,7 @@ begin
else else
begin begin
Brush.Color := ListBoxDest.Color; 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 0: SetTextColor(ListBoxDest.Canvas.Handle, ListBoxDest.Canvas.Font.Color); // empty
1: SetTextColor(ListBoxDest.Canvas.Handle, clRed); // nonempty 1: SetTextColor(ListBoxDest.Canvas.Handle, clRed); // nonempty
end; end;

6
doceditor/fpdocupdater/unitsummary.lfm
View File

@ -9,12 +9,12 @@ object FormSummary: TFormSummary
Caption = 'Update Summary' Caption = 'Update Summary'
ClientHeight = 273 ClientHeight = 273
ClientWidth = 303 ClientWidth = 303
LCLVersion = '0.9.31' LCLVersion = '1.3'
object LabelFileName: TLabel object LabelFileName: TLabel
Left = 10 Left = 10
Height = 14 Height = 15
Top = 11 Top = 11
Width = 69 Width = 89
Caption = 'LabelFileName' Caption = 'LabelFileName'
ParentColor = False ParentColor = False
end end

1
doceditor/fpdocupdater/unitsummary.pas
View File

@ -19,7 +19,6 @@ type
PaintBox: TPaintBox; PaintBox: TPaintBox;
procedure PaintBoxPaint(Sender: TObject); procedure PaintBoxPaint(Sender: TObject);
private private
{ private declarations }
public public
OldInfo, NewInfo: TFPDocInfo; OldInfo, NewInfo: TFPDocInfo;
end; end;