Polygon schraffieren (ohne Canvas.Polygon)

[Neutral General]

Ich denke mal das ist ihm klar, Er frag sich wahrscheinlich nur was der Sinn sein soll es so zu machen statt einfach Canvas.Polygon zu benutzen

[Aphton]

Die Antwort zu seiner Frage ist - man muss nicht die Schnittpunkte der Schraffurlinien mit dem Polygon berechnen. Man kann die Schraffur einfach auf die Schablone/Clipbereich draufmalen - ohne irgendwelche jeglichen Sorgen -- diese werden sich dann durchs Clipping im Polygon befinden!

[Uwe Raabe]

Um das nochmal zu verdeutlichen: wenn die Schraffur mit dem Brush.Style gemacht wird, kann man direkt Canvas Polygon verwenden. Will man die Schraffur direkt zeichnen, weil es die passende nicht gibt und einem die Erstellung einer Bitmap zu aufwändig ist (oder das Bild von der Oma als Schraffur herhalten soll), kann man das Clipping verwenden.

[Bjoerk]

Genauso so sieht's aus, Ihr habt vollkommen recht. :thumb:
Beispiel:

Delphi-Quellcode:

procedure HatchSolidDash(Canvas: TCanvas; const Polygon: array of TPoint;
  HatchColor: TColor; Frequency: integer);
var
  I, J: integer;
  ClipRgn: HRGN;
  CanvasWidth, CanvasHeight: integer;
begin
  ClipRgn := CreatePolygonRgn(Polygon[0], Length(Polygon), WINDING);
  try
    SelectClipRgn(Canvas.Handle, ClipRgn);
    CanvasWidth := Canvas.ClipRect.Right - Canvas.ClipRect.Left;
    CanvasHeight := Canvas.ClipRect.Bottom - Canvas.ClipRect.Top;
    Canvas.Pen.Color := HatchColor;
    Canvas.Pen.Width := 1;
    I := 0;
    J := 0;
    while (I < CanvasHeight) or (I < CanvasWidth) do
    begin
      Canvas.MoveTo(0, I * Frequency);
      Canvas.LineTo(I * Frequency, 0);
      Inc(I, Frequency);
      Inc(J);
      if Odd(J) then
        Canvas.Pen.Style := psSolid
      else
        Canvas.Pen.Style := psDash;
    end;
  finally
    DeleteObject(ClipRgn);
    SelectClipRgn(Canvas.Handle, 0);
  end;
end;

procedure TForm2.Button4Click(Sender: TObject);
var
  Points: array of TPoint;
begin
  SetLength(Points, 12);
  Points[0] := Point(100, 150);
  Points[1] := Point(200, 150);
  Points[2] := Point(250, 200);
  Points[3] := Point(200, 350);
  Points[4] := Point(100, 350);
  Points[5] := Point(50, 400);
  Points[6] := Point(400, 150);
  Points[7] := Point(500, 50);
  Points[8] := Point(55, 100);
  Points[9] := Point(500, 250);
  Points[10] := Point(400, 350);
  Points[11] := Point(350, 400);
  HatchSolidDash(Canvas, Points, clRed, 3);
  Canvas.Pen.Width := 1;
  Canvas.Brush.Style := bsClear;
  Canvas.Pen.Style := psSolid;
  Canvas.Pen.Color := clBlack;
  Canvas.Polygon(Points);
end;

[Bjoerk]

BTW, bei mir (D2007) macht er psDash, psDot und Co. nur bei Pen.Width 1. Ist das normal? :gruebel:

[Uwe Raabe]

Jupp! http://docwiki.embarcadero.com/RADSt...en_%C3%A4ndern

Zitat:

Anmerkung: Unter Windows werden breitere Strichstärken als 1 immer als durchgezogene Linien gezeichnet, unabhängig vom Wert der Eigenschaft Style.