1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
unit project_lazdoc_options;
{$mode objfpc}{$H+}
interface
uses
SysUtils,
// LCL
Forms, Dialogs, StdCtrls, Buttons, EditBtn,
// LazUtils
LazStringUtils,
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEImagesIntf,
// IDE
Project, LazarusIDEStrConsts, CodeHelp;
type
{ TProjectFPDocOptionsFrame }
TProjectFPDocOptionsFrame = class(TAbstractIDEOptionsEditor)
AddPathButton: TBitBtn;
DeletePathButton: TBitBtn;
FPDocPackageNameEdit: TEdit;
FPDocPackageNameLabel: TLabel;
PathEdit: TDirectoryEdit;
PathsListBox: TListBox;
SearchPathsGroupBox: TGroupBox;
procedure AddPathButtonClick(Sender: TObject);
procedure DeletePathButtonClick(Sender: TObject);
procedure PathsListBoxSelectionChange(Sender: TObject; {%H-}User: boolean);
procedure PathEditChange(Sender: TObject);
private
function GetFPDocPkgNameEditValue: string;
public
function GetTitle: string; override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
end;
implementation
{$R *.lfm}
{ TProjectFPDocOptionsFrame }
function TProjectFPDocOptionsFrame.GetTitle: string;
begin
Result := lisFPDocEditor;
end;
procedure TProjectFPDocOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
FPDocPackageNameEdit.Hint := lisFPDocPackageNameDefaultIsProjectFileName;
FPDocPackageNameLabel.Caption := lisFPDocPackageName;
SearchPathsGroupBox.Caption := lisSearchPaths2;
AddPathButton.Caption := lisCodeHelpAddPathButton;
DeletePathButton.Caption := lisCodeHelpDeletePathButton;
IDEImages.AssignImage(DeletePathButton, 'laz_delete');
IDEImages.AssignImage(AddPathButton, 'laz_add');
PathEdit.Clear;
end;
procedure TProjectFPDocOptionsFrame.AddPathButtonClick(Sender: TObject);
begin
if PathEdit.Text <> '' then begin
PathsListBox.Items.Add(PathEdit.Text);
PathEdit.Text := '';
end;
end;
procedure TProjectFPDocOptionsFrame.DeletePathButtonClick(Sender: TObject);
begin
if (PathsListBox.ItemIndex >= 0) then begin
PathsListBox.Items.Delete(PathsListBox.ItemIndex);
PathsListBoxSelectionChange(PathsListBox, True);
end;
end;
procedure TProjectFPDocOptionsFrame.PathsListBoxSelectionChange(Sender: TObject; User: boolean);
begin
DeletePathButton.Enabled:=(Sender as TListBox).ItemIndex <> -1;
end;
procedure TProjectFPDocOptionsFrame.PathEditChange(Sender: TObject);
begin
AddPathButton.Enabled:=PathEdit.Text<>'';
end;
function TProjectFPDocOptionsFrame.GetFPDocPkgNameEditValue: string;
begin
Result:=MakeValidFPDocPackageName(FPDocPackageNameEdit.Text);
end;
procedure TProjectFPDocOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
with (AOptions as TProjectIDEOptions).Project do begin
SplitString(FPDocPaths, ';', PathsListBox.Items, True);
FPDocPackageNameEdit.TextHint:=lisDefaultPlaceholder;
FPDocPackageNameEdit.Text:=FPDocPackageName;
end;
end;
procedure TProjectFPDocOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
with (AOptions as TProjectIDEOptions).Project do begin
FPDocPaths := StringListToText(PathsListBox.Items, ';', True);
FPDocPackageName:=GetFPDocPkgNameEditValue;
end;
end;
class function TProjectFPDocOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := TProjectIDEOptions;
end;
initialization
RegisterIDEOptionsEditor(GroupProject, TProjectFPDocOptionsFrame, ProjectOptionsLazDoc);
end.
|
