FIELD Selector for HMG ?

[AUGE_OHR]

hi,

when have a Array from DbStruct() i want to select FIELD to use.
i got a CLASS for Xbase++ but not for HMG.

Picklist.jpg (22.69 KiB) Viewed 2794 times

does somebody already made a Function or CLASS

[andyglezl]

Easy...

Code: Select all

 
                   @ 250,010 LISTBOX list_1 width 180 HEIGHT 135 TOOLTIP "Doble Click  -->" SORT  FONT "Verdana" SIZE 09 ;
                              ON DBLCLICK { || form_3.list_2.additem(form_3.list_1.item(form_3.list_1.value)), ;
                                               form_3.list_1.deleteitem(form_3.list_1.value) } 
 
                    @ 250,200 LISTBOX list_2 width 180 HEIGHT 135 TOOLTIP "Doble Click  <--" SORT FONT "Verdana" SIZE 09 ;
                              ON DBLCLICK { || form_3.list_1.additem(form_3.list_2.item(form_3.list_2.value)), ;
                                               form_3.list_2.deleteitem(form_3.list_2.value) } 

[AUGE_OHR]

hi

i have made a PickList Demo which use DBSTRUCT()

hb_PICKLIST.ZIP

(1.84 KiB) Downloaded 161 times

Listbox on right Side have DRAGITEMS .T. so you can move Position

Hb_Picklist.jpg (49.08 KiB) Viewed 2734 times

have fun

[fouednoomen]

Hi AUGE_OHR
i have this error after building program

error.png (94.4 KiB) Viewed 2651 times

[chrisjx2002]

Hi AUGE_OHR,

There is an error when you want to move from right to left due to dragitems flag to .T.
If dragitems flag is .F. everything is OK. When dragitems flag is .T., iMax := LEN( aSelect ) is incorrect... But I don't know how to change it

[AUGE_OHR]

i have this error after building program

please show me you Build.LOG which is generate

[AUGE_OHR]

hi,

There is an error when you want to move from right to left due to dragitems flag to .T.
If dragitems flag is .F. everything is OK. When dragitems flag is .T., iMax := LEN( aSelect ) is incorrect... But I don't know how to change it

hm ...
when using dragitems .T. you have to use SPACEBAR to mark a Item.

[chrisjx2002]

Thanks for the answer. It works with the space bar!

[fouednoomen]

Hi Auge_OHR

this is my Build.LOG file

hbmk2: Processing local make script: hbmk.hbm
hbmk2[PICKLIST]: Warning: File cannot be found: dbf\PICKLIST.hbp
hbmk2[PICKLIST]: Warning: Cannot find dbf\PICKLIST.hbc
Harbour 3.2.0dev (r1703241902)
Copyright (c) 1999-2016, http://harbour-project.org/
Cannot open E:\DATACONCEPT\copy.prg, assumed external

No code generated.
hbmk2[PICKLIST]: Error: Running Harbour compiler (embedded). 1
(C:\hmg.3.4.4\harbour\bin\harbour.exe) -n2 E:\DATACONCEPT\copy.prg strecture.prg E:\DATACONCEPT\copy.prg strecture.prg -DHBMK_HAS_PICKLIST=1 -w1 -es2 -DHBMK_HAS_HMG32=1 -q -oC:\Users\user\AppData\Local\Temp\hbmk_ssw91m.dir\ -iC:\hmg.3.4.4\harbour\include -i. -iC:\hmg.3.4.4\include

[AUGE_OHR]

this is my Build.LOG file

hbmk2: Processing local make script: hbmk.hbm
hbmk2[PICKLIST]: Warning: File cannot be found: dbf\PICKLIST.hbp
hbmk2[PICKLIST]: Warning: Cannot find dbf\PICKLIST.hbc
Harbour 3.2.0dev (r1703241902)
Copyright (c) 1999-2016, http://harbour-project.org/
Cannot open E:\DATACONCEPT\copy.prg, assumed external

hm ... i have blue ICON which is UNICODE IDE while you use red ICON which is ANSI.

you can try to delete hbmk.hbm and just run F5 in IDE