🚀 go-pugleaf

On 19 Jan 2006 06:03:23 -0700, "JD" <nospam@nospam.com> wrote:
>Use the constructor and destructor instead.

Thanks for your feedback.

Moving the code to the constructor does solve the "TAnimatedTrayIcon
can only be placed on the Main Form"-error.

Unfortunately not all problems are solved. Now I still run into an
'access violation' exception as soon as I define the balloon members.

__fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner)
{
  MySystemTray=new TAnimatedTrayIcon(this);
  MySystemTray->ImageList=SysTrayImageList;
  MySystemTray->StaticIndex=NEUTRAL_AGENT;
  MySystemTray->StaticHint="xxxx"; 
  MySystemTray->BalloonIconType=itInformation;
  MySystemTray->OnBalloonClick=MyBalloonClick;
  MySystemTray->BalloonText="Text";
  MySystemTray->BalloonCaption="Caption";
  MySystemTray->Active=true;
}

The debugger shows the offending line in  system.pas (I've marked it
with ##### down below). Don't know if the code below is useful but
just be safe I posted it too even though the lay-out turns out to be a
bit messy.

procedure _LStrClr(var S);
{$IFDEF PUREPASCAL}
var
  P: PStrRec;
begin
  if Pointer(S) <> nil then
  begin
    P := Pointer(Integer(S) - Sizeof(StrRec));
    Pointer(S) := nil;
    if P.refCnt > 0 then
      if InterlockedDecrement(P.refCnt) = 0 then
        FreeMem(P);
  end;
end;
{$ELSE}
asm
  { ->    EAX pointer to str      }

  MOV     EDX,[EAX]                       { fetch str }
  TEST    EDX,EDX                         { if nil, nothing to do }
  JE      @@done
  MOV     dword ptr [EAX],0               { clear str }
  
  ####################################
  MOV     ECX,[EDX-skew].StrRec.refCnt    { fetch refCnt }
  ####################################
      
  DEC     ECX                             { if < 0: literal str }
  JL      @@done
  LOCK DEC     [EDX-skew].StrRec.refCnt        { threadsafe dec
refCount       }
  JNE     @@done
  PUSH    EAX
  LEA     EAX,[EDX-skew].StrRec.refCnt    { if refCnt now zero,
deallocate}
  CALL    _FreeMem
  POP     EAX
@@done:
end;
{$ENDIF}