Jak wydrukować bitmapę ?
Procedure TForm1.ButtonClick(Sender: TObject);
var
Obrazek : TBitmap;
Begin
Obrazek := TBitmap.Create;
Obrazek.LoadFromFile ('obrazek.bmp');
Printer.BeginDoc;
Printer.Canvas.Draw(20, 20, Obrazek);
Printer.EndDoc;
Obrazek.Free;
end;
var
Obrazek : TBitmap;
Begin
Obrazek := TBitmap.Create;
Obrazek.LoadFromFile ('obrazek.bmp');
Printer.BeginDoc;
Printer.Canvas.Draw(20, 20, Obrazek);
Printer.EndDoc;
Obrazek.Free;
end;
Materiał dodany przez użytkownika: alphan
