Вниз
Скачать: CL | DM;

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

 
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 вся ветка

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



Память: 0.45 MB
Время: -0.992 c
1-13595
Schema
2002-07-24 16:21
2002.08.05
перевод строки


4-13866
Леонид
2002-05-02 20:44
2002.08.05
перехват сообщения WM_SPOOLERSTATUS


1-13652
DKalinin
2002-07-23 13:05
2002.08.05
Подскажите, пожалуйста, как получить список файлов в директории.


3-13562
Radimir
2002-07-16 09:19
2002.08.05
не работает Insert


1-13704
ask
2002-07-24 11:32
2002.08.05
string -> char




   Наверх