[Kramarty]

Сообщение от Страдалецъ

С битмапом работают точно так-же как и с принтером в вашем примере:
Вот простенький пример:

Код:

Var
  Bmp: TBitmap;
begin
 Bmp := TBitmap.Create;
 Bmp.Width := Printer.PageWidth;
 Bmp.Height := Printer.PageHeight;
 Bmp.Canvas.Pen.Color := clBlack;
 Bmp.Canvas.Pen.Width := 4;
 Bmp.Canvas.Ellipse(50,50,200,200);
 Bmp.Canvas.Font.Name := 'Times New Roman';
 Bmp.Canvas.Font.Size := 24;
 Bmp.Canvas.TextOut(500,500,'Привет!');
 Printer.BeginDoc;
 Printer.Canvas.Draw(0, 0, Bmp);
 Printer.EndDoc;
 Bmp.Free;
end;

Это интересный поворот, Спасибо!
С Printer.Canvas.Draw() я ещё не пробовал.
………….
Теперь ещё одна проблема:
Нужно сочинить прогу чтоб перекодировала Jpeg в BMP гуртом, штук по 100 сразу,
Так как фотки будут приносить в формате Jpeg, их будет штук 500, надо сделать бейджики быстро!