Commit 725c0117 authored by Boris Dorès's avatar Boris Dorès

- menu checkbox outside of title/chapter groupbox

parent 3b2350b1
...@@ -131,6 +131,7 @@ void __fastcall TDiscDlg::DisableTitles( Boolean disable ) ...@@ -131,6 +131,7 @@ void __fastcall TDiscDlg::DisableTitles( Boolean disable )
{ {
if( disable ) if( disable )
{ {
GroupBoxPosition->Enabled = false;
LabelTitle->Enabled = false; LabelTitle->Enabled = false;
LabelChapter->Enabled = false; LabelChapter->Enabled = false;
SpinEditTitle->Enabled = false; SpinEditTitle->Enabled = false;
...@@ -140,6 +141,7 @@ void __fastcall TDiscDlg::DisableTitles( Boolean disable ) ...@@ -140,6 +141,7 @@ void __fastcall TDiscDlg::DisableTitles( Boolean disable )
} }
else else
{ {
GroupBoxPosition->Enabled = true;
LabelTitle->Enabled = true; LabelTitle->Enabled = true;
LabelChapter->Enabled = true; LabelChapter->Enabled = true;
SpinEditTitle->Enabled = true; SpinEditTitle->Enabled = true;
......
...@@ -26,18 +26,27 @@ object DiscDlg: TDiscDlg ...@@ -26,18 +26,27 @@ object DiscDlg: TDiscDlg
Height = 13 Height = 13
Caption = 'Device &name:' Caption = 'Device &name:'
end end
object CheckBoxMenus: TCheckBox
Left = 96
Top = 8
Width = 97
Height = 17
Caption = '&Menus'
TabOrder = 1
OnClick = CheckBoxMenusClick
end
object GroupBoxPosition: TGroupBox object GroupBoxPosition: TGroupBox
Tag = 3 Tag = 3
Left = 96 Left = 96
Top = 8 Top = 33
Width = 144 Width = 144
Height = 97 Height = 72
Caption = 'Starting position' Caption = 'Starting position'
TabOrder = 1 TabOrder = 2
object LabelTitle: TLabel object LabelTitle: TLabel
Tag = 3 Tag = 3
Left = 8 Left = 8
Top = 44 Top = 19
Width = 23 Width = 23
Height = 13 Height = 13
Caption = '&Title:' Caption = '&Title:'
...@@ -45,14 +54,14 @@ object DiscDlg: TDiscDlg ...@@ -45,14 +54,14 @@ object DiscDlg: TDiscDlg
object LabelChapter: TLabel object LabelChapter: TLabel
Tag = 3 Tag = 3
Left = 8 Left = 8
Top = 72 Top = 47
Width = 40 Width = 40
Height = 13 Height = 13
Caption = '&Chapter:' Caption = '&Chapter:'
end end
object SpinEditTitle: TCSpinEdit object SpinEditTitle: TCSpinEdit
Left = 56 Left = 56
Top = 39 Top = 14
Width = 80 Width = 80
Height = 22 Height = 22
TabStop = True TabStop = True
...@@ -70,24 +79,15 @@ object DiscDlg: TDiscDlg ...@@ -70,24 +79,15 @@ object DiscDlg: TDiscDlg
end end
object SpinEditChapter: TCSpinEdit object SpinEditChapter: TCSpinEdit
Left = 56 Left = 56
Top = 67 Top = 42
Width = 80 Width = 80
Height = 22 Height = 22
TabStop = True TabStop = True
MaxValue = 65535 MaxValue = 65535
MinValue = 1 MinValue = 1
ParentColor = False ParentColor = False
TabOrder = 2
Value = 1
end
object CheckBoxMenus: TCheckBox
Left = 8
Top = 16
Width = 97
Height = 17
Caption = '&Menus'
TabOrder = 0 TabOrder = 0
OnClick = CheckBoxMenusClick Value = 1
end end
end end
object RadioGroupType: TRadioGroup object RadioGroupType: TRadioGroup
...@@ -113,7 +113,7 @@ object DiscDlg: TDiscDlg ...@@ -113,7 +113,7 @@ object DiscDlg: TDiscDlg
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1
TabOrder = 3 TabOrder = 4
OnClick = ButtonOkClick OnClick = ButtonOkClick
end end
object ButtonCancel: TButton object ButtonCancel: TButton
...@@ -125,7 +125,7 @@ object DiscDlg: TDiscDlg ...@@ -125,7 +125,7 @@ object DiscDlg: TDiscDlg
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 4 TabOrder = 5
OnClick = ButtonCancelClick OnClick = ButtonCancelClick
end end
object EditDevice: TEdit object EditDevice: TEdit
...@@ -134,7 +134,7 @@ object DiscDlg: TDiscDlg ...@@ -134,7 +134,7 @@ object DiscDlg: TDiscDlg
Top = 113 Top = 113
Width = 144 Width = 144
Height = 21 Height = 21
TabOrder = 2 TabOrder = 3
Text = 'F:\' Text = 'F:\'
end end
end end
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment