paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39: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.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 96 Height = 126
Top = 25 Top = 28
Width = 551 Width = 551
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'i18n Options' Caption = 'i18n Options'
ClientHeight = 76 ClientHeight = 96
ClientWidth = 547 ClientWidth = 547
TabOrder = 1 TabOrder = 1
object PoOutDirLabel: TLabel object PoOutDirLabel: TLabel
AnchorSideLeft.Control = I18NGroupBox AnchorSideLeft.Control = I18NGroupBox
AnchorSideTop.Control = I18NGroupBox AnchorSideTop.Control = I18NGroupBox
Left = 6 Left = 6
Height = 15 Height = 18
Top = 6 Top = 6
Width = 111 Width = 128
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'PO Output Directory:' Caption = 'PO Output Directory:'
ParentColor = False ParentColor = False
end end
object PoForFormsCheckBox: TCheckBox object PoForFormsCheckBox: TCheckBox
AnchorSideLeft.Control = PoOutDirLabel AnchorSideLeft.Control = I18NGroupBox
AnchorSideTop.Control = POOutDirEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 22
Top = 57 Top = 68
Width = 136 Width = 162
BorderSpacing.Around = 6
Caption = 'PoForFormsCheckBox' Caption = 'PoForFormsCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -54,8 +56,8 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 32
Top = 27 Top = 30
Width = 536 Width = 536
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -71,9 +73,9 @@ object PackageI18NOptionsFrame: TPackageI18NOptionsFrame
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 19 Height = 22
Top = 0 Top = 0
Width = 80 Width = 99
Caption = 'Enable i18n' Caption = 'Enable i18n'
OnChange = EnableI18NCheckBoxChange OnChange = EnableI18NCheckBoxChange
TabOrder = 0 TabOrder = 0

10
packager/frames/package_i18n_options.pas
View File

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