Folgt auf einen Printer.Canvas.Line Befehl ein Rectangle oder FillRect, wird die letzte Line nicht gezeichnet.
Unter 0.9.26 funktionierte alles wunderbar (nur eben mit maximal 72 dpi).
Ich hatte versucht, den Patch im Lazarus-Bugtracker http://bugs.freepascal.org/view.php?id=13356 in die 0.9.26-Installation einzubauen, das ging aber komplett daneben.
Nun erfolgreich (dank Eurer Hilfe) die 0.9.28.2 aus dem SVN gebaut und nun dieses Fiasko mit den fehlenden Linien.
In meinem Programm zeichne ich auf die Printer.Canvas Messpunkte, Regressionskurven, Achsen, etc... brauche also jede Menge dieser Line und Rectangle Anweisungen.
¿Habt Ihr eine Idee?
Ich will doch nicht so was mieses in mein Programm einbauen:

Code: Alles auswählen
{$IFDEF UNIX}
For i := 1 TO 2 DO Printer.Canvas.Line (x1, y1, x2, y2);
// Bei Linux musst Du zweimal zeichnen, denn die letzte wird verschluckt...
{$ELSE}
Printer.Canvas.Line (x1, y1, x2, y2);
{$ENDIF}