Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

ThisSerie := 0;

for i := 0 to 1 do SerLeg[i] := SeriesTitles[i];

for i := 0 to 4 do= begin

Legend[i] := XTitles[i];

KeyLeg[i] := XAbbrevs[i];

end;

SerieNo := 0;

for SerieNo := 0 to 1 do begin

ThisSerie := SerieNo;

for i := 0 to 4 do Value[i] := Values[SerieNo, i];

end;

CloseData[COD_VALUES] := 0;

 end;

end;

procedure TF_Chart.FormResize(Sender: TObject);

var w, h : longint;

begin

 w := NB.Width;

 H := NB.Height;

 {при

необходимости увеличиваем/уменьшаем размер диаграммы}

 Chart1.Width := W – 18;

 Chart1.Height := H – 12;

 Chart2.Width := W – 18;

 Chart2.Height := H – 12;

 {перемещаем кнопку выхода в правый угол}

 ExitBtn.Left := SpeedPanel.Width – 32;

end;

end.

 

CHARTFX – минимум максимум

Delphi 2 

Так можно сделать с ChartFX в Delphi 2…. Я думаю то же самое будет и в D1…

cfxStockTrends.Adm[CSA_MIN] := X; //устанавливаем минимум по оси Y

cfxStockTrends.Adm[CSA_MAX] := Y; //Устанавливаем максимум по оси Y

 

Пример CHARTFX

Delphi 1 

Документация, поставляемая с Delphi, слишком запутанна и тяжела, особенно если вы не пользователь VBX…

Следующий пример устанавливает некоторые значения и пр. для ChartFX:

{Код получает данные из базы данных и рисует их}

begin

 MyTable.active := True; {открываем базу данных}

 MyTable.first;

 MyChart.title[CHART_BOTTOMTIT] := 'Заголовок по оси X';

 MyChart.title[CHART_LEFTTIT] := 'Заголовок по оси Y';

 MyChart.OpenData[COD_XVALUES] := MakeLong(numOfSeries,numofPoints);

 MyChart.OpenData[COD_VALUES] := MakeLong(numOfSeries, NumofPoints);

 MyChart.ThisSerie := SeriesNum; {начинаем

с 0}

 While MyTable.EOF <> True do begin

MyChart.value[i] := MyTable.FieldByName('SOMEFIELD').AsFloat;

MyChart.Xvalue[i] := MyTable.FieldByName('SOMEOTHERFIELD').AsFloat;

MyTable.next;

i:=i+1; {естественно, вам необходимо определить и инициализировать 'i'}

 end;

 MyChart.CloseData[COD_Values] := 0;

 MyChart.CloseData[COD_XValues] := 0;

 MyTable.active := False; {закрываем базу данных}

end;

{Обратите внимание на то, что данный код отностится к диаграмме типа xy scatter. Если вы хотите сменить тип диаграммы ChartFX, вам не нужно устанавливать значения для COD_XVALUES}

 

Управление свойством Font через сервер автоматизации

Данный документ предназначен главным образом тем программистам, кто использует OLE/COM и хочет встроить объект Font (типа Delphi-го TFont) в свой сервер автоматизации. Интерфейс IFontDisp для COM будет иметь ту же функциональность, что и Delphi-ий TFont. Например, если у вас имеется клиент автоматизации, содержащий объект со свойством Font, и в сервере автоматизации для изменения атрибутов текста вы хотите иметь те же методы (наприр, имя шрифта, жирное или наклонное начертание). Для хранения и управления шрифтом сервер автоматизации может применять реализацию интерфейса IFontDisp.

Приведенный ниже демонстрационный проект содержит элементы и шаги, необходимые для реализации интерфейса IFontDisp в сервере автоматизации COM, и осуществление взаимодействия между клиентом автоматизации COM и интерфейсом. Ниже вы найдете полный листинг исходных модулей, и некоторые комментарии относительно проекта.

Демонстрационный проект содержит следующие модули:

Project1_TLB: Паскалевская обертка для библиотеки типов, содержащей определение интерфейса.

Unit1: Реализация интерфейса: код, содержащий описание свойств интерфейса и реализующий его методы.

Unit2: Главная форма сервера автоматизации. Данный модуль не является обязательным, но он в ходе тестирования обеспечивает обратную связь, так что мы можем видеть как отрабатываются вызовы наших методов.

FontCli: Клиент автоматизации, получающий ссылку на интерфейс, и использующий его методы.

Ниже приведены общие шаги для достижения цели. Вы можете сравнить каждый из этих шагов с кодом модулей, приведенных ниже.

1. Выберите пункт меню File|New|ActiveX|Automation Object и в Мастере Automation Object Wizard выберите в качестве имени класса MyFontServer. Создайте единственное свойство с именем MyFont и типом IFontDisp. Для получения дополнительной информции смотри Developer's Guide, chapter 42 (руководство разработчика, глава 42), там подробно описана работа с библиотеками типов и создание интерфейсов в редакторе библиотеки типов.