Cursorzeile einfärben in TBrowse?

Zugriff, Engines, Konvertierung. Von ADS über DBF bis zu SQL.

Moderator: Moderatoren

Antworten
unicorn
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 40
Registriert: Di, 25. Apr 2017 17:23
Wohnort: Umgebung Stuttgart

Cursorzeile einfärben in TBrowse?

Beitrag von unicorn »

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
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Cursorzeile einfärben in TBrowse?

Beitrag von AUGE_OHR »

unicorn hat geschrieben: Mi, 07. Nov 2018 13:33 Ist es - und wenn ja wie - möglich, die Zeile des Körpers komplett einzufärben?
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
unicorn
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 40
Registriert: Di, 25. Apr 2017 17:23
Wohnort: Umgebung Stuttgart

Re: Cursorzeile einfärben in TBrowse?

Beitrag von unicorn »

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!
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Cursorzeile einfärben in TBrowse?

Beitrag von AUGE_OHR »

unicorn hat geschrieben: Mi, 14. Nov 2018 11:00 Leider bleibt die Farbe der Spalte als highlighted in der sich mein Cursor befindet wenn sich der Cursor über den Bildschirmrand bewegt.
was meinst du mit "über den Bildschirmrand" :?:
gruss by OHR
Jimmy
unicorn
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 40
Registriert: Di, 25. Apr 2017 17:23
Wohnort: Umgebung Stuttgart

Re: Cursorzeile einfärben in TBrowse?

Beitrag von unicorn »

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.
artikelstamm.PNG
artikelstamm.PNG (111.52 KiB) 7045 mal betrachtet
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Cursorzeile einfärben in TBrowse?

Beitrag von AUGE_OHR »

verstanden.
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
unicorn
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 40
Registriert: Di, 25. Apr 2017 17:23
Wohnort: Umgebung Stuttgart

Re: Cursorzeile einfärben in TBrowse?

Beitrag von unicorn »

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!!!
Gruß,
Jannik (das verträumte Einhorn, by Jan)
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Cursorzeile einfärben in TBrowse?

Beitrag von AUGE_OHR »

unicorn hat geschrieben: Fr, 16. Nov 2018 17:19 Gibt es eine Möglichkeit, zu sehen, in welcher Zeile der Cursor sich befindet? Weil gerade hat ja alles eine Farbe...
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()
das Hilite ist notwendig aber nicht das RefreshCurrent()
gruss by OHR
Jimmy
Antworten