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
|
{ IDE options frame for project groups options
Author: Mattias Gaertner
}
unit PrjGrpOptionsFrm;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, ProjectGroupStrConst,
// LCL
Forms, StdCtrls, Dialogs,
// LazUtils
LazFileCache, LazFileUtils, LazLoggerBase,
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, ProjectGroup;
type
{ TProjGrpOptionsFrame }
TProjGrpOptionsFrame = class(TAbstractIDEOptionsEditor)
BuildCommandToCompileTargetCheckBox: TCheckBox;
OpenLastGroupOnStartCheckBox: TCheckBox;
ShowTargetPathsCheckBox: TCheckBox;
private
FLastOpenLastGroupOnStart: Boolean;
FLastShowTargetPaths: Boolean;
FLastBuildCommandToCompileTarget: Boolean;
public
function GetTitle: String; override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override;
procedure WriteSettings({%H-}AOptions: TAbstractIDEOptions); override;
procedure RestoreSettings({%H-}AOptions: TAbstractIDEOptions); override;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
end;
implementation
{$R *.lfm}
{ TProjGrpOptionsFrame }
function TProjGrpOptionsFrame.GetTitle: String;
begin
Result:=lisProjectGroups;
end;
procedure TProjGrpOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
OpenLastGroupOnStartCheckBox.Caption:=lisOpenLastGroupOnStart;
OpenLastGroupOnStartCheckBox.Hint:=lisOnIDEStartReopenLastOpenGroup;
ShowTargetPathsCheckBox.Caption:=lisShowTargetPaths;
ShowTargetPathsCheckBox.Hint:=lisEnableToShowTargetFilenamesWithPaths;
BuildCommandToCompileTargetCheckBox.Caption:=lisCompileAndBuildCompileTarget;
BuildCommandToCompileTargetCheckBox.Hint:=
lisIDECommandsCompileAndBuildInvokeCompileBuildSelect;
end;
procedure TProjGrpOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
var
Opts: TIDEProjectGroupOptions;
begin
Opts:=IDEProjectGroupManager.Options;
FLastOpenLastGroupOnStart:=Opts.OpenLastGroupOnStart;
OpenLastGroupOnStartCheckBox.Checked:=FLastOpenLastGroupOnStart;
FLastShowTargetPaths:=Opts.ShowTargetPaths;
ShowTargetPathsCheckBox.Checked:=FLastShowTargetPaths;
FLastBuildCommandToCompileTarget:=Opts.BuildCommandToCompileTarget;
BuildCommandToCompileTargetCheckBox.Checked:=FLastBuildCommandToCompileTarget;
end;
procedure TProjGrpOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
var
Opts: TIDEProjectGroupOptions;
begin
Opts:=IDEProjectGroupManager.Options;
Opts.OpenLastGroupOnStart:=OpenLastGroupOnStartCheckBox.Checked;
Opts.ShowTargetPaths:=ShowTargetPathsCheckBox.Checked;
Opts.BuildCommandToCompileTarget:=BuildCommandToCompileTargetCheckBox.Checked;
if Opts.Modified then begin
Opts.SaveSafe;
if IDEProjectGroupManager.OnEditorOptionsChanged<>nil then
IDEProjectGroupManager.OnEditorOptionsChanged(Self);
end;
end;
procedure TProjGrpOptionsFrame.RestoreSettings(AOptions: TAbstractIDEOptions);
begin
OpenLastGroupOnStartCheckBox.Checked:=FLastOpenLastGroupOnStart;
ShowTargetPathsCheckBox.Checked:=FLastShowTargetPaths;
end;
class function TProjGrpOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result:=IDEEditorGroups.GetByIndex(GroupEnvironment)^.GroupClass;
end;
end.
|
