FiveTech Software tech support forums

... in file Word, io uso: oWord := CREATEOBJECT( "Word.Application" ) ... ... oSel = oWord:Selection ... ... oSel:Font:Size:=14 oSel:Font:Bold:=.t. oSel:Font:Color:=CLR_RED oSel:Font:name:="Nome Font" oSel:TypeText("Descrizione Riga 1"+CRLF) oSel:TypeText("Descrizione ...

October, November, December 2019 ====================== * Fix: TArratData: Bold font internally created in the method ShowTable() is not being released. Fixed. * Fix: TGraph: When :lViewVal is true and if ::aSeries[x,5] is nil raises runtime error. This happens ...

... nom_art, in1_art, in2_art, in3_art, in4_art FROM tab_art ORDER BY cod_art,nom_art") Define Font oFont2 Name "Tahoma" Size 0,-11 Bold DEFINE DIALOG oDlg ResName "BROW_3BG" TITLE "Stock Inventario General" //COLOR Rgb( 255, 0, 0 ), Rgb(185,220,255) Redefine ...

Local oFont, oDlg, oSay

Define font oFont name 'TAHOMA' SIZE 0,-12 bold

define dialog oDlg resource 'FATURAMENTO'

redefine say oSay id 4003 of oDlg font oFont

Dear friends, please help me. I have a screen designed in PELLES C and I need to set a bigger font for "TOTAL SUM" and a bold font too. How can this be done? Thank you very much in advance. I add the screen for visualisation. kind regards to all of you Ruth https://winhotel.space/winhotelat/wp-content/uploads/2019/12/artikeleingabe.jpg

Silvio

is possible create a hollow text vertical on a window ?

in sample hollow.prg
change to

DEFINE FONT oFont NAME "Arial" SIZE 0,-36 BOLD NESCAPEMENT 900

regards
Uwe

... in tgraph.prg. This class uses 9 fonts for 1) Title, 2) xFont, 3) yFont, 4) Legends, 5) Subtitle, 6) xTitle, 7) yTitle, 8 ) Values, 9) Values bold You may set the font you want for values using :SetFonts( { nil, nil, nil, nil, nil, nil, nil, oValueFont, oValueBold } )

... is closed #include "FiveWin.ch" FUNC MAIN() LOCAL oWnd, oBtn, oFontLarge, oSay DEFINE FONT oFontLarge NAME "Arial" SIZE 0, -24 BOLD DEFINE WINDOW oWnd @ 50, 50 SAY oSay PROMPT "Main-window" SIZE 250, 35 OF oWnd FONT oFontLarge PIXEL oSay:SetColor( 255, ) oSay:lTransparent ...

It is working now LOCAL oBrush1 := Brush():NewSolidBrush ( 255, 255, 128, 0 ) // Orange DEFINE FONT oFontLarge NAME "Arial" SIZE 0, -30 BOLD ITALIC // font and size oGraphics:DrawTextLFont( 50, 125, "mod harbour", oFontLarge, 30 , oBrush1, hDC ) oGraphics:DrawTextLFont( 80, ...

for now I resolve erase the ( and ) and insert font bold
it is a mathematical calculation to find the major late numbers and the weeks (or contests) late in the lottery game in Italy

...         Local oDlg_Fec,oFont_f1,oFont_f2,otitu2,oSay_f1,oSay_f2,oIni,oFin Local obtnsalir DEFINEFONT oFont_f1 NAME"TAHOMA"SIZE0,18  BOLD         DEFINEFONT oFont_f2 NAME'TAHOMA'SIZE0,22   BOLD DEFINEDIALOG oDlg_Fec SIZE500,250PIXELFONT oFont_f1 STYLE WS_CAPTION             @ 00,40SAY ...

... added the image-background-painting to the defined brushed title-text-section // on top DEFINE FONT oFontLarge NAME "Arial" SIZE 0, -60 BOLD ITALIC aPalBmp := oWnd:ReadImage( c_Pfad1 + "Marble.bmp", nil, .t. ) pBrush := GDIP_IMAGEBRUSH( aPalBmp[ 1 ] ) -- -- oMetro:Show() oMetro:bPainted ...

... #include "FileXLS.ch" static oFileXLS DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD CTITUL:=CTITUL+".XLS" XLS oFileXLS FILE &CTITUL AUTOEXEC CTITUL:="REPORTE"+".XLS" XLS oFileXLS FILE &CTITUL ...

... #include "FileXLS.ch" static oFileXLS DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD CTITUL:=CTITUL+".XLS" XLS oFileXLS FILE &CTITUL AUTOEXEC CTITUL:="REPORTE"+".XLS" XLS oFileXLS FILE &CTITUL ...

... FORMAT nFormat PICTURE '#,##0.00_);[Red](#,##0.00)' DEFINE XLS FORMAT nFormat1 PICTURE '0' DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 12 BOLD DEFINE XLS FONT nFont3 NAME "Times New Roman" HEIGHT 10 BOLD DEFINE XLS FONT nFont4 NAME "Times New Roman" HEIGHT 10 @ 1,1 ...