FiveTech Software tech support forums

... ::oFnt_Arial6V COLOR CLR_BLACK I want to center the text at half height of the page. Note: New Method for de Printer.PRG METHOD CmtrTextToVCenter( cText, oFont ) INLINE ; ( ::CmVertPhySize() / 2 ) + ::CmtrGetTextWidth( cText, oFont ) / 2 Thank you again, I can only comment on FWH classes. What ...

... ::oFnt_Arial6V COLOR CLR_BLACK I want to center the text at half height of the page. Note: New Method for de Printer.PRG METHOD CmtrTextToVCenter( cText, oFont ) INLINE ; ( ::CmVertPhySize() / 2 ) + ::CmtrGetTextWidth( cText, oFont ) / 2 Thank you again,

... for(i = 1; i < pi_iLongitud; i++ ) { vl_iLRC = vl_iLRC ^ pi_sTrama[i]; } return(vl_iLRC); }; // SEGUN FORO DE FIVEWIN function LRC( cText ) local nCheckSum := 0 local n for n = 1 to Len( cText ) nCheckSum = nXor( nCheckSum, Asc( SubStr( cText, n, 1 ) ) ) next return (nCheckSum) // ...

... ListCharSets() --> oRs - TableCollation( cTable ) --> cCollation - TableCharSet( cTable ) --> cCharSet * Nuevo: Nueva función FW_IsUtf8( cText, [@lAscii] ) --> lUtf8 en FWH\SOURCE\WINAPI\msgsapi.c * Nuevo: Nuevas funciones en FWH\SOURCE\FUNCTION\valtostr.prg: - FW_DateToUnix( dDate/tDateTime ...

... --> oRs ListCharSets() --> oRs TableCollation( cTable ) --> cCollation TableCharSet( cTable ) --> cCharSet * New function FW_IsUtf8( cText, [@lAscii] ) --> lUtf8 (msgsapi.c) * New functions: (valtostr.prg) FW_DateToUnix( dDate/tDateTime ) --> nUnixTimeStamp in MilliSeconds FW_UnixToDate( ...

... when Edit Item and copy / paste those 2 Lines, save 4 x Lines, it still display 2 Lines but using WORDWRAP :!: i do not know if you want, using CalcTextHeight(), a "fixed" PANEL Layout :?: --- in my modify CODE all Lines are displayed and Position of Panel3 will change    aDim = GetLabelDim( ...

function CalcTextHeight( hDC, cText, oFont, nWidth )   local oWnd, nHt   DEFAULT hDC := GetDC( 0 )   if HB_ISOBJECT( hDC )      oWnd     := hDC      hDC      := oWnd:GetDC()      DEFAULT oFont := ...

I found a function CalcTextHeight(cText, oFont, nWidth,oPanel) but it not run ok because the other panels are not refreshed https://i.postimg.cc/wvPFgmWd/test.gif #include "FiveWin.ch"//#include "ribbon.ch"//----------------------------------------------------------------------------//static ...

Otto wrote:Yes, see this line.

oGet[1]:bGotFocus := {|| (oGet[1]:cText := STR(VAL(oGet[1]:cText) *100,6), oGet[1]:Refresh(),oGet[1]:SelectAll()) }
Cesar, changed the GETs to character that you get the inputstyle you wanted.

Yes but nvar Is text array but i have numbers no texts

Yes, see this line.

oGet[1]:bGotFocus := {|| (oGet[1]:cText := STR(VAL(oGet[1]:cText) *100,6), oGet[1]:Refresh(),oGet[1]:SelectAll()) }
Cesar, changed the GETs to character that you get the inputstyle you wanted.

How create a border on barcode ?

@ x, y PRINT TO oPrn TEXT ctext AS BARCODE TYPE cBarcode ;
SIZE nlarghezza-nColonna, nAltezza CM BARSIZE nlarghezza ;
COLOR CLR_BLACK,nBackcolor

... lo llamaba así: RichEdit5( @xHecho, "Desvio", 9, 9, 30, 140 ) sin definir en el programa, lo que hice fue definir: Function RichEdit5( cText, cTitle, nTop, nLeft, nBottom, nRight ) local oFont, oDlg local hDLL local uTemp := If( ! Empty( cText ), cText, '' ) local lRich := .F., lGTF ...

I have this command nAlignOriz:= 1 nAlignVert:= 1 oPrn:Box(X, Y, Z, K,; { CLR_WHITE, 1 }, CLR_WHITE, ; {cText, oFnt, nColorFont, SetAlign(nAlignOriz,nAlignVert) }, ; "CM" ) the function Setalign returns the string "TL" but it doesn't print anything for me ...

... with English ( ANSI encoded text ), it is enough to use AnsiToWide, but for utf8 text, we need to convert to utf16le, using fwh functon StrToWide( cText, .f. ) or any other similar function.

... // <-- set to null --- as TEXT point to lpszNoteText try NIL or NULL DEFINE MAIL [<oMail>] ; [ SUBJECT <cSubject> ] ; [ TEXT <cText> ] ; [ TYPE <cType> ] ; and add a HTML as Attachment