FiveTech Software tech support forums

I need to print dotted lines but I not remember how I can make it with oprn object no report
an help please

I use
oPenTratt := TPen():New(PS_DOT, 1, CLR_HGRAY, oPrn )
oPrn:Line(aDes[1],aDes[2],aHas[1],aHas[2],oPenTratt)

Compiling... Harbour 3.2.0dev (r1506171039) Copyright (c) 1999-2015, http://harbour-project.org/ Compiling 'tsbutton.prg' and generating preprocessed output to 'tsbutton.ppo'... Lines 3892, Functions/Procedures 2 Generating C source output to 'tsbutton.c'... Done. .\..\include\hbsetup.ch(66) Warning...

Hello,

Meanwhile, I noticed what has been changed.

I have defined this : cLbx:nClrPane := CLR_HGRAY.

If the field is empty, nClrPane becomes white, if I put one blanc into the field, nClrPane becomes gray again.

In 15.08, nClrPane was always gray, even if the field was empty.

Vytas, This syntax is incorrect: REDEFINE GET oLand_Cover VAR LAND_COVER ID 1009 OF oEdit UPDATE VALID oEdit:oLand_Pos:setColor(CLR_HGRAY, CLR_HGRAY) It should be something like this: REDEFINE GET oLand_Cover VAR LAND_COVER ID 1009 OF oEdit UPDATE ; VALID (oLand_Pos:setColor(CLR_HGRAY, CLR_HGRAY), ....

The VALID clause must return a logical value:

VALID ( oEdit:oLand_Pos:setColor( CLR_HGRAY, CLR_HGRAY ), .T. )

With the current FWH version, what you want to do is already implemented and it is as easy as:

SetGetColorFocus( CLR_YELLOW ) // or whatever color you may want to use for the focused GET

Hi Again, What am I doing wrong? I have tried various variables in the two valid statements and cannot get anything to work. I searched the web without any luck in finding any sample code doing what I want to do. Thanks again, Vytas ... DEFINE DIALOG oEdit RESOURCE "ATTRIBUTES" REDEFINE SA...

If a get is readonly not is colorized as I wish for a sample : If I have for a sample a get @ nrow, ncol get aGet[1] var ix9 pict "9" PIXEL SIZE SIZEX,SIZEY OF oDlg NOBORDER FONT oFontNumeri UPDATE and then I call aGet[1]:setcolor(CLR_BLACK, CLR_HGRAY) it is colorize if I call the command ...

Mr.Antonio, I was trying to change the Disabled Button Text Color, But it is always taking the Disabled Text Color as CLR_HGRAY Line 1367 in METHOD PaintCaption() CLASS TBtnBmp needs to be modified as under. //nClr = If( ::IsEnabled(), ::nClrText, If( ::lDisColor, CLR_HGRAY, ::nClrTextDis ) ) nClr =...

how I can change a get on line when it is changed by user or update from a function called ? I have this get @ nrow, ncol get ax1 pict "9" PIXEL SIZE SIZEX,SIZEY OF oDlg NOBORDER CENTER ; VALID ax1 $ " 123456789" .and. Verifica_tutto(ax1,1,1,1) COLOR CLR_BLACK, CLR_HGRAY ; FONT o...

Buenas tardes, Os pongo una nueva versión compatible con usar wbrowse con oTree . Comentar que está implementado el cambiar el color del texto o fondo de una sóla columna asignándole un color o un codeblock, lo cual nos permite por ejemplo, que la columna importe se pinte en rojo si es negativo o ve...

Hola, En un mensaje anterior del que nadie comentó nada, dije que cuando asignaba un tooltip a un msgitem, ni salía el cursor dedo del ratón al ponerse encima ni mostraba el tooltip. Me he dado cuenta que es un bug en la clase msgitem. No funciona el tooltip, si no está definido una ACTION. DEFINE M...

Hola, Antes de esta versión tenía este código: DEFINE MESSAGE BAR oMsgprin OF oWnd PROMPT "Terminal "+; terminal+" de "+alltrim(str(aValor[3]))+" "+If(substr(aValor[5],1,1)=="D","*","")+" "+aValor[4]+" ["+M->oPublic:c...

Mr. Ukoenig, My second requirement is how to getting a certain amount of brightness from a base color: to make a function Get_MixColorBrightness() nBrightness: = Get_Brightness (CLR_HGRAY) nColor: = Get_MixColorBrightness(CLR_GREEN, nBrightness) // nColor will be green but with Brightness nBrightnes...

Hi Mr. Ukoenig and all: I would need to replace one color with another in a rgb color. EXAMPLE. If I have color CLR_HGRAY and I use ChangeColor(CLR_HGRAY, CLR_BLUE) I would expect to get something like a CLR_HBLUE result. That is, the "H" part of CLR_HGRAY (light) give light to CLR_BLUE Ch...

Hi, How can I get greek fonts in a dialogue? I have a very small sample here but I can not see the greek characters FUNCTION parts(nRc,ooDlg) *------------------------------------------- LOCAL aRc:={space(5),space(25),0,0,0,0,0,0,space(30),space(15),space(15),space(30)} local oDlg, oFont if !empty(o...