home *** CD-ROM | disk | FTP | other *** search
- object fMCIntNet: TfMCIntNet
- Left = 444
- Top = 216
- HelpContext = 10009
- BorderIcons = []
- BorderStyle = bsNone
- Caption = 'fMCIntNet'
- ClientHeight = 400
- ClientWidth = 530
- Color = 49348607
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 530
- Height = 400
- Align = alClient
- BorderStyle = bsSingle
- Color = 49348607
- TabOrder = 0
- object VicPanel2: TPanel
- Left = 1
- Top = 1
- Width = 524
- Height = 33
- Align = alTop
- BevelOuter = bvNone
- Caption = 'Interest paid after tax'
- Color = 12639424
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -16
- Font.Name = 'Verdana'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- end
- object VicPanel1: TPanel
- Left = 1
- Top = 34
- Width = 524
- Height = 328
- Align = alClient
- Caption = 'VicPanel1'
- Color = 49348607
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 10759173
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- object grid: TOvcTable
- Left = 14
- Top = 14
- Width = 495
- Height = 307
- LockedRows = 1
- TopRow = 1
- ActiveRow = 1
- RowLimit = 50
- LockedCols = 0
- LeftCol = 0
- ActiveCol = 0
- Access = otxNormal
- Adjust = otaCenterLeft
- BorderStyle = bsNone
- Color = clWhite
- ColorUnused = 49348607
- Colors.ActiveFocused = clWhite
- Colors.ActiveFocusedText = clWindowText
- Colors.ActiveUnfocused = clWhite
- Colors.ActiveUnfocusedText = clWindowText
- Colors.Locked = 12639424
- Colors.LockedText = clNavy
- Colors.Editing = clWhite
- Colors.EditingText = clNavy
- Colors.Selected = clHighlight
- Colors.SelectedText = clHighlightText
- Controller = OvcController1
- Ctl3D = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Verdana'
- Font.Style = []
- GridPenSet.NormalGrid.NormalColor = clBtnShadow
- GridPenSet.NormalGrid.SecondColor = clBtnHighlight
- GridPenSet.NormalGrid.Style = psSolid
- GridPenSet.NormalGrid.Effect = geBoth
- GridPenSet.LockedGrid.NormalColor = clBtnShadow
- GridPenSet.LockedGrid.SecondColor = clBtnHighlight
- GridPenSet.LockedGrid.Style = psSolid
- GridPenSet.LockedGrid.Effect = ge3D
- GridPenSet.CellWhenFocused.NormalColor = clBtnShadow
- GridPenSet.CellWhenFocused.SecondColor = clBtnHighlight
- GridPenSet.CellWhenFocused.Style = psSolid
- GridPenSet.CellWhenFocused.Effect = geBoth
- GridPenSet.CellWhenUnfocused.NormalColor = clBtnShadow
- GridPenSet.CellWhenUnfocused.SecondColor = clBtnHighlight
- GridPenSet.CellWhenUnfocused.Style = psSolid
- GridPenSet.CellWhenUnfocused.Effect = geBoth
- LockedRowsCell = OvcTCColHead1
- Options = [otoNoRowResizing, otoNoColResizing, otoTabToArrow, otoEnterToArrow, otoNoSelection, otoThumbTrack]
- ParentColor = False
- ParentCtl3D = False
- ParentFont = False
- ScrollBars = ssBoth
- TabOrder = 0
- TabStop = True
- OnActiveCellMoving = gridActiveCellMoving
- OnExit = gridExit
- OnGetCellData = gridGetCellData
- CellData = (
- 'fMCIntNet.OvcTCColHead1'
- 'fMCIntNet.ovcnAmountReceived'
- 'fMCIntNet.ovcsAccountNumber'
- 'fMCIntNet.ovcsBankName')
- RowData = (
- 17)
- ColData = (
- 235
- False
- True
- 'fMCIntNet.ovcsBankName'
- 120
- False
- True
- 'fMCIntNet.ovcsAccountNumber'
- 120
- False
- True
- 'fMCIntNet.ovcnAmountReceived')
- end
- end
- object VicPanel3: TPanel
- Left = 1
- Top = 362
- Width = 524
- Height = 33
- Align = alBottom
- BevelOuter = bvNone
- Color = 12639424
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -16
- Font.Name = 'Verdana'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- object vbOK: TVicButton
- Left = 372
- Top = 5
- Width = 63
- Height = 22
- Interval = 0
- FrameCount = 2
- Frame = 0
- Play = False
- Reverse = False
- Animated = False
- OnClick = vbOKClick
- end
- object vbCancel: TVicButton
- Left = 444
- Top = 5
- Width = 63
- Height = 22
- Interval = 0
- FrameCount = 2
- Frame = 0
- Play = False
- Reverse = False
- Animated = False
- OnClick = vbCancelClick
- end
- object vbPrint: TVicButton
- Left = 299
- Top = 5
- Width = 63
- Height = 22
- Interval = 0
- FrameCount = 2
- Frame = 0
- Play = False
- Reverse = False
- Animated = False
- OnClick = vbPrintClick
- end
- end
- end
- object OvcController1: TOvcController
- EntryCommands.TableList = (
- 'Default'
- True
- ()
- 'WordStar'
- False
- ()
- 'Grid'
- False
- ())
- EntryOptions = [efoAutoSelect, efoBeepOnError, efoInsertPushes]
- Epoch = 1900
- Left = 292
- Top = 325
- end
- object OvcTCColHead1: TOvcTCColHead
- Headings.Strings = (
- 'Name of bank/building society'
- 'Account number'
- 'Amount received')
- ShowActiveCol = False
- ShowLetters = False
- Adjust = otaDefault
- Color = 15785180
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Verdana'
- Font.Style = [fsBold]
- Margin = 4
- Table = grid
- TableColor = False
- TableFont = False
- TextHiColor = clBlack
- TextStyle = tsFlat
- UseASCIIZStrings = False
- UseWordWrap = False
- Left = 40
- Top = 324
- end
- object ovcsBankName: TOvcTCString
- Access = otxDefault
- Adjust = otaDefault
- AutoAdvanceChar = False
- AutoAdvanceLeftRight = False
- Margin = 4
- MaxLength = 127
- ShowHint = False
- Table = grid
- TableColor = True
- TableFont = True
- TextHiColor = clBtnHighlight
- TextStyle = tsFlat
- UseWordWrap = False
- UseASCIIZStrings = False
- OnChange = ovcpfSubExpDateChange
- Left = 84
- Top = 328
- end
- object ovcsAccountNumber: TOvcTCString
- Access = otxDefault
- Adjust = otaDefault
- AutoAdvanceChar = False
- AutoAdvanceLeftRight = False
- Margin = 4
- MaxLength = 127
- ShowHint = False
- Table = grid
- TableColor = True
- TableFont = True
- TextHiColor = clBtnHighlight
- TextStyle = tsFlat
- UseWordWrap = False
- UseASCIIZStrings = False
- OnChange = ovcpfSubExpDateChange
- Left = 112
- Top = 328
- end
- object ovcnAmountReceived: TOvcTCNumericField
- Access = otxDefault
- Adjust = otaCenterRight
- CaretIns.BitmapHotSpotX = 0
- CaretIns.BitmapHotSpotY = 0
- CaretIns.Shape = csVertLine
- CaretIns.Align = caLeft
- CaretIns.BlinkTime = 0
- CaretIns.CaretHeight = 10
- CaretIns.CaretWidth = 2
- CaretIns.IsGray = False
- DataType = nftReal
- EFColors.Disabled.BackColor = clWindow
- EFColors.Disabled.TextColor = clGrayText
- EFColors.Error.BackColor = clRed
- EFColors.Error.TextColor = clBlack
- EFColors.Highlight.BackColor = clHighlight
- EFColors.Highlight.TextColor = clHighlightText
- Margin = 4
- Options = []
- PadChar = ' '
- PictureMask = '#######.##'
- ShowHint = False
- Table = grid
- TableColor = True
- TableFont = True
- TextMargin = 2
- TextHiColor = clBtnHighlight
- TextStyle = tsFlat
- OnChange = ovcpfSubExpDateChange
- Left = 188
- Top = 324
- RangeHigh = {FF673C9EC97F00000000}
- RangeLow = {FF673C9EC9FF00000000}
- end
- end
-