topic-39022

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Thank to Mr. Rao
Posted: Mon May 25, 2020 12:20 PM

Dear Mr. Rao,

I want to thank you for your tireless work. Sincerely.
Primarily today for the xBrowser.

With mod harbor I exchange data via a hash that is saved in a file. It's incredible how easy it is to display the data with xBrowse ().

This is the hash

Code (fw): Select all Collapse

{"roomsImg":"img\/restaurant-bergland.jpg","roomsMap":{"101":{"coords":[1126,174,1192,274],"title":"Tisch 101","free":2,"shape":"rect"},"102":{"coords":[1330,275,1395,370],"title":"Tisch 102","free":5,"shape":"rect"},"103":{"coords":[1330,453,1396,547],"title":"Tisch 103","free":5,"shape":"rect"},"104":{"coords":[1127,344,1184,400],"title":"Tisch 104","free":5,"shape":"rect"},"105":{"coords":[1124,487,1190,581],"title":"Tisch 105","free":1,"shape":"rect"},"106":{"coords":[1332,709,1427,776],"title":"Tisch 106","free":0,"shape":"rect"},"107":{"coords":[1330,875,1424,942],"title":"Tisch 107","free":0,"shape":"rect"},"108":{"coords":[1338,1096,1430,1159],"title":"Tisch 108","free":5,"shape":"rect"},"109":{"coords":[1370,1270,1429,1326],"title":"Tisch 109","free":2,"shape":"rect"},"110":{"coords":[1214,1228,1273,1328],"title":"Tisch 110","free":3,"shape":"rect"},"111":{"coords":[1068,1230,1132,1326],"title":"Tisch 111","free":4,"shape":"rect"},"112":{"coords":[931,1228,995,1326],"title":"Tisch 112","free":2,"shape":"rect"},"113":{"coords":[745,1228,808,1328],"title":"Tisch 113","free":2,"shape":"rect"},"114":{"coords":[608,1228,672,1329],"title":"Tisch 114","free":0,"shape":"rect"},"115":{"coords":[628,1074,686,1128],"title":"Tisch 115","free":0,"shape":"rect"},"116":{"coords":[488,1079,543,1130],"title":"Tisch 116","free":0,"shape":"rect"},"117":{"coords":[413,1196,23],"title":"Tisch 117","free":2,"shape":"circle"},"118":{"coords":[413,1265,25],"title":"Tisch 118","free":3,"shape":"circle"},"119":{"coords":[493,1265,24],"title":"Tisch 119","free":5,"shape":"circle"},"120":{"coords":[382,1495,442,1589],"title":"Tisch 120","free":5,"shape":"rect"},"121":{"coords":[620,1497,683,1595],"title":"Tisch 121","free":4,"shape":"rect"},"122":{"coords":[812,1489,905,1554],"title":"Tisch 122","free":2,"shape":"rect"},"123":{"coords":[994,1491,1092,1555],"title":"Tisch 123","free":5,"shape":"rect"}}}

Fivewin code

Code (fw): Select all Collapse

cTEXT := memoread( "bergland.json" )   /
hb_jsondecode( cTEXT, @res )  
xbrowse( res )

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Thank to Mr. Rao
Posted: Mon May 25, 2020 02:13 PM

+1

:-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

ADutheil

Posts: 368

Joined: Sun May 31, 2009 06:25 PM

Re: Thank to Mr. Rao
Posted: Mon May 25, 2020 03:49 PM

+1
I use it a lot to browse objects when I can't remember the name of some data or method. It's a priceless help.

Regards,

André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Thank to Mr. Rao
Posted: Mon May 25, 2020 08:04 PM

I not understood What you are doing

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Massimo Linossi

Posts: 512

Joined: Mon Oct 17, 2005 10:38 AM

Re: Thank to Mr. Rao
Posted: Tue May 26, 2020 07:40 AM

+1

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Thank to Mr. Rao
Posted: Tue May 26, 2020 11:16 AM

Hello Silvio,
hash with (x)harbour - knowledge base
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=19895&start=0&hilit=hash

Best regards,
Otto

MOISES

Posts: 838

Joined: Wed Aug 22, 2007 10:09 AM

Re: Thank to Mr. Rao
Posted: Thu May 28, 2020 08:09 AM

Undoubtedly, despite the fact that the issue of the vertical scroll bar under SQLRDD has not yet been solved, xBrowse is an extraordinary control and has nothing to envy to the Telerik grid for example.

The work of Mr. Nages has been extremely commendable and with advances that were unthinkable when xBrowse appeared back in version 2.4 of the product.

Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Thank to Mr. Rao
Posted: Thu May 28, 2020 09:55 AM

Otto wrote:Hello Silvio,
hash with (x)harbour - knowledge base
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=19895&start=0&hilit=hash

Best regards,
Otto

I used Hash to make an old application
dispositions and substitutions for the teachers of my school and acceptance of the dispositions all via telegram

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Thank to Mr. Rao
Posted: Fri May 29, 2020 05:05 PM

HASH-TREE

Code (fw): Select all Collapse

#include "fivewin.ch"

#ifdef __XHARBOUR__
   #xtranslate hb_hKeyAt( <h>, <n> )     => hGetKeyAt( <h>, <n> )
   #xtranslate hb_hValueAt( <h>, <n> )   => hGetValueAt( <h>, <n> )
#endif

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

function Main()

   local cJson, hHash

   cJson := MEMOREAD( "otto.json" )
   HB_JsonDecode( cJson, @hHash )

   XBROWSER HashTree( hHash ) TITLE "HASH-TREE" ;
      SETUP ( oBrw:aCols[ 1 ]:AddBitmap( { FWDArrow(), FWRArrow() } ) )

return nil

function HashTree( hHash )

   local oTree
   local n, uKey, uVal, cType

   TREE oTree

   for n := 1 to Len( hHash )
      uKey     := hb_hKeyAt( hHash, n )
      uVal     := hb_hValueAt( hHash, n )
      cType    := ValType( uVal )
      if cType == "A"
         uVal  := FW_ValToExp( uVal )
      endif
      TREEITEM uKey CARGO { uVal }
      if cType == "H"
         HashTree( uVal )
      endif
   next

   ENDTREE

return oTree

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion