21.02.2014, 13:27
|
Прохожий
|
|
Регистрация: 24.12.2013
Сообщения: 38
Версия Delphi: Delphi 7
Репутация: 10
|
|
Не ищет цвет на форме
В чем проблема?
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
scale=50;
var
I,J:integer;
begin
for i:=0 to Form1.Width div scale do
for j:=0 to Form1.Height div scale do
begin
if getpixel(Form1.Handle,i*scale,j*scale)=255 then
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, i*scale * (65535 div Form1.Width),j*scale* (65535 div Form1.Height), 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, i*scale * (65535 div Form1.Width),j*scale* (65535 div Form1.Height), 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, i*scale * (65535 div Form1.Width),j*scale* (65535 div Form1.Height), 0, 0);
exit;
end;
caption:=inttostr(i*scale)+' '+inttostr(j*scale);
end;
end;
|