home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1999 September
/
Dpcb0999.iso
/
Business
/
Empire
/
_SETUP.1
/
EmpireBuilder.exe
/
0
/
RCDATA
/
TFMINVOICE
/
TFMINVOICE.txt
Wrap
Text File
|
1999-06-21
|
25KB
|
952 lines
object fmInvoice: TfmInvoice
Left = 65
Top = 89
HelpContext = 6
AutoScroll = False
Caption = 'Invoice'
ClientHeight = 432
ClientWidth = 698
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
FormStyle = fsMDIChild
Position = poDefaultPosOnly
Scaled = False
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDeactivate = FormDeactivate
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 49
Width = 698
Height = 199
Align = alClient
TabOrder = 0
object wwDBGrid1: TwwDBGrid
Left = 1
Top = 1
Width = 696
Height = 197
Selected.Strings = (
'INVNO'#9'9'#9'Invoice No'
'INVTYPE'#9'13'#9'Type'
'INVDATE'#9'10'#9'Date'
'NAME'#9'26'#9'Customer Name'
'CORDER'#9'10'#9'Order No '
'INVTOTAL'#9'9'#9'Total'
'PostedIndex'#9'6'#9'Posted'#9'F'
'PrintedIndex'#9'6'#9'Printed'#9'F'
'ACREF'#9'10'#9'Cust. Ref'#9'F'
'ADDRESS1'#9'30'#9'Address 1'#9'F'
'ADDRESS2'#9'30'#9'Address 2'#9'F'
'ADDRESS3'#9'30'#9'Address 3'#9'F'
'ADDRESS4'#9'30'#9'Post Code'#9'F'
'TELNO'#9'15'#9'Tel. No'#9'F'
'BANK'#9'10'#9'Bank Ref'#9'F'
'CARGROSS'#9'10'#9'Car. Gross'#9'F'
'CARNOMINAL'#9'10'#9'Car. Account'#9'F'
'CARRIAGE'#9'10'#9'Carriage'#9'F'
'CARTAX'#9'10'#9'Car. VAT'#9'F'
'CARTAXCODE'#9'1'#9'Car. VC'#9'F'
'DELADD1'#9'30'#9'Del. Address 1'#9'F'
'DELADD2'#9'30'#9'Del. Address 2'#9'F'
'DELADD3'#9'30'#9'Del. Address 3'#9'F'
'DELADD4'#9'30'#9'Del. Post Code'#9'F'
'DELNAME'#9'30'#9'Del. Name'#9'F'
'DELTELNO'#9'15'#9'Del. Tel No'#9'F'
'ITEMSDISC'#9'10'#9'Discount'#9'F'
'ITEMSNETT'#9'10'#9'Goods Value'#9'F'
'ITEMSSUB'#9'10'#9'Goods Nett'#9'F'
'ITEMSTAX'#9'10'#9'Goods VAT'#9'F'
'ITEMSTOTAL'#9'10'#9'Goods Total'#9'F'
'MARGIN'#9'10'#9'Margin'#9'F'
'NOTES'#9'40'#9'Notes'#9'F'
'PAYAMOUNT'#9'10'#9'Pay Amount'#9'F'
'PAYTYPE'#9'8'#9'Pay Type'#9'F'
'PROFIT'#9'10'#9'Profit'#9'F'
'SDTOPAY'#9'10'#9'Early Sett.'#9'F'
'SETTDAYS'#9'10'#9'Sett. Days'#9'F'
'SETTDISC'#9'10'#9'Sett. Disc'#9'F'
'TOTALDISC'#9'10'#9'Total Disc'#9'F'
'TOTALNETT'#9'10'#9'Total Nett'#9'F'
'TOTALSUB'#9'10'#9'Total Sub'#9'F'
'TOTALTAX'#9'10'#9'Total VAT'#9'F')
MemoAttributes = [mSizeable, mWordWrap, mGridShow]
TitleColor = clBtnFace
FixedCols = 1
ShowHorzScrollBar = True
Align = alClient
DataSource = DM1.dsMainInvoice
KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
PopupMenu = RCPopup
TabOrder = 0
TitleAlignment = taLeftJustify
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleFont.Style = []
TitleLines = 1
TitleButtons = True
UseTFields = False
OnCalcCellColors = wwDBGrid1CalcCellColors
OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
OnTitleButtonClick = wwDBGrid1TitleButtonClick
OnDblClick = wwDBGrid1DblClick
IndicatorColor = icBlack
OnTopRowChanged = wwDBGrid1TopRowChanged
OnCalcTitleImage = wwDBGrid1CalcTitleImage
ImageList = ImagesDM.GenralBM
TitleImageList = ImagesDM.GenralBM
end
end
object Panel2: TPanel
Left = 0
Top = 248
Width = 698
Height = 184
Align = alBottom
TabOrder = 1
object PageControl1: TPageControl
Left = 1
Top = 1
Width = 696
Height = 182
ActivePage = HeaderSheet
Align = alClient
TabOrder = 0
object HeaderSheet: TTabSheet
Caption = 'Customer'
object Bevel1: TBevel
Left = 4
Top = 4
Width = 681
Height = 125
Shape = bsFrame
end
object Label1: TLabel
Left = 387
Top = 16
Width = 83
Height = 16
Caption = 'Customer Ref.'
end
object Label2: TLabel
Left = 12
Top = 16
Width = 108
Height = 16
Caption = 'Customer Address'
end
object Label3: TLabel
Left = 12
Top = 44
Width = 100
Height = 16
Caption = ' .. .. .. ..'
end
object Label4: TLabel
Left = 12
Top = 72
Width = 100
Height = 16
Caption = ' .. .. .. ..'
end
object Label6: TLabel
Left = 16
Top = 104
Width = 61
Height = 16
Caption = 'Post Code'
end
object Label12: TLabel
Left = 387
Top = 44
Width = 27
Height = 16
Caption = 'Date'
end
object Label13: TLabel
Left = 387
Top = 72
Width = 116
Height = 16
Caption = 'Customer Order No.'
end
object Label19: TLabel
Left = 387
Top = 104
Width = 99
Height = 16
Caption = 'Transaction Type'
end
object wwDBEdit1: TwwDBEdit
Left = 516
Top = 12
Width = 120
Height = 24
Ctl3D = True
DataField = 'ACREF'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit2: TwwDBEdit
Left = 516
Top = 68
Width = 150
Height = 24
Ctl3D = True
DataField = 'CORDER'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit3: TwwDBEdit
Left = 516
Top = 41
Width = 95
Height = 24
Ctl3D = True
DataField = 'INVDATE'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit5: TwwDBEdit
Left = 134
Top = 12
Width = 230
Height = 24
Ctl3D = True
DataField = 'ADDRESS1'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 3
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit6: TwwDBEdit
Left = 134
Top = 41
Width = 230
Height = 24
Ctl3D = True
DataField = 'ADDRESS2'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 4
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit7: TwwDBEdit
Left = 134
Top = 68
Width = 230
Height = 24
Ctl3D = True
DataField = 'ADDRESS3'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 5
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit8: TwwDBEdit
Left = 134
Top = 97
Width = 121
Height = 24
Ctl3D = True
DataField = 'ADDRESS4'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 6
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit11: TwwDBEdit
Left = 516
Top = 97
Width = 150
Height = 24
Ctl3D = True
DataField = 'INVTYPE'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 7
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
end
object ItemsSheet: TTabSheet
Caption = 'Items'
object wwDBGrid2: TwwDBGrid
Left = 0
Top = 0
Width = 688
Height = 151
Selected.Strings = (
'STOCKCODE'#9'16'#9'Stock Code'
'DESC'#9'28'#9'Description'
'QUAN'#9'8'#9'Qty'
'PRICE'#9'10'#9'Price'
'DISC'#9'6'#9'Disc % '
'SUBTOTAL'#9'10'#9'Value'#9'F'
'TOTAL'#9'10'#9'Total'
'TAX'#9'10'#9'VAT'#9'F'
'MARGIN'#9'6'#9'Margin%'#9'F'
'PROFIT'#9'10'#9'Profit'#9'F')
MemoAttributes = [mSizeable, mWordWrap, mGridShow]
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
DataSource = DM1.dsLineInvoice
Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
PopupMenu = RCLinePopup
TabOrder = 0
TitleAlignment = taLeftJustify
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleFont.Style = []
TitleLines = 1
TitleButtons = True
UseTFields = False
OnCalcCellColors = wwDBGrid2CalcCellColors
OnCalcTitleAttributes = wwDBGrid2CalcTitleAttributes
IndicatorColor = icBlack
OnTopRowChanged = wwDBGrid2TopRowChanged
end
end
object TabSheet3: TTabSheet
Caption = 'Foo&ter'
object Bevel2: TBevel
Left = 4
Top = 2
Width = 677
Height = 149
Shape = bsFrame
end
object Label5: TLabel
Left = 182
Top = 125
Width = 12
Height = 16
Caption = '%'
end
object Label7: TLabel
Left = 212
Top = 12
Width = 99
Height = 16
Caption = 'Payment Method'
end
object Label8: TLabel
Left = 484
Top = 10
Width = 65
Height = 16
Caption = 'Total Value'
end
object Label9: TLabel
Left = 484
Top = 39
Width = 83
Height = 16
Caption = 'Total Discount'
end
object Label10: TLabel
Left = 484
Top = 68
Width = 56
Height = 16
Caption = 'Total Nett'
end
object Label11: TLabel
Left = 484
Top = 96
Width = 57
Height = 16
Caption = 'Total VAT'
end
object Label14: TLabel
Left = 484
Top = 125
Width = 71
Height = 16
Caption = 'Invoice Total'
end
object Label20: TLabel
Left = 212
Top = 42
Width = 101
Height = 16
Caption = 'Payment Amount'
end
object Label21: TLabel
Left = 12
Top = 41
Width = 25
Height = 16
Caption = 'VAT'
end
object Label16: TLabel
Left = 12
Top = 11
Width = 48
Height = 16
Caption = 'Carriage'
end
object Label15: TLabel
Left = 212
Top = 125
Width = 97
Height = 16
Caption = 'Early Settlement'
end
object Label22: TLabel
Left = 12
Top = 71
Width = 28
Height = 16
Caption = 'Total'
end
object Label17: TLabel
Left = 12
Top = 99
Width = 83
Height = 16
Caption = 'Settlmnt Days'
end
object Label18: TLabel
Left = 12
Top = 125
Width = 83
Height = 16
Caption = 'Settlmnt Disc.'
end
object wwDBEdit15: TwwDBEdit
Left = 92
Top = 9
Width = 90
Height = 24
Ctl3D = True
DataField = 'CARRIAGE'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit16: TwwDBEdit
Left = 92
Top = 36
Width = 90
Height = 24
Ctl3D = True
DataField = 'CARTAX'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit17: TwwDBEdit
Left = 92
Top = 66
Width = 90
Height = 24
Ctl3D = True
DataField = 'CARGROSS'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit18: TwwDBEdit
Left = 120
Top = 94
Width = 62
Height = 24
Ctl3D = True
DataField = 'SETTDAYS'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 3
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit19: TwwDBEdit
Left = 120
Top = 121
Width = 62
Height = 24
Ctl3D = True
DataField = 'SETTDISC'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 4
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit25: TwwDBEdit
Left = 581
Top = 7
Width = 90
Height = 24
Ctl3D = True
DataField = 'TOTALNETT'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 5
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit26: TwwDBEdit
Left = 581
Top = 35
Width = 90
Height = 24
Ctl3D = True
DataField = 'TOTALDISC'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 6
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit27: TwwDBEdit
Left = 581
Top = 63
Width = 90
Height = 24
Ctl3D = True
DataField = 'TOTALSUB'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 7
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit28: TwwDBEdit
Left = 581
Top = 91
Width = 90
Height = 24
Ctl3D = True
DataField = 'TOTALTAX'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 8
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit29: TwwDBEdit
Left = 581
Top = 121
Width = 90
Height = 24
Ctl3D = True
DataField = 'INVTOTAL'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 9
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit4: TwwDBEdit
Left = 321
Top = 8
Width = 129
Height = 24
Ctl3D = True
DataField = 'PAYTYPE'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 10
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit9: TwwDBEdit
Left = 360
Top = 38
Width = 90
Height = 24
Ctl3D = True
DataField = 'PAYAMOUNT'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 11
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdit10: TwwDBEdit
Left = 360
Top = 121
Width = 90
Height = 24
Ctl3D = True
DataField = 'SDTOPAY'
DataSource = DM1.dsMainInvoice
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 12
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
end
end
end
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 = 3
BtnOffsetVert = 3
BtnWidth = 64
BtnHeight = 43
TabOrder = 2
InternalVer = 1
object SpeedbarSection1: TSpeedbarSection
Caption = 'Main'
end
object BtnNew: TSpeedItem
BtnCaption = 'New'
Caption = 'Create New Invoice '
Hint = 'Create New Invoice |'
Spacing = 1
Left = 3
Top = 3
Visible = True
OnClick = BtnNewClick
SectionName = 'Main'
end
object BtnEdit: TSpeedItem
BtnCaption = 'Edit'
Caption = 'Edit Invoice Details'
Hint = 'Edit Invoice Details|'
Spacing = 1
Left = 67
Top = 3
Visible = True
OnClick = BtnEditClick
SectionName = 'Main'
end
object BtnSearch: TSpeedItem
BtnCaption = 'Search'
Caption = 'Search for an Invoice'
Hint = 'Search for an Invoice|'
Spacing = 1
Left = 123
Top = 3
Visible = True
OnClick = BtnSearchClick
SectionName = 'Main'
end
object BtnPrint: TSpeedItem
BtnCaption = 'Print'
Caption = 'Print Invoices'
Hint = 'Print Invoices|'
Spacing = 1
Left = 187
Top = 3
Visible = True
OnClick = BtnPrintClick
SectionName = 'Main'
end
object BtnPost: TSpeedItem
BtnCaption = 'Post'
Caption = 'Post Invoice'
Hint = 'Post Invoice|'
Spacing = 1
Left = 243
Top = 3
Visible = True
OnClick = BtnPostClick
SectionName = 'Main'
end
object BtnConvert: TSpeedItem
BtnCaption = 'Convert'
Caption = 'Convert quotation or proforma to invoice|'
Hint = 'Convert quotation or proforma to invoice|'
Spacing = 1
Left = 307
Top = 3
Visible = True
OnClick = BtnConvertClick
SectionName = 'Main'
end
object BtnCopy: TSpeedItem
BtnCaption = 'Copy'
Caption = 'Make a Copy'
Hint = 'Make a Copy|'
Spacing = 1
Left = 371
Top = 3
Visible = True
OnClick = BtnCopyClick
SectionName = 'Main'
end
object BtnDelete: TSpeedItem
BtnCaption = 'Delete'
Caption = 'Delete Transaction'
Hint = 'Delete Transaction|'
Spacing = 1
Left = 435
Top = 3
Visible = True
OnClick = BtnDeleteClick
SectionName = 'Main'
end
object BtnFilter: TSpeedItem
BtnCaption = 'Filter'
Caption = 'Filter'
Hint = 'Filter|'
Spacing = 1
Left = 563
Top = 3
Visible = True
OnClick = BtnFilterClick
SectionName = 'Main'
end
object BtnReports: TSpeedItem
BtnCaption = 'Reports'
Caption = 'Reports'
DropDownMenu = ReportsPopup
Hint = 'Reports|'
Spacing = 1
Left = 499
Top = 3
Visible = True
SectionName = 'Main'
end
object BtnClose: TSpeedItem
BtnCaption = 'Close'
Caption = 'Close'
Hint = 'Close|'
Spacing = 1
Left = 627
Top = 3
Visible = True
OnClick = BtnCloseClick
SectionName = 'Main'
end
end
object ReportsPopup: TRxPopupMenu
Alignment = paRight
LeftMargin = 30
Style = msOwnerDraw
OnDrawMargin = ReportsPopupDrawMargin
Left = 392
Top = 140
object Daybook1: TMenuItem
Caption = 'Daybook'
OnClick = Daybook1Click
end
object TakingsSummary1: TMenuItem
Caption = 'Takings Summary'
OnClick = TakingsSummary1Click
end
object CustomerHistory1: TMenuItem
Caption = 'Customer History'
OnClick = CustomerHistory1Click
end
object ProductHistory1: TMenuItem
Caption = 'Product History'
OnClick = ProductHistory1Click
end
end
object Sizer1: TSizer
Enabled = True
ExceptionAction = eaIgnoreControl
GridColumnSizing = gcSizeAllColumns
GridRowSizing = grSizeByDefaults
MinimumSize = True
NavigateOnEnter = False
OverrideParentFont = True
PerformAssertions = True
ShowAssertionFailures = False
StretchFonts = True
StretchImages = True
StretchOnResize = True
ThreadProcessing = False
Left = 464
Top = 117
ScreenWidth = (
800)
ScreenHeight = (
600)
OriginalFormWidth = (
706)
OriginalFormHeight = (
459)
OriginalFormLeft = (
65)
OriginalFormTop = (
89)
OriginalFormPPI = (
120)
OriginalClientWidth = (
698)
OriginalClientHeight = (
432)
end
object RCPopup: TRxPopupMenu
Style = msOwnerDraw
ShowCheckMarks = False
OnGetItemParams = RCPopupGetItemParams
Left = 284
Top = 137
object pmNew: TMenuItem
Caption = 'New'
OnClick = BtnNewClick
end
object pmEdit: TMenuItem
Caption = 'Edit'
OnClick = BtnEditClick
end
object N1: TMenuItem
Caption = '-'
end
object pmPrint: TMenuItem
Caption = 'Print'
OnClick = BtnPrintClick
end
object pmPost: TMenuItem
Caption = 'Post'
OnClick = BtnPostClick
end
object pmConvert: TMenuItem
Caption = 'Convert'
OnClick = BtnConvertClick
end
object pmCopy: TMenuItem
Caption = 'Copy'
OnClick = BtnCopyClick
end
object pmDelete: TMenuItem
Caption = 'Delete'
OnClick = BtnDeleteClick
end
object N2: TMenuItem
Caption = '-'
end
object pmChangeGridColour: TMenuItem
Caption = 'Change Grid Colour'
OnClick = pmChangeGridColourClick
end
end
object RCLinePopup: TRxPopupMenu
OnPopup = RCLinePopupPopup
Style = msOwnerDraw
ShowCheckMarks = False
OnGetItemParams = RCLinePopupGetItemParams
Left = 349
Top = 140
object pmStockAdjustment: TMenuItem
Caption = 'Stock Adjustment'
OnClick = pmStockAdjustmentClick
end
object pmStockItemPicture: TMenuItem
Caption = 'Stock Item Picture'
OnClick = pmStockItemPictureClick
end
object N3: TMenuItem
Caption = '-'
end
object pmLineGridColour: TMenuItem
Caption = 'Change Grid Colour'
OnClick = pmLineGridColourClick
end
end
end