Загрузка в Image часть изображения

← →
Арксант (2011-08-30 17:57) [0]

как загрузить в Image не всю картинку а только ее чать? например картинка 100 на 100 пикселей, мне надо чтобы в Image загрузилась (или только отображалась) часть рисунка по х - с 10 по 50 пиксель и по у - с 10 по 50 пиксель.

← →
Игорь Шевченко © (2011-08-30 18:29) [1]

TCanvas.CopyRect

← →
oldman © (2011-08-30 19:16) [2]

> (или только отображалась)

У TImage есть соответсвующие свойства, как то высота, ширина и т.д.

← →
Арксант (2011-08-31 15:15) [3]

Можете написать пример копирования из Image1 в Image2? если Image1 100 на 100 пикселей, а нужно скопировать 50 на 50 пикселей (правую нижнюю часть)

Я нашел примеры этой функции, но похоже не могу разобраться какое значение за что отвечает, потому как получается ерунда на экране

← →
Юрий Зотов © (2011-08-31 17:05) [4]

> Арксант (31.08.11 15:15) [3]

with Image2 do
begin
Width := 50;
Height := 50;
CopyRect(Canvas.ClipRect, Image1.Canvas, Rect(50, 50, 100, 100));
end;

← →
Юрий Зотов © (2011-08-31 17:08) [5]

> Арксант (31.08.11 15:15) [3]
> Я нашел примеры этой функции, но похоже не могу разобраться
> какое значение за что отвечает, потому как получается ерунда
> на экране

На поиски Вы потратили больше суток. А если бы открыли справку по тем темам, что Вам уже были подсказаны в [1] и [2], то потратили бы 5 минут на всю задачу.

Делайте выводы.

← →
Арксант (2011-08-31 17:41) [6]

к сожалению Ваш код не работает, выдает "Constant object cannot be passed as var parameter"

← →
Игорь Шевченко © (2011-08-31 17:44) [7]

просто беда

← →
Inovet © (2011-08-31 18:19) [8]

> [6] Арксант (31.08.11 17:41)
> к сожалению Ваш код не работает

А это для самостоятельной работы, чтобы не через копипаст заработало, а через голову.

← →
Арксант (2011-08-31 18:57) [9]

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

← →
Юрий Зотов © (2011-08-31 19:16) [10]

> Арксант (31.08.11 17:41) [6]

Canvas.CopyRect(...);
Остальное верно.

← →
oldman © (2011-08-31 19:45) [11]

> Width := 50;
> Height := 50;

Ну это можно и в дезайне выставить...

← →
Игорь Шевченко © (2011-08-31 20:44) [12]

> только я не занимаюсь изучением делфи, мне нужно для одноразовой
> конкретной задачи и на этом все

Не хочешь заплатить одноразово конкретно денег ?

← →
Арксант (2011-09-01 10:18) [13]

> Юрий Зотов © (31.08.11 19:16) [10]
> > Арксант (31.08.11 17:41) [6]Canvas.CopyRect(...);Остальное
> верно.

Спасибо большое, теперь работает

← →
Арксант (2011-09-01 10:18) [14]

> Игорь Шевченко © (31.08.11 20:44) [12]
> > только я не занимаюсь изучением делфи, мне нужно для одноразовой
> > конкретной задачи и на этом всеНе хочешь заплатить одноразово
> конкретно денег ?

Что ж Вы сразу не сказали что Вам денег нужно.
Оставьте номер кошелька, тип валюты и сумму в которую вы оценили свой труд по оказанию помощи в данной теме.

← →
Юрий Зотов © (2011-09-01 11:04) [15]

> Арксант (31.08.11 18:57) [9]
> я не занимаюсь изучением делфи, мне нужно для одноразовой
> конкретной задачи и на этом все

Так ведь никто и не заставляет изучать Delphi, но справку все же можно (и нужно!) было посмотреть? Тем более, что сразу подсказали, что конкретно в ней надо смотреть. И тем более, что это было в Ваших же интересах - сэкономили бы кучу времени.

Поэтому сарказм Ваш в данном случае вряд ли уместен. Здесь в какой-то степени действительно "несут свет в массы", как Вы выразились - но только не тем, кто ждет готовенького и ленится даже элементарно посмотреть справку.

← →
Ega23 © (2011-09-01 11:18) [16]

> Оставьте номер кошелька, тип валюты и сумму в которую вы
> оценили свой труд по оказанию помощи в данной теме.

"Утром деньги, вечером стулья".
Такие темы надо чуть-чуть по-другому создавать:
Задача: как загрузить в Image (дальше многа букаф, детально описывающих ТЗ).
Сроки: столько-то дней (часов, минут, нужное подчеркнуть).
Оплата: столько-то денег, могу перевести туда-то и туда-то.

Ну и публиковать всё это не в "Начинающим", а в потрепаловке.
ИМХО, решение с комментариями и пояснениями Вы бы получили в течении получаса (а чо, на пивко срубить бабла - пуркуа бы и не па?).

← →
Арксант (2011-09-01 12:11) [17]

> "Утром деньги, вечером стулья".Такие темы надо чуть-чуть
> по-другому создавать:Задача: как загрузить в Image (дальше
> многа букаф, детально описывающих ТЗ).Сроки: столько-то
> дней (часов, минут, нужное подчеркнуть).Оплата: столько-
> то денег, могу перевести туда-то и туда-то.Ну и публиковать
> всё это не в "Начинающим", а в потрепаловке.ИМХО, решение
> с комментариями и пояснениями Вы бы получили в течении получаса
> (а чо, на пивко срубить бабла - пуркуа бы и не па?).

в том то и дело что я не думал что это такая тема, но мне тут товарищ как бы намекает...

← →
Арксант (2011-09-01 12:22) [18]

> Так ведь никто и не заставляет изучать Delphi, но справку
> все же можно (и нужно!) было посмотреть? Тем более, что
> сразу подсказали, что конкретно в ней надо смотреть. И тем
> более, что это было в Ваших же интересах - сэкономили бы
> кучу времени.Поэтому сарказм Ваш в данном случае вряд ли
> уместен. Здесь в какой-то степени действительно "несут свет
> в массы", как Вы выразились - но только не тем, кто ждет
> готовенького и ленится даже элементарно посмотреть справку.
>

Я смотрел справку, но из того что там было написано я не мог понять как это работает и какие параметры за что конкретно отвечают. Это уже сейчас, после того как Вы дали мне правильный рабочий пример, я смотря в справку вижу и понимаю все и могу подогнать код под нужный мне алгоритм.

← →
Ega23 © (2011-09-01 12:23) [19]

> я не думал что это такая тема

Рекомендую ознакомиться на будущее: http://segfault.kiev.ua/smart-questions-ru.html#rtfm
Ну и вообще весь текст, с самого начала. Вам он будет очень полезным.

← →
Арксант (2011-09-01 12:36) [20]

> Рекомендую ознакомиться на будущее: http://segfault.kiev.
> ua/smart-questions-ru.html#rtfmНу и вообще весь текст, с
> самого начала. Вам он будет очень полезным.

Он будет полезен любому человеку. А еще полезней вставить этот текст в этот форум, чтобы прежде чем человек мог создать тему ему надо было прочитать 33 листа текста, а только потом спросить как перетащить на форму кнопку и сколько ему это будет стоить. Но спросить правильно чтобы никого не обидеть.

← →
Ega23 © (2011-09-01 12:56) [21]

> А еще полезней вставить этот текст в этот форум

http://delphimaster.ru/forums.shtml
"Как правильно задавать вопросы".

> Но спросить правильно чтобы никого не обидеть.

Вы не поняли. Спрашивать нужно правильно не для того, чтобы никого не обидеть. Спрашивать нужно правильно для того, чтобы получить быстрый, правильный и грамотный ответ на свой вопрос.
Вам никто ничего не должен. Ни на этом форуме, ни на каком другом. И поэтому если вы таки хотите получить ответ - заинтересуйте чем-нибудь отвечающих. Интерес может быть разным, от материального, до эстетического удовольствия и морального удовлетворения от помощи коллеге по цеху. Но во втором случае - именно "коллеге", а не халявщику.
Dixi.

← →
Арксант (2011-09-01 13:19) [22]

> Вы не поняли. Спрашивать нужно правильно не для того, чтобы
> никого не обидеть. Спрашивать нужно правильно для того,
> чтобы получить быстрый, правильный и грамотный ответ на
> свой вопрос.Вам никто ничего не должен. Ни на этом форуме,
> ни на каком другом. И поэтому если вы таки хотите получить
> ответ - заинтересуйте чем-нибудь отвечающих. Интерес может
> быть разным, от материального, до эстетического удовольствия
> и морального удовлетворения от помощи коллеге по цеху. Но
> во втором случае - именно "коллеге", а не халявщику.Dixi.
>

Я в своем посте разве что-то требовал? Дальше по тексту намекал что мне кто-то что-то должен? (вдумчиво перечитывает свои сообщения). Вроде бы нет. Если Вам не доставляет удовольствие от того что вы просто поможете чем-то человеку то не значит что этого не будет достаточно кому-то другому. Просто проходите мимо.

Так и представляю себе сценку. На улице к мужчине подходит другой мужчина и просит подсказать тут ли останавливается 30-й троллейбус, на что первый выдает: «если вы таки хотите получить ответ - заинтересуйте чем-нибудь меня. Интерес может быть разным, от материального, до эстетического удовольствия и морального удовлетворения от помощи коллеге по цеху. Но во втором случае - именно "коллеге", а не халявщику.»

← →
Ega23 © (2011-09-01 13:36) [23]

> Так и представляю себе сценку. На улице к мужчине подходит
> другой мужчина и просит подсказать тут ли останавливается
> 30-й троллейбус, на что первый выдает

Так Вам всё и ответили. В первом же посте: TCanvas.CopyRect. Если переложить это на Ваш пример с троллейбусом, то это будет означать примерно: "остановка 30-го троллейбуса находится за углом".

А дальше было:

> Можете написать пример копирования из Image1 в Image2? если ...

Что опять таки в перекладе на Ваш пример означает: "А проводите меня до этой остановки, а то я тут вот что-то не могу сам".
И вот здесь уже как раз и начинается "заинтересовать". С какого перепоя я должен кого-то за ручку вести на эту остановку? У меня куча своих дел.
Не, вполне может быть, что я в отличном настроении, а Вы - молодая мамаша с коляской с дитём. И мне будет просто приятно отвести Вас туда, помочь донести сумки и даже подождать троллейбуса и помочь загрузить в него коляску.
Но, согласитесь, такого "отвечающего" вы будете ждать гораздо дольше, чем просто отвечающего фразой "вон там за углом".

Вот буквально рядом параллельная ветка: http://delphimaster.net/view/2-1314819288/
Не догадываетесь, почему там за 14 часов (с учётом ночи) столько ответов?

← →
Anatoly Podgoretsky © (2011-09-01 13:50) [24]

> Арксант (31.08.2011 17:41:06) [6]

Ну замени var параметром, делов то, а то ты слишком многого хочешь от
примеров.

← →
Anatoly Podgoretsky © (2011-09-01 13:52) [25]

> Арксант (01.09.11 12:36) [20]

Главное правильно челобитную царю подасть.

← →
Арксант (2011-09-01 13:55) [26]

> Ega23 ©

Правильно, я спросил вначале как забить гвоздь.

Мне подсказали, что нужно пользоваться молотком. Для Вас этот инструмент обычный. Я же вижу его в первый раз и самостоятельно не смог разобраться с какого конца его держать и каким бить по гвоздю (я читал справку, находил примеры но я не мог понять главного, какой параметр за что отвечает).

Потом я прошу показать как пользоваться молотком. Не забить за меня гвозди в доску, а просто показать как его держать и каким концом бить.

Неужели Вы думаете что мне для моей программы надо было именно скопировать из image1 в image2 область в 50 пикселей и я Вас раскрутил на халявный код.

← →
Ega23 © (2011-09-01 14:16) [27]

> Арксант (01.09.11 13:55) [26]

Интерес к ветке пропал после

> благородно, несем в темные массы свет
> только я не занимаюсь изучением делфи, мне нужно для одноразовой
> конкретной задачи и на этом все

Нафига надо распинаться перед человеком, объяснять ему как правильно держать молоток, с каким усилием и под каким углом надо бить по гвоздю, если ему эти твои знания нужны как зайцу стоп-сигнал?
У меня вот машинка стиральная дома барахлит. Но я не специалист по ремонту стиральных машинок и, самое главное, мне нафиг не нужно постигать азы ремонта. Мне нужно рещение "одноразовой конкретной задачи и на этом всё". И что я делаю? Правильно, я вызываю специально обученного и сертифицированного человека, который делает за меня эту разовую работу. И я плачу ему деньги.

← →
Арксант (2011-09-01 14:40) [28]

> Ega23 ©

И что, реально сильно надо распинаться чтобы написать это:

with Image2 do
begin
Canvas.CopyRect(Canvas.ClipRect, Image1.Canvas, Rect(50, 50, 100, 100));
end;

Впрочем ладно. Я послушаю Ваш совет и вследующий раз обращусь к специалисту. Подскажите, сколько такой код будет стоить лично у вас?

> Арксант (01.09.2011 14:40:28) [28]

Лутц по частям не продается

← →
Арксант (2011-09-01 14:49) [30]

> Anatoly Podgoretsky

Ну мне настойчиво советуют брать именно там и именно в такой расфасовке. Вот, может еще по цене сориентируют.

> И что, реально сильно надо распинаться чтобы написать это:

Юра Зотов именно это и написал. Поскольку писал прямо в редакторе браузера, забыл вставить Canvas.

> Подскажите, сколько такой код будет стоить лично у вас?

Такой код - ничего не будет стоить. Будет настроение - напишу просто так. Не будет - тупо проигнорирую.

> Арксант (01.09.2011 14:49:30) [30]

Можешь брать часть, но все равно цена 500 евро

← →
Арксант (2011-09-01 15:15) [33]

> Ega23

> Юра Зотов именно это и написал. Поскольку писал прямо в
> редакторе браузера, забыл вставить Canvas.

Юре Зотову я сказал большое человеческое спасибо. Он мне помог. И заметьте, когда он дал мне код с небольшой ошибкой, я не наезжал, не верещал, а написал что у меня выдал делфи при выполнении кода после чего он скинул правку и я получил рабочий пример с известными мне параметрами и известным мне результатом. На основании того примера я понял какой параметр за что отвечает и соответственно что и куда нужно вносить чтобы получить желаемый результат от моей программы.

> Такой код - ничего не будет стоить. Будет настроение - напишу
> просто так. Не будет - тупо проигнорирую.

Раз такой код ничего не будет стоить то о чем мы сейчас говорим? Было настроение - подсказали, нету настроения - не подсказали. У Юры Зотова настроение было и он подсказал. Завтра у него настроения не будет, а будет у Вас и подскажите Вы. Но это вовсе не значит что Юре Зотову нужно будет начинать дискуссию на тему кто чего кому должен. Кто правее кто левее.

Я не хочу ни в коем случае приуменьшить значимость Ваших знаний и умений в программировании. Более того я Вас уважаю как специалистов в своем деле. Но когда спрашиваешь элементарную вещь в 1 строку "кода", а тебя отправляют заканчивать 5-ти летние курсы по программированию либо предлагают оплатить услуги по "оказанию помощи" на форуме в разделе "для новичков", то это вызывает некоторое недоумение.

> Арксант (01.09.11 15:15) [33]

Верный ответ был дан в сообщении 1. Всё остальное - от вашего нежелания искать информацию. Форум - не интерактивный учебник и не умный составитель поисковых запросов.

← →
Лукошко (2011-09-01 15:59) [35]

Изо дня в день одно и то же

> то это вызывает некоторое недоумение

Расскажу одну историю.
Один мой хороший товарищ уехал в Лондон. Он сам толковый веб-дизайнер, но ни разу не верстальщик и не программист на php. Но взялся за халуру, где нужно было сделать всё, включая код на php. И вот от него ко мне посыпался шквал вопросов: как сделать это, как сделать то. Мой личный опыт работы с php - ровно 4 дня. В силу своих возможностей как-то отвечал. Но в какой-то момент, когда был задан очередной простейший вопрос, я в сердцах отписал что-то типа: "Диман, ну ёпрст, ну загляни ты в хелп, там ВСЁ досконально расписано". На что получил потрясающий ответ: "Мне некогда всякую фигню читать, мне деньги надо зарабатывать".
Естественно, после такого опуса, я больше не ответил ни на один его технический вопрос, ибо коли он "зарабатывает бабло", то я ему оказываю "консультационные услуги". А денег платить за них его жаба душит.
Такие дела.

← →
Арксант (2011-09-01 16:18) [37]

> Омлет © (01.09.11 15:36) [34]
> > Арксант (01.09.11 15:15) [33]Верный ответ был дан в
> сообщении 1. Всё остальное - от вашего нежелания искать
> информацию. Форум - не интерактивный учебник и не умный
> составитель поисковых запросов.

почитайте сообщение № 26

← →
Арксант (2011-09-01 16:19) [38]

> Лукошко (01.09.11 15:59) [35]
> Изо дня в день одно и то же

Совсем Вы замахались с этим форумом, заработались... попросите у админа отпуск.

← →
Арксант (2011-09-01 16:28) [39]

> Расскажу одну историю.Один мой хороший товарищ уехал в Лондон.
> Он сам толковый веб-дизайнер, но ни разу не верстальщик
> и не программист на php. Но взялся за халуру, где нужно
> было сделать всё, включая код на php. И вот от него ко мне
> посыпался шквал вопросов: как сделать это, как сделать то.
> Мой личный опыт работы с php - ровно 4 дня. В силу своих
> возможностей как-то отвечал. Но в какой-то момент, когда
> был задан очередной простейший вопрос, я в сердцах отписал
> что-то типа: "Диман, ну ёпрст, ну загляни ты в хелп, там
> ВСЁ досконально расписано". На что получил потрясающий ответ:
> "Мне некогда всякую фигню читать, мне деньги надо зарабатывать".
> Естественно, после такого опуса, я больше не ответил ни
> на один его технический вопрос, ибо коли он "зарабатывает
> бабло", то я ему оказываю "консультационные услуги". А денег
> платить за них его жаба душит.Такие дела.

Да, и такое бывает. Потому я и не задалбавал какого-то одного конкретного человека, а написал на форум. Авось у кого-то будет настроение и свободная минутка.

Программа была почти закончена и не хватало только мелочи. Надо было скопировать 4-ре разных части экрана и отобразить во всплывающей форме. Сейчас уже все работает как надо.

На сим хочу откланяться и прошу извинить если отобрал у кого-то много времени. Но если кто-то все же считает что оказал помощь которая стоит денег - оставляйте номер Вашего кошелька и сумму в которую вы оценили свои услуги.

> Арксант (01.09.2011 16:19:38) [38]

Зачем, нам проще тебя забанить. И бесплатно

Загрузка в Image часть изображения Найти похожие ветки