1. Board4all.biz is a forum where members can share their knowledge and much more - why not become part of our wonderful community thats been around for over 15 years and create an account with us. We have one of the (if not the) best development sections on the internet, especially Delphi. If you have problems registering you can send an email to admin@board4all.biz and we will look into it. If you are thinking of joining to whine about content, we dont host anything whatsoever illegal so please don't bother wasting our time and yours.

Devexpress docking question

Discussion in 'HelpDesk' started by RubberDuck, Aug 12, 2017.

  1. RubberDuck

    RubberDuck is a Trusted Warez PosterRubberDuck Super Moderator Staff Member Super Moderator DEV Guild Translator

    Joined:
    Aug 7, 2008
    Messages:
    13,468
    Likes Received:
    35,304
    Playing with the Docking items in Devexpress, and couldn't figure how how to set the handles to show on where you can drop the items
    Had to set the style to VS2005 and works..

    Problem I am running into is that I can only dock items Left and Right inside of docks, but NOT top and bottom.
    The items are checked, and looked at the Demo, but can't find the differences..
    Anyone knows where it needs to be set?

    Thanks
     
  2. Skydevil

    Skydevil is a Trusted Warez PosterSkydevil Administrator Staff Member Administrator V.I.P DEV Guild

    Joined:
    Oct 4, 2008
    Messages:
    11,748
    Likes Received:
    22,590
    Sorry, no idea what you mean...
    Docking top...
    [​IMG]

    Docking bottom...
    [​IMG]

    Docking with tab...
    [​IMG]

    Non-Docking...
    [​IMG]


    Copy & paste the lines below on an empty form...
    Code:
      object dxDockSite1: TdxDockSite
        Left = 0
        Top = 0
        Width = 697
        Height = 418
        Align = alClient
        DockingType = 5
        OriginalWidth = 697
        OriginalHeight = 418
        object dxLayoutDockSite1: TdxLayoutDockSite
          Left = 0
          Top = 0
          Width = 697
          Height = 418
          DockingType = 0
          OriginalWidth = 300
          OriginalHeight = 200
        end
        object dxDockPanel1: TdxDockPanel
          Left = 0
          Top = 0
          Width = 697
          Height = 418
          AllowFloating = True
          AutoHide = False
          Caption = 'dxDockPanel1'
          CustomCaptionButtons.Buttons = <>
          TabsProperties.CustomButtons.Buttons = <>
          DockingType = 0
          OriginalWidth = 185
          OriginalHeight = 140
          object Memo1: TMemo
            Left = 0
            Top = 0
            Width = 693
            Height = 390
            Align = alClient
            BorderStyle = bsNone
            Lines.Strings = (
              'Memo1')
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
      end
      object dxDockSite2: TdxDockSite
        Left = 0
        Top = 418
        Width = 997
        Height = 200
        Align = alBottom
        DockingType = 5
        OriginalWidth = 997
        OriginalHeight = 200
        object dxLayoutDockSite7: TdxLayoutDockSite
          Left = 185
          Top = 0
          Width = 812
          Height = 200
          DockingType = 0
          OriginalWidth = 300
          OriginalHeight = 200
          object dxLayoutDockSite6: TdxLayoutDockSite
            Left = 185
            Top = 0
            Width = 627
            Height = 200
            DockingType = 0
            OriginalWidth = 300
            OriginalHeight = 200
            object dxLayoutDockSite5: TdxLayoutDockSite
              Left = 185
              Top = 0
              Width = 442
              Height = 200
              DockingType = 0
              OriginalWidth = 300
              OriginalHeight = 200
              object dxLayoutDockSite3: TdxLayoutDockSite
                Left = 0
                Top = 0
                Width = 442
                Height = 200
                DockingType = 0
                OriginalWidth = 300
                OriginalHeight = 200
              end
              object dxDockPanel4: TdxDockPanel
                Left = 0
                Top = 0
                Width = 442
                Height = 200
                AllowFloating = True
                AutoHide = False
                Caption = 'dxDockPanel4'
                CustomCaptionButtons.Buttons = <>
                TabsProperties.CustomButtons.Buttons = <>
                DockingType = 0
                OriginalWidth = 185
                OriginalHeight = 140
              end
            end
            object dxDockPanel5: TdxDockPanel
              Left = 0
              Top = 0
              Width = 185
              Height = 200
              AllowFloating = True
              AutoHide = False
              Caption = 'dxDockPanel5'
              CustomCaptionButtons.Buttons = <>
              TabsProperties.CustomButtons.Buttons = <>
              DockingType = 1
              OriginalWidth = 185
              OriginalHeight = 140
            end
          end
          object dxDockPanel6: TdxDockPanel
            Left = 0
            Top = 0
            Width = 185
            Height = 200
            AllowFloating = True
            AutoHide = False
            Caption = 'dxDockPanel6'
            CustomCaptionButtons.Buttons = <>
            TabsProperties.CustomButtons.Buttons = <>
            DockingType = 1
            OriginalWidth = 185
            OriginalHeight = 140
          end
        end
        object dxDockPanel7: TdxDockPanel
          Left = 0
          Top = 0
          Width = 185
          Height = 200
          AllowFloating = True
          AutoHide = False
          Caption = 'dxDockPanel7'
          CustomCaptionButtons.Buttons = <>
          TabsProperties.CustomButtons.Buttons = <>
          DockingType = 1
          OriginalWidth = 185
          OriginalHeight = 140
        end
      end
      object dxDockSite3: TdxDockSite
        Left = 697
        Top = 0
        Width = 300
        Height = 418
        Align = alRight
        DockingType = 5
        OriginalWidth = 300
        OriginalHeight = 418
        object dxLayoutDockSite4: TdxLayoutDockSite
          Left = 0
          Top = 185
          Width = 300
          Height = 233
          DockingType = 0
          OriginalWidth = 300
          OriginalHeight = 200
          object dxLayoutDockSite2: TdxLayoutDockSite
            Left = 0
            Top = 0
            Width = 300
            Height = 233
            DockingType = 0
            OriginalWidth = 300
            OriginalHeight = 200
          end
          object dxDockPanel2: TdxDockPanel
            Left = 0
            Top = 0
            Width = 300
            Height = 233
            AllowFloating = True
            AutoHide = False
            Caption = 'dxDockPanel2'
            CustomCaptionButtons.Buttons = <>
            TabsProperties.CustomButtons.Buttons = <>
            DockingType = 0
            OriginalWidth = 185
            OriginalHeight = 140
          end
        end
        object dxDockPanel3: TdxDockPanel
          Left = 0
          Top = 0
          Width = 300
          Height = 185
          AllowFloating = True
          AutoHide = False
          Caption = 'dxDockPanel3'
          CustomCaptionButtons.Buttons = <>
          TabsProperties.CustomButtons.Buttons = <>
          DockingType = 2
          OriginalWidth = 185
          OriginalHeight = 185
        end
      end
      object dxDockingManager1: TdxDockingManager
        Color = clBtnFace
        DefaultHorizContainerSiteProperties.CustomCaptionButtons.Buttons = <>
        DefaultHorizContainerSiteProperties.Dockable = True
        DefaultHorizContainerSiteProperties.ImageIndex = -1
        DefaultVertContainerSiteProperties.CustomCaptionButtons.Buttons = <>
        DefaultVertContainerSiteProperties.Dockable = True
        DefaultVertContainerSiteProperties.ImageIndex = -1
        DefaultTabContainerSiteProperties.CustomCaptionButtons.Buttons = <>
        DefaultTabContainerSiteProperties.Dockable = True
        DefaultTabContainerSiteProperties.ImageIndex = -1
        DefaultTabContainerSiteProperties.TabsProperties.CustomButtons.Buttons = <>
        DockZonesWidth = 40
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        Left = 496
        Top = 56
        PixelsPerInch = 96
      end
    
    You may tweak the DockZonesWidth and set it to a higher value. The VS2005 style has only an additional visual help, which is not bad. Please keep in mind, the example above has serveral docking areas: bottom, top left and a small area top right.
     
  3. RubberDuck

    RubberDuck is a Trusted Warez PosterRubberDuck Super Moderator Staff Member Super Moderator DEV Guild Translator

    Joined:
    Aug 7, 2008
    Messages:
    13,468
    Likes Received:
    35,304
    it works randomly. Seems like it depends how you grab the docking panel.
    If you make a wrong move the buttons stay lit and you get an outline on your screen.
    Closing the project doesn't help, I need to restart Delphi.
    Not sure what the deal it with that. but it's annoying
     

Share This Page