ComboBox, bei enabled=false Schriftfarbe behalten

[chericks]

Folgends Design-Porblem:
Ich habe eine Combobox mit mehreren Einträgen. Ich wähle einen Eintrag aus und setze nun enabled auf false.
Wie immer wird dann der aktuelle Eintrag in der Combobox grau. Ich möchte aber, dass der Eintrag die Schriftfarbe beibehält.

Hat da jemand mal eine Idee?

[DeddyH]

Das hat zwar nur am Rande mit Deinem Problem zu tun, aber schau mal hier: http://www.delphipages.com/tips/thread.cfm?ID=278

[toms]

...oder die Combobox auf auf einen Panel (Enabled = False) setzen

[Luckie]

Zitat:

Zitat von chericks

Folgends Design-Porblem:
Ich habe eine Combobox mit mehreren Einträgen. Ich wähle einen Eintrag aus und setze nun enabled auf false.
Wie immer wird dann der aktuelle Eintrag in der Combobox grau. Ich möchte aber, dass der Eintrag die Schriftfarbe beibehält.

Hat da jemand mal eine Idee?

Meinst du nicht acuh, dass das den Bneutzer eventuell verwirren könnte?

[chericks]

Zitat:

Zitat von Luckie

Meinst du nicht acuh, dass das den Bneutzer eventuell verwirren könnte?

Leider nicht, ist so gewünscht. Die Combobox wird halt aus Sicherheitsgründen disabled, aber der Kunde möchte trotzdem gut leserlich erkennen können, was dort eingestellt ist.

[chericks]

Werde wohl selbst zeichnen müssen...
Danke für die Hilfe!

[toms]

Zitat:

Zitat von chericks

Werde wohl selbst zeichnen müssen...
Danke für die Hilfe!

Warum?

Zitat:

Zitat von toms

...oder die Combobox auf auf einen Panel (Enabled = False) setzen

[chericks]

Der kunde kann halt selbst formulare erstellen und abgeleitete comboboxen ablegen. Somit sind bereits einige Formulare erstellt worden. Ich hab nun beim ondrawitem folgendes hinterlegt und nun ist es schick :)

Delphi-Quellcode:

PROCEDURE TVisuComboBox.DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
VAR
  LRect: TRect;
  CB: TCombobox;

BEGIN
  CB := TCombobox(Control);
  WITH CB.Canvas DO
  BEGIN
    LRect := Rect;
    FillRect( LRect );
    Font.Color := clWindowText;
    TextOut(LRect.left, LRect.top, CB.Items[index]);
  END;
END;

[Sherlock]

Wie wäre es mit

Delphi-Quellcode:

AComboBox.ReadOnly := True;

Sherlock

[chericks]

Readonly hilft leider nicht, ist auch nicht bei den Eigenschaften hinterlegt. Könnte man sicher selbst herholen und aktivieren, aber es klappt ja bereits mit der Texfarbe :)