BSOne.SFC/EM.Lib/ImageEn_SRC/Demos/Database/DBCtrl/main.dfm

290 lines
6.5 KiB
Plaintext

object MainForm: TMainForm
Left = 286
Top = 207
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'TImageEnDBView Demo - www.ImageEn.com'
ClientHeight = 418
ClientWidth = 638
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 Panel2: TPanel
Left = 0
Top = 377
Width = 638
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
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 = 0
Top = 0
Width = 638
Height = 377
Align = alClient
BevelOuter = bvNone
Caption = 'Panel1'
TabOrder = 1
object Panel3: TPanel
Left = 0
Top = 279
Width = 638
Height = 98
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Label2: TLabel
Left = 8
Top = 40
Width = 30
Height = 13
Caption = 'Put as'
end
object Bevel1: TBevel
Left = 182
Top = 4
Width = 7
Height = 91
Shape = bsLeftLine
end
object Label3: TLabel
Left = 8
Top = 72
Width = 71
Height = 13
Caption = 'Stored format:'
end
object Label4: TLabel
Left = 80
Top = 72
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 Button3: TButton
Left = 304
Top = 62
Width = 71
Height = 19
Caption = 'Effects...'
TabOrder = 1
OnClick = Button3Click
end
object ComboBox1: TComboBox
Left = 48
Top = 37
Width = 89
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
OnChange = ComboBox1Change
Items.Strings = (
'Bmp'
'Jpeg'
'Gif'
'Pcx'
'Tiff'
'Tiff with Annot'
'Png'
'Tga'
'Pxm'
'Unknown')
end
object Button5: TButton
Left = 200
Top = 62
Width = 71
Height = 19
Caption = 'Copy'
TabOrder = 3
OnClick = Button5Click
end
object Button6: TButton
Left = 200
Top = 41
Width = 71
Height = 19
Caption = 'Paste'
TabOrder = 4
OnClick = Button6Click
end
object Button7: TButton
Left = 304
Top = 41
Width = 71
Height = 19
Caption = 'Color adjust...'
TabOrder = 5
OnClick = Button7Click
end
object Button8: TButton
Left = 144
Top = 38
Width = 19
Height = 19
Caption = '...'
TabOrder = 6
OnClick = Button8Click
end
end
object DBCtrlGrid1: TDBCtrlGrid
Left = 0
Top = 0
Width = 638
Height = 279
Align = alClient
AllowDelete = False
AllowInsert = False
ColCount = 2
DataSource = DataSource1
PanelHeight = 139
PanelWidth = 310
TabOrder = 1
RowCount = 2
object Label1: TLabel
Left = 8
Top = 8
Width = 27
Height = 13
Caption = 'Name'
end
object DBEdit1: TDBEdit
Left = 41
Top = 6
Width = 80
Height = 21
DataField = 'Name'
DataSource = DataSource1
TabOrder = 0
end
object ImageEnDBView1: TImageEnDBView
Left = 128
Top = 6
Width = 174
Height = 125
Background = clBtnFace
ParentCtl3D = False
BorderStyle = bsNone
DoubleBuffer = False
MouseInteract = [miSelect]
AutoFit = True
BackgroundStyle = iebsCropped
EnableInteractionHints = True
TabOrder = 1
DataField = 'Photo'
DataSource = DataSource1
DataFieldImageFormat = ifPCX
IOPreviewsParams = [ioppDefaultLockPreview]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clWindowText
PreviewFont.Height = -11
PreviewFont.Name = 'Tahoma'
PreviewFont.Style = []
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 = ImageEnDBView1
Background = clBtnFace
PreviewsParams = [prppDefaultLockPreview]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clWindowText
PreviewFont.Height = -11
PreviewFont.Name = 'Tahoma'
PreviewFont.Style = []
Left = 400
Top = 160
end
object ImageEnIO1: TImageEnIO
AttachedImageEn = ImageEnDBView1
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