home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX07.ZIP / SHAPEDEM / MAIN.DFM / MAIN.txt
Encoding:
Text File  |  1995-10-17  |  1.8 KB  |  96 lines
  1. object Form1: TForm1
  2.   Left = 233
  3.   Top = 107
  4.   Width = 433
  5.   Height = 325
  6.   ActiveControl = ComboBox1
  7.   Caption = 'Shape Demo'
  8.   Font.Color = clWindowText
  9.   Font.Height = -21
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   TextHeight = 20
  14.   object Shape1: TShape
  15.     Left = 8
  16.     Top = 8
  17.     Width = 41
  18.     Height = 33
  19.     Brush.Color = clGreen
  20.     Pen.Color = clAqua
  21.     Shape = stCircle
  22.     IsControl = True
  23.   end
  24.   object ComboBox1: TComboBox
  25.     Left = 273
  26.     Top = 258
  27.     Width = 145
  28.     Height = 28
  29.     ItemHeight = 20
  30.     Items.Strings = (
  31.       'stRectangle'
  32.       'stSquare'
  33.       'stRoundRect'
  34.       'stRoundSquare'
  35.       'stEllipse'
  36.       'stCircle')
  37.     TabOrder = 0
  38.     Text = 'ctEllipse'
  39.     OnClick = ComboBox1Click
  40.     IsControl = True
  41.   end
  42.   object ShapeColor: TButton
  43.     Left = 6
  44.     Top = 256
  45.     Width = 120
  46.     Height = 33
  47.     Caption = '∩┐╜∩┐╜∩┐╜∩┐╜ ∩┐╜∩┐╜∩┐╜∩┐╜∩┐╜∩┐╜'
  48.     Font.Color = clBlack
  49.     Font.Height = -17
  50.     Font.Name = 'Arial'
  51.     Font.Style = []
  52.     ParentFont = False
  53.     TabOrder = 1
  54.     OnClick = ShapeColorClick
  55.     IsControl = True
  56.   end
  57.   object FormColor: TButton
  58.     Left = 133
  59.     Top = 256
  60.     Width = 116
  61.     Height = 33
  62.     Caption = '∩┐╜∩┐╜∩┐╜∩┐╜ ∩┐╜∩┐╜∩┐╜∩┐╜∩┐╜'
  63.     Font.Color = clBlack
  64.     Font.Height = -17
  65.     Font.Name = 'Arial'
  66.     Font.Style = []
  67.     ParentFont = False
  68.     TabOrder = 2
  69.     OnClick = FormColorClick
  70.     IsControl = True
  71.   end
  72.   object ScrollBar1: TScrollBar
  73.     Left = 8
  74.     Top = 232
  75.     Width = 392
  76.     Height = 17
  77.     TabOrder = 3
  78.     OnChange = ScrollBar1Change
  79.     IsControl = True
  80.   end
  81.   object ScrollBar2: TScrollBar
  82.     Left = 400
  83.     Top = 7
  84.     Width = 17
  85.     Height = 241
  86.     Kind = sbVertical
  87.     TabOrder = 4
  88.     OnChange = ScrollBar2Change
  89.     IsControl = True
  90.   end
  91.   object ColorDialog1: TColorDialog
  92.     Left = 363
  93.     Top = 7
  94.   end
  95. end
  96.