Tom,
Try
If SpBtnBold.Down then Image.Canvas.Font.Style := [fsBold] ;

or 
Image.Canvas.Font.Style := Image.Canvas.Font.Style and
[fsBold]

etc

mick


Date: Wed, 25 Jul 2007 15:04:55 -0500
From: "Nesler, Thomas J" <[EMAIL PROTECTED]>
Subject: Changing a canvas's Style property to Bold and back
To: "Borland's Delphi Discussion List" <[email protected]>
Message-ID:
   
<[EMAIL PROTECTED]>
    
Content-Type: text/plain;    charset="us-ascii"

Hello!
 
I am creating a simple paint program for an application.  I
need to be
able to turn on and off the Bold property of the font.
 
Here is my code:
 
If SpBtnBold.Down then Image.Canvas.Font.Style := fsBold ;
 
When doing a syntax check I get this error message:
 
[Error] GraphWin.pas(356): Incompatible types: 'TFontStyles'
and
'TFontStyle'
 
What am I doing wrong?
 
Also, looking in the help text I see the style fsBold but I
don't know
how to 'UnBold' my font.  What should I use to reverse this
style?
 
Thanks in advance!
 
Tom Nesler
 
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi

Reply via email to