topic-43033

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Function XbrHexEdit() "more" Search
Posted: Thu Apr 13, 2023 10:02 AM

hi,

i found Function XbrHexEdit() which can show me HEX Code

as it use XBROWSE it have Codeblock bSeek

      :bSeek            := { |c,nAt| If( Empty( c ), nAt := 1, nAt := At( Upper( c ), cUpper ) ), ;
                           If( nAt > 0, oBrw:nArrayAt := Int( nAt / 16 ) + 1, nil ), ;
                           nAt > 0 }

when press a Key it will begin "increment" search which work fine

now i want to "continue" to search "more" ... how :?:

greeting,

Jimmy

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: Function XbrHexEdit() "more" Search
Posted: Fri Apr 14, 2023 04:26 AM

got it :D

a.) make a copy function XbrHexEdit() of which is in c:\fwh\source\classes\xbrowse.prg
b.) add

Code (fw): Select all Collapse

    oBrw:bKeyDown := { | nKey, nFlag | DoHEXKey( nKey, nFlag, oDlg, oBrw, cUpper ) }

! Note : bKeyDown here is for oBrw, not oDlg

c.) use this Function

Code (fw): Select all Collapse

STATIC PROCEDURE DoHEXKey( nKey, nFlag, oDlg, oBrw, cUpper )
LOCAL cSeek  := ""
LOCAL nStart := 0
LOCAL nAt

   DO CASE
      CASE nKey = VK_ESCAPE
         oDlg:End()

      CASE nKey = VK_F3
         cSeek := oBrw:cSeek
         nStart := oBrw:nArrayAt * 16
         nStart += 1

         nAt := hb_AT( UPPER( cSeek ), cUpper, nStart )
         IF nAt > 0
            oBrw:nRowSel := INT( nAt / 16 ) + 1
            oBrw:nArrayAt := INT( nAt / 16 ) + 1
            oBrw:Refresh()
         ELSE
            MsgInfo( "not found" )
         ENDIF
   ENDCASE
RETURN

you have to search 1st Item, than you can press F3 to search for "more"

greeting,

Jimmy

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Function XbrHexEdit() "more" Search
Posted: Fri Apr 14, 2023 06:55 AM

Dear Jimmy,

many thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion