Скачать: CL | DM;

Знатоки, подскажите, как на основе ф-и (ниже) перевести рис.   Найти похожие ветки 

← →
Серг   (2002-05-25 15:08) [0]

в оттенки серого? Делаю так, дальше что то не идет :)

procedure TForm1.Button2Click(Sender: TObject);
var
b:TBitmap;
i,j:integer;
begin
for i:=0 to Image2.Picture.Width do
for j:=0 to Image2.Picture.Height do
begin
//????
end;
Image3.picture.assign(b);
end;

function RgbToGray(RGBColor : TColor) : TColor;
var
Gray : byte;
begin
Gray := Round((0.30 * GetRValue(RGBColor)) +
(0.59 * GetGValue(RGBColor)) +
(0.11 * GetBValue(RGBColor )));
Result := RGB(Gray, Gray, Gray);
end;

---

← →
MBo ©   (2002-05-25 15:23) [1]

Надо создать 256-цветную палитру в градациях серого в bitmap, и заполнить bitmap значениями из приведенной функции

---

← →
Donal_Graeme   (2002-05-25 19:10) [2]

думаю, вопрос состоит в том, как получить цвет в определённой точке.

есть три пути. с увеличением скорости выполнения :
1. Bitmap.Canvas.Pixels[X, Y];
2. Bitmap.Scanline[X]
3. через Dib. тут я не скажу пример. не работал.

---

← →
KilkennyCat ©   (2002-05-25 23:41) [3]

а если просто bmp.grayscale := true ?

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c