Рисование

[Masip]

Здравствуйте!Есть массив со значениями температуры Setka1. есть массив который хранить значения температуры Mas и цвет этой температуры.
Как нарисовать массив Setka1 на имейдже нужным цветом?

TGradient = record
    Temperatura:integer;
    Color:TColor;
  end;

    Setka1: array[0..180,0..60] of Extended;
    Mas:array[0..70] of TGradient;

[Stilet]

На Image я бы не советовал.
Лучше PaintBox в цикле PaintBox.Canvas.Pixels[x,y]:=Массив[x,y];

[Masip]

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

На Image я бы не советовал.
Лучше PaintBox в цикле PaintBox.Canvas.Pixels[x,y]:=Массив[x,y];

и как же мне тут цветом то управлять?

[Sibedir]

На Image я бы не советовал.
Лучше PaintBox

Я бы не согласился. Зачем по 100 раз рисовать то, что можно нарисовать 1 раз.

По теме:

...Canvas.Pixels[x,y] := TempToColor(Setka1[x,y]);

...

function TempToColor (AValue: Integer): TColor;
var
  i: Integer;
begin
  Result := clWhite;
  for i := 0 to Length(Massiv) do begin
    if Massiv[i].Temp = AValue then begin
      Result := Massiv[i].Color;
    end;
  end;
end;

[Masip]

А я бы с вами не согласился!)массив постоянно пересчитывается!вот что у меня получилось:

 m:=0;
    n:=0;
    for i:=Heihgt-6 to Heihgt-1 do
    begin
      for j:=Width div 2 - 25 to Width div 2 + 25 do
      begin
        for x:=0 to 69 do
          if Mas[x].Temperatura = Proc[m,n] then
          begin
            Form1.Image2.Canvas.Pixels[j,i]:= Mas[x].Color;
            Break;
          end;
        inc(n);
      end;
      inc(m);
      n:=0;
    end;

[Sibedir]

Что такое n и m?
И вообще, можете прокоментировать последовательность действий и заодно написать, что вообще надо-то.

[Masip]

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

Что такое n и m?
И вообще, можете прокоментировать последовательность действий и заодно написать, что вообще надо-то.

m,n: integer; переменные для управления массивом Proc.
1)запускаем цикл который с помощью которого обойдем всю область рисования
2)проверяем выполняемость условия.в массиве Mas хранятся значения температур и присвоенный им цвет!
3)рисуем 1 пиксел данного цвета.
а вообще задача стояла в отрисовке массива Proc. в нем хранятся значения температур, которая постоянно пересчитывается!

[Sibedir]

Ну вобщем-то понял. И как я понял, с поставленной задачей вы, впринципе, справились. У меня только 2 вопроса.

Вопрос 1-ый:
Зачем нужно хранить цвет температуры именно в массиве. Ведь цвет можно получать по формуле. Скажем, чем точка холоднее, тем ее цвет ближе к синему, а чем горячее, тем ближе к красному.

Вопрос 2-ой:
А насчет противостояния Image vs PaintBox, я просто хотел сказать, что это действительно спорный вопрос и не все так однозначно. Короче, не берите в голову. Думаю это не критично для вашей задачи.

[Masip]

А можно поподробней на счет формулы для получения цвета???

[Sibedir]

function TempToColor1 (AValue, AMin, AMax: Real): TColor;
var
  D: Real;
  r, b: Byte;
begin
  if AValue < AMin then
    Result := RGB (0, 0, 255)
  else
    if AValue > AMax then
      Result := RGB (255, 0, 0)
    else begin
      D := AMax - AMin;
      r := Round ((AValue - AMin) / D * 255);
      b := Round ((AMax - AValue) / D * 255);
      Result := RGB (r, 0, b);
    end;
end;

function TempToColor2 (AValue, AMin, AMax: Real): TColor;
var
  b: Byte;
begin
  if AValue < AMin then
    Result := RGB (0, 0, 255)
  else
    if AValue > AMax then
      Result := RGB (255, 0, 0)
    else begin
      if (AMax - AValue) > (AValue - AMin) then begin
        b := Round ((AValue - AMin) / (AMax - AMin) * 512);
        Result := RGB (b, b, 255);
      end
      else begin
        b := Round ((AMax - AValue) / (AMax - AMin) * 512);
        Result := RGB (255, b, b);
      end;
    end;
end;