Chip 1999 January/Chip_1999-01_cd.bin/zkuste/delphi/D1/CALCBOX.ZIP/DEMO/DRAGDROP.DFM/DRAGDROP.txt

Text File | 1996-01-22 | 6KB | 281 lines

object Form3: TForm3
  Left = 135
  Top = 113
  Width = 435
  Height = 300
  Caption = 'Drag and Drop'
  Color = clTeal
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 96
    Top = 16
    Width = 199
    Height = 16
    Caption = 'Drag from TCalculatorBox to ...'
  end
  object Label2: TLabel
    Left = 5
    Top = 120
    Width = 152
    Height = 16
    Caption = '... another TCalculatorBox'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 46
    Top = 136
    Width = 117
    Height = 16
    Caption = '.. and then drag to ...'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 296
    Top = 168
    Width = 96
    Height = 16
    Caption = '... an Edit control'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 296
    Top = 184
    Width = 120
    Height = 16
    Caption = '... and then drag to ...'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 168
    Top = 248
    Width = 129
    Height = 16
    Caption = '... to a TCalculatorBox'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Shape1: TShape
    Left = 267
    Top = 48
    Width = 64
    Height = 6
    Brush.Color = clBlue
  end
  object Shape2: TShape
    Left = 61
    Top = 48
    Width = 59
    Height = 6
    Brush.Color = clBlue
  end
  object Shape3: TShape
    Left = 164
    Top = 150
    Width = 67
    Height = 6
    Brush.Color = clBlue
  end
  object Shape4: TShape
    Left = 328
    Top = 48
    Width = 6
    Height = 81
    Brush.Color = clBlue
  end
  object Shape5: TShape
    Left = 56
    Top = 48
    Width = 6
    Height = 27
    Brush.Color = clBlue
  end
  object Shape6: TShape
    Left = 280
    Top = 163
    Width = 6
    Height = 33
    Brush.Color = clBlue
  end
  object Shape7: TShape
    Left = 160
    Top = 112
    Width = 6
    Height = 44
    Brush.Color = clBlue
  end
  object Image1: TImage
    Left = 51
    Top = 68
    Width = 17
    Height = 16
    Picture.Data = {<image000.bmp>}
  end
  object Image2: TImage
    Left = 232
    Top = 144
    Width = 16
    Height = 16
    Picture.Data = {<image001.bmp>}
  end
  object Image3: TImage
    Left = 275
    Top = 192
    Width = 17
    Height = 16
    Picture.Data = {<image002.bmp>}
  end
  object Image4: TImage
    Left = 324
    Top = 120
    Width = 17
    Height = 16
    Picture.Data = {<image003.bmp>}
  end
  object Label7: TLabel
    Left = 300
    Top = 248
    Width = 104
    Height = 16
    Caption = '.. and then up to ...'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Shape8: TShape
    Left = 8
    Top = 224
    Width = 175
    Height = 6
    Brush.Color = clBlue
  end
  object Shape9: TShape
    Left = 7
    Top = 104
    Width = 6
    Height = 125
    Brush.Color = clBlue
  end
  object Shape10: TShape
    Left = 7
    Top = 102
    Width = 15
    Height = 6
    Brush.Color = clBlue
  end
  object Image5: TImage
    Left = 22
    Top = 96
    Width = 16
    Height = 16
    Picture.Data = {<image004.bmp>}
  end
  object BitBtn1: TBitBtn
    Left = 56
    Top = 176
    Width = 89
    Height = 33
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 4
    Glyph.Data = {
      68010000424D6801000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888541F938888888888888888883146A2888888888888888888DB0D228888
      00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
      A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
      D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
      00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
      00DD8888800000D0088888BB00BB888888888800888888660066888888888880
      888888DD00DD888888888888888888BB00BB0000000000000000000000000000
      000000000000000000000000}
  end
  object CalculatorBox1: TCalculatorBox
    Left = 120
    Top = 40
    Width = 145
    Height = 24
    Hint = 'Click me!'
    Alignment = taRightJustify
    DragMode = dmAutomatic
    MaxLength = 14
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    DisplayText = '0'
  end
  object CalculatorBox2: TCalculatorBox
    Left = 40
    Top = 88
    Width = 153
    Height = 24
    Hint = 'Click me!'
    Alignment = taRightJustify
    DragMode = dmAutomatic
    MaxLength = 14
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnDragDrop = CalculatorBox2DragDrop
    OnDragOver = CalculatorBox2DragOver
    DisplayText = '0'
  end
  object CalculatorBox3: TCalculatorBox
    Left = 184
    Top = 216
    Width = 145
    Height = 24
    Hint = 'Click me!'
    Alignment = taRightJustify
    DragMode = dmAutomatic
    MaxLength = 14
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnDragDrop = CalculatorBox3DragDrop
    OnDragOver = CalculatorBox3DragOver
    DisplayText = '0'
  end
  object Edit1: TEdit
    Left = 248
    Top = 136
    Width = 137
    Height = 24
    DragMode = dmAutomatic
    TabOrder = 2
    Text = '0'
    OnChange = Edit1Change
    OnDragDrop = Edit1DragDrop
    OnDragOver = CalculatorBox2DragOver
    OnKeyPress = Edit1KeyPress
  end
end