Zeichnen einer dicken gepunkteten Linie auf einer ImgView32-Ebene

Question

Ich möchte nur eine vertikale gepunktete dicke Linie auf einer Ebene in ImgView32 zeichnen. Ich möchte auch, dass meine Linie dicker ist, also zeichne ich mehrere Linien nahe beieinander, weil Canvas.Pen.Width keinen Einfluss auf die LineTo-Methoden hat. Also mein Code ist wie folgt:

procedure TMainForm.PaintDottedHandler(Sender: TObject;Buffer: TBitmap32); 
var 
    Cx, Cy,raza: Single; 
    W2, H2: Single; 
    I,J: Integer; 
    points:TArrayOfFloatPoint; 
    Center, Radius:TFloatPoint; 
const 
    CScale = 1/200; 
begin 

    if Sender is TPositionedLayer then 
    with TPositionedLayer(Sender).GetAdjustedLocation do 
    begin 
     W2 := (Right - Left) * 0.5; 
     H2 := (Bottom - Top) * 0.5; 

     Cx := Left + W2; 
     Cy := Top + H2; 
     W2 := W2 * CScale; 
     H2 := H2 * CScale; 
     Buffer.PenColor := clRed32; 

     Buffer.MoveToF(Cx-2,Top); 
     Buffer.LineToFSP(Cx-2 , Bottom); 

     Buffer.MoveToF(Cx-1,Top); 
     Buffer.LineToFSP(Cx-1 , Bottom); 

     Buffer.MoveToF(Cx,Top); 
     Buffer.LineToFSP(Cx , Bottom); 

     Buffer.MoveToF(Cx+1,Top); 
     Buffer.LineToFSP(Cx+1 , Bottom); 

     Buffer.MoveToF(Cx+2,Top); 
     Buffer.LineToFSP(Cx+2 , Bottom); 
    end; 
end; 

So ist die Linie soll in der Mitte der neuen Ebene platziert werden. Ich füge die Schicht dies mit:

procedure TMainForm.DottedLine1Click(Sender: TObject); 
var 
    L: TPositionedLayer; 
begin 
    L := CreatePositionedLayer; 
    L.OnPaint := PaintDottedHandler; 
    L.Tag := 2; 
    Selection := L; 
end; 

Für den Rest des Codes nur den Code des Ebenen-Beispiel hinzufügen und Sie werden in der Lage, mein Problem zu reproduzieren.

Soweit ich gelesen habe, gibt es mehrere aproaches, wie Stipple mit LineToFSP (in meinem Code verwendet) oder PolyPolygonFS mit einem BuildDashedLine Punkte, um eine gepunktete Linie zu zeichnen. Aber ich kann anscheinend nicht alle dazu bringen, richtig zu arbeiten. Eigentlich macht der zweite Ansatz nichts ... also bleibe ich bei meinem ersten Ansatz. So scheint es, als ob jedes Mal, wenn es beginnt, eine Linie zu zeichnen, es zufällig ist, wie die gepunktete Linie beginnt. Es ist also entweder ein Pixel oder ein leeres Pixel. So , wenn ich die Schicht der Linie transformiert sich wie in den folgenden Bildern die Größe:

Und in der Tat alles, was ich erreichen will, ist dies:

Und natürlich möchte ich, dass die Linie wieder gezeichnet wird, wenn ich die Größe der Ebene ändere, ohne sie zu verzerren (deshalb verwende ich onPain t-Handler-Ansatz). Wenn ich einfach eine einfache Linie auf einen Layer zeichne (mit Bitmap.Canvas) und dann die Größe des Layers ändere, dann würde die Linie genauso verzerrt werden wie das Dehnen eines JPEG, also möchte ich das vermeiden.

Also mir bitte sagen, wie auf einer Schicht in ImgView32 (TGraphics32)

EDIT

Nach dem Versuch, den Code aus den Antworten eine dicke gepunktete Linie zeichnen ich es Arbeit gemacht. Jedoch gibt es einen Nebeneffekt diese Schicht: Wenn die Schicht Ändern der Größe (mit der Maus), an einigen Breiten die Farbe der gestrichelten Linie gedimmt und verschwommene wie unten:

Bevor Nach Ändern der Größe Ändern der Größe (manchmal).

Sie können dies mit demselben Code selbst reproduzieren.

EDIT

ein weiteres Problem mit dieser speziellen Schicht Es ist: mit zwei Ansätzen es zu speichern ... Datei Ich habe versucht, es als transparenten PNG zu speichern, aber ich halte eine beschädigte Datei zu bekommen. Selbst wenn ich versuche, den Layer als Bitmap zu speichern, tritt die gleiche Beschädigung auf.Bitte überprüfen Sie diese Frage aus zu:

Graphics32 - saving transparent drawing layer to png

Answer 1

Wie @SpeedFreak erwähnt Sie StrippleCounter vor jeder Zeile Zeichenaufruf zurücksetzen müssen. Sie müssen außerdem ein geeignetes Linienmuster für Ihre Linie einrichten. Dies könnte durch SetStripple Methode durchgeführt werden. Der Trick besteht darin, dieses Muster korrekt für die Breite Ihrer Linie einzurichten. Wenn Ihre Linie 5 Pixel breit ist, benötigen Sie ein Muster, das aus 5 schwarzen Pixeln und 5 weißen Pixeln besteht.

dies ausprobieren, ich habe unnötiger Code entfernt (aktualisiert):

procedure TMainForm.PaintDottedHandler(Sender: TObject; Buffer: TBitmap32); 
var 
    R: TRect; 
    Cx: Integer; 
begin 
    if Sender is TPositionedLayer then 
    begin 
    // Five black pixels, five white pixels since width of the line is 5px 
    Buffer.SetStipple([clBlack32, clBlack32, clBlack32, clBlack32, clBlack32, 
     clWhite32, clWhite32, clWhite32, clWhite32, clWhite32]); 
    // We mest operate on integer values to avoid blurred line. 
    R := MakeRect(TPositionedLayer(Sender).GetAdjustedLocation); 
    Cx := R.Left + (R.Right - R.Left) div 2; 

    Buffer.StippleCounter := 0; 
    Buffer.MoveToF(Cx-2, R.Top); 
    Buffer.LineToFSP(Cx-2 , R.Bottom); 

    Buffer.StippleCounter := 0; 
    Buffer.MoveToF(Cx-1, R.Top); 
    Buffer.LineToFSP(Cx-1 , R.Bottom); 

    Buffer.StippleCounter := 0; 
    Buffer.MoveToF(Cx, R.Top); 
    Buffer.LineToFSP(Cx , R.Bottom); 

    Buffer.StippleCounter := 0; 
    Buffer.MoveToF(Cx+1, R.Top); 
    Buffer.LineToFSP(Cx+1 , R.Bottom); 

    Buffer.StippleCounter := 0; 
    Buffer.MoveToF(Cx+2, R.Top); 
    Buffer.LineToFSP(Cx+2 , R.Bottom); 
    end; 
end; 

Und das Ergebnis sollte wie auf dem Bild sein:

Der Grund für die Sie‘ Es gibt von Zeit zu Zeit eine "unscharfe" Linie, wenn die Größe der Ebene geändert wird, weil Sie mit Fließkommawerten gearbeitet haben, um die Linie zu zeichnen. Sie müssen Ganzzahlwerte verwenden. Ich vermute, dass in einigen Fällen die Zeichnungs-Engine entschied, ein unscharfes Pixel zu zeichnen, wenn Ihre Linie nur den Teil dieses Pixels füllte.

Hoffe, das hilft.

Answer 2

Sie müssen die stipple counter zwischen jeder Zeile zurückgesetzt. Ansonsten wird jede Linie das Muster fortsetzen, wo die vorherige aufhörte:

Buffer.StippleCounter := 0; 
Buffer.MoveToF(Cx-2,Top); 
Buffer.LineToFSP(Cx-2 , Bottom); 

Buffer.StippleCounter := 0; 
Buffer.MoveToF(Cx-1,Top); 
Buffer.LineToFSP(Cx-1 , Bottom); 
...etc... 

Sie haben nicht gezeigt, wie Sie Ihre pattern eingerichtet ist, aber von Ihren Beispielen zu urteilen könnte es ein Problem auch dort sein. Ich würde (jetzt) ​​tun es so etwas wie dieses:

Buffer.SetStipple([clBlack32, clBlack32, clBlack32, clBlack32, clBlack32, 
    clWhite32, clWhite32, clWhite32, clWhite32, clWhite32]); // Alternating black and white, 5 pixels each