Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Вниз

Помогите пожалуйста!   Найти похожие ветки 

 
Man-In-Red   (2002-07-23 20:22) [0]

Как можно программно проверить, есть ли на каком-то прямоугольном отрезке изображения загруженном в Image, точка определенного цвета, допустим красная?


 
Man-In-Red   (2002-07-23 21:30) [1]

Мастераааааа, помогите пожалуйста мне, пожалуйста…


 
TTCustomDelphiMaster   (2002-07-23 22:10) [2]

Canvas.Pixels


 
Man-In-Red   (2002-07-23 22:43) [3]

Это я понимаю, но все никак не могу сделать быстренький алгоритм поиска красной точки в определенной прямоугольной области на картинке в Image…
Помогите пожалуйста, нужно очень


 
Dmk   (2002-07-24 01:45) [4]

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];



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

Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
1-13624
Толстый
2002-07-25 10:55
2002.08.05
Выход из Windows


14-13796
Катерина
2002-07-10 12:23
2002.08.05
Help`ы. Крик души


4-13851
kserg@ukr.net
2002-05-29 10:40
2002.08.05
Как узнать тип ОС?


1-13669
Cowboy
2002-07-23 17:21
2002.08.05
TImage & TTabSheet


3-13558
kalliopiy
2002-07-15 17:46
2002.08.05
Нелады с сохранением информации





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский