Hi,
There is a SAY control. I need to change the font of this control to crossed out. How can I do this ?
#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
oSay:SetFont( oSay:oFont:StrikeOut( .t. ) )
oSay:Refresh()
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 43 guests