[Delphi3] Drukowanie bitmapy wyświetlanej w TImage

Odpowiedz Nowy wątek
2006-09-03 10:42
mroczek_i
0

Witam!

Mam taki problem - drukuję bitmapę wyświetloną w TImage :

procedure TForm1.Button1Click(Sender: TObject);
var
R:TRect;
begin
R:=Image1.ClientRect;
Printer.BeginDoc;
Printer.Canvas.CopyRect(Rect(200,200,1900,1400),Form1.Canvas,R);
Printer.EndDoc;}
end;

Ta procedura drukuje bitmapę w prostokącie o zadanych rozmiarach. Pytanie: Czy jest jakiś prosty sposób, żeby wydruk był obrócony o 90 stopni. (w orientacji poziomej)?

Pozostało 580 znaków

2006-09-03 11:21
0

Wystarczy, że sobie obrócisz obrazek w canvasie (looknij gotowce i artykuły)


Pozostało 580 znaków

2006-09-03 11:22
0
Printer.Orientation:=poLandscape;

(tak przynajmniej w Delphi7)


<font color="red">Konto porzucone</span>

Dzięki wszystkim forumowiczom za lata wspólnych dyskusji; miłej zabawy w programowanie!
Sławomir 'Szczawik' Włodkowski

Pozostało 580 znaków

2006-09-04 18:17
mroczek_i
0

Dzięki:)
Wystaczy mi właściwość Orientation z Printers:)

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0