home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d3456 / PICSHOW.ZIP / DBDemo / Main.dfm / Main.txt
Encoding:
Text File  |  2001-12-29  |  8.0 KB  |  365 lines
  1. object MainForm: TMainForm
  2.   Left = 188
  3.   Top = 74
  4.   AutoScroll = False
  5.   Caption = 'TDBPicShow Demo'
  6.   ClientHeight = 473
  7.   ClientWidth = 511
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = True
  15.   Position = poScreenCenter
  16.   OnActivate = FormActivate
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object WaitMsg: TLabel
  21.     Left = 0
  22.     Top = 28
  23.     Width = 511
  24.     Height = 16
  25.     Align = alTop
  26.     Alignment = taCenter
  27.     Caption = 'Connecting to Database, please wait...'
  28.     Font.Charset = DEFAULT_CHARSET
  29.     Font.Color = clWindowText
  30.     Font.Height = -13
  31.     Font.Name = 'MS Sans Serif'
  32.     Font.Style = [fsBold]
  33.     ParentFont = False
  34.     ShowAccelChar = False
  35.     Visible = False
  36.   end
  37.   object DBPicShow: TDBPicShow
  38.     Tag = 8
  39.     Left = 0
  40.     Top = 44
  41.     Width = 511
  42.     Height = 349
  43.     Hint = 'Double click here for the next image'
  44.     OnAfterLoadPicture = DBPicShowAfterLoadPicture
  45.     OnBeforeLoadPicture = DBPicShowBeforeLoadPicture
  46.     DataField = 'PicPicture'
  47.     DataSource = DataSource
  48.     Align = alClient
  49.     AutoSize = False
  50.     Center = True
  51.     Color = clGray
  52.     ParentColor = False
  53.     ParentShowHint = False
  54.     ShowHint = True
  55.     StretchFine = True
  56.     Style = 0
  57.     TabOrder = 4
  58.     OnCustomDraw = DBPicShowCustomDraw
  59.     OnDblClick = DBPicShowDblClick
  60.     OnComplete = DBPicShowComplete
  61.     OnProgress = DBPicShowProgress
  62.   end
  63.   object Panel1: TPanel
  64.     Left = 0
  65.     Top = 393
  66.     Width = 511
  67.     Height = 32
  68.     Align = alBottom
  69.     BorderStyle = bsSingle
  70.     Ctl3D = False
  71.     ParentCtl3D = False
  72.     ParentShowHint = False
  73.     ShowHint = True
  74.     TabOrder = 0
  75.     object Label1: TLabel
  76.       Left = 8
  77.       Top = 9
  78.       Width = 26
  79.       Height = 13
  80.       Caption = '&Style:'
  81.       FocusControl = Style
  82.     end
  83.     object Label2: TLabel
  84.       Left = 277
  85.       Top = 9
  86.       Width = 25
  87.       Height = 13
  88.       Caption = 'Ste&p:'
  89.       FocusControl = Step
  90.     end
  91.     object Bevel1: TBevel
  92.       Left = 269
  93.       Top = 2
  94.       Width = 2
  95.       Height = 26
  96.     end
  97.     object Bevel2: TBevel
  98.       Left = 424
  99.       Top = 2
  100.       Width = 2
  101.       Height = 26
  102.     end
  103.     object Label3: TLabel
  104.       Left = 349
  105.       Top = 9
  106.       Width = 30
  107.       Height = 13
  108.       Caption = '&Delay:'
  109.       FocusControl = Delay
  110.     end
  111.     object Step: TSpinEdit
  112.       Left = 306
  113.       Top = 4
  114.       Width = 37
  115.       Height = 22
  116.       Ctl3D = True
  117.       MaxLength = 3
  118.       MaxValue = 200
  119.       MinValue = 1
  120.       ParentCtl3D = False
  121.       TabOrder = 4
  122.       Value = 1
  123.       OnChange = StepChange
  124.     end
  125.     object Style: TSpinEdit
  126.       Left = 38
  127.       Top = 4
  128.       Width = 48
  129.       Height = 22
  130.       Ctl3D = True
  131.       MaxLength = 3
  132.       MaxValue = 0
  133.       MinValue = 0
  134.       ParentCtl3D = False
  135.       TabOrder = 0
  136.       Value = 0
  137.       OnChange = StyleChange
  138.     end
  139.     object Threaded: TCheckBox
  140.       Left = 435
  141.       Top = 7
  142.       Width = 66
  143.       Height = 17
  144.       Caption = '&Threaded'
  145.       TabOrder = 6
  146.       OnClick = ThreadedClick
  147.     end
  148.     object ManualStyle: TRadioButton
  149.       Left = 91
  150.       Top = 7
  151.       Width = 59
  152.       Height = 17
  153.       Hint = 
  154.         'When manual is checked, use scroll bar below to animate the imag' +
  155.         'e'
  156.       Caption = 'Manual'
  157.       TabOrder = 1
  158.       OnClick = ManualStyleClick
  159.     end
  160.     object TurnStyle: TRadioButton
  161.       Left = 154
  162.       Top = 7
  163.       Width = 44
  164.       Height = 17
  165.       Caption = 'Turn'
  166.       Checked = True
  167.       TabOrder = 2
  168.       TabStop = True
  169.       OnClick = ManualStyleClick
  170.     end
  171.     object RandomStyle: TRadioButton
  172.       Left = 203
  173.       Top = 7
  174.       Width = 59
  175.       Height = 17
  176.       Caption = 'Random'
  177.       TabOrder = 3
  178.       OnClick = ManualStyleClick
  179.     end
  180.     object Delay: TSpinEdit
  181.       Left = 382
  182.       Top = 4
  183.       Width = 37
  184.       Height = 22
  185.       Ctl3D = True
  186.       MaxValue = 0
  187.       MinValue = 0
  188.       ParentCtl3D = False
  189.       TabOrder = 5
  190.       Value = 1
  191.       OnChange = DelayChange
  192.     end
  193.   end
  194.   object Panel2: TPanel
  195.     Left = 0
  196.     Top = 0
  197.     Width = 511
  198.     Height = 28
  199.     Align = alTop
  200.     Alignment = taLeftJustify
  201.     BorderStyle = bsSingle
  202.     Ctl3D = False
  203.     ParentCtl3D = False
  204.     TabOrder = 1
  205.     object LoadPicBtn: TSpeedButton
  206.       Left = 374
  207.       Top = 2
  208.       Width = 131
  209.       Height = 22
  210.       Caption = 'Load image from file...'
  211.       OnClick = LoadPicBtnClick
  212.     end
  213.     object FreeMemory: TPanel
  214.       Left = 1
  215.       Top = 1
  216.       Width = 125
  217.       Height = 24
  218.       Hint = 'Free Memory'
  219.       BevelOuter = bvLowered
  220.       Caption = 'Free Memory'
  221.       ParentShowHint = False
  222.       ShowHint = False
  223.       TabOrder = 0
  224.     end
  225.     object DBNavigator1: TDBNavigator
  226.       Left = 129
  227.       Top = 1
  228.       Width = 240
  229.       Height = 24
  230.       DataSource = DataSource
  231.       Flat = True
  232.       TabOrder = 1
  233.     end
  234.   end
  235.   object Panel3: TPanel
  236.     Left = 0
  237.     Top = 457
  238.     Width = 511
  239.     Height = 16
  240.     Align = alBottom
  241.     BevelOuter = bvNone
  242.     TabOrder = 3
  243.     object ScrollBar: TScrollBar
  244.       Left = 0
  245.       Top = 0
  246.       Width = 511
  247.       Height = 16
  248.       Hint = 'Manual Progress Controller'
  249.       Align = alBottom
  250.       Enabled = False
  251.       LargeChange = 10
  252.       PageSize = 0
  253.       ParentShowHint = False
  254.       ShowHint = True
  255.       TabOrder = 0
  256.       OnChange = ScrollBarChange
  257.     end
  258.   end
  259.   object Panel4: TPanel
  260.     Left = 0
  261.     Top = 425
  262.     Width = 511
  263.     Height = 32
  264.     Align = alBottom
  265.     BorderStyle = bsSingle
  266.     Ctl3D = False
  267.     ParentCtl3D = False
  268.     ParentShowHint = False
  269.     ShowHint = True
  270.     TabOrder = 2
  271.     object Label4: TLabel
  272.       Left = 132
  273.       Top = 9
  274.       Width = 217
  275.       Height = 13
  276.       Caption = 'Show the next image after                  seconds'
  277.       FocusControl = ShowPause
  278.     end
  279.     object Bevel3: TBevel
  280.       Left = 362
  281.       Top = 2
  282.       Width = 2
  283.       Height = 26
  284.     end
  285.     object Auto: TCheckBox
  286.       Left = 6
  287.       Top = 7
  288.       Width = 115
  289.       Height = 17
  290.       Caption = 'Auto Change Image'
  291.       TabOrder = 0
  292.       OnClick = AutoClick
  293.     end
  294.     object ShowPause: TSpinEdit
  295.       Left = 261
  296.       Top = 4
  297.       Width = 42
  298.       Height = 22
  299.       Ctl3D = True
  300.       MaxLength = 3
  301.       MaxValue = 600
  302.       MinValue = 1
  303.       ParentCtl3D = False
  304.       TabOrder = 1
  305.       Value = 2
  306.       OnChange = StyleChange
  307.     end
  308.     object ClearOldImage: TCheckBox
  309.       Left = 375
  310.       Top = 7
  311.       Width = 125
  312.       Height = 17
  313.       Caption = 'Clear Previous Image '
  314.       TabOrder = 2
  315.     end
  316.   end
  317.   object Timer: TTimer
  318.     Enabled = False
  319.     Interval = 2000
  320.     OnTimer = TimerTimer
  321.     Left = 16
  322.     Top = 40
  323.   end
  324.   object ADOConnection: TADOConnection
  325.     ConnectionString = 
  326.       'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  327.       'Source=PicDB.mdb;Mode=Share Deny None;Extended Properties="";Loc' +
  328.       'ale Identifier=1033;Jet OLEDB:System database="";Jet OLEDB:Regis' +
  329.       'try Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type' +
  330.       '=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bu' +
  331.       'lk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Data' +
  332.       'base Password="";Jet OLEDB:Create System Database=False;Jet OLED' +
  333.       'B:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=' +
  334.       'False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:S' +
  335.       'FP=False'
  336.     LoginPrompt = False
  337.     Mode = cmShareDenyNone
  338.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  339.     AfterConnect = ADOConnectionAfterConnect
  340.     Left = 16
  341.     Top = 72
  342.   end
  343.   object ADOTable: TADOTable
  344.     Connection = ADOConnection
  345.     CursorType = ctStatic
  346.     TableName = 'PicTable'
  347.     Left = 44
  348.     Top = 72
  349.   end
  350.   object DataSource: TDataSource
  351.     DataSet = ADOTable
  352.     Left = 72
  353.     Top = 72
  354.   end
  355.   object OpenPictureDialog: TOpenPictureDialog
  356.     Filter = 
  357.       'All supported images (*.bmp;*.jpeg;*.jpg)|*.bmp;*.jpeg;*.jpg|Win' +
  358.       'dows bitmaps (*.bmp)|*.bmp|JPEG images (*.jpeg)|*.jpeg|JPG image' +
  359.       's (*.jpg)|*.jpg'
  360.     Title = 'Load Picture'
  361.     Left = 44
  362.     Top = 40
  363.   end
  364. end
  365.