Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/zcd30120.exe/Demo/DRAGDRP1.DFM/DRAGDRP1.txt

Text File | 1996-02-13 | 5KB | 286 lines

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