FiveTech Software tech support forums

... Paint before of distance_multiple() method oCiclo:Paint() oCiclo:Distance_Multiple(val(num1),val(num2),val(num3),val(num4),val(num5),nColor,oCiclo:apos) https://i.postimg.cc/2S1JYLbd/ciclometric.gif Now How I can to refill the area with transparent color ? https://i.postimg.cc/0yk3BHx4/refi.jpg ...

Another problem
If I created 11 object of my class and I wish show le lines then not run ok because on Paint method the class created the ::apos positions array , so when I call method distance_Multiple() not found ::apos I not understood why

while If I make only one Obj run ok

... nDistanza,2 ) ), , , ::oFont, .t.,.t., nil )return Nil --- as i say using 2 x FOR / NEXT Loop do NOT ::Say() in 1st Loop, only ADD(::aPos , ... ) this is 2nd Loop   nRaggio += 15   FOR nI = 1 TO nTotalNumbers      nY := INT( nRaggio * SIN(( ni-22.5) * step_fi ) ...

... OROTHER DEALINGS IN THE SOFTWARE.*/CLASS TCyclometric FROM TControl   CLASSDATA lRegistered AS LOGICAL   DATA nDiametro   DATA oFont,oBold   Data apos  AS ARRAY   METHOD New( nTop, nLeft, nWidth, nHeight, oWnd,nDiametro) CONSTRUCTOR   METHOD Init( hDlg )   METHOD End() ...

... an array with two element I save on it the coordinates to colorize https://i.postimg.cc/4d7Td1mk/hhh.png If I make For n= 1 to Len(aPos) nRow:= aPos[n][1] nCol:= aPos[n][2] oBrw1:aCols[nCol]:bClrStd := {|| { CLR_BLACK,IIf(oBrw1:nArrayAt=nRow, nColor1,CLR_WHITE) } } next it colorize ...

... se quedaría seleccionado el texto que me interesa, pero no, no hace nada. Las coordenadas las he guardado tanto con ::GetRow()/::GetCol como con ::aPos[1]/aPos[2], es decir en pixeles y en lineas/columna, ordenando el array {row_inicio,colum_izquierda,row_final,colum_derecha},pero no funciona. ...

Hi Guys, I used to print a form using something like this: Define Pen oPenDot style PS_DOT Width 1 Color CLR_BLACK Of oPrn oPrn:Line(aPos[1],aPos[2],aPos[1],aPos[2]+aTam[1],oPenDot) The same code in new FWH2104 is generating a completely different result, as you can see in the images bellow: ...

... 100 ) En este caso en la posición vertical 100 Sigo avanzando. Ahora ya puedo determinar donde esta y cuanto mide la barra de tareas de Windows aPos := GetCoors( FindWindow( "Shell_TrayWnd", "" ) ) Una pregunta Leandro, lo que tu necesitas realmente es posicionar el dialogo ...

... a tag, you write it < Same with > and > If you're writing code to render an attribute in a tag, you can escape a quote with ' (single quote) or " (double quote) Just that should be enough Replace those in any input you're printing

Saludos, con la ayuda del colega Armando Laguna http://forums.fivetechsupport.com/viewtopic.php?f=6&t=37611#p224906 HEADER oGraph:Print(oPrn,aPos[1],aPos[2],aSiz[1],aSiz[2]), pude usar oReport para imprimir una grafica y sus data, la idea fue en el Header hacer la impresion de la grafica, ...

... me hacia falta, lo que no tenia idea era como agregar la grafica en el reporte, pero creo que esto es lo que necesitaba HEADER oGraph:Print(oPrn,aPos[1],aPos[2],aSiz[1],aSiz[2]) la parte de los datos para generar la grafica no tengo problemas ya que creo un xbrowse con un array al igual que tu, ...

... procedure RetornaRowColDoObj(oObj, nRow, nCol) /* */ local aPos, nLen if HB_IsObject(oObj) aPos := oObj:GetRect() if ValType(nRow) == 'N' nRow += aPos:nTop nCol += aPos:nLeft endif if (nLen := (GetSysMetrics(1)-(nRow+254))) ...

... procedure RetornaRowColDoObj(oObj, nRow, nCol) /* */ local aPos, nLen if HB_IsObject(oObj) aPos := oObj:GetRect() if ValType(nRow) == 'N' nRow += aPos:nTop nCol += aPos:nLeft endif if (nLen := (GetSysMetrics(1)-(nRow+254))) ...

nPathTemp function MsgFancy(oWnd, cTexto, aPos, oCor, lAguarda, lTransparente) local oDlg local oBtnClose, aTexto local oSay, lCenter local oImage, oLbx local lSaida:=.F., nCorFundoHTML := "#ffffcc" //azul claro lCenter := aPos == NIL ...

good this : local a, aPos --- a := ::oTooltip:GetSize() aPos = { nRow, nCol } aPos := ClientToScreen( ::hWnd, aPos ) if aPos[2]+a[1] > GetSysMetrics(1) aPos[2] := GetSysMetrics(0) - a[1] - 20 endif ::oToolTip:cHeader := nil//"Calendar" ...