object fmEditECCountryCode: TfmEditECCountryCode Left = 234 Top = 92 HelpContext = 725 AutoScroll = False Caption = 'EC Country Code' ClientHeight = 377 ClientWidth = 407 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 SpeedBar: TSpeedBar Left = 0 Top = 0 Width = 407 Height = 49 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] Position = bpCustom Options = [sbFlatBtns, sbGrayedBtns, sbTransparentBtns] BtnOffsetHorz = 3 BtnOffsetVert = 3 BtnWidth = 75 BtnHeight = 43 TabOrder = 0 InternalVer = 1 object SpeedbarSection1: TSpeedbarSection Caption = 'Main' end object BtnSave: TSpeedItem BtnCaption = '&Save' Caption = 'Save Product Group Details' Enabled = False Hint = 'Save product group details|' Spacing = 1 Left = 3 Top = 3 Visible = True OnClick = BtnSaveClick SectionName = 'Main' end object BtnAbandon: TSpeedItem BtnCaption = '&Abandon' Caption = 'Abandon Changes' Enabled = False Spacing = 1 Left = 78 Top = 3 Visible = True OnClick = BtnAbandonClick SectionName = 'Main' end object BtnClose: TSpeedItem BtnCaption = '&Close' Caption = 'Close' Spacing = 1 Left = 303 Top = 3 Visible = True OnClick = BtnCloseClick SectionName = 'Main' end object BtnDelete: TSpeedItem BtnCaption = '&Delete' Caption = 'Delete Product Group' Hint = 'Delete product group|' Spacing = 1 Left = 153 Top = 3 Visible = True OnClick = BtnDeleteClick SectionName = 'Main' end object BtnHelp: TSpeedItem BtnCaption = '&Help' Caption = 'Help' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888 888888888E6648888888888888E6688888888888888888888888888888446888 8888888886664888888888888E664888888888888E6664888888888888E66648 88888888888E6664888888844888E6664888886664888E66488888E666444666 4888888E6666666668888888EE6666668888888888EEEEE88888} ParentFont = False Spacing = 1 Left = 228 Top = 3 Visible = True OnClick = BtnHelpClick SectionName = 'Main' end end object wwDBGrid1: TwwDBGrid Left = 0 Top = 49 Width = 407 Height = 328 Selected.Strings = ( 'CODE'#9'12'#9'EC Code'#9'F' 'COUNTRY'#9'40'#9'EC Country'#9'F') TitleColor = clBtnFace FixedCols = 0 ShowHorzScrollBar = True Align = alClient DataSource = DM1.dsCountry KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert] 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 IndicatorColor = icBlack OnTopRowChanged = wwDBGrid1TopRowChanged end object wwdbePGCode: TwwDBEdit Left = 188 Top = 272 Width = 21 Height = 24 CharCase = ecUpperCase TabOrder = 2 UnboundDataType = wwDefault WantReturns = False WordWrap = False 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 = True Left = 308 Top = 237 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 415) OriginalFormHeight = ( 404) OriginalFormLeft = ( 234) OriginalFormTop = ( 92) OriginalFormPPI = ( 120) OriginalClientWidth = ( 407) OriginalClientHeight = ( 377) end object pmRClick: TRxPopupMenu OnPopup = pmRClickPopup Style = msOwnerDraw ShowCheckMarks = False OnGetItemParams = pmRClickGetItemParams Left = 224 Top = 225 object pmSave: TMenuItem Caption = 'Save' end object pmAbandon: TMenuItem Caption = 'Abandon' end object pmDelete: TMenuItem Caption = 'Delete' end object N5: TMenuItem Caption = '-' end object pmChangeGridColour: TMenuItem Caption = 'Change Grid Colour' OnClick = pmChangeGridColourClick end end end