[futurebasic] Re: [FB] Full Carbon printing demo (Modified by Rich Love)

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : January 2004 : Group Archive : Group : All Groups

From: Rich Love <richlove@...>
Date: Sun, 25 Jan 2004 09:05:20 -0600
OK, I got it working now.
I can now select the font and size I want to print with.
I was using TEXT  _courier, 12, _italicBit%  in my main program before 
I started printing and that did not work.

The TEXT statement needs to be inside of FN MyPageDrawProc. That works.

Thanks to Steve Van Voorst for this tip.

Rich Love - Carnation Software
MacWise Terminal emulation for Macintosh
richlove@...
http://www.carnation-software.com
512 858-9234

On Jan 23, 2004, at 2:31 PM, Rich Love wrote:

> Darn, I thought the spelling error would fix it but no.
>
> Rich Love - Carnation Software
> MacWise Terminal emulation for Macintosh
> richlove@...
> http://www.carnation-software.com
> 512 858-9234
>
> On Jan 23, 2004, at 2:23 PM, Joe Lewis Wilkins wrote:
>
>> First observation, Rich, is that I believe you've misspelled 
>> "Courier", and that might be the problem.
>>
>> Joe Wilkins
>>
>> Rich Love wrote:
>>
>>> OK, now that I have the demo printing some sample text, how do I set 
>>> the font and size for the printed output.
>>> The standard TEXT font,size command does not work as shown below
>>>
>>>
>>> DIM AS CONTAINER gPrintText
>>> END GLOBALS
>>>
>>> local fn BuildNewWindow
>>> '~'1
>>> dim as long      untitledNum
>>> dim as Str255    wTitle
>>> dim as Handle  @ contentH
>>> dim as OSStatus  err
>>>
>>> wTitle      = "Untitled"
>>> untitledNum = fn NextNewWindowCount
>>> if ( untitledNum > 1 ) then wTitle += str$( untitledNum )
>>> window fn NextFBWindowNum, wTitle
>>>
>>> //  Set the font and size here (but it does not work)
>>> local fn GetFontNumber( fontName as Str255 )
>>> dim @ fontNum
>>> call GetFNum( fontName, @fontNum )
>>> end fn = fontNum
>>> text fn GetFontNumber( "Courrier" ), 8
>>>
>>>
>>> // invent some "text"
>>> gPrintText = "Test Line One"+ chr$(13) + chr$(10)
>>> gPrintText = gPrintText + "Test Line Two"+ chr$(13) + chr$(10)
>>> contentH = [@gPrintText]
>>>
>>> // attach it to the window as a WindowProperty
>>> err = fn SetWindowProperty( window( _wndRef ), _kMyAppSignature, ¬
>>>    _kMyDocContentProperty, sizeof( Handle ), @contentH )
>>>
>>> end fn
>>>
>>>
>>>
>>> Rich Love - Carnation Software
>>> MacWise Terminal emulation for Macintosh
>>> richlove@...
>>> http://www.carnation-software.com
>>> 512 858-9234
>>>
>>>
>>> --
>>> To unsubscribe, send ANY message to: 
>>> futurebasic-unsubscribe@...
>>>
>>>
>>
>> --
>>
>>
>
> --
> To unsubscribe, send ANY message to: 
> futurebasic-unsubscribe@...

--
To unsubscribe, send ANY message to: futurebasic-unsubscribe@...