FiveTech Software tech support forums

... CLASS TBtnBmp local nAdjustBorder := 0 local nWidth, nAdj, oCli local nRound := If( ::lRound, ::nRound, 0 ) local hWhitePen, hGrayPen, hOldPen add these line 1752 //if ! ::lPressedif !   ::lMOver         hGrayPen  := CreatePen (PS_SOLID,1,::nClrBorder)         hWhitePen ...

... the string on bold METHOD PaintPopupSection() CLASS TBtnBmp local nWidth, nHeight, hDC local hBlackBrush, hOldBrush local hDarkPen, hLightPen, hOldPen if ::oPopup != nil .and. GetClassName( GetParent( Self:hWnd ) ) = "TBAR" this for erase the arrow on the left of btnbmp I use this ...

... 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, nLeft-1, nTop-1) LINETO( hDC, nLeft + nWidth+1, ...

... 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 show the correct cursorposition-area ? regards ...

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( hPen ...

... aBoton, aTitBoton, nAnchoBoton) return NIL STATIC FUNCTION DibujaDias( hDC, oFont, aDias, aXY, aClrDias, bFestivos) Local HBROCHAANTERIOR, HOLDPEN Local A, aFESTIVOS:=ARRAY(0), nCOLOR:=0 Local hBrocha Local hPen1 Local hPen2 DEFAULT bFestivos := {|| ARRAY(0) } aFESTIVOS:=EVAL(bFestivos) ...

... ) oImg:Refresh() RETURN NIL // ------------------- STATIC FUNCTION DO_LINES( hMemDC, hPen, nPensize, nPenColor ) LOCAL 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[ ...

... lJustify; #else WORD wLen = hb_arrayLen( pAtext ); PHB_ITEM uElem = hb_itemNew( NULL ); #endif WORD wType, wcLen; LONG lValue; char * cValue; HPEN hOldPen, hPen; BITMAP bmp; WORD wRow, wCol; LONG lColor ; HBRUSH hBrush; LONG lTextColorOld = -1 ; // CeSoTech LONG lBkColorOld = -1 ; // CeSoTech PCLIPVAR ...

... the sub-dialog STATIC FUNCTION DRAWBOX( nTOP, nLEFT, hDC1, nRIGHT, nBOTTOM, nPEN, nCOLOR ) LOCAL hPen := CREATEPEN( PS_SOLID, nPEN, nColor ) LOCAL hOldPen := SELECTOBJECT( hDC1, hPen ) MOVETO( hDC1, nLEFT, nTOP ) LINETO( hDC1, nRIGHT, nTOP ) LINETO( hDC1, nRIGHT, nBOTTOM ) LINETO( hDC1, nLEFT, ...

... lJustify; #else WORD wLen = hb_arrayLen( pAtext ); PHB_ITEM uElem = hb_itemNew( NULL ); #endif WORD wType, wcLen; LONG lValue; char * cValue; HPEN hOldPen, hPen; BITMAP bmp; WORD wRow, wCol; LONG lColor ; HBRUSH hBrush; LONG lTextColorOld = -1 ; // CeSoTech LONG lBkColorOld = -1 ; // CeSoTech PCLIPVAR ...

... ) STATIC FUNCTION DRAWBOX ( nTOP, nLEFT, hDC, nLONG, nHIGHT, nPEN, nCOLOR ) LOCAL hPen := CREATEPEN( PS_SOLID, nPEN, nColor ) LOCAL hOldPen := SELECTOBJECT( hDC, hPen ) MOVETO( hDC, nTOP, nLEFT ) LINETO( hDC, nLong, 0 ) LINETO( hDC, nLONG, nHIGHT ) LINETO( hDC, 0, nHIGHT ) LINETO( ...

... Super:End() RETURN (Nil) //----------------------------------------------------------------------------// METHOD Paint() CLASS TRegla local hOldPen, n := 1,pos,j,posmm local hLightPen,hOldFont local texto,finmm WNDRAISED(::hWnd,::hDC) hOldPen = SelectObject( ::hDC, ::oPen:hPen ) hOldFont= ...

... ::nRGB1 = nRGB1 ::nRGB2 = nRGB2 //----------------------------------------------------------------------------// METHOD Paint() CLASS TBar local hOldPen, n := 1 local hDarkPen, hLightPen local oCtrl local aInfo := ::DispBegin() /* if ::l2007 Gradient( ::hDC, { 0, 0, ::nHeight / 4, ::nWidth },; ...

... nIndent, // unStyle, aItemStyles, aiBmp, aBitmaps, aMasks ) { LPDRAWITEMSTRUCT lp = ( LPDRAWITEMSTRUCT ) _parnl( 1 ); RECT tempRct; HPEN hDotPen, hOldPen; BOOL firstDraw = TRUE; int centerX, centerY, x, y; COLORREF rgbFore, rgbBack; BYTE szName[ 30 ]; int nLevel = _parni( 3 ); int nLevel1 = nLevel; ...

... , oGrayBrush) ACTIVATE WINDOW oWnd Return nil static Function DrawPolygon( hDC, aPoints, nColor ) local n local nLen := len( aPoints ) local hPen, hOldPen if nColor != nil hPen := CreatePen( PS_SOLID,1,nColor) hOldPen := SelectObject( hDC, hPen ) endif Moveto( hDC, aPoints[1,1], aPoints[1,2]) for ...