[lazarus] Patches to Shanes files
Shane Miller
SMiller1 at stvgb.org
Thu Jul 8 12:32:40 EDT 1999
hmmm...I was wrong. The strPCopoy still doesn't work.
Shane
>>> "Shane Miller" <SMiller1 at stvgb.org> 07/08 11:08 AM >>>
OK, here's the scoop.
Notice in gtkint.pp I had commented out all the strdispose functions. That's not good. :-)
Once I put those back in (for every StrPCopy there should be one) then the strpcopy seemed to work fine. However, then we get an error and it doesn't run.
It doees all the events then when trying to gtk_widget_show the menu bar it crashes! I moved the gtk_widget_show stuff out of twincontrol and put a InterfaceObject.IntSendMessage() call into TWinControl and now it crashes in GTKINT.PP when it tries to do the gtk_widget_show.
Any thoughts now?
Shane
>>> P Jean dit Bailleul <jeanditbailleulp at em.agr.ca> 07/08 10:25 AM >>>
At 09:53 08/07/99 -0500, you wrote:
>I did a
>writeln('Length of signal is '+Inttostr(Length(Signal)));
>and that came out correctly.
>
>So, what I did was this. I did a
>Writeln('Length of signal is '+Signal[0]);
>and it always came out with
>Length of signal is
try in the debugger to see the Signal[0]. if the length is 10, then it
*should* be #10
>Not sure how else to look at it....
>
>Shane
>
>
>>>> P Jean dit Bailleul <jeanditbailleulp at em.agr.ca> 07/08 9:20 AM >>>
>It seems that it is a problem a string length, not a problem of PChar. Can
>you check the real length of the string ([0] if it's short string). I don't
>know how FPC work with long string, in Delphi it's stored in [-1..0], but
>you can't read it directly.
>
>At 13:57 07/07/99 -0500, you wrote:
>>Didn't work.
>>I do this now.
>>
>>
>>procedure TCustomForm.Create(aowner : TComponent);
>>begin
>>stuff
>>
>>signal := #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
>>Signal := 'clicked';
>>InterfaceObject.SetCallBack(signal,Self);
>>end;
>>
>>and when it copies it from the string it received in the parameters to a
>pchar I still get the same crap. Though sometime's the PChar is equal to
>'clicke' instead of 'clicked'. After I set that one I set a few others and
>they are all screwed up.
>>
>>Shane
>>
>>
>>end;
>>
>>
>>>>> P Jean dit Bailleul <jeanditbailleulp at em.agr.ca> 07/07 1:29 PM >>>
>>At 13:21 07/07/99 -0500, you wrote:
>>>I display the stringvar and it has NO garbage init before OR after the
>>conversion, yet the newpchar does.
>>
>>Perhaps you have more than one #0 character in the string, if so, fill the
>>string with #0 characters and then copy data into it.
>>
>>>Shane
>>>
>>>
>>>>>> "Michael A. Hess" <mhess at miraclec.com> 07/07 1:09 PM >>>
>>>Shane Miller wrote:
>>>>
>>>> I have fixed the problem with the events using a char array (sort of)
>>>> by changing it to a PChar.
>>>>
>>>> Here's the problem, even using a pchar and doing..
>>>>
>>>> newpchar := StrAlloc(Length(StringVar)+1);
>>>> StrPCopy(newPChar,StringVar);
>>>>
>>>> I still get unwanted characters. Why is this? I'm not sure what the
>>>> problem is. I thought doing it this way would work.
>>>
>>>If the StringVar has garbage data at the end it will still be there
>>>after the conversion to PChar.
>>>
>>>I'll give you a hand looking at this when I get home this afternoon.
>>>
>>>--
>>>==== 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
>>>
>>>_________________________________________________________________
>>> To unsubscribe: mail lazarus-request at miraclec.com with
>>> "unsubscribe" as the Subject
>>> archives at http://www.miraclec.com/list_archives/lazarus
>>>
>>>
>>
>>
>>JDB
>>
>>les opinions et recommandations exprimées dans ce courrier sont ceux de
>>l'auteur, ils ne sont pas nécessairement endossés par Agritulture et
>>AgroAlimentaire Canada
>>--------------------------------------------------------------
>>Philippe JEAN DIT BAILLEUL
>>Agriculture & AgroAlimentaire Canada - Agriculture & AgriFood Canada
>>Email : JeanDitBailleulP at em.agr.ca
>>Web : http://res.agr.ca/swinenet/porcexpert/jeanditbailleulp
>>Tel : +1 (819) 565 9174 poste 251
>>Fax : +1 (819) 564 5507
>>
>>_________________________________________________________________
>> To unsubscribe: mail lazarus-request at miraclec.com with
>> "unsubscribe" as the Subject
>> archives at http://www.miraclec.com/list_archives/lazarus
>>
>>_________________________________________________________________
>> To unsubscribe: mail lazarus-request at miraclec.com with
>> "unsubscribe" as the Subject
>> archives at http://www.miraclec.com/list_archives/lazarus
>>
>>
>
>
>JDB
>
>les opinions et recommandations exprimées dans ce courrier sont ceux de
>l'auteur, ils ne sont pas nécessairement endossés par Agritulture et
>AgroAlimentaire Canada
>--------------------------------------------------------------
>Philippe JEAN DIT BAILLEUL
>Agriculture & AgroAlimentaire Canada - Agriculture & AgriFood Canada
>Email : JeanDitBailleulP at em.agr.ca
>Web : http://res.agr.ca/swinenet/porcexpert/jeanditbailleulp
>Tel : +1 (819) 565 9174 poste 251
>Fax : +1 (819) 564 5507
>
>_________________________________________________________________
> To unsubscribe: mail lazarus-request at miraclec.com with
> "unsubscribe" as the Subject
> archives at http://www.miraclec.com/list_archives/lazarus
>
>_________________________________________________________________
> To unsubscribe: mail lazarus-request at miraclec.com with
> "unsubscribe" as the Subject
> archives at http://www.miraclec.com/list_archives/lazarus
>
>
JDB
les opinions et recommandations exprimées dans ce courrier sont ceux de
l'auteur, ils ne sont pas nécessairement endossés par Agritulture et
AgroAlimentaire Canada
--------------------------------------------------------------
Philippe JEAN DIT BAILLEUL
Agriculture & AgroAlimentaire Canada - Agriculture & AgriFood Canada
Email : JeanDitBailleulP at em.agr.ca
Web : http://res.agr.ca/swinenet/porcexpert/jeanditbailleulp
Tel : +1 (819) 565 9174 poste 251
Fax : +1 (819) 564 5507
_________________________________________________________________
To unsubscribe: mail lazarus-request at miraclec.com with
"unsubscribe" as the Subject
archives at http://www.miraclec.com/list_archives/lazarus
_________________________________________________________________
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