FiveTech Software tech support forums

... // centered title // // set font and colors FOR nCol := 1 TO FCOUNT() oSheet:Cells( 3, nCol ):Font:Size := 10 oSheet:Cells( 3, nCol ):Font:Bold := .t. oSheet:Cells( 3, nCol ):Font:Color:= 8388608 NEXT

... botón minimize deshabilitado local ofecha SET DATE FRENCH desde:= CToD(" / / ") hasta:= CToD(" / / ") DEFINE FONT oFont NAME "ARIAL" SIZE 0,-13.70 BOLD Sele 11 USE FACTURA iNDEX on factura->fecha to ddto set index to ddto DEFINE DIALOG oDlg1 from 10,35 to 20,70 STYLE nStyle COLOR CLR_BLUE,CLR_6 ...

... botón minimize deshabilitado local ofecha SET DATE FRENCH desde:= CToD(" / / ") hasta:= CToD(" / / ") DEFINE FONT oFont NAME "ARIAL" SIZE 0,-13.70 BOLD Sele 11 USE FACTURA iNDEX on factura->fecha to ddto set index to ddto DEFINE DIALOG oDlg1 from 10,35 to 20,70 STYLE nStyle COLOR CLR_BLUE,CLR_6 ...

... if opci00 = 1 store "Fecha : " + dtoc( datita ) to dati else store space(18) to dati endif DEFINE FONT oFont1 NAME "LUCIDA CONSOLE" SIZE 0, -12 BOLD DEFINE FONT oFont2 NAME "LUCIDA CONSOLE" SIZE 4, 14 if opci14 = 2 REPORT oReporte TITLE "E X T R A C T O S D E C U E N T A S" CENTER ; HEADER "Empresa ...

... USER // Define the fonts to be used DEFINE FONT oFnorm NAME "Courier New" SIZE 0, - 12 OF oPrn DEFINE FONT oFbold NAME "Courier New" SIZE 0, - 12 BOLD OF oPrn nRsp := oPrn:nVertRes() / 20 // Number of rows nCsp := oPrn:nHorzRes() / 40 // Number of columns oPrn:SetLandscape( ) nRow := 2 * nRsp ...

... oPrn:SetPortrait() //Ponemos la impresion en vertical PrnSetSize( 2100, 2970 ) //Tamaño de la pagina DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-7 BOLD OF oPrn DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-13 BOLD OF oPrn DEFINE FONT oFnt3 NAME "Arial" SIZE 0,-15 BOLD OF oPrn DEFINE FONT oFnt4 NAME "Arial" ...

... oSHEET:CELLS(4,15):VALUE="TOTAL" * FOR N=1 TO 15 oSHEET:CELLS(4,N):Font:Name:="ARIAL" oSHEET:CELLS(4,N):Font:Size:=12 oSHEET:CELLS(4,N):Font:bold:=.t. oSHEET:CELLS(4,N):BORDERS():LINESTYLE:=1 NEXT N * oSHEET:CELLS(REN,3):VALUE=TRANS(N01,"999,999,999.99") oSHEET:CELLS(REN,4):VALUE=TRANS(N02,"999,999,999.99") ...

... FROM USER ; NAME "Fivewin Labels" PREVIEW DEFINE FONT oFont NAME "ARIAL" SIZE 0,-10 OF oPrinter DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 BOLD OF oPrinter nLblWidth = oPrinter:nHorzRes() / HORZ_LABELS nLblHeight = oPrinter:nVertRes() / VERT_LABELS nLblWid := 06 // 2 nLblHei := 15 // 6 ...

... FUNCTION Main() BWCCRegister(GetResources()) PUBLIC oWnd DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-8 //BOLD DEFINE FONT oFont01 NAME "VERDANA" SIZE 0,-11 BOLD Inicio() cAppliDir := SFN2LFN(cAppliDir) DEFINE BRUSH oBrush COLOR CLR_WHITE DEFINE WINDOW oWnd ...

... Function Test Local oDlg, oFont1, oFont2 DEFINE FONT oFont1 NAME "Arial" SIZE 0,-36 NESCAPEMENT 90*10 DEFINE FONT oFont2 NAME "Arial" SIZE 0,-24 BOLD NESCAPEMENT 45*10 DEFINE DIALOG oDlg FROM 0,0 TO 20,40 COLOR CLR_BLACK,CLR_WHITE; TITLE "Textos rotados" ACTIVATE DIALOG oDLg CENTERED; ON PAINT( ...

Amigos Trato de pulir un diseñador visual en tiempo de ejecucion como hago para convertir los fonts de gets q tengo en un TWINDOWS a FONTS de la clase TPRINTER la idea es q se imprima lo q se tiene en la TWINDOWS que simula al papel en la respectiva proporcion en la vista previa con la clase tPRINTE...

... PRINT oPrn TITLE "CORTE DEL DIA" PREVIEW TO aPrntrDts[6] ELSE PRINT oPrn TO aPrntrDts[6] ENDIF DEFINE FONT oFntH NAME "Arial" SIZE 0,-16 BOLD OF oPrn DEFINE FONT oFntD NAME "Courier New" SIZE 0,-12 OF oPrn DEFINE FONT oFntF NAME "Arial" SIZE 0,-8 OF oPrn DEFINE BRUSH oBrush COLOR CLR_WHITE ...

... oPrn, oFont, oPen Local nLinI, nColI, nLinF, nColF PRINT oPrn NAME "Impresión en Vertical.." PREVIEW DEFINE FONT oFont NAME "Arial" SIZE 0, -10 BOLD OF oPrn DEFINE PEN oPen WIDTH 2 OF oPrn oPrn:SetPage(9) // A4 oPrn:SetPortrait() //Vertical PAGE nLinI := 0.90 nColI := 0.90 nLinF := 28.6 nColF ...

Goosfancito, DEFINE FONT oFont1 NAME "Courier New" SIZE 0,-10 DEFINE FONT oFont2 NAME "Arial" SIZE 0,-12 BOLD DEFINE FONT oFont3 NAME "Courier New" SIZE 0,-10 REPORT oReport NAME "Relatório Geral do Estoque" ; TITLE cEmpres,; "Relatório Geral do Estoque",; "",; "" ; FONT oFont1,; ...

You can do from code: @ 6.0, 9 SAY oSay[4] PROMPT "NOMBRE COMERCIAL:" OF oFol1:aDialogs[2] PIXEL @ 21, 9 GET oGet[36] VAR oDbf:COMER OF oFol1:aDialogs[2] ; PIXEL SIZE 170,10 @ 35, 9 CHECKBOX oChk2 VAR oDbf:COM_BOLD ; PROMPT " Negrita" OF oFol1:aDialogs[2] PIXEL @ 6,189 SAY oSay[7] PROMPT "Fila:" OF ...