FiveTech Software tech support forums

Dear Enrico,

tbtnclr.prg modified as:

static Function PickColor(nColor,oControl)

many thanks for your feedback

... also with ::bPainted := { |hDC|FillRectEx( ::hDC, aPoints, aGrad) } or ::bPainted := { |hDC|FloodFill( ::hDC, 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, ...

... un tema es cambiar el color al control cuando obtiene el foco ( algo parecido a lo que obtenemos al aplicar la function SetGetColorFocus( <nColor> ) ), y otro tema es cambiar el color del fondo al texto que escribimos ( que lo podemos hacer tantas cuantas veces necesitemos para dar la ...

... un tema es cambiar el color al control cuando obtiene el foco ( algo parecido a lo que obtenemos al aplicar la function SetGetColorFocus( <nColor> ) ), y otro tema es cambiar el color del fondo al texto que escribimos ( que lo podemos hacer tantas cuantas veces necesitemos para dar la ...

... Making this .. run bad https://i.postimg.cc/SxdKLwbC/bu.png  // refill area of Polygon     hBrush1 := CreateSolidBrush( nColor )     hOld1:= SelectObject( hBrush1 )     aRect:= { aPoints [1][1], aPoints [2][1], aPoints ...

I insert a 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 ...

... := ChangeColor( oBrw, i )  Nages, give me error WITH OBJECT oBrw :nRowHeight := 22 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :nMarqueeStyle := MARQSTYLE_HIGHLWIN7 :lHscroll := .f. :l2007 := .F. :l2015 := .f. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing ...

... := ChangeColor( oBrw, i )  Nages, give me error WITH OBJECT oBrw :nRowHeight := 22 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :nMarqueeStyle := MARQSTYLE_HIGHLWIN7 :lHscroll := .f. :l2007 := .F. :l2015 := .f. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing ...

... END static function ChangeColor( oBrw, n ) return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) //for demo local nColor1 := CLR_HGREEN local nColor2 := CLR_HRED local ncolor3 := GetSysColor( 15 ) /* IF num<3 nColor ...

... ,'Matrícula','Arial',09 ,.F. , , , 7 , , , ,1) //METHOD Say( nRow, nCol, xValue , cFont , nSize , lBold , lItalic ,lUnderLine, nAlign, nColor, nFondo , nOrien , nStyle , cFormat ) CLASS TExcelScript Como que "explota" el ole y el error sale en cualquier parte, adentro de un ...

... la pérdida de recursos en las fuentes. * Clase TWindow, método Line( top, left, bottom, right, color, size ) Ahora el quinto parámetro "nColor" puede ser también "oPen/hPen". En este caso, el _ parámetro "size" debería ser NIL u omitido. * Corrección: El comando ...

I forgot to adjust the glow-effect-section ( 3D - look ) nlinetype 2 = glow FREE_LINE(Object, hDC, nTop, nLeft, nBottom, nRight, nLineType , nColor, nPensize, nTransp ) the used values with calculated size ( 10 = the given distance from border ) oImage:bPainted    := < |hDC|          nHeight ...

... := 0 oImg:oCursor := oHand oImg:blClicked := { | nCol, nRow | nPickRow := nRow, nPickCol := nCol,; FILLCOLOR(oImg, nPickRow, nPickCol, nColorSet ) } // ----------- FUNCTION FILLCOLOR( oImg, nRow, nCol, nColor ) LOCAL hDC := oImg:getDc() FloodFill( hDC, nRow, nCol, nil, nColor ) oImg:SaveToBmp( ...

... 100 % scalefactor other selections must be adjusted with a defined factor : local hDeskTop := GETDC(0) local a := GETCURSORPOS() // Left Top local nColor := GETPIXEL( hDeskTop, a[2] * nMonScale , a[1] * nMonScale ) http://www.service-fivewin.de/IMAGES/scale1.jpg regards Uwe

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