PC World Komputer 1997 May/Pcwk0597.iso/delphi/imagelib/mmblob.df_/mmblob.df/mmblob.txt

Text File | 1995-10-01 | 6.4 KB | 323 lines

object MMBlobForm: TMMBlobForm
  Left = 32
  Top = 23
  BorderStyle = bsDialog
  Caption = 'This example uses mmblob.dbf'
  ClientHeight = 361
  ClientWidth = 567
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 13
  object Gauge1: TGauge
    Left = 455
    Top = 214
    Width = 81
    Height = 34
    Kind = gkNeedle
    BorderStyle = bsNone
    ForeColor = clRed
    BackColor = clSilver
    Progress = 0
  end
  object DBMediaPlayer1: TPDBMediaPlayer
    Left = 44
    Top = 206
    Width = 197
    Height = 25
    VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack]
    Display = DBMultiMedia1
    TabOrder = 1
  end
  object DBNavigator1: TDBNavigator
    Left = 17
    Top = 184
    Width = 251
    Height = 23
    DataSource = DataSource1
    TabOrder = 2
  end
  object CheckBox1: TCheckBox
    Left = 294
    Top = 266
    Width = 64
    Height = 17
    Caption = 'Auto Play'
    State = cbChecked
    TabOrder = 4
    OnClick = CheckBox1Click
  end
  object CheckBox2: TCheckBox
    Left = 382
    Top = 266
    Width = 67
    Height = 17
    Caption = 'Auto hide'
    TabOrder = 5
    OnClick = CheckBox2Click
  end
  object DBMultiMedia1: TPDBMultiMedia
    Left = 18
    Top = 24
    Width = 250
    Height = 161
    ImageReadRes = Color256
    ImageWriteRes = Color256
    ImageDither = True
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    UpdateAsJPG = False
    UpdateAsBMP = False
    UpdateAsGIF = False
    UpdateAsPCX = False
    UpdateAsPNG = True
    AutoPlayMultiMedia = False
    AutoRePlayMultiMedia = True
    AutoHideMediaPlayer = False
    PathForTempFile = 'C:\'
    Color = clGray
    DataField = 'MEDIA'
    DataSource = DataSource1
    MediaPlayer = DBMediaPlayer1
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    TempMov = '$$$.MOV'
    TempAVI = '$$$.AVI'
    TempWAV = '$$$.WAV'
    TempMID = '$$$.MID'
    TempRMI = '$$$.RMI'
  end
  object DBEdit1: TDBEdit
    Left = 286
    Top = 24
    Width = 121
    Height = 20
    DataField = 'TEXT1'
    DataSource = DataSource1
    MaxLength = 0
    ReadOnly = True
    TabOrder = 8
  end
  object DBEdit2: TDBEdit
    Left = 286
    Top = 59
    Width = 121
    Height = 20
    DataField = 'TEXT2'
    DataSource = DataSource1
    MaxLength = 0
    ReadOnly = True
    TabOrder = 9
  end
  object DBMemo1: TDBMemo
    Left = 425
    Top = 23
    Width = 135
    Height = 184
    Color = clNavy
    DataField = 'MEMO1'
    DataSource = DataSource1
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object CheckBox3: TCheckBox
    Left = 111
    Top = 266
    Width = 72
    Height = 17
    Caption = 'Auto Load'
    State = cbChecked
    TabOrder = 12
    OnClick = CheckBox3Click
  end
  object CheckBox4: TCheckBox
    Left = 199
    Top = 266
    Width = 75
    Height = 17
    Caption = 'Auto Replay'
    State = cbChecked
    TabOrder = 13
    OnClick = CheckBox4Click
  end
  object ScrollBar1: TScrollBar
    Left = 3
    Top = 24
    Width = 8
    Height = 183
    Hint = 'Message Speed'
    Kind = sbVertical
    Max = 10
    ParentShowHint = False
    Position = 5
    ShowHint = True
    TabOrder = 15
    Visible = False
    OnChange = ScrollBar1Change
  end
  object Panel1: TPanel
    Left = 321
    Top = 94
    Width = 55
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'File Type'
    TabOrder = 16
  end
  object Panel2: TPanel
    Left = 281
    Top = 128
    Width = 130
    Height = 20
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'The blobs'#39'size'
    TabOrder = 18
  end
  object CancelBtn: TBitBtn
    Left = 476
    Top = 322
    Width = 52
    Height = 30
    Caption = ' '
    TabOrder = 0
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 14
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object BitBtn1: TBitBtn
    Left = 40
    Top = 293
    Width = 111
    Height = 30
    Caption = 'Append Media'
    Enabled = False
    TabOrder = 3
    OnClick = BitBtn1Click
    Style = bsNew
  end
  object BitBtn2: TBitBtn
    Left = 424
    Top = 322
    Width = 53
    Height = 30
    Caption = 'Table'
    TabOrder = 6
    OnClick = BitBtn2Click
    Style = bsNew
  end
  object BitBtn3: TBitBtn
    Left = 40
    Top = 322
    Width = 111
    Height = 30
    Caption = 'Change Media'
    Enabled = False
    TabOrder = 11
    OnClick = BitBtn3Click
    Style = bsNew
  end
  object BitBtn4: TBitBtn
    Left = 150
    Top = 293
    Width = 132
    Height = 30
    Hint = 'Create a new message and store it in the blob'
    Caption = 'Create Scroll Message'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = BitBtn4Click
    Style = bsNew
  end
  object BitBtn5: TBitBtn
    Left = 150
    Top = 322
    Width = 132
    Height = 30
    Hint = 'Create a message on the fly without storing it in the blob'
    Caption = 'Create Scroll On the fly'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
    OnClick = BitBtn5Click
    Style = bsNew
  end
  object BitBtn6: TBitBtn
    Left = 424
    Top = 293
    Width = 104
    Height = 30
    Caption = 'Print'
    Enabled = False
    TabOrder = 19
    OnClick = BitBtn6Click
    Style = bsNew
  end
  object BitBtn7: TBitBtn
    Left = 281
    Top = 293
    Width = 144
    Height = 30
    Caption = 'Create Credit Message'
    Enabled = False
    TabOrder = 20
    OnClick = BitBtn7Click
    Style = bsNew
  end
  object BitBtn8: TBitBtn
    Left = 281
    Top = 322
    Width = 144
    Height = 30
    Caption = 'Create Credit On the fly'
    TabOrder = 21
    OnClick = BitBtn8Click
    Style = bsNew
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 26
    Top = 24
  end
  object Table1: TTable
    DatabaseName = 'c:\mmblob'
    TableName = 'MMBLOB.DBF'
    Left = 111
    Top = 24
  end
  object OpenDialog1: TOpenDialog
    Left = 55
    Top = 24
  end
  object OpenDialog2: TOpenDialog
    FileName = 'mmblob.dbf'
    Filter = 'mmblob.dbf|mmblob.dbf'
    Left = 84
    Top = 24
  end
  object PrintDialog1: TPrintDialog
    Left = 139
    Top = 24
  end
end