paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 20:40:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

DocMgr: fixed Fpc Source/Doc directory confusion.

Browse Source 
git-svn-id: trunk@36512 -
This commit is contained in:
dodi 2012-04-02 06:29:11 +00:00
parent de0cf80cde
commit 2c9423e0c0
4 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/fpdocmanager/FPDocManager.lpi
View File

@ -97,7 +97,9 @@
<Unit9>
<Filename Value="..\..\doceditor\frmmain.pp"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="FrmMain"/>
</Unit9>
<Unit10>

2
examples/fpdocmanager/configfile.pas
View File

@ -187,6 +187,8 @@ procedure TConfigFile.WriteSection(const Section: string; Strings: TStrings);
var
sec: TStringList;
begin
if Strings = nil then
exit;
if Strings.Count = 0 then
exit; //delete section???
sec := AddSection(Section);

28
examples/fpdocmanager/fconfig.lfm
View File

@ -1,16 +1,16 @@
object CfgWizard: TCfgWizard
Left = 368
Height = 301
Height = 307
Top = 116
Width = 315
Caption = 'Configuration Assistant'
ClientHeight = 301
ClientHeight = 307
ClientWidth = 315
OnShow = FormShow
LCLVersion = '0.9.31'
object Steps: TPageControl
Left = 0
Height = 240
Height = 246
Top = 0
Width = 315
ActivePage = SelRoot
@ -19,21 +19,21 @@ object CfgWizard: TCfgWizard
TabOrder = 0
object SelRoot: TTabSheet
Caption = 'RootDir'
ClientHeight = 212
ClientHeight = 218
ClientWidth = 307
OnShow = SelRootShow
object Label1: TLabel
Left = 10
Height = 121
Height = 151
Top = 10
Width = 264
Caption = 'The Root directory contains the configuration '#13#10'and all generated documentation.'#13#10#13#10'You can make this directory the working directory'#13#10'of the Documentation Manager, so that you don''t'#13#10'have to specify the root directory on every start.'#13#10#13#10'Please select this directory now.'
Caption = 'The FPDoc Manager stores its configuration '#13#10'and all generated documentation in a dedicated '#13#10'directory.'#13#10#13#10'You can make this directory the working directory'#13#10'of the FPDoc Manager, so that you don''t'#13#10'have to specify the root directory on every start.'#13#10#13#10'Please select this directory now, optionally'#13#10'create a new directory in the dialog.'
ParentColor = False
end
object buSelRoot: TButton
Left = 10
Height = 25
Top = 152
Top = 168
Width = 75
Caption = 'Browse...'
OnClick = buSelRootClick
@ -42,7 +42,7 @@ object CfgWizard: TCfgWizard
object edRoot: TEdit
Left = 92
Height = 23
Top = 154
Top = 170
Width = 216
OnChange = edRootChange
TabOrder = 1
@ -50,8 +50,8 @@ object CfgWizard: TCfgWizard
end
object SelFPDir: TTabSheet
Caption = 'FPC'
ClientHeight = 211
ClientWidth = 309
ClientHeight = 218
ClientWidth = 307
OnShow = SelFPDirShow
object Label2: TLabel
Left = 10
@ -84,7 +84,7 @@ object CfgWizard: TCfgWizard
Height = 23
Hint = 'The FPC source directory contains subdirectories'#13#10'compiler, packages etc.'
Top = 136
Width = 197
Width = 195
Anchors = [akTop, akLeft, akRight]
OnChange = edFpcDirChange
TabOrder = 2
@ -110,7 +110,7 @@ object CfgWizard: TCfgWizard
Left = 100
Height = 23
Top = 168
Width = 197
Width = 195
Anchors = [akTop, akLeft, akRight]
OnChange = edFpcDocsChange
TabOrder = 4
@ -301,14 +301,14 @@ object CfgWizard: TCfgWizard
object sb: TStatusBar
Left = 0
Height = 23
Top = 278
Top = 284
Width = 315
Panels = <>
end
object Panel1: TPanel
Left = 0
Height = 38
Top = 240
Top = 246
Width = 315
Align = alBottom
ClientHeight = 38

2
examples/fpdocmanager/fconfig.pas
View File

@ -200,7 +200,7 @@ end;
procedure TCfgWizard.SelFPDirShow(Sender: TObject);
begin
edFpcDir.Text := Manager.FpcDocDir;
edFpcDir.Text := Manager.FpcDir;
buBack.Enabled := True;
//buNext.Enabled := FpcDocDir <> '';
end;