home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 325
- Top = 267
- Width = 375
- Height = 201
- Caption = 'File checksum'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 16
- object Label1: TLabel
- Left = 96
- Top = 64
- Width = 38
- Height = 16
- Caption = 'Found'
- end
- object Label2: TLabel
- Left = 64
- Top = 93
- Width = 64
- Height = 16
- Caption = 'Calculated'
- end
- object SpeedButton1: TSpeedButton
- Left = 320
- Top = 24
- Width = 25
- Height = 25
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555555555555555
- 555555555555555555555555555555555555555FFFFFFFFFF555550000000000
- 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
- B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
- 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
- 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
- 55555575FFF75555555555700007555555555557777555555555555555555555
- 55555555555555555555555555555555555555555555555555550000}
- NumGlyphs = 2
- OnClick = SpeedButton1Click
- end
- object Button1: TButton
- Left = 32
- Top = 120
- Width = 137
- Height = 41
- Caption = 'Get checksum'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Edit1: TEdit
- Left = 24
- Top = 24
- Width = 297
- Height = 24
- TabOrder = 1
- end
- object Button2: TButton
- Left = 184
- Top = 120
- Width = 137
- Height = 41
- Caption = 'Write checksum'
- TabOrder = 2
- OnClick = Button2Click
- end
- object Edit2: TEdit
- Left = 144
- Top = 88
- Width = 121
- Height = 24
- TabOrder = 3
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Left = 288
- Top = 64
- end
- object FileCheckSumComp1: TFileCheckSumComp
- GUID = '{C7353A60-3F56-11D6-99B9-8400C75D4F1E}'
- CheckOnStart = True
- Left = 168
- Top = 56
- end
- end
-