hwgui-developers — Discussing of HwGUI development

Re: [Hwgui-developers] Numpad keys don't work anymore ...

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

Alain Aupeix пишет:
> Two bugs I reported there is a few time ...
> ______________________________________________________
> 
> Hi, trying the last version od editor, I saw 2 bugs:
> 
> 1) Numpad keys (+-*/) dont work anymore.

   They never worked ( 1,2,...9 worked only). Fixed now.
> 
> 2) A bug when marking a string:
> 
> (12+3)*4
> <Shift><Home>
> F9
> =>
> Error BASE/1111  Argument error: LEN
> ...

  Fixed.

Regards, Alexander.

[Hwgui-developers] Get validation

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

Hi,

I have a windows where I have gets, and two buttons Cancel and Validate

If I modify a get, and without changing the focused get,  I hit the
button accept, the value of the get isn't updated, and I save the old value.

Is there a way to validate it automatically ?

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 (2015-11-25 14:06) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2501)
------------------------------------------------------------------------

[Hwgui-developers] A bug in get system (Linux)

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

I have a get that I initialized with a value.

1) Entering in the get clicking with the mouse at the end of the string.
Even the pointer is at the end of the string, the characters are added
or overwrite the beginning of the string

2) If I'm editing the get, and I must leave the focus, for exemple to do
something elsewhere, when I return to the get, the characters are added
or overwrite the beginning the string.

These 2 problems are the same problem.
I think that the get isn't able to locate the position of the cursor in
the string.

It's relativally easy to avoid, but if we sometime forget it, it's a bit
ennoying.

Another little problem under linux:
The cursor doesn't reflect the value add/overwrite
When hitting the insert key during the edition, it's ok, the aspect of
te cursor changes.
But if leaving and entering again in the get, the cursor is often not in
phase with the state.
Hum ... I'm not sure to be clear ...

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 (2015-11-25 14:06) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2501)
------------------------------------------------------------------------

Re: [Hwgui-developers] Two bugs with Linux

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

Le 24/11/2015 21:43, Alain Aupeix a écrit :
> Le 23/11/2015 10:48, Alexander S.Kresin a écrit :
>> Alain Aupeix пишет:
>>> Hi,
>>>
>>> When I copy, and then paste, the accentued letters aren't pasted and are
>>> replaced with 2 spaces each.
>>    Seems to be fixed now.
Yes, that's now ok
>>> 2) In a main window, I had a background image. For some reason, I wanted
>>> to add two buttons.
>>> I didn't understand why I can't see them. They were created, as clicking
>>> on their location works.
>>>
>>> After some researches, I disabled the background, and I was then able to
>>> see these buttons.
>>> As I really need buttons and backgroung, I hope you'll correct this bug.
>>    I know about this. In GTK, if a window is drawable, this prevents 
>> standard widgets to be displayed. For now, try to use OWNERBUTTON 
>> instead of a button.
Yes, using ownerbutton, I can now see these buttons without having to
draw it on background image.
>>> I have another problem: I want to hide this buttons, and just unhide
>>> them in a function.
>>> How can I do that ?
>>    oBtn:Hide(), oBtn:Show()
I haven't been able to hide it ...
Here is the code I use:
_______________________________________________________________

Memvar oValid, oCancel

Function main()
....
Public oValid, oCancel
....
INIT WINDOW oMainWindow MAIN TITLE "Maintsys - Outils de maintenance
(v"+progvers+")" ;
   ICON oIcon AT 200,50 SIZE 735,422
...
// Background
@ 0,0 BITMAP cImageDir+"mtools.png"
...
@ 480,340 OWNERBUTTON oValid ON CLICK {||Valid_Edit("Valider")} ;
          SIZE 80, 27 ;
          BITMAP cImageDir+"valider.png" TRANSPARENT COLOR 13890771 
@ 580,340 OWNERBUTTON oCancel ON CLICK {||Valid_Edit("Annuler")} ;
          SIZE 80, 27 ;
          BITMAP cImageDir+"annuler.png" TRANSPARENT COLOR 13890771
oValid:hide()
oCancel:hide()
...
ACTIVATE WINDOW oMainWindow
___________________________________________________________

Where do I fail ?

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 (2015-11-25 14:06) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2501)
------------------------------------------------------------------------

[Hwgui-developers] Numpad keys don't work anymore ...

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

Two bugs I reported there is a few time ...
______________________________________________________

Hi, trying the last version od editor, I saw 2 bugs:

1) Numpad keys (+-*/) dont work anymore.

2) A bug when marking a string:

a)
(12+3)*4
<Home>
<Shift><End>
F9
ok

b)
(12+3)*4
<Shift><Home>
F9
=>
Error BASE/1111  Argument error: LEN
Called from LEN(0)
Called from CALC(2079)
Called from (b)MAIN(296)
Called from ONCOMMAND(301)
Called from (b)HMAINWINDOW(212)
Called from HMAINWINDOW:ONEVENT(275)
Called from HWG_ACTIVATEMAINWINDOW(0)
Called from HMAINWINDOW:ACTIVATE(264)
Called from MAIN(322)

It seems that the marked text doesn't include the first character (

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 (2015-11-25 14:06) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2501)
------------------------------------------------------------------------

Re: [Hwgui-developers] Two bugs with Linux

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

Le 23/11/2015 10:48, Alexander S.Kresin a écrit :
> Alain Aupeix пишет:
>> Hi,
>>
>> Two bugs I signaled at the beginning of october:
>>
>> 1)using this to have application gets in uft-8:
>>
>> hwg_SetAppLocale( "UTF8" )
>> hb_cdpSelect( "UTF8" )
>>
>> When I copy, and then paste, the accentued letters aren't pasted and are
>> replaced with 2 spaces each.
>> I think there is a problem with the copy/paste in hwgui.
>    Seems to be fixed now.
>
>> 2) In a main window, I had a background image. For some reason, I wanted
>> to add two buttons.
>> I didn't understand why I can't see them. They were created, as clicking
>> on their location works.
>>
>> After some researches, I disabled the background, and I was then able to
>> see these buttons.
>> As I really need buttons and backgroung, I hope you'll correct this bug.
>    I know about this. In GTK, if a window is drawable, this prevents 
> standard widgets to be displayed. For now, try to use OWNERBUTTON 
> instead of a button.
>
>> I have another problem: I want to hide this buttons, and just unhide
>> them in a function.
>> How can I do that ?
>    oBtn:Hide(), oBtn:Show()
ok, I'll try when I'll com back home ...
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-01-19 12:24) |
HbIDE (Rev.316) | Five.Linux (r138) | Hw.Gui (2360)
------------------------------------------------------------------------

Re: [Hwgui-developers] Two bugs with Linux

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

Alain Aupeix пишет:
> Hi,
> 
> Two bugs I signaled at the beginning of october:
> 
> 1)using this to have application gets in uft-8:
> 
> hwg_SetAppLocale( "UTF8" )
> hb_cdpSelect( "UTF8" )
> 
> When I copy, and then paste, the accentued letters aren't pasted and are
> replaced with 2 spaces each.
> I think there is a problem with the copy/paste in hwgui.

   Seems to be fixed now.

> 
> 2) In a main window, I had a background image. For some reason, I wanted
> to add two buttons.
> I didn't understand why I can't see them. They were created, as clicking
> on their location works.
> 
> After some researches, I disabled the background, and I was then able to
> see these buttons.
> As I really need buttons and backgroung, I hope you'll correct this bug.

   I know about this. In GTK, if a window is drawable, this prevents 
standard widgets to be displayed. For now, try to use OWNERBUTTON 
instead of a button.

> 
> I have another problem: I want to hide this buttons, and just unhide
> them in a function.
> How can I do that ?

   oBtn:Hide(), oBtn:Show()

Regards, Alexander.

[Hwgui-developers] Two bugs with Linux

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

Hi,

Two bugs I signaled at the beginning of october:

1)using this to have application gets in uft-8:

hwg_SetAppLocale( "UTF8" )
hb_cdpSelect( "UTF8" )

When I copy, and then paste, the accentued letters aren't pasted and are
replaced with 2 spaces each.
I think there is a problem with the copy/paste in hwgui.

2) In a main window, I had a background image. For some reason, I wanted
to add two buttons.
I didn't understand why I can't see them. They were created, as clicking
on their location works.

After some researches, I disabled the background, and I was then able to
see these buttons.
As I really need buttons and backgroung, I hope you'll correct this bug.

I have another problem: I want to hide this buttons, and just unhide
them in a function.
How can I do that ?

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 (2015-11-16 14:32) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2500)
------------------------------------------------------------------------

Re: [Hwgui-developers] ComboBox and OwnerButton = Fail

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

Itamar M. Lins Jr. Lins пишет:
> Hi!
> See this example!
> 
  ...
> I think that this behavior is because ownerbutton not get focus!
> 

  Yes, You are right. This was a focus issue. Fixed now.

Regards, Alexander.

[Hwgui-developers] ComboBox and OwnerButton = Fail

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

Hi!
See this example!

#include "hwgui.ch"
Function main
LOCAL oDlg, oTab, oX, cX:="FIAT", oBt, oMD, cMD:="FIAT",
aMD:={"FIAT","FORD"}

INIT DIALOG oDlg AT 100,100 SIZE 500,180 ON INIT
{||oMD:refresh(),oX:Refresh()}

//oMD:Refresh() -> This will erase 1 option of combobox with flag EDIT


   @ 010,010 TAB oTab ITEMS {} SIZE 300,90 OF oDlg

   BEGIN PAGE "Tab" OF oTAB

      @ 010,030 get ComboBox oMD var cMD ITEMS aMD TEXT EDIT Size 200,25
DisplayCount 3

      @ 010,060 get ComboBox oX var cX ITEMS aMD TEXT  Size 200,25
DisplayCount 3 //Here show 1 option correct! Without flag EDIT
                //change to "FORD"

   END PAGE OF oTAB

   @ 020,110 OwnerButton oBt of oDlg Size 68,68 TEXT "CLIK-ME";
     ON CLICK  {||hwg_msginfo(cMD+"--"+cX), hwg_EndDialog() } FLAT
   //Here not change continue "FIAT"

oDlg:Activate(,,,.t.)

return nil

I think that this behavior is because ownerbutton not get focus!

How to resolve this ? Note with version 2.17 works fine.

Best regards,
Itamar M. Lins Jr.

Ps. I'm glad your back.

Re: [Hwgui-developers] Is-there always anybody on this mailist ?

[<Wen...@ww...>]

+1 ... Taiwan!!

日期(On) Tue, 3 Nov 2015 15:40:40 +0100
Alain Aupeix <ala...@wa...> 寫信(write):

> Le 03/11/2015 15:13, Alex a ecrit :
> > I'm here.
> > I will be available since Thursday, November 5.
> Thanks :)
> A+

Re: [Hwgui-developers] Is-there always anybody on this mailist ?

[Andi J. <and...@gm...>]

Am here.

Andi

On Tue, 3 Nov 2015 15:10:01 +0100
Alain Aupeix <ala...@wa...> wrote:

> I think it's curious there is no response since more than one month ...
> 
> A+


---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus

Re: [Hwgui-developers] Is-there always anybody on this mailist ?

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

Le 03/11/2015 15:13, Alex a écrit :
> I'm here.
> I will be available since Thursday, November 5.
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 (2015-10-02 14:45) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2494)
------------------------------------------------------------------------

Re: [Hwgui-developers] Is-there always anybody on this mailist ?

[Alex <al...@be...>]

I'm here.
I will be available since Thursday, November 5.

Regards, Alexander.

________________________________________________

[Hwgui-developers] Is-there always anybody on this mailist ?

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

I think it's curious there is no response since more than one month ...

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 (2015-10-02 14:45) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2494)
------------------------------------------------------------------------

Re: [Hwgui-developers] Problem with printer scripts

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

Le 12/10/2015 17:55, Alain Aupeix a écrit :
> Le 12/10/2015 16:58, Alain Aupeix a écrit :
>> Hi all,
>>
>> I generate a script and use setmode(2) to print in landscape.
>> It works when I print to a printer
>>
>> When I choose print in a file, the first page is now print in protrait
>> mode (when previewing or printing with system print box)
>> I have found a trick, but it's really curious.
>> Doubling the line  'page,1,mm,l ', done the trick.
>> I'm curious about an explanation. Do I fail, or is-it a bug of Hwgui or
>> a bug of gnome ?
> Well, I found the reason:
> hwgui seems to add a line job with wrong parameters
Hum, I correct.
This works when I generate the script, and print it iùùediately, but not
when I load the script.

I found the reason : when I load a saved script, I must setmode() after
having loaded the script.
I thought it was recorded in the file but it seems not.

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 (2015-10-02 14:45) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2494)
------------------------------------------------------------------------

Re: [Hwgui-developers] Problem with printer scripts

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

Le 12/10/2015 16:58, Alain Aupeix a écrit :
> Hi all,
>
> I generate a script and use setmode(2) to print in landscape.
> It works when I print to a printer
>
> When I choose print in a file, the first page is now print in protrait
> mode (when previewing or printing with system print box)
> I have found a trick, but it's really curious.
> Doubling the line  'page,1,mm,l ', done the trick.
> I'm curious about an explanation. Do I fail, or is-it a bug of Hwgui or
> a bug of gnome ?
Well, I found the reason:
hwgui seems to add a line job with wrong parameters

job,589,836,2.83,2.83,utf8
the same line as if it wat in protrait mode
without regarding the the setmode(2) command

If I don't add a line, when I close the system printer box, cups adds
this line:

job,836.00,589.00,2.83,2.83,utf8

which invert the page size values, and it works

Adding a line at the top of the file, don't allow cups to add the line,
and I save the file with the bad job line

Can you have a look to what is wrong in hprinter.prg ?

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 (2015-10-02 14:45) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2494)
------------------------------------------------------------------------

[Hwgui-developers] Problem with printer scripts

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

Hi all,

I generate a script and use setmode(2) to print in landscape.
It works when I print to a printer

When I choose print in a file, the first page is now print in protrait
mode (when previewing or printing with system print box)
I have found a trick, but it's really curious.
Doubling the line  'page,1,mm,l ', done the trick.
I'm curious about an explanation. Do I fail, or is-it a bug of Hwgui or
a bug of gnmoe ?

Another thing:
I have not the syntaxe of printer commands, but I found it searching in
source, and I can use a great part of them without problem.
But I can't figure how to set duplex in setmode()
I have tried a value of 2 for short edge 'setmode(2,2)' but the printer
doesn't understand, and there is no duplex when printing.

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 (2015-10-02 14:45) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2494)
------------------------------------------------------------------------

[Hwgui-developers] Problem with Copy/paste

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

Hi, using this to have application gets in uft-8:

hwg_SetAppLocale( "UTF8" )
hb_cdpSelect( "UTF8" )

When I copy, and then paste, the accentued letters aren't pasted and are
replaced with 2 spaces each.

I think there is a problem with the copy/paste in hwgui.

Thanks to have a look
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 (2015-10-02 14:45) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2494)
------------------------------------------------------------------------

[Hwgui-developers] Problems with the background

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

Hi,
In a main window, I had a background image.
For some reason, I wanted to add two buttons.

I didn't understand why I can't see them.
They were created, as clicking on their location works.

After some researches, I disabled the background, and I was then able to
see these buttons.

As I really need buttons and backgroung, I hope you'll correct this bug.

I have another problem: I want to hide this buttons, and just unhide
them in a function.
How can I do that ?

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 (2015-10-02 14:45) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2494)
------------------------------------------------------------------------

[Hwgui-developers] Update Hwgui.

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

By José Cláudio.

Below the codes that will sent to Kresin ..
that first I made an example of a MDIChild not execute the block of
ON EXIT qdo maximized ....
which has alteration / inclusion're marked

//<<<<<<<<<<<<<<<<<<<<<<<<<<<

////////////////////////////////////////////////////////////////////////////////////////

FW: Adjustments in Hwgui - MdiChild


#include "hwgui.ch"

Function Main
Local oMainWindow

INIT WINDOW oMainWindow MAIN MDI TITLE "Example Maximized window does
not execute this message(ON EXIT of MdiChild)" ;
AT 200,0 SIZE 1000,950

MENU OF oMainWindow
MENUITEM "&Exit" ACTION hwg_EndWindow()
MENUITEM "&MdiChild" ACTION DlgGet()
ENDMENU

ACTIVATE WINDOW oMainWindow
Return Nil

Function DlgGet
Local oWchild
Local oFont := HFont():Add( "MS Sans Serif",0,-13 )
INIT WINDOW oWchild MDICHILD APPNAME "GetDados" TITLE "GetDados" AT
200,0 SIZE 600,350 FONT oFont ;
ON EXIT {||hwg_MsgStop("Maximized window does not execute this
message..."),.t.} ;
STYLE WS_OVERLAPPEDWINDOW+WS_VISIBLE //WS_CAPTION+WS_SYSMENU+WS_VISIBLE
+WS_MINIMIZEBOX+WS_MAXIMIZE+WS_MAXIMIZEBOX
//+WS_SIZEBOX+WS_HSCROLL+WS_VSCROLL //WS_OVERLAPPEDWINDOW
ACTIVATE WINDOW oWchild

return Nil

////////////////////////////////////////////////////////////////////////////////////////

Hello Kresin ...
just for you to know the desktop I use ...
xHarbour
/ *
* $ Id: 10134 ChangeLog 08/09/2015 19: 17: 35Z $ ronpinkas
* /

Bcc32 6.80 and windows 10 .. / server 2012 r2
I came to study the Hwgui because now more stable ..
Sorry if I'm pushy, it is that now I took time to send u my tips ...
I noticed that looks like it was set to standard code block: bSetGet of
data entry clases in the definition of the parameter eg Eval (: bSetGet,
<vari>, <obj>)

Regards,
Jose Claudio

Hello Kresin,
as I said before, I went back to study the hwgui, then I think we should
standardize certain actions, as in previous e-mail, instead of method
:End (), everyone should have :close (), such as data entry we have to
have status that if there was alteration,: lchanged ...
I'm just giving a hint ... if you have doubts of your application I pass
an example ...
congratulations,...

Regards,
Jose Claudio

CLASS HComboBox INHERIT HControl

   CLASS VAR winclass   INIT "COMBOBOX"
   DATA  aItems
   DATA  bSetGet
   DATA  xValue   INIT 1
   DATA  bValid   INIT { || .T. }
   DATA  bChangeSel
   DATA  nDisplay
   DATA  lText    INIT .F.
   DATA  lEdit    INIT .F.
   DATA  xOld               //<<<<<<<<<<<<<<<<<<<<<<<<<<<
   DATA  lChanged INIT .F.   //<<<<<<<<<<<<<<<<<<<<<<<<<<<
.........


METHOD Redefine( oWndParent, nId, vari, bSetGet, aItems, oFont, bInit,
bSize, bPaint, ;
      bChange, ctooltip, bGFocus ) CLASS HComboBox

   ::Super:New( oWndParent, nId, 0, 0, 0, 0, 0, oFont, bInit, bSize,
bPaint, ctooltip )

   IF ::lText
      ::xValue := iif( vari == Nil .OR. ValType( vari ) != "C", "",
Trim( vari ) )
   ELSE
      ::xValue := iif( vari == Nil .OR. ValType( vari ) != "N", 1, vari )
   ENDIF
   ::bSetGet := bSetGet
   ::aItems  := aItems

   IF bSetGet != Nil
      ::bChangeSel := bChange
      // By Luiz Henrique dos Santos (lui...@gm...) 04/06/2006
      IF ::bChangeSel != Nil
         ::oParent:AddEvent( CBN_SELCHANGE, ::id, { |o, id|__Valid(
o:FindControl(id ) ) } )
      ENDIF
   ELSEIF bChange != Nil
      ::oParent:AddEvent( CBN_SELCHANGE, ::id, bChange )
   ENDIF
   IF bGFocus != Nil//<<<<<<<<<<<<<<<<<<<<<<<<<<<
      ::bGetFocus := bGFocus//<<<<<<<<<<<<<<<<<<<<<<<<<<<
      ::oParent:AddEvent( CBN_SETFOCUS, ::id, { |o, id|__When(
o:FindControl(id ) ) } )//<<<<<<<<<<<<<<<<<<<<<<<<<<<
   ENDIF//<<<<<<<<<<<<<<<<<<<<<<<<<<<
   ::Refresh() // By Luiz Henrique dos Santos

   RETURN Self

METHOD Init() CLASS HComboBox
   LOCAL i, nHeightBox, nHeightItem

   IF !::lInit
      ::Super:Init()
      IF !Empty( ::aItems )
         IF Empty( ::xValue )
            IF ::lText
               ::xValue := iif( ValType( ::aItems[1] ) == "A",
::aItems[1,1], ::aItems[1] )
            ELSE
               ::xValue := 1
            ENDIF
         ENDIF
         hwg_Sendmessage( ::handle, CB_RESETCONTENT, 0, 0 )
         FOR i := 1 TO Len( ::aItems )
            hwg_Comboaddstring( ::handle, iif( ValType(::aItems[i] ) ==
"A", ::aItems[i,1], ::aItems[i] ) )
         NEXT
         IF ::lText
            IF ::lEdit
               hwg_Setwindowtext( ::handle,::xValue )
            ELSE
               i := iif( ValType( ::aItems[1] ) == "A", AScan( ::aItems,
{ |a|a[1] == ::xValue } ), AScan( ::aItems, ::xValue ) )
               hwg_Combosetstring( ::handle, i )
            ENDIF
         ELSE
            hwg_Combosetstring( ::handle, ::xValue )
         ENDIF
      ENDIF
      IF !Empty( ::nDisplay )
         nHeightBox := hwg_Sendmessage( ::handle, CB_GETITEMHEIGHT, - 1, 0 )
         nHeightItem := hwg_Sendmessage( ::handle, CB_GETITEMHEIGHT, -
1, 0 )
         ::nHeight := nHeightBox + nHeightItem * ( ::nDisplay )
         hwg_Movewindow( ::handle, ::nLeft, ::nTop, ::nWidth, ::nHeight )
      ENDIF
   ENDIF
   ::xOld:=::xValue  //<<<<<<<<<<<<<<<<<<<<<<<<<<<
   RETURN Nil

STATIC FUNCTION __Valid( oCtrl )
   LOCAL nPos
   LOCAL lESC

   // by sauli
   IF __ObjHasMsg( oCtrl:oParent, "nLastKey" )
      // caso o PARENT seja HDIALOG
      lESC := oCtrl:oParent:nLastKey <> 27
   ELSE
      // caso o PARENT seja HTAB, HPANEL
      lESC := .T.
   end
   // end by sauli
   IF lESC // "if" by Luiz Henrique dos Santos (lui...@gm...)
04/06/2006
      nPos := hwg_Sendmessage( oCtrl:handle, CB_GETCURSEL, 0, 0 ) + 1

      IF oCtrl:lEdit
         oCtrl:xValue := oCtrl:GetText()
      ELSE
         oCtrl:xValue := iif( oCtrl:lText, iif(
ValType(oCtrl:aItems[nPos] ) == "A", oCtrl:aItems[nPos,1],
oCtrl:aItems[nPos] ), nPos )
      ENDIF
      IF oCtrl:bSetGet != Nil
         Eval( oCtrl:bSetGet, oCtrl:xValue, oCtrl )
      ENDIF
      IF oCtrl:bChangeSel != Nil
         Eval( oCtrl:bChangeSel, nPos, oCtrl )
      ENDIF

      // By Luiz Henrique dos Santos (lui...@gm...) 03/06/2006
      IF oCtrl:bValid != Nil
         IF ! Eval( oCtrl:bValid, oCtrl )
            hwg_Setfocus( oCtrl:handle )
            RETURN .F.
         ENDIF
      ENDIF
   ENDIF
   oCtrl:lChanged := (oCtrl:xOld != oCtrl:xValue)
//<<<<<<<<<<<<<<<<<<<<<<<<<<<
   RETURN .T.

STATIC FUNCTION __When( oCtrl )
   LOCAL res

   //oCtrl:Refresh()
   oCtrl:xOld := oCtrl:xValue //<<<<<<<<<<<<<<<<<<<<<<<<<<<
   IF oCtrl:bGetFocus != Nil
      IF oCtrl:bSetGet == Nil
         res := Eval( oCtrl:bGetFocus, oCtrl:xValue, oCtrl )
      ELSE
         res := Eval( oCtrl:bGetFocus, Eval( oCtrl:bSetGet,, oCtrl ),
oCtrl )
         IF !res
            hwg_GetSkip( oCtrl:oParent, oCtrl:handle, 1 )
         ENDIF
      ENDIF
      RETURN res
   ENDIF

   RETURN .T.


///////////////////////////////////////////////////////////////
Hello Kresin ...
sorry ... I sent previously, one of my incorrect tests ...
I made the implementation of: lChanged in Class HDatePicker

alterations

CLASS HDatePicker INHERIT HControl

   CLASS VAR winclass   INIT "SYSDATETIMEPICK32"
   DATA bSetGet
   DATA dOld                       //<<<<<<<<<<<<<<<<<<<<<<<<<<<
   DATA lChanged        INIT .F.   //<<<<<<<<<<<<<<<<<<<<<<<<<<<

METHOD Init() CLASS HDatePicker

   IF !::lInit
      ::Super:Init()
      IF Empty( ::dValue )
         hwg_Setdatepickernull( ::handle )
      ELSE
         hwg_Setdatepicker( ::handle, ::dValue )
      ENDIF
   ENDIF
   ::dOld:=::dValue  //<<<<<<<<<<<<<<<<<<<<<<<<<<<
   RETURN Nil

STATIC FUNCTION __Change( oCtrl, nMess )
    oCtrl:dOld := oCtrl:dValue //<<<<<<<<<<<<<<<<<<<<<<<<<<<
   IF ( nMess == DTN_DATETIMECHANGE .AND. ;
         hwg_Sendmessage( oCtrl:handle, DTM_GETMONTHCAL, 0, 0 ) == 0 )
.OR. ;
         nMess == DTN_CLOSEUP
      oCtrl:dValue := hwg_Getdatepicker( oCtrl:handle )
      IF oCtrl:bSetGet != Nil
         Eval( oCtrl:bSetGet, oCtrl:dValue, oCtrl )
      ENDIF
      IF oCtrl:bChange != Nil
         Eval( oCtrl:bChange, oCtrl:dValue, oCtrl )
      ENDIF
   ENDIF

   RETURN .T.

STATIC FUNCTION __Valid( oCtrl )

   oCtrl:dValue := hwg_Getdatepicker( oCtrl:handle )
   IF oCtrl:bSetGet != Nil
      Eval( oCtrl:bSetGet, oCtrl:dValue, oCtrl )
   ENDIF
   IF oCtrl:bLostFocus != Nil .AND. !Eval( oCtrl:bLostFocus,
oCtrl:dValue, oCtrl )
      RETURN .F.
   ENDIF
   oCtrl:lChanged := (oCtrl:dOld != oCtrl:dValue)
//<<<<<<<<<<<<<<<<<<<<<<<<<<<
   RETURN .T.


Regards,
Jose Claudio

[Hwgui-developers] hwgui toolbar don't show bitmaps from resource

[Pere C. <pco...@ce...>]

Hello,

I have a problem with toolbar buttons.

Don't show a Bitmaps on toolbar.

Can you help me?

I post a sample to try.

Thank you.


PD: It's a bit urgent.



Peter.

[Hwgui-developers] COLOR ON NODE TREE

[Pere C. <pco...@ce...>]

Hello ,

How to set color on NODE TREE?

Thank you.

Peter.

[Hwgui-developers] Numpad keys don't work anymore ...

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

Hi, trying the last version od editor, I saw 2 bugs:

1) Numpad keys (+-*/) dont work anymore.

2) A bug when marking a string:

a)
(12+3)*4
<Home>
<Shift><End>
F9
ok

b)
(12+3)*4
<Shift><Home>
F9
=>
Error BASE/1111  Argument error: LEN
Called from LEN(0)
Called from CALC(2079)
Called from (b)MAIN(296)
Called from ONCOMMAND(301)
Called from (b)HMAINWINDOW(212)
Called from HMAINWINDOW:ONEVENT(275)
Called from HWG_ACTIVATEMAINWINDOW(0)
Called from HMAINWINDOW:ACTIVATE(264)
Called from MAIN(322)

It seems that the marked text doesn't include the first character (

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 (2015-09-07 14:28) |
HbIDE (Rev.316) | Five.Linux (r143) | Hw.Gui (2492)
------------------------------------------------------------------------

Re: [Hwgui-developers] Same strange behavior with get class.

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

<html>
  <head>
    <meta content="text/html; charset=windows-1252"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <div class="moz-cite-prefix">Le 10/09/2015 01:46, Itamar M. Lins Jr.
      Lins a écrit :<br>
    </div>
    <blockquote
cite="mid:CAH...@ma..."
      type="cite">
      <div dir="ltr">
        <div>
          <div>@ 060,010 say "Type &lt;X&gt; for example, auto skip
            works with picture" size 350,20 <br>
          </div>
        </div>
      </div>
    </blockquote>
    Hi, with or without picture, when entering a character, auto skip
    doesn't work.<br>
    I suppose that it ought to jump to oGetC, no ?<br>
    <br>
    PS: You forgot to declare oBtn ;)<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.9-1 | H.arbour 3.2.0dev
        (2015-09-07 14:28) | HbIDE (Rev.316) | Five.Linux (r143) |
        Hw.Gui (2492)</small>
      <hr>
    </div>
  </body>
</html>