Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: e4cf44bcc3
Fetching contributors…

Cannot retrieve contributors at this time

72 lines (71 sloc) 1.552 kb
object fmEditDataFullRec: TfmEditDataFullRec
Left = 532
Height = 300
Top = 328
Width = 593
ActiveControl = bbSave
Caption = 'Edit Data Full Record'
ClientHeight = 300
ClientWidth = 593
OnClose = FormClose
Position = poScreenCenter
LCLVersion = '0.9.30'
object Label1: TLabel
Left = 258
Height = 18
Top = 27
Width = 60
Caption = 'Record #'
ParentColor = False
end
object laPos: TLabel
Left = 326
Height = 18
Top = 27
Width = 9
Caption = '0'
Font.Color = 11610912
ParentColor = False
ParentFont = False
end
object DBNavigator1: TDBNavigator
Left = 8
Height = 25
Top = 21
Width = 241
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 25
ClientWidth = 241
DataSource = Datasource1
TabOrder = 0
end
object bbSave: TBitBtn
Left = 493
Height = 30
Top = 16
Width = 75
Caption = 'Save'
OnClick = bbSaveClick
TabOrder = 1
end
object Datasource1: TDatasource
DataSet = sqEditTable
left = 408
top = 128
end
object sqEditTable: TSQLQuery
IndexName = 'DEFAULT_ORDER'
AutoCalcFields = False
AfterScroll = sqEditTableAfterScroll
ReadOnly = False
Params = <>
left = 385
top = 48
end
end
Jump to Line
Something went wrong with that request. Please try again.