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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2010, 07:07   #1
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
Восклицание Image1 -> Edit. Возможно ли?

Собственно вопрос в названии темы. Возможно ли поместить выделенную область изображения в Image1-e в Edit1?? Возможно ли такое? Если да, то как? Например, есть картинка в Image1. На ней выделена некоторая область. Вот нужно эту выделенную область поместить в Edit.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 21.05.2010, 10:10   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var ECanvas: TControlCanvas;
begin

ECanvas:=TControlCanvas.Create;
ECanvas.Control:=Edit1;
ECanvas.Rectangle(3,3,10,10);//для примера
ECanvas.Free;
end;
А для вас нужен метод ECanvas.CopyRect()
SERG1980 вне форума Ответить с цитированием
Старый 21.05.2010, 10:24   #3
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

SERG1980, а вы не могли выложить скрин как это будет выглядеть после нажатия на кнопку? Я просто на работе и тут нет Delphi у меня, вдруг какой вопрос появится еще
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 21.05.2010, 10:38   #4
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var ECanvas: TControlCanvas;
    B:TBitmap;
begin
B:=TBitmap.Create;
B.LoadFromFile('d:\help.bmp');
ECanvas:=TControlCanvas.Create;
ECanvas.Control:=Edit1;
Ecanvas.Pen.Color:=clred;
Ecanvas.Brush.Color:=clBlue;
ECanvas.Rectangle(1,1,40,16);//для примера
ECanvas.Draw(42,1,B);  //отрисовка битмапа
ECanvas.Free;
B.Free;
end;
Изображения
Тип файла: jpg Безымянный.JPG (10.8 Кб, 64 просмотров)
SERG1980 вне форума Ответить с цитированием
Старый 21.05.2010, 10:50   #5
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Спасибо . А если к примеру на изображении выделена область с цифрами, возможно ли их как-то занести в Edit так, чтобы с ними потом можно было работать как если бы они были введены в ручную в этот Edit?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 21.05.2010, 10:52   #6
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

только распознать.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 21.05.2010, 10:56   #7
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Это вряд ли, нужно распознать их для начала
SERG1980 вне форума Ответить с цитированием
Старый 21.05.2010, 11:10   #8
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

А как такой вариант?

Берем область изображения, на которой цифры, выделяем каждую цифру в отдельную рамку.

Затем накладываем на выбранную цифру, некий шаблон, в котором имеется форма указанной цифры.

Далее идет сравнение "вписанной" в шаблон цифры. Если % совпадения больше какого-то значения, то это такая-то цифра.

Вот, как-то так. Это пока все идея только. Как это сделать кодом - пока и не знаю
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 21.05.2010, 12:31   #9
делфи_6
 
Регистрация: 21.05.2010
Сообщений: 8
По умолчанию

как из TFont сделать integer??
делфи_6 вне форума Ответить с цитированием
Старый 21.05.2010, 12:38   #10
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

тырк 1 2 3
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Image2 поверх Image1 Djem1991 Общие вопросы Delphi 2 25.06.2009 02:00
Image1.Picture.SaveToFile TaTT DoGG Общие вопросы Delphi 3 03.05.2008 10:43
Перемещение мышки с Image1 на форму Rusl92 Общие вопросы Delphi 1 27.04.2008 22:46
возможно ли выводить данные из полей типа Edit, ComboBox, ... и отчетах Rave ГОСЕАН БД в Delphi 2 05.03.2008 13:28
jpg в image1 программно Лёка Мультимедиа в Delphi 3 12.01.2008 00:16