FiveTech Software tech support forums

... librerias hbhpdf.lib y libhpdf.lib #include "FiveWin.ch" #include "harupdf.ch" Function Main() Local oPdf,Page,oImage,oFont,Font1,Font2,Font3 oPdf:=HPDF_New() HPDF_SetCompressionMode( oPdf, HPDF_COMP_ALL ) **HPDF_SetPassword( oPdf, 'jaime', 'alberto' ) page:=HPDF_AddPage(oPdf) ...

... works to build the font, but there are 9 fonts. Doing it, I have to save 63 values instead of 9 http://www.pflegeplus.com/IMAGES/Font1.jpg Best regards Uwe :lol:

... hacer un recuadro al viejo estilo clipper seria asi: @ 045, 005 GROUP OGRP TO 110, 150 LABEL " Acceso al sistema " OF oDLG pixel FONT FONT1 TRANSPARENT COLOR 0,RGB(227,232,234) con la sugerencia de alex

solo te falta ponerle lo mas importante, y que es un COMBOBOX, SAY, GET, OBOX, ETC

si quieres hacer un recuadro al viejo estilo clipper seria asi:

@ 045, 005 GROUP OGRP TO 110, 150 LABEL " Acceso al sistema " OF oDLG pixel FONT FONT1 TRANSPARENT COLOR 0,RGB(227,232,234)

saludos amigos, tengo el siguiente combo box @ 12, 280 SAY OSAY VAR "Documento" OF oDLG PIXEL FONT FONT1 SIZE 50,12 @ 10, 325 COMBOBOX aoObjetos[4] VAR TQUE ITEMS {"FACTURA","NOTA","CXC"} OF oDLG size 60,45 PIXEL FONT FONT1 ON CHANGE (oDlg:aEvalWhen(),aoObjetos:=DATO1(ODLG,aoObjetos,aoSay)) ...

Antonio

font1 = 4
font2 and 3 and 4 are 0

Richard

... jejejej bueno aqui un ejemplo por si no entendieron la pregunta @ 052, 010 SAY OSAY VAR "vende:" OF DIALOGO2 PIXEL COLOR CLR_BLUE FONT FONT1 @ 050, 055 COMBOBOX OBOX VAR Tven SIZE 30,40 OF DIALOGO2 PIXEL FONT FONT1 ITEMS {"SI","NO"} @ 067, 010 SAY OSAY VAR "Numero ...

... it is possible now, to save the used Font- and Color-values to a Txt-File, without using the Project-Database. Gradient1.bmp belongs to Font1.txt and so on .... New : A cross-connection to the Project-Database. Now You can load a Project, go back to the Start-Dialog, change the Values ...

... 197, 135, 40, 14 } I tried your solution but I had to define a font. Regards, Otto #include "fivewin.ch" PROCEDURE main() LOCAL oDlg, oFolder, font1 LOCAL cContrato:=space(13) ,; cNombre:=space(30) ,; cDireccion:=space(60) ,; cTelefono:=space(10) ,; cNotas:="" DEFINE FONT font1 NAME "ARIAL" ...

Natter, do you know how to get the font which was used in the rc-file.

oFolder:SetFont(font1)
oFolder:oFont2:=font2

Reghards,
Otto

oFolder:SetFont(font1)
oFolder:oFont2:=font2

... WRITESET=1 [Paint] HEADPIC=1 COLTEXT=2 LOGO1=LOGO1 BRUSH1=9 COLOR1=16711680 LOGO2=LGO2 BRUSH2=9 COLOR2=16711680 POSTOP=10 POSLEFT=70 [SysFonts] FONT1=Arial 10 .F. .F. FONT2=Arial 12 .F. .F. FONT3=Arial 14 .F. .F. [BarFonts] FONT4=Arial 21 .F. .F. FONT5=Arial 27 .F. .F. FONT6=Arial 29 .F. .F. ...

No seria mas practico si creas un array con los font y luego llamas el que quieras...? aFonts := { {Font1, font2, Font3, Fontn} }, nose, digo.

... Self ) endif return Self //----------------------------------------------------------------------------// METHOD IVHeader(nRowHeader,Font1,Font2,Font3) CLASS TInvoice ::say(nRowHeader , 20, "ArtNr" ,255,16777215,Font3,.T.) ::say(nRowHeader , 100, "Bezeichnung" ,255,16777215,Font1,.T.) ...