FiveTech Software tech support forums

... lReadOnly: lReadOnly can be toggled during runtime also. * function RoundBox() new 11th parameter nPenStyle, default PS_SOLID Syntax: RoundBox( hDC, nLeft, nTop, nRight, nBottom, ; nRound1, nRound2, nPenColor, nPenSize, ; nFillColor, nPenStyle ) * BtnBmp: Alpha Color support Support for alpha ...

... -> "c:\temp\salida.pdf" // la impresora por defecto no pueder ser PDF24 O PDFCREATOR (VIRTUALES) HB_FUNC_STATIC( STARTDOC ) { HDC hDC = (HDC) hb_parnl(1) ; LPDOCINFO sDoc = NULL; BOOL Result = FALSE ; if (hDC ) { sDoc = (LPDOCINFO) hb_xgrab(sizeof(DOCINFO)); sDoc->cbSize= ...

... fw_saytext function works well in fact it shows the initial message then if you see well I replaced the getlabeldim function with CalcTextHeight( hDC, cText, oFont, nWidth ) corrected by Nageswarao On your sample: oPaneltext cannot be the same name of a Panel I propose to usare oTExt MEMOTEXT ...

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

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

... oPanel2:hWnd, cMessage , oFont:hFont ) oPanel:setsize(aDim[ 1 ] + 60, aDim[ 2 ] + 50) oPanel:SetColor( "N/W*" ) oPanel:bPainted = { | hDC | DrawTextTransparent( hDC, cMessage , { 10, 10, aDim[ 1 ] + 100, aDim[ 2 ] + 100 }, 1 ) } ENDIF the Panel is modified and also the cMsg but the ...

I tried also with oPanel1:bPainted := { |hDc| Mostra_testo_boxed(cMessageMemo,oPanel1) } Function Mostra_testo_Boxed(cMessageMemo,oPanel1)   local oItem1,oItem2   local old_Height:= oPanel1:nBodyHeight   local nLineswidth:= 250   local ...

... height are stored in the rect structure. Please look for DT_CALCRECT in FWH *.prg source code for code examples yes, I allredy found DrawTextEx( ::hDC, cMessage , {nTop,nLeft,nBottom,nRight} ) but when I have the new cMessage ( edited) I must modify 3 controls on line 1. the TaskPanel 2. the first ...

... Mr.Otto said. I save an emf file and then reopen add the number and print it. We can modify an emf file in two ways: 1. Open the emf file into hDC and directly overprint the new text and save. But this has to be done by the programmer. 2. For very minor changes, like over-writing the number ...

...   cUniqueID := cUniqueID()       CursorWait()       DeleteDC( oDevice:hDC)      oDevice := NIL                            //cDoc, ...

If you want to paint on the dialog then you must use the hDC of the dialog, don't use the hDC of the control Function MakeBox(oControl,oDlgEdit)   local oBox   local aRect := GetClientRect(oControl:hWnd )   local ...

If you want to paint on the dialog then you must use the hDC of the dialog, don't use the hDC of the control

... local nhoja := 0 .... if lsigo PRINT oPrn NAME "Ventas de Formularios" PREVIEW MODAL if Empty( oPrn:hDC ) MsgStop( "Impresora Fuera de Linea" ) return nil endif .... while !CliFor->(Eof()) cMensaje := left(CliFor->RazonSoc,15) oMensaje:Refresh() ...

Dear Detlef,

Please modify this line in tget.prg this way:

FW_SayText( ::hDC, If( Empty( Eval( ::bSetGet ) ), "", Transform( Eval( ::bSetGet ), ::cPicture ) ), aRect, "R", ::oFont, ::nClrText )

now it works as you need

hi, Sign are from SQL-Server, which is configure as UTF-8, are paint into hDC "as it is" and display UTF-8 "same" Data display in XBROWSER show Sign "right" as DEWIN so "somewhere" must be a "translate" ... but ...