Jump to content


Photo

NextGrid Columns Editor... Access violation Error


  • Please log in to reply
8 replies to this topic

#1 chuqingsheng

chuqingsheng
  • Members
  • 4 posts

Posted 26 November 2020 - 07:59 AM

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.
 
 


#2 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 7,936 posts
  • Gender:Male

Posted 26 November 2020 - 11:13 AM

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.


boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Members Section: bms.bergsoft.net
Articles and Tutorials: dn.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#3 chuqingsheng

chuqingsheng
  • Members
  • 4 posts

Posted 26 November 2020 - 05:52 PM

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.



#4 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 7,936 posts
  • Gender:Male

Posted 26 November 2020 - 06:44 PM

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@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Members Section: bms.bergsoft.net
Articles and Tutorials: dn.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#5 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 7,936 posts
  • Gender:Male

Posted 26 November 2020 - 07:08 PM

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


boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Members Section: bms.bergsoft.net
Articles and Tutorials: dn.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#6 chuqingsheng

chuqingsheng
  • Members
  • 4 posts

Posted 28 November 2020 - 07:25 AM

 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. 


#7 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 7,936 posts
  • Gender:Male

Posted 30 November 2020 - 05:15 PM

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;

boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Members Section: bms.bergsoft.net
Articles and Tutorials: dn.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.

#8 chuqingsheng

chuqingsheng
  • Members
  • 4 posts

Posted 04 December 2020 - 04:53 PM

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;


#9 Boki (Berg)

Boki (Berg)

    Boki (Berg)

  • Forum Admin
  • PipPipPipPipPip
  • 7,936 posts
  • Gender:Male

Posted 09 December 2020 - 07:57 PM

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.


boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Members Section: bms.bergsoft.net
Articles and Tutorials: dn.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users