home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap11 / realstr2 / main.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  4.2 KB  |  152 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 105
  4.   ActiveControl = Edit1
  5.   AutoScroll = False
  6.   Caption = 'Reals and Strings 2'
  7.   ClientHeight = 156
  8.   ClientWidth = 359
  9.   Color = 4194304
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Icon.Data = {
  15.     0000010001002020100000000000E80200001600000028000000200000004000
  16.     0000010004000000000000020000000000000000000000000000000000000000
  17.     0000000080000080000000808000800000008000800080800000C0C0C0008080
  18.     80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
  19.     00000000000000000000000000000ECECC0FFFFFFFFF770000CCCC0C0FF00EEC
  20.     CCC07FFFF00000CCCCCCCC0C07700CCCCCC00FFF00CEECEECCCCC00C0F700CEC
  21.     ECCC077FF00CCECECCCCC0000F700EECCC000F7FF7000EECCCCCC0C077700CC0
  22.     00CE0F7FFFF00CCECCCCC0C0FFF00C0EEC00077FFFF700EECECC0000F77000CE
  23.     000FFFFFFFF7F0CCECCC0C0777F00E000FFFF7777FF7FF0CCECC000FFFF0000F
  24.     FF7777FF7FF777700CEC007FF770077FFF7FFFFF7FFFFFFF00C0007777F00000
  25.     0F7FF7777FFFF77770000FFFFFF00440000777FFFFFFF7FFFF000FFF77700C5C
  26.     0000FFF7777FF7FF77FFFFFF7FF00CC5C5500777FF7FF7777FFFFFFF7FF00CCC
  27.     5C450FFFFF7FFFFFFF7777FF77700CCCC5C440F7777FFFF7777FF7FFFFF00CCC
  28.     CCCC5077FFFFFFF7FFFFF7FFFFF00CCCCCC5C0FFF7777FF7FF00000FF8800CCC
  29.     CCCC407777FF7FF7704C445088800CECCCCCC07FFFFF7FFF0CC5C5C409500ECE
  30.     CCCC0F7FF7777FFF0CCCCC5405900EECECCC0F7777FFFFF70CCCCCC505500EEE
  31.     CCC0FFFFFFFFFFF80CECCCCC05500CCCC007FFFFFFFFF8850CCEECCC05500000
  32.     0777FFFFF888895950CECEC055500FFFFFFFFF88889595959500000595500FFF
  33.     F888889999599955595555555550088885959595959555559595959555500999
  34.     9999595559595555555555555550000000000000000000000000000000000000
  35.     0000000000000000000000000000000000000000000000000000000000000000
  36.     0000000000000000000000000000000000000000000000000000000000000000
  37.     0000000000000000000000000000000000000000000000000000000000000000
  38.     000000000000000000000000000000000000000000000000000000000000}
  39.   PixelsPerInch = 96
  40.   Visible = True
  41.   TextHeight = 16
  42.   object Label1: TLabel
  43.     Left = 18
  44.     Top = 6
  45.     Width = 105
  46.     Height = 28
  47.     AutoSize = False
  48.     Caption = 'Enter a number'
  49.     Font.Color = clTeal
  50.     Font.Height = -13
  51.     Font.Name = 'System'
  52.     Font.Style = [fsBold]
  53.     ParentFont = False
  54.   end
  55.   object Label2: TLabel
  56.     Left = 42
  57.     Top = 44
  58.     Width = 81
  59.     Height = 28
  60.     AutoSize = False
  61.     Caption = 'The Square'
  62.     Font.Color = clTeal
  63.     Font.Height = -13
  64.     Font.Name = 'System'
  65.     Font.Style = [fsBold]
  66.     ParentFont = False
  67.   end
  68.   object Label4: TLabel
  69.     Left = 10
  70.     Top = 82
  71.     Width = 113
  72.     Height = 25
  73.     AutoSize = False
  74.     Caption = 'The Square Root'
  75.     Font.Color = clTeal
  76.     Font.Height = -13
  77.     Font.Name = 'System'
  78.     Font.Style = [fsBold]
  79.     ParentFont = False
  80.   end
  81.   object Edit1: TEdit
  82.     Left = 125
  83.     Top = 6
  84.     Width = 220
  85.     Height = 25
  86.     Color = clNavy
  87.     Font.Color = clYellow
  88.     Font.Height = -11
  89.     Font.Name = 'System'
  90.     Font.Style = [fsBold]
  91.     ParentFont = False
  92.     TabOrder = 0
  93.     Text = 'Edit1'
  94.   end
  95.   object BCalc: TButton
  96.     Left = 94
  97.     Top = 120
  98.     Width = 170
  99.     Height = 25
  100.     Caption = '&Calc'
  101.     TabOrder = 1
  102.     OnClick = BCalcClick
  103.   end
  104.   object Panel1: TPanel
  105.     Left = 125
  106.     Top = 44
  107.     Width = 220
  108.     Height = 25
  109.     BevelInner = bvLowered
  110.     Caption = 'Panel1'
  111.     TabOrder = 2
  112.     object LSquare: TLabel
  113.       Left = 2
  114.       Top = 2
  115.       Width = 215
  116.       Height = 21
  117.       AutoSize = False
  118.       Caption = 'LSquare'
  119.       Color = clNavy
  120.       Font.Color = clYellow
  121.       Font.Height = -13
  122.       Font.Name = 'System'
  123.       Font.Style = [fsBold]
  124.       ParentColor = False
  125.       ParentFont = False
  126.     end
  127.   end
  128.   object Panel2: TPanel
  129.     Left = 125
  130.     Top = 82
  131.     Width = 220
  132.     Height = 25
  133.     Caption = 'Panel2'
  134.     TabOrder = 3
  135.     object LSquareRoot: TLabel
  136.       Left = 2
  137.       Top = 2
  138.       Width = 215
  139.       Height = 21
  140.       AutoSize = False
  141.       Caption = 'LSquareRoot'
  142.       Color = clNavy
  143.       Font.Color = clYellow
  144.       Font.Height = -13
  145.       Font.Name = 'System'
  146.       Font.Style = [fsBold]
  147.       ParentColor = False
  148.       ParentFont = False
  149.     end
  150.   end
  151. end
  152.