Cursorzeile einfärben in TBrowse?
Moderator: Moderatoren
-
- Cut&Paste-Entwickler
- Beiträge: 40
- Registriert: Di, 25. Apr 2017 17:23
- Wohnort: Umgebung Stuttgart
Cursorzeile einfärben in TBrowse?
Hi Leute,
ich benötige mal wieder eure Hilfe.
Ist es - und wenn ja wie - möglich, die Zeile des Körpers komplett einzufärben?
Meine bisherigen Versuche im TBColumn-Objekt führten dazu, das jede einzelne Zelle farbig war, gar keine, alle Zellen bis auf den Cursor. Leider war das gewünschte Ergebnis nicht dabei...
Würde mich sehr über eine Antwort freuen!
LG Jannik
ich benötige mal wieder eure Hilfe.
Ist es - und wenn ja wie - möglich, die Zeile des Körpers komplett einzufärben?
Meine bisherigen Versuche im TBColumn-Objekt führten dazu, das jede einzelne Zelle farbig war, gar keine, alle Zellen bis auf den Cursor. Leider war das gewünschte Ergebnis nicht dabei...
Würde mich sehr über eine Antwort freuen!
LG Jannik
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Jannik (das verträumte Einhorn, by Jan)
- AUGE_OHR
- Marvin
- Beiträge: 12909
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Cursorzeile einfärben in TBrowse?
versuch es mal mit
Code: Alles auswählen
oBrowse:colorSpec := "W+/BG,W+/R,W+/B"
IF oBrowse:stable
// alert if hit top or bottom of browse
IF oBrowse:hitTop .OR. oBrowse:hitBottom
TONE(125, 0)
ENDIF
oBrowse:colorRect( {oBrowse:rowpos, 1, oBrowse:rowpos, oBrowse:colCount}, {2, 1} )
oBrowse:HILITE()
oBrowse:REFRESHCURRENT()
// everything updated, now wait for a keypress
nKey := INKEY(0)
ENDIF
// Apply the key to the browse
DO CASE
CASE nKey == 5 // Up-arrow
oBrowse:colorRect( {oBrowse:rowpos, 1, oBrowse:rowpos, oBrowse:colCount}, {1, 2} )
oBrowse:HILITE()
oBrowse:REFRESHCURRENT()
oBrowse:up()
CASE nKey == 24 // Down-arrow
oBrowse:colorRect( {oBrowse:rowpos, 1, oBrowse:rowpos, oBrowse:colCount}, {1, 2} )
oBrowse:HILITE()
oBrowse:REFRESHCURRENT()
oBrowse:down()
gruss by OHR
Jimmy
Jimmy
-
- Cut&Paste-Entwickler
- Beiträge: 40
- Registriert: Di, 25. Apr 2017 17:23
- Wohnort: Umgebung Stuttgart
Re: Cursorzeile einfärben in TBrowse?
Hi Jimmy!
Danke für deine Antwort, es funktioniert fast perfekt!
Leider bleibt die Farbe der Spalte als highlighted in der sich mein Cursor befindet wenn sich der Cursor über den Bildschirmrand bewegt.
Ein vorheriges Dehilite habe ich probiert, das funktioniert leider nicht. Hast du da einen Lösungsvorschlag?
Danke und LG!
Danke für deine Antwort, es funktioniert fast perfekt!
Leider bleibt die Farbe der Spalte als highlighted in der sich mein Cursor befindet wenn sich der Cursor über den Bildschirmrand bewegt.
Ein vorheriges Dehilite habe ich probiert, das funktioniert leider nicht. Hast du da einen Lösungsvorschlag?
Danke und LG!
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Jannik (das verträumte Einhorn, by Jan)
- AUGE_OHR
- Marvin
- Beiträge: 12909
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Cursorzeile einfärben in TBrowse?
was meinst du mit "über den Bildschirmrand"
gruss by OHR
Jimmy
Jimmy
-
- Cut&Paste-Entwickler
- Beiträge: 40
- Registriert: Di, 25. Apr 2017 17:23
- Wohnort: Umgebung Stuttgart
Re: Cursorzeile einfärben in TBrowse?
Hi Jimmy,
ich meine wenn es mehr Daten(sätze) als Platz gibt im TBrowse, dann bewegt sich mein Cursor erst Richtung Bildschirmrand und dann fängt TBrowse an zu scrollen. Die Spalte in der sich mein Cursor dabei befindet färbt sich dann komplett ein, die anderen Spalten nicht.. Habe dir zum Besseren Verständnis ein Bild angehängt.
ich meine wenn es mehr Daten(sätze) als Platz gibt im TBrowse, dann bewegt sich mein Cursor erst Richtung Bildschirmrand und dann fängt TBrowse an zu scrollen. Die Spalte in der sich mein Cursor dabei befindet färbt sich dann komplett ein, die anderen Spalten nicht.. Habe dir zum Besseren Verständnis ein Bild angehängt.
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Jannik (das verträumte Einhorn, by Jan)
- AUGE_OHR
- Marvin
- Beiträge: 12909
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Cursorzeile einfärben in TBrowse?
verstanden.
nimm mal die beiden Zeilen raus
nimm mal die beiden Zeilen raus
Code: Alles auswählen
oBrowse:colorRect( {oBrowse:rowpos, 1, oBrowse:rowpos, oBrowse:colCount}, {2, 1} )
*** oBrowse:HILITE()
*** oBrowse:REFRESHCURRENT()
nKey := INKEY(0.1)
ENDIF
gruss by OHR
Jimmy
Jimmy
-
- Cut&Paste-Entwickler
- Beiträge: 40
- Registriert: Di, 25. Apr 2017 17:23
- Wohnort: Umgebung Stuttgart
Re: Cursorzeile einfärben in TBrowse?
Hey Jimmy,
das funktioniert prima, ich danke dir!
Gibt es eine Möglichkeit, zu sehen, in welcher Zeile der Cursor sich befindet? Weil gerade hat ja alles eine Farbe...
Danke nochmal!!!
das funktioniert prima, ich danke dir!
Gibt es eine Möglichkeit, zu sehen, in welcher Zeile der Cursor sich befindet? Weil gerade hat ja alles eine Farbe...
Danke nochmal!!!
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Jannik (das verträumte Einhorn, by Jan)
- AUGE_OHR
- Marvin
- Beiträge: 12909
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Cursorzeile einfärben in TBrowse?
du kannst ja das versuchen
Code: Alles auswählen
oBrowse:colorRect( {oBrowse:rowpos, 1, oBrowse:rowpos, oBrowse:colCount}, {4, 2} ) // andere Farbe
oBrowse:HILITE()
**1** oBrowse:REFRESHCURRENT()
gruss by OHR
Jimmy
Jimmy