Hi,
I attached a patch for the doceditor. It must be applied from the
/Lazarus directory.
Changes:
1) Fixed the "Close" button's Anchor properties in the About Form.
When you resized the form, the button resized as well.
2) Resized the about form, so that the text regarding the copyright
fits into the window without clipping.
3) Changed the Project Options of the lazde.lpi so that session
information is stored in the .lps file and not the .lpi file.
4) Added a Custom Compile option "-FUunits", which places all
compiled units (.ppu, .o, etc) file into a "units" directory, instead
of in the same directory as the source. Note a "units" directory
needs to be added to the /doceditor directory. I couldn't get svn to
generate a patch for that!
If it is a problem having all the changes in a single .patch file, I
can post them as seperate files if needed.
Regards,
- Graeme -
Index: doceditor/frmabout.lfm
===================================================================
--- doceditor/frmabout.lfm (revision 8940)
+++ doceditor/frmabout.lfm (working copy)
@@ -1,302 +1,59 @@
object AboutForm: TAboutForm
+ ActiveControl = Button1
BorderStyle = bsDialog
Caption = 'About this application'
ClientHeight = 299
- ClientWidth = 400
+ ClientWidth = 529
PixelsPerInch = 90
Position = poMainFormCenter
- HorzScrollBar.Page = 399
+ HorzScrollBar.Page = 528
VertScrollBar.Page = 298
Left = 333
Height = 299
Top = 149
- Width = 400
+ Width = 529
object LThisApplication: TLabel
- BorderSpacing.OnChange = nil
Caption = 'Lazarus Documentation Editor'
Color = clNone
+ ParentColor = False
Left = 16
- Height = 12
+ Height = 17
Top = 8
- Width = 167
+ Width = 220
end
object LCopyRight1: TLabel
- BorderSpacing.OnChange = nil
Caption = 'This application is (c) by Michael Van Canneyt and the Lazarus team'
Color = clNone
+ ParentColor = False
Left = 16
- Height = 12
+ Height = 17
Top = 48
- Width = 393
+ Width = 503
end
object LCopyRight2: TLabel
- BorderSpacing.OnChange = nil
Caption = 'It is released under the terms of the GENERAL PUBLIC LICENSE:'
Color = clNone
+ ParentColor = False
Left = 16
- Height = 12
+ Height = 17
Top = 64
- Width = 368
+ Width = 491
end
object Button1: TButton
- Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.OnChange = nil
+ Anchors = [akRight, akBottom]
+ BorderSpacing.InnerBorder = 2
Cancel = True
Caption = '&Close'
Default = True
ModalResult = 1
TabOrder = 0
- Left = 312
+ Left = 423
Height = 24
Top = 264
- Width = 75
+ Width = 90
end
object MCopyRight: TMemo
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.OnChange = nil
- Lines.Strings = (
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- )
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 1
@@ -304,6 +61,6 @@
Left = 16
Height = 175
Top = 80
- Width = 368
+ Width = 497
end
end
Index: doceditor/frmabout.lrs
===================================================================
--- doceditor/frmabout.lrs (revision 8940)
+++ doceditor/frmabout.lrs (working copy)
@@ -1,37 +1,23 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TAboutForm','FORMDATA',[
- 'TPF0'#10'TAboutForm'#9'AboutForm'#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6
- +#22'About this application'#12'ClientHeight'#3'+'#1#11'ClientWidth'#3#144#1
- +#13'PixelsPerInch'#2'Z'#8'Position'#7#16'poMainFormCenter'#18'HorzScrollBar.'
- +'Page'#3#143#1#18'VertScrollBar.Page'#3'*'#1#4'Left'#3'M'#1#6'Height'#3'+'#1
- +#3'Top'#3#149#0#5'Width'#3#144#1#0#6'TLabel'#16'LThisApplication'#22'BorderS'
- +'pacing.OnChange'#13#7'Caption'#6#28'Lazarus Documentation Editor'#5'Color'#7
- +#6'clNone'#4'Left'#2#16#6'Height'#2#12#3'Top'#2#8#5'Width'#3#167#0#0#0#6'TLa'
- +'bel'#11'LCopyRight1'#22'BorderSpacing.OnChange'#13#7'Caption'#6'DThis appli'
- +'cation is (c) by Michael Van Canneyt and the Lazarus team'#5'Color'#7#6'cl'
- +'None'#4'Left'#2#16#6'Height'#2#12#3'Top'#2'0'#5'Width'#3#137#1#0#0#6'TLabel'
- +#11'LCopyRight2'#22'BorderSpacing.OnChange'#13#7'Caption'#6'>It is released '
- +'under the terms of the GENERAL PUBLIC LICENSE:'#5'Color'#7#6'clNone'#4'Lef'
- +'t'#2#16#6'Height'#2#12#3'Top'#2'@'#5'Width'#3'p'#1#0#0#7'TButton'#7'Button1'
- +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.'
- +'OnChange'#13#6'Cancel'#9#7'Caption'#6#6'&Close'#7'Default'#9#11'ModalResult'
- +#2#1#8'TabOrder'#2#0#4'Left'#3'8'#1#6'Height'#2#24#3'Top'#3#8#1#5'Width'#2'K'
- +#0#0#5'TMemo'#10'MCopyRight'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'a'
- +'kBottom'#0#22'BorderSpacing.OnChange'#13#13'Lines.Strings'#1#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0
- +#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#6#0#0#8'ReadOnly'#9#10'ScrollBars'#7#6'ssBo'
- +'th'#8'TabOrder'#2#1#8'WordWrap'#8#4'Left'#2#16#6'Height'#3#175#0#3'Top'#2'P'
- +#5'Width'#3'p'#1#0#0#0
+ 'TPF0'#10'TAboutForm'#9'AboutForm'#13'ActiveControl'#7#7'Button1'#11'BorderSt'
+ +'yle'#7#8'bsDialog'#7'Caption'#6#22'About this application'#12'ClientHeight'
+ +#3'+'#1#11'ClientWidth'#3#17#2#13'PixelsPerInch'#2'Z'#8'Position'#7#16'poMai'
+ +'nFormCenter'#18'HorzScrollBar.Page'#3#16#2#18'VertScrollBar.Page'#3'*'#1#4
+ +'Left'#3'M'#1#6'Height'#3'+'#1#3'Top'#3#149#0#5'Width'#3#17#2#0#6'TLabel'#16
+ +'LThisApplication'#7'Caption'#6#28'Lazarus Documentation Editor'#5'Color'#7#6
+ +'clNone'#11'ParentColor'#8#4'Left'#2#16#6'Height'#2#17#3'Top'#2#8#5'Width'#3
+ +#220#0#0#0#6'TLabel'#11'LCopyRight1'#7'Caption'#6'DThis application is (c) b'
+ +'y Michael Van Canneyt and the Lazarus team'#5'Color'#7#6'clNone'#11'Parent'
+ +'Color'#8#4'Left'#2#16#6'Height'#2#17#3'Top'#2'0'#5'Width'#3#247#1#0#0#6'TLa'
+ +'bel'#11'LCopyRight2'#7'Caption'#6'>It is released under the terms of the G'
+ +'ENERAL PUBLIC LICENSE:'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#16
+ +#6'Height'#2#17#3'Top'#2'@'#5'Width'#3#235#1#0#0#7'TButton'#7'Button1'#7'Anc'
+ +'hors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#6'Cance'
+ +'l'#9#7'Caption'#6#6'&Close'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#0
+ +#4'Left'#3#167#1#6'Height'#2#24#3'Top'#3#8#1#5'Width'#2'Z'#0#0#5'TMemo'#10'M'
+ +'CopyRight'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'Read'
+ +'Only'#9#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#1#8'WordWrap'#8#4'Left'#2
+ +#16#6'Height'#3#175#0#3'Top'#2'P'#5'Width'#3#241#1#0#0#0
]);
Index: doceditor/lazde.lpi
===================================================================
--- doceditor/lazde.lpi (revision 8940)
+++ doceditor/lazde.lpi (working copy)
@@ -7,176 +7,117 @@
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
+ <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<AutoCreateForms Value="False"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<Title Value="Lazarus Documentation Editor"/>
- <ActiveEditorIndexAtStart Value="6"/>
</General>
<LazDoc Paths=""/>
+ <PublishOptions>
+ <Version Value="2"/>
+ <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
+ <IgnoreBinaries Value="False"/>
+ <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+ <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+ </local>
+ </RunParams>
+ <RequiredPackages Count="1">
+ <Item1>
+ <PackageName Value="LCL"/>
+ </Item1>
+ </RequiredPackages>
<Units Count="13">
<Unit0>
- <CursorPos X="3" Y="9"/>
<Filename Value="lazde.lpr"/>
<IsPartOfProject Value="True"/>
- <TopLine Value="1"/>
<UnitName Value="lazde"/>
- <UsageCount Value="99"/>
</Unit0>
<Unit1>
- <CursorPos X="15" Y="803"/>
- <EditorIndex Value="0"/>
<Filename Value="frmmain.pp"/>
<ComponentName Value="MainForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmmain.lrs"/>
- <TopLine Value="787"/>
<UnitName Value="FrmMain"/>
- <UsageCount Value="99"/>
</Unit1>
<Unit2>
- <CursorPos X="1" Y="23"/>
- <EditorIndex Value="3"/>
<Filename Value="frmoptions.pp"/>
<ComponentName Value="OptionsForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmoptions.lrs"/>
- <TopLine Value="1"/>
<UnitName Value="frmOptions"/>
- <UsageCount Value="96"/>
</Unit2>
<Unit3>
- <CursorPos X="1" Y="23"/>
- <EditorIndex Value="4"/>
<Filename Value="frmnewnode.pp"/>
<ComponentName Value="NewNodeForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmnewnode.lrs"/>
- <TopLine Value="1"/>
<UnitName Value="frmNewNode"/>
- <UsageCount Value="93"/>
</Unit3>
<Unit4>
- <CursorPos X="32" Y="27"/>
- <EditorIndex Value="8"/>
<Filename Value="frmmakeskel.pp"/>
<ComponentName Value="MakeSkelForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmmakeskel.lrs"/>
- <TopLine Value="1"/>
<UnitName Value="FrmMakeSkel"/>
- <UsageCount Value="70"/>
</Unit4>
<Unit5>
- <CursorPos X="11" Y="16"/>
- <EditorIndex Value="1"/>
<Filename Value="frmlink.pp"/>
<ComponentName Value="LinkForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmlink.lrs"/>
- <TopLine Value="1"/>
<UnitName Value="FrmLink"/>
- <UsageCount Value="63"/>
</Unit5>
<Unit6>
- <CursorPos X="1" Y="23"/>
- <EditorIndex Value="2"/>
<Filename Value="frmtable.pp"/>
<ComponentName Value="TableForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmtable.lrs"/>
- <TopLine Value="1"/>
<UnitName Value="frmTable"/>
- <UsageCount Value="63"/>
</Unit6>
<Unit7>
- <CursorPos X="35" Y="26"/>
- <EditorIndex Value="5"/>
<Filename Value="frmabout.pp"/>
<ComponentName Value="AboutForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmabout.lrs"/>
- <TopLine Value="1"/>
<UnitName Value="FrmAbout"/>
- <UsageCount Value="54"/>
</Unit7>
<Unit8>
- <CursorPos X="22" Y="251"/>
<Filename Value="pkeditor.pp"/>
<IsPartOfProject Value="True"/>
- <TopLine Value="235"/>
<UnitName Value="PkEditor"/>
- <UsageCount Value="48"/>
</Unit8>
<Unit9>
- <CursorPos X="12" Y="521"/>
- <EditorIndex Value="9"/>
<Filename Value="eleditor.pp"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
- <TopLine Value="500"/>
<UnitName Value="ElEditor"/>
- <UsageCount Value="48"/>
</Unit9>
<Unit10>
- <CursorPos X="34" Y="28"/>
<Filename Value="fpdeutil.pp"/>
<IsPartOfProject Value="True"/>
- <TopLine Value="1"/>
<UnitName Value="FPDEUtil"/>
- <UsageCount Value="48"/>
</Unit10>
<Unit11>
- <CursorPos X="15" Y="71"/>
- <EditorIndex Value="10"/>
<Filename Value="frmexample.pp"/>
<ComponentName Value="ExampleForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmexample.lrs"/>
- <TopLine Value="66"/>
<UnitName Value="FrmExample"/>
- <UsageCount Value="39"/>
</Unit11>
<Unit12>
- <CursorPos X="19" Y="568"/>
- <EditorIndex Value="11"/>
<Filename Value="frmbuild.pp"/>
<ComponentName Value="BuildForm"/>
<IsPartOfProject Value="True"/>
- <Loaded Value="True"/>
<ResourceFilename Value="frmbuild.lrs"/>
- <TopLine Value="545"/>
<UnitName Value="frmBuild"/>
- <UsageCount Value="34"/>
</Unit12>
</Units>
- <PublishOptions>
- <Version Value="2"/>
- <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
- <IgnoreBinaries Value="False"/>
- <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
- <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
- </PublishOptions>
- <RunParams>
- <local>
- <FormatVersion Value="1"/>
- <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
- </local>
- </RunParams>
- <RequiredPackages Count="1">
- <Item1>
- <PackageName Value="LCL"/>
- </Item1>
- </RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
@@ -194,17 +135,8 @@
</Options>
</Linking>
<Other>
+ <CustomOptions Value="-FUunits"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
- <Debugging>
- <Exceptions Count="2">
- <Item1>
- <Name Value="ECodetoolError"/>
- </Item1>
- <Item2>
- <Name Value="EFOpenError"/>
- </Item2>
- </Exceptions>
- </Debugging>
</CONFIG>
