67 lines
1.5 KiB
Plaintext
67 lines
1.5 KiB
Plaintext
|
object ClientForm: TClientForm
|
||
|
|
Left = 153
|
||
|
|
Top = 246
|
||
|
|
Width = 701
|
||
|
|
Height = 424
|
||
|
|
Caption = 'Refresh Update Data sample'
|
||
|
|
Color = clBtnFace
|
||
|
|
Constraints.MinWidth = 404
|
||
|
|
ParentFont = True
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poScreenCenter
|
||
|
|
OnCreate = FormCreate
|
||
|
|
OnDestroy = FormDestroy
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 685
|
||
|
|
Height = 49
|
||
|
|
Align = alTop
|
||
|
|
TabOrder = 0
|
||
|
|
object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 212
|
||
|
|
Height = 48
|
||
|
|
Cursor = crHandPoint
|
||
|
|
end
|
||
|
|
object btLoad: TButton
|
||
|
|
Left = 218
|
||
|
|
Top = 13
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Caption = 'Load'
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = btLoadClick
|
||
|
|
end
|
||
|
|
object btEdit: TButton
|
||
|
|
Left = 299
|
||
|
|
Top = 13
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Caption = 'Edit...'
|
||
|
|
TabOrder = 1
|
||
|
|
OnClick = btEditClick
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object dgData: TDBGrid
|
||
|
|
Left = 0
|
||
|
|
Top = 49
|
||
|
|
Width = 685
|
||
|
|
Height = 339
|
||
|
|
Align = alClient
|
||
|
|
DataSource = ClientDataModule.ds_Clients
|
||
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
|
||
|
|
ReadOnly = True
|
||
|
|
TabOrder = 1
|
||
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
||
|
|
TitleFont.Color = clWindowText
|
||
|
|
TitleFont.Height = -11
|
||
|
|
TitleFont.Name = 'MS Sans Serif'
|
||
|
|
TitleFont.Style = []
|
||
|
|
OnDblClick = dgDataDblClick
|
||
|
|
end
|
||
|
|
end
|