Hi,
There is a SAY control. I need to change the font of this control to crossed out. How can I do this ?
Board index FiveWin for Harbour/xHarbour strikethrough font
#include "fivewin.ch"
FUNCTION Main()
local oForm, oFont, oSay, oGet, nValue := 0, oBot2
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-11.5 STRIKEOUT
DEFINE DIALOG oForm TITLE "Letra Tachada" FROM 05,15 TO 13,70
@ 05,05 SAY oSay PROMPT "Texto tachado:" SIZE 60,10 PIXEL FONT oFont OF oForm
@ 05,70 GET oGet VAR nValue PICTURE "9999" PIXEL OF oForm RIGHT
@ 20,40 BUTTON oBot2 PROMPT "&Boton" OF oForm SIZE 30,10 ACTION oForm:End() PIXEL
ACTIVATE DIALOG oForm CENTER ON INIT oGet:SetFocus()
RETURN nilThanks to CMSOFT, but I was asking a little bit about the wrong thing. I am interested in changing the font of an already existing SAY during operation, not during installation (). That's exactly what I can't do 
When you want to srikeout,
oSay:SetFont( oSay:oFont:StrikeOut( .t. ) )
oSay:Refresh()Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India