[lazarus] StrPCopy bug
Shane Miller
SMiller1 at stvgb.org
Fri Jul 9 12:44:20 EDT 1999
1) I am on my work PC so I am not getting the "static link" error here at work.
2) Hard coding it so it says
Procedure Something(var msg); Message 1;
Procedure Something(var msg); Message 2;
Procedure Something(var msg); Message 3;
Procedure Something(var msg); Message 4;
still makes it crash, yet commenting out the last two and it'll compile.
Shane
>>> "Michael A. Hess" <mhess at miraclec.com> 07/09 11:34 AM >>>
Shane Miller wrote:
>
> This is interesting.
>
> I am using
> Procedure Something(var msg); Message LM_RESIZE;
> Procedure Something(var msg); Message LM_SHOW;
> Procedure Something(var msg); Message LM_DESTROY;
> Procedure Something(var msg); Message LM_FOCUS;
>
> in my TForms class.
>
> In LMessages.pp I declare
> LM_USER = $10;
> LM_RESIZE = LM_USER+1;
> LM_SHOW = LM_USER+15;
> LM_DESTROY = LM_USER+2;
> LM_FOCUS = LM_USER+6;
>
> When I have the last two commented out, it compiles. But if I uncomment the LM_DESTROY one, it crashes with
> Panic: Internal compiler error, exiting
> forms(52,5) Fatal: Internal error 9999
>
> Line 52 is the end of TForms class declaration.
>
> Thoughts?
You don;t think this has something to do with that can't link static
message with regards do lmessages unit to you?
What if you tried hard coding the numbers into the messages and don't
use the LM_DESTROY, etc.
--
==== Programming my first best destiny! ====
Michael A. Hess Miracle Concepts, Inc.
mhess at miraclec.com http://www.miraclec.com
_________________________________________________________________
To unsubscribe: mail lazarus-request at miraclec.com with
"unsubscribe" as the Subject
archives at http://www.miraclec.com/list_archives/lazarus
More information about the Lazarus
mailing list