Vektor Format anzeigen/drucken

[Gruber_Hans_12345]

also das mit dem kaputtmachen des canvas nach einem path passiert auch nach einem rectangle .... und hat nur was mit GDI+ zu tun ...

habe mal folgendes ausprobiert :

Delphi-Quellcode:

procedure PaintLine(graphics : TGPGraphics);
var
    font        : TGPFont;
    solidBrush  : TGPSolidBrush;
    pen         : TGPPen;
    LF          : TLogFontW;
begin
    Font        := TGPFont.Create('Arial', 8);
    solidBrush  := TGPSolidBrush.Create(MakeColor(255, 0, 0, 255));
    pen         := TGPPen.Create(MakeColor(255,0,0));

    graphics.DrawLine(pen, 4, 30, 204, 30);

    Graphics.FillRectangle(solidBrush, MakeRect(10, 10, 30, 30));
    graphics.DrawLine(pen, 4, 40, 204, 40);

    Font.GetLogFontW(Graphics, LF);
    graphics.DrawLine(pen, 4, 50, 204, 50);

    Graphics.FillRectangle(solidBrush, MakeRect(110, 110, 40, 30));
    graphics.DrawLine(pen, 4, 60, 204, 60);

    Font.GetLogFontW(Graphics, LF);
    graphics.DrawLine(pen, 4, 70, 204, 70);

    Font.Free;
    pen.Free;
    solidBrush.Free;
end;

komischerweise macht das erste rectangle irgendwas, das die linien nicht mehr korrekt gezeichnet werden, das erste GetLogFont repariert das wieder, nach dem zweiten Rectangle passt aber alles (Das zweite GetLogFont braucht man nicht mehr ...)