home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / shape / main.dfm / main.txt < prev   
Encoding:
Text File  |  1995-03-21  |  2.1 KB  |  107 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 100
  4.   Width = 386
  5.   Height = 293
  6.   ActiveControl = Button1
  7.   Caption = 'Shape Demo Precursor'
  8.   Color = clNavy
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   Icon.Data = {<image000.ico>}
  14.   PixelsPerInch = 96
  15.   Scaled = False
  16.   TextHeight = 16
  17.   object Button1: TButton
  18.     Left = 16
  19.     Top = 112
  20.     Width = 137
  21.     Height = 38
  22.     Caption = 'Create Shape'
  23.     TabOrder = 0
  24.     OnClick = Button1Click
  25.   end
  26.   object GroupBox1: TGroupBox
  27.     Left = 216
  28.     Top = 104
  29.     Width = 142
  30.     Height = 148
  31.     Caption = 'GroupBox1'
  32.     Color = clNavy
  33.     ParentColor = False
  34.     TabOrder = 1
  35.     object CircleBtn: TRadioButton
  36.       Left = 16
  37.       Top = 40
  38.       Width = 106
  39.       Height = 20
  40.       Caption = 'CircleBtn'
  41.       Color = clNavy
  42.       Font.Color = clRed
  43.       Font.Height = -13
  44.       Font.Name = 'Times New Roman'
  45.       Font.Style = []
  46.       ParentColor = False
  47.       ParentFont = False
  48.       TabOrder = 0
  49.       OnClick = CircleBtnClick
  50.     end
  51.     object RectBtn: TRadioButton
  52.       Left = 16
  53.       Top = 80
  54.       Width = 114
  55.       Height = 20
  56.       Caption = 'Rectangle'
  57.       Color = clNavy
  58.       Font.Color = clRed
  59.       Font.Height = -13
  60.       Font.Name = 'Times New Roman'
  61.       Font.Style = []
  62.       ParentColor = False
  63.       ParentFont = False
  64.       TabOrder = 1
  65.       OnClick = RectBtnClick
  66.     end
  67.     object RoundRectBtn: TRadioButton
  68.       Left = 16
  69.       Top = 120
  70.       Width = 122
  71.       Height = 20
  72.       Caption = 'RoundRect'
  73.       Color = clNavy
  74.       Font.Color = clRed
  75.       Font.Height = -13
  76.       Font.Name = 'Times New Roman'
  77.       Font.Style = []
  78.       ParentColor = False
  79.       ParentFont = False
  80.       TabOrder = 2
  81.       OnClick = RoundRectBtnClick
  82.     end
  83.   end
  84.   object Button2: TButton
  85.     Left = 16
  86.     Top = 160
  87.     Width = 137
  88.     Height = 38
  89.     Caption = 'Interior Color'
  90.     TabOrder = 2
  91.     OnClick = Button2Click
  92.   end
  93.   object Button3: TButton
  94.     Left = 16
  95.     Top = 208
  96.     Width = 137
  97.     Height = 38
  98.     Caption = 'Border Color'
  99.     TabOrder = 3
  100.     OnClick = Button3Click
  101.   end
  102.   object ColorDialog1: TColorDialog
  103.     Left = 344
  104.     Top = 8
  105.   end
  106. end
  107.