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
|
unit package_i18n_options;
{$mode objfpc}{$H+}
interface
uses
SysUtils,
// LazUtils
FileUtil,
// LCL
Forms, StdCtrls, EditBtn,
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEImagesIntf, IDEDialogs,
// IDE
LazarusIDEStrConsts, PackageDefs;
type
{ TPackageI18NOptionsFrame }
TPackageI18NOptionsFrame = class(TAbstractIDEOptionsEditor)
EnableI18NCheckBox: TCheckBox;
I18NGroupBox: TGroupBox;
POOutDirEdit: TEditButton;
PoOutDirLabel: TLabel;
PoForFormsCheckBox: TCheckBox;
procedure EnableI18NCheckBoxChange(Sender: TObject);
procedure POOutDirButtonClick(Sender: TObject);
private
FLazPackage: TLazPackage;
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}
{ TPackageI18NOptionsFrame }
procedure TPackageI18NOptionsFrame.EnableI18NCheckBoxChange(Sender: TObject);
begin
I18NGroupBox.Enabled := EnableI18NCheckBox.Checked;
end;
procedure TPackageI18NOptionsFrame.POOutDirButtonClick(Sender: TObject);
var
NewDirectory: string;
begin
NewDirectory := LazSelectDirectory(lisPOChoosePoFileDirectory,
FLazPackage.Directory);
if NewDirectory = '' then
exit;
FLazPackage.ShortenFilename(NewDirectory, True);
POOutDirEdit.Text := NewDirectory;
end;
function TPackageI18NOptionsFrame.GetTitle: string;
begin
Result := dlgPOI18n;
end;
procedure TPackageI18NOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
EnableI18NCheckBox.Caption := rsEnableI18n;
I18NGroupBox.Caption := rsI18nOptions;
PoOutDirlabel.Caption := rsPOOutputDirectory;
PoForFormsCheckBox.Caption := lisCreateUpdatePoFileWhenSavingALfmFile;
PoForFormsCheckBox.Hint := lisYouCanDisableThisForIndividualFormsViaThePackageEd;
end;
procedure TPackageI18NOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
FLazPackage := (AOptions as TPackageIDEOptions).Package;
EnableI18NCheckBox.Checked := FLazPackage.EnableI18N;
I18NGroupBox.Enabled := FLazPackage.EnableI18N;
POOutDirEdit.Text := FLazPackage.POOutputDirectory;
PoForFormsCheckBox.Checked:=FLazPackage.EnableI18NForLFM;
IDEImages.AssignImage(POOutDirEdit.Button, ResBtnSelDir); //DirectoryEdit
end;
procedure TPackageI18NOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
var
LazPackage: TLazPackage;
begin
LazPackage := (AOptions as TPackageIDEOptions).Package;
LazPackage.EnableI18N := EnableI18NCheckBox.Checked;
LazPackage.POOutputDirectory := POOutDirEdit.Text;
LazPackage.EnableI18NForLFM := PoForFormsCheckBox.Checked;
end;
class function TPackageI18NOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := TPackageIDEOptions;
end;
initialization
RegisterIDEOptionsEditor(GroupPackage, TPackageI18NOptionsFrame,
PackageOptionsI18N);
end.
|
