paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:56:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix anchors in package_i18n_options frame.

Browse Source 
git-svn-id: trunk@63546 -
This commit is contained in:
juha 2020-07-12 12:04:16 +00:00
parent b429d78258
commit 2f89da39fb
2 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packager/frames/package_i18n_options.lfm
View File

@ -15,34 +15,36 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 96
Top = 25
Height = 126
Top = 28
Width = 551
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'i18n Options'
ClientHeight = 76
ClientHeight = 96
ClientWidth = 547
TabOrder = 1
object PoOutDirLabel: TLabel
AnchorSideLeft.Control = I18NGroupBox
AnchorSideTop.Control = I18NGroupBox
Left = 6
Height = 15
Height = 18
Top = 6
Width = 111
Width = 128
BorderSpacing.Around = 6
Caption = 'PO Output Directory:'
ParentColor = False
end
object PoForFormsCheckBox: TCheckBox
AnchorSideLeft.Control = PoOutDirLabel
AnchorSideLeft.Control = I18NGroupBox
AnchorSideTop.Control = POOutDirEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 57
Width = 136
Height = 22
Top = 68
Width = 162
BorderSpacing.Around = 6
Caption = 'PoForFormsCheckBox'
ParentShowHint = False
ShowHint = True
@ -54,8 +56,8 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 27
Height = 32
Top = 30
Width = 536
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
@ -71,9 +73,9 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
Height = 19
Height = 22
Top = 0
Width = 80
Width = 99
Caption = 'Enable i18n'
OnChange = EnableI18NCheckBoxChange
TabOrder = 0

10
packager/frames/package_i18n_options.pas
View File

@ -10,8 +10,10 @@ uses
FileUtil,
// LCL
Forms, StdCtrls, EditBtn,
// BuildIntf
IDEOptionsIntf,
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEImagesIntf, IDEDialogs,
IDEOptEditorIntf, IDEImagesIntf, IDEDialogs,
// IDE
LazarusIDEStrConsts, PackageDefs;
@ -52,8 +54,7 @@ procedure TPackageI18NOptionsFrame.POOutDirButtonClick(Sender: TObject);
var
NewDirectory: string;
begin
NewDirectory := LazSelectDirectory(lisPOChoosePoFileDirectory,
FLazPackage.Directory);
NewDirectory := LazSelectDirectory(lisPOChoosePoFileDirectory, FLazPackage.Directory);
if NewDirectory = '' then
exit;
FLazPackage.ShortenFilename(NewDirectory, True);
@ -101,7 +102,6 @@ begin
end;
initialization
RegisterIDEOptionsEditor(GroupPackage, TPackageI18NOptionsFrame,
PackageOptionsI18N);
RegisterIDEOptionsEditor(GroupPackage, TPackageI18NOptionsFrame, PackageOptionsI18N);
end.