TOPIC:

  CT_USE_DOCKING_SYSTEM      : boolean = TRUE; //======= ct9999 ============= for CodeTyphon Studio
  CT_USE_EMBEDDED_DESIGNER   : boolean = TRUE; //======= ct9999 ============= for CodeTyphon Studio
  CT_USE_AUTORENAME_PKGS     : boolean = TRUE; //======= ct9999 ============= for CodeTyphon Studio

  CT_USE_VIRTUAL_DESKTOP     : boolean = TRUE; //======= ct9999 ============= for CodeTyphon Studio

    FUseDockingSystem       : boolean;   //=== ct9999 ============
    FUseEmbeddedFormDesigner: boolean;   //=== ct9999 ============
    FUseAutoRenamePkg       : boolean;   //=== ct9999 ============
    FSendMsgToMessagesWin   : boolean;   //=== ct9999 ============

    FUseVirtualDesktop      : boolean;   //=== ct9999 ============

   // CodeTyphon Studio
    property UseDockingSystem: boolean read FUseDockingSystem write FUseDockingSystem;
    property UseEmbeddedFormDesigner: boolean read FUseEmbeddedFormDesigner write FUseEmbeddedFormDesigner;
    property UseAutoRenamePkg: boolean read FUseAutoRenamePkg write FUseAutoRenamePkg;
    property SendMsgToMessagesWin: boolean read FSendMsgToMessagesWin write FSendMsgToMessagesWin;

    property UseVirtualDesktop: boolean read FUseVirtualDesktop write FUseVirtualDesktop;	

  //=== CT
   FUseDockingSystem       :=true;    //=== ct9999 ============
   FUseEmbeddedFormDesigner:=true;    //=== ct9999 ============
   FUseAutoRenamePkg       :=true;    //=== ct9999 ============
   FSendMsgToMessagesWin   :=true;    //=== ct9999 ============

   FUseVirtualDesktop      :=true;    //=== ct9999 ============

      //================= ct9999 ==============================
      FUseDockingSystem:=XMLConfig.GetValue(
        Path+'Desktop/UseDockingSystem/Value',true);
      FUseEmbeddedFormDesigner:=XMLConfig.GetValue(
        Path+'Desktop/UseEmbeddedFormDesigner/Value',true);
      FUseAutoRenamePkg:=XMLConfig.GetValue(
        Path+'Desktop/UseAutoRenamePkg/Value',true);
      FSendMsgToMessagesWin:=XMLConfig.GetValue(
        Path+'Desktop/SendMsgToMessagesWin/Value',true);

      FUseVirtualDesktop:=XMLConfig.GetValue(
        Path+'Desktop/UseVirtualDesktop/Value',true);

      //================= ct9999 ==============================
      XMLConfig.SetDeleteValue(Path+'Desktop/UseDockingSystem/Value',
                               FUseDockingSystem,true);
      XMLConfig.SetDeleteValue(Path+'Desktop/UseEmbeddedFormDesigner/Value',
                               FUseEmbeddedFormDesigner,true);
      XMLConfig.SetDeleteValue(Path+'Desktop/UseAutoRenamePkg/Value',
                               FUseAutoRenamePkg,true);
      XMLConfig.SetDeleteValue(Path+'Desktop/SendMsgToMessagesWin/Value',
                               FSendMsgToMessagesWin,true);	

      XMLConfig.SetDeleteValue(Path+'Desktop/UseVirtualDesktop/Value',
                               FUseVirtualDesktop,true);

//---------------------------------------------- ct9999 for CodeTyphon Studio
  CT_USE_DOCKING_SYSTEM      := EnvironmentOptions.UseDockingSystem;
  CT_USE_EMBEDDED_DESIGNER   := EnvironmentOptions.UseEmbeddedFormDesigner;

  CT_USE_VIRTUAL_DESKTOP     := EnvironmentOptions.UseVirtualDesktop;

    //====================================================== ct9999
    UseAutoRenamePkgCheckBox: TCheckBox;    
    UseEmbeddedFormDesignerCheckBox: TCheckBox;
    UseDockingSystemCheckBox: TCheckBox;    
    SendMsgToMessagesWinCheckBox: TCheckBox;

    UseVirtualDesktopCheckBox: TCheckBox;

    //================= ct9999 ==============================
     UseDockingSystemCheckBox.Checked:= UseDockingSystem;
     UseEmbeddedFormDesignerCheckBox.Checked:=UseEmbeddedFormDesigner;
     UseAutoRenamePkgCheckBox.Checked:=UseAutoRenamePkg;
     SendMsgToMessagesWinCheckBox.Checked:=SendMsgToMessagesWin;

     UseVirtualDesktopCheckBox.Checked:=UseVirtualDesktop;

    //================= ct9999 ==============================
    UseDockingSystem:= UseDockingSystemCheckBox.Checked;
    UseEmbeddedFormDesigner:= UseEmbeddedFormDesignerCheckBox.Checked;
    UseAutoRenamePkg:= UseAutoRenamePkgCheckBox.Checked;
    SendMsgToMessagesWin:=SendMsgToMessagesWinCheckBox.Checked;

    UseVirtualDesktop := UseVirtualDesktopCheckBox.Checked;

Procedure TEmbedFormEditor.InitVisual
(...)
FDesignPanel.FIniOK:=true;
end;

   pnScreenPreview.Visible     := CT_USE_VIRTUAL_DESKTOP;
   pnScreenPreviewBtns.Visible := CT_USE_VIRTUAL_DESKTOP;