ggiergiel@vmsa.oac.uci.edu (11/15/89)
Does anyone here know how to properly install custom StdTxMeas in QDprocs? Doing this in the way recommended by IM doesnt work. Here is an example (MacPlus, 6.03, ThinkPascal) Function Mwidth(b:bytes ... ; Var info: fontinfo):integer; begin Mwidth:= StdTxMeas(copy of the stuff above) end; BEGIN . getport(port); SetStdProcs(myproc); Myproc.txMeasProc:=@Mwidth; port.grafProcs:=@Myproc . END This runs fine except: A) it returns widths for font size implicitly passed in INFO which by the way seem to have nothing to do with the actual port font size, and B) causes QuickDraw to use this font size in all subsequent text drawing routines. Now I can recalculate widths using scaling factors from INFO, but what the heck do I do to get QUickDraw to use correct font size? It's unclear to me what is the function of Fontinfo record. IM is totally cryptic here. It never tells you what should be put there: copy of font output record or what? By the way: Am I supposed to call SWAPFONT myself? Any COMPETENT comments are welcomed. Jerzy Giergiel - GGIERGIEL@UCIVMSA.BITNET