mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
FIX: Invisible checkboxes under Gtk2
This commit is contained in:
Alexander Koblov
parent
a5ad74fc23
commit
bb4115afbf
2 changed files with 92 additions and 74 deletions
|
|
@ -1,7 +1,7 @@
|
|||
object frmExtractDlg: TfrmExtractDlg
|
||||
Left = 375
|
||||
Left = 540
|
||||
Height = 225
|
||||
Top = 194
|
||||
Top = 144
|
||||
Width = 528
|
||||
HelpContext = 160
|
||||
HorzScrollBar.Page = 446
|
||||
|
|
@ -22,30 +22,31 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
SessionProperties = 'cbOverwrite.Checked'
|
||||
LCLVersion = '1.0.1.3'
|
||||
LCLVersion = '1.0.4.0'
|
||||
object pnlLabels: TPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = cbFileMask
|
||||
AnchorSideBottom.Control = edtPassword
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 130
|
||||
Height = 157
|
||||
Top = 5
|
||||
Width = 167
|
||||
Width = 211
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 130
|
||||
ClientWidth = 167
|
||||
ClientHeight = 157
|
||||
ClientWidth = 211
|
||||
Color = clForm
|
||||
ParentColor = False
|
||||
TabOrder = 9
|
||||
TabOrder = 7
|
||||
object lblFileMask: TLabel
|
||||
AnchorSideLeft.Control = pnlLabels
|
||||
AnchorSideTop.Control = pnlLabels
|
||||
Left = 0
|
||||
Height = 16
|
||||
Top = 3
|
||||
Width = 167
|
||||
Width = 211
|
||||
BorderSpacing.Top = 3
|
||||
Caption = '&Extract files matching file mask:'
|
||||
FocusControl = cbFileMask
|
||||
|
|
@ -57,8 +58,8 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 16
|
||||
Top = 111
|
||||
Width = 152
|
||||
Top = 138
|
||||
Width = 188
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Bottom = 3
|
||||
Caption = '&Password for encrypted files:'
|
||||
|
|
@ -71,7 +72,7 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
Left = 0
|
||||
Height = 16
|
||||
Top = 27
|
||||
Width = 88
|
||||
Width = 105
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'To the &directory:'
|
||||
FocusControl = edtExtractTo
|
||||
|
|
@ -84,53 +85,26 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 178
|
||||
Height = 23
|
||||
Left = 222
|
||||
Height = 27
|
||||
Top = 5
|
||||
Width = 314
|
||||
Width = 270
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 5
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 36
|
||||
ItemHeight = 15
|
||||
ItemHeight = 0
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
Text = '*.*'
|
||||
end
|
||||
object cbExtractPath: TCheckBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = cbInSeparateFolder
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 74
|
||||
Width = 221
|
||||
Caption = '&Unpack path names if stored with files'
|
||||
Checked = True
|
||||
OnChange = cbExtractPathChange
|
||||
State = cbChecked
|
||||
TabOrder = 3
|
||||
end
|
||||
object cbOverwrite: TCheckBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = cbExtractPath
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 93
|
||||
Width = 138
|
||||
Caption = 'O&verwrite existing files'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 4
|
||||
end
|
||||
object btnOK: TButton
|
||||
AnchorSideTop.Control = edtPassword
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = btnCancel
|
||||
Left = 249
|
||||
Height = 32
|
||||
Top = 141
|
||||
Top = 168
|
||||
Width = 85
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
|
|
@ -139,14 +113,14 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
Caption = '&OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 6
|
||||
TabOrder = 4
|
||||
end
|
||||
object btnCancel: TButton
|
||||
AnchorSideTop.Control = btnOK
|
||||
AnchorSideRight.Control = btnHelp
|
||||
Left = 340
|
||||
Height = 32
|
||||
Top = 141
|
||||
Top = 168
|
||||
Width = 85
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 6
|
||||
|
|
@ -154,7 +128,7 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
Cancel = True
|
||||
Caption = '&Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 7
|
||||
TabOrder = 5
|
||||
end
|
||||
object btnHelp: TButton
|
||||
AnchorSideTop.Control = btnCancel
|
||||
|
|
@ -162,25 +136,13 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
AnchorSideRight.Side = asrBottom
|
||||
Left = 431
|
||||
Height = 32
|
||||
Top = 141
|
||||
Top = 168
|
||||
Width = 85
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 12
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Help'
|
||||
TabOrder = 8
|
||||
end
|
||||
object cbInSeparateFolder: TCheckBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtExtractTo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 55
|
||||
Width = 351
|
||||
BorderSpacing.Top = 2
|
||||
Caption = 'Unpack each archive to a &separate subdir (name of the archive)'
|
||||
TabOrder = 2
|
||||
TabOrder = 6
|
||||
end
|
||||
object edtExtractTo: TDirectoryEdit
|
||||
AnchorSideLeft.Control = cbFileMask
|
||||
|
|
@ -188,10 +150,10 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = cbFileMask
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 178
|
||||
Height = 23
|
||||
Top = 30
|
||||
Width = 314
|
||||
Left = 222
|
||||
Height = 25
|
||||
Top = 34
|
||||
Width = 270
|
||||
ShowHidden = False
|
||||
ButtonWidth = 23
|
||||
NumGlyphs = 1
|
||||
|
|
@ -202,18 +164,72 @@ object frmExtractDlg: TfrmExtractDlg
|
|||
end
|
||||
object edtPassword: TEdit
|
||||
AnchorSideLeft.Control = cbFileMask
|
||||
AnchorSideTop.Control = cbOverwrite
|
||||
AnchorSideTop.Control = pnlCheckBoxes
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = edtExtractTo
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 178
|
||||
Height = 23
|
||||
Top = 112
|
||||
Width = 314
|
||||
Left = 222
|
||||
Height = 25
|
||||
Top = 137
|
||||
Width = 270
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
EchoMode = emPassword
|
||||
Enabled = False
|
||||
PasswordChar = '*'
|
||||
TabOrder = 5
|
||||
TabOrder = 3
|
||||
end
|
||||
object pnlCheckBoxes: TPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = edtExtractTo
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 78
|
||||
Top = 59
|
||||
Width = 516
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ClientHeight = 78
|
||||
ClientWidth = 516
|
||||
Color = clForm
|
||||
ParentColor = False
|
||||
TabOrder = 2
|
||||
object cbInSeparateFolder: TCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 6
|
||||
Width = 439
|
||||
BorderSpacing.Top = 2
|
||||
Caption = 'Unpack each archive to a &separate subdir (name of the archive)'
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbExtractPath: TCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 28
|
||||
Width = 439
|
||||
Caption = '&Unpack path names if stored with files'
|
||||
Checked = True
|
||||
OnChange = cbExtractPathChange
|
||||
State = cbChecked
|
||||
TabOrder = 1
|
||||
end
|
||||
object cbOverwrite: TCheckBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 50
|
||||
Width = 439
|
||||
Caption = 'O&verwrite existing files'
|
||||
Checked = True
|
||||
State = cbChecked
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -36,17 +36,19 @@ type
|
|||
{ TfrmExtractDlg }
|
||||
|
||||
TfrmExtractDlg = class(TForm)
|
||||
cbExtractPath: TCheckBox;
|
||||
cbInSeparateFolder: TCheckBox;
|
||||
cbOverwrite: TCheckBox;
|
||||
edtPassword: TEdit;
|
||||
edtExtractTo: TDirectoryEdit;
|
||||
lblExtractTo: TLabel;
|
||||
lblPassword: TLabel;
|
||||
cbFileMask: TComboBox;
|
||||
cbExtractPath: TCheckBox;
|
||||
cbOverwrite: TCheckBox;
|
||||
cbInSeparateFolder: TCheckBox;
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
btnHelp: TButton;
|
||||
lblFileMask: TLabel;
|
||||
pnlCheckBoxes: TPanel;
|
||||
pnlLabels: TPanel;
|
||||
procedure cbExtractPathChange(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue