35 lines
1003 B
Plaintext
35 lines
1003 B
Plaintext
loPop = Newobject("PopMenu", "menutool.vcx")
|
|
loPop.Clear
|
|
|
|
*** Categorii note
|
|
lcParentKey = ""
|
|
lcKey = Alltrim(Str(NVL(loCategorie.Id, 0)))
|
|
lcTitle = Alltrim(loCategorie.nume) + " (" + ALLTRIM(STR(loCategorie.nr_seturi)) + ")"
|
|
lcCommand = ""
|
|
lcPicture = ""
|
|
llEnabled = .T.
|
|
lnAddFlag = 0x00
|
|
loPop.Add(m.lcParentKey, m.lcKey, m.lcTitle, m.lcCommand, m.lcPicture, m.llEnabled, m.lnAddFlag)
|
|
|
|
lcKey = lcParentKey + "_" + Alltrim(Str(loSet.Id))
|
|
lcTitle = Alltrim(loSet.nume)
|
|
lcCommand = ""
|
|
lcPicture = ""
|
|
llEnabled = .T.
|
|
lnAddFlag = 0x00
|
|
loPop.Add(m.lcParentKey, m.lcKey, m.lcTitle, m.lcCommand, m.lcPicture, m.llEnabled, m.lnAddFlag)
|
|
|
|
loPop.nReturn = 1 && Key
|
|
loPop.lOwnerDraw = .T.
|
|
lcReturnKey = loPop.ShowBy(This)
|
|
lcReturnKey = NVL(lcReturnKey, '')
|
|
|
|
IF !EMPTY(m.lcReturnKey)
|
|
lnPos = AT('_', m.lcReturnKey)
|
|
IF m.lnPos > 0
|
|
lcIdSet = SUBSTR(m.lcReturnKey, m.lnPos + 1)
|
|
lnIdSet = VAL(m.lcIdSet)
|
|
DO note_fara_predefinire WITH m.lnIdSet IN proceduri.prg
|
|
ENDIF
|
|
ENDIF
|