home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / DTOOLS30.ZIP / DEMODRAW.DFM / DEMODRAW.txt
Encoding:
Text File  |  1995-11-06  |  4.9 KB  |  216 lines
  1. object OwnerDrawControls: TOwnerDrawControls
  2.   Left = 200
  3.   Top = 99
  4.   BorderIcons = []
  5.   BorderStyle = bsDialog
  6.   Caption = 'Owner-draw Controls'
  7.   ClientHeight = 326
  8.   ClientWidth = 298
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   ShowHint = True
  16.   TextHeight = 16
  17.   object btnDraw: TODButton
  18.     Left = 182
  19.     Top = 260
  20.     Width = 89
  21.     Height = 33
  22.     Hint = 'Click me to make this window go away!'
  23.     Cancel = True
  24.     Caption = 'OK'
  25.     Default = True
  26.     Font.Color = clBlack
  27.     Font.Height = -13
  28.     Font.Name = 'System'
  29.     Font.Style = []
  30.     ModalResult = 1
  31.     ParentFont = False
  32.     TabOrder = 0
  33.     Color = clBtnFace
  34.     OnPaint = btnDrawPaint
  35.   end
  36.   object GroupBox1: TGroupBox
  37.     Left = 9
  38.     Top = 228
  39.     Width = 152
  40.     Height = 89
  41.     Caption = 'Balloon Hint Shape'
  42.     TabOrder = 1
  43.     object rbRoundRect: TODRadioButton
  44.       Left = 17
  45.       Top = 24
  46.       Width = 52
  47.       Height = 52
  48.       Hint = 'Determine the shape of the balloon hint window.'
  49.       Caption = 'RoundRect'
  50.       Checked = True
  51.       Color = clBtnFace
  52.       Font.Color = clBlack
  53.       Font.Height = -13
  54.       Font.Name = 'System'
  55.       Font.Style = []
  56.       GroupIndex = 1
  57.       ParentColor = False
  58.       ParentFont = False
  59.       TabOrder = 0
  60.       OnClick = rbShapeClick
  61.       OnPaint = rbShapePaint
  62.     end
  63.     object rbRect: TODRadioButton
  64.       Left = 81
  65.       Top = 24
  66.       Width = 52
  67.       Height = 52
  68.       Hint = 'Determine the shape of the balloon hint window.'
  69.       Caption = 'Rect'
  70.       Checked = False
  71.       Color = clBtnFace
  72.       Font.Color = clBlack
  73.       Font.Height = -13
  74.       Font.Name = 'System'
  75.       Font.Style = []
  76.       GroupIndex = 1
  77.       ParentColor = False
  78.       ParentFont = False
  79.       TabOrder = 1
  80.       OnClick = rbShapeClick
  81.       OnPaint = rbShapePaint
  82.     end
  83.   end
  84.   object GroupBox2: TGroupBox
  85.     Left = 7
  86.     Top = 2
  87.     Width = 282
  88.     Height = 123
  89.     Caption = 'Hint Type'
  90.     TabOrder = 2
  91.     object rbBalloon: TODRadioButton
  92.       Left = 9
  93.       Top = 23
  94.       Width = 124
  95.       Height = 52
  96.       Hint = 
  97.         'Selecting this choice will enable balloon style hints for the de' +
  98.         'mo.'
  99.       Caption = 'Balloon'
  100.       Checked = True
  101.       Color = clBtnFace
  102.       Font.Color = clBlack
  103.       Font.Height = -13
  104.       Font.Name = 'System'
  105.       Font.Style = []
  106.       GroupIndex = 2
  107.       ParentColor = False
  108.       ParentFont = False
  109.       TabOrder = 0
  110.       OnClick = rbTypeClick
  111.       OnPaint = rbTypePaint
  112.     end
  113.     object rbCustom: TODRadioButton
  114.       Left = 145
  115.       Top = 23
  116.       Width = 124
  117.       Height = 52
  118.       Hint = 
  119.         'Selecting this choice will enable custom '#39'tooltip'#39' style hints f' +
  120.         'or the demo.'
  121.       Caption = 'Balloon'
  122.       Checked = False
  123.       Color = clBtnFace
  124.       Font.Color = clBlack
  125.       Font.Height = -13
  126.       Font.Name = 'System'
  127.       Font.Style = []
  128.       GroupIndex = 2
  129.       ParentColor = False
  130.       ParentFont = False
  131.       TabOrder = 1
  132.       OnClick = rbTypeClick
  133.       OnPaint = rbTypePaint
  134.     end
  135.     object rbDefault: TODRadioButton
  136.       Left = 13
  137.       Top = 84
  138.       Width = 256
  139.       Height = 30
  140.       Hint = 
  141.         'Selecting this choice will enable the normal Delphi hints for th' +
  142.         'e demo.'
  143.       Caption = 'Balloon'
  144.       Checked = False
  145.       Color = clBtnFace
  146.       Font.Color = clBlack
  147.       Font.Height = -13
  148.       Font.Name = 'System'
  149.       Font.Style = []
  150.       GroupIndex = 2
  151.       ParentColor = False
  152.       ParentFont = False
  153.       TabOrder = 2
  154.       OnClick = rbTypeClick
  155.       OnPaint = rbTypePaint
  156.     end
  157.   end
  158.   object GroupBox3: TGroupBox
  159.     Left = 9
  160.     Top = 132
  161.     Width = 132
  162.     Height = 89
  163.     Caption = 'Hint Color'
  164.     TabOrder = 3
  165.     object cycHintColor: TODCycler
  166.       Left = 40
  167.       Top = 25
  168.       Width = 52
  169.       Height = 52
  170.       Hint = 
  171.         'Click here to cycle through the available choices for hint color' +
  172.         's.'
  173.       Caption = 'Hint Color'
  174.       Color = clBtnFace
  175.       Font.Color = clBlack
  176.       Font.Height = -13
  177.       Font.Name = 'System'
  178.       Font.Style = []
  179.       Max = 2
  180.       ParentColor = False
  181.       ParentFont = False
  182.       TabOrder = 0
  183.       OnClick = cycHintColorClick
  184.       OnPaint = cycHintColorPaint
  185.     end
  186.   end
  187.   object GroupBox4: TGroupBox
  188.     Left = 152
  189.     Top = 132
  190.     Width = 137
  191.     Height = 89
  192.     Caption = 'Enable Hints'
  193.     TabOrder = 4
  194.     object chkEnableHints: TODCheckBox
  195.       Left = 45
  196.       Top = 25
  197.       Width = 52
  198.       Height = 52
  199.       Hint = 'Enable/disable hints for the demo.'
  200.       Caption = 'Enable Hints'
  201.       Checked = True
  202.       Color = clBtnFace
  203.       Font.Color = clBlack
  204.       Font.Height = -13
  205.       Font.Name = 'System'
  206.       Font.Style = []
  207.       ParentColor = False
  208.       ParentFont = False
  209.       State = cbChecked
  210.       TabOrder = 0
  211.       OnClick = chkEnableHintsClick
  212.       OnPaint = chkEnableHintsPaint
  213.     end
  214.   end
  215. end
  216.