FiveTech Software tech support forums

... drawing a rectangle using functions like WndBoxClr, where you can specify the brush or pen color. Otto local hPen, oCli := ::GetCliRect() hPen = CreatePen( PS_SOLID, 1, nRGB( 255, 0, 0 ) ) WndBoxClr( ::GetDC(), 1, 1, oCli:nBottom - 2, oCli:nRight - 2, hPen ) DeleteObject( hPen )

... aPoints [1][1], aPoints [5][1], nil, nColor ) } or local hBru := CreateSolidBrush( nColor ) local hOld := SelectObject( ::hDC, hBru ) local hpen:=CreatePen(0,8,nColor) FillRect( ::hDC, { aPoints [1][1],aPoints [1][2],aPoints [2][1],aPoints [2][2] }, hBru ) SelectObject( ::hDC, hOld ) DeleteObject( ...

... lo visto PS_COSMETIC sólo pinta líneas solidas de un pixel de ancho. El color habrá que establecerlo con SetDCPenColor() o algo así porque con ExtCreatePen sólo se pinta en negro (al menos a mi). Pero no es problema que para eso utilizo el CreatePen() de toda la vida. Muchas gracias.

Es muy interesante la funcionalidad que queres hacer.
En la clase TGraph hay metodos que te pueden ser de utilidad
METHOD DrawBox( nTop, nLeft, nBottom, nRight, nColor )
METHOD DrawLine( nY, nX, nHigh, nWidth, nColor, lDotted )
...
MESSAGE CreatePen METHOD _CreatePen()
METHOD DeletePen()

The result using this function.
Maybe the bottomline is still missing

:hBtnShadowPen := CreatePen( PS_SOLID, 4, 255) // pensize = 4 and red lines



best regards
Uwe

... to much time, can You try adding this line :?: It seems the gray header / footer-lines will be black WITH OBJECT oBrw .. .. :hBtnShadowPen := CreatePen( PS_SOLID, 1, CLR_BLACK ) .. .. :CreateFromCode() END http://www.service-fivewin.de/IMAGES/Lines5.jpg best regards Uwe :D

... do case case nStyle == LINESTYLE_BLACK .or. nStyle == LINESTYLE_RAISED .or. nStyle == LINESTYLE_INSET ::hRowPen := CreatePen( If( ::nColorPen == nil, PS_NULL, PS_SOLID ), ::nSizePen, ::nColorPen ) case nStyle == LINESTYLE_DARKGRAY ::hRowPen := CreatePen( PS_SOLID, ...

... METHOD DrawEllipse( hDC, nRGBColor, n ) CLASS TRBtn local hOldBrush := SelectObject( hDC, GetStockObject( NULL_BRUSH ) ) local hPen := CreatePen( hDC, 1, nRGBColor ) DEFAULT n := -1 Ellipse( hDC, n, n, ::nWidth - 1 , ::nHeight - 1 , hPen ) SelectObject( ::hDC, hOldBrush ) DeleteObject( ...

... local a := GETCURSORPOS() // Left Top local nColor := GETPIXEL( hDeskTop, a[2] * 1.25 , a[1] * 1.25 ) local hDC := oDlgChild:GETDC() local 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, ...

... local hDeskTop := GETDC(0) local a := GETCURSORPOS() local nColor := GETPIXEL( hDeskTop, a[2], a[1] ) local hDC := oDlg:GETDC() local hPen := CREATEPEN( PS_SOLID, 1.5, CLR_HRED ) local hOldPen local nTop, nLeft local nWidth, nHeight Isn't it possible to modify the function GETCURSORPOS() to ...

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)...

DrawLine( 0,300 )... function 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( ...

... hBrocha ) MsgInfo("Parece que no se destruyo") ENDIF // Aqui se dibujan los bordes.... // UNO. se cargan los lapices... hPen1 := CreatePen(PS_SOLID, 1, aClrDias[ A][ 1]) //Claro nrgb(235,235,210) hPen2 := CreatePen(PS_SOLID, 1, aClrDias[ A][ 3]) //Oscuro nrgb(160,160, 75) // Se ...

Define on top : nPensize := 50 nPenColor := 255 hPen := CreatePen( 0, nPensize, nPenColor ) // ----- STATIC FUNCTION DRAWIMG( oImg, hDC, hPen, nPensize, nPenColor ) LOCAL nWidth := oImg:nWidth() LOCAL nHeight := oImg:nHeight() LOCAL hMemDC := CREATECOMPATIBLEDC( ...

... minimo. En mi version es usado para crear : bClrHeader is an array of 3 possible colors minimum. In my version is used to create: hHeaderPen := CreatePen( PS_SOLID, 1, aColors[ Min( 3, Len( aColors ) ) ] ) Pero hay que cambiar hGrayPen y hWhitePen. Son los que utilizan DrawVert y DrawHorz But ...