Hallo,

ich setzte mich seit kurzen mit der Komponentenentwicklung auseinander, und habe nun folgendes Problem: Ich leite meine Komponente von TGraphicControl ab und möchte nun die Möglichkeit bieten, eine Hintergrundfarbe setzen zu lassen. Hier ein bisschen Code:

zusammenfalten · markieren

Delphi-Quellcode:

private
    FColor: TColor;
    procedure SetColor(const Value: TColor);
...
published
    property Color: TColor read FColor write SetColor;
...
procedure TCalculator.SetColor(const Value: TColor);
begin
  FColor := Value;
  with Canvas do begin
    Brush.Color := FColor;
    Pen.Color := FColor;
    Pen.Width := 1;
    Rectangle(0, 0, Width, Height)
  end
end;

Ich glaube, die Prozedur SetColor ist - naja - schlecht programmiert, aber ich weiß nicht, wie ich sonst die Hintergrundfarbe setzen soll.
Nun ja, die Probleme treten auf:
• Das setzen der Farbe im OI klappt noch, wenn die Komponente im Design-Bereich jedoch den Fokus verliert, dann tritt ein Problem auf, welches durch das Zeichnen verursacht wurde - die Komponente wird nicht vollständig gezeichnet, ich habe mal ein Screenshot gemacht.
• Klickt man erneut auf die Komponente, verschwindet die Farbe.
• Will ich das Programm, und damit die Komponente, kompilieren, tritt folgender Fehler auf und das Programm wird zurückgesetzt: "Exception EInvalid Operation in Modul Standard.exe bei 00072410. Element '' hat kein übergeordnetes Fenster".

Meine Frage also: Wie kann ich die Prozedur SetColor eleganter/besser schreiben?
mfg.

Zeichenoperationen im in Paint() durchführen! Denn nur dann wird diese Operation beim Neuzeichnen auch wieder ausgeführt.

Du musst Paint überschreiben und dabei die Hintergrundfarbe berücksichtigen. In SetColor musst du außer dem Setzen von FColor eigentlich nur ein Invalidate aufrufen.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyControl = class(TGraphicControl)
  protected
    procecdure Paint; override;
  end;

procedure TMyControl.Paint;
begin
  with Canvas do begin
    Brush.Color := FColor;
    Pen.Color := FColor;
    Pen.Width := 1;
    Rectangle(0, 0, Width, Height);
  end;
end;

procedure TMyControl.SetColor(const Value: TColor);
begin
  FColor := Value;
  Invalidate;
end;

Danke an Euch beide, es klappt wunderbar, alle Probleme sind gelöst.

Zwei Verständnisfragen habe ich aber noch:
1. Beim überschriebenen Paint-Ereignis - kann ich die Anweisung inherited Paint; ohne weiteres weglassen? Es funktioniert auch ohne, aber ich habe gedacht, diese Anweisung schreibt man immer in die überschriebenen Prozeduren.
2. Das Invalidate zeichnet ja alles komplett neu. Werden da im Hintergrund also mehrere Prozeduren, zu denen ja auch Paint gehört, aufgerufen?

1. Ja da .Paint() standardmässig leer ist.
2. Ja

Kleiner Hinweis zu 2.:
Invalidate veranlasst Windows genau genommen nur, das Objekt "bei Gelegenheit" einmal neu zu zeichnen. Das Zeichnen selbst kann daher mit zeitlicher Verzögerung erfolgen.
Sofortigtes Neuzeichnen kann man z.B. mit Update veranlassen.
Das kann ggf. mal beim Neuzeichnen unter zeitkritischen Aktionen relevant sein.