TImage im Querformat drucken

Soapy · Beiträge: 88 Windows 2000 Delphi 2005 Personal

Hallo Delphi-Gemeinde

Ich habe ein Problem.
Und zwar habe ich ein Programm geschrieben, das lineare Funktionen berechnet und diese dann ausdruckt.
Das Programm errechnet die lineare Funktion, und stellt sie in einem TImage dar, das ich zusätzlich noch mit einem Koordinatensystem ausgestattet habe.
So klappt alles einwandfrei, druckt auch aus aber leider im Hochformat, sodass immer nur ein Teil der linearen Funktion und des Koordinatensystems angezeigt wird.

Das ist meine Druckroutine:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

with Printer do
  begin
    BeginDoc;
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      RR := Rect(0, 0, Koordinatensystem.picture.Width * scaleX, Koordinatensystem.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Koordinatensystem.Picture.Graphic);
    finally
      EndDoc;   //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
    end;
end;

Wie kann ich nun einstellen, dass der Drucker das TImage im Querformat ausdruckt?

Und zum Schluss noch das Programm für euch:

Moderiert von jasocul: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am So 30.12.2007 um 17:59

DrRzf · Beiträge: 260 Win XP Prof D7 Enterprise

markieren

Delphi-Quelltext

1:	Printer.Orientation := poLandscape;

_________________
rein statistisch gesehen darf man keiner statistik trauen die man nicht selbst gefälscht hat.

Soapy · Beiträge: 88 Windows 2000 Delphi 2005 Personal

Ich probiers mal aus!
Danke!

P.S. Ich weiß dass ich mit meinen vielen Posts langsam nerve

, aber ich denke dass das auch andere interessieren kann... :?:

jasocul · Verfasst: So 30.12.07 18:59

Soapy hat folgendes geschrieben:

P.S. Ich weiß dass ich mit meinen vielen Posts langsam nerve

So ein Quatsch. Du nervst nicht. Das würdest du schon merken, wenn es so wäre.

Soapy · Beiträge: 88 Windows 2000 Delphi 2005 Personal

Schön

Aber ich hab nochmal ein Problem...
Vorher hat es mir mein Koordinatensystem querformatig ausgedruck, so wie ich es wollte.
Das ist der Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TLineareFunktionen.Print1Click(Sender: TObject);
var 
  ScaleX, ScaleY: Integer; 
  RR: TRect;
begin
  with Printer do
    begin
      BeginDoc;
      try
        ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
        ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
        RR := Rect(0, 0, Koordinatensystem.picture.Width * scaleX, Koordinatensystem.Picture.Height * ScaleY);
        Canvas.StretchDraw(RR, Koordinatensystem.Picture.Graphic);
      finally
        EndDoc;
      end;
    Orientation := poLandscape;
  end;
end;

Jetzt habe ich den Code so geändert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TLineareFunktionen.Print1Click(Sender: TObject);
var 
  ScaleX, ScaleY: Integer; 
  RR: TRect;
  s: string;
begin
  s := Ergebnis.Text;
  Koordinatensystem.Canvas.TextOut(10,10, s);
  with Printer do
    begin
      BeginDoc;
      try
        ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
        ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
        RR := Rect(0, 0, Koordinatensystem.picture.Width * scaleX, Koordinatensystem.Picture.Height * ScaleY);
        Canvas.StretchDraw(RR, Koordinatensystem.Picture.Graphic);
      finally
        EndDoc;
      end;
    Orientation := poLandscape;
  end;
end;

Jetzt druckt es mir zwar mein Ergebnis.Text in das Textout im Koordinatensystem aber wieder hochformatig!!! :evil:

Ich versuche jetzt seit 3-4 Stunden das zu lösen, damit es mir wieder querformatig ausdruck... :evil:

Ich verzweifel noch an diesem Programm :cry:

Bitte helft mir :?:

DrRzf · Beiträge: 260 Win XP Prof D7 Enterprise

du drehst das format auch erst nach dem ausdruck.

_________________
rein statistisch gesehen darf man keiner statistik trauen die man nicht selbst gefälscht hat.

Soapy · Beiträge: 88 Windows 2000 Delphi 2005 Personal

Ich habs vorher versucht und da hats geklappt!
Naja danke für den Tipp...

Soapy · Beiträge: 88 Windows 2000 Delphi 2005 Personal

Hey geil... Danke!
Des funktioniert!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme