object fmPrepayAccruals: TfmPrepayAccruals Left = 77 Top = 96 Width = 706 Height = 464 Caption = 'Prepayment/Accruals' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] FormStyle = fsMDIChild Position = poDefaultPosOnly Scaled = False Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object SpeedBar: TSpeedBar Left = 0 Top = 0 Width = 698 Height = 49 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] Position = bpCustom Options = [sbAllowResize, sbFlatBtns, sbGrayedBtns, sbTransparentBtns] BtnOffsetHorz = 5 BtnOffsetVert = 3 BtnWidth = 70 BtnHeight = 43 TabOrder = 2 InternalVer = 1 object SpeedbarSection1: TSpeedbarSection Caption = 'Main' end object BtnNew: TSpeedItem BtnCaption = 'Ne&w' Caption = 'Create a new template' Hint = 'Create a new template|' Spacing = 1 Left = 5 Top = 3 Visible = True OnClick = BtnNewClick SectionName = 'Main' end object BtnSave: TSpeedItem BtnCaption = '&Save' Caption = 'Save template details' Enabled = False Hint = 'Save template details|' Spacing = 1 Left = 75 Top = 3 Visible = True OnClick = BtnSaveClick SectionName = 'Main' end object BtnAbandon: TSpeedItem BtnCaption = '&Abandon' Caption = 'Abandon changes to template' Hint = 'Abandon changes to template|' Spacing = 1 Left = 145 Top = 3 Visible = True OnClick = BtnAbandonClick SectionName = 'Main' end object BtnDelete: TSpeedItem BtnCaption = '&Delete' Caption = 'Delete this template' Hint = 'Delete this template|' NumGlyphs = 2 Spacing = 1 Left = 215 Top = 3 Visible = True OnClick = BtnDeleteClick SectionName = 'Main' end object BtnPost: TSpeedItem BtnCaption = '&Post' Caption = 'Post this template to accounts' Hint = 'Post this template to accounts|' Spacing = 1 Left = 285 Top = 3 Visible = True OnClick = BtnPostClick SectionName = 'Main' end object BtnRemove: TSpeedItem BtnCaption = 'Re&move' Caption = 'Remove the account split line' Enabled = False Hint = 'Remove the account split line' Spacing = 1 Left = 355 Top = 3 Visible = True OnClick = BtnRemoveClick SectionName = 'Main' end object BtnClose: TSpeedItem BtnCaption = '&Close' Caption = 'Close window' Hint = 'Close window|' Spacing = 1 Left = 495 Top = 3 Visible = True OnClick = BtnCloseClick SectionName = 'Main' end object btnHelp: TSpeedItem BtnCaption = '&Help' Caption = 'View full help on this window' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888 888888888E6648888888888888E6688888888888888888888888888888446888 8888888886664888888888888E664888888888888E6664888888888888E66648 88888888888E6664888888844888E6664888886664888E66488888E666444666 4888888E6666666668888888EE6666668888888888EEEEE88888} Hint = 'View full help on this window|' Spacing = 1 Left = 425 Top = 3 Visible = True OnClick = btnHelpClick SectionName = 'Main' end end object Panel1: TPanel Left = 0 Top = 49 Width = 698 Height = 144 Align = alTop TabOrder = 0 object Bevel2: TBevel Left = 408 Top = 8 Width = 261 Height = 113 Shape = bsFrame end object Bevel1: TBevel Left = 12 Top = 8 Width = 345 Height = 113 Shape = bsFrame end object Label1: TLabel Left = 24 Top = 24 Width = 65 Height = 16 Caption = 'Description' end object Label2: TLabel Left = 24 Top = 56 Width = 28 Height = 16 Caption = 'Type' end object Label3: TLabel Left = 24 Top = 88 Width = 77 Height = 16 Caption = 'No of Months' end object Label4: TLabel Left = 420 Top = 24 Width = 70 Height = 16 Caption = 'Last Posted' end object Label5: TLabel Left = 420 Top = 56 Width = 85 Height = 16 Caption = 'No of Postings' end object Label6: TLabel Left = 420 Top = 88 Width = 58 Height = 16 Caption = 'Next Post' end object lbNew: TLabel Left = 280 Top = 24 Width = 5 Height = 19 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object EType: TEdit Left = 116 Top = 52 Width = 100 Height = 24 TabStop = False ParentColor = True ReadOnly = True TabOrder = 7 end object DBSENoOfMth: TwwDBSpinEdit Left = 116 Top = 84 Width = 41 Height = 24 Hint = 'Press F1 for help' HelpContext = 298 Increment = 1.000000000000000000 MaxValue = 12.000000000000000000 ParentShowHint = False ShowHint = True TabOrder = 2 UnboundDataType = wwDefault OnChange = DBSENoOfMthChange OnClick = DBSENoOfMthClick OnEnter = DBSENoOfMthEnter end object DBCDNomAcc: TwwDBComboDlg Left = 368 Top = 44 Width = 17 Height = 24 OnCustomDlg = DBCDNomAccCustomDlg ShowButton = True Style = csDropDown DataField = 'NOMACC' TabOrder = 5 UnboundDataType = wwDefault OnExit = DBCDNomAccExit end object DBCDDescription: TComboEdit Left = 116 Top = 20 Width = 145 Height = 24 Hint = 'Press F1 for help' HelpContext = 296 ClickKey = 16467 MaxLength = 15 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 OnButtonClick = DBCDDescriptionButtonClick OnEnter = DBCDDescriptionEnter OnExit = DBCDDescriptionExit end object DBCBType: TComboBox Left = 116 Top = 52 Width = 100 Height = 24 Hint = 'Press F1 for help' HelpContext = 297 ItemHeight = 16 Items.Strings = ( 'Prepayment' 'Accruals') ParentShowHint = False ShowHint = True TabOrder = 1 OnEnter = DBCBTypeEnter OnExit = DBCBTypeExit end object CENextPost: TCurrencyEdit Left = 572 Top = 84 Width = 80 Height = 24 HelpContext = 301 TabStop = False AutoSize = False DisplayFormat = '0.00' ParentColor = True ReadOnly = True TabOrder = 4 end object CENoOfPosting: TCurrencyEdit Left = 572 Top = 52 Width = 40 Height = 24 HelpContext = 300 TabStop = False AutoSize = False DecimalPlaces = 0 DisplayFormat = '0' ParentColor = True ReadOnly = True TabOrder = 3 end object DBELastPosted: TDateEdit Left = 572 Top = 20 Width = 80 Height = 24 HelpContext = 299 TabStop = False ButtonWidth = 0 NumGlyphs = 2 ParentColor = True ReadOnly = True YearDigits = dyFour TabOrder = 6 end end object wwDBGrid1: TwwDBGrid Left = 0 Top = 193 Width = 698 Height = 244 Hint = 'Press F1 for help' Selected.Strings = ( 'NOMACC'#9'14'#9'Account'#9'F' 'NomName'#9'30'#9'Account Name'#9'F' 'COMMENTS'#9'38'#9'Comments'#9'F' 'VALUE'#9'10'#9'Value') TitleColor = clBtnFace FixedCols = 0 ShowHorzScrollBar = True Align = alClient DataSource = dsSubPayAcc KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert] Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter] ParentShowHint = False PopupMenu = RCLinePopup ShowHint = True TabOrder = 1 TitleAlignment = taLeftJustify TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [] TitleLines = 1 TitleButtons = False UseTFields = False OnCalcCellColors = wwDBGrid1CalcCellColors OnColEnter = wwDBGrid1ColEnter OnColExit = wwDBGrid1ColExit OnEnter = wwDBGrid1Enter OnExit = wwDBGrid1Exit OnKeyUp = wwDBGrid1KeyUp IndicatorColor = icBlack OnTopRowChanged = wwDBGrid1TopRowChanged OnUpdateFooter = wwDBGrid1UpdateFooter end object taSubPayAcc: TwwTable ControlType.Strings = ( 'NOMACC;CustomEdit;DBCDNomAcc') SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 320 Top = 232 object taSubPayAccNOMACC: TStringField DisplayLabel = 'Account' DisplayWidth = 12 FieldName = 'NOMACC' Size = 10 end object taSubPayAccNomName: TStringField DisplayLabel = 'Account Name' DisplayWidth = 24 FieldName = 'NomName' LookupDataSet = DM1.taFinancial LookupKeyFields = 'ACREF' LookupResultField = 'NAME' KeyFields = 'NOMACC' Lookup = True end object taSubPayAccCOMMENTS: TStringField DisplayLabel = 'Comments' DisplayWidth = 40 FieldName = 'COMMENTS' Size = 40 end object taSubPayAccVALUE: TFloatField DisplayLabel = 'Value' DisplayWidth = 10 FieldName = 'VALUE' OnChange = taSubPayAccVALUEChange DisplayFormat = '0.00' end end object dsSubPayAcc: TwwDataSource DataSet = taSubPayAcc OnStateChange = dsSubPayAccStateChange Left = 284 Top = 320 end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = True OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 376 Top = 141 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 706) OriginalFormHeight = ( 464) OriginalFormLeft = ( 77) OriginalFormTop = ( 96) OriginalFormPPI = ( 120) OriginalClientWidth = ( 698) OriginalClientHeight = ( 437) end object RCLinePopup: TRxPopupMenu OnPopup = RCLinePopupPopup Style = msOwnerDraw ShowCheckMarks = False OnGetItemParams = RCLinePopupGetItemParams Left = 477 Top = 324 object pmNew: TMenuItem Caption = 'New' OnClick = BtnNewClick end object pmSave: TMenuItem Caption = 'Save' OnClick = BtnSaveClick end object pmAbandon: TMenuItem Caption = 'Abandon' OnClick = BtnAbandonClick end object pmDelete: TMenuItem Caption = 'Delete' OnClick = BtnDeleteClick end object pmPost: TMenuItem Caption = 'Post' OnClick = BtnPostClick end object pmRemove: TMenuItem Caption = 'Remove' OnClick = BtnRemoveClick end object N1: TMenuItem Caption = '-' end object pmChangeGridColour: TMenuItem Caption = 'Change Grid Colour' OnClick = pmChangeGridColourClick end end end