home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Midas / Brfcase / CLNTFRM.DFM / CLNTFRM.txt
Encoding:
Text File  |  1999-08-11  |  1.7 KB  |  79 lines
  1. object Form1: TForm1
  2.   Left = 319
  3.   Top = 140
  4.   Width = 212
  5.   Height = 288
  6.   Caption = 'Client'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object DBGrid1: TDBGrid
  17.     Left = 8
  18.     Top = 64
  19.     Width = 190
  20.     Height = 188
  21.     Anchors = [akLeft, akTop, akRight, akBottom]
  22.     DataSource = DataSource1
  23.     TabOrder = 0
  24.     TitleFont.Charset = DEFAULT_CHARSET
  25.     TitleFont.Color = clWindowText
  26.     TitleFont.Height = -11
  27.     TitleFont.Name = 'MS Sans Serif'
  28.     TitleFont.Style = []
  29.   end
  30.   object Button1: TButton
  31.     Left = 104
  32.     Top = 32
  33.     Width = 81
  34.     Height = 25
  35.     Action = Action2
  36.     TabOrder = 1
  37.   end
  38.   object CheckBox1: TCheckBox
  39.     Left = 8
  40.     Top = 40
  41.     Width = 81
  42.     Height = 17
  43.     Action = Action1
  44.     TabOrder = 2
  45.   end
  46.   object DCOMConnection1: TDCOMConnection
  47.     Connected = True
  48.     ServerGUID = '{A1695C1C-F724-11D1-AABE-00C04FA35CFA}'
  49.     ServerName = 'Server.BriefCaseDemo'
  50.   end
  51.   object ClientDataSet1: TClientDataSet
  52.     Active = True
  53.     Aggregates = <>
  54.     FileName = 'country.cds'
  55.     Params = <>
  56.     ProviderName = 'DataSetProvider1'
  57.     RemoteServer = DCOMConnection1
  58.     OnReconcileError = ClientDataSet1ReconcileError
  59.     Left = 32
  60.   end
  61.   object DataSource1: TDataSource
  62.     DataSet = ClientDataSet1
  63.     Left = 64
  64.   end
  65.   object ActionList1: TActionList
  66.     Left = 96
  67.     object Action1: TAction
  68.       Caption = 'Connected'
  69.       OnExecute = Action1Execute
  70.       OnUpdate = Action1Update
  71.     end
  72.     object Action2: TAction
  73.       Caption = '&Apply Updates'
  74.       OnExecute = Action2Execute
  75.       OnUpdate = Action2Update
  76.     end
  77.   end
  78. end
  79.