object Form1: TForm1 Left = 200 Top = 96 BorderStyle = bsDialog Caption = 'Test drag and drop on TzDivider-components' ClientHeight = 273 ClientWidth = 427 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Scaled = False OnCreate = FormCreate TextHeight = 13 object Label1: TLabel Left = 165 Top = 242 Width = 97 Height = 16 Alignment = taCenter AutoSize = False Caption = 'Drop here' end object Label2: TLabel Left = 165 Top = 194 Width = 97 Height = 16 Alignment = taCenter AutoSize = False Caption = 'Drop here' end object zDivider1: TzDivider Tag = 2 Left = 0 Top = 224 Width = 427 height = 49 OnDragDrop = zDivider1DragDrop OnDragOver = zDivider2DragOver end object zDivider2: TzDivider Tag = 1 Left = 0 Top = 176 Width = 427 OnDragDrop = zDivider1DragDrop OnDragOver = zDivider2DragOver end object zShapeBtn1: TzShapeBtn Left = 8 Top = 8 DragMode = dmAutomatic Color = clLime ParentColor = False end object zShapeBtn2: TzShapeBtn Left = 8 Top = 40 DragMode = dmAutomatic Color = clFuchsia ParentColor = False end object zShapeBtn3: TzShapeBtn Left = 40 Top = 8 DragMode = dmAutomatic Shape = sbCircle Color = clLime ParentColor = False end object zShapeBtn4: TzShapeBtn Left = 40 Top = 40 DragMode = dmAutomatic Shape = sbCircle Color = clFuchsia ParentColor = False end object zShapeBtn5: TzShapeBtn Left = 72 Top = 8 DragMode = dmAutomatic AcceleratorKey = '+' Shape = sbPlus Color = clLime ParentColor = False end object zShapeBtn6: TzShapeBtn Left = 72 Top = 40 DragMode = dmAutomatic AcceleratorKey = '+' Shape = sbPlus Color = clFuchsia ParentColor = False end object zShapeBtn7: TzShapeBtn Left = 104 Top = 8 DragMode = dmAutomatic AcceleratorKey = '-' Shape = sbMinus Color = clLime ParentColor = False end object zShapeBtn8: TzShapeBtn Left = 104 Top = 40 DragMode = dmAutomatic AcceleratorKey = '-' Shape = sbMinus Color = clFuchsia ParentColor = False end object Label3: TLabel Left = 8 Top = 72 Width = 111 Height = 13 Caption = 'Drag any of the buttons' end object Label4: TLabel Left = 184 Top = 32 Width = 75 Height = 13 Caption = 'Number of rects' end object Label5: TLabel Left = 184 Top = 48 Width = 82 Height = 13 Caption = 'Number of circles' end object Label6: TLabel Left = 184 Top = 64 Width = 58 Height = 13 Caption = 'Number of +' end object Label7: TLabel Left = 184 Top = 80 Width = 55 Height = 13 Caption = 'Number of -' end object Label8: TLabel Left = 184 Top = 136 Width = 74 Height = 13 Caption = 'Number of Lime' end object Label9: TLabel Left = 184 Top = 152 Width = 92 Height = 13 Caption = 'Number of Fuchsia ' end object Label10: TLabel Left = 304 Top = 32 Width = 38 Height = 13 Caption = 'Label10' end object Label11: TLabel Left = 304 Top = 48 Width = 38 Height = 13 Caption = 'Label11' end object Label12: TLabel Left = 304 Top = 64 Width = 38 Height = 13 Caption = 'Label12' end object Label13: TLabel Left = 304 Top = 80 Width = 38 Height = 13 Caption = 'Label13' end object Label14: TLabel Left = 304 Top = 136 Width = 38 Height = 13 Caption = 'Label14' end object Label15: TLabel Left = 304 Top = 152 Width = 38 Height = 13 Caption = 'Label15' end object Label16: TLabel Left = 360 Top = 32 Width = 38 Height = 13 Caption = 'Label16' end object Label17: TLabel Left = 360 Top = 48 Width = 38 Height = 13 Caption = 'Label17' end object Label18: TLabel Left = 360 Top = 64 Width = 38 Height = 13 Caption = 'Label18' end object Label19: TLabel Left = 360 Top = 80 Width = 38 Height = 13 Caption = 'Label19' end object Label20: TLabel Left = 360 Top = 136 Width = 38 Height = 13 Caption = 'Label20' end object Label21: TLabel Left = 360 Top = 152 Width = 38 Height = 13 Caption = 'Label21' end object Label22: TLabel Left = 304 Top = 8 Width = 28 Height = 13 Caption = 'In first' end object Label23: TLabel Left = 360 Top = 8 Width = 47 Height = 13 Caption = 'In second' end object BitBtn1: TBitBtn Left = 8 Top = 136 Width = 89 Height = 33 TabOrder = 0 Kind = bkClose Style = bsNew end object zColorBtn1: TzColorBtn Left = 8 Top = 102 Width = 411 Height = 25 DragMode = dmAutomatic Caption = 'Drag and drop this to clear counters' Color = clYellow ParentColor = False TabOrder = 1 OnClick = zColorBtn1Click end end