home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / shape / main.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  3.9 KB  |  131 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 = {
  14.     0000010001002020100000000000E80200001600000028000000200000004000
  15.     0000010004000000000000020000000000000000000000000000000000000000
  16.     0000000080000080000000808000800000008000800080800000C0C0C0008080
  17.     80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
  18.     00000000000000000000000000000ECECC0FFFFFFFFF880000CCCC0C0FF00EEC
  19.     CCC08FFFF00000CCCCCCCC0C08800CCCCCC00FFF00CEECEECCCCC00C0F800CEC
  20.     ECCC088FF00CCECECCCCC0000F800EECCC000F8FF8000EECCCCCC0C088800CC0
  21.     00CE0F8FFFF00CCECCCCC0C0FFF00C0EEC00088FFFF800EECECC0000F88000CE
  22.     000FFFFFFFF8F0CCECCC0C0888F00E000FFFF8888FF8FF0CCECC000FFFF0000F
  23.     FF8888FF8FF888800CEC008FF880088FFF8FFFFF8FFFFFFF00C0008888F00000
  24.     0F8FF8888FFFF88880000FFFFFF00440000888FFFFFFF8FFFF000FFF88800C5C
  25.     0000FFF8888FF8FF88FFFFFF8FF00CC5C5500888FF8FF8888FFFFFFF8FF00CCC
  26.     5C450FFFFF8FFFFFFF8888FF88800CCCC5C440F8888FFFF8888FF8FFFFF00CCC
  27.     CCCC5088FFFFFFF8FFFFF8FFFFF00CCCCCC5C0FFF8888FF8FF00000FF8800CCC
  28.     CCCC408888FF8FF8804C445088800CECCCCCC08FFFFF8FFF0CC5C5C409500ECE
  29.     CCCC0F8FF8888FFF0CCCCC5405900EECECCC0F8888FFFFF80CCCCCC505500EEE
  30.     CCC0FFFFFFFFFFF80CECCCCC05500CCCC008FFFFFFFFF8850CCEECCC05500000
  31.     0888FFFFF888895950CECEC055500FFFFFFFFF88889595959500000595500FFF
  32.     F888889999599955595555555550088885959595959555559595959555500999
  33.     9999595559595555555555555550000000000000000000000000000000000000
  34.     0000000000000000000000000000000000000000000000000000000000000000
  35.     0000000000000000000000000000000000000000000000000000000000000000
  36.     0000000000000000000000000000000000000000000000000000000000000000
  37.     000000000000000000000000000000000000000000000000000000000000}
  38.   PixelsPerInch = 96
  39.   Scaled = False
  40.   TextHeight = 16
  41.   object Button1: TButton
  42.     Left = 16
  43.     Top = 112
  44.     Width = 137
  45.     Height = 38
  46.     Caption = 'Create Shape'
  47.     TabOrder = 0
  48.     OnClick = Button1Click
  49.   end
  50.   object GroupBox1: TGroupBox
  51.     Left = 216
  52.     Top = 104
  53.     Width = 142
  54.     Height = 148
  55.     Caption = 'GroupBox1'
  56.     Color = clNavy
  57.     ParentColor = False
  58.     TabOrder = 1
  59.     object CircleBtn: TRadioButton
  60.       Left = 16
  61.       Top = 40
  62.       Width = 106
  63.       Height = 20
  64.       Caption = 'CircleBtn'
  65.       Color = clNavy
  66.       Font.Color = clRed
  67.       Font.Height = -13
  68.       Font.Name = 'Times New Roman'
  69.       Font.Style = []
  70.       ParentColor = False
  71.       ParentFont = False
  72.       TabOrder = 0
  73.       OnClick = CircleBtnClick
  74.     end
  75.     object RectBtn: TRadioButton
  76.       Left = 16
  77.       Top = 80
  78.       Width = 114
  79.       Height = 20
  80.       Caption = 'Rectangle'
  81.       Color = clNavy
  82.       Font.Color = clRed
  83.       Font.Height = -13
  84.       Font.Name = 'Times New Roman'
  85.       Font.Style = []
  86.       ParentColor = False
  87.       ParentFont = False
  88.       TabOrder = 1
  89.       OnClick = RectBtnClick
  90.     end
  91.     object RoundRectBtn: TRadioButton
  92.       Left = 16
  93.       Top = 120
  94.       Width = 122
  95.       Height = 20
  96.       Caption = 'RoundRect'
  97.       Color = clNavy
  98.       Font.Color = clRed
  99.       Font.Height = -13
  100.       Font.Name = 'Times New Roman'
  101.       Font.Style = []
  102.       ParentColor = False
  103.       ParentFont = False
  104.       TabOrder = 2
  105.       OnClick = RoundRectBtnClick
  106.     end
  107.   end
  108.   object Button2: TButton
  109.     Left = 16
  110.     Top = 160
  111.     Width = 137
  112.     Height = 38
  113.     Caption = 'Interior Color'
  114.     TabOrder = 2
  115.     OnClick = Button2Click
  116.   end
  117.   object Button3: TButton
  118.     Left = 16
  119.     Top = 208
  120.     Width = 137
  121.     Height = 38
  122.     Caption = 'Border Color'
  123.     TabOrder = 3
  124.     OnClick = Button3Click
  125.   end
  126.   object ColorDialog1: TColorDialog
  127.     Left = 344
  128.     Top = 8
  129.   end
  130. end
  131.