DbEdit Zeile markieren

[Jan]

Meine Zeiten in Clipper sind schon etwas her. Aber hat jemand von Euch eine Idee, wie ich in DbEdit einen Zeilencursor erzeugen kann? Es geht einfach darum, das keine Daten editiert sondern nur angezeigt werden sollen. Und da ist es auf großen Bildschirmen irre aufwändig, wenn man eine komplette Zeile nur anhand eines kleinen blinkenden Cursors in irgendienem Feld identifizieren kann.

Jan

[Werner_Bayern]

Servus Jan,

mit

Code: Alles auswählen

set intensity on 

wird doch automatisch im dbedit ein ZELLENCursor invers dargestellt.
Wenn Du einen ZEILENCursor brauchst, dann ein dbedit mit nur 1 "Feld", also makroexpandiert?

[Jan]

Hallo Werner,

nö, das schaltet nur für das aktuelle Feld um. Aber nicht für die komplette Zeile. Oder habe ich da was mißverstanden?

Jan

[Werner_Bayern]

irgendwie kann ich Dir nicht ganz folgen.
Mit intensity on und einer entsprechenden setcolor-Einstellung (z. B. "b/w, gr+/bg+") hast Du einen ZELLENCursor, also nicht nur einen blinkenden Cursor, wie Du eingangs geschrieben hast.
Möchtest Du einen ZEILENCursor, mach halt einfach nur ein aColumns fürs dbedit, dann hast Du automatisch einen Zeilencursor, weils nur je Zeile 1 "Feld" gibt.

[Jan]

Werner,

ein Zeilencursor ist für mich einer, der über die komplette Breite des Browses geht, über alle Felder.

Jan

[Werner_Bayern]

Deshalb habe ich versucht, 2 Möglichkeiten aufzuzeigen.
1. Aus dem von Dir beschr. blinkenden Cursor zumindest einen ZELLENCursor zu machen (= 50%iger Lösungsansatz)
2. ZEILENCursor mittels makroexpandiert, also nur 1 "Feld" pro Datensatz (= 100%iger LA)

Beispiel gewünscht?

[AUGE_OHR]

hi,

ein DbEdit gibt es nicht unter Xbase++. vielmehr gibt es eine "Kompatibilitätsfunktion DbEdit()" die ein Tbrowse ist.

Code: Alles auswählen

         oTBrowse:COLORRECT( { oTBrowse:ROWPOS, 1, oTBrowse:ROWPOS, oTBrowse:COLCOUNT }, { 2, 1 } )
         oTBrowse:HILITE()

das müsste eine Einfärbung der aktuellen Row machen.

[Jan]

Jimmy,

tja, da das Teil aber als DbEdit gestartet wird, habe ich da kein Objekt, das ich entsprechend ansprechen könnte.

Jan

[AUGE_OHR]

tja, da das Teil aber als DbEdit gestartet wird, habe ich da kein Objekt, das ich entsprechend ansprechen könnte.

DbEdit() ist eine PROCEDURE und keine Class.
aus allen *.PRG in C:\ALASKA\XPPW32\Source\SYS\ wird ja die XppSYS.DLL erzeugt.

ich würde also eine Kopie von C:\ALASKA\XPPW32\Source\SYS\dbedit.prg verwenden und die erweitern
bzw. als Anleitung für deine eigenes Dbedit()/TBrowse() nehmen.

da es einen "Row-Cursor" aber auch unter TBrowse() "so" nicht gibt der Tip mit o:COLORRECT().
dabei solltest man mittels :autoLite := .F. und :hilite()/:deHilite() arbeiten umd den Effekt eines "Row-Cursor" zu erzeugen.

[Werner_Bayern]

oder alle Felder zu einem aColumns zusammenfassen.

[UliTs]

Jan,
Warum gehst Du nicht auf Werners Lösungsvorschlag ein?

Uli

Edit: aifWerbers -> auf Werners

[Jan]

Uli,

wer ist denn "aifWerber"?

Und abgesehen davon: Ich werde den Vorschlag von Jimmy testen. Den von Werner nicht, der ist zwar auch charmant, aber in diesem Zusammenhang nicht praktikabel. Aber gestern hatte ich andere Arbeiten zu tun und bin da nicht zu gekommen.

Jan

[UliTs]

Hallo Jan,

Ich habe DbEdit fehlerbereinigt und teilweise erweitert.
Wenn Du möchtest, kann ich Dir den Quellcode zur Verfügung stellen. An Deiner Erweiterung wäre ich auch interessiert .

Uli

P.S. Geht aber nicht vor Montag...

[AUGE_OHR]

An Deiner Erweiterung wäre ich auch interessiert .

wenn du o:colorRect() meinst dann seht doch mal in den Source von C:\ALASKA\XPPW32\Source\SYS\BrowSys.prg.

dabei sorgt nun TBRowHilited( oTB, .T. ) / TBRowHilited( oTB, .F. ) die die "Umschaltung" der Farben.

p.s. von Hannes Ziegler gibt es auch ein Function ToggleTBColor() die sehr schnell sein soll (nie ausprobiert ...)