Path: utzoo!attcan!uunet!samsung!brutus.cs.uiuc.edu!rpi!image.soe.clarkson.edu!sunybcs!acsu.buffalo.edu!volaski
From: volaski@acsu.buffalo.edu
Newsgroups: comp.sys.mac.programmer
Subject: LDEF with multiple fonts
Message-ID: <13748@eerie.acsu.Buffalo.EDU>
Date: 25 Nov 89 19:39:05 GMT
Sender: news@acsu.buffalo.edu
Reply-To: volaski@acsu.buffalo.edu ()
Organization: Suny at Buffalo
Lines: 19

I got what I needed done without an LDEF (by using a PICT for display-only
info). 

However, I'm still curious as to why my TextFont doesn't work. Here's my code:

procedure DrawList;
  begin
   with lhandle^^ do
    begin
     theChar := cells^^[lDataOffset];
     aStr := theChar;
     Textfont(6);	{this line is ignored; everything appears in Geneva}
     with lRect do
     moveTo(left, bottom);
     drawstring(aStr);
    end;
  end;

Maurice