FiveTech Software tech support forums

... TWBROWSE:_NLINEHEIGHT Antonio: lo tengo definido asi: define font oTipLet NAME "Courier" SIZE 10,14 // bold DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE DIALOG oDlg RESOURCE "CodLiqVar" . . . select _CoLiAux _CoLiAux->(DbGotop()) REDEFINE LISTBOX oLbx FIELDS ...

... TWBROWSE:_NLINEHEIGHT Antonio: lo tengo definido asi: define font oTipLet NAME "Courier" SIZE 10,14 // bold DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE DIALOG oDlg RESOURCE "CodLiqVar" . . . select _CoLiAux _CoLiAux->(DbGotop()) REDEFINE LISTBOX oLbx FIELDS ...

oRep:aFont already has two fonts built by the browse object oRep:aFont[ 1 ] is Tahoma size 0,-8 oRep:aFont[ 2 ] is Tahoma size 0,-8 bold I need to have another font I made oFontCopy := TFont():New("TAHOMA",0,-108,.F.,,180,,,,,,,,,,oRep:oDevice) //to print ...

... JOIN tab_fam AS b ON a.fam_art = b.cod_fam LEFT JOIN tab_mar AS c ON a.mar_art = c.cod_mar ORDER BY nom_art ") Define Font oFont2 Name "Tahoma" Size 0,-11 Bold DEFINE DIALOG oDlg ResName "BROW6BG" TITLE "TABLA DE PRODUCTOS" Redefine BtnGet oCampo Var cCampo Id ...

... JOIN tab_fam AS b ON a.fam_art = b.cod_fam LEFT JOIN tab_mar AS c ON a.mar_art = c.cod_mar ORDER BY nom_art ") Define Font oFont2 Name "Tahoma" Size 0,-11 Bold DEFINE DIALOG oDlg ResName "BROW6BG" TITLE "TABLA DE PRODUCTOS" Redefine BtnGet oCampo Var cCampo Id ...

... use colorfw new use tecnico new use acciones index accione1 new use corregir index corregi1 new dbgoTOP() DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE BRUSH oBr RESOURCE "beige2" // con esta definicion es lo mas cerca del medio que logro // DEFINE DIALOG oDlg ...

... cFileNoExt("CUSTOMER.DBF" ) ) USE CUSTOMER SHARED NEW ALIAS (cAlias) SET ORDER TO TAG FIRST GO TOP DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12 DEFINE DIALOG oDlg SIZE 750,300 PIXEL FONT oFont ; TITLE "XBrowse Incremental Filters" aFlds := aHdrs := HB_ATokens( ...

hi, i got this in *.LOG 14.05.2023 21:03:46: MAIN( 624 ) "Start" = "Start" 14.05.2023 21:04:29: EXCESS RELEASE OF FONT TAHOMA[ hFont : 0] ( nCount : 0 ) <-TFONT:END(303) <-TCONTROL:DESTROY(2318) <-TBTNBMP:DESTROY(1111) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1857) ...

hi, i got this in *.LOG 14.05.2023 21:03:46: MAIN( 624 ) "Start" = "Start" 14.05.2023 21:04:29: EXCESS RELEASE OF FONT TAHOMA[ hFont : 0] ( nCount : 0 ) <-TFONT:END(303) <-TCONTROL:DESTROY(2318) <-TBTNBMP:DESTROY(1111) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1857) ...

... := _ArtFor->Pedir*_ArtFor->Costo select ArtFor ArtFor->(DbSkip()) end select _ArtFor _ArtFor->(DbGoTop()) DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE BRUSH oBr RESOURCE "beige2" DEFINE DIALOG oDlg FROM 1, 30 TO 650, 1050 FONT oFont TITLE 'Generador de Orden ...

... use precFor index precFor1, precFor2, precFor3 new set relation to Cliente into CliFor,; to Articulo into ArtFor DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE BRUSH oBr RESOURCE "beige2" DEFINE DIALOG oDlg FROM 1, 30 TO 650, 1050 FONT oFont TITLE 'Precios' PIXEL @ 35, ...

... {{HBRUSH, 9437200}, {HBITMAP, 0}, {HBMPORGL, 0}, {NCOUNT, 6}, {NRGBCOLOR, 16777215}, {LSYSTEM, .T.}, {USOURCE, CLR_WHITE}}}, {OFONT, {{CFACENAME, TAHOMA}, {HFONT, 1242174205}, {HFONTOLD, 0}, {LBOLD, .F.}, {LITALIC, .F.}, {LUNDERLINE, .F.}, {LSTRIKEOUT, .F.}, {NINPHEIGHT, -20}, {NINPWIDTH, 0}, ...

Local cFont := "Tahoma"
Local cFontH := -14

DEFINE FONT oFontMenu NAME cFont SIZE 0, cFontH WEIGHT 300

... PACIENTE_FICHA_MOD DIALOGEX DISCARDABLE 6, 18, 555, 405 STYLE DS_SHELLFONT|WS_POPUP|DS_CONTEXTHELP|WS_CAPTION|WS_VISIBLE FONT 8, "Tahoma", 0, 0, 1 { CONTROL "", 101, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 1, 13, 80, 14 CONTROL "", 102, "Edit", ...

... .t. ) SetBalloon( .t. ) dbcloseall() use acciones index accione1 new use consorc index consorc1, consorc2 new GO TOP DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 DEFINE BRUSH oBr RESOURCE "beige2" DEFINE DIALOG oDlg FROM 1, 1 TO 656, 1444 FONT oFont TITLE 'Consorcios' PIXEL @ ...