StringGrid Drucken erweiterung

[PaddyVII]

Zitat von himitsu:

Es gibt da den Abschnitt //Zeilen drucken , wo aktuell nur Text gedruckt wird (TextOut)
und man mag es nicht glauben, aber wenn man nun auch die Linien haben will, dann wird man das ebenfalls dort mit einbauen müssen.

Wie man Linien zeichnet, kannst du dir ja bei Header und Footer abgucken, wo es bereits gemacht wird.
Die Berechnung für die Position der Linien kann man sich aus dem TextOut der Zellen ableiten.


PS: Kontakt/Fragen zum Ersteller des Codes, siehe http://www.swissdelphicenter.ch/de/sendmail.php?id=1577 (aber eigentlich sollte man das auch locker selber hinbekommen)

Najaa, ich bekomms aber irgendwie trotzdem nicht hin...alsoo ich hab die routine an der stelle soo abgeändert, jedoch zeichnet der die linien irgendwie komisch, nicht durchgängig (screenshot häng ich an)... folgendermaßen habe ich den Quellcode erweitert...:

Delphi-Quellcode:

 if EigeneDruckerEinstellungen.rgLinien.ItemIndex = 0 then
            begin
              Printer.Canvas.MoveTo(XPos, -YPos);
            end;
              Printer.Canvas.TextOut(XPos, -YPos,
                Grid.Cells[j, i + (Seite - 1) * Zeilen - 1]);
              XPos := XPos + Grid.ColWidths[j] * 3;
               if EigeneDruckerEinstellungen.rgLinien.ItemIndex = 0 then
            begin
              Printer.Canvas.LineTo(XPos, -YPos);
            end;

kurze erklärung: Wenn der Itemindex der Radiogroup 0 ist, soll mit linien gedruckt werden...