topic-42735

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

XBROWSER with SETUP possible?
Posted: Thu Feb 02, 2023 11:45 AM

Hi,

I have changed mr. rao's example like this. but does not run properly.

#include "fivewin.ch"

function Main()

   local aData    := { { "ONE  ", 2000 }, { "TWO  ", -5000 }, { "THREE", 2000 } }

   XBROWSER aData SETUP BrwSetup( oBrw )

return nil

static function BrwSetup( oBrw )
    oBrw:nMarqueeStyle := 5
    oBrw:bLDblClick := {|nRow, nCol, nFlags|Dummy(oBrw,2)}
return nil
Function Dummy(obrw, nnn)
  ? "here"
return

Should I use traditional method xbrowse?

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: XBROWSER with SETUP possible?
Posted: Thu Feb 02, 2023 11:51 AM

Dear Hakan,

I have just tested your code and here it is working fine

What is missing there ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: XBROWSER with SETUP possible?
Posted: Thu Feb 02, 2023 12:07 PM

Hi Antonio,

yes, this code compiled with buildh32 without any error and run. But does not work brwsetup function.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: XBROWSER with SETUP possible?
Posted: Thu Feb 02, 2023 03:42 PM

Horizon wrote:Hi Antonio,

yes, this code compiled with buildh32 without any error and run. But does not work brwsetup function.

Your sample work OK for me and execute your SETUP xbrowser function correctly

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: XBROWSER with SETUP possible?
Posted: Thu Feb 02, 2023 05:50 PM

Horizon wrote:Hi,

I have changed mr. rao's example like this. but does not run properly.

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()

   local aData    := { { "ONE  ", 2000 }, { "TWO  ", -5000 }, { "THREE", 2000 } }

   XBROWSER aData SETUP BrwSetup( oBrw )

return nil

static function BrwSetup( oBrw )
    oBrw:nMarqueeStyle := 5
    oBrw:bLDblClick := {|nRow, nCol, nFlags|Dummy(oBrw,2)}
return nil
Function Dummy(obrw, nnn)
  ? "here"
return

Should I use traditional method xbrowse?

Try this:

Code (fw): Select all Collapse

function Main()

   local aData    := { { "ONE  ", 2000 }, { "TWO  ", -5000 }, { "THREE", 2000 } }

   XBROWSER aData SETUP ( oBrw:nMarqueeStyle := 5, oBrw:bLDblClick := {|nRow, nCol, nFlags|Dummy(oBrw,2)} )

return nil

Function Dummy(obrw, nnn)
  ? "here"
return

But if Antonio and Cristobal say your code work ok ...

Try delete de .EXE, .C, .OBJ files before compiling

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion