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

IDE: don't wrap strings in memos of i18n project options, allows to avoid corruption when saving long strings to .lpi

Browse Source 
(cherry picked from commit f6ccc8d26d)
This commit is contained in:
Maxim Ganetsky 2024-02-15 17:00:50 +03:00
parent 30569f5fe8
commit 1cd05220e3
1 changed files with 46 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

90
ide/frames/project_i18n_options.lfm
View File

@ -10,22 +10,22 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
DesignTop = 355 DesignTop = 355
object EnableI18NCheckBox: TCheckBox object EnableI18NCheckBox: TCheckBox
Left = 0 Left = 0
Height = 19 Height = 23
Top = 0 Top = 0
Width = 438 Width = 438
Align = alTop Align = alTop
Caption = 'Enable i18n' Caption = 'Enable i18n'
OnChange = EnableI18NCheckBoxChange
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
OnChange = EnableI18NCheckBoxChange
end end
object I18NGroupBox: TGroupBox object I18NGroupBox: TGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 103 Height = 115
Top = 25 Top = 29
Width = 438 Width = 438
Align = alTop Align = alTop
AutoSize = True AutoSize = True
@ -33,14 +33,14 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'i18n Options' Caption = 'i18n Options'
ClientHeight = 83 ClientHeight = 98
ClientWidth = 434 ClientWidth = 436
TabOrder = 1 TabOrder = 1
object PoOutDirLabel: TLabel object PoOutDirLabel: TLabel
Left = 6 Left = 6
Height = 15 Height = 16
Top = 6 Top = 6
Width = 111 Width = 123
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'PO Output Directory:' Caption = 'PO Output Directory:'
ParentColor = False ParentColor = False
@ -50,9 +50,9 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
AnchorSideTop.Control = POOutDirEdit AnchorSideTop.Control = POOutDirEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 23
Top = 56 Top = 67
Width = 136 Width = 159
Caption = 'PoForFormsCheckBox' Caption = 'PoForFormsCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -64,9 +64,9 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 33
Top = 27 Top = 28
Width = 420 Width = 422
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -74,18 +74,18 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
ButtonWidth = 25 ButtonWidth = 25
MaxLength = 0 MaxLength = 0
NumGlyphs = 1 NumGlyphs = 1
OnButtonClick = POOutDirButtonClick
ParentShowHint = False ParentShowHint = False
PasswordChar = #0 PasswordChar = #0
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
Text = 'POOutDirEdit' Text = 'POOutDirEdit'
OnButtonClick = POOutDirButtonClick
end end
end end
object ExcludedGroupBox: TGroupBox object ExcludedGroupBox: TGroupBox
Left = 0 Left = 0
Height = 120 Height = 100
Top = 134 Top = 150
Width = 438 Width = 438
Align = alClient Align = alClient
Caption = 'Excluded' Caption = 'Excluded'
@ -98,34 +98,35 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 100 ClientHeight = 83
ClientWidth = 434 ClientWidth = 436
TabOrder = 2 TabOrder = 2
object ExcludedIdentifiersPanel: TPanel object ExcludedIdentifiersPanel: TPanel
Left = 10 Left = 10
Height = 90 Height = 73
Top = 5 Top = 5
Width = 202 Width = 203
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'ExcludedIdentifiersPanel' Caption = 'ExcludedIdentifiersPanel'
ClientHeight = 90 ClientHeight = 73
ClientWidth = 202 ClientWidth = 203
TabOrder = 0 TabOrder = 0
object ExcludedIdentifiersMemo: TMemo object ExcludedIdentifiersMemo: TMemo
Left = 0 Left = 0
Height = 73 Height = 55
Top = 17 Top = 18
Width = 202 Width = 203
Align = alClient Align = alClient
OnChange = ExcludedIdentifiersMemoChange ScrollBars = ssAutoBoth
ScrollBars = ssAutoVertical
TabOrder = 0 TabOrder = 0
WordWrap = False
OnChange = ExcludedIdentifiersMemoChange
end end
object ExcludedIdentifiersLabel: TLabel object ExcludedIdentifiersLabel: TLabel
Left = 0 Left = 0
Height = 15 Height = 16
Top = 0 Top = 0
Width = 202 Width = 203
Align = alTop Align = alTop
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Identifiers:' Caption = 'Identifiers:'
@ -133,30 +134,31 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
end end
end end
object ExcludedOriginalsPanel: TPanel object ExcludedOriginalsPanel: TPanel
Left = 222 Left = 223
Height = 90 Height = 73
Top = 5 Top = 5
Width = 202 Width = 203
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'ExcludedOriginalsPanel' Caption = 'ExcludedOriginalsPanel'
ClientHeight = 90 ClientHeight = 73
ClientWidth = 202 ClientWidth = 203
TabOrder = 1 TabOrder = 1
object ExcludedOriginalsMemo: TMemo object ExcludedOriginalsMemo: TMemo
Left = 0 Left = 0
Height = 73 Height = 55
Top = 17 Top = 18
Width = 202 Width = 203
Align = alClient Align = alClient
OnChange = ExcludedOriginalsMemoChange ScrollBars = ssAutoBoth
ScrollBars = ssAutoVertical
TabOrder = 0 TabOrder = 0
WordWrap = False
OnChange = ExcludedOriginalsMemoChange
end end
object ExcludedOriginalsLabel: TLabel object ExcludedOriginalsLabel: TLabel
Left = 0 Left = 0
Height = 15 Height = 16
Top = 0 Top = 0
Width = 202 Width = 203
Align = alTop Align = alTop
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Originals:' Caption = 'Originals:'
@ -166,8 +168,8 @@ object ProjectI18NOptionsFrame: TProjectI18NOptionsFrame
end end
object ForceUpdatePoFilesCheckBox: TCheckBox object ForceUpdatePoFilesCheckBox: TCheckBox
Left = 0 Left = 0
Height = 19 Height = 23
Top = 259 Top = 255
Width = 438 Width = 438
Align = alBottom Align = alBottom
BorderSpacing.Top = 5 BorderSpacing.Top = 5