![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Градиентная представление массива данных [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.
Вопросы по поискуи использованиюготовых компонентов, редакторов или экспертов являются нарушениемтематики и могут быть удалены.