Форум: "Основная";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];
ВнизОтчаенье! Проблеммы с выводом на широкий формат! ПоМОООО гитееее Найти похожие ветки
← →
R&V (2002-01-27 17:18) [2]with Printer do
begin
BeginDoc;
// Ширина и высота таблицы
TabWidth:=PageWidth;
TabHeight:=PageHeight;
// Координаты таблицы
Coord.TopLeft.x:=0;
Coord.TopLeft.y:=0;
Case RadioGroup1.ItemIndex of
0:begin
Coord.BottomRight.x:=TabWidth;
Coord.BottomRight.y:=TabHeight;
end;
1:begin
Coord.BottomRight.x:=Round(TabWidth*0.84);
Coord.BottomRight.y:=Round(TabHeight*0.84);
end;
2:begin
Coord.BottomRight.x:=Round(TabWidth*(SpinEdit1.Value/100));
Coord.BottomRight.y:=Round(TabHeight*(SpinEdit1.Value/100));
end;
end;
// Вывод таблицы
Canvas.StretchDraw(Coord, Bmp);
EndDoc;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c