hwgui-developers Mailing List for HwGUI (Page 22)

Brought to you by: alkresin, df7be, lculik, lfbasso, and 2 others

hwgui-developers — Discussing of HwGUI development

You can subscribe to this list here.

2004	Jan	Feb	Mar (64)	Apr (70)	May (54)	Jun (57)	Jul (34)	Aug (19)	Sep (28)	Oct (48)	Nov (42)	Dec (43)
2005	Jan (50)	Feb (19)	Mar (10)	Apr (5)	May (1)	Jun (14)	Jul (23)	Aug (6)	Sep (118)	Oct (110)	Nov (36)	Dec (6)
2006	Jan (19)	Feb (7)	Mar (4)	Apr (32)	May (6)	Jun (14)	Jul (42)	Aug (38)	Sep (88)	Oct (21)	Nov (40)	Dec (37)
2007	Jan (31)	Feb (20)	Mar (26)	Apr (38)	May (4)	Jun (3)	Jul (3)	Aug (8)	Sep (2)	Oct (3)	Nov (25)	Dec (9)
2008	Jan (7)	Feb (10)	Mar (16)	Apr (10)	May (25)	Jun (16)	Jul (27)	Aug (8)	Sep (20)	Oct (54)	Nov (11)	Dec (14)
2009	Jan (28)	Feb (22)	Mar (13)	Apr (70)	May (25)	Jun (23)	Jul (12)	Aug (18)	Sep (7)	Oct (4)	Nov (8)	Dec (36)
2010	Jan (58)	Feb (66)	Mar (3)	Apr (16)	May (9)	Jun (10)	Jul (6)	Aug (8)	Sep (17)	Oct (15)	Nov (12)	Dec (27)
2011	Jan (3)	Feb (17)	Mar (5)	Apr (12)	May (1)	Jun	Jul (1)	Aug (5)	Sep (56)	Oct (24)	Nov (8)	Dec (32)
2012	Jan (20)	Feb (3)	Mar	Apr	May	Jun (9)	Jul (29)	Aug (3)	Sep (17)	Oct (60)	Nov (17)	Dec (52)
2013	Jan (22)	Feb (35)	Mar (31)	Apr (5)	May (16)	Jun (108)	Jul (57)	Aug (2)	Sep (11)	Oct	Nov (3)	Dec (13)
2014	Jan (39)	Feb (15)	Mar	Apr (31)	May	Jun (9)	Jul (16)	Aug (1)	Sep (8)	Oct (51)	Nov (5)	Dec (119)
2015	Jan (78)	Feb (47)	Mar (25)	Apr (32)	May (34)	Jun (42)	Jul (62)	Aug (10)	Sep (11)	Oct (5)	Nov (13)	Dec (24)
2016	Jan (12)	Feb (1)	Mar (2)	Apr	May (1)	Jun (12)	Jul (5)	Aug (32)	Sep (36)	Oct (34)	Nov (3)	Dec (1)
2017	Jan (2)	Feb (3)	Mar (2)	Apr	May (3)	Jun (5)	Jul (6)	Aug (5)	Sep	Oct	Nov	Dec (1)
2018	Jan (1)	Feb (1)	Mar (1)	Apr	May	Jun	Jul	Aug (26)	Sep (24)	Oct (2)	Nov (6)	Dec (26)
2019	Jan (10)	Feb (5)	Mar	Apr (1)	May	Jun (1)	Jul (3)	Aug	Sep (2)	Oct (1)	Nov (1)	Dec (2)
2020	Jan (2)	Feb	Mar	Apr	May (5)	Jun (5)	Jul	Aug	Sep	Oct	Nov	Dec
2021	Jan (1)	Feb	Mar	Apr (1)	May	Jun (1)	Jul	Aug	Sep	Oct	Nov	Dec (1)
2022	Jan	Feb	Mar	Apr	May (1)	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2023	Jan	Feb	Mar	Apr	May	Jun	Jul (1)	Aug (4)	Sep	Oct (1)	Nov (1)	Dec (1)

Flat | Threaded

<< < 1 .. 20 21 22 23 24 .. 147 > >> (Page 22 of 147)

[Hwgui-developers] Bug on get system of Hwgui 2.19

From: Itamar M. L. J. L. <ita...@gm...> - 2015-04-06 15:28:11

Alain Aupeix,

The user not key (Ctrl+Ins...) is windows OS, Ctrl+C is default, everyone
knows that.
It is a bug of Hwgui 2.19, with 2.17 works fine.

There are old problems in version 2.19 that do not exist in version
2.17 had been
fixed to the long years by other programmers, and that were lost when
alexander, copied the 2.16c version to version 2.18-> 19.
Many users can not migrate to version 2.19 because it has many problems,
not just compatibility, but old bug's that had been fixed.

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] Change size of variables and <Ctrl+C>, <Ctrl+V> not work.

From: Alain A. <ala...@wa...> - 2015-04-06 15:17:26

<html>
  <head>
    <meta content="text/html; charset=windows-1252"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <div class="moz-cite-prefix">I have the same problem with Ctrl-C and
      Ctrl-V.<br>
      Under linux, in get, it doesn't work.<br>
      But you can replace it by Ctrl-Ins and Shift-Ins<br>
      <br>
      A+<br>
    </div>
    <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
        (2015-03-27 15:21) | HbIDE (Rev.316) | Five.Linux (r138) |
        Hw.Gui (2375)</small>
      <hr>
    </div>
  </body>
</html>

[Hwgui-developers] Change size of variables and <Ctrl+C>, <Ctrl+V> not work.

From: Itamar M. L. J. L. <ita...@gm...> - 2015-04-06 15:08:47

The error persist.
hedit.prg 2376 2015-04-06 13:44:39Z alkresin

#include "hwgui.ch"
Function main
LOCAL oDlg, cA:= space(9), cB := space(9), cTitle := hwg_version()
//Please active <Ins> key!

INIT DIALOG oDlg clipper title cTitle AT 100,100 SIZE 500,200

   @ 10,10 get oA VAR cA SIZE 80,25 picture "999999999" MAXLENGTH 9 //With
<Ins> key activated typing something

   @ 10,40 get oB VAR cB SIZE 80,25 picture "999999999" MAXLENGTH 9 WHEN
{|| hwg_msginfo(str(len(cA))), .T.} //Other bug, When(flag) run n times

oDlg:Activate()

//and change space while <Ins> is activated
hwg_msginfo(str(len(cA)))
hwg_msginfo(str(len(cB)))


Same problem with other example.
#include "hwgui.ch"
Function main
LOCAL oDlg, cA:= "ABCDE FGHI JKLMNOP QRSTU VXYZW 12345 6", cB := space(60)
//Please active <Ins> key!

INIT DIALOG oDlg AT 100,100 SIZE 500,200

   @ 10,10 get oA VAR cA SIZE 400,25  //Please copy all text

   @ 10,40 get oB VAR cB SIZE 400,25  //Paste text here!! Stop in "P" :-(

oDlg:Activate()

hwg_msginfo(str(len(cB))) //and change space while <Ins> is activated


No clean buffers(space blank) of cB, it pushes spaces to the right corner,
if key <Del> n times, and <Ctrl+C> works fine.

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] Menu action

From: Alain A. <ala...@wa...> - 2015-04-06 14:54:30

Le 06. 04. 15 14:37, Alexander S.Kresin a écrit :
> Alain Aupeix writes:
>> Buttons allows to launch more than one action.
>> It seems not to be possible from menus.
>> Is there a way to do it, or is-it possible to improve it ?
>>
>    If you mean calling few functions, just enclose them in parenthesis:
>
>    ... ACTION ( func1(), func2() )
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 (2015-03-27 15:21) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2375)
------------------------------------------------------------------------

[Hwgui-developers] hbactivex.hbp error: too few arguments to func tion 'hb_arrayScan'

From: Itamar M. L. J. L. <ita...@gm...> - 2015-04-06 14:29:22

Hi!
C:\devl\hwgui\contrib>hbmk2 hbactivex.hbp
hbmk2: Harbour: Compilando m├│dulos...
hbmk2: Compilando...
../../../../contrib/activex/c_activex.c: In function 'Invoke':
../../../../contrib/activex/c_activex.c:371:10: error: too few arguments to
func
tion 'hb_arrayScan'
          hb_arrayScan( ( ( MyRealIEventHandler * ) this )->pEvents,
          ^
In file included from ../../../../contrib/activex/c_activex.c:38:0:
C:/HB34/include/hbapi.h:854:31: note: declared here
 extern HB_EXPORT HB_SIZE      hb_arrayScan( PHB_ITEM pArray, PHB_ITEM
pValue, H
B_SIZE * pnStart, HB_SIZE * pnCount, HB_BOOL fExact, HB_BOOL fMatchCase );
/* sc
an an array for a given item, or until code-block item returns HB_TRUE */
                               ^
hbmk2 [hbactivex]: Erro: Executando o compilador C/C++ - tarefa #1. 1
gcc.exe -c -O3  -DHWG_USE_POINTER_ITEM -W -Wall -m32 -pipe
-IC:/HB34/include -I.
./../../../include ../../../../lib/.hbmk/win/mingw/hhtml.c
../../../../lib/.hbmk
/win/mingw/h_activex.c ../../../../contrib/activex/c_activex.c

C:\devl\hwgui\contrib>hbmk2 hbactivex.hbp

Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] Menu action

From: Alexander S.K. <al...@be...> - 2015-04-06 13:37:59

Alain Aupeix writes:
> Buttons allows to launch more than one action.
> It seems not to be possible from menus.
> Is there a way to do it, or is-it possible to improve it ?
> 

   If you mean calling few functions, just enclose them in parenthesis:

   ... ACTION ( func1(), func2() )

Regards, Alexander.

[Hwgui-developers] Menu action

From: Alain A. <ala...@wa...> - 2015-04-06 09:52:03

Buttons allow to launch more than one action.
It seems not to be possible from menus.
Is there a way to do it, or is-it possible to improve it ?

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 (2015-03-27 15:21) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2375)
------------------------------------------------------------------------

[Hwgui-developers] Menu action

From: Alain A. <ala...@wa...> - 2015-04-06 09:51:48

Buttons allows to launch more than one action.
It seems not to be possible from menus.
Is there a way to do it, or is-it possible to improve it ?

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 (2015-03-27 15:21) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2375)
------------------------------------------------------------------------

[Hwgui-developers] Some features(fix) lost! nMaxLenght.

From: Itamar M. L. J. L. <ita...@gm...> - 2015-04-02 22:53:28

Hi!
This version 2.19 not found this!
Not found into hedit.prg(2.19) nMaxLength, is old lMaxlength(method)

2011-10-14 08:50 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
   * include/guilib.ch
     #xcommand @ <x>,<y> COMBOBOX [ <oCombo> ITEMS ] <aItems> ;
    #xcommand REDEFINE COMBOBOX [ <oCombo> ITEMS ] <aItems> ;
    + CLAUSE [ MAXLENGTH <nMaxLength> ] ;
   * source/hcombox.prg
     + DATA nMaxLength     INIT Nil
     + METHOD MaxLength( nMaxLength )
      assigned size limit text in combobox EDIT same behavior EDIT
     * METHOD Requery
      ! fix assigned initial value when bsetget = nil
    ! fixed nHeight in METHOD ACTIVATE
    * METHOD onEvent
      ! fixed use ARROWS in combo EDIT

...
2007-11-14 01:45 UTC+0100 Maurizio la Cecilia <mau...@ya...>
    * source/hwindow
      ! added the ::nSkip property also for windows other than dialog
        (thanks to Gilberto Silverio for the alert)
    * source/hedit.prg
      ! changed DeleteChar() to erase the active selection and not only a
        single char (some other work is needed in case of picture with not
        editable patterns)
      * changed the property name lMaxLenght to nMaxLenght
      ! forced the lenght of edit string to nMaxLenght value when the
        property is setted

now any declared variable has its modified size
any. And other anomalies ie <Ctrol+V> not working

Please see the examples I posted.
Can anyone fix this?

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] How to allow to display images in tutor ?

From: Alain A. <ala...@wa...> - 2015-04-01 09:04:33

Sent once again, as no zip file are authorized on hwgui-developers
----------------------------------

Hi,

I have simplified tutor to be able to use it as a help module (external)
for my programs.

All I wanted for is works, except two points:
1) Some words I wanted to highlight aren't highlighted.
2) I would include images display in comment, but I don't know how to do
it in tutor, and in xml file.

If you have an idea and can help me to improve it.
Could a solution be a way to import html files ?

I join a link my tutor version, and the two needed xml
https://www.dropbox.com/s/27lbz8uxwcv0snr/GeneHelp.zip?dl=1
A detail, my tutor isn't made to be launched without 3 or 4 parameters.
GeneHelp left top path rubrique
Example:
GeneHelp 100 100 .
or
GeneHelp 100 100 . quit

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 (2015-03-27 15:21) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2375)
------------------------------------------------------------------------

[Hwgui-developers] Serious bug on @ ... GET

From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-31 21:07:48

#include "hwgui.ch"
Function main
LOCAL oDlg, cA:= space(9), cB := space(9)
//Please active <Ins> key!

INIT DIALOG oDlg clipper AT 100,100 SIZE 500,200

   @ 10,10 get oA VAR cA SIZE 80,25 picture "999999999" MAXLENGTH 9 //With
<Ins> key activated typing something

   @ 10,40 get oB VAR cB SIZE 80,25 picture "999999999" MAXLENGTH 9 WHEN
{|| .T., str(len(cA)),  .T.} //Here other problem flag "when" not work!

oDlg:Activate()

//and change space while <Ins> is activated
hwg_msginfo(str(len(cA)))
hwg_msginfo(str(len(cB)))

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Serious bug on EditBox (Copy/Paste) and other with <Ins> key on, more...

From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-31 20:38:52

#include "hwgui.ch"
Function main
LOCAL oDlg, cA:= "ABCDE FGHI JKLMNOP QRSTU VXYZW 12345 6", cB := space(60)
//Please active <Ins> key!

INIT DIALOG oDlg AT 100,100 SIZE 500,200

   @ 10,10 get oA VAR cA SIZE 400,25  //Please copy all text

   @ 10,40 get oB VAR cB SIZE 400,25  //Paste text here!! Stop in "P" :-(

oDlg:Activate()

//Var cB is declared with space(60) while <Ins> key activated space =
Variable len :-(
hwg_msginfo(str(len(cB))) //and change space while <Ins> is activated

Other problem is while use picture "@R 99-999/999/999-99" and select all
get(editbox) <Ctrl>+<C> and open notepad key <Ctrl>+<V> it copies not only
the content(numbers) but "123-567/890/000-11" it is copying signal and
numbers :-(

Best regards,
Itamar M. Lins Jr

Re: [Hwgui-developers] Create a menu from a dbf

From: Alain A. <ala...@wa...> - 2015-03-30 17:12:02

Le 29. 03. 15 17:00, Alain Aupeix a écrit :
> I just need to improve to allow more than one parameter, and embedded
> menus

I have modified my first test, to generate menus and submenus.
When developping the menu structure, it works except when there the menu
command is MENUITEM (at the end of the creation)

Action doesn't work as expected.
The parameters are always the one of the last record.
I had first the problem using directly the fields in the process.
I replaced by an array and it's the same problem.

Here is the code:

local  aDepart:={}, aMenus:={}, cDept, nbdep, nbcom, nbmenu, rgd, rgc,
action, param1, param2, cCanton, cArrondissement, nDept, nTab:=0

// Prérequis des Menus
select 2
use communes index decaco
nbcom=lastrec()
go top
select 3
use departments index depart
go top
nbdep=lastrec()
go top
for rgd=1 to nbdep
    select 3
    aadd(aDepart,{departments->deparmnt,departments->code})
    select 2
    rgd=1
    do while trim(communes->deparmnt) == trim(departments->deparmnt)
      
aadd(aCommune,{communes->insee,communes->postal,communes->commune,communes->canton,communes->arondmnt,communes->deparmnt,communes->immatric,communes->latitude,communes->longitude,communes->indice,rgd})
       rgd++
       skip
    enddo
next
select 3
nbdep=lastrec()

// Menus
MENU OF oMainWindow
   MENU TITLE "&Fichier"
      MENUITEM "&Ouvrir" ACTION FileOpen()
      SEPARATOR
      MENUITEM "Configuration" ACTION IniEdit()
      SEPARATOR
      MENUITEM "&Quitter" ACTION Quitter()
   ENDMENU
   MENU TITLE "&Outils"
      MENUITEM "&Lire un registre (local)" ACTION ReadReg()
      MENU TITLE "Archives départementales"
      for rgd = 1 to nbdep
           cDept = aDepart[rgd,1]
           nDept = aDepart[rgd,2]
           MENU TITLE trim(cDept)
                MENU TITLE "Accéder aux communes"
                rgc=1
                do while trim(aCommune[rgc,6]) == trim(cDept)
                     cArrondissement = aCommune[rgc,5]
                     cCanton = aCommune[rgc,4]
                     MENU TITLE trim(cArrondissement)
                     do while aCommune[rgc,5] == cArrondissement
                          cCanton = aCommune[rgc,4]
                          MENU TITLE trim(cCanton)
                          do while aCommune[rgc,4] == cCanton
                                action="canton24"
                                param1=trim(aCommune[rgc,4])
                                param2=trim(aCommune[rgc,10])
                                cCommune = trim(aCommune[rgc,3])

// this qout confirms that the values are correct during the construct
process
qout(cCommune+space(40-len(cCommune))+action+"("+param1+","+param2+")")

                                MENUITEM cCommune ACTION
&(action)('"'+param1+'"','"'+param2+'"')
                                rgc++
                                if rgc > nbcom
                                   exit
                                endif
                         enddo
                         ENDMENU
                         rgc++
                         if rgc > nbcom
                            exit
                         endif
                     enddo
                     ENDMENU 
                     rgc++
                     if rgc > nbcom
                        exit
                     endif
                enddo
                ENDMENU
                SEPARATOR
                MENUITEM "&Télécharger un BMS" ACTION Commune("bms")
                MENUITEM "Télécharger une &décénale" ACTION Commune("dec")
           ENDMENU
      next
      ENDMENU
...
   ENDMENU

I really don't understand what is the problem.

If you have an idea ...

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 (2015-03-27 15:21) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2375)
------------------------------------------------------------------------

Re: [Hwgui-developers] Create a menu from a dbf

From: Alain A. <ala...@wa...> - 2015-03-29 15:00:30

Le 29. 03. 15 16:26, Alain Aupeix a écrit :
> Hi,
>
> I'm building a genealogy helper application to access to the omline
> registry of french departements.
>
> For now, I'm just using one departement. It has 576 cities.
> To build a menu, is a real pain.
> So, I try to create it using a dbf file (with a short menu first.
I have now found a solution:

/local tabdec:={}, rg, action, param//
//....//
//select 3//
//use dec//
//go top//
//for rg=1 to lastrec()//
//   
aadd(tabdec,{trim(dec->title),trim(dec->item),trim(dec->command),trim(dec->param)})//
//    skip//
//next//
//.....//
//MENU TITLE "Télécharger une &décénale"//
//for rg=1 to 4//
//     MENU TITLE tabdec[rg,1]//
//          action=tabdec[rg,3]//
//          param=tabdec[rg,4]//
//          MENUITEM tabdec[rg,2] ACTION &(action)('"'+param+'"')//
//     ENDMENU//
//next//
ENDMENU
/
I just need to improve to allow more than one parameter, and embedded menus

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 (2015-03-27 15:21) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2375)
------------------------------------------------------------------------

[Hwgui-developers] Create a menu from a dbf

From: Alain A. <ala...@wa...> - 2015-03-29 14:26:29

Hi,

I'm building a genealogy helper application to access to the omline
registry of french departements.

For now, I'm just using one departement. It has 576 cities.
To build a menu, is a real pain.
So, I try to create it using a dbf file (with a short menu first.

If I code it like this, menu is correctly created, but it fail to
execute the ACTION (does nothing):

      MENU TITLE "Télécharger une &décénale"
      for rg=1 to 4
           MENU TITLE tabdec[rg,1]
                MENUITEM tabdec[rg,2] ACTION tabdec[rg,3]
           ENDMENU
      next
      ENDMENU

I have tried to use ACTION eval(tabdec[rg,3], but it generate an error.

Is there a way to do it ?

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 (2015-03-27 15:21) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2375)
------------------------------------------------------------------------

[Hwgui-developers] Application icon for Linux hwgui programs

From: Alain A. <ala...@wa...> - 2015-03-29 12:53:06

Hi, it's very ennoying not to have an icon with hwgui applications.

I'm not a programmer, but I searched for this point,  and find a way for
gtk+ programs to do it.

http://zetcode.com/tutorials/gtktutorial/firstprograms/

Could it be possible to add it to hwgui ?

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 (2015-02-23 16:47) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2374)
------------------------------------------------------------------------

[Hwgui-developers] How to give again the focus to a box

From: Alain A. <ala...@wa...> - 2015-03-28 17:16:01

Hi,

I have a function which execute an hb_run() function => it opens firefox
with a link and return the focus to the function.
Then another function is called which opens a box.

Firefox make a certain time to open the url, and the box appears before
firefox has finished.
I want that the box has the focus and is above, and tried to give it
using an external tool with hb_run(wmctrl ...)
Unfortunately inkey() is inoperative with gui, and I'm not able to wait
the end of the firefox overture before sending my focus command.

Is there a way to wait in guy, or a way to give focus with hwgui ?

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 (2015-02-23 16:47) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2374)
------------------------------------------------------------------------

[Hwgui-developers] How to refresh display ?

From: Alain A. <ala...@wa...> - 2015-03-28 09:13:31

Hi Alexander,

I have found it.
I first forgot to give SIZE param.
And then just duplicate the say lines in DisplayCommune()

Thanks
A+

code :

//
============================================================================
Function Commune(cwhy)
//
============================================================================
Local oDlg, oFont := HFont():Add( "Serif",0,-13 )
Local cTitle
Local cText01 := "Choisissez la commune"
Local cText02 := "Canton"
Local cText03 := "Code INSEE"
Local cText04 := "Code Postal"
Local cText05 := "Latitude"
Local cText06 := "Longitude"
Local aCommune:={}, aCanton:={}, aIndice:={}


if cWhy == "bms"
   cTitle = "Télécharger un BMS"
   oStatus:SetText(" Télécharger un BMS ...")
elseif cWhy == "dec"
   cTitle = "Télécharger un registre décénal"
   oStatus:SetText(" Télécharger un registre décénal ...")
else
   cTitle = "Consulter les registres d'une commune"
   oStatus:SetText(" Consulter les registres d'une commune ...")
endif

select 2
use communes index ccommune
go top
do while.not.eof()
   aadd(aCommune,communes -> commune)
   aadd(aCanton,communes -> canton)
   aadd(aIndice,communes -> indice)
   skip
enddo
go top
rCommune= communes -> commune

oStatus:SetText("Connexion aux Archives départemental AD24 ...")

if len(aCommune) > 0
   INIT DIALOG oDlg CLIPPER NOEXIT TITLE cTitle AT
oMainWindow:nLeft+140,oMainWindow:nTop+130  SIZE 520,180 ;
        FONT oFont

   hwg_SetDlgKey( oDlg, 0, VK_F1, {|| Help("Commune") } )

   @ 15,10   SAY cText01 SIZE 200, 22 COLOR hwg_VColor("FF0000")
   @ 15,32   GET COMBOBOX oCommune VAR rCommune ITEMS aCommune STYLE
WS_TABSTOP SIZE 290, 25;
             TOOLTIP "Choix de la commune";
             ON CHANGE {||DisplayCommune(rCommune)};
             TEXT

   @ 400,10  SAY cText02 SIZE 200, 22 COLOR hwg_VColor("FF0000")
   @ 365,32  SAY cparam2 SIZE 200, 22 COLOR hwg_VColor("FF0000")

   @ 15,72   SAY cText03 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 15,94   SAY cparam3 SIZE 200, 22 COLOR hwg_VColor("FF0000")

   @ 120,72  SAY cText04 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 120,94  SAY cparam4 SIZE 200, 22 COLOR hwg_VColor("FF0000")

   @ 300,72  SAY cText05 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 300,94  SAY cparam5 SIZE 200, 22 COLOR hwg_VColor("FF0000")

   @ 400,72  SAY cText06 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 400,94  SAY cparam6 SIZE 200, 22 COLOR hwg_VColor("FF0000")

   @ 120,130 BUTTON "Ok" OF oDlg ID IDOK  ;
             SIZE 100, 32 COLOR hwg_VColor("FF0000") ;
             ON CLICK {||oDlg:lResult:=.t.}
   @ 260,130 BUTTON "Annuler" OF oDlg ID IDCANCEL ;
             SIZE 100, 32
   ACTIVATE DIALOG oDlg
   oFont:Release()
   if oDlg:lresult
      qout("A voir")
   endif
else
   hwg_Msginfo("Fichier communes.dbf non trouvé ...","Ouverture d'une
archive AD24 en ligne")
endif
oStatus:SetText("")

Return Nil

//
============================================================================
Function DisplayCommune(rcommune)
//
============================================================================

select 2
go top
seek rcommune
cparam2=communes -> canton
cparam3=communes -> insee
cparam4=communes -> postal
cparam5=communes -> latitude
cparam6=communes -> longitude
if found()
   qout("found ...")
else
   qout("not found ...")
endif

Return Nil

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

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 (2015-02-23 16:47) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2374)
------------------------------------------------------------------------

------------------------------------------------------------------------------
Dive into the World of Parallel Programming The Go Parallel Website,
sponsored
by Intel and developed in partnership with Slashdot Media, is your hub
for all
things parallel software development, from weekly thought leadership
blogs to
news, videos, case studies, tutorials and more. Take a look and join the
conversation now. http://goparallel.sourceforge.net/
_______________________________________________
Hwgui-developers mailing list
Hwg...@li...
https://lists.sourceforge.net/lists/listinfo/hwgui-developers

[Hwgui-developers] How to refresh display ?

From: Alain A. <ala...@wa...> - 2015-03-27 16:47:58

Hi Alexander,

I have a small problem to refresh the display of the variables cparam2
to cparam6, when changing the activ element of the combobox.
I saw that onchange() works, as it displays that the record has been
found, but I don't know how to refresh the display.


code :

//
============================================================================
Function Commune(cwhy)
//
============================================================================
Local oDlg, oFont := HFont():Add( "Serif",0,-13 )
Local cTitle
Local cText01 := "Choisissez la commune"
Local cText02 := "Canton"
Local cText03 := "Code INSEE"
Local cText04 := "Code Postal"
Local cText05 := "Latitude"
Local cText06 := "Longitude"
Local aCommune:={}, aCanton:={}, aIndice:={}


if cWhy == "bms"
   cTitle = "Télécharger un BMS"
   oStatus:SetText(" Télécharger un BMS ...")
elseif cWhy == "dec"
   cTitle = "Télécharger un registre décénal"
   oStatus:SetText(" Télécharger un registre décénal ...")
else
   cTitle = "Consulter les registres d'une commune"
   oStatus:SetText(" Consulter les registres d'une commune ...")
endif

select 2
use communes index ccommune
go top
do while.not.eof()
   aadd(aCommune,communes -> commune)
   aadd(aCanton,communes -> canton)
   aadd(aIndice,communes -> indice)
   skip
enddo
go top
rCommune= communes -> commune

oStatus:SetText("Connexion aux Archives départemental AD24 ...")

if len(aCommune) > 0
   INIT DIALOG oDlg CLIPPER NOEXIT TITLE cTitle AT
oMainWindow:nLeft+140,oMainWindow:nTop+130  SIZE 520,180 ;
        FONT oFont

   hwg_SetDlgKey( oDlg, 0, VK_F1, {|| Help("Commune") } )

   @ 15,10   SAY cText01 SIZE 200, 22 COLOR hwg_VColor("FF0000")
   @ 15,32   GET COMBOBOX oCommune VAR rCommune ITEMS aCommune STYLE
WS_TABSTOP SIZE 290, 25;
             TOOLTIP "Choix de la commune";
             ON CHANGE {||DisplayCommune(rCommune)};
             TEXT

   @ 400,10  SAY cText02 SIZE 200, 22 COLOR hwg_VColor("FF0000")
   @ 365,32  SAY cparam2 COLOR hwg_VColor("FF0000")

   @ 15,72   SAY cText03 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 15,94   SAY cparam3 COLOR hwg_VColor("FF0000")

   @ 120,72  SAY cText04 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 120,94  SAY cparam4 COLOR hwg_VColor("FF0000")

   @ 300,72  SAY cText05 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 300,94  SAY cparam5 COLOR hwg_VColor("FF0000")

   @ 400,72  SAY cText06 SIZE 80, 22 COLOR hwg_VColor("FF0000")
   @ 400,94  SAY cparam6 COLOR hwg_VColor("FF0000")

   @ 120,130 BUTTON "Ok" OF oDlg ID IDOK  ;
             SIZE 100, 32 COLOR hwg_VColor("FF0000") ;
             ON CLICK {||oDlg:lResult:=.t.}
   @ 260,130 BUTTON "Annuler" OF oDlg ID IDCANCEL ;
             SIZE 100, 32
   ACTIVATE DIALOG oDlg
   oFont:Release()
   if oDlg:lresult
      qout("A voir")
   endif
else
   hwg_Msginfo("Fichier communes.dbf non trouvé ...","Ouverture d'une
archive AD24 en ligne")
endif
oStatus:SetText("")

Return Nil

//
============================================================================
Function DisplayCommune(rcommune)
//
============================================================================

select 2
go top
seek rcommune
cparam2=communes -> canton
cparam3=communes -> insee
cparam4=communes -> postal
cparam5=communes -> latitude
cparam6=communes -> longitude
if found()
   qout("found ...")
else
   qout("not found ...")
endif

Return Nil

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

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 (2015-02-23 16:47) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2374)
------------------------------------------------------------------------

Re: [Hwgui-developers] hwg_CREATEARLIST()

From: Alexander S.K. <al...@be...> - 2015-03-26 14:08:07

I've build the following sample and it works normally, there is no any 
trimming:

#include "hwgui.ch"

Function Main
Local oDlg, oBrw1, aList

    INIT DIALOG oDlg TITLE "About" AT 190,10  SIZE 400,240

    @ 20,30 BROWSE oBrw1 ARRAY SIZE 360,150 STYLE WS_BORDER

    aList:={"1234567890     "}
    hwg_CREATEARLIST(oBrw1,aList)
    oBrw1:aColumns[1]:heading := "CODE"

    ACTIVATE DIALOG oDlg
Return Nil

Regards, Alexander.

Itamar M. Lins Jr. Lins writes:
> Hi!
> While I use Array Browse via hBrowse.prg, it no respect space of cell, 
> it trim cell.
> For example:
> 
> aList:={"1234567890     "}
> hwg_CREATEARLIST(oBrw,aList)
> oBrw:aColumns[1]:heading := "CODE"
> 
> Show data column!
> "1234" -> it trim cell, not show complete data and space.
> Now using hBrowseEx works fine!
> 
> Best regards,
> Itamar M. Lins Jr.

[Hwgui-developers] Bug copy/paste.

From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-26 00:03:53

#include "hwgui.ch"
Function main
LOCAL oDlg, cA:= "ABCDE FGHI JKLMNOP QRSTU VXYZW 12345 6", cB := space(60)

INIT DIALOG oDlg AT 100,100 SIZE 500,200 CLIPPER NOEXIT

   @ 10,10 get oA VAR cA SIZE 400,25  //Please copy all text

   @ 10,40 get oB VAR cB SIZE 400,25  //Paste text here!! Stop in "P" :-(


oDlg:Activate()


Best regards,
Itamar M. Lins Jr.

Re: [Hwgui-developers] Position cursor @ GET on focus via mouse.

From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-24 21:22:58

>   Sorry, I didn't understand. When you click with mouse on the get
>item, the cursor stands at the place, where you clicked.
>   Isn't this right ? Or you mean something other ?
>Regards, Alexander.


Hi!
The problem occurs with get date field picture "@E" or picture "@R
999.999/999-99" while receives focus via mouse click no go to onset
position.

For simple field get picture "@!" works o none mask run fine.

Field date "  /  /  " -> clicked mouse on second bar cursor not go begin of
get.
Field "   .    .   /   /   -   " -> clicked mouse on minus sign cursor not
go begin of get.

Best regards,
Itamar M. Lins Jr.

2015-03-17 13:35 GMT-03:00 Itamar M. Lins Jr. Lins <ita...@gm...>:

> Hi!
> When a @ ... GET ... receive focus of mouse cursor no go from position
> initial of the string.
>
> Best regards,
> Itamar M. Lins Jr.
>

[Hwgui-developers] hwg_CREATEARLIST()

From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-24 20:21:40

Hi!
While I use Array Browse via hBrowse.prg, it no respect space of cell, it
trim cell.
For example:

aList:={"1234567890     "}
hwg_CREATEARLIST(oBrw,aList)
oBrw:aColumns[1]:heading := "CODE"

Show data column!
"1234" -> it trim cell, not show complete data and space.
Now using hBrowseEx works fine!

Best regards,
Itamar M. Lins Jr.

[Hwgui-developers] Shortcut keys in menus

From: Alain A. <ala...@wa...> - 2015-03-24 20:00:46

I just notice that the shortcut keys in menu aren't displayed when
opening menus with the mouse.

Is-it a bug or a normal feature ?

When using keyboard
&Tools => _T_ools
When using mouse
&Tools => Tools

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 (2015-02-23 16:47) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2374)
------------------------------------------------------------------------

[Hwgui-developers] Message not found: HCOLUMN:VALUE

From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-24 19:02:59

Hi!
...
hwg_CREATEARLIST(oBrw,aFiltro)
...
 If eq->(DbSeek(oBrw:aColumns[1]:Value))

Error BASE/1004  Message not found: HCOLUMN:VALUE
Called from ->__ERRRT_SBASE(0)
Called from ->HCOLUMN:ERROR(0)
Called from ->(b)HBOBJECT(0)
Called from ->HCOLUMN:MSGNOTFOUND(0)
Called from ->HCOLUMN:VALUE(0)


Best regards,
Itamar M. Lins Jr.

101 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 20 21 22 23 24 .. 147 > >> (Page 22 of 147)