8 replies to this topic

[chuqingsheng]

I have install NextSuite 6 in Delphi 10.4. I put a nextgrid on form and double click the grid to open Columns editor . but I get 

Access violation at address 1D804C2B in module 'NxStandard6Run d10 4.bpl'. Read of address 000002E8.

 

 

[1D804C2B]{NxStandard6Run_d10_4.bpl} NxStdCtrls6.TNxToolPalette6.GetPaletteByText + $27

[1D804610]{NxStandard6Run_d10_4.bpl} NxStdCtrls6.TNxToolPalette6.Add + $3C

[50E341CA]{vcl270.bpl  } Vcl.ImgList.TCustomImageList.AddMasked (Line 592, "Vcl.ImgList.pas" + 20) + $5

[2F7A40DE]{NxGrid6Dsgn_d10_4.bpl} NxColumnsEditor6.TNxColumnsEditor6.AddButton (Line 145, "NxColumnsEditor6.pas" + 1) + $13

[2F7A445F]{NxGrid6Dsgn_d10_4.bpl} NxColumnsEditor6.TNxColumnsEditor6.AddIcon (Line 199, "NxColumnsEditor6.pas" + 11) + $10

[2F7A41A6]{NxGrid6Dsgn_d10_4.bpl} NxColumnsEditor6.TNxColumnsEditor6.AddButtons (Line 162, "NxColumnsEditor6.pas" + 1) + $12

[2F7A4628]{NxGrid6Dsgn_d10_4.bpl} NxColumnsEditor6.TNxColumnsEditor6.Create (Line 222, "NxColumnsEditor6.pas" + 6) + $5

[2F7AC2AF]{NxGrid6Dsgn_d10_4.bpl} NxGridReg6.TNxColumnsProperty6.OpenEditor (Line 471, "NxGridReg6.pas" + 5) + $12

[2F7AC19A]{NxGrid6Dsgn_d10_4.bpl} NxGridReg6.TNxColumnsProperty6.Edit (Line 445, "NxGridReg6.pas" + 2) + $3

[2F7AB6B9]{NxGrid6Dsgn_d10_4.bpl} NxGridReg6.TNxGridComponentEditor6.EditProperty (Line 245, "NxGridReg6.pas" + 7) + $5

[2105EDD4]{designide270.bpl} DesignEditors.TDefaultEditor.CheckEdit (Line 2739, "DesignEditors.pas" + 2) + $5

[2105EBA8]{designide270.bpl} DesignEditors.GetComponentProperties (Line 2654, "DesignEditors.pas" + 95) + $23

[2105F080]{designide270.bpl} DesignEditors.TDefaultEditor.Edit (Line 2785, "DesignEditors.pas" + 7) + $24

[2F7AB656]{NxGrid6Dsgn_d10_4.bpl} NxGridReg6.TNxGridComponentEditor6.Edit (Line 233, "NxGridReg6.pas" + 1) + $3

[2F7AB791]{NxGrid6Dsgn_d10_4.bpl} NxGridReg6.TNxGridComponentEditor6.ExecuteVerb (Line 261, "NxGridReg6.pas" + 3) + $5

[5289F07A]{vcldesigner270.bpl} VCLSurface.TVclDesignSurface.ComponentVerb (Line 2915, "VCLSurface.pas" + 3) + $B

[50E3D49A]{vcl270.bpl  } Vcl.Menus.TMenuItem.Click (Line 2605, "Vcl.Menus.pas" + 19) + $8

[50E3EC53]{vcl270.bpl  } Vcl.Menus.TMenu.DispatchCommand (Line 3562, "Vcl.Menus.pas" + 5) + $2

[50E3FEBA]{vcl270.bpl  } Vcl.Menus.TPopupList.WndProc (Line 4735, "Vcl.Menus.pas" + 4) + $E

[50CD6FA3]{vcl270.bpl  } Vcl.Graphics.FreeMemoryContexts (Line 7279, "Vcl.Graphics.pas" + 12) + $8

[50CFB3B0]{vcl270.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10113, "Vcl.Controls.pas" + 3) + $6

[50E3FE09]{vcl270.bpl  } Vcl.Menus.TPopupList.MainWndProc (Line 4710, "Vcl.Menus.pas" + 2) + $5

[50181450]{rtl270.bpl  } System.Classes.StdWndProc (Line 18021, "System.Classes.pas" + 8) + $0

[50E5B23F]{vcl270.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 11028, "Vcl.Forms.pas" + 23) + $1

[50E5B282]{vcl270.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 11058, "Vcl.Forms.pas" + 1) + $4

[50E5B5B5]{vcl270.bpl  } Vcl.Forms.TApplication.Run (Line 11196, "Vcl.Forms.pas" + 26) + $3

[0051E178]{bds.exe     } bds.bds (Line 222, "" + 13) + $2

 

 

I have install delphi 10.4 again. But still error.

 

 

[Boki (Berg)]

Hello,

 

Quite strange bug, not sure what can be wrong with a pretty basic string function. 

 

Do you maybe also have some other version of Delphi, just to try it there?

 

One thing that comes to my mind is that is there some older version of NextSuite on your system (if you used it before) and it makes conflict with the new files. Maybe you can do a search for Nx*.bpi files and see if they are located somewhere else too.

 

Maybe something of this can help.

[chuqingsheng]

I have delete all Nx*.bpi and bpl from disk. and reinstall NextSuite6 . but the Error still exist. Why?  In system it have Delphi 7 and Delphi 10.3 installed.  and Delphi 10.3 have same error.

[Boki (Berg)]

Hi,

 

I'm not sure why this happens. Can you also tell me which version do you use? You can find version inside NxConsts6.pas file (or if is possible right-click on NextGrid in design-time then pick Version option).

 

Can you tell me does other components works for you?

[Boki (Berg)]

And, also I'm wondering can you open the Views Editor? It uses same technique as Columns Editor.

[chuqingsheng]

 Views Editor work fine. 

 

Version in NxConsts6.pas

const

  { Versions }

  vrNextSuite = '6.6.0';

  vrNextSuiteDesc = vrNextSuite + ' (9.2020)';

  vrNextGrid = '6.6.0';

  vrNextDBGrid = '6.6.0';

  vrNextInspector = '6.6.0';

  vrNextLayout = '6.1.0';

  vrNextCollection = '6.5.0';

 

 

 

I install Delphi10.4 and NextSuite6 in other computer(windows 10 early version) . Columns editor works fine. But On my computer (Windows10 64bit version 10.0.19041)  is same error. 

[Boki (Berg)]

Hello,

 

Maybe is something related to the system. I'm not sure how to solve it.

 

One another solution can be if you add one more line to the next procedure inside NxColumnsEditor6.pas:

 

procedure TNxColumnsEditor6.AddButton(Palette: string;
  ComponentClass: TComponentClass; ImageIndex: Integer);
var
  MenuItem: TMenuItem;
begin
ShowMessage(IntToStr(ImageIndex)); // <----- New line
  with Self.Palette.Add(Palette, ComponentClass, ImageIndex) do
  begin
    ShowHint := True;
    Hint := ComponentClass.ClassName;
 
    { Populate "Convert To" }
    MenuItem := TMenuItem.Create(ConvertTo);
    MenuItem.Caption := ComponentClass.ClassName;
    MenuItem.OnClick := DoConvertMenuClick;
    MenuItem.ImageIndex := ImageIndex;
 
    ConvertTo.Add(MenuItem);
  end;
end;

[chuqingsheng]

I have add the new line . and get showmessage with 0.  

 

And I found in TNxToolPalette6.GetPaletteByText

 

 for i := 0 to Pred(FPalettes.Count) do   //<<-------------------this line cause the error. 

    if WideCompareStr(Palette[i].Caption, Text) = 0 then

    begin

      Result := Palette[i];

 

      { Done. }

      Exit;

    end;

[Boki (Berg)]

Hi,

 

Thank you for the test. I'm really not sure why it happens. I only suspect that maybe your Local Settings make some problems, but not sure anymore.