DCBROWSE Wechsel HILITE_BG

[Markus Walter]

Hallo,

ich möchte die Hintergrund-Farbe des Balkens abhängig davon setzen, ob das Browse den Eingabefocus hat oder nicht (sprich der Anwender soll erkennen, dass das Browse aktiv ist - ich möchte nicht HILITEGETS verwenden!).

Das ich nun beim Gotfocus- und lostfocus-Event was tun muss, ist klar. Aber was?! Wenn ich das Presentation-Array ändere und ein refreshall(), bzw. Configure() mache. Stimmt die Anzeige nicht. Kann mir jemand einen Tip geben?

[Wolfgang Ciriack]

Hallo Markus,
ich habe das einfach so gelöst, dass das inaktive Browse gar keinen Balken hat: bei GOTFOCUS ein oBrowse:Hilite(), oBrowse2:DeHilte() und bei LOSTFOCUS umgekehrt. Allerdings geht das bei einem DC_Getrefresh(Getlist) wieder verloren, so musst du evtl. auch an anderen stellen mit DeHilte() arbeiten.

[Juergen]

Hallo,

ich ändere die Farben des Headers.
Z. B.
....
GOTFOCUS {||Set_Header_Color(oBrowse,GRA_CLR_RED)};
LOSTFOCUS {||Set_Header_Color(oBrowse,GRA_CLR_DARKGREEN)};



PROCEDURE Set_Header_Color(oBrowse,nColor)
LOCAL i, oColumn

FOR i := 1 TO oBrowse:colCount
oColumn := oBrowse:GetColumn(i)
oColumn:heading:setColorBG(nColor)
NEXT

RETURN

Gruß
Jürgen

[Markus Walter]

Hi,

danke für die Anregungen. Ist aber beides nicht wirklich "windows-konform"...

Ich hätte das schon lieber konform (wie z. B. in Verwaltung - Computerverwaltung): Balken ist blau, wenn das Control/Grid den Focus hat und wird grau, sobald der Focus auf ein anderes Control oder Fenster wechselt...

Noch eine Idee?

[Juergen]

Hallo Marcus,

versuche mal:

GOTFOCUS {||oBrowse:Hilite()};
LOSTFOCUS {||oBrowse:deHilite()}

Gruß
Jürgen

[Juergen]

Hallo Marcus,

die Farbe des Cursors kann wohl nur über die Presentationsparameter des
Column-Objects geändert werden.

XBP_PP_COL_DA_HILITE_FGCLR
XBP_PP_COL_DA_HILITE_BGCLR

Mir wäre das zu aufwändig, dies zur Laufzeit zu realisieren.

Gruß
Jürgen

[Markus Walter]

Hallo Jürgen,

aufwendig ist das gar nicht. Nur es stimmt anschließend nicht. Die Darstellung ist geschossen. Ich muss aber noch herausfinden, ob das an Express liegt oder warum es nicht geht...

[Juergen]

Hallo Marcus,

hatte schon den Quellcode von Roger durchforstet und nichts gefunden.

Könnte es vielleicht funktionieren, wenn nach dem Ändern des Presentations-Arrays
oBrowse:configure() aufgerufen wird.

Gruß
Jürgen

[Tom]

oBrowse:Configure() bewirkt nichts, wenn man die Presentation-Parameter umstellt. Meines Erachtens muss man XbpCellGroup:HiliteCell() überlagern. Die Quellcodes sind m.E. in der ProfSub enthalten.

[Juergen]

Hallo Tom,

dann geht das vielleicht?


LOCAL i, oColumn

FOR i := 1 TO oBrowse:colCount
oColumn := oBrowse:GetColumn(i)
oColumn:configure(,,,aPres)
NEXT

Gruß
Jürgen

[AUGE_OHR]

dann geht das vielleicht?
LOCAL i, oColumn

FOR i := 1 TO oBrowse:colCount
oColumn := oBrowse:GetColumn(i)
oColumn:configure(,,,aPres)
NEXT

ich sehe kein oBrowse:refreshXXXl()
Das setzte von Parametern nützt gar nichts wenn du die "Cell" nicht neu "malst"

[Tom]

InvalidateRect(oBrowse) könnte auch helfen.

[Juergen]

Hallo Jimmy,

die Frage stand auch in Zusammenhang mit Express++.
Da reicht dann ein dc_getrefresh(getlist).

Ansonsten muß der Dialog neu gezeichnet werden.

oDialog:invalidateRect().

Gruß
Jürgen