312 lines
7.0 KiB
Plaintext
312 lines
7.0 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 157
|
|
Top = 122
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsDialog
|
|
Caption = 'TImageEnDBVect Demo - www.ImageEn.com'
|
|
ClientHeight = 509
|
|
ClientWidth = 744
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object DBGrid1: TDBGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 140
|
|
Height = 468
|
|
Align = alLeft
|
|
Color = clBtnFace
|
|
DataSource = DataSource1
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'Tahoma'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Name'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 468
|
|
Width = 744
|
|
Height = 41
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object New: TButton
|
|
Left = 16
|
|
Top = 8
|
|
Width = 89
|
|
Height = 25
|
|
Caption = 'Append'
|
|
TabOrder = 0
|
|
OnClick = NewClick
|
|
end
|
|
object Del: TButton
|
|
Left = 336
|
|
Top = 8
|
|
Width = 89
|
|
Height = 25
|
|
Caption = 'Delete/Cancel'
|
|
TabOrder = 1
|
|
OnClick = DelClick
|
|
end
|
|
object Button1: TButton
|
|
Left = 240
|
|
Top = 8
|
|
Width = 89
|
|
Height = 25
|
|
Caption = 'Post'
|
|
TabOrder = 2
|
|
OnClick = Button1Click
|
|
end
|
|
object Button4: TButton
|
|
Left = 112
|
|
Top = 8
|
|
Width = 89
|
|
Height = 25
|
|
Caption = 'Modify'
|
|
TabOrder = 3
|
|
OnClick = Button4Click
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 140
|
|
Top = 0
|
|
Width = 604
|
|
Height = 468
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel1'
|
|
TabOrder = 2
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 342
|
|
Width = 604
|
|
Height = 126
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Zoom: TLabel
|
|
Left = 201
|
|
Top = 10
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Zoom'
|
|
end
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 32
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Name'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 64
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Put as'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Top = 96
|
|
Width = 71
|
|
Height = 13
|
|
Caption = 'Stored format:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 80
|
|
Top = 96
|
|
Width = 8
|
|
Height = 13
|
|
Caption = '--'
|
|
end
|
|
object Button2: TButton
|
|
Left = 8
|
|
Top = 6
|
|
Width = 71
|
|
Height = 19
|
|
Caption = 'Import...'
|
|
TabOrder = 0
|
|
OnClick = Button2Click
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 232
|
|
Top = 8
|
|
Width = 249
|
|
Height = 19
|
|
Max = 3000
|
|
Frequency = 100
|
|
Position = 100
|
|
TabOrder = 1
|
|
OnChange = TrackBar1Change
|
|
end
|
|
object DBEdit1: TDBEdit
|
|
Left = 49
|
|
Top = 30
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'Name'
|
|
DataSource = DataSource1
|
|
TabOrder = 2
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 48
|
|
Top = 61
|
|
Width = 89
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
OnChange = ComboBox1Change
|
|
Items.Strings = (
|
|
'Bmp'
|
|
'Jpeg'
|
|
'Gif'
|
|
'Pcx'
|
|
'Tiff'
|
|
'Tiff with Annot'
|
|
'Png'
|
|
'Tga'
|
|
'Pxm'
|
|
'Unknown')
|
|
end
|
|
object Button8: TButton
|
|
Left = 144
|
|
Top = 62
|
|
Width = 19
|
|
Height = 19
|
|
Caption = '...'
|
|
TabOrder = 4
|
|
OnClick = Button8Click
|
|
end
|
|
end
|
|
object ImageEnDBVect1: TImageEnDBVect
|
|
Left = 0
|
|
Top = 41
|
|
Width = 604
|
|
Height = 301
|
|
Background = clBtnFace
|
|
ParentCtl3D = False
|
|
MouseInteract = [miZoom, miSelect]
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
DataField = 'Photo'
|
|
DataSource = DataSource1
|
|
DataFieldImageFormat = ifJpeg
|
|
IOPreviewsParams = [ioppDefaultLockPreview]
|
|
PreviewFont.Charset = DEFAULT_CHARSET
|
|
PreviewFont.Color = clWindowText
|
|
PreviewFont.Height = -11
|
|
PreviewFont.Name = 'Tahoma'
|
|
PreviewFont.Style = []
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 604
|
|
Height = 41
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object Label3: TLabel
|
|
Left = 336
|
|
Top = 11
|
|
Width = 254
|
|
Height = 13
|
|
Caption = 'See "vectorial" example for more objects and options'
|
|
end
|
|
object Button9: TButton
|
|
Left = 120
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Put line'
|
|
TabOrder = 0
|
|
OnClick = Button9Click
|
|
end
|
|
object Button10: TButton
|
|
Left = 200
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Put text'
|
|
TabOrder = 1
|
|
OnClick = Button10Click
|
|
end
|
|
object Button11: TButton
|
|
Left = 8
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Select'
|
|
TabOrder = 2
|
|
OnClick = Button11Click
|
|
end
|
|
end
|
|
end
|
|
object Table1: TTable
|
|
AfterScroll = Table1AfterScroll
|
|
TableName = 'IMAGES.DB'
|
|
Left = 16
|
|
Top = 136
|
|
end
|
|
object DataSource1: TDataSource
|
|
AutoEdit = False
|
|
DataSet = Table1
|
|
Left = 64
|
|
Top = 136
|
|
end
|
|
object ImageEnProc1: TImageEnProc
|
|
AttachedImageEn = ImageEnDBVect1
|
|
Background = clBtnFace
|
|
PreviewsParams = [prppShowResetButton, prppHardReset]
|
|
PreviewFont.Charset = DEFAULT_CHARSET
|
|
PreviewFont.Color = clWindowText
|
|
PreviewFont.Height = -11
|
|
PreviewFont.Name = 'Tahoma'
|
|
PreviewFont.Style = []
|
|
Left = 400
|
|
Top = 160
|
|
end
|
|
object ImageEnIO1: TImageEnIO
|
|
AttachedImageEn = ImageEnDBVect1
|
|
Background = clBtnFace
|
|
PreviewFont.Charset = DEFAULT_CHARSET
|
|
PreviewFont.Color = clWindowText
|
|
PreviewFont.Height = -11
|
|
PreviewFont.Name = 'Tahoma'
|
|
PreviewFont.Style = []
|
|
Left = 332
|
|
Top = 160
|
|
end
|
|
object OpenImageEnDialog1: TOpenImageEnDialog
|
|
Filter =
|
|
'All graphics|*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.pcx;*.png;*.bmp;*' +
|
|
'.wmf;*.emf;*.ico;*.cur;*.avi|JPEG files (*.jpg;*.jpeg)|*.jpg;*.j' +
|
|
'peg|GIF files (*.gif)|*.gif|TIFF files (*.tif;*.tiff)|*.tif;*.ti' +
|
|
'ff|PCX files (*.pcx)|*.pcx|PNG files (*.png)|*.png|BMP files (*.' +
|
|
'bmp)|*.bmp|WMF files (*.wmf)|*.wmf|EMF files (*.emf)|*.emf|ICO f' +
|
|
'iles (*.ico)|*.ico|CUR files (*.cur)|*.cur|AVI files (*.avi)|*.a' +
|
|
'vi'
|
|
Left = 167
|
|
Top = 179
|
|
end
|
|
end
|