home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap34 / myexcept / main.txt < prev    next >
Text File  |  1995-03-20  |  3KB  |  94 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 99
  4.   AutoScroll = False
  5.   Caption = 'My Exception Program'
  6.   ClientHeight = 172
  7.   ClientWidth = 365
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 16
  14.   object Label1: TLabel
  15.     Left = 16
  16.     Top = 8
  17.     Width = 201
  18.     Height = 16
  19.     Caption = 'Enter the passed tens of occur:'
  20.   end
  21.   object ERead: TBitBtn
  22.     Left = 72
  23.     Top = 88
  24.     Width = 217
  25.     Height = 33
  26.     Caption = 'Raise EReadError'
  27.     TabOrder = 0
  28.     OnClick = RaiseEReadClick
  29.     Glyph.Data = {
  30.       76010000424D7601000000000000760000002800000020000000100000000100
  31.       04000000000000010000130B0000130B00000000000000000000000000000000
  32.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  33.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  34.       3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
  35.       33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
  36.       993337777F777F3377F3393999707333993337F77737333337FF993399933333
  37.       399377F3777FF333377F993339903333399377F33737FF33377F993333707333
  38.       399377F333377FF3377F993333101933399377F333777FFF377F993333000993
  39.       399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
  40.       99333773FF777F777733339993707339933333773FF7FFF77333333999999999
  41.       3333333777333777333333333999993333333333377777333333}
  42.     NumGlyphs = 2
  43.   end
  44.   object EReadAddr: TBitBtn
  45.     Left = 72
  46.     Top = 128
  47.     Width = 217
  48.     Height = 33
  49.     Caption = 'Raise ERead + Address'
  50.     TabOrder = 1
  51.     OnClick = EReadAddrClick
  52.     Glyph.Data = {
  53.       F8000000424DF800000000000000760000002800000010000000100000000100
  54.       04000000000000000000120B0000120B00000000000000000000000000000000
  55.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  56.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000555
  57.       55555555008880055555555088CCC880555555508C888C8055555508CCCCCCC8
  58.       05555508CECCCCC805555508CEECCCC8055555508C444C805555555088FFF880
  59.       5555555508FFF80555555555508F805555555555508F805555555555508F8055
  60.       55555555508F80555555555508888805555555555000005555550000}
  61.   end
  62.   object DelphiRaise: TBitBtn
  63.     Left = 72
  64.     Top = 48
  65.     Width = 217
  66.     Height = 33
  67.     Caption = 'Raise Delphi Exception'
  68.     TabOrder = 2
  69.     OnClick = DelphiRaiseClick
  70.     Glyph.Data = {
  71.       78010000424D7801000000000000760000002800000020000000100000000100
  72.       04000000000000000000120B0000120B00000000000000000000000000000000
  73.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  74.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
  75.       3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
  76.       33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
  77.       33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
  78.       333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
  79.       03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
  80.       33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
  81.       0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
  82.       3333333337FFF7F33333333330000033333333333777773333330000}
  83.     NumGlyphs = 2
  84.   end
  85.   object Edit1: TEdit
  86.     Left = 232
  87.     Top = 8
  88.     Width = 121
  89.     Height = 24
  90.     TabOrder = 3
  91.     Text = 'occured'
  92.   end
  93. end
  94.