|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Предпросмотр перед печатью
Не знаю, как подступиться к задаче, задача следующая: есть ListBox.Items его нужно распечатать на одном листе А4 Items.Count ~ 100 - 200, строчки короткие ~ 150px (программы для "Электроника" НЦ-31, если кто знает) т.е. печатать надо в несколько колонок.
Сразу оговорюсь - про фаст, кристал, фри и т.д. репорты знаю, не подходит. На данный момент написал процедуру вывода на канву колонок: Код:
procedure KodDraw(Canva: TCanvas); var im, istr, MaxWidth: Word; H, FramsOfCol, cn, sn, colInt, strInt, lf, tf: Byte; begin with Canva do begin Brush.Color:= clWhite; Pen.Color:= clBlack; Pen.Width:=1; istr:= 0; cn:=0; Font.Size:= frmKodPrint.edtFontSize.Value; //Размер шрифта colInt:= frmKodPrint.edtCol.Value; //Интервал колонки strInt:= frmKodPrint.edtStr.Value; // строки lf:= frmKodPrint.edtLeftField.Value; // поля, левое tf:= frmKodPrint.edtTopField.Value; //правое H:= TextHeight(Kod[0]); //высота MaxWidth:=0; for im := 0 to Kod.Count-1 do //вычисляю ширину begin if TextWidth(Kod[im])>MaxWidth then MaxWidth:= TextWidth(Kod[im]); end; FramsOfCol:= frmKodPrint.PaintBox1.Height Div (H+strInt); while istr < Kod.Count do //Рисую колонки begin for sn := 0 to FramsOfCol-1 do begin if istr = Kod.Count then Exit; TextOut(cn*(MaxWidth+colInt)+lf, sn*(H+strInt)+tf , Kod[istr]); istr:= istr+1; end; cn:=cn+1; MoveTo (cn*(MaxWidth+colInt)+lf-4, 0); //разделители между колонками LineTo(cn*(MaxWidth+colInt)+lf-4, ClipRect.Bottom); end; end; end; Все как надо. А дальше В общем мысль такая: с помощью GetDeviceCaps получаю размер канвы принтера (при минимальных полях), рисую туда свои строчки... а вот здесь Надо предпосмотреть что получается, 1:1 канву на экране не нарисуешь (ни в один экран не влезет), нужно масштабировать, только КАК? Если это вообще возможно. Поможите, кто может! |
#2
|
||||
|
||||
Не совсем то, но посмотрите это, может и подойдёт.
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Помидоркин (26.09.2013)
|
#3
|
||||
|
||||
Обычно есть такая кнопочка типо "Лупы"
|
#4
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо Freeman за это полезное сообщение: | ||
Помидоркин (26.09.2013)
|
#5
|
||||
|
||||
Цитата:
Мысль "в догонку": У TCanvas есть свойство Pixels, двумерный массив точек из которых этот самый Canvas собственно и состоит. По сути надо этот массив и отобразить на PaintBox или Image. Проблемма в том, как скормить Image-у Canvas, для чего Canvas надо во что-то преобразовать. Вопрос во что, и как? Последний раз редактировалось Помидоркин, 27.09.2013 в 19:20. |