990d5a299f
Fix for TO32TCFlexEdit validation; 3 new example programs (TestSpinner, TestSimpField, TestTblEdits); updated OrphStatus.html notes. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@204 8e941d3f-bd1b-0410-a28a-d453659cc2b4
142 lines
3.6 KiB
Plaintext
142 lines
3.6 KiB
Plaintext
object Form1: TForm1
|
|
Left = 192
|
|
Top = 114
|
|
Width = 776
|
|
Height = 480
|
|
Caption = 'Form1'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
DesignSize = (
|
|
768
|
|
446)
|
|
PixelsPerInch = 96
|
|
TextHeight = 14
|
|
object OvcTable1: TOvcTable
|
|
Left = 16
|
|
Top = 16
|
|
Width = 737
|
|
Height = 409
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Color = clWindow
|
|
Controller = OvcController1
|
|
GridPenSet.NormalGrid.NormalColor = clBtnShadow
|
|
GridPenSet.NormalGrid.Style = psDot
|
|
GridPenSet.NormalGrid.Effect = geBoth
|
|
GridPenSet.LockedGrid.NormalColor = clBtnShadow
|
|
GridPenSet.LockedGrid.Style = psSolid
|
|
GridPenSet.LockedGrid.Effect = ge3D
|
|
GridPenSet.CellWhenFocused.NormalColor = clBlack
|
|
GridPenSet.CellWhenFocused.Style = psSolid
|
|
GridPenSet.CellWhenFocused.Effect = geBoth
|
|
GridPenSet.CellWhenUnfocused.NormalColor = clBlack
|
|
GridPenSet.CellWhenUnfocused.Style = psDash
|
|
GridPenSet.CellWhenUnfocused.Effect = geBoth
|
|
LockedRowsCell = OvcTCColHead1
|
|
Options = [otoNoRowResizing, otoNoColResizing, otoTabToArrow, otoEnterToArrow, otoAlwaysEditing, otoNoSelection, otoThumbTrack]
|
|
TabOrder = 0
|
|
OnGetCellData = OvcTable1GetCellData
|
|
CellData = (
|
|
'Form1.OvcTCColHead1'
|
|
'Form1.O32TCFlexEdit1'
|
|
'Form1.OvcTCSimpleField1'
|
|
'Form1.OvcTCRowHead1'
|
|
'Form1.OvcTCString1')
|
|
RowData = (
|
|
35)
|
|
ColData = (
|
|
110
|
|
False
|
|
True
|
|
'Form1.OvcTCRowHead1'
|
|
150
|
|
False
|
|
True
|
|
'Form1.OvcTCString1'
|
|
150
|
|
False
|
|
True
|
|
'Form1.OvcTCSimpleField1'
|
|
150
|
|
False
|
|
True
|
|
'Form1.O32TCFlexEdit1')
|
|
end
|
|
object OvcTCColHead1: TOvcTCColHead
|
|
Headings.Strings = (
|
|
'TOvcTCRowHead'
|
|
'TOvcTCString'
|
|
'TOvcTCSimpleField'
|
|
'TO32TCFlexEdit'
|
|
'')
|
|
ShowLetters = False
|
|
Adjust = otaCenter
|
|
Table = OvcTable1
|
|
Left = 48
|
|
end
|
|
object OvcTCRowHead1: TOvcTCRowHead
|
|
Adjust = otaCenter
|
|
Table = OvcTable1
|
|
Left = 80
|
|
end
|
|
object OvcTCString1: TOvcTCString
|
|
AutoAdvanceLeftRight = True
|
|
Table = OvcTable1
|
|
Left = 144
|
|
end
|
|
object OvcController1: TOvcController
|
|
EntryCommands.TableList = (
|
|
'Default'
|
|
True
|
|
()
|
|
'WordStar'
|
|
False
|
|
()
|
|
'Grid'
|
|
False
|
|
())
|
|
Epoch = 2000
|
|
Left = 16
|
|
end
|
|
object OvcTCSimpleField1: TOvcTCSimpleField
|
|
CaretOvr.Shape = csBlock
|
|
EFColors.Disabled.BackColor = clWindow
|
|
EFColors.Disabled.TextColor = clGrayText
|
|
EFColors.Error.BackColor = clRed
|
|
EFColors.Error.TextColor = clBlack
|
|
EFColors.Highlight.BackColor = clHighlight
|
|
EFColors.Highlight.TextColor = clHighlightText
|
|
Table = OvcTable1
|
|
OnError = OvcTCSimpleField1Error
|
|
OnUserValidation = OvcTCSimpleField1UserValidation
|
|
Left = 296
|
|
RangeHigh = {00000000000000000000}
|
|
RangeLow = {00000000000000000000}
|
|
end
|
|
object O32TCFlexEdit1: TO32TCFlexEdit
|
|
EditorBorders.Active = False
|
|
EditorBorders.FlatColor = clBlack
|
|
EditorBorders.BorderStyle = bstyRaised
|
|
EditorOptions.Alignment = taLeftJustify
|
|
EditorOptions.Color = clWindow
|
|
EditorOptions.Cursor = crDefault
|
|
EditorOptions.MaxLines = 3
|
|
EditorOptions.PasswordChar = #0
|
|
EditorOptions.ReadOnly = False
|
|
EditorOptions.ShowButton = False
|
|
Table = OvcTable1
|
|
Validation.BeepOnError = True
|
|
Validation.InputRequired = False
|
|
Validation.ValidatorType = 'None'
|
|
Validation.ValidationType = vtUser
|
|
OnUserValidation = O32TCFlexEdit1UserValidation
|
|
Left = 448
|
|
end
|
|
end
|