Canvas / FlodFill-Problem mit eigener Komponente

[DelphiCreak]

Guten Nachmittag liebe DPler,
ich sitze gerade an einer eigenen Komponente, die Komplett mit Canvas gezeichnet wird. Abgeleitet ist dise von TCustomControl. Soweit so gut, doch jetzt habe ich folgendes Problem: Eine Fläche fülle ich mit dem Befehl "FloodFill", und wenn das Fenster nun kurz aus dem Bildschirm rausgeschoben wird, ist dort wieder der Hintergrund sichtbar. Gibt es da eine Möglichkeit das zu ändern?

Also irgendeine Methode, die beim Bewegen der Form aufgerufen wird, in der dann ein neuzeichnen Möglich ist?

Danke im Vorraus

[Medium]

Das Zeichnen machst du in der überschriebenen Paint-Methode?

[DelphiCreak]

Ja

[Medium]

Dann sollte das Freilegen vormals überdeckter Bereiche durch Invalidate OS-seitig mit WM_PAINT Messages dein Paint auslösen. Oder besteht das Problem nur im Delphi Formulareditor? Da kenne ich das auch, fand's aber nicht schlimm genug um mich je darum zu kümmern :)

[DelphiCreak]

Das Problem erscheint während der Laufzeit, allerdings kann ich deiner Antwort leider nicht so recht entnehmen was zu tun ist, ich besitze zwar ein wenig mehr als Basiskentnisse von Delphi, aber mit Messages habe ich mich noch nicht genauer beschäftigt, wäre ganz nett wenn du deine Antwort ein wenig ausführen könntest ^^

mfg

[Medium]

Eiiigentlich ist es so: Windows weiss ja relativ genau wo sich diverse Fenster befinden. Wird nun eines bewegt, muss zwangsweise das darunter liegende neu gezeichnet werden, sonst blieben ja die "Schlieren" vom Rand des bewegten Fensters stehen. Windows weiss ja welche Fenster wo sind, und welches über welchem anderen liegt, und schickt an die betroffenen Fenster besagte WM_PAINT Message. Messages lassen sich in Delphi nun abfangen, was die Basisklassen schon erledigen und daraufhin eigentlich (jetzt in diesem Fall) die Paint-Methode aufrufen sollten.
Poste mal bitte den entsprechenden Teil deiner Komponente.

[DelphiCreak]

Die Paint Methode sieht wie folgt aus:

Delphi-Quellcode:

procedure TTabBar.Paint;
var x: Integer;
begin
  with Canvas do
  begin
  Brush.Color := Color;
  Pen.Color := Color;
  Rectangle(0,0,Width,Height);
  end;
  for x := 1 to TabCaptions.Count do
  if x = TActIndex then
  DrawTab(TActColor, TBColor, Height, 200, (x-1) * 200 + 5*x, true, TTabCaps.Strings[x-1])
  else
  DrawTab(TFColor, TBColor, Height, 200, (x-1) * 200 + 5*x, false, TTabCaps.Strings[x-1]);
end;

und die methode DrawTab:

Delphi-Quellcode:

procedure TTabBar.DrawTab(FillColor, BorderColor: TColor; Height, Width, LeftPos: Integer; Active: Boolean; Caption: String);
begin
  with Canvas do
  begin
  Pen.Width := 2;
  Brush.Color := FillColor;
  Pen.Color := BorderColor;
  Canvas.Font.Assign(Font);
  //Canvas.Brush.Style := bsClear;
  if Active then
  begin

  MoveTo(1+LeftPos,Height);
  LineTo(1+LeftPos, 8);
  Arc(0+LeftPos,1,12+LeftPos,13,9+LeftPos,1,0+LeftPos,10);
  MoveTo(7+LeftPos,2);
  LineTo(Width-7+LeftPos,2);
  Arc(Width-12+LeftPos,1,Width+LeftPos,13,Width+LeftPos,10,Width-9+LeftPos,1);
  MoveTo(Width-1+LeftPos, 8);
  LineTo(Width-1+LeftPos, 1+Height);
  FloodFill(15+LeftPos,7, BorderColor, fsBorder);
  end
  else
  RoundRect(1+LeftPos, 2, 1+Width+LeftPos, Height-3, 9,9);
  Canvas.Pen.Color := Canvas.Font.Color;
  Canvas.TextOut(LeftPos + 20, (Height div 2) - (Canvas.TextHeight(Caption) div 2)-1, Caption);
  end;
end;

Das ganze soll eine "TabBar" werden, wie z.b. die bei Firefox bzw Internet-Explorer, allerdings in Delphi implementiert.

Naja, morgen ist auch noch ein Tag ;)

[Medium]

Hm, ich hatte jetzt eigentlich auch auf den Deklarationsteil gehofft ;)

Laut Referenz ist Paint eine virtuelle Methode, und muss daher mit override in Ableitungen deklariert werden. Ist das bei dir schon so? (Sag nicht ja, dann wird's für mich grad misteriös - oder ich bin nur zu müde, 3 Uhr aufstehen war hart :))

[DelphiCreak]

Eem...ich glaub ich muss dich enttäuschen, aber soweit dass ich override hab bin ich schon ^^
Hier das zitat:

Delphi-Quellcode:

  protected
    { Protected-Deklarationen }
    procedure Paint; Override;

Ist halt nicht meine erste selbstgebaute Komponente, aber die erste wo ich sowas bewirken möchte wie oben beschrieben :P

[DelphiCreak]

Mmh...manchmal hilft auch einfach weiterbauen...
Hab jetzt aus effizienzgründen erst in ne BitMap malen lassen und kopiere dann die BitMap mittels Draw auf die Form, schon ist das Problem behoben ^^

Danke für Die Hilfe, und schlaf dich aus ^^