Suche einen Lösungsansatz

Suche einen Lösungsansatz

Postby NK » Wed Feb 13, 2008 12:02 pm

Hallo Kollegen,

ich suche einen Lösungsweg:

Aufgabe:
Ich habe 4 x TSBROWSE in einem Window nebeneinander, gefüllt mit Arrays zu je 50 Elementen.
Ich habe die Vert.Scrollbars der Browse-Objekte unterdrückt und eine zentrale Scrollbar definiert.

Ich möchte nun erreichen, dass über diese zentrale Scrollbar die 4 TSBROWSE synchron gescrollt werden.

Ich habe es versucht mit ...
Code: Select all  Expand view
   @ 43, 1 SCROLLBAR oSbr1 OF oWnd VERTICAL RANGE 1, 50 ;
      ON UP       ( oArray1:VScroll( SB_LINEUP, 0 ) ,oArray1:Refresh(.t.) ,;
                    oArray2:VScroll( SB_LINEUP, 0 ) ,oArray2:Refresh(.t.) ,;
                    oArray3:VScroll( SB_LINEUP, 0 ) ,oArray3:Refresh(.t.) ,;
                    oArray4:VScroll( SB_LINEUP, 0 ) ,oArray4:Refresh(.t.)) ;
      ON DOWN     ( oArray1:VScroll( SB_LINEDOWN, 0 ),oArray1:Refresh(.t.),;
                    oArray1:VScroll( SB_LINEDOWN, 0 ),oArray1:Refresh(.t.),;
                    oArray2:VScroll( SB_LINEDOWN, 0 ),oArray2:Refresh(.t.),;
                    oArray3:VScroll( SB_LINEDOWN, 0 ),oArray3:Refresh(.t.),;
                    oArray4:VScroll( SB_LINEDOWN, 0 ),oArray4:Refresh(.t.))

... funktioniert aber nicht. Wenn in den einzelnen Browse-Objekten unterschiedliche Zeilen selektiert sind.

Hat jemand einen Lösungsansatz für mich ?? Ich seh den Wald vor lauter Bäume nicht ...

Viele Grüße, Norbert
User avatar
NK
 
Posts: 97
Joined: Sun Nov 20, 2005 4:32 pm
Location: Germany

Postby StefanHaupt » Thu Feb 14, 2008 8:44 am

Hallo Norbert,

hat jedes Browseobjekt eine eigene Datenbank oder hast du nur eine Dbf geöffnet ?

Wenn du 4 Dbf hast, könntest du das vielleicht über Relationen lösen, eine Masterdatenbank und 3 Abhängigkeiten.

Oder, eine andere Idee, versuch mal, das zentrale Scrollbarobjekt den einzelnen Browseobjekte zuzuweisen, also oBrw:oVScroll := oScroll.

Gruß
Stefan
kind regards
Stefan
StefanHaupt
 
Posts: 824
Joined: Thu Oct 13, 2005 7:39 am
Location: Germany

Postby StefanHaupt » Thu Feb 14, 2008 8:50 am

Ups, ich sehe grade, du hast 4 Arrays, aber auch da könntest du Abhängigkeite programmieren mit ON CHANGE.

Aber noch eine Idee, warum nutzt du nicht einfach ::Skip()

...
ON UP oArray1:Skip(1), oArray1:Refresh() usw.
...


Gruß
Stefan
kind regards
Stefan
StefanHaupt
 
Posts: 824
Joined: Thu Oct 13, 2005 7:39 am
Location: Germany

Postby NK » Fri Feb 15, 2008 10:04 am

Hallo Stefan,

danke für die Anregungen. Werde mal ans testen gehen.

Gruss, Norbert
User avatar
NK
 
Posts: 97
Joined: Sun Nov 20, 2005 4:32 pm
Location: Germany


Return to All products support

Who is online

Users browsing this forum: No registered users and 5 guests