Skip to content
Snippets Groups Projects
Commit 44c02e4a authored by rswindell's avatar rswindell
Browse files

Added support for the undockable windows checkbox.

parent 9ca6bd38
No related branches found
No related tags found
No related merge requests found
...@@ -1945,6 +1945,7 @@ void __fastcall TMainForm::PropertiesExecute(TObject *Sender) ...@@ -1945,6 +1945,7 @@ void __fastcall TMainForm::PropertiesExecute(TObject *Sender)
PropertiesDlg->NodeIntUpDown->Position=NodeDisplayInterval; PropertiesDlg->NodeIntUpDown->Position=NodeDisplayInterval;
PropertiesDlg->ClientIntUpDown->Position=ClientDisplayInterval; PropertiesDlg->ClientIntUpDown->Position=ClientDisplayInterval;
PropertiesDlg->TrayIconCheckBox->Checked=MinimizeToSysTray; PropertiesDlg->TrayIconCheckBox->Checked=MinimizeToSysTray;
PropertiesDlg->UndockableCheckBox->Checked=UndockableForms;
if(PropertiesDlg->ShowModal()==mrOk) { if(PropertiesDlg->ShowModal()==mrOk) {
LoginCommand=PropertiesDlg->LoginCmdEdit->Text; LoginCommand=PropertiesDlg->LoginCmdEdit->Text;
ConfigCommand=PropertiesDlg->ConfigCmdEdit->Text; ConfigCommand=PropertiesDlg->ConfigCmdEdit->Text;
...@@ -1952,6 +1953,7 @@ void __fastcall TMainForm::PropertiesExecute(TObject *Sender) ...@@ -1952,6 +1953,7 @@ void __fastcall TMainForm::PropertiesExecute(TObject *Sender)
NodeDisplayInterval=PropertiesDlg->NodeIntUpDown->Position; NodeDisplayInterval=PropertiesDlg->NodeIntUpDown->Position;
ClientDisplayInterval=PropertiesDlg->ClientIntUpDown->Position; ClientDisplayInterval=PropertiesDlg->ClientIntUpDown->Position;
MinimizeToSysTray=PropertiesDlg->TrayIconCheckBox->Checked; MinimizeToSysTray=PropertiesDlg->TrayIconCheckBox->Checked;
UndockableForms=PropertiesDlg->UndockableCheckBox->Checked;
SaveSettings(Sender); SaveSettings(Sender);
} }
delete PropertiesDlg; delete PropertiesDlg;
......
...@@ -1968,6 +1968,7 @@ object MainForm: TMainForm ...@@ -1968,6 +1968,7 @@ object MainForm: TMainForm
DockSite = True DockSite = True
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
OnUnDock = PageControlUnDock
end end
object UpperRightPageControl: TPageControl object UpperRightPageControl: TPageControl
Left = 292 Left = 292
...@@ -1978,6 +1979,7 @@ object MainForm: TMainForm ...@@ -1978,6 +1979,7 @@ object MainForm: TMainForm
DockSite = True DockSite = True
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
OnUnDock = PageControlUnDock
end end
end end
object BottomPanel: TPanel object BottomPanel: TPanel
...@@ -2006,6 +2008,7 @@ object MainForm: TMainForm ...@@ -2006,6 +2008,7 @@ object MainForm: TMainForm
DockSite = True DockSite = True
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
OnUnDock = PageControlUnDock
end end
object LowerRightPageControl: TPageControl object LowerRightPageControl: TPageControl
Left = 292 Left = 292
...@@ -2016,6 +2019,7 @@ object MainForm: TMainForm ...@@ -2016,6 +2019,7 @@ object MainForm: TMainForm
DockSite = True DockSite = True
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
OnUnDock = PageControlUnDock
end end
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
......
object PropertiesDlg: TPropertiesDlg object PropertiesDlg: TPropertiesDlg
Left = 629 Left = 496
Top = 497 Top = 224
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Control Panel Properties' Caption = 'Control Panel Properties'
ClientHeight = 229 ClientHeight = 261
ClientWidth = 433 ClientWidth = 433
Color = clBtnFace Color = clBtnFace
ParentFont = True ParentFont = True
...@@ -15,7 +15,7 @@ object PropertiesDlg: TPropertiesDlg ...@@ -15,7 +15,7 @@ object PropertiesDlg: TPropertiesDlg
Left = 10 Left = 10
Top = 10 Top = 10
Width = 306 Width = 306
Height = 205 Height = 237
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Shape = bsFrame Shape = bsFrame
end end
...@@ -107,7 +107,6 @@ object PropertiesDlg: TPropertiesDlg ...@@ -107,7 +107,6 @@ object PropertiesDlg: TPropertiesDlg
Top = 182 Top = 182
Width = 281 Width = 281
Height = 24 Height = 24
Anchors = [akLeft, akBottom]
Caption = 'Minimize to System Tray' Caption = 'Minimize to System Tray'
TabOrder = 4 TabOrder = 4
end end
...@@ -117,6 +116,7 @@ object PropertiesDlg: TPropertiesDlg ...@@ -117,6 +116,7 @@ object PropertiesDlg: TPropertiesDlg
Width = 25 Width = 25
Height = 24 Height = 24
TabOrder = 3 TabOrder = 3
Text = '1'
end end
object NodeIntUpDown: TUpDown object NodeIntUpDown: TUpDown
Left = 281 Left = 281
...@@ -136,6 +136,7 @@ object PropertiesDlg: TPropertiesDlg ...@@ -136,6 +136,7 @@ object PropertiesDlg: TPropertiesDlg
Width = 25 Width = 25
Height = 24 Height = 24
TabOrder = 8 TabOrder = 8
Text = '1'
end end
object ClientIntUpDown: TUpDown object ClientIntUpDown: TUpDown
Left = 281 Left = 281
...@@ -149,4 +150,12 @@ object PropertiesDlg: TPropertiesDlg ...@@ -149,4 +150,12 @@ object PropertiesDlg: TPropertiesDlg
TabOrder = 9 TabOrder = 9
Wrap = False Wrap = False
end end
object UndockableCheckBox: TCheckBox
Left = 24
Top = 214
Width = 281
Height = 24
Caption = 'Undockable Windows'
TabOrder = 10
end
end end
...@@ -33,6 +33,7 @@ __published: ...@@ -33,6 +33,7 @@ __published:
TLabel *Label5; TLabel *Label5;
TEdit *ClientIntEdit; TEdit *ClientIntEdit;
TUpDown *ClientIntUpDown; TUpDown *ClientIntUpDown;
TCheckBox *UndockableCheckBox;
private: private:
public: public:
virtual __fastcall TPropertiesDlg(TComponent* AOwner); virtual __fastcall TPropertiesDlg(TComponent* AOwner);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment