[comp.sys.mac.programmer] HELP - how to Group items in PICT?

a_dent@fennel.cc.uwa.oz.au (02/03/91)

I have been trying to group parts of a picture together and get absolutely
zero effect.  The only doco I have found is in IM vol I regarding the PicComment
call and the PicLParen and PicRParen comments.

I have been checking the resulting PICTure in MacDraw II and MS Works.

The following procedure is one of many called within a list during the recording
of a PICT - in all other respects the PICT works fine...

 procedure CAnyAgent.DrawForScrap;
  var
   i: integer;
 begin
  PenSize(1, 1);
  HLock(handle(self));  { so we can dereference instance variables with "with" }
  agentStyle.setStyle;
  PicComment(PicLParen, 0, nil);
  for i := 1 to agentLines do
   with lines[i] do begin
     if len = 0 then
      leave;   {******* exit loop on first empty line *****}
     MoveTo(x, y);
     DrawText(pos, 0, len);
    end;
  PicComment(PicRParen, 0, nil);
  HUnLock(handle(self));
 end;  { CAnyAgent.DrawForScrap }


Many MANY Thanks in Advance..
Andy Dent                     A.D. Software phone 09 249 2719
Mac & VAX programmer          94 Bermuda Dve, Ballajura
a_dent@fennel.cc.uwa.oz       Western Australia  6066     
a_dent@fennel.cc.uwa.oz.AU (international)