paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 15:58:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: improved strings property editor dialog i18n

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-10-01 18:20:34 +03:00
parent 459dbb1401
commit f67c5cc9bb
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
components/ideintf/stringspropeditdlg.lfm
View File

@ -9,10 +9,9 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
ClientWidth = 400
Constraints.MinHeight = 160
Constraints.MinWidth = 180
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object TextGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -20,22 +19,22 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnPanel
Left = 6
Height = 252
Height = 246
Top = 6
Width = 388
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClientHeight = 250
ClientHeight = 244
ClientWidth = 386
TabOrder = 0
object StatusLabel: TLabel
AnchorSideBottom.Control = TextGroupBox
AnchorSideBottom.Side = asrBottom
Left = 9
Height = 15
Top = 229
Width = 63
Height = 16
Top = 222
Width = 69
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'StatusLabel'
@ -45,15 +44,15 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Control = SortButton
AnchorSideBottom.Control = StatusLabel
Left = 6
Height = 217
Height = 210
Top = 6
Width = 293
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
OnChange = MemoChange
ScrollBars = ssAutoBoth
TabOrder = 0
WordWrap = False
OnChange = MemoChange
end
object SortButton: TButton
AnchorSideLeft.Control = Memo
@ -61,7 +60,7 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Control = TextGroupBox
AnchorSideRight.Side = asrBottom
Left = 305
Height = 31
Height = 32
Top = 6
Width = 75
Anchors = [akTop, akRight]
@ -69,8 +68,8 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
BorderSpacing.Around = 6
Caption = 'Sort'
Constraints.MinWidth = 75
OnClick = SortButtonClick
TabOrder = 1
OnClick = SortButtonClick
end
object ClearButton: TButton
AnchorSideLeft.Control = SortButton
@ -78,15 +77,15 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = SortButton
AnchorSideRight.Side = asrBottom
AutoSize = True
Left = 305
Height = 27
Top = 43
Height = 32
Top = 44
Width = 75
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Clear'
OnClick = ClearButtonClick
TabOrder = 2
OnClick = ClearButtonClick
end
object SaveButton: TButton
AnchorSideLeft.Control = SortButton
@ -95,21 +94,21 @@ object StringsPropEditorFrm: TStringsPropEditorFrm
AnchorSideRight.Control = SortButton
AnchorSideRight.Side = asrBottom
Left = 305
Height = 31
Top = 76
Height = 32
Top = 82
Width = 75
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Save'
OnClick = SaveButtonClick
TabOrder = 3
OnClick = SaveButtonClick
end
end
object BtnPanel: TButtonPanel
Left = 6
Height = 32
Top = 264
Height = 38
Top = 258
Width = 388
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True

1
components/ideintf/stringspropeditdlg.pas
View File

@ -60,6 +60,7 @@ begin
StatusLabel.Caption := ois0Lines0Chars;
SortButton.Caption := oisSort;
ClearButton.Caption := oisClear;
SaveButton.Caption := oisSave;
AddButtons;
IDEDialogLayoutList.ApplyLayout(Self);
end;