Графический редактор - zoom(лупа), Delphi - Помощь студентам

vitalatron · 03.05.2009, 19:28

За графику взялся первый раз и до всего додумываться либо самому приходится, либо в интернете искать.
Значит все инструменты кроме многоугольника, выделения и лупы у меня уже готовы, времени осталось 12 дней + успеть пояснительную записку написать.
Как сделать лупу с возможностью отображения сетки и рисования в увеличенном виде? Рисую на TPaintBox, слоёв нет. Режимы увеличения: х1, х2, х4, х8 и х16.

MalCer · 03.05.2009, 19:52

Посмотри тут: Тут или ещё
или в гугле Гугл
Кстати, а здесь смотрел: ...\Delphi7\Demos\Doc\Graphex? Там хоть и примитивный редактор, но все же

spamer · 03.05.2009, 19:53

Вот держи похожий исходник

vitalatron · 03.05.2009, 20:35

Цитата:

Сообщение от MalCer

Посмотри тут: Тут или ещё
или в гугле Гугл
Кстати, а здесь смотрел: ...\Delphi7\Demos\Doc\Graphex? Там хоть и примитивный редактор, но все же

Угу, первые две ссылки встречал на форумах неоднократно. Да и по твоему запросу в гугле каждый второй результат поиска посещённый.
И в примере делфи смотрел. Это всё мне помогло уже при создании инструментов рисования, но о зуме там ни слова

spamer, угу, и это у меня есть) но и это не то. Если этим способом делать то один пиксель просто рисуется на большом участке, а размер пикселя неизменен, см. на нарисованный крестик посередине этого увилечителя. Вот еслибы на TImage то там установить Stretch в true и вроди всё.. а в TPaintBox не покатит

spamer · 03.05.2009, 22:44

Тогда используй TImage.

vitalatron · 04.05.2009, 02:02

TImage предназначен для отображения изображения а не для редактирования его, это считай то же что на канве формы или TstringGrida делать. Извращение

Ведь должен же быть выход. В MS Paint уж врядли так мудрили.

vitalatron · 04.05.2009, 13:40

Нет, с TImage не выйдет. Я думал к примеру:

Код:

Image1.Width:=100;
Image1.Height:=100;
Image1.Stretch:=true;
Image1.Picture.Width:=10;
Image1.Picture.Height:=10;

и рисовать на этом, а поверх вывести прозрачную сетку другим компонентом, но нет: Image1.Picture.Width оказуется read-only

У кого какие идеи?

SERG1980 · 04.05.2009, 14:16

Наверно лучше на имидже рисовать
А если попробовать через StretchDraw

vitalatron · 04.05.2009, 15:08

SERG1980, спасибо! я не знал о StretchDraw. Немного поэкспериментировав я сделал зум, уже да, можно и прокручивать картинку в увеличенном виде и все кратности зума меняются. Осталось только придумать как рисовать в увеличенном режиме и как сетку наложить. И я буду пока думать и косяки исправлять.

Dryg2009 · 18.11.2009, 15:32

Цитата:

Сообщение от spamer

Вот держи похожий исходник

Вирус в delphi!!

03.05.2009, 19:28	#1
vitalatron Пользователь Регистрация: 03.05.2009 Сообщений: 15	Графический редактор - zoom(лупа), Delphi За графику взялся первый раз и до всего додумываться либо самому приходится, либо в интернете искать. Значит все инструменты кроме многоугольника, выделения и лупы у меня уже готовы, времени осталось 12 дней + успеть пояснительную записку написать. Как сделать лупу с возможностью отображения сетки и рисования в увеличенном виде? Рисую на TPaintBox, слоёв нет. Режимы увеличения: х1, х2, х4, х8 и х16.

03.05.2009, 19:52	#2
MalCer Форумчанин Регистрация: 15.07.2008 Сообщений: 615	Посмотри тут: Тут или ещё или в гугле Гугл Кстати, а здесь смотрел: ...\Delphi7\Demos\Doc\Graphex? Там хоть и примитивный редактор, но все же xor eax, eax xchg [eax], eax Последний раз редактировалось MalCer; 03.05.2009 в 20:00.

03.05.2009, 22:44	#5
spamer Software Developer Старожил Регистрация: 19.12.2008 Сообщений: 2,070	Тогда используй TImage. Будь проще и люди к тебе потянутся

04.05.2009, 13:40	#7
vitalatron Пользователь Регистрация: 03.05.2009 Сообщений: 15	Нет, с TImage не выйдет. Я думал к примеру: Код: `Image1.Width:=100; Image1.Height:=100; Image1.Stretch:=true; Image1.Picture.Width:=10; Image1.Picture.Height:=10;` и рисовать на этом, а поверх вывести прозрачную сетку другим компонентом, но нет: Image1.Picture.Width оказуется read-only У кого какие идеи?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как писать графический редактор в Delphi 7	Vladya	Мультимедиа в Delphi	12	02.04.2009 18:51
Графический редактор	Alex_Bond	Общие вопросы .NET	1	14.05.2008 08:55
графический редактор на Delphi	gulfiyush	Помощь студентам	3	05.12.2007 13:07
Графический редактор	UnD)eaD)Snake	Софт	10	23.07.2007 07:34

04.05.2009, 02:02	#6
vitalatron Пользователь Регистрация: 03.05.2009 Сообщений: 15	TImage предназначен для отображения изображения а не для редактирования его, это считай то же что на канве формы или TstringGrida делать. Извращение Ведь должен же быть выход. В MS Paint уж врядли так мудрили.

04.05.2009, 14:16	#8
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Наверно лучше на имидже рисовать А если попробовать через StretchDraw

04.05.2009, 15:08	#9
vitalatron Пользователь Регистрация: 03.05.2009 Сообщений: 15	SERG1980, спасибо! я не знал о StretchDraw. Немного поэкспериментировав я сделал зум, уже да, можно и прокручивать картинку в увеличенном виде и все кратности зума меняются. Осталось только придумать как рисовать в увеличенном режиме и как сетку наложить. И я буду пока думать и косяки исправлять.