jvcl driver development envionment

源代码在线查看: jvdbimagedemomainform.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				object JvDBImageDemoMainFrm: TJvDBImageDemoMainFrm
				  Left = 192
				  Top = 107
				  Width = 716
				  Height = 388
				  Caption = 'JvDBImage Demo'
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'Tahoma'
				  Font.Style = []
				  OldCreateOrder = False
				  OnCreate = FormCreate
				  PixelsPerInch = 96
				  TextHeight = 13
				  object DBGrid1: TJvDBGrid
				    Left = 8
				    Top = 8
				    Width = 478
				    Height = 315
				    Anchors = [akLeft, akTop, akBottom]
				    DataSource = DataSource1
				    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgCancelOnExit, dgMultiSelect]
				    TabOrder = 0
				    TitleFont.Charset = DEFAULT_CHARSET
				    TitleFont.Color = clWindowText
				    TitleFont.Height = -11
				    TitleFont.Name = 'Tahoma'
				    TitleFont.Style = []
				    MultiSelect = True
				    AutoSizeColumns = True
				    SelectColumnsDialogStrings.Caption = 'Select columns'
				    SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
				    SelectColumnsDialogStrings.OK = '&OK'
				    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
				    EditControls = 
				    RowsHeight = 17
				    TitleRowHeight = 17
				    Columns = <
				      item
				        Expanded = False
				        FieldName = 'Filename'
				        Width = 381
				        Visible = True
				      end
				      item
				        Expanded = False
				        FieldName = 'FileType'
				        Width = 80
				        Visible = True
				      end>
				  end
				  object btnAdd: TButton
				    Left = 616
				    Top = 328
				    Width = 75
				    Height = 25
				    Anchors = [akRight, akBottom]
				    Caption = 'Add...'
				    TabOrder = 1
				    OnClick = btnAddClick
				  end
				  object btnClear: TButton
				    Left = 488
				    Top = 328
				    Width = 115
				    Height = 25
				    Anchors = [akRight, akBottom]
				    Caption = 'Clear DB'
				    TabOrder = 2
				    OnClick = btnClearClick
				  end
				  object chkTransparent: TCheckBox
				    Left = 16
				    Top = 336
				    Width = 80
				    Height = 17
				    Anchors = [akLeft, akBottom]
				    Caption = '&Transparent'
				    TabOrder = 3
				    OnClick = chkTransparentClick
				  end
				  object chkStretch: TCheckBox
				    Left = 99
				    Top = 336
				    Width = 56
				    Height = 17
				    Anchors = [akLeft, akBottom]
				    Caption = '&Stretch'
				    TabOrder = 4
				    OnClick = chkStretchClick
				  end
				  object chkProportional: TCheckBox
				    Left = 160
				    Top = 336
				    Width = 80
				    Height = 17
				    Anchors = [akLeft, akBottom]
				    Caption = '&Proportional'
				    TabOrder = 5
				    OnClick = chkProportionalClick
				  end
				  object chkAutoDisplay: TCheckBox
				    Left = 247
				    Top = 336
				    Width = 87
				    Height = 17
				    Anchors = [akLeft, akBottom]
				    Caption = '&AutoDisplay'
				    TabOrder = 6
				    OnClick = chkAutoDisplayClick
				  end
				  object chkAutoSize: TCheckBox
				    Left = 345
				    Top = 336
				    Width = 87
				    Height = 17
				    Anchors = [akLeft, akBottom]
				    Caption = 'AutoSi&ze'
				    TabOrder = 7
				    OnClick = chkAutoSizeClick
				  end
				  object ScrollBox1: TScrollBox
				    Left = 496
				    Top = 8
				    Width = 203
				    Height = 313
				    Anchors = [akLeft, akTop, akRight, akBottom]
				    BorderStyle = bsNone
				    TabOrder = 8
				    object JvDBImage1: TJvDBImage
				      Left = 0
				      Top = 0
				      Width = 203
				      Height = 313
				      Align = alClient
				      DataField = 'Image'
				      DataSource = DataSource1
				      TabOrder = 0
				    end
				  end
				  object DataSource1: TDataSource
				    DataSet = ClientDataSet1
				    Left = 112
				    Top = 48
				  end
				  object ClientDataSet1: TClientDataSet
				    Aggregates = 
				    FileName = 'Data\images.xml'
				    FieldDefs = <
				      item
				        Name = 'Filename'
				        Attributes = [faUnNamed]
				        DataType = ftString
				        Size = 255
				      end
				      item
				        Name = 'FileType'
				        Attributes = [faUnNamed]
				        DataType = ftString
				        Size = 12
				      end
				      item
				        Name = 'Image'
				        Attributes = [faUnNamed]
				        DataType = ftGraphic
				      end>
				    IndexDefs = 
				    Params = 
				    StoreDefs = True
				    BeforeOpen = ClientDataSet1BeforeOpen
				    Left = 152
				    Top = 48
				    object ClientDataSet1Filename: TStringField
				      FieldName = 'Filename'
				      Size = 255
				    end
				    object ClientDataSet1FileType: TStringField
				      FieldName = 'FileType'
				      Size = 12
				    end
				    object ClientDataSet1Image: TGraphicField
				      FieldName = 'Image'
				      BlobType = ftGraphic
				    end
				  end
				  object OpenPictureDialog1: TOpenPictureDialog
				    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
				    Left = 192
				    Top = 48
				  end
				end
							

相关资源