git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
171 lines
3.7 KiB
Plaintext
171 lines
3.7 KiB
Plaintext
inherited PicturesFrame: TPicturesFrame
|
|
Width = 443
|
|
Height = 277
|
|
Align = alClient
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 119
|
|
Width = 443
|
|
Height = 2
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
Color = clBtnFace
|
|
ParentColor = False
|
|
end
|
|
object ScrollBox1: TScrollBox
|
|
Left = 0
|
|
Top = 146
|
|
Width = 443
|
|
Height = 131
|
|
Align = alClient
|
|
TabOrder = 0
|
|
object DBImage: TDBImage
|
|
Left = 0
|
|
Top = 0
|
|
Width = 439
|
|
Height = 127
|
|
Align = alClient
|
|
Center = False
|
|
Constraints.MinHeight = 50
|
|
DataField = 'PICTURE'
|
|
DataSource = dsPictures
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object ToolBar: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 443
|
|
Height = 26
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 1
|
|
Width = 408
|
|
Height = 24
|
|
BevelOuter = bvNone
|
|
Color = clGreen
|
|
TabOrder = 0
|
|
object btOpen: TSpeedButton
|
|
Left = 1
|
|
Top = 1
|
|
Width = 82
|
|
Height = 22
|
|
Caption = 'Open'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btOpenClick
|
|
end
|
|
object btClose: TSpeedButton
|
|
Left = 84
|
|
Top = 1
|
|
Width = 82
|
|
Height = 22
|
|
Caption = 'Close'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btCloseClick
|
|
end
|
|
object DBNavigator: TDBNavigator
|
|
Left = 167
|
|
Top = 1
|
|
Width = 240
|
|
Height = 22
|
|
DataSource = dsPictures
|
|
Flat = True
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object DBGrid: TDBGrid
|
|
Left = 0
|
|
Top = 26
|
|
Width = 443
|
|
Height = 93
|
|
Align = alTop
|
|
Constraints.MinHeight = 50
|
|
DataSource = dsPictures
|
|
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
|
|
TabOrder = 2
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object ToolBar1: TPanel
|
|
Left = 0
|
|
Top = 121
|
|
Width = 443
|
|
Height = 25
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 3
|
|
object Panel1: TPanel
|
|
Left = 2
|
|
Top = 0
|
|
Width = 259
|
|
Height = 24
|
|
BevelOuter = bvNone
|
|
Color = clGreen
|
|
TabOrder = 0
|
|
object btLoad: TSpeedButton
|
|
Left = 1
|
|
Top = 1
|
|
Width = 85
|
|
Height = 22
|
|
Caption = 'Load from file ...'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btLoadClick
|
|
end
|
|
object btSave: TSpeedButton
|
|
Left = 87
|
|
Top = 1
|
|
Width = 85
|
|
Height = 22
|
|
Caption = 'Save to file ...'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btSaveClick
|
|
end
|
|
object btClear: TSpeedButton
|
|
Left = 173
|
|
Top = 1
|
|
Width = 85
|
|
Height = 22
|
|
Caption = 'Clear'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btClearClick
|
|
end
|
|
end
|
|
end
|
|
object OpenPictureDialog: TOpenPictureDialog
|
|
Filter = 'Bitmaps (*.bmp)|*.bmp'
|
|
Left = 288
|
|
Top = 115
|
|
end
|
|
object SavePictureDialog: TSavePictureDialog
|
|
Filter = 'Bitmaps (*.bmp)|*.bmp'
|
|
Left = 320
|
|
Top = 116
|
|
end
|
|
object dsPictures: TDataSource
|
|
DataSet = quPictures
|
|
Left = 376
|
|
Top = 16
|
|
end
|
|
object quPictures: TMSQuery
|
|
Connection = SDACForm.MSConnection
|
|
SQL.Strings = (
|
|
'SELECT * FROM SDAC_Pictures')
|
|
Debug = True
|
|
FetchRows = 1
|
|
Left = 344
|
|
Top = 16
|
|
end
|
|
end
|