Jak wydrukowac obraz.

0

Wtam,
Mam dwa pytania:

  1. Jak wydrukować obraz z Image1.
  2. Jak już będe znał procedure drukującą obraz z Image1 to jak go wydrukować w romziarach 11x11, np. np. obraz zaladowany do image-a ma rozmiary 150x150 ale ja chce go wydrukowac w 11x11.

Pozdrawiam,
Torreto {hello}

0

Jak wpiszesz TPrinter i naciśniesz F1 znajdziesz pomoc dotyczącą drukowania i przykłady użycia. Wystarczy przeskalować obraz na 11x11 i wrzucić na TPrinter.Canvas. Wszystko pisze w pomocy.--Jest jeszcze jeden błąd ... :)

------------Reklama-------------
Szukasz pomocy?
Najszybsza pomoc dostępna na IRC:
serwer: warszawa.ircnet.pl
sieć: POLNet
kanał: #4programmers.net lub #4programmers

0

Mam chwilkę czasu, więc napiszę:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
with Printer do
begin
BeginDoc;
Canvas.CopyRect(Rect(0,0,11,11),Image1.Canvas,Rect(0,0,150,150));
EndDoc;
end;
end;--Jest jeszcze jeden błąd ... :)

------------Reklama-------------
Szukasz pomocy?
Najszybsza pomoc dostępna na IRC:
serwer: warszawa.ircnet.pl
sieć: POLNet
kanał: #4programmers.net lub #4programmers

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