Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Вниз

Вывод на принтер картинки, хранящейся в TList   Найти похожие ветки 

 
_ZeKa   (2005-02-01 18:30) [0]

Всем привет!

Столкнулся с такой проблемой. Вывожу на печать катинку хранящуюся в TList

  Printer.Canvas.Draw(0, 0, TBitmap(Lists.Items[0]));

Результат - пустой лист. Использую Paintbox
 
  pbPreview.Canvas.Draw(0, 0, TBitmap(Lists.Items[0]));

Рисуется нормально. В чем ошибка????


 
Семен Сорокин ©   (2005-02-01 18:44) [1]

Printer.BeginDoc;
Printer.Canvas.Draw(0, 0, TBitmap(Lists.Items[0]));
Printer.EndDoc;


 
_ZeKa   (2005-02-01 18:47) [2]

Именно так я и делаю. Это я для краткости


 
_ZeKa   (2005-02-01 18:50) [3]

Привожу полный код


procedure TfPreview.pbPreviewPaint(Sender: TObject);
begin
 pbPreview.Canvas.Draw(0, 0, TBitmap(fPrint.Lists.Items[0]));
end;

procedure TfPrint.bbtnOKClick(Sender: TObject);
Var
 i: Integer;
begin
 Printer.BeginDoc;
 For i := 0 to Lists.Count - 1 do
 begin
   Printer.Canvas.Draw(0, 0, TBitmap(Lists.Items[i]));
   if i <> (Lists.Count - 1) then Printer.NewPage;
 end;
 Printer.EndDoc;
end;


 
Семен Сорокин ©   (2005-02-02 10:16) [4]

принтер цветной? пытаешься распечатать цветную картинку?
попробуй перед Draw задать у битмапа PixelFormat := pf16Bit;
У меня была трабла, отсылал цветную картинку на HP Laser Jet 1200 - тоже пустой лист был, поигрался с PixelFormat - решил проблему.


 
_ZeKa   (2005-02-02 12:27) [5]

ПЕЧАТАЕТ!!!

СПАСИБО! Сам бы никогда не допер...


 
REA   (2005-02-02 12:29) [6]

Draw работает очень плохо и не на всех принтерах.
Рекомендую использовать функцию по методу, реализованному в печати TForm.


 
_ZeKa   (2005-02-02 12:49) [7]

А если StretchDraw(...)?


 
REA   (2005-02-02 14:45) [8]

Там StretchDiBits использовано, если не ошибаюсь.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.049 c
14-1107348317
Adil
2005-02-02 15:45
2005.02.20
CD


14-1106945373
Луарвик
2005-01-28 23:49
2005.02.20
Ток не смейтесь!!! Вопрос по асму...


14-1107241627
Franzy
2005-02-01 10:07
2005.02.20
Русификация win2000en


3-1105977027
PZ
2005-01-17 18:50
2005.02.20
Поиск СЛОВА в базе данных


14-1106753737
olookin
2005-01-26 18:35
2005.02.20
Не подскажете ли, что такое muxbox?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский