TTabControl, XP-Style, OwnerDraw

[EConvertError]

Hallo!

Ich verwende ein TTabControl mit XP-Style.
Jetzt möchte ich hinter einige Labels (die tabellenförmig angeordnet sind) mit FillRect() einen Hintergrund malen. Stelle ich ich die OwnerDraw-Property auf true, funktioniert das auch, aber das TabControl wird ohne XP-Style gemalt. Gezeichnet wird im OnDraw-Ereignis.

Die Zeichenoperation in MainForm.OnPain zu verschieben hat ebenfalls nicht zum gewünschten Erfolg geführt, da dann zwar das TabControl noch mit XP-Style gezeichnet wurde, meine Zeichenbefehle aber ignoriert wurden.

Hier [codeproject] wird zwar eine Lösung angeboten, aber ich bin der Sprache C++ leider nicht so mächtig. Vielleicht kann da jemand helfen oder hat eine andere Lösung...

Vielen Dank,
Andreas

[EConvertError]

Keiner eine Idee, wie man OwnerDraw gemeinsam mit XP-Style verwenden könnte?

[Olli]

Zitat von EConvertError:

Die Zeichenoperation in MainForm.OnPain zu verschieben hat ebenfalls nicht zum gewünschten Erfolg geführt, da dann zwar das TabControl noch mit XP-Style gezeichnet wurde, meine Zeichenbefehle aber ignoriert wurden.

Sicher? Vielleicht mußt du nur stattdessen WM_ERASEBKGND überschreiben nicht WM_PAINT?!

[EWeiss]

Zitat von EConvertError:

Keiner eine Idee, wie man OwnerDraw gemeinsam mit XP-Style verwenden könnte?

Wie der Name schon sagt OwnerDraw
Der Programmiere zeichnet selbst oder bestimmt was an x,y position geschieht.
Wenn du das Property einschaltest wird die interne Draw funktion des Control ausgeschaltet.

Was bedeutet wirds es eingeschaltet mußt du selbst dafür sorgen was dort gezeichnet wird
das schließ den XP-Style mit ein.

Das von dir gezeigte Sample macht nichts anderes.
Es stellt den container für die eigens kreierten Drawfunktionen dar.

Gruß

[EConvertError]

Vielen Dank!

Ich weiß wirklich nicht, was ich diesmal anders gemacht habe, als zuvor, aber jetzt zeichnet er auch, wenn es im OnPaint-Event passiert. Ich versteh die Welt nicht mehr.

Mein Code:

Delphi-Quellcode:

procedure TfrmMain.FormPaint(Sender: TObject);
var
  ARect: TRect;
begin
  with AdapterTabControl.Canvas do
  begin
    ARect.TopLeft := CurrentRateLabel.BoundsRect.TopLeft;            //die beiden labels befinden  
    ARect.BottomRight := CurrentUploadLabel.BoundsRect.BottomRight;  //sich in einer "Zeile"

    Brush.Style := bsClear;
    Brush.Color := clSkyBlue;

    FillRect(ARect);  //Sollte eigentlich hinter den Labels malen, nicht sie übermalen
  end;
end;

Leider gibt es noch ein Problem: Obiger Code übermalt die Labels anstatt ihnen einen Hintergrund zu verpassen. Dies geschieht auch, wenn ich OwnerDraw aktiviere und im dementsprechenden Event male.

Wisst ihr diesbezüglich Rat?

Zitat:

Wie der Name schon sagt OwnerDraw
Der Programmiere zeichnet selbst oder bestimmt was an x,y position geschieht.
Wenn du das Property einschaltest wird die interne Draw funktion des Control ausgeschaltet.

Dem stimme ich grundsätzlich zu, aber da ich nicht das gesamte Control selbst zeichnen muss, war es für mich nicht ersichtlich, dass auch der XP-Style abgeschaltet wird.

Hoffentlich wisst ihr eine Lösung,
Andreas

[EConvertError]

Niemand eine Idee?

[Olli]

Zitat von EConvertError:

Niemand eine Idee?

Also Labels sind mal grundsätzlich keine Fenster, haben also weder eigenes Handle noch eigene Fensterfunktion. Entsprechend muß die Verarbeitung in der Fensterfunktion des Forms geschehen. Eine Methode wäre also alle TLabel durch TStatic zu ersetzen ...

... andererseits kannst du die Ursprungsfunktion ja malen lassen und hängst dich einfach dahinter.

[EConvertError]

Also Labels sind mal grundsätzlich keine Fenster, haben also weder eigenes Handle noch eigene Fensterfunktion. Entsprechend muß die Verarbeitung in der Fensterfunktion des Forms geschehen. Eine Methode wäre also alle TLabel durch TStatic zu ersetzen ... Die Verarbeitung im OnPaint-Event ist eigentlich ok für mich, aber die Labels werden übermalt und sind gar nicht mehr zu sehen. Ich will aber nur einen Hintergrund zu den Labels malen.

Zitat:

.. andererseits kannst du die Ursprungsfunktion ja malen lassen und hängst dich einfach dahinter.

Ich verstehe nicht ganz, was du damit meinst?

Wenn du Überschreiben der Paint Methode in Verbindung mit einer neuen Komponenten meinst, so sieht es hierbei nicht so gut aus, denn der Hintergrund soll sich ja über mehrere Labels erstrecken.

Wenn es gar keine andere Möglichkeit gibt, werde ich allerdings einmal ein Control schreiben, das meine tabellenförmig angeordneten Labels erstetzt. Aber eben erst irgendwann einmal...
Deshalb wäre ich froh, wenn es eine einfachere Lösung gibt.

Vielen Dank,
Andreas

[Olli]

Zitat von EConvertError:

Zitat von Olli:

Also Labels sind mal grundsätzlich keine Fenster, haben also weder eigenes Handle noch eigene Fensterfunktion. Entsprechend muß die Verarbeitung in der Fensterfunktion des Forms geschehen. Eine Methode wäre also alle TLabel durch TStatic zu ersetzen ...

Die Verarbeitung im OnPaint-Event ist eigentlich ok für mich, aber die Labels werden übermalt und sind gar nicht mehr zu sehen. Ich will aber nur einen Hintergrund zu den Labels malen.

... und genau deshalb schlug ich vor, daß du den Hintergrund dann malst wenn er gemalt werden sollte, nämlich im Erase-Event. Siehe oben!

[EConvertError]

Die Verarbeitung im Erase-Event funktioniert leider ebenfalls nicht.
Mein Code:

Delphi-Quellcode:

procedure TfrmMain.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
var
  ARect: TRect;
begin
 with AdapterTabControl.Canvas do
  begin
    ARect.TopLeft := CurrentRateLabel.BoundsRect.TopLeft;
    ARect.BottomRight := CurrentUploadLabel.BoundsRect.BottomRight;

    Brush.Style := bsClear;
    Brush.Color := clSkyBlue;

    FillRect(ARect);
  end;

Die Labels werden trotzdem einfach übermalt (außer wenn man die Größe der Form verändert, danach aber wieder das -leider- gewohnte Bild der übermalten Labels).

Andreas