FiveTech Software tech support forums

... Max( 0, nCol - ::GetTextWidth( cText, oFont ) ) CASE nPad == 2 // center nCol := Max( 0, nCol - ( ::GetTextWidth( cText, oFont ) / 2 ) ) ENDCASE TextOut( ::oPrn:hDCOut, nRow, nCol, cText ) IF oFont != nil oFont:DeActivate( ::oPrn:hDCOut ) ENDIF IF nClrText != NIL #IFDEF __HARBOUR__ SetTextColor( ...

... que se vean de forma "Transparente", como lo hace: oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),; SetTextColor( oBmp:hDC, CLR_BLACK ),; TextOut( oBmp:hDC, 20, 540, "Numero de Clientes:" ) } Pero necesito cambiarle, el color, el tamaño y la fuente, y poner varios textos, Constantes ...

... SIZE 500, 400 OF oWnd NOBORDER oBmp:bPainted = { || SetBkMode( oBmp:hDC, 1 ),; SetTextColor( oBmp:hDC, CLR_YELLOW ),; TextOut( oBmp:hDC, 50, 15, "Actualmente con nosotros" ) } //¿ Se puede cambiar el tamaño de la fuente ? ¿ Como se haría para que en otra parte ...

I am attempting to convert many old Clipper 87 printouts to Mod_Harbour. The original programmer utilized the IBM line / box characters found at around chr(179) through chr(218). I cannot figure out how to utilize the Courier New Regular" TTF font in Haru Pdf and produce those characters. Howev...

Is there any samples of printing to pdf using harupdf lib. I tried the TPdf print class from my newest version of Harbour but this does not work. I then created the code below by using the functions used in the class: function main() local hPdf := HPDF_New() local hPage := HPDF_AddPage( hPdf ) HPDF_...

Con Harbour, tienes que enlazar las 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', 'al...

Hello, I want to highlight a defined word inside a memofield from a selected record in xbrowse. Maybe a solution using < At > and < Textout > :?: @ 10,20 XBROWSE oBrw SIZE 580, -75 PIXEL OF oDlg ; COLUMNS "TOPICNO", "FORUM", "LIKE", "T_DELETE", ...

... hDC, oFont:hFont )for n := 1 to nLencLetra := substr( cTexto, n, 1 )nColor := SetTextColor( hDC, nRandom( CLR_WHITE ) )TextOut( hDC, 10, nLeft, cLetra )SetTextColor( hDC, nColor )nLeft += GetTextWidth( hDC, cLetra, oFont )nextSelectObject( ...

Coloring text in a string :

Here was a topic. Maybe a hint

viewtopic.php?f=31&t=31113&hilit=textout

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

Silvio,

Use ExtTextOut() instead of TextOut(), so you can specify the width and height

I changed the folder I was using to start hbmk2 to where the source code sits, and now am getting undefined instead of duplicates This is due, I guess, to not pulling in the correct library(ies). I added trace to see what was going on (thanks for that tip). Does this and the console listing below he...

Dear Antonio,
can you please help to Change this pseudocode

if isrtf( cText )
oRTF:print
else
TextOut( ::oPrn:hDCOut, nRow, nCol, cText )
endif

in valid FW code.
Thanks in advance
Otto

The problem we face there is that Windows TextOut() is used to paint the text and that function does not support such formatting. Yesterday I thought about painting twice, first in bold then again in no bold, but the bold parts should be turned ...

Hello, maybe we can extend method say Pseudocode if isrtf( cText ) oRTF:print else TextOut( ::oPrn:hDCOut, nRow, nCol, cText ) endif Best regards, Otto METHOD Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) CLASS VRD IF ::oPrn:hDC = 0 RETURN NIL ...