home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap09 / twopow / main.dfm / main.txt < prev   
Encoding:
Text File  |  1995-03-21  |  2.0 KB  |  100 lines
  1. object Form1: TForm1
  2.   Left = 107
  3.   Top = 124
  4.   ActiveControl = BCalc
  5.   AutoScroll = False
  6.   Caption = 'Max Power Supported is 2 ^ 30'
  7.   ClientHeight = 150
  8.   ClientWidth = 443
  9.   Color = clSilver
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   PixelsPerInch = 96
  16.   TextHeight = 16
  17.   object Label1: TLabel
  18.     Left = 96
  19.     Top = 56
  20.     Width = 154
  21.     Height = 20
  22.     AutoSize = False
  23.     Caption = 'Label1'
  24.     Color = clNavy
  25.     Font.Color = clYellow
  26.     Font.Height = -16
  27.     Font.Name = 'Times New Roman'
  28.     Font.Style = [fsBold]
  29.     ParentColor = False
  30.     ParentFont = False
  31.   end
  32.   object Label2: TLabel
  33.     Left = 8
  34.     Top = 8
  35.     Width = 177
  36.     Height = 20
  37.     AutoSize = False
  38.     Caption = 'Raise "2" to what power?'
  39.     Color = clSilver
  40.     Font.Color = clBlue
  41.     Font.Height = -16
  42.     Font.Name = 'Times New Roman'
  43.     Font.Style = [fsBold]
  44.     ParentColor = False
  45.     ParentFont = False
  46.   end
  47.   object Label3: TLabel
  48.     Left = 32
  49.     Top = 56
  50.     Width = 58
  51.     Height = 20
  52.     AutoSize = False
  53.     Caption = 'Answer'
  54.     Font.Color = clBlue
  55.     Font.Height = -16
  56.     Font.Name = 'Times New Roman'
  57.     Font.Style = [fsBold]
  58.     ParentFont = False
  59.   end
  60.   object BCalc: TButton
  61.     Left = 16
  62.     Top = 104
  63.     Width = 233
  64.     Height = 30
  65.     Caption = 'Calculate Result'
  66.     TabOrder = 0
  67.     OnClick = BCalcClick
  68.   end
  69.   object Edit1: TEdit
  70.     Left = 200
  71.     Top = 8
  72.     Width = 49
  73.     Height = 27
  74.     Color = clNavy
  75.     Ctl3D = True
  76.     Font.Color = clYellow
  77.     Font.Height = -16
  78.     Font.Name = 'Times New Roman'
  79.     Font.Style = [fsBold]
  80.     ParentCtl3D = False
  81.     ParentFont = False
  82.     TabOrder = 1
  83.     Text = 'Edit1'
  84.   end
  85.   object ListBox1: TListBox
  86.     Left = 264
  87.     Top = 8
  88.     Width = 164
  89.     Height = 130
  90.     Color = clNavy
  91.     Font.Color = clYellow
  92.     Font.Height = -13
  93.     Font.Name = 'System'
  94.     Font.Style = [fsBold]
  95.     ItemHeight = 16
  96.     ParentFont = False
  97.     TabOrder = 2
  98.   end
  99. end
  100.