Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Градиентная представление массива данных [D7, WinXP]


snl73 ©   (2011-02-23 09:20:00) 

Здравствуйте.
Имеется массив данных, который представляет собой температурное поле. Необходим компонент, в котором можно сделать следующее:
1. настроить цветовое соответствие температуры;
2. графически представить это температурное поле (с переходами цвета)


Amoeba_   (2011-02-24 16:25:00) [1]


> Необходим компонент

http://anfilat.chat.ru/tpcolor.htm


KilkennyCat   (2011-02-24 14:03:00) [2]

uses gdi+

type
 TData = record
 t : integer;
 c : color;
end;
......................................
var
 data : array of  TData;
............................................
procedure spektr(d : array of TData; r : TRect);
var
 i : integer;
 dx : integer;
 GrLBrush: TGPLinearGradientBrush;
begin
 dx := round((r.right - r.left)/length(d)); //вычисление ширины каждого температурного перехода
  for i := low(d) to high(d) do begin //для каждого элемента
      GrLBrush:=TGPLinearGradientBrush.Create(//создаем градиентную кисть
  ну а потом рисуем, с шагом dx
 end;
end;


DimaBr   (2011-02-23 09:41:00) [3]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо