strikethrough font

strikethrough font

Postby Natter » Fri Jul 29, 2022 8:31 am

Hi,

There is a SAY control. I need to change the font of this control to crossed out. How can I do this ?
Natter
 
Posts: 1203
Joined: Mon May 14, 2007 9:49 am

Re: strikethrough font

Postby cmsoft » Fri Jul 29, 2022 12:02 pm

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
User avatar
cmsoft
 
Posts: 1285
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: strikethrough font

Postby Natter » Fri Jul 29, 2022 3:19 pm

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 :(
Natter
 
Posts: 1203
Joined: Mon May 14, 2007 9:49 am

Re: strikethrough font

Postby nageswaragunupudi » Fri Jul 29, 2022 4:49 pm

When you want to srikeout,
Code: Select all  Expand view
oSay:SetFont( oSay:oFont:StrikeOut( .t. ) )
oSay:Refresh()
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10619
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 43 guests