Witam
Mam może banalny problem ale bezskutecznie próbuję wydrukować Image mam taki kod :
procedure TForm1.Button1Click(Sender: TObject);
var
Rec: TRect;
Rate: Double;
begin
if PrinterSetupDialog.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.StretchDraw(Rec,Image1.Picture.Graphic);
Printer.EndDoc;
end;
end;
I wszystko pięknie się drukuje gdy do Image włóżę podczas edycji jakiś obrazek, natomiast sprawa się komplikuje gdy Image zadeklaruję w ten sposób :
TForm1.Image1.Canvas.Brush.Color:=clWhite;
a nastepnie na tym Image rysuję pojedyncze piksele. Podczas wydruku na poczatku drukarka pokazuje że drukowanie jest zakończone i nie chce nic drukować, nawet nie przesuwa kartki. Czy możecie mi doradzić gdzie jest błąd.
Pozdrawiam