Не знаю, как подступиться к задаче, задача следующая: есть 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;
с помощью SpinEdit-ов меняю размер шрифта, интервал между колонками, строками и.т. , короче вписываю в канву. При изменении любого из спинэдитов перерисовывается канва.
Все как надо.
А дальше
В общем мысль такая: с помощью GetDeviceCaps получаю размер канвы принтера (при минимальных полях), рисую туда свои строчки... а вот здесь
Надо предпосмотреть что получается, 1:1 канву на экране не нарисуешь (ни в один экран не влезет), нужно масштабировать, только КАК? Если это вообще возможно.
Поможите, кто может!