Цвета

Gozd
Дата: 10.06.2009 21:48:18
При работе с Canvas цвета наподобие $00100000 (rgb(0,0,16)) или $00000020 (rgb(32,0,0)) отображаються черным.Как избежать такого явления?
FlyD
Дата: 10.06.2009 21:56:16
Gozd
При работе с Canvas цвета наподобие $00100000 (rgb(0,0,16)) или $00000020 (rgb(32,0,0)) отображаються черным.Как избежать такого явления?
Это вам кажется - это уже не чисто черный цвет. :)
А вы вообще чего ожидали при таких значениях?
Gozd
Дата: 10.06.2009 22:10:38
FlyD
Это вам кажется - это уже не чисто черный цвет. :)
А вы вообще чего ожидали при таких значениях?

Тоесть это черный+то что я задал?Ожидал увидеть менее яркий синий или красный цвета.
В целом нужно нарисовать гистограмму по количеству каждого из оттенков BGR bitmap24,вот и хочетсья этими оттенками ее оформить
FlyD
Дата: 10.06.2009 22:45:40
Gozd
FlyD
Это вам кажется - это уже не чисто черный цвет. :)
А вы вообще чего ожидали при таких значениях?

Тоесть это черный+то что я задал?
Грубо говоря, да. 0 - черный, 255 - цвет (красный/зеленый/синий):
$FF0000
$00FF00
$0000FF

Gozd
Ожидал увидеть менее яркий синий или красный цвета.
Темнее чем чистый красный/синий или бледнее? Есть разница значения каких цветов меняются.

Неужели ни с какой графической программой не ковырялись? 3 цвета, ползунки и т.д.
В любом случае, пока не увидите, не поэкспериментируете с разными комбинациями
значений, наблюдая изменения цвета, то внятно понимать не будете что и как.
Откройте хотя бы палитру из Paint - там есть поля значений RGB.
Gozd
Дата: 11.06.2009 00:02:58
FlyD
Откройте хотя бы палитру из Paint - там есть поля значений RGB

Глянул,покрутил,понял,спасибо.
OracleLover
Дата: 11.06.2009 10:17:16
Gozd,

могу порекомендовать GraphUtil

uses 
  GraphUtil

...

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;

begin
  inherited;
  for i:= 0 to 255 do
  begin
    Canvas.MoveTo(i,0);
    Canvas.Pen.Color := ColorHLSToRGB(i, 190, 200);
    Canvas.LineTo(i, Height);
  end;
end;