home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
imagelib
/
ublob.df_
/
ublob.df
/
ublob.txt
Wrap
Text File
|
1995-11-19
|
24KB
|
840 lines
object BlobForm1: TBlobForm1
Left = 16
Top = 11
Width = 587
Height = 456
Caption = 'Uses JPSTAMP.DBF'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
OnCreate = FormCreate
OnDestroy = FormDestroy
TextHeight = 13
object Gauge1: TGauge
Left = 306
Top = 8
Width = 22
Height = 19
Kind = gkPie
ShowText = False
BorderStyle = bsNone
ForeColor = clRed
BackColor = clBtnFace
Progress = 0
end
object Label1: TLabel
Left = 384
Top = 81
Width = 28
Height = 13
Caption = 'Width'
end
object Label2: TLabel
Left = 384
Top = 103
Width = 31
Height = 13
Caption = 'Height'
end
object Label3: TLabel
Left = 384
Top = 124
Width = 60
Height = 13
Caption = 'Bits per Pixel'
end
object Label4: TLabel
Left = 384
Top = 147
Width = 32
Height = 13
Caption = 'Planes'
end
object Label5: TLabel
Left = 384
Top = 170
Width = 29
Height = 13
Caption = 'Colors'
end
object Label6: TLabel
Left = 384
Top = 190
Width = 68
Height = 13
Caption = 'Compression'
end
object Label7: TLabel
Left = 384
Top = 213
Width = 44
Height = 13
Caption = 'Blob Size'
end
object DBNavigator1: TDBNavigator
Left = 10
Top = 242
Width = 331
Height = 25
DataSource = DataSource1
TabOrder = 0
end
object AutodisplayCheckBox: TCheckBox
Left = 16
Top = 10
Width = 73
Height = 17
Caption = 'Autodisplay'
State = cbChecked
TabOrder = 1
OnClick = AutodisplayCheckBoxClick
end
object DBEdit1: TDBEdit
Left = 349
Top = 56
Width = 213
Height = 20
Color = clGray
DataField = 'TEXT1'
DataSource = DataSource1
MaxLength = 0
TabOrder = 2
end
object StretchCheckBox: TCheckBox
Left = 94
Top = 10
Width = 61
Height = 17
Caption = 'Stretch it'
TabOrder = 3
OnClick = StretchCheckBoxClick
end
object GroupBox1: TGroupBox
Left = 348
Top = 259
Width = 97
Height = 89
Caption = 'Resolution'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 6
object RadioButton1: TRadioButton
Left = 7
Top = 18
Width = 80
Height = 17
Caption = '16 Colors'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = ResolutionClick
end
object RadioButton2: TRadioButton
Left = 7
Top = 45
Width = 76
Height = 15
Caption = '256 Colors'
Checked = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
TabStop = True
OnClick = ResolutionClick
end
object RadioButton3: TRadioButton
Left = 7
Top = 69
Width = 80
Height = 17
Hint = '(Should have true color VGA Card)'
Caption = 'True Color'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = ResolutionClick
end
end
object CenterCheckBox: TCheckBox
Left = 164
Top = 8
Width = 73
Height = 19
Caption = 'Center it'
State = cbChecked
TabOrder = 7
OnClick = CenterCheckBoxClick
end
object Edit1: TEdit
Left = 349
Top = 35
Width = 213
Height = 20
Color = clNavy
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 11
end
object Edit2: TEdit
Left = 452
Top = 78
Width = 110
Height = 20
Color = clGray
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 13
end
object Edit3: TEdit
Left = 452
Top = 100
Width = 110
Height = 20
Color = clGray
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 14
end
object Edit4: TEdit
Left = 452
Top = 122
Width = 110
Height = 20
Color = clGray
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 15
end
object Edit5: TEdit
Left = 452
Top = 144
Width = 110
Height = 20
Color = clGray
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 16
end
object Edit6: TEdit
Left = 452
Top = 166
Width = 110
Height = 20
Color = clGray
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 17
end
object Edit7: TEdit
Left = 452
Top = 188
Width = 110
Height = 20
Color = clGray
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 18
end
object Edit8: TEdit
Left = 452
Top = 210
Width = 110
Height = 20
Color = clTeal
Font.Color = clAqua
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 19
end
object GroupBox2: TGroupBox
Left = 461
Top = 259
Width = 112
Height = 163
Caption = 'Blob Update To'
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 20
object RadioButton4: TRadioButton
Left = 8
Top = 23
Width = 80
Height = 17
Caption = 'A Jpeg Blob'
Checked = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
OnClick = RadioButton4Click
end
object RadioButton5: TRadioButton
Left = 8
Top = 51
Width = 80
Height = 17
Caption = 'A BMP Blob'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RadioButton5Click
end
object RadioButton6: TRadioButton
Left = 7
Top = 78
Width = 82
Height = 17
Caption = 'A GIF Blob'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = RadioButton6Click
end
object RadioButton7: TRadioButton
Left = 7
Top = 108
Width = 85
Height = 17
Caption = 'A PCX Blob'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = RadioButton7Click
end
object RadioButton9: TRadioButton
Left = 8
Top = 136
Width = 80
Height = 17
Caption = 'A PNG Blob'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = RadioButton9Click
end
end
object GroupBox3: TGroupBox
Left = 348
Top = 358
Width = 96
Height = 63
Caption = 'Jpg Save Options'
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 23
object Label8: TLabel
Left = 8
Top = 18
Width = 32
Height = 13
Caption = 'Quality'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 8
Top = 39
Width = 36
Height = 13
Caption = 'Smooth'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpinEdit1: TSpinEdit
Left = 47
Top = 14
Width = 45
Height = 22
Hint = 'Jpg update quality factor (0..100)'
Color = clNavy
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxValue = 100
MinValue = 0
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Value = 0
OnChange = SpinEdit1Change
end
object SpinEdit2: TSpinEdit
Left = 47
Top = 36
Width = 45
Height = 22
Hint = 'Jpg update Smoothing factor (0..100)'
Color = clNavy
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxValue = 100
MinValue = 0
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
Value = 0
OnChange = SpinEdit2Change
end
end
object BitBtn9: TBitBtn
Left = 9
Top = 405
Width = 166
Height = 24
Caption = 'Print'
TabOrder = 24
OnClick = BitBtn9Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
Style = bsNew
Spacing = 0
end
object BitBtn1: TBitBtn
Left = 9
Top = 290
Width = 166
Height = 25
Caption = 'Replace Blob from file'
TabOrder = 4
OnClick = BitBtn1Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005
555555777777777FF5555500000000805555557777777777FF555550BBBBB008
05555557F5FFF7777FF55550B000B030805555F7F777F7F777F550000000B033
005557777777F7F5775550BBBBB00033055557F5FFF777F57F5550B000B08033
055557F77757F7F57F5550BBBBB08033055557F55557F7F57F5550BBBBB00033
055557FFFFF777F57F5550000000703305555777777757F57F555550FFF77033
05555557FFFFF7FF7F55550000000003055555777777777F7F55550777777700
05555575FF5555777F55555003B3B3B00555555775FF55577FF55555500B3B3B
005555555775FFFF77F5555555700000005555555557777777550000}
Layout = blGlyphRight
NumGlyphs = 2
Style = bsNew
end
object BitBtn2: TBitBtn
Left = 9
Top = 266
Width = 166
Height = 25
Caption = 'Save blob to file as stored'
TabOrder = 5
OnClick = BitBtn2Click
NumGlyphs = 2
Style = bsNew
end
object BitBtn4: TBitBtn
Left = 174
Top = 290
Width = 167
Height = 25
Caption = 'Save Blob to ClipBoard'
TabOrder = 8
OnClick = BitBtn4Click
Glyph.Data = {
56070000424D5607000000000000360400002800000028000000140000000100
0800000000002003000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
0303030303030303030000000000000000000003030303030303030303F8F8F8
F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
0303030300FF070707070707FF0003030303030303030303F8FF030303030303
03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303}
NumGlyphs = 2
Style = bsNew
end
object BitBtn5: TBitBtn
Left = 174
Top = 266
Width = 167
Height = 25
Caption = 'Past Blob from clipboard'
Enabled = False
TabOrder = 9
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
93337777FF777777733370000000073333333777777773333333}
Layout = blGlyphRight
NumGlyphs = 2
Style = bsNew
end
object BitBtn6: TBitBtn
Left = 9
Top = 314
Width = 166
Height = 24
Caption = 'Append Blob from file'
TabOrder = 10
OnClick = BitBtn6Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000}
NumGlyphs = 2
Style = bsNew
end
object BitBtn7: TBitBtn
Left = 174
Top = 314
Width = 167
Height = 24
Caption = 'Save to file as BMP'
TabOrder = 21
OnClick = BitBtn7Click
Style = bsNew
end
object BitBtn8: TBitBtn
Left = 174
Top = 337
Width = 167
Height = 23
Caption = 'Save to file as Jpeg'
TabOrder = 22
OnClick = BitBtn8Click
Style = bsNew
end
object BitBtn12: TBitBtn
Left = 9
Top = 382
Width = 166
Height = 24
Caption = 'Order && About ImageLib'
TabOrder = 26
OnClick = BitBtn12Click
Style = bsNew
end
object BitBtn11: TBitBtn
Left = 9
Top = 337
Width = 166
Height = 23
Caption = 'Enlarge'
TabOrder = 25
OnClick = BitBtn11Click
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFFFFF333FFFFF3330000000033300000333377777777F337777
7FF330EFEFEF03307333703337F3FFFF7F37733377F330F4444E033333333033
37F777737F333333F7F33099999903333330703337F333337F33333777FF309F
FFF903333330000337F333337F33333777733099999903333330003337F3FF3F
7F333337773330F44E0003333330033337F7737773333337733330EFEF003333
3330333337FFFF7733333337333330000003333333333333377777733333FFFF
FFFF3333333333300000000333333F3333377777777F333303333330EFEFEF03
33337F333337F3FFFF7F333003333330F4444E0333377F333337F777737F3300
03333330EFEFEF0333777F333337F3FFFF7F300003333330F4444E0337777F33
3337F777737F330703333330EFEFEF03337773333337F3FF3F7F330333333330
F44E0003337FF333FF37F7737773330733370330EFEF00333377FFF77337FFFF
7733333000003330000003333337777733377777733333333333333333333333
33333333333333333333}
NumGlyphs = 2
Style = bsNew
end
object BitBtn3: TBitBtn
Left = 9
Top = 359
Width = 166
Height = 24
Caption = 'Open Table'
TabOrder = 12
OnClick = BitBtn3Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
C8807FF7777777777FF700000000000000007777777777777777333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
Style = bsNew
end
object BitBtn13: TBitBtn
Left = 349
Top = 6
Width = 97
Height = 25
Caption = 'New Scroll Msg'
TabOrder = 27
OnClick = BitBtn13Click
Style = bsNew
end
object DBMultiImage1: TPDBMultiImage
Left = 10
Top = 35
Width = 331
Height = 207
ImageReadRes = Color256
ImageWriteRes = Color256
JPegSaveQuality = 25
JPegSaveSmooth = 0
ImageDither = True
UpdateAsJPG = False
UpdateAsBMP = False
UpdateAsGIF = False
UpdateAsPCX = False
UpdateAsPNG = True
Color = clTeal
DataField = 'BLOBIMAGE'
DataSource = DataSource1
TabOrder = 28
end
object BitBtn14: TBitBtn
Left = 174
Top = 359
Width = 167
Height = 24
Caption = 'Save to file as GIF'
TabOrder = 29
OnClick = BitBtn14Click
Style = bsNew
end
object BitBtn15: TBitBtn
Left = 174
Top = 382
Width = 167
Height = 24
Caption = 'Save to file as PCX'
TabOrder = 30
OnClick = BitBtn15Click
Style = bsNew
end
object BitBtn16: TBitBtn
Left = 174
Top = 405
Width = 167
Height = 24
Caption = 'Save to file as PNG'
TabOrder = 31
OnClick = BitBtn16Click
Style = bsNew
end
object BitBtn10: TBitBtn
Left = 464
Top = 6
Width = 97
Height = 25
Caption = 'New Credit Msg'
TabOrder = 32
OnClick = BitBtn10Click
Style = bsNew
end
object Table1: TTable
DatabaseName = 'c:\imlib30'
TableName = 'JPSTAMP.DBF'
Left = 309
Top = 40
end
object DataSource1: TDataSource
DataSet = Table1
OnDataChange = DataSource1DataChange
Left = 280
Top = 40
end
object OpenDialog1: TOpenDialog
Filter =
'All Images|*.jpg;*.gif;*.pcx;*.bmp;*.scm;*.png;|BMP Images|*.bmp' +
'|GIF Images|*.gif|PCX Images|*.pcx|JPG Images|*.jpg|PNG Images|*' +
'.png|Scroll Messages|*.scm'
Left = 280
Top = 67
end
object SaveDialog1: TSaveDialog
Options = [ofOverwritePrompt]
Left = 251
Top = 67
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 309
Top = 67
end
object OpenDialog2: TOpenDialog
FileName = 'JPSTAMP.DBF'
Filter = 'sample dbf|JPSTAMP.DBF'
Left = 251
Top = 40
end
object SaveDialog2: TSaveDialog
DefaultExt = 'JPG'
Filter = 'Jpeg files|*.JPG'
Left = 251
Top = 94
end
object PrintDialog1: TPrintDialog
Left = 280
Top = 94
end
end