FiveTech Software tech support forums

If you call the function MLCount() you know before how many lines your memo has. DEFINE BRUSH oBrushshadow GRADIENT aGrad //shadow DEFINE BRUSH oBrushtext GRADIENT aGradtext //text nTotRows:= MLCount(Alltrim(cmessage),250) oPanel1 is a ttaskpanel //the shadow oItem1:=Tpanel():New( ...

... negra, aparece o fundo negro, independente da cor colocada para o fundo. Att., Junior Faça um TESTE, retire o SetDlgGradient e use o GRADIENT aGrad direto no DEFINE DIALOG... Diga o que ocorre. Obg. abs. Regards, saludos.

... "Apellido", ; "CargoArea" ; Sizes 250, 250, 250 ; ALIAS AliasRA autosort FASTEDIT LINES CELL font ofontBR // BACKGROUND aGrad HORIZONTAL colorxbrw( oRApertur, .f. ) WITH OBJECT oRApertur:Nombre :bOnPostEdit := { | o, x, k | RApertur->nombre := x } //PostEdit( o, x, ...

... 50,20,290,50 OF oDlg ; SIZE 300,238 PIXEL ; JUSTIFY .T.,.f.,.f.,.t. ; ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ; Font oFont; BACKGROUND aGrad VERTICAL oBrw:nStretchCol := 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 // anulo el doble color d los registros oBrw:lContrastClr := .f. ...

... OF oDlg ; SIZE 500,283 PIXEL ; JUSTIFY .T.,.f.,.f.,.t.,.t.,.t.,.t.,.t. ; ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ; BACKGROUND aGrad VERTICAL oBrw:nStretchCol := 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 // anulo el doble color d los registros oBrw:lContrastClr := .f. ...

... OF oDlg ; SIZE 500,283 PIXEL ; JUSTIFY .T.,.f.,.f.,.t.,.t.,.t.,.t.,.t. ; ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ; BACKGROUND aGrad VERTICAL oBrw:nStretchCol := 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 // anulo el doble color d los registros oBrw:lContrastClr := .f. ...

... OF oDlg ; SIZE 500,115 PIXEL ; JUSTIFY .T.,.f.,.t.,.f.,.t.,.t.,.t.,.t. ; ALIAS cAlias AUTOSORT LINES CELL NOBORDER ; BACKGROUND aGrad VERTICAL oBrw:nStretchCol := 2 oBrw:nRowHeight := 30 oBrw:nMarqueeStyle := 4 // anulo el doble color d los registros oBrw:lContrastClr := .f. ...

Antonio, I tried 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 ) ...

] corrected the position line Problem to refill with agradient With FillRectEx( ::hDC, aPoints, aGrad) https://i.postimg.cc/xT3CxpSJ/t9.png new code #include "fivewin.ch"#include "constant.ch"Function Test()      local oDlg,oFont,oBold  ...

CLASS TRibbonBar FROM TControl CLASSDATA lRegistered AS LOGICAL DATA oBold, oFont DATA aLeft DATA aPrompts DATA aDialogs DATA aSizes DATA aGrad DATA aGradFld DATA aGradOver DATA aGradHigh DATA aQuickRGrad DATA nQuickHigh INIT 32 <---- New METHOD Paint() CLASS TRibbonBar ... if ::aQuickRGrad ...

... I can to refill the area with transparent color ? https://i.postimg.cc/0yk3BHx4/refi.jpg I tried with FillRectEx( ::hDC, aPoints, aGrad)

aGradient := { ; { size1, clrStart1, clrEnd1 }, ; { size2, clrStart2, clrEnd2 }, ; .... { sizeN, clrStartN, clrEndN } [, lOrient] } All sizes are fractions less than 1 and total of all sizes should be 1.0 Optionsl lOrient: ...

... OF oDlg ; SIZE 712,289 PIXEL ; JUSTIFY .T.,.F.,.F.,.F.,.F.,.F.,.F.,.F. ; ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ; BACKGROUND aGrad VERTICAL quiero achicar el ancho de la columna 2 y he probado asi: left("Razonsoc",20) y no resulta. tambien asi oBrw:aCols[ 2 ]:nWidth ...

... * * * function AbmConsor() local napu local aBotones := {} local oDlg, oBrw, cAlias := cGetNewAlias( "CONSORC" ) local oBr, oFont local aGrad := ; { ; { 0.5, RGB( 193, 182, 174 ), RGB( 237, 234, 109 ) }, ; { 0.5, RGB( 237, 234, 109 ), RGB( 185, 170, 164 ) } ; } local acampos := {|| {' ...

... ; COLSIZES-10,-10,-10,-10,-10,-10,-10 OF oDlg ; SIZE 712,285 PIXEL ; JUSTIFY .T. ; ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ; BACKGROUND aGrad VERTICAL y por ultimo como agrego espacios al inicio del contenido de un campo? ejemplo. en un registro tengo un campo NIVEL que es numérico y ...