SCREEN OBRAZKA I WYDRUK W JEGO WYMIARACH

0

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

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

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