Компонент Chart.

[Небесный]

Сообщение от Stilet

Ну дык хоть мульйон в стрингах )

Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');

OnGetAxisLabel

Эх, ребята, к сожалению, не подходит мне выводить свой текст в низу Chart.
Может кто идею подбросит, у меня есть текст, пофиг, где он и как он, мне нужно вывести информацию при печати, в программе эта инфа и нафиг не нужна. Тоесть, нужно вывести только при печати, график распечатало вверху страницы, а под ним весь текст. (И еще, как сделать, чтобы график печатался в верху страницы а не по середине).

[Stilet]

Лентяй.
Пробуй так:

unit Unit1;

interface

uses      printers,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    PrintDialog1: TPrintDialog;
    Button1: TButton;
    Chart1: TChart;
    Series1: TLineSeries;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var tg:TBitmap;
begin
tg:=TBitmap.Create;
tg.Width:=Chart1.Width;
tg.Height:=Chart1.Height;
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Align:=alClient;
Chart1.BringToFront;
BitBlt(tg.Canvas.Handle,0,0,tg.Width,tg.Height,Chart1.Canvas.ReferenceCanvas.Handle,0,0,SRCCOPY);
PrintDialog1.Execute;
Printer.BeginDoc;
Printer.Canvas.Draw(0, 0, {Form1.GetFormImage}tg);
Printer.Canvas.StretchDraw(Printer.Canvas.ClipRect, form1.GetFormImage);
Printer.EndDoc;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.AddArray([1,2,3,4,4]);

end;

end.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.PrinterSetupDialog1.Execute then
begin
printer.BeginDoc;
chart1.PrintPartial(rect(10,10,prin ter.PageWidth-1 ,printer.PageHeight div 3));
printer.Canvas.TextOut(60,printer.P ageHeight div 3+10,'Комментарии к графику');
printer.EndDoc;
end;
end;

или через FastReport

[Небесный]

Тормознул на одной вещи, мож кто подскажет:
Можно ли открывать форму командой Form2.Show;
Она открываеться, но при закрытии формы, выдает ошибку:
"Project Project1.exe raised exseption class EInvalidOperation with message
'Cannot focus a disabled or invisible window'. Process stopped. Use Steo or Run
to continue."
И еще вопросик, как можно сохранить рисунок с Чарта в файл?
Chart1.BackImage - ???

[Stilet]

Можно ли открывать форму командой Form2.Show;

Можно.

как можно сохранить рисунок с Чарта в файл?

Chart1.BackImage.SaveToFile(); ты конкретно про этот метод спрашиваешь?

Если ты в принципе спрашиваеш то можно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series, StdCtrls;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var t:TBitmap;
begin
t:=TBitmap.Create;
t.Width:=Chart1.Width;
t.Height:=Chart1.Height;
BitBlt(t.Canvas.Handle,0,0,t.Width,t.Height,Canvas.Handle,Chart1.Left,Chart1.Top,SRCCOPY);
t.SaveToFile('c:\temp\qq.bmp');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Series1.AddArray([10,1,10]);

end;

end.

Я не скажу что это наилучший вариант, но он не так уж и плох

[Небесный]

Можно ли открывать форму командой Form2.Show;

Сообщение от Stilet

Можно.

Нашел, вроде, если нужно закрывать форму, тогда Form2.ShowModal.

[Stilet]

если нужно закрывать форму, тогда Form2.ShowModal.

ShowModal ничего закрывать не умеет

[Небесный]

Сообщение от Stilet

ShowModal ничего закрывать не умеет

А, что умеет?

И еще, странно с Stringgrid пытаюсь считать данные и загнать и в массив, ничего не получаеться, выдает ошибку.
После этого зеленая стрелочка в коде становиться на строчке Form2.ShowModal;
При этом выдает ошибку с текстом: " is not a valid integer value"

for l:=1 to Form1.ch_grafikov+1 do
    for k:=1 to 12 do
      mas_graf[l,k]:=StrToInt(Stringgrid1.Cells[l,k]);