Newbie have COMBOBOX Question

[Jimmy]

hi,

i have

Code: Select all  Expand view  RUN

  LOCAL aDrives   := aDrives()
   @ 0,0 COMBOBOX oCombo_left ITEMS aDrives SIZE 100,300 PIXEL

   // while Combobox does not show 1st Drive
   oCombo_left:Select(1)
   // need later when resize
   oCombo_Left:SetPos( 30,0)

but both Method give Error ...

what i´m doing wrong

[Jimmy]

Ok, i have change to OOP Style instead of #xcommand

Code: Select all  Expand view  RUN

  oCombo_left  := TComboBox():new(0,0        , , aDrives, 100, 300,oMain)
   oCombo_left:Select(1)

   Combo_Right := TComboBox():new(0, nWidth/2, , aDrives, 100, 300, oMain)
   Combo_Right:Select(1)
 

Code: Select all  Expand view  RUN

STATIC PROCEDURE DoResize( oMain )
   oCombo_Left:SetPos( 0,0)
   oCombo_Right:SetPos( 0, nWidth/2 )

this work without Problem

[Enrico Maria Giordano]

Please, always post a complete sample of the problem. You don't need to use Select() nor SetPos() with Comboboxes. And commands are the best option in 99% of code. Commands are far more readable and maintainable than functions.

[Jimmy]

hi Enrico,

Please, always post a complete sample of the problem.

i understand that a Sample is need to reproduce Problem, but as Newbie i "ask" for a (simple) Sample

---

i found out that 3rd Parameter bSetGet is used when "on change" Event is fired
Sample i saw look like this

Code: Select all  Expand view  RUN

local cItem
o:bSetGet := {|u| If( PCount()==0, citem , citem := u ) }

now i have "Value" in cItem but what about ENTER (or Dblclick)
which Codeblock ( from which Super CLASS ) have to be use

---

for RbDown i found this

Code: Select all  Expand view  RUN

  oCbx:bRClicked = { | nRow, nCol | EditControl( nRow, nCol, oCbx ) }

You don't need to use Select() nor SetPos() with Comboboxes. And commands are the best option in 99% of code. Commands are far more readable and maintainable than functions.

this is while i put 2 x "Explorer" into Window and each "Side" have a own Combobox

when "resize" e.g. "maximize" i need to calculate new Position of Control.

[Jimmy]

hi,

found a Solution

Code: Select all  Expand view  RUN

oCombo_Right:bKeyDown := { |nKey| IF(nKey=13,MsgInfo(oCombo_Right:GetSelText()),nil )}

not sure if it is right Way ... but i got right Result

[Enrico Maria Giordano]

It looks right to me.

[Otto]

Hi Jimmy,

with Fivewin you have all the source code of the classes:

c:\fwh\source\classes\combobox.prg

You can link in the class and insert msginfo() to see where you are.

I always use: msginfo( procname() + " " + str(procline()) )

Thank you for your hard work. I am glad you joined our group.

Best regards,
Otto