FiveTech Software tech support forums

... ) ) ; VALID ( ReleaseDC( oSig:hWnd, hDC ), .T. ) return nil static function DoDraw( hDc, x, y, lPaint ) if ! lPaint MoveTo( hDC, x, y ) else LineTo( hDc, x, y ) endIf return nil

... 1062 //if nCol >= ::nWidth() - 13 if nCol >= ::nWidth() - ::nWide_P Line 2079 //MoveTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), 1 ) //LineTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), nHeight - 1 ) MoveTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), 1 ) LineTo( hDC, nWidth ...

... 1062 //if nCol >= ::nWidth() - 13 if nCol >= ::nWidth() - ::nWide_P Line 2079 //MoveTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), 1 ) //LineTo( hDC, nWidth - 12 + If( ::lPressed, 1, 0 ), nHeight - 1 ) MoveTo( hDC, nWidth - ::nWide_P - 1 + If( ::lPressed, 1, 0 ), 1 ) LineTo( hDC, nWidth ...

... nTop, nLeft, nBottom, nRight, oPen ) INLINE ; (::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),; MoveTo( ::hDCOut, nLeft, nTop ),; LineTo( ::hDCOut, nRight, nBottom,If( oPen != nil, oPen:hPen, 0 ) )) ...y listo. En tu PRG simplemente colocas el oprn:cmline(a,b,c,d) .... y listo. ...

... CLR_HRED ) local hOldPen local nTop, nLeft local nWidth, nHeight nTop := 5 nLeft := 5 nWidth := 90 nHeight := 90 MOVETO( hDC, nLeft-1, nTop-1) LINETO( hDC, nLeft + nWidth+1, nTop-1 ) LINETO( hDC, nLeft + nWidth+1, nTop+nHeight+1 ) LINETO( hDC, nLeft -1, nTop+nHeight+1 ) LINETO( hDC, nLeft-1, ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Antonio, This is not done with yWorks, but with a routine I wrote myself :D :D . It is done with LineTo() MoveTo(), ellipse(),.... functions :) Because I want some more complex(bigger) drawings, I was considering using yWorks. Here are some examples on the yWorks-site. ...

... hdc:= oDlgMain:GetDc() Local hPen := CreatePen( 0, 1, CLR_BLUE ) Local hOldPen := SelectObject( oDlgMain:hDc, hPen ) MoveTo( oDlgMain:hDC, x, y) LineTo( oDlgMain:hDC, x, y ) SelectObject( oDlgMain:hDc, hOldPen ) DeleteObject( hPen ) oDlgMain:ReleaseDc() return nil WHY NOT RUN ?

... regards, Otto static function DoDraw( hDc, x, y, lPaint, lReset, oPen ) if ! lPaint .or. ( lReset != nil .and. lReset ) MoveTo( hDC, x, y ) else LineTo( hDc, x, y, oPen:hPen ) endIf sysrefresh() return nil

... 75) // Se carga el lapices y se dibuja borde superior.. hOldPen := SelectObject( hDC, hPen1 ) MoveTo(hDc , aXY[ A][ 2] - 1, aXY[ A][ 3] ) LineTo(hDc, aXY[ A][ 2] - 1, aXY[ A][ 1] - 1 ) LineTo(hDc, aXY[ A][ 4] , aXY[ A][ 1] - 1 ) // Se destruyen objetos utilizados SelectObject( hDC, hOldPen ...

... } // Start x, y aPoints[2] := { 100, 400 } // End x, y hOldPen := SelectObject( hMemDC, hPen ) MoveTo( hMemDC, aPoints[ 1, 2 ], aPoints[ 1, 1 ] ) LineTo( hMemDC, aPoints[ 2, 2 ], aPoints[ 2, 1 ] ) hOldPen := SelectObject( hMemDC, hPen ) SelectObject( hMemDC, hOldPen ) RETURN NIL Best regards Uwe ...

... la funzione Drawlinee disegna sullo schermo una griglia usando dei cicli for next usando le funzioni fw: MoveTo( oWnd1:hDC, riga, colonna ) LineTo( oWnd1:hDC, rigafinale, colonnafinale) la funzione drawnumeri scrive nei quadrati della griglia delle cose con il comando @SAY problemi: 1 - ...

...   800   800   800   800   801   802 LFROMUSER              WINDOW.PRG      640 LHSCROLL                WINDOW.PRG      485  1114  1119  1135  1198 LINETO()               (function  in ?)    WINDOW.PRG     2465 LMAX                    WINDOW.PRG      487  1115  1124  1133 LMIN                   ...

Buenas, tengo una pregunta tonta. Cuando dibujo figuras con MovetTo() y LineTo() y PENS de cierto grosor (3,4,5 pixels o más), las esquinas me salen como redondeadas. He intentado definir el PEN con los parametros de estilo PS_ENDCAPS_SQUARE y/o PS_JOIN_MITER ...

Maestro, al anadir 20/01/2013 hbhpdf.lib me genera estos errores, que puede ser? ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ FiveWin for xHarbour 13.03 - Mar. 2013 xHarbour development power ³Ü ³ (c) FiveTech, 1993-2013 for Microsoft Windows 9X/NT/200X/ME/XP/Vist...