FiveTech Software tech support forums

... INIT ( hDC := GetDC( oSig:hWnd ) ) ; 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

... + If( ::oWnd:l3D, 3, 1 ) + ::nWide_P + 1 Line 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 ...

... + If( ::oWnd:l3D, 3, 1 ) + ::nWide_P + 1 Line 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 ...

... cTableName ) o oTable := ORM_Table():New( oConnection, cTableName ) Métodos: Navegación: First(), Last(), Next(), Prev(), Move(n), MoveTo( n ) Otros: Select( aFields ) Where( Field, [cOperator], Value ) OrderBy( field ) Get( [field ) XBrowse( [fieldlist] ) Edit() Sum(field), Max(field), ...

... cTableName ) or oTable := ORM_Table():New( oConnection, cTableName ) Methods: Navigation: First(), Last(), Next(), Prev(), Move(n), MoveTo( n ) Others: Select( aFields ) Where( Field, [cOperator], Value ) OrderBy( field ) Get( [field ) XBrowse( [fieldlist] ) Edit() Sum(field), Max(field), ...

... entre los PRG a compilar. METHOD CmLine( 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 ...

... hPen := CREATEPEN( PS_SOLID, 1.5, 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 ...

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. http://www.yworks.com/products/yfiles/gallery ...

... DrawLine( x, y ) Local 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 ...

... and oDlg:bLClicked . Best 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

... of MetroPanel's MoveBtn() method. We need to make this modification to the metropanel class. 1. Add new DATA bOnMoveBtn 2. At the end of METHOD MoveTo() add these lines if ::bOnMoveBtn != nil Eval( ::bOnMoveBtn, Self, oDragBtn ) endif 3) Your function : func OnMoveBtn( oMetro, oDragBtn ) if ...

... 1, aClrDias[ A][ 3]) //Oscuro nrgb(160,160, 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 ...

... aPoints[2][2], hOldPen aPoints[1] := { 100, 200 } // 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( ...

... PAINT Drawlinee() ; ON INIT Drawnumeri() 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 ...