strikethrough font

[Natter]

Hi,

There is a SAY control. I need to change the font of this control to crossed out. How can I do this ?

[cmsoft]

Code: Select all  Expand view

#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 nil

[Natter]

Thanks 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

[nageswaragunupudi]

When you want to srikeout,

Code: Select all  Expand view

oSay:SetFont( oSay:oFont:StrikeOut( .t. ) )
oSay:Refresh()