FiveTech Software tech support forums

... #include "FiveWin.ch" function Main() local oDlg, oFld, oFon DEFINE FONT oFon NAME "MS Sans Serif" SIZE 0, -14 BOLD DEFINE DIALOG oDlg TITLE "FiveWin Dynamic folders" ; FROM 5, 5 TO 20, 50 FONT oFon @ 0.5, 1 FOLDER oFld PROMPT "&xBase", "&And OOP", "&Power" ...

... Main() LOCAL oDlg, oBrush, oGroup, oFont DEFINE BRUSH oBrush FILE "..\bitmaps\bricks.bmp" DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 0,-8 BOLD DEFINE DIALOG oDlg NAME "Test" BRUSH oBrush REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ; FONT oFont PROMPT "Modified ...

... Main() LOCAL oDlg, oBrush, oGroup, oFont DEFINE BRUSH oBrush FILE "..\bitmaps\bricks.bmp" DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 0,-8 BOLD DEFINE DIALOG oDlg NAME "Test" BRUSH oBrush TRANSPARENT REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ; FONT oFont ...

... vMsg[04] := ::cLocal DB_ANALIS:DBSetOrder( 01 ) DB_DETPRO:SCOPE( ::cScope, ::cScope , 01 ) DEFINE FONT oFont NAME "Times New Roman" SIZE 0, -20 BOLD ITALIC DB_DETPRO:Relation( DB_PRODUC, { || DB_DETPRO:CODPRO }, "DETPRO" ) DEFINE Dialog ::oDlg Resource "DL_604_VTAPOS" Redefine DTPICKER ::oDpk ...

Hola,
Define un font...
..
..
..
DEFINE FONT oFntV NAME "Arial" SIZE 0,-4.5 BOLD NESCAPEMENT 900 OF oPrn

y luego :

oPrn:cmSay(9.5,0.6,"(1)En caso de mora, esta Letra de Cambio generará las tasas de interés compensatorio y moratorio más altas que", oFntV)
...

Salu2

... sequenses are found) , i got a message. This can not be the intention. I expect a construction as : DO WHIL oRtf:Find( Esc-sequens ON , .T. ) // Bold on nFrom := oRtf:GetPos() oRtf:ReplaceSel( .F. , "" ) oRtf:Find( Esc-sequens OFF , .T. ) // Bold Off nTo := oRtf:GetPos() oRtf:ReplaceSel( .F. ...

... FONT oFont NAME "Ms Sans Serif" SIZE 0, -12 DEFINE FONT oFont2 NAME "Courier new" SIZE 0, -12 DEFINE FONT oFont3 NAME "Ms Sans Serif" SIZE 0, -16 BOLD DEFINE DIALOG oDlg RESOURCE "DLG_LISPRO2" TITLE "Seleccione los productos para venta" FONT oFont REDEFINE GET oTotal VAR nTotal ID 109 OF oDlg ...

Alguna ayuda de como hacer el dialogo transparente con este codigo? DEFINE FONT oFont NAME "Arial" SIZE 0,-12 bold DEFINE BRUSH oBrush RESOURCE "fondox" // Fondox tiene el bmp de _ DEFINE DIALOG oDlg RESOURCE "Test" BRUSH oBrush TRANSPARENT REDEFINE CHECKBOX oCbx1 VAR lOk1 ID ...

... METHOD Activate( ) CLASS tNewRol Local oSelf := Self LOCAL oFont LOCAL oIcon Local oBmp DEFINE Font ::oFont Name 'Arial' Bold SIZE 0,-11 Define Window oSelf:oWnd Title oSelf:cTitle Menu oSelf:MakeMenu() COLOR CLR_BLACK, nrgb(128,200,240) ::PongaElTree( ) Activate Window ...

... ya que esta sintaxis es muy práctica y clara para emitir informes en excel desde el prg. DEFINE XLS FONT nFonTot NAME "Arial" HEIGHT 10 BOLD //letras detalle DEFINE XLS FORMAT nFormat PICTURE "#,##0" ..ETC XLS oFileXLS FILE "VENTAS.XLS" AUTOEXEC XLS COL 2 WIDTH 30 OF oFileXLS @1,1 XLS ...

... ) - 1 , ( nCol+oExcel:nColsCount())-1 ) oRange := oExcel:oSheet:Range(cRange) oRange:Font:Name := 'Tahoma' oRange:Font:Size := 10 oRange:Font:Bold := .T. oRange:Font:Color := rgb(0,0,150) oRange:Interior:Color := rgb(192,192,192) oRange:Borders():LineStyle := 1 oRange:Columns:AutoFit() Quizás ...

... ) - 1 , (nCol+oExcel:nColsCount())-1 ) oRange := oExcel:oSheet:Range(cRange) oRange:Font:Name := 'Tahoma' oRange:Font:Size := 10 oRange:Font:Bold := .T. oRange:Font:Color := rgb(0,0,150) oRange:Interior:Color := rgb(192,192,192) oRange:Borders():LineStyle := 1 oRange:Columns:AutoFit() De ...

Dear Maurilio, Be bold and courageous. Take your company's decision in a positive way. It may be a beginning for your better future. May be you are out of the job for a while but not for ever. Even I encountered this problem earlier. ...

... "" LOCAL lSave := .f. (cFile)->(DBSETORDER(2)) SELECT (cFile) (cFile)->(DBGOTOP()) DEFINE FONT oFont1 NAME "MS SANS SERIF" SIZE 0, -8 BOLD DEFINE ICON oIco RESOURCE "ricerca" DEFINE DIALOG oDlg RESOURCE "win" TITLE cTit FONT oFont1 ICON oIco REDEFINE BITMAP oBmp ID 101 OF oDlg RESOURCE ...

... ; // System menu de oDlg WS_MAXIMIZE ) // botón maximize habilitado y botón minimize deshabilitado DEFINE FONT aFont NAME "Arial" SIZE 0, -14 BOLD ITALIC DEFINE FONT oFont NAME "Arial Black" SIZE 0,-18 DEFINE FONT aFont1 NAME "Arial" SIZE 0, -12 BOLD ITALIC DEFINE WINDOW oDlg TITLE "Database ...