FiveTech Software tech support forums

It works, thanks ! Is it possible to specify a vertical separator between columns ?


Try with this sample and change colors


//----------------------------------------------------------------------------//
#include "Fivewin.ch ...

Natter wrote: Sat Jan 25, 2025 9:08 am Strange, I compiled your example exactly. The result looks like this

https://cloud.mail.ru/public/jnLg/3ETyhvUcV

Ah!, ok,
Please, edit PDMENU.PRG ( source/classes ) and search HSYSBITMAP
Copy line and remove HSYSBITMAP <n>
Add new PDMENU.PRG in your project

Sorry, I don't understand ¿ characters ?

The array works fine. Why do some kind of initial column and separator between the columns appear ? Is it possible to get rid of them ?


Please run this sample and tell me your opinion

//----------------------------------------------------------------------------//
#include "Fivewin.ch ...

Complete sample: MNUSELECT.PRG


//----------------------------------------------------------------------------//
// Author: Cristobal Navarro
// Sample demo Features MENUS, using databases and arrays
//----------------------------------------------------------------------------//

#include ...

Que se cumplan todos vuestros sueños en este próximo año 2025

Mis mejores deseos para todos los que hacemos de la programación una pasion y una forma de vivir
Feliz año 2025 familia

PabloHarbour wrote:Hola Reinaldo, me podrias ayudar como enlazar la tableta Topaz con Harbour y de donde consigo las API ?
Gracias desde ya.
Pablo

Yo tengo un wrapper para eso
Que modelo vas a utilizar ?

Felicidades Antonio, imagino que empezarás a preguntarle a la IA como quitarte añitos

My computer is xeon and use win 11, but the dll is very old

Thanks, I'll be waiting !
Yes, I've already remembered it and it is indeed included in the Fivewin build
Simply:

oWnd:bRButtonMenuUp := { | nOrdItem, hMnu, nRow, nCol, o | MsgInfo( "Hello" ) }

These are the parameters you can receive in the codeblock

Eval( ::bRButtonMenuUp, nOrdIt, hMnu ...

I send you with WeeTransfer, look your mail, unzip and rename to .dll

You need Scilexer.dll updated
But, Fivewin contributions repo not run and gmail not allow send this file
Wait please

Silvio
Test this code

#include "fivewin.ch"

Function Main()

local cText:= Memoread( "testsciedit.prg")

SilvioScript( cText, "Script", , , , )

return nil

//----------------------------------------------------------------------------//

function SilvioScript( cText, cTitle, nTop, nLeft ...

Natter wrote:Is it possible to handle right-clicking on the TMenuItem object ?

Hello
I implemented this in the menus a long time ago to account for this event, but I never got around to putting it into production.
I'll review my notes and let you know.