FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour lSeekBar
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
lSeekBar
Posted: Wed Dec 28, 2016 08:51 AM

Can I set active lSeekBar on line ?

I inserted this parameter and it build a bar but I cannot click on it or search any It need any command ?

I tried also the Mr Nages test

Code: Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oFont, oBrw

   USE CUSTOMER NEW VIA "DBFCDX"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 900,400 PIXEL FONT oFont TRUEPIXEL ;
      TITLE "FWH 16.12 : SEEK IN HEADER BAR"

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" AUTOCOLS ;
      CELL LINES NOBORDER FOOTERS AUTOSORT

   WITH OBJECT oBrw
      :lSeekBar    := .t.
      :bClrEdits  := { || { CLR_HRED, CLR_YELLOW } }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

and it build the header and I cannot search any customer ( I not see the get with search bitmap)

Perhaps on Windows Seven 64 bit not run ?

I have bcc and fwh 16.12 with widows seven 64 bit

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: lSeekBar
Posted: Wed Dec 28, 2016 02:47 PM

1) Click on any header
2) Start typing what you want to search. It is just our usual incremental seek,

Works on all OS
Works with all compilers.

Regards



G. N. Rao.

Hyderabad, India
kajot
Posts: 357
Joined: Thu Nov 02, 2006 06:53 PM
Re: lSeekBar
Posted: Wed Dec 28, 2016 03:10 PM

when I compilte the same source w xHB.com and Pelles c compiler 3.0, I have error

Error BASE/1005 Message not found: TXBROWSE:LSEEKBAR
Error at ...: _GENERROR(233) in Module: .\source\function\HARBOUR.PRG
Called from : TXBROWSE:_LSEEKBAR(9339) in Module: .\source\classes\XBROWSE.PRG
Called from : MAIN(20) in Module: t.prg
best regards

kajot
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: lSeekBar
Posted: Wed Dec 28, 2016 03:19 PM
Error BASE/1005 Message not found: TXBROWSE:LSEEKBAR |

Requires FWH 16.12
Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: lSeekBar
Posted: Fri Dec 30, 2016 10:31 AM

not run nothing
I have fwh 16.12

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
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: lSeekBar
Posted: Fri Dec 30, 2016 10:43 AM

Rao I use this test

Code: Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oFont, oBrw

   USE CUSTOMER NEW VIA "DBFCDX"

    SET ORDER TO TAG FIRST

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 900,400 PIXEL FONT oFont TRUEPIXEL ;
      TITLE "FWH 16.12 : SEEK IN HEADER BAR"

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" AUTOCOLS ;
      CELL LINES NOBORDER FOOTERS AUTOSORT

   WITH OBJECT oBrw
      :lSeekBar    := .t.
      :bClrEdits  := { || { CLR_HRED, CLR_YELLOW } }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

I click on header ... not run anything
I digit a letter sample "F" not run anything

I not see the get and I not see the lupa bitmap as this image http://imagizer.imageshack.us/v2/xq90/922/1ynqdu.png

I send you a mail with exe ,prg and dbf
rename xxx file into zip or rar

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: lSeekBar
Posted: Fri Dec 30, 2016 12:38 PM
I send you a mail with exe ,prg and dbf

Please make sure you keep customer.cdx also along with the customer.dbf
Regards



G. N. Rao.

Hyderabad, India
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: lSeekBar
Posted: Fri Dec 30, 2016 03:45 PM

Please I made another sample to understand:

Code: Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

static cFwhPath   := "c:\\work\\fwh\\"

function Main()

   local oDlg, oFont, oBrw
   local cPath    := cFwhPath + "samples\\"

   USE ( cPath + "CUSTOMER" ) NEW ALIAS CU SHARED

   INDEX ON FIRST TAG FIRST TO CTMP MEMORY
   INDEX ON LAST TAG LAST TO CTMP MEMORY


   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 900,400 PIXEL FONT oFont TRUEPIXEL ;
      TITLE "FWH 16.12 : SEEK IN HEADER BAR"

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CU" AUTOCOLS ;
      CELL LINES NOBORDER FOOTERS AUTOSORT

   WITH OBJECT oBrw
      :lSeekBar    := .t.
      :bClrEdits  := { || { CLR_HRED, CLR_YELLOW } }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

Now I see the lupa bmp but only on second column because there is the insex tag last

How I can to make this :
click on the heade r -> it must show the get of search ( on each column I make the index)

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
kajot
Posts: 357
Joined: Thu Nov 02, 2006 06:53 PM
Re: lSeekBar
Posted: Fri Dec 30, 2016 07:46 PM

I am using FWH 16.12 and xHB.com

best regards

kajot
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: lSeekBar
Posted: Sat Dec 31, 2016 10:10 AM
In my test I used

DBSELECTAREA("KKASSE")

1. Index
ORDCREATE( ,"KASSE1","UPPER(KASS1)", {|| UPPER(KASS1) } , .F. )

2. Index
ORDCREATE( ,"KASSE2","KENNER", {|| KENNER } , .F. )

The browser

DBSELECTAREA( "KKASSE" )
( "KKASSE" )->(DBSETORDER("KASSE1"))
("KKASSE")->(DBGOTOP())

REDEFINE XBROWSE oBrw1 ID 110 OF oDlg1 AUTOSORT ;
COLUMNS { "KASS1", "KURZ1", "KENNER", "SIGNAL", "MERKER" } ;
ALIAS "KKASSE"
...
...
WITH OBJECT oBrw1
:bRecSelData := { |brw| brw:KeyNo }
:bRecSelHeader := { |brw| "Nr." } // or simply "SlNo"
:bRecSelFooter := { |brw| brw:nLen } // or Simpy any value
:nRecSelWidth := 50
:lSeekBar := .t.
:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }
END

clicking on the header the seek changes from index 1 to index 2

viewtopic.php?f=3&t=33376&p=196863#p196863

I couldn't detect anything wrong.

regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: lSeekBar
Posted: Sat Dec 31, 2016 10:47 AM

Please can use sample test of fivetech with dbfs ( customer)

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
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: lSeekBar
Posted: Sun Jan 01, 2017 04:05 PM

Silvio,

my changes on sample : xBrowgrd.prg using multiple index.
( added index FIRST and LAST )

just click on header < FIRST > or < LAST > to change the indexorder.

Code: Select all Collapse
#include 'fivewin.ch'
#include 'xbrowse.ch'

FUNCTION MAIN()
local oDlg, oBrw, oFont
local aRowGrad, aSelGrad, aStdGrad
local n := RGB( 157, 248, 255 )

REQUEST DBFCDX
RDDSETDEFAULT ( "DBFCDX" )
SETBALLOON( .T. )

XbrNumFormat( 'E', .t. )

aRowGrad := { { .5, RGB( 232, 241, 252 ), RGB(  232, 241, 252 ) }, ;
                 { .5, RGB( 210, 225, 244 ), RGB(  235, 243, 253 ) } }

aSelGrad := { { .5, RGB( 255, 255, 251 ), RGB( 255, 237, 178 ) }, ;
                 { .5, RGB( 255, 218, 103 ), RGB( 255, 233, 162 ) } }

USE CUSTOMER  
ORDCREATE( ,"CUST1","UPPER(FIRST)", {|| UPPER(FIRST) } , .F. )
ORDCREATE( ,"CUST2","UPPER(LAST)", {|| UPPER(LAST) } , .F. )

DEFINE FONT oFont NAME 'Tahoma' SIZE 0,-14

DEFINE DIALOG oDlg SIZE 740,440 PIXEL ;
FONT oFont TITLE 'XBrowse Gradient Rows FWH 9.12'

DBSETORDER("CUST1")

@ 10,10 XBROWSE oBrw OF oDlg ;
      SIZE -10,-10 PIXEL ;
      COLUMNS 'FIRST', "LAST", 'HIREDATE', 'MARRIED', 'SALARY' ;
      ALIAS 'CUSTOMER' LINES NOBORDER AUTOSORT

oBrw:Married:SetCheck()  // Default FWH Bitmap is Alpha

WITH OBJECT oBrw:First
      :AddBitmap( '\fwh\bitmaps\open2.bmp' ) // non-alpha bitmap
      :bBmpData   := { || 1 }
END

WITH OBJECT oBrw:HireDate
      :AddBitmap( '\fwh\bitmaps\Alphabmp\task.bmp' )  // alpha
      :bBmpData   := { || 1 }
END

WITH OBJECT oBrw
    :nStretchCol   := 1
    :nMarqueeStyle := 4
    :bClrSelFocus  := { || { CLR_BLACK, aSelGrad } }
    :bClrRowFocus  := { || { CLR_BLACK, aRowGrad } }
    :lSeekBar := .t.
    :bClrEdits := { || { CLR_HRED, CLR_YELLOW } }
END

oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED

CLOSE CUSTOMER
RELEASE FONT oFont

RETURN NIL

regards
Uwe :D

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: lSeekBar
Posted: Sun Jan 01, 2017 05:14 PM
Silvio.Falconi wrote:

Please I made another sample to understand:

Code: Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

static cFwhPath   := "c:\\work\\fwh\\"


function Main()

   local oDlg, oFont, oBrw
   local cPath    := cFwhPath + "samples\\"

   USE ( cPath + "CUSTOMER" ) NEW ALIAS CU SHARED

   INDEX ON FIRST TAG FIRST TO CTMP MEMORY
   INDEX ON LAST TAG LAST TO CTMP MEMORY


   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 900,400 PIXEL FONT oFont TRUEPIXEL ;
      TITLE "FWH 16.12 : SEEK IN HEADER BAR"

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CU" AUTOCOLS ;
      CELL LINES NOBORDER FOOTERS AUTOSORT

   WITH OBJECT oBrw
      :lSeekBar    := .t.
      :bClrEdits  := { || { CLR_HRED, CLR_YELLOW } }
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

Now I see the lupa bmp but only on second column because there is the insex tag last

How I can to make this :
click on the heade r -> it must show the get of search ( on each column I make the index)

Silvio, I think you are re-written the memory variable CTMP here.

Code (fw): Select all Collapse
INDEX ON FIRST TAG FIRST TO CTMP MEMORY
INDEX ON LAST TAG LAST TO CTMP MEMORY
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: lSeekBar
Posted: Sun Jan 01, 2017 05:19 PM
Sorry,
Uwe same error
I click on First and digit "Gary" the procedure go to the first "Gary" the selector move to first "Gary" founded ok

I thinked another.

I click on first and digit" Ga" the procedure must show me only the first name init with "Ga" ...

then I thinked....

the search filter procedure advise me must have a combobox with these options :

- All - as your search ( I digit "Gary" and it move to first" Gary"
- Advance Filter ( for a sample as my class Tfilter with not or and option)
- containing - Show only entries that contain the word
- Not containing - Show only entries that not contain the word
- a list (checkboxes ) of all possibility record sample :
"Achim"
"Adele"
"Adrian"
"Al"
"Alan"
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
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: lSeekBar
Posted: Mon Jan 02, 2017 09:53 AM

Uwe,

I need to use buttons to activate/desactivate line seach

Please try this test

Code: Select all Collapse
#include 'fivewin.ch'
#include 'xbrowse.ch'

FUNCTION MAIN()
local oDlg, oBrw, oFont
local aRowGrad, aSelGrad, aStdGrad
local n := RGB( 157, 248, 255 )

REQUEST DBFCDX
RDDSETDEFAULT ( "DBFCDX" )
SETBALLOON( .T. )

XbrNumFormat( 'E', .t. )

aRowGrad := { { .5, RGB( 232, 241, 252 ), RGB(  232, 241, 252 ) }, ;
                 { .5, RGB( 210, 225, 244 ), RGB(  235, 243, 253 ) } }

aSelGrad := { { .5, RGB( 255, 255, 251 ), RGB( 255, 237, 178 ) }, ;
                 { .5, RGB( 255, 218, 103 ), RGB( 255, 233, 162 ) } }

USE CUSTOMER
ORDCREATE( ,"CUST1","UPPER(FIRST)", {|| UPPER(FIRST) } , .F. )
ORDCREATE( ,"CUST2","UPPER(LAST)", {|| UPPER(LAST) } , .F. )

DEFINE FONT oFont NAME 'Tahoma' SIZE 0,-14

DEFINE DIALOG oDlg SIZE 780,440 PIXEL ;
FONT oFont TITLE 'XBrowse Gradient Rows FWH 9.12'

DBSETORDER("CUST1")

@ 10,10 XBROWSE oBrw OF oDlg ;
      SIZE 380,180 PIXEL ;
      COLUMNS 'FIRST', "LAST", 'HIREDATE', 'MARRIED', 'SALARY' ;
      ALIAS 'CUSTOMER'  NOBORDER AUTOSORT  //LINES

oBrw:Married:SetCheck()  // Default FWH Bitmap is Alpha

WITH OBJECT oBrw:First
      :AddBitmap( '\fwh\bitmaps\open2.bmp' ) // non-alpha bitmap
      :bBmpData   := { || 1 }
END

WITH OBJECT oBrw:HireDate
      :AddBitmap( '\fwh\bitmaps\Alphabmp\task.bmp' )  // alpha
      :bBmpData   := { || 1 }
END

WITH OBJECT oBrw
    :nStretchCol   := 1
    :nMarqueeStyle := 4
    :bClrSelFocus  := { || { CLR_BLACK, aSelGrad } }
    :bClrRowFocus  := { || { CLR_BLACK, aRowGrad } }
   * :lSeekBar := .t.
    :bClrEdits := { || { CLR_HRED, CLR_YELLOW } }
END

oBrw:CreateFromCode()

 @ 200,12 BUTTON "Activate/desactivate filter "  size 90,20 PIXEL of oDlg  ACTION  ( oBrw:lGetBar := !  oBrw:lGetBar,  oBrw:Refresh())

 @ 200,112 BUTTON "Activate  filter "  size 50,20 PIXEL of oDlg ACTION ( ( oBrw:cAlias )->( SetFilter( oBrw ) ))

 @ 200,192 BUTTON "clear filter "  size 50,20 PIXEL of oDlg  ACTION  ((  oBrw:cAlias )->( DBCLEARFILTER(),  oBrw:Refresh(), oBrw:SetFocus() ))

ACTIVATE DIALOG oDlg CENTERED

CLOSE CUSTOMER
RELEASE FONT oFont

RETURN NIL
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
Static archive · New replies & topics via GitHub Discussions