hwgui-developers — Discussing of HwGUI development

Re: [Hwgui-developers] Request

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

Alain Aupeix пишет:
> Hi,
> I use hwg_ShellExecute(), and it works great,
> 
> But it's not possible to redirect the messages send to the console.
> What is possible using, for example like this :
> 
> run(cBrowser+" "+curl+" 1>/dev/null 2>/dev/null &")
> 
> Could it be possible to add two params to the function to allow to 
> redirect to /dev/null, or to file.
> Like this:
> 
> hwg_ShellExecute ( url [ ,devout , deverr] )

   The gtk function gtk_show_uri(), which is used to implement this 
function, doesn't have parameters, which may control the redirection. At 
this moment I don't know how to do this.
   If you run a console application and you know it name and path, you 
may use hwg_RunConsoleApp( cCommandLine, cFileOut ) instead.

Regards, Alexander.

Re: [Hwgui-developers] Little problem with combobox

[Alain A. <ala...@wa...>]

Le 08/08/2016 à 12:38, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>
>> @   45,42 GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE WS_TABSTOP SIZE 170, 25
>   > ...
>> hwg_MsgInfo("You have choosen : "+ltrim(cVille)+chr(10)+...
>    The error message is correct in this case:
>      the combobox isn't TEXT type, so, the variable 'cVille' is a NUMBER
> and an attempt to Trim it causes an error. You initialize the 'cVille'
> with a string value - that's why if you click Ok before any changes,
> this initial value is unchanged and no error occurs.
>     So, if you want your combobox variable to have a string type value,
> define the combobox as TEXT (or EDIT).
ok, so if I don't add TEXT or EDIT, it returns the range of the choice 
in the array ?

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2549)
------------------------------------------------------------------------

Re: [Hwgui-developers] Color conversion

[Alain A. <ala...@wa...>]

Le 08/08/2016 à 12:48, Alexander S.Kresin a écrit :
>      It is preferrable to use hwg_ColorC2N(). hwg_vColor() presents for
> conmpatibility with old versions, it is defined in guilib.ch:
>
> #xtranslate hwg_VColor([<n,...>])        => hwg_ColorC2N(<n>)
ok, I didn't know, and just do like a few samples did.

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2549)
------------------------------------------------------------------------

Re: [Hwgui-developers] Color conversion

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

Alain Aupeix пишет:

>> I have a color in the form #F4DFDA
>> How can I find the value to use it with BACKCOLOR ?
>> Is there an hwgui function which does it ?
>>
>> Thanks
>> A+
> I had the function in front of me, and I don't see it :-!
> 
> hwg_VColor()
> 

    It is preferrable to use hwg_ColorC2N(). hwg_vColor() presents for 
conmpatibility with old versions, it is defined in guilib.ch:

#xtranslate hwg_VColor([<n,...>])        => hwg_ColorC2N(<n>)

Regards, Alexander.

Re: [Hwgui-developers] Little problem with combobox

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

Alain Aupeix пишет:

> @   45,42 GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE WS_TABSTOP SIZE 170, 25
 > ...
> hwg_MsgInfo("You have choosen : "+ltrim(cVille)+chr(10)+...

  The error message is correct in this case:
    the combobox isn't TEXT type, so, the variable 'cVille' is a NUMBER 
and an attempt to Trim it causes an error. You initialize the 'cVille' 
with a string value - that's why if you click Ok before any changes, 
this initial value is unchanged and no error occurs.
   So, if you want your combobox variable to have a string type value, 
define the combobox as TEXT (or EDIT).

Regards, Alexander.

Re: [Hwgui-developers] ComboBox, isolated error.

[Alain A. <ala...@wa...>]

Le 08/08/2016 à 08:32, Alexander S.Kresin a écrit :
>    Thanks. Fixed now - with a bit another code for the VALID codeblock
> could execute in any case. Similar situation in :GetValue() fixed, too.
I suppose it's different from my problem, as it always crash.

A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------

Re: [Hwgui-developers] ComboBox, isolated error.

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

Itamar M. Lins Jr. Lins пишет:
> Hi!
> My Fix file \winapi\hcombo.prg after line 268 add
> 
>    IF lESC // "if" by Luiz Henrique dos Santos (lui...@gm... 
> <mailto:lui...@gm...>) 04/06/2006
>       nPos := hwg_Sendmessage( oCtrl:handle, CB_GETCURSEL, 0, 0 ) + 1
> 
>  IF nPos == 0
>      RETURN .T.
>  ENDIF
> <end fix>
> 

  Thanks. Fixed now - with a bit another code for the VALID codeblock 
could execute in any case. Similar situation in :GetValue() fixed, too.

  Regards, Alexander.

Re: [Hwgui-developers] ComboBox, isolated error.

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

Hi!
My Fix file \winapi\hcombo.prg after line 268 add

   IF lESC // "if" by Luiz Henrique dos Santos (lui...@gm...)
04/06/2006
      nPos := hwg_Sendmessage( oCtrl:handle, CB_GETCURSEL, 0, 0 ) + 1

 IF nPos == 0
     RETURN .T.
 ENDIF
<end fix>

Best regards,
Itamar M. Lins Jr.

2016-08-04 14:38 GMT-03:00 Itamar M. Lins Jr. Lins <ita...@gm...>:

> Hi!
> #include "hwgui.ch"
> Function main
> LOCAL oDlg, oBt, oPrint, aPrn := WIN_PRINTERLIST(), oPrn, cPrn:="X"
>
> INIT DIALOG oDlg CLIPPER NOEXIT AT 600,100 SIZE 600,400
>
>     @ 010,050 get ComboBox oPrint var cPrn ITEMS aPrn     TEXT     Size
> 280,20 DisplayCount 6
>
>      //do not touch anything
>     @ 010,90 Button oBt Caption 'Exit'     Size 70,30  ON CLICK
> {||hwg_EndDialog()} //only click on this button here!
>
> ACTIVATE Dialog oDlg Center
> <end file>
> >\hbmk2 test.prg -lhbwin
>
> Error BASE/1132  Bound error: array access
> Called from ->__VALID(273)
> Called from ->(b)HCOMBOBOX_NEW(79)
> Called from ->ONDLGCOMMAND(335)
> Called from ->(b)(_INITSTATICS00003)(0)
> Called from ->HDIALOG:ONEVENT(182)
> Called from ->HWG_DLGBOXINDIRECT(0)
> Called from ->HDIALOG:ACTIVATE(135)
> Called from ->MAIN(12)
>
> HWGUI 2.19 Build 6
> Date:08/04/16
> Time:14:37:49
>
> Best regards,
> Itamar M. Lins Jr.
>
>

[Hwgui-developers] ComboBox, isolated error.

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

Hi!
#include "hwgui.ch"
Function main
LOCAL oDlg, oBt, oPrint, aPrn := WIN_PRINTERLIST(), oPrn, cPrn:="X"

INIT DIALOG oDlg CLIPPER NOEXIT AT 600,100 SIZE 600,400

    @ 010,050 get ComboBox oPrint var cPrn ITEMS aPrn     TEXT     Size
280,20 DisplayCount 6

     //do not touch anything
    @ 010,90 Button oBt Caption 'Exit'     Size 70,30  ON CLICK
{||hwg_EndDialog()} //only click on this button here!

ACTIVATE Dialog oDlg Center
<end file>
>\hbmk2 test.prg -lhbwin

Error BASE/1132  Bound error: array access
Called from ->__VALID(273)
Called from ->(b)HCOMBOBOX_NEW(79)
Called from ->ONDLGCOMMAND(335)
Called from ->(b)(_INITSTATICS00003)(0)
Called from ->HDIALOG:ONEVENT(182)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)
Called from ->MAIN(12)

HWGUI 2.19 Build 6
Date:08/04/16
Time:14:37:49

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] @ say : how to update ?

[Alain A. <ala...@wa...>]

Hi,
How can I update @ say ?

// ===========================================
Function main()
// ===========================================
Public cDepDisp
...
cDepDisp=cDefDep+space(20)

INIT WINDOW oMainWindow MAIN TITLE "Utilitaires de généalogie 
(v"+progvers+")" ;
    ICON oIcon AT 200,50 SIZE 844,422 ;

@ htab+(nbut*32), 3 OWNERBUTTON OF oToolbar ;
    ON CLICK {||Departement()} ;
    SIZE 28,24 FLAT ;
    BITMAP cImageDir+"departements.png" TRANSPARENT COLOR 12632256 
COORDINATES 0,4,0,0 ;
    TOOLTIP "Changer le département par défaut"

DepDisp()                       << Here I display
  ...
return nil

// ===========================================
Function Departement()
// ===========================================
cDepart=cDefDep
lDefaut=.t.
oDlg CLIPPER NOEXIT TITLE cTitle AT 
oMainWindow:nLeft+140,oMainWindow:nTop+130  SIZE 280,150 ;
      FONT oFont ICON oIcon

         @ 15,30  GET COMBOBOX cDepart ITEMS aDepartment STYLE WS_TABSTOP ;
                  SIZE 250, 25 TEXT ON CHANGE 
{||ldefaut:=isdefault(cDepart),oDefaut:Refresh}

         @ 30,60  GET CHECKBOX oDefaut VAR lDefaut CAPTION "Département 
par défaut" ;
                  SIZE 250, 25 STYLE WS_TABSTOP ON CLICK 
{||lDefaut:=noChange(cDepart,lDefaut),oDefaut:Refresh}

         @ 30,100  BUTTON "Ok" OF oDlg ID IDOK  ;
                  SIZE 100, 32 COLOR hwg_VColor("FF0000");

      ACTIVATE DIALOG oDlg
      oFont:Release()
      if oDlg:lresult
         if cDepart != cDefDep
            cDefDep=cDepart
            cDepDisp=cDefDep
qout(cDepDisp)                            << new value displayed
            DepDisp()                          << Here I tried to display
         endif
      endif

return nil

// ===========================================
function DepDisp()
// ===========================================

qout(cDepDisp)<< new value displayed

@ 10,355 SAY cDepDisp SIZE 150, 22 COLOR hwg_VColor("0000FF") BACKCOLOR 
hwg_VColor("#F4DFDA")

return nil

// ===========================================

No error, but the variable seems not to be modified in MainWindow window.

Where do I failed ?

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------

Re: [Hwgui-developers] Color conversion

[Alain A. <ala...@wa...>]

Le 04/08/2016 à 09:02, Alain Aupeix a écrit :
> Hi,
>
> I have a color in the form #F4DFDA
> How can I find the value to use it with BACKCOLOR ?
> Is there an hwgui function which does it ?
>
> Thanks
> A+
I had the function in front of me, and I don't see it :-!

hwg_VColor()

A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------

[Hwgui-developers] Color conversion

[Alain A. <ala...@wa...>]

Hi,

I have a color in the form #F4DFDA
How can I find the value to use it with BACKCOLOR ?
Is there an hwgui function which does it ?

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------

Re: [Hwgui-developers] Little problem with combobox

[Alain A. <ala...@wa...>]

Better with sample :)

Le 03/08/2016 à 11:34, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>
>>     @ 430,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE
>> WS_TABSTOP SIZE 210, 25 TEXT
>>
>> ...
>>
>>     cPlace="&place__0__="+alltrim(cVille)
>>
>> Error BASE/2022  Argument error: ALLTRIM
>> Called from ALLTRIM(0)
>     I can't reproduce this error. Seems, we need a small self-contained
> sample.
Hi, here is a sample, you can test changing or not the combobox element

1) Run it and click ok => (case 1) => good
2) Run it and change the radio button and click ok => case 2 => good
3) Run it and change the radio (case 2), change again (case 1) and click 
ok =>

Error BASE/1101  Argument error: LTRIM
Called from LTRIM(0)
Called from MAIN(44)

// ===================================================================
#include "windows.ch"
#include "guilib.ch"
#include "gtk.ch"
#include "inkey.ch"
#include "hbgtinfo.ch"

memvar aDepartment, cDefDep
// ===================================================================
function Main()
// ===================================================================
local oDlg, oFont := HFont():Add( "Serif",0,-13 )
local cTitle := "City choice"
local cText01 := "Choose the city"
local oVille, cVille
local oVille2, cVille2
local cCity:="",result:=""
local aVilles:={"Chalais                ",;
                 "Saint-Jory-de-Chalais  ",;
                 "Saint-Paul-la-Roche    ",;
                }

INIT DIALOG oDlg CLIPPER NOEXIT TITLE cTitle AT 250,180  SIZE 220,180 
FONT oFont

    @   45,10 SAY "City" SIZE 60, 22 COLOR hwg_VColor("FF0000")
    @   45,42 GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE 
WS_TABSTOP SIZE 170, 25

    @   45,74 SAY "City" SIZE 60, 22 COLOR hwg_VColor("FF0000")
    @   45,96 GET COMBOBOX oVille2 VAR cVille2 ITEMS aVilles STYLE 
WS_TABSTOP SIZE 170, 25;
              ON CHANGE {||qout(cVille2)} TEXT

RADIOGROUP
    @ 10,42 RADIOBUTTON "oCity" SIZE 22,22 ON CLICK {|| cCity:="1"}
    @ 10,96 RADIOBUTTON "oCity2" SIZE 22,22 ON CLICK {|| cCity:="2"}
END RADIOGROUP SELECTED 1

    @   80,140  BUTTON "Ok" OF oDlg ID IDOK  ;
               SIZE 65, 32 COLOR hwg_VColor("FF0000")

ACTIVATE DIALOG oDlg
oFont:Release()
if oDlg:lresult
qout(cCity)
    if cCity == "1"
       hwg_MsgInfo("You have choosen : "+ltrim(cVille)+chr(10)+"with 
solution 1","Solution n°1")
    else
       hwg_MsgInfo("You have choosen : "+ltrim(cVille2)+chr(10)+"with 
solution 1","Solution n°2")
    endif
qout(cCity+chr(10))
endif
quit
return nil

// ===================================================================

A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------

Re: [Hwgui-developers] Little problem with combobox

[Alain A. <ala...@wa...>]

Le 03/08/2016 à 11:34, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>
>>     @ 430,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE
>> WS_TABSTOP SIZE 210, 25 TEXT
>>
>> ...
>>
>>     cPlace="&place__0__="+alltrim(cVille)
>>
>> Error BASE/2022  Argument error: ALLTRIM
>> Called from ALLTRIM(0)
>     I can't reproduce this error. Seems, we need a small self-contained
> sample.
Hi, here is a sample, you can test changing or not the combobox element

1) Run it and click ok => (case 1) => good
2) Run it and change the radio button and click ok => case 2 => good
3) Run it and change the radio (case 2), change again (case 1) and click 
ok =>

Error BASE/1101  Argument error: LTRIM
Called from LTRIM(0)
Called from MAIN(44)

A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------

[Hwgui-developers] combobox error

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

Hi!
Changelog 2546 2016-08-03 11:41:05Z alkresin $

I get this random error while move into browse.

Error BASE/1132  Erro de limite: acesso de array
Called from ->__VALID(273)
Called from ->(b)HCOMBOBOX_NEW(79)
Called from ->ONCOMMAND(321)
Called from ->(b)(_INITSTATICS00004)(0)
Called from ->HTAB:ONEVENT(177)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)
Called from ->ESTOQUE(554)

The function estoque in line 554 is:

oDlg:Activate(,,,.T.)

maybe need to update the htab class

My oTab object, it has some objects combobox, I can not identify where
the problem is.

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] A few problems with combobox and checkbox

[Alain A. <ala...@wa...>]

Le 03/08/2016 à 11:43, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>> Hi, here is my code:
>>
>>        if chaine="changer"
>>           @ 30,60  GET CHECKBOX oDefaut VAR lDefaut CAPTION "Département
>> par défaut" ;
>>                    SIZE 250, 25 STYLE WS_TABSTOP ON CLICK
>> {||qout(lDefaut),lDefaut=noChange(cDepart,lDefaut),qout(lDefaut),oDefaut:Refresh}
>>        endif
>> ...
>> But my problem here is concerning noChange.
>>
>> I want if aDepartements[x,5] is .T., that the value can't be changed.
>>
>      I don't understand. What value shouldn't be changed ? Where is the
> combobox, which is mentioned in a subject ?
>      BTW, as far as I remember, there must be ':=' in a codeblock:
> {||qout(lDefaut),lDefaut:=noChange(cDepart,lDefaut),qout(lDefaut),oDefaut:Refresh}
You where right, it wat due to = instead of :=

I'll make an little code to display the other problem I had

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2546)
------------------------------------------------------------------------

Re: [Hwgui-developers] A few problems with combobox and checkbox

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

Alain Aupeix пишет:
> Hi, here is my code:
> 
>       if chaine="changer"
>          @ 30,60  GET CHECKBOX oDefaut VAR lDefaut CAPTION "Département 
> par défaut" ;
>                   SIZE 250, 25 STYLE WS_TABSTOP ON CLICK 
> {||qout(lDefaut),lDefaut=noChange(cDepart,lDefaut),qout(lDefaut),oDefaut:Refresh}
>       endif
> ...
> But my problem here is concerning noChange.
> 
> I want if aDepartements[x,5] is .T., that the value can't be changed.
> 

    I don't understand. What value shouldn't be changed ? Where is the 
combobox, which is mentioned in a subject ?
    BTW, as far as I remember, there must be ':=' in a codeblock:
{||qout(lDefaut),lDefaut:=noChange(cDepart,lDefaut),qout(lDefaut),oDefaut:Refresh}

Regards, Alexander.

Re: [Hwgui-developers] Little problem with combobox

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

Alain Aupeix пишет:

> 
>    @ 430,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE 
> WS_TABSTOP SIZE 210, 25 TEXT
> 
> ...
> 
>    cPlace="&place__0__="+alltrim(cVille)
> 
> Error BASE/2022  Argument error: ALLTRIM
> Called from ALLTRIM(0)

   I can't reproduce this error. Seems, we need a small self-contained 
sample.

Regards, Alexander.

Re: [Hwgui-developers] Little problem with combobox

[Alain A. <ala...@wa...>]

Le 02/08/2016 à 12:06, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>
>> ...
>> I first set local cVille:=""
>> In my array, I first add an empty element ("")
>>
>> If I don't change the element, the value is always set to ""
>    Should be fixed now.
Humm, don't think so ...

    @ 430,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE 
WS_TABSTOP SIZE 210, 25 TEXT

...

    cPlace="&place__0__="+alltrim(cVille)

Error BASE/2022  Argument error: ALLTRIM
Called from ALLTRIM(0)
Called from GENEGUY(2433)
Called from (b)MAIN(401)
Called from HOWNBUTTON:MUP(264)
Called from HOWNBUTTON:ONEVENT(129)
Called from HWG_ACTIVATEMAINWINDOW(0)
Called from HMAINWINDOW:ACTIVATE(265)

But if works like this :

    @ 430,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE 
WS_TABSTOP SIZE 210, 25 ;
              ON CHANGE {||qout(cVille)} TEXT

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2545)
------------------------------------------------------------------------

Re: [Hwgui-developers] Little problem with combobox

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

Alain Aupeix пишет:

> ...
> I first set local cVille:=""
> In my array, I first add an empty element ("")
> 
> If I don't change the element, the value is always set to ""
> 

  Should be fixed now.

Regards, Alexander.

[Hwgui-developers] A few problems with combobox and checkbox

[Alain A. <ala...@wa...>]

Hi, here is my code:

      if chaine="changer"
         @ 30,60  GET CHECKBOX oDefaut VAR lDefaut CAPTION "Département 
par défaut" ;
                  SIZE 250, 25 STYLE WS_TABSTOP ON CLICK 
{||qout(lDefaut),lDefaut=noChange(cDepart,lDefaut),qout(lDefaut),oDefaut:Refresh}
      endif

// 
============================================================================
function IsDefault(cDepart)
// 
============================================================================
local range

range=ascan(aDepartment,{| x | x[1]==cDepart})

return aDepartment[range,5]

// 
============================================================================
function noChange(cDepart,lDefaut)
// 
============================================================================

qout(cDepart)                <<< Dordogne
if cDepart==cDefDep
    lDefaut=.T.
endif
qout(lDefaut)                 <<< .T.

return lDefaut               <<< .T.

Here is tha array :

aDepartements:={{"Ain" ,"01",text",.T.,.F.},:
.                              {"Aisne" ,"01",text",.T.,.F.},:
.                              {"Allier" ,"01",text", .T.,.F.},:
.                              {"Dordogne","01",text",.T.,.T.},:
.                              {"Gironde"   ,"01",text",.T.,.F.},:

I first confirm the bug of the value which isn't updated, and I must use 
a function like qout(var) to commit the change.

But my problem here is concerning noChange.

I want if aDepartements[x,5] is .T., that the value can't be changed.

In noChange(), I saw that it seems to work, but qout(lDefaut) after 
noChange() in oDefaut codeblock reports .F.

Is-it really possible to do ? and how ?

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2543)
------------------------------------------------------------------------

[Hwgui-developers] Request

[Alain A. <ala...@wa...>]

Hi,
I use hwg_ShellExecute(), and it works great,

But it's not possible to redirect the messages send to the console.
What is possible using, for example like this :

run(cBrowser+" "+curl+" 1>/dev/null 2>/dev/null &")

Could it be possible to add two params to the function to allow to 
redirect to /dev/null, or to file.
Like this:

hwg_ShellExecute ( url [ ,devout , deverr] )

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2543)
------------------------------------------------------------------------

[Hwgui-developers] Other problem with a combobox

[Alain A. <ala...@wa...>]

Sorry, the sender was wrong.
Don't answer to in...@ga...
Thanks

--------------------------------------------------------------------
Hi,
Here is a simplificated code :

// ================================================================
function Generip()
// ================================================================

@  10,42  SAY cText03 SIZE 200, 22 COLOR hwg_VColor("FF0000")
@  60,40  GET COMBOBOX oRegion VAR cRegion ITEMS aRegions STYLE 
WS_TABSTOP SIZE 220, 25;
                  ON CHANGE 
{||SearchDepartment(trim(cRegion)),oDepartement:Refresh()} TEXT

@ 290,42  SAY cText04 SIZE 100, 22 COLOR hwg_VColor("FF0000")
@ 390,40  GET COMBOBOX oDepartement VAR cDepart ITEMS aDepartment STYLE 
WS_TABSTOP SIZE 210, 25;
                   ON CHANGE {||SearchVille(trim(cDepart)), ;
qout(len(aVilles)), ;
                                          oVille:Refresh()} TEXT

@ 290,74  SAY cText05 SIZE 100, 22 COLOR hwg_VColor("FF0000")
@ 390,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE WS_TABSTOP 
SIZE 210, 25 TEXT

...

// ================================================================
function SearchVille(cDepart)
// ================================================================
local rg

asize(aVilles,0)
for rg=1 to len(aDepartment)
      if aDepartment[rg,1] == cDepart
         codep=aDepartment[rg,2]
qout(aDepartment[rg,1])
qout(aDepartment[rg,2])
qout(aDepartment[rg,3])
         if aDepartment[rg,3] == "1"
            select _&codep
            aadd(aVilles,"")
            go top
            do while .not.eof()
               aadd(aVilles,trim(_&codep -> commune))
               skip
            enddo
            asort(aVilles,,,{| x, y | Upper( x ) < Upper( y ) })
         endif
         exit
      endif
next
qout(len(aVilles))
return nil
// ================================================================

Here are the qout()

Alsace                                       aregions[1]
Bas-Rhin                                   aDepartment[1,1]
67                                             aDepartment[1,2]
0                                               aDepartment[1,3] (=I 
have not the list of the cities of the department)
           0                                      len(aVilles) before 
returning from SearchVille (ok!!!)
           0                                      len(aVilles) tested 
before oVilles:Refresh

Aquitaine                                  aregions[2]
Dordogne                                 aDepartment[1,1]
24                                             aDepartment[1,2]
1                                               aDepartment[1,3] (=I 
have the list of the cities of the department)
         576                                    len(aVilles) before 
returning from SearchVille (ok!!!)
         576                                    len(aVilles) tested 
before oVilles:Refresh (ok!!!)

Aquitaine                                  aregions[2]
Gironde                                    aDepartment[2,1]
33                                             aDepartment[2,2]
0                                               aDepartment[2,3] (=I 
have not the list of the cities of the department)
           0                                      len(aVilles) before 
returning from SearchVille (ok!!!)
           0                                      len(aVilles) tested 
before oVilles:Refresh (ok!!!)

All is ok concerning values, but when I browse in oVilles, I saw all the 
cities of aVilles, even the len of aVilles is now 0

It seems that oVilles:Refresh isn't done
When I leave Generip() and open it again, oVilles is ok, without cities

I have made a last test. In the same region, changing for a department 
where I have cities, refresh is ok, but I don't think it's normal.

So I can say that if oVilles is zero length, no refresh.

Can you explain where I fail, or confirm it's a bug ?

Thanks
A+

-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) |
Hw.Gui 2.19-6 (2543)
------------------------------------------------------------------------

[Hwgui-developers] Little problem with combobox

[Alain A. <ala...@wa...>]

Hi,

Using combobox, I have no problem when using 'ON CHANGE'
When I don't need to make something with a choice, I didn't use 'ON 
CHANGE', ,and I have then an error.
I thougth that the fact to change returns the result in VAR cVille (in 
this case).
Am-I wrong, or do I miss something ?

Exemple :

    @ 330,74  SAY cText05 SIZE 70, 22 COLOR hwg_VColor("FF0000")
    @ 430,72  GET COMBOBOX oVille VAR cVille ITEMS aVilles STYLE 
WS_TABSTOP SIZE 210, 25 ;
                     ON CHANGE {||qout(cVille)} TEXT

Adding for exemple qout(cVille) and the variable is set

I first set local cVille:=""
In my array, I first add an empty element ("")

If I don't change the element, the value is always set to ""

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2543)
------------------------------------------------------------------------

[Hwgui-developers] A display bug

[Alain A. <ala...@wa...>]

Hi, with this code, to allow to see tooltips, groupox must be commented.

    @   5, 98 GROUPBOX "Comptes Geneanet"  SIZE 600, 87 BACKCOLOR 20273941
    RADIOGROUP
    @ 200,118 RADIOBUTTON "Restreindre" SIZE 100, 22 TOOLTIP cTooltip06 
ON CLICK {||nType:=1}
    @ 330,118 RADIOBUTTON "Ignorer"     SIZE 100, 22 TOOLTIP cTooltip07 
ON CLICK {||nType:=2}
    END RADIOGROUP SELECTED 1

Where is the problem ?

Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.9-1 | H.arbour 3.2.0dev (2016-07-18 18:32) | 
Hw.Gui 2.19-6 (2543)
------------------------------------------------------------------------