| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите пожалуйста!
Man-In-Red © (2002-07-23 20:22:00)Как можно программно проверить, есть ли на каком-то прямоугольном отрезке изображения загруженном в Image, точка определенного цвета, допустим красная?
Dmk (2002-07-24 01:45:00) [1]VCL Reference
ScanLine, Height example
procedure TForm1.Button1Click(Sender: TObject);
// This example shows drawing directly to the BitMap
var
x,y : Integer;
BitMap : TBitMap;
P : PByteArray;
begin
BitMap := TBitMap.create;
try
BitMap.LoadFromFile("C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp");
for y := 0 to BitMap.Height -1 do
begin
P := BitMap.ScanLine[y];
for x := 0 to BitMap.Width -1 do
P[x] := y;
end;
Canvas.Draw(0,0,BitMap);
finally
BitMap.Free;
end;
end;
//...
Так вот. У TImage тоже есть битмап.
P := MyImage.Picture.Bitmap.ScanLine;
NeedColor := P[x];
Man-In-Red (2002-07-23 22:43:00) [2]Это я понимаю, но все никак не могу сделать быстренький алгоритм поиска красной точки в определенной прямоугольной области на картинке в Image…
Помогите пожалуйста, нужно очень
TTCustomDelphiMaster (2002-07-23 22:10:00) [3]Canvas.Pixels
Man-In-Red (2002-07-23 21:30:00) [4]Мастераааааа, помогите пожалуйста мне, пожалуйста…
| |
