Jump to content


Photo

tNxMaskEdit6 - Design-Time fatal error (during alignment value change)


  • Please log in to reply
2 replies to this topic

#1 DbBanjo

DbBanjo
  • Members
  • 26 posts

Posted 24 May 2017 - 07:00 PM

Howdy Boki,

 

  I just noticed then attempting to alter the default value for the alignment in

a tNxMaskEdit6 (from taLeftJustify to another supplied value), a fatal error 

occurs within the Delphi 7 IDE.

 

  I've attached a screen shot.

 

                Thanks,

Attached Files



#2 Boki (Berg)

Boki (Berg)

    Boki (Berg)

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

Posted 24 May 2017 - 09:01 PM

Hi,

Try to change following procedure in NxEdit6.pas file (in Sources sub-folder):
 
procedure TNxMaskEdit6.SetAlignment(const Value: TAlignment);
begin
  FAlignment := Value;
  RecreateWnd;
end;
and also add next procedure in protected section of TNxMaskEdit6:

    procedure CreateParams(var Params: TCreateParams); override;

procedure TNxMaskEdit6.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or (ES_AUTOHSCROLL or ES_AUTOVSCROLL)
  	or WS_CLIPCHILDREN or AlignmentStyles[FAlignment];
end;
You will probably need to re-build package, or set Alignment from code to avoid crash.
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 DbBanjo

DbBanjo
  • Members
  • 26 posts

Posted 25 May 2017 - 07:46 PM

Howdy Boki,

 

  I understand & agree. 

 

  I just wanted to make you aware of the bug (for your next release).

 

                Thanks,

 






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users