Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Как сделать изображение бледнее?   Найти похожие ветки 

 
Ш-К   (2005-06-23 16:47) [0]

Любой алгоритм какой есть.


 
имя   (2005-06-23 17:07) [1]

Удалено модератором


 
Anatoly Podgoretsky ©   (2005-06-23 17:07) [2]

Ну может быть умножить на коэффициент менее 1


 
имя   (2005-06-23 17:15) [3]

Удалено модератором


 
Ш-К   (2005-06-23 17:50) [4]

Ну хорошо, увеличение белого цвета при уменьшении контрасности.
А лучше увелечение задаваемого цвета. (серого)
Как сделать?


 
Ш-К   (2005-06-23 17:58) [5]

Вот так делаю - увеличивается котрастность:

procedure TForm1.Button1Click(Sender: TObject);
var
 j: Integer;
 I: Integer;
 _Line: pByteArray;

 function RoundEx(AVal: Byte): Byte;
 var
   _ii: Integer;
 begin
   _ii := Round(AVal * 1.7);
   if _ii > 255 then
     Result := 255
   else
     Result := _ii;
 end;

begin
 for I := 0 to Image1.Picture.Bitmap.Height - 1 do
   begin
     _Line := Image1.Picture.Bitmap.ScanLine[I];
     for j := 0 to Image1.Picture.Bitmap.Width - 1 do
       begin
         _Line^[J * 3] := RoundEx(_Line^[J * 3 + 0]);
         _Line^[J * 3 + 1] := RoundEx(_Line^[J * 3 + 1]);
         _Line^[J * 3 + 2] := RoundEx(_Line^[J * 3 + 2]);
       end;
   end;
 Image1.Refresh;
end;


 
uny ©   (2005-06-23 20:15) [6]

Ш-К  
серый цвет в RGB - это когда значения R, G, B, равны между собой.
если R, G, B отличаются друг от друга на малое значение, то получается серый цвет с оттенками.
Вам подсказали в [2], если при использовании [2] рисунок получается тёмным, то добавьте к каждому из R, G, B константу.



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.042 c
5-1109756182
Ф-1
2005-03-02 12:36
2005.11.13
Ошибка при добавлении свойства компоненту


1-1130076984
Эксперт
2005-10-23 18:16
2005.11.13
А как сделать скролинг для TPanel как в TabControl?


3-1128069251
Slym
2005-09-30 12:34
2005.11.13
Как в Рантайме добабить LookupField


2-1130226417
RainKm
2005-10-25 11:46
2005.11.13
Список папок


14-1129747717
Vulko
2005-10-19 22:48
2005.11.13
помогите исследовать а сходимость ряд