home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap23 / address2 / main.dfm / main.txt < prev   
Text File  |  1995-03-20  |  18KB  |  786 lines
  1. object frAddress: TfrAddress
  2.   Left = 108
  3.   Top = 21
  4.   ActiveControl = EFName
  5.   AutoScroll = False
  6.   Caption = 'Address Book'
  7.   ClientHeight = 418
  8.   ClientWidth = 524
  9.   Color = clSilver
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   Menu = MainMenu1
  16.   PixelsPerInch = 96
  17.   OnCreate = FormCreate
  18.   TextHeight = 16
  19.   object Panel1: TPanel
  20.     Left = 24
  21.     Top = 8
  22.     Width = 480
  23.     Height = 334
  24.     Color = clSilver
  25.     Font.Color = clYellow
  26.     Font.Height = -15
  27.     Font.Name = 'Times New Roman'
  28.     Font.Style = []
  29.     ParentFont = False
  30.     ParentShowHint = False
  31.     ShowHint = False
  32.     TabOrder = 0
  33.     object Label2: TLabel
  34.       Left = 49
  35.       Top = 8
  36.       Width = 24
  37.       Height = 15
  38.       Caption = 'First'
  39.       Font.Color = clBlue
  40.       Font.Height = -13
  41.       Font.Name = 'Times New Roman'
  42.       Font.Style = []
  43.       ParentFont = False
  44.     end
  45.     object Label3: TLabel
  46.       Left = 274
  47.       Top = 7
  48.       Width = 22
  49.       Height = 15
  50.       Caption = 'Last'
  51.       Font.Color = clBlue
  52.       Font.Height = -13
  53.       Font.Name = 'Times New Roman'
  54.       Font.Style = []
  55.       ParentFont = False
  56.     end
  57.     object Address1: TLabel
  58.       Left = 21
  59.       Top = 36
  60.       Width = 52
  61.       Height = 15
  62.       Caption = 'Address1'
  63.       Font.Color = clBlue
  64.       Font.Height = -13
  65.       Font.Name = 'Times New Roman'
  66.       Font.Style = []
  67.       ParentFont = False
  68.     end
  69.     object Address2: TLabel
  70.       Left = 21
  71.       Top = 64
  72.       Width = 52
  73.       Height = 15
  74.       Caption = 'Address2'
  75.       Font.Color = clBlue
  76.       Font.Height = -13
  77.       Font.Name = 'Times New Roman'
  78.       Font.Style = []
  79.       ParentFont = False
  80.     end
  81.     object City: TLabel
  82.       Left = 51
  83.       Top = 92
  84.       Width = 22
  85.       Height = 15
  86.       Caption = 'City'
  87.       Font.Color = clBlue
  88.       Font.Height = -13
  89.       Font.Name = 'Times New Roman'
  90.       Font.Style = []
  91.       ParentFont = False
  92.     end
  93.     object State: TLabel
  94.       Left = 270
  95.       Top = 92
  96.       Width = 26
  97.       Height = 15
  98.       Caption = 'State'
  99.       Font.Color = clBlue
  100.       Font.Height = -13
  101.       Font.Name = 'Times New Roman'
  102.       Font.Style = []
  103.       ParentFont = False
  104.     end
  105.     object Zip: TLabel
  106.       Left = 349
  107.       Top = 91
  108.       Width = 18
  109.       Height = 15
  110.       Caption = 'Zip'
  111.       Font.Color = clBlue
  112.       Font.Height = -13
  113.       Font.Name = 'Times New Roman'
  114.       Font.Style = []
  115.       ParentFont = False
  116.     end
  117.     object Company: TLabel
  118.       Left = 22
  119.       Top = 120
  120.       Width = 51
  121.       Height = 15
  122.       Caption = 'Company'
  123.       Font.Color = clBlue
  124.       Font.Height = -13
  125.       Font.Name = 'Times New Roman'
  126.       Font.Style = []
  127.       ParentFont = False
  128.     end
  129.     object HPhone: TLabel
  130.       Left = 5
  131.       Top = 148
  132.       Width = 68
  133.       Height = 15
  134.       Caption = 'Home Phone'
  135.       Font.Color = clBlue
  136.       Font.Height = -13
  137.       Font.Name = 'Times New Roman'
  138.       Font.Style = []
  139.       ParentFont = False
  140.     end
  141.     object WPhone: TLabel
  142.       Left = 6
  143.       Top = 176
  144.       Width = 67
  145.       Height = 15
  146.       Caption = 'Work Phone'
  147.       Font.Color = clBlue
  148.       Font.Height = -13
  149.       Font.Name = 'Times New Roman'
  150.       Font.Style = []
  151.       ParentFont = False
  152.     end
  153.     object Fax: TLabel
  154.       Left = 279
  155.       Top = 148
  156.       Width = 17
  157.       Height = 15
  158.       Caption = 'Fax'
  159.       Font.Color = clBlue
  160.       Font.Height = -13
  161.       Font.Name = 'Times New Roman'
  162.       Font.Style = []
  163.       ParentFont = False
  164.     end
  165.     object Comment: TLabel
  166.       Left = 23
  167.       Top = 260
  168.       Width = 50
  169.       Height = 15
  170.       Caption = 'Comment'
  171.       Font.Color = clBlue
  172.       Font.Height = -13
  173.       Font.Name = 'Times New Roman'
  174.       Font.Style = []
  175.       ParentFont = False
  176.     end
  177.     object EMail1: TLabel
  178.       Left = 36
  179.       Top = 204
  180.       Width = 37
  181.       Height = 15
  182.       Caption = 'EMail1'
  183.       Font.Color = clBlue
  184.       Font.Height = -13
  185.       Font.Name = 'Times New Roman'
  186.       Font.Style = []
  187.       ParentFont = False
  188.     end
  189.     object Category: TLabel
  190.       Left = 248
  191.       Top = 176
  192.       Width = 48
  193.       Height = 15
  194.       Caption = 'Category'
  195.       Font.Color = clBlue
  196.       Font.Height = -13
  197.       Font.Name = 'Times New Roman'
  198.       Font.Style = []
  199.       ParentFont = False
  200.     end
  201.     object EMail2: TLabel
  202.       Left = 34
  203.       Top = 232
  204.       Width = 40
  205.       Height = 15
  206.       Caption = 'EMail2'
  207.       Font.Color = clBlue
  208.       Font.Height = -13
  209.       Font.Name = 'Times New Roman'
  210.       Font.Style = []
  211.       ParentFont = False
  212.     end
  213.     object SpeedButton1: TSpeedButton
  214.       Left = 8
  215.       Top = 8
  216.       Width = 25
  217.       Height = 25
  218.       NumGlyphs = 2
  219.       OnClick = SpeedButton1Click
  220.     end
  221.     object ELName: TDBEdit
  222.       Tag = 1
  223.       Left = 301
  224.       Top = 8
  225.       Width = 169
  226.       Height = 25
  227.       Hint = 'Last Name'
  228.       Color = clNavy
  229.       DataField = 'LNAME'
  230.       DataSource = DataSource1
  231.       Font.Color = clYellow
  232.       Font.Height = -15
  233.       Font.Name = 'Times New Roman'
  234.       Font.Style = []
  235.       MaxLength = 0
  236.       ParentFont = False
  237.       PopupMenu = PopupMenu1
  238.       TabOrder = 1
  239.       OnEnter = EFNameEnter
  240.       OnMouseMove = EFNameMouseMove
  241.     end
  242.     object EFName: TDBEdit
  243.       Left = 77
  244.       Top = 8
  245.       Width = 169
  246.       Height = 25
  247.       Hint = 'First Name'
  248.       Color = clNavy
  249.       DataField = 'FNAME'
  250.       DataSource = DataSource1
  251.       Font.Color = clYellow
  252.       Font.Height = -15
  253.       Font.Name = 'Times New Roman'
  254.       Font.Style = []
  255.       MaxLength = 0
  256.       ParentFont = False
  257.       PopupMenu = PopupMenu1
  258.       TabOrder = 0
  259.       OnEnter = EFNameEnter
  260.       OnMouseMove = EFNameMouseMove
  261.     end
  262.     object EAddress1: TDBEdit
  263.       Left = 77
  264.       Top = 36
  265.       Width = 393
  266.       Height = 25
  267.       Hint = 'Address1'
  268.       Color = clNavy
  269.       DataField = 'ADDRESS1'
  270.       DataSource = DataSource1
  271.       Font.Color = clYellow
  272.       Font.Height = -15
  273.       Font.Name = 'Times New Roman'
  274.       Font.Style = []
  275.       MaxLength = 0
  276.       ParentFont = False
  277.       PopupMenu = PopupMenu1
  278.       TabOrder = 2
  279.       OnEnter = EFNameEnter
  280.       OnMouseMove = EFNameMouseMove
  281.     end
  282.     object EAddress2: TDBEdit
  283.       Tag = 3
  284.       Left = 77
  285.       Top = 64
  286.       Width = 393
  287.       Height = 25
  288.       Hint = 'Address2'
  289.       Color = clNavy
  290.       DataField = 'ADDRESS2'
  291.       DataSource = DataSource1
  292.       Font.Color = clYellow
  293.       Font.Height = -15
  294.       Font.Name = 'Times New Roman'
  295.       Font.Style = []
  296.       MaxLength = 0
  297.       ParentFont = False
  298.       PopupMenu = PopupMenu1
  299.       TabOrder = 3
  300.       OnEnter = EFNameEnter
  301.       OnMouseMove = EFNameMouseMove
  302.     end
  303.     object ECity: TDBEdit
  304.       Tag = 4
  305.       Left = 77
  306.       Top = 92
  307.       Width = 161
  308.       Height = 25
  309.       Hint = 'City'
  310.       Color = clNavy
  311.       DataField = 'CITY'
  312.       DataSource = DataSource1
  313.       Font.Color = clYellow
  314.       Font.Height = -15
  315.       Font.Name = 'Times New Roman'
  316.       Font.Style = []
  317.       MaxLength = 0
  318.       ParentFont = False
  319.       PopupMenu = PopupMenu1
  320.       TabOrder = 4
  321.       OnEnter = EFNameEnter
  322.       OnMouseMove = EFNameMouseMove
  323.     end
  324.     object EState: TDBEdit
  325.       Tag = 5
  326.       Left = 301
  327.       Top = 92
  328.       Width = 41
  329.       Height = 25
  330.       Hint = 'State'
  331.       Color = clNavy
  332.       DataField = 'STATE'
  333.       DataSource = DataSource1
  334.       Font.Color = clYellow
  335.       Font.Height = -15
  336.       Font.Name = 'Times New Roman'
  337.       Font.Style = []
  338.       MaxLength = 0
  339.       ParentFont = False
  340.       PopupMenu = PopupMenu1
  341.       TabOrder = 5
  342.       OnEnter = EFNameEnter
  343.       OnMouseMove = EFNameMouseMove
  344.     end
  345.     object EZip: TDBEdit
  346.       Tag = 6
  347.       Left = 373
  348.       Top = 92
  349.       Width = 97
  350.       Height = 25
  351.       Hint = 'Zip'
  352.       Color = clNavy
  353.       DataField = 'ZIP'
  354.       DataSource = DataSource1
  355.       Font.Color = clYellow
  356.       Font.Height = -15
  357.       Font.Name = 'Times New Roman'
  358.       Font.Style = []
  359.       MaxLength = 0
  360.       ParentFont = False
  361.       PopupMenu = PopupMenu1
  362.       TabOrder = 6
  363.       OnEnter = EFNameEnter
  364.       OnMouseMove = EFNameMouseMove
  365.     end
  366.     object ECompany: TDBEdit
  367.       Tag = 7
  368.       Left = 77
  369.       Top = 120
  370.       Width = 393
  371.       He