Farbige Statusbar

[Gregor Glinka]

Hallo,
ich habe folgendes Problem.
ich möchte in der Statusbar ein Panel farbig gestalten und je nach Situation auch die Farben wechseln. Leider haben alle meine Bemühungen bisher nicht gefruchtet.
Wer kann mir da helfen.
Ich weiss das es mit OwnerDraw gehen muss, aber ich schaffe es leider nicht.
Ich hoffe jemand kann mir helfen.
Danke

[Robert Marquardt]

Wie waere es mit StatusBar.Color

[Robert Marquardt]

Natuerlich die Color vom Panel

[Gregor Glinka]

Hallo,
leider hat das TStatusPanel keine Eigenschaft Color.
Hilfe mir leider nicht

[Jens Schumann]

Hallo Gregor,<br>ein Panel hat aber die Style property. Die muß auf psOwnerDraw stehen. Dann wird für das Panel das OnDrawPanel Event ausgelöst

[Gast_1]

Ich glaube, dass das Gregor nicht weiterhilft. Er möchte eher wissen, was er unter OnDraw reinschreiben muss.<br>
mfg

[Jens Schumann]

Moin,<br>entschuldigung, ich habe nicht alles gelesen:
<pre>
procedure TForm1.StatusBarEx1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
With StatusBarEx1.Canvas do
begin
Brush.Style:=bsSolid;
Brush.Color:=clYellow;
FillRect(Rect);
TextRect(Rect,2,2,Panel.Text);
end;
end;
</pre>
über Panel.Index kann man herausfinden, welches Panel gerade gezeichnet wird

[Gregor Glinka]

Hallo Leute,
danke es klappt. Ihr habt mir sehr geholfen.

Dank