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

Вниз

Печать Chart   Найти похожие ветки 

← →
Mike_Cn   (2002-02-19 20:53) [2]

//Секреты Delphi на примерах (С. Орлик)
Procedure PrintChart(Chart : TChartFX);
Var R : TRect;
Begin
R := ScaleToPrinter(BoundRect);
If Chart.BorderStyle > 0 Then
Printer.Canvas.rectangle(R.Left,R.Top,R.Right,R.Bottom);
chartFX.Chart_paint(Chart.Handle, PDC,
R.Left,R.Top,R.Right,R.Bottom, 1, 0);
End;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c