mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Improve autosize of tweak plugin dialog.

Browse source
This commit is contained in:
cobines 2010-12-24 04:41:00 +00:00
commit 3eb0b14f4e
3 changed files with 336 additions and 332 deletions
Download patch file Download diff file Expand all files Collapse all files

666
src/ftweakplugin.lfm
View file

@ -1,447 +1,401 @@
object frmTweakPlugin: TfrmTweakPlugin
Left = 346
Height = 443
Top = 80
Width = 488
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Left = 405
Height = 482
Top = 52
Width = 544
AutoSize = True
Caption = 'Tweak plugin'
ClientHeight = 443
ClientWidth = 488
ClientHeight = 482
ClientWidth = 544
Color = clForm
Position = poScreenCenter
LCLVersion = '0.9.29'
object btnOK: TButton
AnchorSideTop.Control = btnCancel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnCancel
Left = 308
Height = 32
Top = 400
Width = 82
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 0
end
object btnCancel: TButton
AnchorSideTop.Control = nbTweakAll
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 398
Height = 32
Top = 400
Width = 82
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
ShowInTaskBar = stNever
LCLVersion = '0.9.31'
object nbTweakAll: TNotebook
Left = 8
Height = 392
Left = 0
Height = 439
Top = 0
Width = 472
Width = 544
Align = alClient
PageIndex = 0
ShowTabs = False
TabOrder = 2
TabOrder = 0
object pgTweakPacker: TPage
ClientWidth = 464
ClientHeight = 384
object grpTweak: TGroupBox
AnchorSideLeft.Control = pgTweakPacker
AnchorSideTop.Control = pgTweakPacker
AnchorSideRight.Control = pgTweakPacker
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pgTweakPacker
AnchorSideBottom.Side = asrBottom
ClientWidth = 540
ClientHeight = 435
object pnlTweak: TPanel
Left = 6
Height = 372
Height = 423
Top = 6
Width = 452
Anchors = [akTop, akLeft, akRight, akBottom]
Width = 528
Align = alClient
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
BorderStyle = bsSingle
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ClientHeight = 354
ClientWidth = 448
ClientHeight = 421
ClientWidth = 526
TabOrder = 0
object lblFlagsValue: TLabel
AnchorSideLeft.Control = lblFlags
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = lblFlags
AnchorSideTop.Side = asrBottom
Left = 8
Height = 14
Top = 84
Width = 27
Caption = '(000)'
Left = 28
Height = 1
Top = 102
Width = 1
ParentColor = False
end
object lblPlugin: TLabel
AnchorSideLeft.Control = grpTweak
AnchorSideTop.Control = grpTweak
AnchorSideLeft.Control = pnlTweak
AnchorSideTop.Control = pnlTweak
Left = 6
Height = 14
Height = 20
Top = 12
Width = 33
Width = 51
BorderSpacing.Top = 12
Caption = 'Plugin:'
ParentColor = False
end
object lblExtension: TLabel
AnchorSideLeft.Control = lblPlugin
AnchorSideTop.Control = lblPlugin
AnchorSideTop.Control = edtPlugin
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 44
Width = 52
BorderSpacing.Top = 18
Height = 20
Top = 49
Width = 73
BorderSpacing.Top = 12
Caption = 'Extension:'
ParentColor = False
end
object lblFlags: TLabel
AnchorSideLeft.Control = lblExtension
AnchorSideTop.Control = lblExtension
AnchorSideTop.Control = pnlPackerExtsButtons
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 70
Width = 30
BorderSpacing.Top = 12
Height = 20
Top = 82
Width = 44
BorderSpacing.Top = 8
Caption = 'Flags:'
ParentColor = False
end
object edtPlugin: TEdit
AnchorSideLeft.Control = lblExtension
AnchorSideLeft.Side = asrBottom
AnchorSideLeft.Control = pnlPackerExtsButtons
AnchorSideTop.Control = lblPlugin
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnChange
AnchorSideRight.Control = pnlPackerExtsButtons
AnchorSideRight.Side = asrBottom
Left = 70
Height = 21
Top = 9
Width = 354
Left = 91
Height = 29
Top = 8
Width = 429
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
TabOrder = 0
end
object cbExt: TComboBox
AnchorSideLeft.Control = edtPlugin
object pnlPackerExtsButtons: TPanel
AnchorSideLeft.Control = lblExtension
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblExtension
AnchorSideTop.Side = asrCenter
Left = 70
Height = 21
Top = 41
Width = 73
ItemHeight = 13
OnChange = cbExtChange
Style = csDropDownList
AnchorSideRight.Control = pnlTweak
AnchorSideRight.Side = asrBottom
Left = 91
Height = 29
Top = 45
Width = 429
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 12
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 29
ClientWidth = 429
TabOrder = 1
object cbExt: TComboBox
Left = 0
Height = 29
Top = 0
Width = 121
Constraints.MinWidth = 80
ItemHeight = 0
OnChange = cbExtChange
Style = csDropDownList
TabOrder = 0
end
object btnRemove: TButton
Left = 121
Height = 29
Top = 0
Width = 103
AutoSize = True
Caption = 'Remove'
Constraints.MinWidth = 80
OnClick = btnRemoveClick
TabOrder = 1
end
object btnAdd: TButton
Left = 224
Height = 29
Top = 0
Width = 103
AutoSize = True
Caption = 'Add new'
Constraints.MinWidth = 80
OnClick = btnAddClick
TabOrder = 2
end
object btnChange: TButton
Left = 327
Height = 29
Top = 0
Width = 102
AutoSize = True
Caption = 'Change'
Constraints.MinWidth = 80
OnClick = btnChangeClick
TabOrder = 3
end
end
object cbPK_CAPS_NEW: TCheckBox
AnchorSideLeft.Control = cbExt
object pnlFlags: TPanel
AnchorSideLeft.Control = pnlPackerExtsButtons
AnchorSideTop.Control = lblFlags
Left = 70
Height = 17
Top = 70
Width = 137
Caption = 'Can create new archives'
TabOrder = 5
end
object cbPK_CAPS_MODIFY: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_NEW
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 87
Width = 157
Caption = 'Can modify exisiting archives'
TabOrder = 6
end
object cbPK_CAPS_MULTIPLE: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_MODIFY
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 104
Width = 173
Caption = 'Archive can contain multiple files'
TabOrder = 7
end
object cbPK_CAPS_DELETE: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_MULTIPLE
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 121
Width = 92
Caption = 'Can delete files'
TabOrder = 8
end
object cbPK_CAPS_OPTIONS: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_DELETE
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 138
Width = 167
Caption = 'Supports the options dialogbox'
TabOrder = 9
end
object cbPK_CAPS_MEMPACK: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_OPTIONS
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 155
Width = 152
Caption = 'Supports packing in memory'
TabOrder = 10
end
object cbPK_CAPS_BY_CONTENT: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_MEMPACK
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 172
Width = 168
Caption = 'Detect archive type by content'
TabOrder = 11
end
object cbPK_CAPS_SEARCHTEXT: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_BY_CONTENT
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 189
Width = 186
Caption = 'Allow searching for text in archives'
TabOrder = 12
end
object cbPK_CAPS_HIDE: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_SEARCHTEXT
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 206
Width = 203
Caption = 'Show as normal files (hide packer icon)'
TabOrder = 13
end
object btnAdd: TButton
AnchorSideLeft.Control = btnRemove
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbExt
AnchorSideTop.Side = asrCenter
Left = 242
Height = 32
Top = 35
Width = 89
BorderSpacing.Left = 4
Caption = 'Add new'
OnClick = btnAddClick
TabOrder = 3
end
object btnRemove: TButton
AnchorSideLeft.Control = cbExt
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbExt
AnchorSideTop.Side = asrCenter
Left = 149
Height = 32
Top = 35
Width = 89
BorderSpacing.Left = 6
Caption = 'Remove'
OnClick = btnRemoveClick
AnchorSideRight.Control = pnlTweak
AnchorSideRight.Side = asrBottom
Left = 91
Height = 275
Top = 82
Width = 296
AutoSize = True
BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ClientHeight = 275
ClientWidth = 296
TabOrder = 2
end
object btnDefault: TButton
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_ENCRYPT
AnchorSideTop.Side = asrBottom
Left = 70
Height = 32
Top = 246
Width = 105
BorderSpacing.Top = 6
Caption = 'Default'
OnClick = btnDefaultClick
TabOrder = 15
end
object btnChange: TButton
AnchorSideLeft.Control = btnAdd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbExt
AnchorSideTop.Side = asrCenter
Left = 335
Height = 32
Top = 35
Width = 89
BorderSpacing.Left = 4
Caption = 'Change'
OnClick = btnChangeClick
TabOrder = 4
end
object cbPK_CAPS_ENCRYPT: TCheckBox
AnchorSideLeft.Control = cbExt
AnchorSideTop.Control = cbPK_CAPS_HIDE
AnchorSideTop.Side = asrBottom
Left = 70
Height = 17
Top = 223
Width = 115
Caption = 'Supports encryption'
TabOrder = 14
object cbPK_CAPS_NEW: TCheckBox
Left = 0
Height = 24
Top = 0
Width = 296
Caption = 'Can create new archives'
TabOrder = 0
end
object cbPK_CAPS_MODIFY: TCheckBox
Left = 0
Height = 24
Top = 24
Width = 296
Caption = 'Can modify exisiting archives'
TabOrder = 1
end
object cbPK_CAPS_MULTIPLE: TCheckBox
Left = 0
Height = 24
Top = 48
Width = 296
Caption = 'Archive can contain multiple files'
TabOrder = 2
end
object cbPK_CAPS_DELETE: TCheckBox
Left = 0
Height = 24
Top = 72
Width = 296
Caption = 'Can delete files'
TabOrder = 3
end
object cbPK_CAPS_OPTIONS: TCheckBox
Left = 0
Height = 24
Top = 96
Width = 296
Caption = 'Supports the options dialogbox'
TabOrder = 4
end
object cbPK_CAPS_MEMPACK: TCheckBox
Left = 0
Height = 24
Top = 120
Width = 296
Caption = 'Supports packing in memory'
TabOrder = 5
end
object cbPK_CAPS_BY_CONTENT: TCheckBox
Left = 0
Height = 24
Top = 144
Width = 296
Caption = 'Detect archive type by content'
TabOrder = 6
end
object cbPK_CAPS_SEARCHTEXT: TCheckBox
Left = 0
Height = 24
Top = 168
Width = 296
Caption = 'Allow searching for text in archives'
TabOrder = 7
end
object cbPK_CAPS_HIDE: TCheckBox
Left = 0
Height = 24
Top = 192
Width = 296
Caption = 'Show as normal files (hide packer icon)'
TabOrder = 8
end
object cbPK_CAPS_ENCRYPT: TCheckBox
Left = 0
Height = 24
Top = 216
Width = 296
Caption = 'Supports encryption'
TabOrder = 9
end
object btnDefault: TButton
AnchorSideLeft.Control = cbPK_CAPS_ENCRYPT
AnchorSideTop.Control = cbPK_CAPS_ENCRYPT
AnchorSideTop.Side = asrBottom
Left = 0
Height = 29
Top = 246
Width = 100
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Default'
Constraints.MinWidth = 100
OnClick = btnDefaultClick
TabOrder = 10
end
end
end
end
object pgTweakOther: TPage
ClientWidth = 454
ClientHeight = 384
object grpTweakOther: TGroupBox
AnchorSideLeft.Control = pgTweakOther
AnchorSideTop.Control = pgTweakOther
AnchorSideRight.Control = pgTweakOther
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pgTweakOther
ClientWidth = 540
ClientHeight = 435
object pnlTweakOther: TPanel
Left = 6
Height = 388
Height = 423
Top = 6
Width = 442
Width = 528
Align = alClient
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
ClientHeight = 370
ClientWidth = 438
BevelOuter = bvNone
BorderStyle = bsSingle
ClientHeight = 421
ClientWidth = 526
TabOrder = 0
object lblName: TLabel
AnchorSideLeft.Control = grpTweakOther
AnchorSideLeft.Control = lblPlugin1
AnchorSideTop.Control = edtPlugin1
AnchorSideTop.Side = asrBottom
Left = 10
Height = 14
Top = 57
Width = 32
BorderSpacing.Left = 10
BorderSpacing.Top = 8
Height = 20
Top = 71
Width = 45
Caption = 'Name:'
ParentColor = False
end
object lblDetectStr: TLabel
AnchorSideLeft.Control = grpTweakOther
AnchorSideLeft.Control = lblName
AnchorSideTop.Control = edtName
AnchorSideTop.Side = asrBottom
Left = 10
Height = 14
Top = 106
Width = 67
BorderSpacing.Left = 10
BorderSpacing.Top = 8
Height = 20
Top = 134
Width = 93
Caption = 'Detect string:'
ParentColor = False
end
object lblDescription: TLabel
AnchorSideLeft.Control = grpTweakOther
AnchorSideLeft.Control = lblDetectStr
AnchorSideTop.Control = edtDetectStr
AnchorSideTop.Side = asrBottom
Left = 10
Height = 14
Top = 155
Width = 58
BorderSpacing.Left = 10
BorderSpacing.Top = 8
Height = 20
Top = 197
Width = 86
Caption = 'Description:'
ParentColor = False
end
object edtName: TEdit
AnchorSideLeft.Control = grpTweakOther
AnchorSideLeft.Control = lblName
AnchorSideTop.Control = lblName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grpTweakOther
AnchorSideRight.Control = edtPlugin1
AnchorSideRight.Side = asrBottom
Left = 10
Height = 21
Top = 77
Width = 418
Height = 29
Top = 97
Width = 506
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 6
BorderSpacing.Right = 10
TabOrder = 0
end
object edtDetectStr: TEdit
AnchorSideLeft.Control = grpTweakOther
AnchorSideTop.Control = lblDetectStr
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grpTweakOther
AnchorSideRight.Side = asrBottom
Left = 10
Height = 21
Top = 126
Width = 418
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 6
BorderSpacing.Right = 10
BorderSpacing.Bottom = 8
TabOrder = 1
end
object edtDescription: TEdit
AnchorSideLeft.Control = grpTweakOther
AnchorSideTop.Control = lblDescription
object edtDetectStr: TEdit
AnchorSideLeft.Control = edtPlugin1
AnchorSideTop.Control = lblDetectStr
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grpTweakOther
AnchorSideRight.Control = edtPlugin1
AnchorSideRight.Side = asrBottom
Left = 10
Height = 21
Top = 177
Width = 418
Height = 29
Top = 160
Width = 506
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 8
BorderSpacing.Right = 10
BorderSpacing.Top = 6
BorderSpacing.Bottom = 8
TabOrder = 2
end
object edtPlugin1: TEdit
AnchorSideLeft.Control = grpTweakOther
AnchorSideTop.Control = lblPlugin1
object edtDescription: TEdit
AnchorSideLeft.Control = edtPlugin1
AnchorSideTop.Control = lblDescription
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grpTweakOther
AnchorSideRight.Control = edtPlugin1
AnchorSideRight.Side = asrBottom
Left = 10
Height = 21
Top = 28
Width = 418
Height = 29
Top = 223
Width = 506
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 8
TabOrder = 3
end
object edtPlugin1: TEdit
AnchorSideLeft.Control = pnlTweakOther
AnchorSideTop.Control = lblPlugin1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlTweakOther
AnchorSideRight.Side = asrBottom
Left = 10
Height = 29
Top = 34
Width = 506
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 6
BorderSpacing.Right = 10
TabOrder = 3
BorderSpacing.Bottom = 8
Constraints.MinWidth = 350
TabOrder = 0
end
object lblPlugin1: TLabel
AnchorSideLeft.Control = grpTweakOther
AnchorSideTop.Control = grpTweakOther
AnchorSideLeft.Control = pnlTweakOther
AnchorSideTop.Control = pnlTweakOther
Left = 10
Height = 14
Height = 20
Top = 8
Width = 33
Width = 51
BorderSpacing.Left = 10
BorderSpacing.Top = 8
Caption = 'Plugin:'
@ -450,4 +404,52 @@ object frmTweakPlugin: TfrmTweakPlugin
end
end
end
end
object pnlButtons: TPanel
Left = 0
Height = 43
Top = 439
Width = 544
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 43
ClientWidth = 544
TabOrder = 1
object btnOK: TButton
AnchorSideTop.Control = btnCancel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnCancel
Left = 329
Height = 29
Top = 7
Width = 100
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'OK'
Constraints.MinWidth = 100
Default = True
ModalResult = 1
TabOrder = 0
end
object btnCancel: TButton
AnchorSideTop.Control = pnlButtons
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom
Left = 437
Height = 29
Top = 7
Width = 100
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 7
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 100
ModalResult = 2
TabOrder = 1
end
end
end

13
src/ftweakplugin.lrt
View file

@ -1,10 +1,10 @@
TFRMTWEAKPLUGIN.CAPTION=Tweak plugin
TFRMTWEAKPLUGIN.BTNOK.CAPTION=OK
TFRMTWEAKPLUGIN.BTNCANCEL.CAPTION=Cancel
TFRMTWEAKPLUGIN.LBLFLAGSVALUE.CAPTION=(000)
TFRMTWEAKPLUGIN.LBLPLUGIN.CAPTION=Plugin:
TFRMTWEAKPLUGIN.LBLEXTENSION.CAPTION=Extension:
TFRMTWEAKPLUGIN.LBLFLAGS.CAPTION=Flags:
TFRMTWEAKPLUGIN.BTNREMOVE.CAPTION=Remove
TFRMTWEAKPLUGIN.BTNADD.CAPTION=Add new
TFRMTWEAKPLUGIN.BTNCHANGE.CAPTION=Change
TFRMTWEAKPLUGIN.CBPK_CAPS_NEW.CAPTION=Can create new archives
TFRMTWEAKPLUGIN.CBPK_CAPS_MODIFY.CAPTION=Can modify exisiting archives
TFRMTWEAKPLUGIN.CBPK_CAPS_MULTIPLE.CAPTION=Archive can contain multiple files
@ -14,12 +14,11 @@ TFRMTWEAKPLUGIN.CBPK_CAPS_MEMPACK.CAPTION=Supports packing in memory
TFRMTWEAKPLUGIN.CBPK_CAPS_BY_CONTENT.CAPTION=Detect archive type by content
TFRMTWEAKPLUGIN.CBPK_CAPS_SEARCHTEXT.CAPTION=Allow searching for text in archives
TFRMTWEAKPLUGIN.CBPK_CAPS_HIDE.CAPTION=Show as normal files (hide packer icon)
TFRMTWEAKPLUGIN.BTNADD.CAPTION=Add new
TFRMTWEAKPLUGIN.BTNREMOVE.CAPTION=Remove
TFRMTWEAKPLUGIN.BTNDEFAULT.CAPTION=Default
TFRMTWEAKPLUGIN.BTNCHANGE.CAPTION=Change
TFRMTWEAKPLUGIN.CBPK_CAPS_ENCRYPT.CAPTION=Supports encryption
TFRMTWEAKPLUGIN.BTNDEFAULT.CAPTION=Default
TFRMTWEAKPLUGIN.LBLNAME.CAPTION=Name:
TFRMTWEAKPLUGIN.LBLDETECTSTR.CAPTION=Detect string:
TFRMTWEAKPLUGIN.LBLDESCRIPTION.CAPTION=Description:
TFRMTWEAKPLUGIN.LBLPLUGIN1.CAPTION=Plugin:
TFRMTWEAKPLUGIN.BTNOK.CAPTION=OK
TFRMTWEAKPLUGIN.BTNCANCEL.CAPTION=Cancel

9
src/ftweakplugin.pas
View file

@ -57,7 +57,7 @@ type
edtDetectStr: TEdit;
edtName: TEdit;
edtPlugin: TEdit;
grpTweakOther: TGroupBox;
pnlTweakOther: TPanel;
lblDescription: TLabel;
lblDetectStr: TLabel;
lblName: TLabel;
@ -69,9 +69,12 @@ type
lblPlugin: TLabel;
edtPlugin1: TEdit;
nbTweakAll: TNotebook;
pnlButtons: TPanel;
pnlFlags: TPanel;
pnlPackerExtsButtons: TPanel;
pgTweakPacker: TPage;
pgTweakOther: TPage;
grpTweak: TGroupBox;
pnlTweak: TPanel;
procedure btnAddClick(Sender: TObject);
procedure btnChangeClick(Sender: TObject);
procedure btnDefaultClick(Sender: TObject);
@ -287,7 +290,7 @@ end;
procedure TfrmTweakPlugin.btnAddClick(Sender: TObject);
var
sExt: String;
sExt: String = '';
iFlags: PtrInt;
begin
if InputQuery(rsOptEnterExt,Format(rsOptAssocPluginWith, [GetCmdDirFromEnvVar(edtPlugin.Text)]), sExt) then