DCBROWSE und Zeilen und Spaltenfarbe [ERLEDIGT]

[Manfred]

Ich möchte nochmal das Thema Zeilen und Spaltenfarben bei DCBROWSE ansprechen.

Wenn es erlaubt ist in einem Browse zu editieren, dann ist nicht die ganze Zeile gefärbt, sondern nur die Zeile/Spalte, in der der Cursor steht. Ich kriege es nicht hin, dass die komplette aktuelle Zeile z.B. grau ist, aber die Spalte in der der Cursor steht andersfarbig. Wie konfiguriert man sowas?

[Tom]

Verstehe ich Dich richtig? Du hast keinen Zeilencursor, möchtest aber, dass alle Zellen in der aktiven Zeile trotzdem farblich hervorgehoben werden sollen? Das ist nicht trivial.

[Manfred]

ja, so dachte ich das.

ich hatte das hier auch mal gelesen,

http://www.xbaseforum.de/viewtopic.php? ... wse#p53210

aber irgendwie nicht verstanden.

[Wolfgang Ciriack]

Was verstehst du denn da nicht ?

[Manfred]

woher das Browse weiß, welche Zeile durchgehend als Balken gefärbt sein soll z.B. Die Zelle scheint es ja wohl selbst zu wissen. Ich habe es nur so geschafft, dass die ganze Spalte gefärbt war. Aber das wollte ich ja so nicht.

[Wolfgang Ciriack]

woher das Browse weiß, welche Zeile durchgehend als Balken gefärbt sein soll z.B.

Das legst du doch selber fest, indem du bei jeder DCBROWSCOL, die eingefärbt sein soll, den COLOR codeblock festlegst.

[Tom]

Wenn Du ein Array braust, gibt Dir "DC_GetColArray(0,oBrowse)" in jeder Zelle zurück, zu welcher Zeile sie gehört. Im Color-Codeblock jeder Zelle fragst Du dann einfach ab, ob "DC_GetColArray(0,oBrowse)" mit "DC_BrowseRow(oBrowse)" übereinstimmt - das ist nämlich der aktuelle Zeiger.

[Manfred]

es wird eine DBF angezeigt mit Index

[Klaus Stebner]

Hallo Manfred,

ich hatte es damals mit einer Hilfsvariable "nRecno" gelöst.
Bei jeder Auswahl eines Browsefeldes wird der akt. Record in der Hilfsvariable gespeichert.

Code: Alles auswählen

@  4,1.5 DCBROWSE oBrowse1 ALIAS 'FT'  ;
   SIZE 137.5,7.2    ; 
   PARENT oTabPage1  ;
   EDIT xbeBRW_ItemSelected MODE DCGUI_BROWSE_EDITDOWN ;
   PRESENTATION aPres   ;       
   FREEZELEFT { 1, 2 }  ;
   ITEMMARKED {| aRowCol, uNIL2, self | nRecno := Recno(), ....

Jedes Browsefeld erhält einen Codeblock

Code: Alles auswählen

DCBROWSECOL FIELD FT->SAUFTRAGNR ;
  EVAL { |o| o:colorBlock := fColor } ;
  HEADER "Teile-" PARENT oBrowse1 ;
  PROTECT {||.T.} ;
  WIDTH 5 FOOTER 'Nummer'

Wird jetzt das Browse angezeigt, wird geprüft, ob der akt.Record mit der
Hilfsvariable "nRecno" übereinstimmt und entsprechend die Farbe gesetzt.

Code: Alles auswählen

// Farben
aColors := { {GRA_CLR_WHITE,GRA_CLR_RED}, ;
             {GRA_CLR_BLACK,GRA_CLR_GREEN}, ;
             {GRA_CLR_BLACK,GRA_CLR_WHITE}, ; 
             {GRA_CLR_BLACK,GRA_CLR_PALEGRAY} }

fColor := {||aColors[IIF((Recno()= nRecno), 4, 3)]}

Mit dem Tip von Wolfgang Ciriack für verschachtelte Codeblöcke sind hier fast
keine Grenzen gesetzt.

[Manfred]

Hallo Klaus,

das könnte das fehlende Glied gewesen sein. Danke erstmal.

[Wolfgang Ciriack]

Hab dir ne Mail mit einem Testprogramm geschickt, in der das so funktioniert.

[Manfred]

Danke Wolfgang und Klaus, das klappt.