object Form1: TForm1 Left = 216 Top = 148 Width = 467 Height = 306 Caption = 'Entry Field Demo' Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter OnActivate = FormActivate TextHeight = 16 object Bevel1: TBevel Left = 8 Top = 128 Width = 233 Height = 105 end object Label1: TLabel Left = 184 Top = 11 Width = 136 Height = 16 Caption = 'Simple edit field' end object Label3: TLabel Left = 183 Top = 44 Width = 144 Height = 16 Caption = 'Picture edit field' end object Label4: TLabel Left = 16 Top = 168 Width = 128 Height = 16 Caption = 'Field 2 contents' end object Label5: TLabel Left = 184 Top = 75 Width = 144 Height = 16 Caption = 'Numeric edit field' end object Label6: TLabel Left = 16 Top = 200 Width = 128 Height = 16 Caption = 'Field 3 contents' end object Label2: TLabel Left = 16 Top = 136 Width = 128 Height = 16 Caption = 'Field 1 contents' end object Label7: TLabel Left = 256 Top = 128 Width = 169 Height = 97 AutoSize = False Caption = 'See OVCDATA.PAS for more information on picture mask characters.' WordWrap = True end object OvcController1: TOvcController Left = 8 Top = 240 EntryCommands.TableList = ( 'Default' True ( 37 47 39 58 1061 76 1063 77 36 43 35 17 46 11 8 1 520 1 1058 2 1057 73 45 45 1114 57 2056 57 38 75 40 16 1037 48 549 21 551 24 548 20 547 19 1573 30 1575 31 545 23 546 22 550 25 552 18 1572 27 1571 28 1569 29 1570 26 558 9 1112 9 1069 7 1091 7 557 53 1110 53 33 55 1060 32 34 50 1059 46 9 49 521 54 1033 49 1545 54 3080 56 1072 33 1073 34 1074 35 1075 36 1076 37 1077 38 1078 39 1079 40 1080 41 1081 42 1584 61 1585 62 1586 63 1587 64 1588 65 1589 66 1590 67 1591 68 1592 69 1593 70)) OnError = OvcController1Error end object OvcFourWaySpinner1: TOvcFourWaySpinner Left = 139 Top = 40 Width = 25 Height = 25 FocusedControl = OvcPictureField1 end object OvcNumericField1: TOvcNumericField Left = 40 Top = 72 Width = 98 Height = 22 Cursor = crIBeam Controller = OvcController1 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Pitch = fpFixed Font.Style = [] HighlightColors.BackColor = clHighlight HighlightColors.TextColor = clHighlightText HighlightColors.UseDefault = False Options = [pefBeepOnError] ParentColor = False ParentFont = False PictureMask = 'iiiiiiiiiii'