hwgui-developers — Discussing of HwGUI development

[Hwgui-developers] google group of hwgui

[Leonardo M. <leo...@ho...>]

Hi,It would be nice to have a Hwgui group on google.This Sourceforge mail format the time is not enough posts.
Leonardo Machado  		 	   		  

[Hwgui-developers] Error activex Mingw

[Leonardo M. <leo...@ho...>]

Hi,Error compiling activex with HARBOUR SVN (night version) and HWGUI SVN
hbmk2: Harbour: Compilando módulos...hbmk2: Compilando...../../../../contrib/activex/c_activex.c: In function 'HB_FUN_HWG_CREATEACTIVEX':
../../../../contrib/activex/c_activex.c:85:40: warning: signed and unsigned type in conditional expression [-Wsign-compare]../../../../contrib/activex/c_activex.c:86:40: warning: signed and unsigned type in conditional expression [-Wsign-compare]In file included from ../../../../contrib/activex/htmlcore.c:40:0:../../../../contrib/activex/htmlcore.h:17:119: fatal error: mshtmhst.h: No suchfile or directorycompilation terminated.In file included from ../../../../contrib/activex/htmlfunc.c:16:0:../../../../contrib/activex/htmlcore.h:17:119: fatal error: mshtmhst.h: No suchfile or directorycompilation terminated.hbmk2[hbactivex]: Erro: Executando compilador C/C++. 1gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer  -DHWG_USE_POINTER_ITEM -W -Wall -pipe -Id:/devel/harbour/include -I../../../../include ../../../../lib/.hbmk/win/mingw/hhtml.c ../../../../lib/.hbmk/win/mingw/h_activex.c ../../../../contrib/activex/c_activex.c ../../../../contrib/activex/htmlcore.c ../../../../contrib/activex/htmlfunc.c
 		 	   		  

Re: [Hwgui-developers] Bug ESC key erase TAB object

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> Hi!
> Mr. Alexander you can verify this ?
> 

   Fixed.
   This was for multiline edit controls only. I still don't know the 
reason, looks like a strange winapi feature. I simply disabled handling 
of ESC for multiline edit controls if they are in tab.

Regards, Alexander.

[Hwgui-developers] ComboBox TAB key not works.

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
A Dialog with:

  @ 610,005 TAB oTab

   @ 060,030 get oEq01 VAR vEq01...
   @ 010,095 get ComboBox ... //Here TAB key go to out of oTab object.
   @ 080,095 get oVar VAR cVAR ...

If I press TAB key focus not change to oVar return go to out of TAB control.

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Bug ESC key erase TAB object

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
Mr. Alexander you can verify this ?

#include "hwgui.ch"
Function main
local oDlg, oTab, cGetA := ""
private oItemImg
  INIT DIALOG oDlg CLIPPER NOEXIT TITLE "X" AT 100,100 SIZE 640,480

   @ 10,10 TAB oTab ITEMS {} SIZE 400,200 OF oDlg

   BEGIN PAGE "TAB A" OF oTAB

    @  5,30 get oGetA Var cGetA size 100,30 STYLE ES_MULTILINE
+ES_AUTOVSCROLL +WS_VSCROLL +ES_WANTRETURN  //Press VK_ESC here and hiden
TAB object !!!

   END PAGE OF oTAB

   oDlg:Activate()

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] browse bcolorblock

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> Hi!
> I used this way, how should I use now?
> 
> oBrw:aColumns[n]:bColorBlock := {|| aColor }
> 
> aColor := 
> {hwg_VColor("007000"),hwg_VColor("FFFFFF"),hwg_VColor("FF000F"),hwg_VColor("FFFF00")}
> 

   It is correct, it should work. The problem may be in values, returned 
by hwg_VColor() - it was wrong before and was corrected due to your 
information.

Regards, Alexander.

Re: [Hwgui-developers] Fix for problem hwg_colorinfocus

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> Please add this is lines:
> ...Method New line 102
> ...
>    ::bChange := bChange
> 
>    ::aColorOld[1] := iif( tcolor = Nil, 0, ::tcolor )
>    ::aColorOld[2] := ::bcolor
>   
>    RETURN Self
> 

   Thanks, added.

> ...Method OnEvent line 256
>       IF lColorinFocus
>          IF msg == WM_SETFOCUS
>             //::aColorOld[1] := ::tcolor //coment out this line
>             //::aColorOld[2] := ::bcolor //coment out this line

   These two shouldn't be commented, because the :tColor, :bColor may be 
set to other values after creating the edit control and these new values 
must be saved.

Regards, Alexander.

[Hwgui-developers] Fix for problem hwg_colorinfocus

[Itamar M. L. J. L. <ita...@gm...>]

Please add this is lines:
...Method New line 102
...
   ::bChange := bChange

   ::aColorOld[1] := iif( tcolor = Nil, 0, ::tcolor )
   ::aColorOld[2] := ::bcolor

   RETURN Self

...Method OnEvent line 256
      IF lColorinFocus
         IF msg == WM_SETFOCUS
            //::aColorOld[1] := ::tcolor //coment out this line
            //::aColorOld[2] := ::bcolor //coment out this line
            ::Setcolor( tColorinFocus , bColorinFocus, .T. )
         ELSEIF msg == WM_KILLFOCUS
            ::Setcolor( ::aColorOld[1], ::aColorOld[2], .T. )
            ::tcolor := ::aColorOld[1]
            ::bcolor := ::aColorOld[2]
         ENDIF
      ENDIF

----->8----

Best regads,
Itamar M. Lins Jr.

[Hwgui-developers] Bug ESC key erase TAB object

[Itamar M. L. J. L. <ita...@gm...>]

Hi!

#include "hwgui.ch"
Function main
local oDlg, oTab, cGetA := ""
private oItemImg
  INIT DIALOG oDlg CLIPPER NOEXIT TITLE "X" AT 100,100 SIZE 640,480

   @ 10,10 TAB oTab ITEMS {} SIZE 400,200 OF oDlg

   BEGIN PAGE "TAB A" OF oTAB

    @  5,30 get oGetA Var cGetA size 100,30 STYLE ES_MULTILINE
+ES_AUTOVSCROLL +WS_VSCROLL +ES_WANTRETURN  //PRESS VK_ESC HERE!!!

   END PAGE OF oTAB

   oDlg:Activate()

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Bug color on get

[Itamar M. L. J. L. <ita...@gm...>]

Hi!

I isolate a small problem here!

#include 'hwgui.ch'

Function Main

Local oDlg, cAc01:=Space(5), cAc02:=0, cAc03:=Space(5), nX:=0

hwg_SetColorinFocus(.T.,0,11193702) //Works very nice ;-)
PREPARE FONT oFontP   NAME "MS Sans Serif" WIDTH 0 HEIGHT -16

INIT Dialog oDlg CLIPPER NOEXIT AT 0,0 SIZE 350,220  STYLE DS_CENTER

   @ 010,030 get oAc01 VAR cAc01 PICTURE "!!!!!" SIZE 100,30 valid
{||IIF(++nX<2,.F.,.T.)}

   @ 010,060 get oAc02 VAR cAc02 PICTURE "99999" SIZE 100,30  //here BLACK
color same if exit get not change color.

   @ 010,110 get oAc03 VAR cAc03 PICTURE "!!!!!" SIZE 100,30 //Move on gets
UP, DOWN and see the efect!

ACTIVATE Dialog oDlg

Return Nil


Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Browse COLOR

[Itamar M. L. J. L. <ita...@gm...>]

Hello!
Excuse my ignorance, because I did not know how to work with colors after
this modification Changelog 2370 I was used hwg_vColor() on Browse on
bcolorblock.

Now the colors used to browse a third option that is MSAcess (Microsoft
color) is not RGB and not HEX.
Now works fine with browse.
//here is color not RGB or HEX but MSAcess color
http://www.endprod.com/colors/

#define x_BLUE       16711680
#define x_DARKBLUE   10027008
#define x_WHITE      16777215
#define x_CYAN       16776960
#define x_BLACK             0
#define x_RED             255
#define x_GREEN         32768
#DEFINE x_GREEN_4       35584
#define x_GRAY        8421504
#define x_YELLOW        65535
#define x_ALICEBLUE  16775408
#DEFINE x_MINT       13237437

   oBrw:aColumns[n]:bColorBlock := {|| aCor }

   aCor := {x_RED,x_WHITE,x_WHITE,x_DARKBLUE}

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] browse bcolorblock

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
I used this way, how should I use now?

oBrw:aColumns[n]:bColorBlock := {|| aColor }

aColor :=
{hwg_VColor("007000"),hwg_VColor("FFFFFF"),hwg_VColor("FF000F"),hwg_VColor("FFFF00")}


Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] hedit color on gets fail

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
See the example I posted.
You are you are using wrong parameters.
This code is in your hedit.prg
STATIC bColorinFocus := 13434879 //Line 13 in hedit.prg
should be:
STATIC bColorinFocus := 16777164
oBrw:aColumns[n]:bColorBlock := ...// here also this does not work properly.

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] hedit color on gets fail

[Alexander S.K. <al...@be...>]

>>It was fixed - it returns now the same value as hwg_rgb()
> 
> Yes, but return wrong results, see example post for me.
> 

    Both hwg_vcolor("CCFFFF") and hwg_rgb(204,255,255) returns the same 
result - 16777164, which gives the same colour as it is shown at 
http://ccffff.hex-code.com/
What is wrong ?

Regards, Alexander.

[Hwgui-developers] hedit color on gets fail

[Itamar M. L. J. L. <ita...@gm...>]

>It was fixed - it returns now the same value as hwg_rgb()

Yes, but return wrong results, see example post for me.

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] hedit color on gets fail

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:

> No, this default color: 13434879

   I borrowed it from the 2.17, hedit.prg, line 15:

STATIC bColorSelect  := 13434879

> If I use hwg_SetColorinFocus(.T.)
> 
> STATIC bColorinFocus := 13434879 //return wrong result is aqua/blue and 
> return amber color.
> bColorInFocus works only with RGB XXX,XXX,XXX

   Function calls cannot be used for statics initialization.

> Version 2.19 not works propers with return of hwg_vColor

   It was fixed - it returns now the same value as hwg_rgb()

Regards, Alexander.

[Hwgui-developers] hedit color on gets fail

[Itamar M. L. J. L. <ita...@gm...>]

#include 'hwgui.ch'

Function Main

Local oDlg, cAc01:=Space(5), cAc02:=Space(5), cAc03:=Space(5), cPesq := ""

hwg_SetColorinFocus(.T.,00000879,49999999) //return Aqua/Blue is wrong
hwg_SetToolTipBalloon(.T.)
PREPARE FONT oFontP   NAME "MS Sans Serif" WIDTH 0 HEIGHT -16

INIT Dialog oDlg CLIPPER NOEXIT AT 0,0 SIZE 350,220  STYLE DS_CENTER


   @ 010,030 get oAc01 VAR cAc01 PICTURE "!!!!!" SIZE 100,30 valid {||.F.}

   @ 010,060 get oAc02 VAR cAc02 PICTURE "!!!!!" SIZE 100,30  //here BLACK
color same if exit get not change color.

   @ 010,110 get oAc03 VAR cAc03 PICTURE "!!!!!" SIZE 100,30

   @ 010,565 GroupBox "Pesquisa:" SIZE 400,50
   @ 020,580 SAY oPesq CAPTION cPesq size 370,25 OF oDlg Font oFontP STYLE
WS_BORDER COLOR 10485760 BACKCOLOR 12507070
   oPesq:Anchor:=6


ACTIVATE Dialog oDlg


Return Nil

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] hedit color on gets fail

[Itamar M. L. J. L. <ita...@gm...>]

Hi!

>Fixed, and hwg_SetColorinFocus(), too.
>Regards, Alexander.

No, this default color: 13434879
If I use hwg_SetColorinFocus(.T.)

STATIC bColorinFocus := 13434879 //return wrong result is aqua/blue and
return amber color.
bColorInFocus works only with RGB XXX,XXX,XXX
Version 2.19 not works propers with return of hwg_vColor

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] hedit color on gets fail

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> In line 33 hedit.prg
>    DATA nColorinFocus INIT hwg_VColor( 'CCFFFF' )
> 
> Return wrong colors.
>

   Fixed, and hwg_SetColorinFocus(), too.

Regards, Alexander.

[Hwgui-developers] hedit color on gets fail

[Itamar M. L. J. L. <ita...@gm...>]

In line 33 hedit.prg
   DATA nColorinFocus INIT hwg_VColor( 'CCFFFF' )

Return wrong colors.
According to this site hwgui is picking up wrong values for the colors.
http://ccffff.hex-code.com/
The color #CCFFFF is rgb(204,255,255)
If I change the line for:
   DATA nColorinFocus INIT hwg_rgb( 204,255,255 )
Return correct color.

The hwg_vColor("CCFFFF") //return *13434879 is correct, *but is not
interpreted correctly with hwg_rgb() function works ok!

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] hwg_colorInFocus() problem

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
I use this:
hwg_SetColorinFocus(.T.,00000879,49999999)

Version 2.17

FUNCTION hwg_SetColorinFocus( lDef, tcolor, bcolor, lFixed, lPersist )


   IF ValType( lDef ) <> "L"
      lDef := ( ValType( lDef ) = "C" .AND. Upper( lDef ) = "ON" )
   ENDIF
   lColorinFocus := lDef
   IF ! lDef
      RETURN .F.
   ENDIF
   lFixedColor   := iif( lFixed != Nil, ! lFixed, lFixedColor )
   tcolorselect  := iif( tcolor != Nil, tcolor, tcolorselect )
   bcolorselect  := iif( bcolor != Nil, bcolor, bcolorselect )
   lPersistColorSelect := iif( lPersist != Nil,  lPersist,
lPersistColorSelect )

   RETURN .T.

Version 2.19
FUNCTION hwg_SetColorinFocus( lDef )

   IF ValType( lDef ) <> "L"
      RETURN .F.
   ENDIF
   lColorinFocus := lDef

   RETURN .T.

No efect, not working :-(

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] Get numeric

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes:
> Hi!
> A small observation, is then now if I add for example;
> 
> nNum := 0.00
> 

  Fixed now.

What about the tooltip for a get - I didn't found yet the reason. It 
appears only if the last get has the tooltip and looks mystically - 
something strange in a winapi level.

Regards, Alexander.

Re: [Hwgui-developers] Get numeric

[Alexander S.K. <al...@be...>]

Itamar M. Lins Jr. Lins writes
> Hi!
> A small observation, is then now if I add for example;
> 
> nNum := 0.00
> 
> @ ... VAR nNum .. SHOW "   " empty field, before you add this

   Hmm... Strange. The last change couldn't cause this - it, probably, 
appeared before.

>     * :SetSel() and :SetLength() SETGET methods borrowed from 2.17
>       with some changes

  This is my typo, if such a mistake can be called 'type'. The new 
metods are: SelStart(), SelLength().


Regards, Alexander.

[Hwgui-developers] Get numeric

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
A small observation, is then now if I add for example;

nNum := 0.00

@ ... VAR nNum .. SHOW "   " empty field, before you add this
------------->8---------
    * :SetSel() and :SetLength() SETGET methods borrowed from 2.17
      with some changes
-----------8<------
after <ENTER> on get show "0.00"


Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] ToolTip disable gets of dialog

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
The flag tooltip in GET disable all gets of dialog.

#include 'hwgui.ch'

Function Main

Local oDlg, cA:=cB:=Space(5)


INIT Dialog oDlg AT 0,0 SIZE 350,220 CLIPPER

   @ 010,010 say "XYZ:" SIZE 65,15
   @ 010,030 get oA VAR cA SIZE 100,30 PICTURE "!!!!!"

   @ 010,090 say "ABC:" SIZE 65,15
   @ 010,110 get oB VAR cB SIZE 100,30 PICTURE "!!!!!"  TOOLTIP "A tool tip
disable gets!"

ACTIVATE Dialog oDlg center

Return Nil

Best regards,
Itamar M. Lins Jr.