[Hwgui-developers] Some problems with ComboBox control

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

Hi!
With self container example! Changelog 2489 2015-08-27

#include "hwgui.ch"
Function main
LOCAL oDlg, oTab, oGet, cGet:=space(1), oBt, oMD, cMD:="X",
aMD:={"FIAT","FORD"}


INIT DIALOG oDlg AT 100,100 SIZE 500,120

   @ 010,010 get ComboBox oMD var cMD ITEMS aMD TEXT EDIT Size 200,25 STYLE
ES_UPPERCASE
   //Here, STYLE ES_UPPERCASE not working/not effect

   @ 020,080 button oBt caption "OK" size 50,30 on click {||
hwg_msginfo(cMD),hwg_EndDialog() }
   //Works fine result cMD change if us typing "A","B"...

oDlg:Activate(,,,.t.)

Main2()
return nil

Function Main2
LOCAL oDlg, oTab, oGet, cGet:=space(1), oBt, oMD, cMD:="Y",
aMD:={"FIAT","FORD"}

INIT DIALOG oDlg AT 100,100 SIZE 500,150

 //Here change cMD := "Y" not show in combobox!
 //See that FOCUS not working, use tab/enter to jump between controls, but
fail!

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

   BEGIN PAGE "Tab" OF oTAB

        //See that not show "Y"
       @ 010,030 get ComboBox oMD var cMD ITEMS aMD TEXT EDIT Size 200,25
STYLE ES_UPPERCASE
        //Here, STYLE ES_UPPERCASE not working/not effect

       @ 010,060 get oGet var cGet size 40,20

   END PAGE OF oTAB

   @ 020,110 button oBt caption "OK" size 50,30 on click {||
hwg_msginfo(cMD) }
  //Here result of cMD fail! Show always "Y" even us typing  "A","B",...

oDlg:Activate(,,,.t.)

return nil

Best regards,
Itamar M. Lins Jr.