Cześć! Jak wydrukować obrazek z formy o wymiarach oryginalnych (np 640x480) i zrobić jego screena z poziomu delphi np. po kliknięciu Buttona i jak podłaczyć do formy Printersetupdialog i PrintDialog aby to wszystko łądnie działało? Wiem, wiem, ciemna jestem, ale nie umiem tego zrobić, a takie moje zadanie domowe jest:-(
0
0
z dialogiem:
procedure TForm1.Button1Click(Sender: TObject);
var
Rec: TRect;
Rate: Double;
begin
if PrinterSetupDialog1.Execute then
begin
//Image1.Picture.LoadFromFile('factory.bmp');
Rate:=Image1.Picture.Height/Image1.Picture.Width;
Rec:=Rect(
5,
5,
Printer.PageWidth-5,
Trunc(Printer.PageHeight*Rate-
GetDeviceCaps(Printer.Handle,LOGPIXELSX))-5);
Printer.BeginDoc;
Printer.Canvas.Draw(0,0,Image1.Picture.Graphic);
//Printer.Canvas.stretchDraw(rec,Image1.Picture.Graphic); //- zeby byl rozciagniety
Printer.EndDoc;
end;
end;
bez dialogu:
ShellExecute(handle,'print','c:\plik.bmp',nil,nil,0);
i orocz tego:
printsetupdialog1.execute;
PS. to nie jest miejsce gdzie sie (gdzie Ci) odrabiaja prace domowe.
nie spij na lekcji to bedziesz wiedziec jak co zrobic