hwgui-developers — Discussing of HwGUI development

Re: [Hwgui-developers] How to keep the value of a combobox ?

[Maurizio la C. <m.l...@ar...>]

Hi Alain,
I think you're misunderstanding the syntax.
You pass oCombo3 as object but it's expected to being a variable storing
the returned value.
The codeblock on change isn't needed.
Try to use:

@ 15,84 GET COMBOBOX oRegistre STYLE WS_TABSTOP SIZE 490, 25

it should be enough.
BR
Maurizio

Il 03/10/2014 15:32, Alain Aupeix ha scritto:
> Le 28/09/2014 10:44, Alex Strickland a écrit :
> > I would still suggest that you try the text object variable:
> >
> > @ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
> >              SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:text}
> I tried these two solutions (I set oRegistre before Init Window to be sure that 
> the variable is already here after closing the window.
>
> @ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
>              SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:text}
>
> @ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
>              SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:GetText()}
>
> But none in working
>
> A+
> -- 
> --------------------------------------------------------------------------------
> Alain Aupeix
> http://jujuland.pagesperso-orange.fr/
> http://pissobi-lacassagne.pagesperso-orange.fr/
> --------------------------------------------------------------------------------
> U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) | HbIDE 
> (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
> --------------------------------------------------------------------------------
>
>
> ------------------------------------------------------------------------------
> Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
> Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
> Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
> Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
> http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
>
>
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers

Re: [Hwgui-developers] A few questions from a beginner

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

Le 03/10/2014 13:15, Alexander S.Kresin a écrit :
>> 4) I tried to use editbox, but I failed to keep the edited value.
>>
>>    @ 20,10 SAY cText01 SIZE 510, 22
>>    @ 20,25 EDITBOX oEdit01 CAPTION orpath    ;
>>         STYLE WS_DLGFRAME              ;
>>         SIZE 510, 26 COLOR hwg_VColor("FF0000")
>     oEdit01:GetText()
>
> But have in mind that you can do this before the dialog box is 
> destroyed, for example from button's ON CLICK codeblock.
ok, I must do it before the window is closed, so before ACTIVATE DIALOG
I suppose that I must assign the value to the variable before INIT WINDOW
and set the new value like this:

cEdit01 := oEdit01:GetText()

I have tried it, but it doesn't work, variable isn't update
> If you use @ 20,25 GET someVar ... insted of EDITBOX, the edited 
> value is available from appropriate variable ( someVar ) all the time 
> while this variable exists - exactly as in Clipper - see testget2.prg.
I have tried it and it works, but I have a problem with accents that I
can't enter in the field
In console, I have these errors:

(GeneTools:19849): Gtk-CRITICAL **: IA__gtk_entry_set_text: assertion
`text != NULL' failed

That's the reason why I tried to use editbox

Before main, I have added:

REQUEST HB_CODEPAGE_UTF8

and in main() :

hwg_SetAppLocale( "UTF8" )

Same error ...

A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
------------------------------------------------------------------------

Re: [Hwgui-developers] How to keep the value of a combobox ?

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

<html>
  <head>
    <meta content="text/html; charset=windows-1252"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <div class="moz-cite-prefix">Le 28/09/2014 10:44, Alex Strickland a
      écrit :<br>
    </div>
    <blockquote cite="mid:542...@mw..." type="cite">
      <pre wrap="">I would still suggest that you try the text object variable:

@ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
            SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:text}</pre>
    </blockquote>
    I tried these two solutions (I set oRegistre before Init Window to
    be sure that the variable is already here after closing the window.<br>
    <br>
    <pre wrap="">@ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
            SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:text}</pre>
    <pre wrap="">@ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
            SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:GetText()}</pre>
    But none in working<br>
    <br>
    A+<br>
    <div class="moz-signature">-- <br>
      <hr>
      Alain Aupeix<br>
      <a class="moz-txt-link-freetext" href="http://jujuland.pagesperso-orange.fr/">http://jujuland.pagesperso-orange.fr/</a><br>
      <a class="moz-txt-link-freetext" href="http://pissobi-lacassagne.pagesperso-orange.fr/">http://pissobi-lacassagne.pagesperso-orange.fr/</a><br>
      <hr>
      <small>U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev
        (2014-09-09 22;51) | HbIDE (Rev.316) | Five.Linux (r138) |
        Hw.Gui (2285)</small>
      <hr>
    </div>
  </body>
</html>

Re: [Hwgui-developers] A few questions from a beginner

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

Le 03/10/2014 11:06, Alexander S.Kresin a écrit :
> Alain,
>
>   I'll answer by parts in few messages, because each question demands 
> some investigation.
ok
>> 1) I tried to put an image in background of my window like this:
>>
>>    INIT WINDOW oMainWindow MAIN TITLE "Utilitaires de généalogie" ;
>>      AT ox,oy SIZE 844,381 //;
>>      BACKGROUND BITMAP cImageDir+"acte.png"
>    This doesn't work in GTK version. Gtk has different kinds of windows, 
> some of them are drawable, some - not. So the decision is to place on 
> the main window some drawable widget.
>
>    @ 0,0 BITMAP "some.png"
>
> is a good variant. Or you may use a panel with ON PAINT method and paint 
> there anything you need.
ok, I prefer @ Bitmap
>> 2) I haven't found how to create a status bar
>     ADD STSTUS oStatus TO oMainWindow
>
> and then use oStatus:SetText( someText ) to write there. This method has 
> been fixed in a latest Changelog.
ok, but the interest for me, and perhaps for others, is, for example, to
display a text when mouse is over an entry of the menu, or when
navigating in the menu entries with clipboard.
I haven't found in the documentation a way to do it in menu entries

Thanks
A+
>
> Regards, Alexander.
>
> ------------------------------------------------------------------------------
> Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
> Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
> Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
> Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
> http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers


-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
------------------------------------------------------------------------

Re: [Hwgui-developers] A few questions from a beginner

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

Le 03/10/2014 12:18, Alexander S.Kresin a écrit :
>> 3) is there a way not to allow to change window size ?
>   hwg_WindowSetResize( oMainWindow:handle, .F. )
If works, but there is a problem:

INIT WINDOW oMainWindow MAIN TITLE "Utilitaires de généalogie" ;
     AT ox,oy SIZE 844,381
         
// hwg_WindowSetResize( oMainWindow:handle, .F. )

When this line is commented the button to maximize the window is present
(that's what I want to hide)
When it's uncommented, the button is hide, but the size is biggest :
1210, 421

Is-it 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.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
------------------------------------------------------------------------

Re: [Hwgui-developers] Database codepage

[Przemyslaw C. <dr...@po...>]

Hi,

In Harbour hb_cdpSelect( [ <cCPID> ] ) is the same
as SET( _SET_CODEPAGE [, <cCPID> ] )

If you compile HWGUI for Windows with UNICODE macro flag then
you can use any encoding in your source code, i.e. "RU866".
All what you have to do is informing HVM about used CP
by _SET_CODEPAGE.

If you do not use UNICODE macro in HWGUI windows builds or
it's Linux GTK build then you also can use any encoding but
additionally you have to inform HVM about CP used in system
calls by _SET_OSCODEPAGE, i.e.:

   // set CP for source code and HVM internal string encoding
   SET( _SET_CODEPAGE, "RU866" )
   #ifdef __PLATFROM__LINUX
      SET( _SET_OSCODEPAGE, "UTF8" )
   #else
      SET( _SET_OSCODEPAGE, "RU1251" )
   #endif

In summary current Harbour versions does not force any encoding
regardless of used system and UI library. It's only important
that the libraries like HWGUI use Harbour STR API instead of
old Clipper like hb_parc()/hb_retc()/hb_storc()/...
When new API is used then all translations are made automatically
by HVM and user can work with anu encoding he prefers.

best regards,
Przemek


On Fri, 03 Oct 2014, Alexander S.Kresin wrote:
> I don't know, how it is with Hungarian, but for Russian there are 
> different codepages for DOS and Windows applications, so in GUI programs 
> I set one codepage for an application ( _SET_CODEPAGE ) and other for 
> databases, because they are inherited from old times.
> 
> So, probably, you need to set a HUWIN as an application codepage.
> 
> I didn't know that _SET_CODEPAGE and _SET_DBCODEPAGE were added, so I use
> 
> hb_cdpSelect( "RU1251" ) // Win (ANSI) codepage for an application
> ...
> use table codepage "RU866" // DOS (OEM) codepage for a table
> 
> Regards, Alexander.
> 
> Baloghy Gábor:
> > Hi,
> > 
> > I have an orginally clipper, later harbour (gtvwt) application.I try
> > it to transform to a gui application with hwgui.
> > 
> > My dbf tables are in HU852 codepage. I try to use the
> > SET(_SET_DBCODEPAGE,"HU852") command, but the text in the the say /
> > get gui elements are wrong.
> > 
> > Could you help me, what is missing from my sample program?
> > 
> > Regard,
> > 
> > Gabor
> > 
> > 
> > #include "windows.ch"
> > #include "guilib.ch"
> > REQUEST HB_CODEPAGE_HU852
> > REQUEST HB_LANG_HU852
> > 
> > FUNCTION MAIN
> > 
> > HB_LANGSELECT("HU852")
> > SET(_SET_CODEPAGE,"HU852")
> > SET(_SET_DBCODEPAGE,"HU852")
> > 
> > use table
> > 
> > init dialog oTest852 title "Test" size 600,400
> > 
> > x:=table->abcd
> > 
> > @ 20,20 say x size 300,25
> > @ 20,50 get x size 300,25
> > 
> > activate dialog oTest852 center
> > 
> > return
> > 
> > ------------------------------------------------------------------------------
> > Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
> > Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
> > Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
> > Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
> > http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
> > _______________________________________________
> > Hwgui-developers mailing list
> > Hwg...@li...
> > https://lists.sourceforge.net/lists/listinfo/hwgui-developers
> > 
> 
> 
> ------------------------------------------------------------------------------
> Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
> Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
> Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
> Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
> http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers

Re: [Hwgui-developers] A few questions from a beginner

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

> 4) I tried to use editbox, but I failed to keep the edited value.
> 
>    @ 20,10 SAY cText01 SIZE 510, 22
>    @ 20,25 EDITBOX oEdit01 CAPTION orpath    ;
>         STYLE WS_DLGFRAME              ;
>         SIZE 510, 26 COLOR hwg_VColor("FF0000")

    oEdit01:GetText()

But have in mind that you can do this before the dialog box is 
destroyed, for example from button's ON CLICK codeblock.

   If you use @ 20,25 GET someVar ... insted of EDITBOX, the edited 
value is available from appropriate variable ( someVar ) all the time 
while this variable exists - exactly as in Clipper - see testget2.prg.


> 5) In this box (a few similar to the one in a.prg), I have two buttons:
> ok and cancel.
> How to know the clicked button ?
> 

   Use ON CLICK codeblock - you can set there appropriate flag, or do 
something else. This is event-driven approach, which is used in GUI 
applications.


Regards, Alexander.

Re: [Hwgui-developers] Database codepage

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

I don't know, how it is with Hungarian, but for Russian there are 
different codepages for DOS and Windows applications, so in GUI programs 
I set one codepage for an application ( _SET_CODEPAGE ) and other for 
databases, because they are inherited from old times.

So, probably, you need to set a HUWIN as an application codepage.

I didn't know that _SET_CODEPAGE and _SET_DBCODEPAGE were added, so I use

hb_cdpSelect( "RU1251" ) // Win (ANSI) codepage for an application
...
use table codepage "RU866" // DOS (OEM) codepage for a table

Regards, Alexander.

Baloghy Gábor:
> Hi,
> 
> I have an orginally clipper, later harbour (gtvwt) application.I try
> it to transform to a gui application with hwgui.
> 
> My dbf tables are in HU852 codepage. I try to use the
> SET(_SET_DBCODEPAGE,"HU852") command, but the text in the the say /
> get gui elements are wrong.
> 
> Could you help me, what is missing from my sample program?
> 
> Regard,
> 
> Gabor
> 
> 
> #include "windows.ch"
> #include "guilib.ch"
> REQUEST HB_CODEPAGE_HU852
> REQUEST HB_LANG_HU852
> 
> FUNCTION MAIN
> 
> HB_LANGSELECT("HU852")
> SET(_SET_CODEPAGE,"HU852")
> SET(_SET_DBCODEPAGE,"HU852")
> 
> use table
> 
> init dialog oTest852 title "Test" size 600,400
> 
> x:=table->abcd
> 
> @ 20,20 say x size 300,25
> @ 20,50 get x size 300,25
> 
> activate dialog oTest852 center
> 
> return
> 
> ------------------------------------------------------------------------------
> Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
> Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
> Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
> Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
> http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers
> 

Re: [Hwgui-developers] A few questions from a beginner

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

Next question.

> 3) is there a way not to allow to change window size ?
> 

  hwg_WindowSetResize( oMainWindow:handle, .F. )

This is GTK only function, it's missed in Winapi version. It's needed to 
do something via classes to be crossplatform.

Regards, Alexander.

Re: [Hwgui-developers] A few questions from a beginner

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

Alain,

  I'll answer by parts in few messages, because each question demands 
some investigation.

> 1) I tried to put an image in background of my window like this:
> 
>    INIT WINDOW oMainWindow MAIN TITLE "Utilitaires de généalogie" ;
>      AT ox,oy SIZE 844,381 //;
>      BACKGROUND BITMAP cImageDir+"acte.png"
> 

   This doesn't work in GTK version. Gtk has different kinds of windows, 
some of them are drawable, some - not. So the decision is to place on 
the main window some drawable widget.

   @ 0,0 BITMAP "some.png"

is a good variant. Or you may use a panel with ON PAINT method and paint 
there anything you need.

> 2) I haven't found how to create a status bar
> 

    ADD STSTUS oStatus TO oMainWindow

and then use oStatus:SetText( someText ) to write there. This method has 
been fixed in a latest Changelog.

Regards, Alexander.

Re: [Hwgui-developers] How to keep the value of a combobox ?

[Alex S. <ss...@mw...>]

Hi Alain

> Sorry, but I haven't been able to make it work
> When I try your syntax, I have a syntax error on this line:

> Here is my complete box, give me the modifications (-- for removed
> lines, and ++ for added lines):

I'm sorry I do not have the time (or probably ability) to get your 
example working.

HWGUI has worked well for me but it is not very actively maintained and 
so as you see it is hard to get help for it. The Windows version saw 
active development after the initial versions, but not by Alexander 
Kresin, and the overall vision suffered.

I use it under Windows and possibly that is a reason why you cannot 
compile my small snippet (you are trying the GTK branch?). Further I 
have made various undocumented changes of my own, maybe that is another 
reason.

I would still suggest that you try the text object variable:

@ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
            SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:text}

I'm sorry I can't do more.

-- 
Regards
Alex

Re: [Hwgui-developers] How to keep the value of a combobox ?

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

<html>
  <head>
    <meta content="text/html; charset=windows-1252"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <div class="moz-cite-prefix">Le 28/09/2014 07:45, Alex Strickland a
      écrit :<br>
    </div>
    <blockquote cite="mid:542...@mw..." type="cite">
      <pre wrap="">I have this:

     @ ID 1000 OBJECT ::oName COMBOBOX ITEMS ::aMgrs STYLE 
CBS_DROPDOWNLIST + WS_TABSTOP + WS_CHILD + WS_VISIBLE + WS_VSCROLL ;
             AT 74, 13 SIZE 60, 39

In the Ok handler I simply check:

::oName:text</pre>
    </blockquote>
    Sorry, but I haven't been able to make it work<br>
    When I try your syntax, I have a syntax error on this line:<br>
    <br>
    Here is my complete box, give me the modifications (-- for removed
    lines, and ++ for added lines):<br>
    <br>
    ...<br>
    adel(aRegistres)<br>
    aRegistres:={}<br>
    adel(aCom)<br>
    aCom:={}<br>
    aCom=directory(orPath+"/"+oCommune+"/"+oType+"/*.pdf","")<br>
    if len(acom)=0<br>
       adel(aCom)<br>
       aCom:={}<br>
       aCom=directory(orPath+"/"+oCommune+"/"+oType+"/*.PDF","")<br>
    endif<br>
    adir=asort(aCom,,,{| x, y | x[ 1 ] &lt; y[ 1 ] })<br>
    for rg=1 to len(aCom)<br>
         aadd(aRegistres,aCom[rg,1])<br>
    next<br>
    if len(aRegistres) &gt;0<br>
        INIT DIALOG oDlg3 CLIPPER NOEXIT TITLE cTitle AT ox+140,oy+130 
    SIZE 520,180 ;<br>
            FONT oFont3<br>
    <br>
        oRegistre=aRegistres[1]<br>
        @ 15,10 SAY cText01 SIZE 200, 22 COLOR hwg_VColor("FF0000")<br>
        @ 15,32 SAY oCommune SIZE 290, 25 COLOR hwg_VColor("0000FF")<br>
    <br>
        @ 325,10 SAY cText02 SIZE 200, 22 COLOR hwg_VColor("FF0000")<br>
        @ 325,32 SAY oType SIZE 100, 25 COLOR hwg_VColor("0000FF")<br>
    <br>
        @ 15,62 SAY cText03 SIZE 200, 22 COLOR hwg_VColor("FF0000")<br>
        @ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;<br>
             SIZE 490, 25  ON CHANGE {|| oRegistre:=oCombo3:getvalue()}<br>
    <br>
        @ 120,130 BUTTON "Ok" OF oDlg3 ID IDOK  ;<br>
             SIZE 100, 32 COLOR hwg_VColor("FF0000")<br>
        @ 260,130 BUTTON "Annuler" OF oDlg3 ID IDCANCEL  ;<br>
             SIZE 100, 32<br>
    <br>
        ACTIVATE DIALOG oDlg3<br>
        oFont3:Release()<br>
    else<br>
       qout("Aucune registre trouvé ..."+chr(10))<br>
       hwg_Msginfo("Aucun registre trouvé ...","Lire un registre")<br>
    endif<br>
    if len(oRegistre) &gt;0<br>
       qout(oview+"
    "+orpath+"/"+oCommune+"/"+oType+"/"+oRegistre+"&amp;")   <br>
    //   run(oview+"
    "+orpath+"/"+oCommune+"/"+oType+"/"+oRegistre+"&amp;")<br>
    endif <br>
    Return Nil<br>
    <br>
    Try a syntax not too much embedded, as I have serious problems with
    oo<br>
    Thanks<br>
    <br>
    To be clear, how to affect the value of a combobox or more generally
    a dialog to a variable<br>
    <br>
    A+<br>
    <div class="moz-signature">-- <br>
      <hr>
      Alain Aupeix<br>
      <a class="moz-txt-link-freetext" href="http://jujuland.pagesperso-orange.fr/">http://jujuland.pagesperso-orange.fr/</a><br>
      <a class="moz-txt-link-freetext" href="http://pissobi-lacassagne.pagesperso-orange.fr/">http://pissobi-lacassagne.pagesperso-orange.fr/</a><br>
      <hr>
      <small>U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev
        (2014-09-09 22;51) | HbIDE (Rev.316) | Five.Linux (r138) |
        Hw.Gui (2285)</small>
      <hr>
    </div>
  </body>
</html>

Re: [Hwgui-developers] How to keep the value of a combobox ?

[Alex S. <ss...@mw...>]

On 2014-09-27 10:33 PM, Alain Aupeix wrote:
> I'm sorry to insist, but there is not too much guys who want to help me ...
>
> I have tried something like:
>
>           cRegistre=aRegistres[1]   // value of the first item of a text
> array
>           @ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
>                SIZE 490, 25  ON CHANGE {|| cRegistre=oCombo3:getvalue()}
>
> I'm completly lost, the documentation gives no solution, and there are
> not examples which can help ...
>
> Please, help me ...
> Thanks
> A+
>

I have this:

     @ ID 1000 OBJECT ::oName COMBOBOX ITEMS ::aMgrs STYLE 
CBS_DROPDOWNLIST + WS_TABSTOP + WS_CHILD + WS_VISIBLE + WS_VSCROLL ;
             AT 74, 13 SIZE 60, 39

In the Ok handler I simply check:

::oName:text

-- 
Regards
Alex

[Hwgui-developers] Fw: How to keep the value of a combobox ?

[Basso, L. F. <lf...@vi...>]

HWGUI 2.17 ???

         cRegistre:=aRegistres[1]   // value of the first item of a text
array
         @ 15,84 GET COMBOBOX oCombo3 VAR cRegistre ITEMS aRegistres STYLE
WS_TABSTOP ;
              SIZE 490, 25  //ON CHANGE {|| cRegistre=oCombo3:getvalue()}


to attrib use :=


-----Mensagem Original----- 
From: Alain Aupeix
Sent: Saturday, September 27, 2014 5:33 PM
To: Hwgui-developers ; Alexander S.Kresin
Subject: [Hwgui-developers] How to keep the value of a combobox ?

I'm sorry to insist, but there is not too much guys who want to help me ...

I have tried something like:

         cRegistre=aRegistres[1]   // value of the first item of a text
array
         @ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
              SIZE 490, 25  ON CHANGE {|| cRegistre=oCombo3:getvalue()}

I'm completly lost, the documentation gives no solution, and there are
not examples which can help ...

Please, help me ...
Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
------------------------------------------------------------------------

------------------------------------------------------------------------------
Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
_______________________________________________
Hwgui-developers mailing list
Hwg...@li...
https://lists.sourceforge.net/lists/listinfo/hwgui-developers 

[Hwgui-developers] How to keep the value of a combobox ?

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

I'm sorry to insist, but there is not too much guys who want to help me ...

I have tried something like:

         cRegistre=aRegistres[1]   // value of the first item of a text
array
         @ 15,84 GET COMBOBOX oCombo3 ITEMS aRegistres STYLE WS_TABSTOP ;
              SIZE 490, 25  ON CHANGE {|| cRegistre=oCombo3:getvalue()}

I'm completly lost, the documentation gives no solution, and there are
not examples which can help ...

Please, help me ...
Thanks
A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
------------------------------------------------------------------------

[Hwgui-developers] Database codepage

[Baloghy G. <bal...@gm...>]

Hi,

I have an orginally clipper, later harbour (gtvwt) application.I try
it to transform to a gui application with hwgui.

My dbf tables are in HU852 codepage. I try to use the
SET(_SET_DBCODEPAGE,"HU852") command, but the text in the the say /
get gui elements are wrong.

Could you help me, what is missing from my sample program?

Regard,

Gabor


#include "windows.ch"
#include "guilib.ch"
REQUEST HB_CODEPAGE_HU852
REQUEST HB_LANG_HU852

FUNCTION MAIN

HB_LANGSELECT("HU852")
SET(_SET_CODEPAGE,"HU852")
SET(_SET_DBCODEPAGE,"HU852")

use table

init dialog oTest852 title "Test" size 600,400

x:=table->abcd

@ 20,20 say x size 300,25
@ 20,50 get x size 300,25

activate dialog oTest852 center

return

Re: [Hwgui-developers] A few questions from a beginner

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

Le 21/09/2014 23:28, Alain Aupeix a écrit :
> After having tried and success to modify dbfview, just for the fun, to
> see if I was able to use hwgui, I tried to make my first program.
>
> I have use as base a.prg, and, if the beginning seems ok, I have some
> troubles about some points.
> I first must say that I was a clipper porgrammer, there is a very long
> time, and since, I ever have serious problem with object oriented
> programation, so be cool with me :)
>
> 1) I tried to put an image in background of my window like this:
>
>    INIT WINDOW oMainWindow MAIN TITLE "Utilitaires de généalogie" ;
>      AT ox,oy SIZE 844,381 //;
>      BACKGROUND BITMAP cImageDir+"acte.png"
>
> No error, but no image (I tried also with a bmp file, and it doesn't
> work too
> I success using another way which isn't made for:
>
>    @ 0,0 PANEL oBack SIZE 1250,381
>    @ -30,0 OWNERBUTTON OF oBack ;
>    SIZE 1250,381 ;
>    BITMAP cImageDir+"acte.png" COORDINATES 0,0,0,0
ok, I use now

@xx,yy bitmap

and it's better
> 2) I haven't found how to create a status bar
>
> I have used this way, but nothing can be written from menu or buttons.
> So, is there a way to do it, and are menus or toolbars able to display
> something in the status bar ?
>
>    // Status Bar
>    @ 0,361 PANEL oStatus SIZE 0,20
>
> 3) is there a way not to allow to change window size ?
I reformulate:
Is there a way to block a window size change ?
> 4) I tried to use editbox, but I failed to keep the edited value.
>
>    @ 20,10 SAY cText01 SIZE 510, 22
>    @ 20,25 EDITBOX oEdit01 CAPTION orpath    ;
>         STYLE WS_DLGFRAME              ;
>         SIZE 510, 26 COLOR hwg_VColor("FF0000")
>
> 5) In this box (a few similar to the one in a.prg), I have two buttons:
> ok and cancel.
> How to know the clicked button ?
on click ?
> 6) My prog loaded an ini file (parameters) from within main function by
> calling a function called readinit()
> if the inifile is present where I test, no problem, values are talken in
> the inifile.
> If the inifile isn't present, I have an error. Here is how I done:
> --------------------------------------------------------------------------------------
> function main
>
> readinit()
> ...
> return nil
> ---------------------------------------------------------------------------------------
> function readinit
> if file(ini)
>    read values, and set variables (which are declared memvar and public
> in main() )
> else
>   set variables to default values
>   // call of a function to edit values and create the inifile
>   IniEdit() 
> endif
>
> return nil
> ------------------------------------------------------------------------------------
> function IniEdit
>
> if file(GETENV("HOME")+"/harbour/ini/genetools.ini")
>    inicontent=memoread(GETENV("HOME")+"/harbour/ini/genetools.ini")
> else
> qout(orpath)
>    inicontent="[genetools]"+chr(10)+;
>               "regpath="+orpath+chr(10)+;
>               "gedpath="+ogpath+chr(10)+;
>               "srcpath="+ospath+chr(10)+;
>               "viewer="+oview+chr(10)+;
>               "downloader="+oget+chr(10)+;
>               "userstring="+ostring+chr(10)+;
>               "pdftool="+optool+chr(10)+;
>               "opentool="+oopen+chr(10)+;
>               "gedtool="+ogtool+chr(10)+;
>               "ad24="+oad24+chr(10)+;
>               "ad27="+oad27+chr(10)+;
>               "dec24="+odec24+chr(10)+;
>               "dec27="+odec27+chr(10)
> endif
>
>    @ 20,10 SAY cText01 SIZE 510, 22
>    @ 20,25 EDITBOX oEdit01 CAPTION orpath    ;
>         STYLE WS_DLGFRAME              ;
>         SIZE 510, 26 COLOR hwg_VColor("FF0000")
> ......
>    @ 200,660 LINE LENGTH 100
>    @ 120,680 BUTTON "Ok" OF oModDlg ID IDOK  ON CLICK {||UpdateIni()} ;
>         SIZE 100, 32 COLOR hwg_VColor("FF0000")
>    @ 280,680 BUTTON "Annuler" OF oModDlg ID IDCANCEL  ;
>         SIZE 100, 32
>
>    ACTIVATE DIALOG oModDlg
>    oFont:Release()
>
> // create the inifile
> memowrit(GETENV("HOME")+"/harbour/ini/genetools.ini",inicontent,.f.)
> // Call again Readinit to set the variables with new values after edition
> Readinit()
>
> return nil
> ---------------------------------------------------------------------------------------
> When the program returns in readinit() it crashes with a segmentation error
> When launching again, it's ok, so the error is when entering again in
> readinit()
> Is-it normal ?
> I think I can avoid it, by just giving a message to launch manually
> readinit() after
> returning in main(), and it won't crashes, but I thought it was better
> to do it automatically.
>
> 7) As a few variables are used in a few functions, I declare it as
> memvar and then public in main()
> It works, bet when building, I have warnings when using it.
>
> GeneTools.prg(513) Warning W0001  Ambiguous reference 'OGET'
> GeneTools.prg(514) Warning W0001  Ambiguous reference 'OSTRING'
> GeneTools.prg(515) Warning W0001  Ambiguous reference 'OPTOOL'
> GeneTools.prg(516) Warning W0001  Ambiguous reference 'OGTOOL'
> GeneTools.prg(517) Warning W0001  Ambiguous reference 'OAD24'
> ....
>
> Is-it normal or do I fail somewhere ?
> I noticed that in samples, there a also such warnings.
>
> Thanks for reading my complains, and to help me to progress in hwgui,
> which is really nice, and adapted to gnome desktops.
I guess it ought to be better to read documentation, but I haven' t
found one except a very old one which outdated
I need to use hwgui, as hbqt is really a pain

I also want to know how to use the debugger, and how to call it (I
suppose with altd(1) and altd() )

Thanks for your answer.

A+
-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
------------------------------------------------------------------------

[Hwgui-developers] A few questions from a beginner

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

After having tried and success to modify dbfview, just for the fun, to
see if I was able to use hwgui, I tried to make my first program.

I have use as base a.prg, and, if the beginning seems ok, I have some
troubles about some points.
I first must say that I was a clipper porgrammer, there is a very long
time, and since, I ever have serious problem with object oriented
programation, so be cool with me :)

1) I tried to put an image in background of my window like this:

   INIT WINDOW oMainWindow MAIN TITLE "Utilitaires de généalogie" ;
     AT ox,oy SIZE 844,381 //;
     BACKGROUND BITMAP cImageDir+"acte.png"

No error, but no image (I tried also with a bmp file, and it doesn't
work too
I success using another way which isn't made for:

   @ 0,0 PANEL oBack SIZE 1250,381
   @ -30,0 OWNERBUTTON OF oBack ;
   SIZE 1250,381 ;
   BITMAP cImageDir+"acte.png" COORDINATES 0,0,0,0

2) I haven't found how to create a status bar

I have used this way, but nothing can be written from menu or buttons.
So, is there a way to do it, and are menus or toolbars able to display
something in the status bar ?

   // Status Bar
   @ 0,361 PANEL oStatus SIZE 0,20

3) is there a way not to allow to change window size ?

4) I tried to use editbox, but I failed to keep the edited value.

   @ 20,10 SAY cText01 SIZE 510, 22
   @ 20,25 EDITBOX oEdit01 CAPTION orpath    ;
        STYLE WS_DLGFRAME              ;
        SIZE 510, 26 COLOR hwg_VColor("FF0000")

5) In this box (a few similar to the one in a.prg), I have two buttons:
ok and cancel.
How to know the clicked button ?

6) My prog loaded an ini file (parameters) from within main function by
calling a function called readinit()
if the inifile is present where I test, no problem, values are talken in
the inifile.
If the inifile isn't present, I have a n error. Here is how I done:
--------------------------------------------------------------------------------------
function main

readinit()
...
return nil
---------------------------------------------------------------------------------------
function readinit
if file(ini)
   read values, and set variables (which are declared memvar and public
in main() )
else
  set variables to default values
  // call of a function to edit values and create the inifile
  IniEdit() 
endif

return nil
------------------------------------------------------------------------------------
function IniEdit

if file(GETENV("HOME")+"/harbour/ini/genetools.ini")
   inicontent=memoread(GETENV("HOME")+"/harbour/ini/genetools.ini")
else
qout(orpath)
   inicontent="[genetools]"+chr(10)+;
              "regpath="+orpath+chr(10)+;
              "gedpath="+ogpath+chr(10)+;
              "srcpath="+ospath+chr(10)+;
              "viewer="+oview+chr(10)+;
              "downloader="+oget+chr(10)+;
              "userstring="+ostring+chr(10)+;
              "pdftool="+optool+chr(10)+;
              "opentool="+oopen+chr(10)+;
              "gedtool="+ogtool+chr(10)+;
              "ad24="+oad24+chr(10)+;
              "ad27="+oad27+chr(10)+;
              "dec24="+odec24+chr(10)+;
              "dec27="+odec27+chr(10)
endif

   @ 20,10 SAY cText01 SIZE 510, 22
   @ 20,25 EDITBOX oEdit01 CAPTION orpath    ;
        STYLE WS_DLGFRAME              ;
        SIZE 510, 26 COLOR hwg_VColor("FF0000")
......
   @ 200,660 LINE LENGTH 100
   @ 120,680 BUTTON "Ok" OF oModDlg ID IDOK  ON CLICK {||UpdateIni()} ;
        SIZE 100, 32 COLOR hwg_VColor("FF0000")
   @ 280,680 BUTTON "Annuler" OF oModDlg ID IDCANCEL  ;
        SIZE 100, 32

   ACTIVATE DIALOG oModDlg
   oFont:Release()

// create the inifile
memowrit(GETENV("HOME")+"/harbour/ini/genetools.ini",inicontent,.f.)
// Call again Readinit to set the variables with new values after edition
Readinit()

return nil
---------------------------------------------------------------------------------------
When the program returns in readinit() it crashes with a segmentation error
When launching again, it's ok, so the error is when entering again in
readinit()
Is-it normal ?
I think I can avoid it, by just giving a message to launch manually
readinit() after
returning in main(), and it won't crashes, but I thought it was better
to do it automatically.

7) As a few variables are used in a few functions, I declare it as
memvar and then public in main()
It works, bet when building, I have warnings when using it.

GeneTools.prg(513) Warning W0001  Ambiguous reference 'OGET'
GeneTools.prg(514) Warning W0001  Ambiguous reference 'OSTRING'
GeneTools.prg(515) Warning W0001  Ambiguous reference 'OPTOOL'
GeneTools.prg(516) Warning W0001  Ambiguous reference 'OGTOOL'
GeneTools.prg(517) Warning W0001  Ambiguous reference 'OAD24'
....

Is-it normal or do I fail somewhere ?
I noticed that in samples, there a also such warnings.

Thanks for reading my complains, and to help me to progress in hwgui,
which is really nice, and adapted to gnome desktops.

A+

-- 
------------------------------------------------------------------------
Alain Aupeix
http://jujuland.pagesperso-orange.fr/
http://pissobi-lacassagne.pagesperso-orange.fr/
------------------------------------------------------------------------
U.buntu 12.04 | G.ramps 3.4.8-1 | H.arbour 3.2.0dev (2014-09-09 22;51) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2285)
------------------------------------------------------------------------

[Hwgui-developers] hedit.prg small fix

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

Hi!
Changelog hedit.prg 2258 2014-05-28

On file hedit.prg, line 936 I add

936->   IF hCtrl == Nil .OR. ( i := Ascan( oParent:Getlist,{ |o|o:handle ==
hCtrl } ) ) != 0
937->      IF nSkip > 0
938->
939->         aLen := Len( oParent:Getlist )
//Here!
940->         IF aLen == i
941->            hwg_Setfocus( 0 )
942->            Return .T.
943->         ENDIF
//END

For run __valid() function on lastget into dialog.

I do not know yet how to run valid only once when the get out when dialog
close

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Dialog with get and valid

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

Hi!

#include 'hwgui.ch'

Function Main

Local oDlg, cAc02:=Space(5)

SET CONFIRM OFF

//Press on get AAAAA not run valid {||}

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

   @ 010,090 say "PASSW:" SIZE 65,15
   @ 010,110 get oAc02 VAR cAc02 PICTURE "!!!!!" SIZE 100,30 Valid
{||hwg_msginfo('Show only with ENTER'),.T.}

   //key return and exit show msginfo() twice
ACTIVATE Dialog oDlg

Return Nil

[Hwgui-developers] Dialog with get and valid

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

Hi!
Please verify.

#include 'hwgui.ch'

Function Main

Local oDlg, cAc02:=Space(5)

SET CONFIRM OFF

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

   @ 010,090 say "PASSW:" SIZE 65,15
   @ 010,110 get oAc02 VAR cAc02 PICTURE "!!!!!" SIZE 100,30 Valid
{||hwg_msginfo('Show only with ENTER'),.T.}

   //key return and exit show msginfo() twice
ACTIVATE Dialog oDlg

Return Nil

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] hBrowseEx error

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

Itamar M. Lins Jr. Lins writes:
> @ 3,80 BrowseEx oBrw DataBase of oDlg Size 625,470;
> STYLE WS_VSCROLL + WS_HSCROLL
> 
>       Add column {||" "} to oBrw ;
>       Header ' ' ;
>       Type 'C' DEC 0 ;
>       Length 2 ;
>       picture ' ' ;
>       Justify Line DT_RIGHT  Justify Head DT_CENTER
> 
> 
> Error BASE/1005  Message not found: HCOLUMN:_OPARENT
> ...

   Use ADD COLUMNEX for HBrowseEx class

  Regards, Alexander.

Re: [Hwgui-developers] hbrowse error syntaxe

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

Itamar M. Lins Jr. Lins writes:

> Now not show my column with JPG images.
> 
>    obitPreto    := hbitmap():AddFile( "imagens\BolaPreta.jpg" )
>    obitAmarelo  := hbitmap():AddFile( "imagens\BolaAmarela.jpg" )
> 

  Check with debugger or hwg_writelog( Valtype(obitPreto) ), if the 
hbitmap object was created or obitPreto is Nil

Regards, Alexander.

[Hwgui-developers] hBrowseEx error

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

@ 3,80 BrowseEx oBrw DataBase of oDlg Size 625,470;
STYLE WS_VSCROLL + WS_HSCROLL

      Add column {||" "} to oBrw ;
      Header ' ' ;
      Type 'C' DEC 0 ;
      Length 2 ;
      picture ' ' ;
      Justify Line DT_RIGHT  Justify Head DT_CENTER


Error BASE/1005  Message not found: HCOLUMN:_OPARENT
Called from ->__ERRRT_SBASE(0)
Called from ->HCOLUMN:ERROR(0)
Called from ->(b)HBOBJECT(0)
Called from ->HCOLUMN:MSGNOTFOUND(0)
Called from ->HCOLUMN:_OPARENT(0)
Called from ->INITCOLUMN(944)
Called from ->HBROWSEEX:ADDCOLUMN(885)

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Basic problem with DIALOG

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

#include 'hwgui.ch'

Function Main

Local oDlg, cAc02:=Space(5)

SET CONFIRM OFF

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

   @ 010,090 say "PASSW:" SIZE 65,15
   @ 010,110 get oAc02 VAR cAc02 PICTURE "!!!!!" SIZE 100,30 Valid
{||hwg_msginfo('Show only with ENTER key twice'),.T.}


ACTIVATE Dialog oDlg


Return Nil

Best regards,
Itamar M. Lins Jr.