1. Forum
  2. USENET
  3. comp.lang.clarion

  • Synchronise second browse with any var

    From Siegfried Geryl@siegfried.geryl@gmail.com to comp.lang.clarion on Tue Feb 11 09:06:44 2020
    From Newsgroup: comp.lang.clarion

    I would like the selector on a second browse, stay synchronised with a first browse.

    I embed next (very slow code) in the 'New Selection Embed'
    Any idea to do this in a better, faster and much smarter way? (by the key_name)


    --------------------------------------------------------------------- BRW12.Takescroll(EVENT:ScrollTop) ! Go to top
    Done# = FALSE

    LOOP UNTIL Done#
    IF BRW12.Q.Plu:Nummer <> BRW9.Q.Dop:Plugins
    BRW12.Takescroll(EVENT:ScrollDown) ! Scroll 1 line down
    ELSE
    Done# = TRUE
    END!IF
    END!LOOP
    ---------------------------------------------------------------------

    Regards,

    Siegfried Geryl Belgium
    C11 - Windows 10
    --- Synchronet 3.21d-Linux NewsLink 1.2
  • From Shandin@sandinzz@yahoo.com to comp.lang.clarion on Wed Feb 12 01:48:21 2020
    From Newsgroup: comp.lang.clarion

    On Tuesday, February 11, 2020 at 6:06:46 PM UTC+1, Siegfried Geryl wrote:
    I would like the selector on a second browse, stay synchronised with a first browse.

    I embed next (very slow code) in the 'New Selection Embed'
    Any idea to do this in a better, faster and much smarter way? (by the key_name)


    --------------------------------------------------------------------- BRW12.Takescroll(EVENT:ScrollTop) ! Go to top
    Done# = FALSE

    LOOP UNTIL Done#
    IF BRW12.Q.Plu:Nummer <> BRW9.Q.Dop:Plugins
    BRW12.Takescroll(EVENT:ScrollDown) ! Scroll 1 line down
    ELSE
    Done# = TRUE
    END!IF
    END!LOOP ---------------------------------------------------------------------

    Regards,

    Siegfried Geryl Belgium
    C11 - Windows 10

    Hi.
    Maybe this will help:

    ABC: Positioning highlight bar on record with known values https://www.icetips.com/showarticle.php?articleid=219

    Regards.

    Zoran

    --- Synchronet 3.21d-Linux NewsLink 1.2
  • From =?UTF-8?Q?Jos=C3=A9_Dequeker?=@josed@telenet.be to comp.lang.clarion on Wed Feb 12 04:30:16 2020
    From Newsgroup: comp.lang.clarion

    Hi Siegfried,
    I have the following code in all my browses to point immediattely on the right record.

    if ThisWindow.Request = selectrecord
    ?select{prop:default} = 1
    FLUSH(BRW1.View)
    clear(art:record)
    art:artikelnr = glo:fromfilefield
    set(art:artikelnrkey,art:artikelnrkey)
    loop
    next(artikele)
    break
    .
    if art:omschrijving
    BRW1.ResetFromFile
    .
    .







    Op dinsdag 11 februari 2020 18:06:46 UTC+1 schreef Siegfried Geryl:
    I would like the selector on a second browse, stay synchronised with a first browse.

    I embed next (very slow code) in the 'New Selection Embed'
    Any idea to do this in a better, faster and much smarter way? (by the key_name)


    --------------------------------------------------------------------- BRW12.Takescroll(EVENT:ScrollTop) ! Go to top
    Done# = FALSE

    LOOP UNTIL Done#
    IF BRW12.Q.Plu:Nummer <> BRW9.Q.Dop:Plugins
    BRW12.Takescroll(EVENT:ScrollDown) ! Scroll 1 line down
    ELSE
    Done# = TRUE
    END!IF
    END!LOOP ---------------------------------------------------------------------

    Regards,

    Siegfried Geryl Belgium
    C11 - Windows 10

    --- Synchronet 3.21d-Linux NewsLink 1.2