canvas

[LoL]

hi

kann man mit canvas einen bestimmten bereich ausmalen?
z.b. erst ein rechteck zeichnen und das dann ausmalen?

[Sanchez]

Ein Rechteck kannst du ganz einfach mit

Delphi-Quellcode:

canvas.FillRect(TRect);

füllen. Das musst du vorher nicht zeichnen.

Einen Bereich mit Floodfill

[LoL]

hab ich probiert und zwar so:

Delphi-Quellcode:

canvas.brush.color := clblack;
canvas.FillRect(Rect(10,10,100,100));

geht aber irgendwie nicht

[LoL]

doch jetzt funzt es! :hello:

kann ich auch z.b. ein dreieck zeichen und ausmalen?

[Sanchez]

Bei einem Dreieck fällt mir nix anderes ein als zuerst das Dreieck zeichnen und anschliessend

Delphi-Quellcode:

  canvas.FloodFill(x , y {Punkt im Dreieck}, Dreieckfarbe, fsborder);

Eventuell gibts da noch eine bessere Möglichkeit, aber das sollte funktionieren

[Mirilin]

:hi:

Delphi-Quellcode:

var
  P : array [0..2] of TPoint;
begin
  Canvas.Brush.Color := clred;
  Canvas.Pen.Width   := 2;
  Canvas.Pen.Color   := clBlack;
  P[0] := Point(300,20);
  P[1] := Point(10,300);
  P[2] := Point(590,300);
  Canvas.Polygon(P);
end;

Delphi-Hilfe :

Zitat:

Die Methode Polygon zeichnet eine Reihe von Linien auf der Zeichenfläche, die die als Parameter übergebenen Punkte der Reihe nach verbinden. Eine Linie vom letzten zum ersten Punkt schließt den Umriß.

procedure Polygon(Points: array ofTPoint);

Beschreibung

Mit dieser Methode könne Sie unter Verwendung des aktuellen Stifts eine in sich geschlossene, vieleckige Form zeichnen. Die Form wird mit dem aktuellen Pinsel gefüllt.

Der Parameter Points ist ein Array mit den Scheitelpunkten des Polygons.

[Sanchez]

Toll, gefällt mir besser als Floodfill
:dancer:

[LoL]

noch ne allgemeine frage: ein panel hat kein canvas oder?

[Sanchez]

Nein, du kannst dir aber einen Canvas erzeugen:

Delphi-Quellcode:

var Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetDC(Panel1.Handle);

    // hier hast du die Canvas

  finally
    ReleaseDC(Panel1.Handle, Canvas.Handle);
    Canvas.Handle := 0;
    Canvas.Free;
  end;
end;

[LoL]

thx hat gefunzt :hello: :hello: :hello: