[Lazarus] Need help about printer Custom Size

[Coppola Ing. Salvatore]

On 5/1/09, Martin Friebe <lazarus at mfriebe.de> wrote:
>  I have attached a patch with a few debugln in it. I don't know if they will
> show anything useful, since I have no idea what is going on.
>  If you apply it, you need to start lazarus with a logfile, to capture the
> output. (There is a command line switch, but I have to find it myself / I
> usually compile as none "window app", which means my Lazarus runs with a
> console-window showing all the output)
>
>  Also if you do this, test it with only one Synedit open. (You can compile a
> standalone app, with one SynEdit, and set the font from inside the app)

I applied the changes in sysnedit.pp and syneditextdrawer.pp
then did a make clean all

This happens when I build and start my test app.

In OI the font is set to Verdanana, size -12 (height 16), pitch fpFixed

F:\LazarusProjecten>test
SetStyle created font for idx=0 name=default handle=596
SetBasefont name=default  basefont.name=default Handle=596
SetBasefont name=default  NO pinfo
SetStyle created font for idx=1 name=default handle=3364
RecalcCharExtend for font name=courier / courier mono=False Handle=2360
SetStyle created font for idx=0 name=courier handle=2360
SetBasefont name=courier  basefont.name=courier Handle=2360
SetStyle created font for idx=1 name=courier handle=2492
RecalcCharExtend for font name=courier / courier mono=False Handle=2360
SetBasefont name=courier  NO pinfo
RecalcCharExtend for font name=courier / courier mono=False Handle=1760
SetStyle created font for idx=0 name=courier handle=1760
SetBasefont name=courier  basefont.name=courier Handle=1760
RecalcCharExtend for font name=Verdana / Verdana mono=False Handle=1720
SetStyle created font for idx=0 name=Verdana handle=1720
SetBasefont name=Verdana  basefont.name=Verdana Handle=1720


When I set the font (in my app) to Courier New, Normal, 10 pt, this is
the output:

RecalcCharExtend for font name=Courier New / Courier New mono=False Handle=2308
SetStyle created font for idx=0 name=Courier New handle=2308
SetBasefont name=Courier New  basefont.name=Courier New Handle=2308


If I change the font in Lazarus IDE, I see no output on console, or on logfile
(startlazarus --debug --pcp=bla)




>  If you use the same font, (and in normal, bold, italic) for Labels and/or
> StaticText, does it look correct there?

TLabel and TStaticText seems to work normally

>  Note, the spacing will be ok there, because neither of them forces the
> mono-spacing. But does it actually look like the expected Courier New, and
> is it truly monospaced?
Take a look at my attachments in my previous mail, to see for yourself
The normal_couriernew is how Courier New should look on my system.

Bart