FiveTech Software tech support forums

... ENDMENU ENDMENU Return (oMenu) //----------------------------------------------------------------------------// function MsgDate( dDate, cPrompt, oGet ) local oDlg, oFont, oCursor, dSelect, dWork local nRow, nCol, nMonth, nYear local aMonths := {'Enero ',; 'Febrero ',; 'Marzo ',; 'Abril ...

... Si revisas el comando puedes ver que espera una lista de palabras que se transforma en un array: [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] #xcommand DEFINE RIBBONBAR [ <oRBar> ] ;                           [ <of:OF, WINDOW> <oWnd> ] ;  ...

... #define HB_LONGLONG long #define hb_storvnll hb_stornl #endif agora o erro eh outro ao clicar em start DLL FUNCTION Llama( cModel AS LPSTR, cPrompt AS LPSTR, pFunc AS PTR ) AS VOID PASCAL LIB "llama64.dll" https://uploaddeimagens.com.br/images/004/700/688/original/erro.png?1703921284

Dear Jimmy, many thanks Please try this using 64 bits only: HMG_CallDLL( "llama64.dll", HB_DYN_CTYPE_VOID, "Llama", cModel, cPrompt, CallBack( { | cStr | AI_FORM.oAnswer.SetFocus(), AI_FORM.oAnswer.Value += cStr } ) ) and add this at the bottom: #pragma BEGINDUMP #include <hbapi.h>#include ...

Prueba esto:

oTree:Scan( { | o | MsgInfo( o:cPrompt ), .F. } )

... <nRow>, <nCol>, <nWidth>, <nHeight>,; <oWnd>, [\{<cbmps>\}], <.lPixel.>, <.lDesign.>, [\{<cPrompt>\}], ; <ntabheight>, [\{<cnHelpids>\}], <nRound>, [{|nOption, nOldOption, Self | <uChange>}],; [{|Self,nOption| <uPaint>}], ...

... > 0 .and.ncol<RECORDSELECTOR_WIDTH ::setmenu() return end 5. METHOD helpmenu( nRow, nCol, nFlags ) CLASS TXBrowse local oMenu, oCol local cPrompt local nFor, nLen local omenu2 local color1,color2 nLen := len( ::aCols ) MENU omenu2 2007 popup if ::nMarqueeStyle == MARQSTYLE_HIGHLROWMS MENUITEM ...

If your FWH version is not very old, you can use codeblock as prompt of BtnBmp

Code: Select all  Expand view  RUN

@ r, c  BTMBMP PROMPT { || cPrompt } ...... UPDATE
 

At runtime you can change the value of cPrompt

Code: Select all  Expand view  RUN

cPropt := "NEW"
oDlg:Update()
 

This changes the prompt of the btnbmp

This is actually intended for cases where the first n fields would not be modified.
Anyway please try to change oBrw:oTreeItem:cPrompt also when you modify 3rd field.

Horacio,

Prueba esto:

oXBrowse:oTree:Scan( { | oItem | If( AScan( ::aSelected, oItem ) != 0, MsgInfo( oItem:cPrompt ),) } )

... a AntoninoP. En los foros: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=39715&start=0 * Mejora: Nuevo método ACCESS/ASSIGN "cPrompt" para la clase TTVItem. * Nuevo: Nuevo ejemplo de Gestor de Información Personal usando TreeViews, samples\pim.prg. * Corrección: El ejemplo ...

... to AntoninoP in the forums: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=39715&start=0 * Enhancement: New ACCESS/ASSIGN "cPrompt" method for Class TTVItem * New: samples\pim.prg a personal information manager using TreeViews * Fix: samples\xmltree.prg had an error ...

Antonio, Mire el ejemplo pero no me soluciona lo que necesito. yo tengo en un archivo txt (suponte) los datos de los hitem, del cprompt y del parent del que depende ese cprompt. pero no se como indicarle que un determinado cprompt se inserte en otro. o sea, tengo esto: cprompt "uno" ...

Gustavo,

oItem:Add( cPrompt, nImage, Cargo )

revisa FWH\samples\classtree.prg

buen dia.
necesito hacer esto:

nivel 0
+----- nivel 1
(porcentage 2)
+------ nivel 2
+---------- nivel 3
(porcentage 3)

o sea, debajo de cada cPrompt que muestre otro texto.
ya probe con un chr(13) pero no logre hacerlo.

gracias.