StringGrid Drucken erweiterung

[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)

[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...

[Aviator]

Ohne mir jetzt großartig den Source anzuschauen. Das sieht aus, als würde er pro Zeile die Linie wieder mit dem Text übermalen. Das bedeutet, dass die Linie zu nah an deinem Text klebt. Um das zu ändern, müsstest du die Linie weiter weg vom Text zeichnen oder den BrushStyle der Texte auf bsClear setzen. Canvas.BrushStyle := bsClear;

[baumina]

Nach dem TextOut korrigierst du XPos. Das LineTo machst du mit der korrigierten XPos, denke daran liegt das.

[PaddyVII]

Zitat von Aviator:

Ohne mir jetzt großartig den Source anzuschauen. Das sieht aus, als würde er pro Zeile die Linie wieder mit dem Text übermalen. Das bedeutet, dass die Linie zu nah an deinem Text klebt. Um das zu ändern, müsstest du die Linie weiter weg vom Text zeichnen oder den BrushStyle der Texte auf bsClear setzen. Canvas.BrushStyle := bsClear;

Heyy, das mit dem Busstyle funktioniert irgendwie gar nicht...er stellt mir den brushstyle auf bsClear um, aber eine veränderung seh ich nicht...

Zitat:

Nach dem TextOut korrigierst du XPos. Das LineTo machst du mit der korrigierten XPos, denke daran liegt das.

aber auf welchen wert korrigieren??

[BadenPower]

Zitat von PaddyVII:

aber auf welchen wert korrigieren??

Schau Dir den Quellcode, welchen Du gepostet hast an und versuche ihn zu verstehen.

Kleine Hilfe:

Mit TextOut gibst Du den Text aus.
Dann kommt XPos := XPos + .... in dieser Zeile wird XPos ein neuer Wert zugewiesen.
Danach willst Du die Linie zeichnen.

Du musst die Linie natürlich voher zeichnen, bevor XPos einen neuen Wert bekommt.

[Blup]

Natürlich muss sich "XPos" bei "MoveTo" und "LineTo" unterscheiden, sonst gibt es keine Linie.
Aber warum ausgerechnet um den Wert "Grid.ColWidths[j] * 3", soll damit die horizontale Linie für eine Zelle gezeichnet werden?

Viel sinnvoller währe es, die horizontale Linie einmal pro Zeile über die ganze Tabellenbreite zu zeichnen.
Auf jeden Fall sollte sich "YPos" beim Zeichnen der Linie und des Textes unterscheiden.
Der Rahmen soll ja nicht durch den Text gehen, sondern darüber oder darunter gezeichnet werden.
Pseudocode:

Delphi-Quellcode:

YPos := InitYPos;
for Y := 0 to MaxY do
begin
  XPos := InitXPos;
  ZeichneZeilenLinie(XPos, XPosMax, YPos);
  YPos := BerücksichtigeHoeheDerLinie(YPos);

  for X := 0 to MaxX do
  begin
    ZeichneZellenText(XPos, YPos);
    XPos := BruecksichtigeBreiteDerZelle(XPos);
  end;

  YPos := BerücksichtigeHoeheDerZelle(YPos);
end;

[BadenPower]

Zitat von Blup:

Natürlich muss sich "XPos" bei "MoveTo" und "LineTo" unterscheiden, sonst gibt es keine Linie.

Das ist natürlich Käse, denn Du hast das TextOut vergessen.

Und bei TextOut wird die PenPos auf die rechte obere Ecke gesetzt und somit wird die Linie selbstverständlich gezeichnet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  XPos: Integer;
  YPos: Integer;
begin
  XPos := 20;
  YPos := 20;

  Canvas.MoveTo(XPos, YPos);
  Canvas.TextOut(XPos, YPos, 'Text1');
  Canvas.LineTo(XPos, YPos);
end;

Diese Ausgabe ergibt den 'Text1' mit einer Linie darüber, obwohl XPos nicht geändert wurde.