VPF::DB Chart - Форум программистов

Remiznik

Дата 24.1.2007, 03:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 30.4.2005

Репутация: нет
Всего: 1

Вообщем, проблема в том что я с помощью TChart строю график функции и запускаю программу. График строится, а как мне сохранить график ??

Модератор: следите за грамматикой. Слишком много ошибок.

Это сообщение отредактировал(а) Alexeis - 24.1.2007, 10:08

Alexeis

Дата 24.1.2007, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Встроеных средств вроде нет, потому это можно сделать при помощи API

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    cht1: TChart;
    LineSeries1: TLineSeries;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  LineSeries1.AddXY(1, 5);
  LineSeries1.AddXY(5,9);
  btn1.Caption := 'Save';
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  DC : HDC;
  bmp : TBitmap;
begin
  DC := GetDC(cht1.Handle); //получаем контекст
  bmp := TBitmap.Create; 
  bmp.Width := cht1.ClientWidth; //устанавливаем нужные размеры битмапу
  bmp.Height := cht1.ClientHeight;
  BitBlt(bmp.Canvas.Handle, 0, 0,
         cht1.ClientWidth, cht1.ClientHeight,
         DC, 0, 0, SRCCOPY);          //Копируем изображение окна на битмап
  ReleaseDC(cht1.Handle, DC);  //Освобождаем контекст
  bmp.SaveToFile('C:\1.bmp');  //Сохраняем в файл
  bmp.Free;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

VICTAR

Дата 26.1.2007, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 2
Всего: 80

Alexeis, я извиняюсь, а как же Chart1.SaveToBitmapFile()?

Это сообщение отредактировал(а) VICTAR - 26.1.2007, 00:28

Alexeis

Дата 26.1.2007, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

VICTAR, не мешай изобретать велосипед. smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »