[gelöst] Lazarus: StringGrid drucken

[Kralle]

Zitat von BadenPower:

Schmeiss bitte einmal Deine gesamte Unit hoch.

Also, ich bin jetzt mal Deinen Weg hiermit gegangen:

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
         Grids, Types, Windows, Printers;

type

         { TForm1 }

      TForm1 = class(TForm)
                  Button1: TButton;
                  StringGrid1: TStringGrid;
                  procedure Button1Click(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

procedure PrintGrid(sGrid: TStringGrid; sTitle: string);
var
  X1, X2: Integer;
  Y1, Y2: Integer;
  TmpI: Integer;
  F: Integer;
  TR: TRect;
begin
  Printer.Title := sTitle;
  Printer.BeginDoc;
  Printer.Canvas.Pen.Color  := 0;
  Printer.Canvas.Font.Name  := 'Times New Roman';
  Printer.Canvas.Font.Size  := 12;
  Printer.Canvas.Font.Style := [fsBold, fsUnderline];
  Printer.Canvas.TextOut(0, 100, Printer.Title);
  for F := 1 to sGrid.ColCount - 1 do
  begin
    X1 := 0;
    for TmpI := 1 to (F - 1) do
      X1 := X1 + 5 * (sGrid.ColWidths[TmpI]);
    Y1 := 300;
    X2 := 0;
    for TmpI := 1 to F do
      X2 := X2 + 5 * (sGrid.ColWidths[TmpI]);
    Y2 := 450;
    TR := Types.Rect(X1, Y1, X2 - 30, Y2);
    Printer.Canvas.Font.Style := [fsBold];
    Printer.Canvas.Font.Size := 7;
    Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]);
    Printer.Canvas.Font.Style := [];
    for TmpI := 1 to sGrid.RowCount - 1 do
    begin
      Y1 := 150 * TmpI + 300;
      Y2 := 150 * (TmpI + 1) + 300;
      TR := Types.Rect(X1, Y1, X2 - 30, Y2);
      Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]);
    end;
  end;
  Printer.EndDoc;
end;




procedure TForm1.Button1Click(Sender: TObject);
begin
    PrintGrid(StringGrid1, 'Print Stringgrid');
end;

end.

Und es gibt wieder ein "SIGSEGV"

[Kralle]

Ich glaube mein Lazarus hat einen Schuß

[BadenPower]

So, habe jetzt nur Deinen Source in meine Unit kopiert und es funktioniert.

Allerdings musst Du vorher noch die Unit Types in die Uses-Klausel aufnehmen.

[Kralle]

Zitat von BadenPower:

So, habe jetzt nur Deinen Source in meine Unit kopiert und es funktioniert.

Die aus #25??

Zitat von BadenPower:

Allerdings musst Du vorher noch die Unit Types in die Uses-Klausel aufnehmen.

Steht da doch drin. Zwischen Grid und Windows.

Wäre es eigentlich zulässig und machbar die Uses direkt in die Units zu packen in den sie gebraucht werden? Wenn ja, würden die Uses in der Procedure die anderen Uses ersetzen oder ergänzen?

Gruß Heiko

[BadenPower]

Zitat von Kralle:

Zitat von BadenPower:

So, habe jetzt nur Deinen Source in meine Unit kopiert und es funktioniert.

Die aus #25??

Ja, die aus #25.

Zitat von Kralle:

Zitat von BadenPower:

Allerdings musst Du vorher noch die Unit Types in die Uses-Klausel aufnehmen.

Steht da doch drin. Zwischen Grid und Windows.

Habs gerade auch gesehen.
Ich hatte Deine Uses nicht übernommen.

Habe zu Sicherheit aber nochmals getestet mit den von Dir eingebundenen Units, auch in der gleichen Reihenfolge.
Und es funktioniert immer noch.

Zitat von Kralle:

Wäre es eigentlich zulässig und machbar die Uses direkt in die Units zu packen in den sie gebraucht werden? Wenn ja, würden die Uses in der Procedure die anderen Uses ersetzen oder ergänzen?

Du willst doch nicht ernsthaft die ganzen Deklarationen und Funktionen in Deinen Quelltext kopieren?

[Kralle]

[QUOTE=BadenPower;1290431]

Zitat von Kralle:

Du willst doch nicht ernsthaft die ganzen Deklarationen und Funktionen in Deinen Quelltext kopieren?

War ja nur ein Gedanke.

Ich habe Lazarus jetzt komplett platt gemacht und neu installiert - Ergebis: keine Änderung.

Gruß Heiko

[Kralle]

Kann es sein das ich für die Lazarus-Nutzung unter Windows irgendwelche Einstellungen Global oder in den Projekteinstellungen machen muß die jetzt zu den Problemen führen?

In meienm PC sind 32GB Ram verbaut, könnte das dass Problem sein?

[creed steiger]

kcontrols wäre auch eine Möglichkeit
http://www.tkweb.eu/en/delphicomp/

und wenn ich mich richtig entsinne hatte Lazreport auch ein Printgrid oder so ähnlich