Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.03.2012, 18:46   #1
Bondul
Пользователь
 
Регистрация: 28.12.2011
Сообщений: 39
По умолчанию Вычислить корденат "X"

Требуется ваша подсказка пожалуста помагите разобратся собственно что мне нужна
найти автоматически корденат серого "X" написал ват такой код и дальше всю голову сламал при компеляцые выдаёт вот такую ошибку [Error] Unit.pas[77]: Undeclared identifier: 'X'

Код:
procedure TForm1.Button3Click(Sender: TObject);
var
 _w,_h, i, j: Integer;
begin
 With Image1.Picture.Bitmap.Canvas do
 _w := image1.Picture.Bitmap.Width;
 _h := Image1.Picture.Bitmap.Height;
 for i:= 0 to _w-1 do
 for j:= 0 to _h-1 do
begin
 if Image1.Picture.Bitmap.Canvas.Pixels[i,j] = clSilver and (x>i) and (x<i) then
begin
 ShowMessage('Найдено '+inttostr(i));
 Exit;
 end;
 end;
end;
Если чтото не правельно в коде поправти меня пожалуйста

Вот Собственно картинка по середине с серым кубеком
Изображения
Тип файла: png Master.png (3.9 Кб, 38 просмотров)
Bondul вне форума Ответить с цитированием
Старый 07.03.2012, 18:51   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Код:
procedure TForm1.Button3Click(Sender: TObject);
var
 _w,_h: Integer;
begin
 With Image1.Picture.Bitmap.Canvas do
 _w := image1.Picture.Bitmap.Width;
 _h := Image1.Picture.Bitmap.Height;
 for i:= 0 to _w-1 do
 for j:= 0 to  _h-1 do
begin
 if Image1.Picture.Bitmap.Canvas.Pixels[_w, _h] = clSilver then
begin
 ShowMessage('Найдено x:'+inttostr(_w)+';y:'+inttostr(_h));
 Exit;
 end;
 end;
Кольша вне форума Ответить с цитированием
Старый 07.03.2012, 18:59   #3
Bondul
Пользователь
 
Регистрация: 28.12.2011
Сообщений: 39
По умолчанию

Цитата:
Сообщение от Кольша Посмотреть сообщение
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
 _w,_h: Integer;
begin
 With Image1.Picture.Bitmap.Canvas do
 _w := image1.Picture.Bitmap.Width;
 _h := Image1.Picture.Bitmap.Height;
 for i:= 0 to _w-1 do
 for j:= 0 to  _h-1 do
begin
 if Image1.Picture.Bitmap.Canvas.Pixels[_w, _h] = clSilver then
begin
 ShowMessage('Найдено x:'+inttostr(_w)+';y:'+inttostr(_h));
 Exit;
 end;
 end;
Кольша, Сделал точно токже но при нажатае на кнопку у меня ничего не происходит!
Bondul вне форума Ответить с цитированием
Старый 07.03.2012, 19:11   #4
Bondul
Пользователь
 
Регистрация: 28.12.2011
Сообщений: 39
По умолчанию

А всё сапасибо разобрался нужно было переменные поменять на оборот
Bondul вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчитать количество букв "й", "ы" и "я", содержащихся в заданной строке. VoltZZZ Помощь студентам 2 01.03.2012 23:39
Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п. воваава Помощь студентам 3 01.12.2011 12:50
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04