Графика в Delphi, Работа с Canvas. |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Графика в Delphi, Работа с Canvas. |
dron4ik |
17.10.2010 10:41
Сообщение
#1
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
Всем привет. Имеется следующая процедура...она полностью рабочая, но хочется ее изменить...в данный момент процедура выводит квадратики...а хотелось бы чтобы она выводила другую фигуру..или вместо фигуры отображалась маленькая картинка..
procedure TForm02.OnDraw(var Mes: TMessage); var |
TarasBer |
18.10.2010 9:11
Сообщение
#2
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
> или вместо фигуры отображалась маленькая картинка..
var B: TBitmap; ... // в инициализации где-то, дёргать винт на каждую перерисовку не надо B := TBitmap.Create; B.LoadFromFile('kartinka.bmp'); ... // вывод картинки Canvas.Draw(round(Scale*x), round(Scale*y), B); -------------------- |
dron4ik |
18.10.2010 10:19
Сообщение
#3
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
Спасибо)) что - то подобное я сделал))А что еще можно изменить в этой процедуре?
|
мисс_граффити |
18.10.2010 11:03
Сообщение
#4
|
просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
dron4ik, изменить можно что угодно
ты определись, что хочешь получить -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
dron4ik |
18.10.2010 11:50
Сообщение
#5
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
Менять точно не буду щас ничего.Проблемка возникла чуть-чуть иная..могу обьяснить на скрине.Кстате как скрин вставить сюда?)))
|
TarasBer |
18.10.2010 12:04
Сообщение
#6
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Через расширенный режим.
-------------------- |
dron4ik |
18.10.2010 12:30
Сообщение
#7
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
Вот скрин.
Добавлено через 1 мин. Где находиться красные штрихи, туда почему-то процесс не попадает...будто PaintBox имеет больше размеры, чем размеры области где происходит прорисовка. Эскизы прикрепленных изображений |
TarasBer |
18.10.2010 13:05
Сообщение
#8
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Ну я вижу, что попадают 9 штук из 10.
У тебя нумерации с 1 нигде нет? -------------------- |
volvo |
18.10.2010 13:09
Сообщение
#9
|
Гость |
Цитата будто PaintBox имеет больше размеры, чем размеры области где происходит прорисовка. Показывай Example02.pas полностью.Цитата что - то подобное я сделал - это очень хорошо, конечно, но тогда единственный ответ, который напрашивается - это "значит, что-то сделал неправильно". Ибо изначальный Example02 из Gala (точно так же, как и измененный, как в первом посте) заполняют всю область PaintBox-а:Откуда вывод: проблема в твоих исправлениях... Телепаты - в отпуске. |
dron4ik |
18.10.2010 13:09
Сообщение
#10
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
Я скорее всего не правильно выразился...имел ввиду...где у нас красные штрихи туда процессы не попадают...хотя закрашиваться и там должно где эти самые штрихи.
Добавлено через 3 мин. unit Example02; Добавлено через 3 мин. Volvo, прав! Нужно чтобы закрашивалась вся область PaintBoxa. Добавлено через 6 мин. Пробовал менять это: const Но оказалась, что меняется ширина или высота. |
volvo |
18.10.2010 13:34
Сообщение
#11
|
Гость |
И опять непонятно, что не так... Все закрашивается:
Эскизы прикрепленных изображений |
dron4ik |
18.10.2010 13:39
Сообщение
#12
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
Странно.....
Добавлено через 5 мин. может это изза картинки которую я загрузил? |
мисс_граффити |
18.10.2010 14:16
Сообщение
#13
|
просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
размер у картинки такой же, как у "родного" прямоугольничка?
-------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
dron4ik |
18.10.2010 14:21
Сообщение
#14
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
метод который я использую он вроде сам "подгоняет " под нужный размер...но заметил что прямоугольники стали больше по сравнению с оригиналом.
|
volvo |
18.10.2010 14:47
Сообщение
#15
|
Гость |
А можно присоединить сюда ту картинку, с которой ты работаешь? Я попробовал несколько штук - везде результаты одинаковые, вся поверхность заполняется. Какого размера твое изображение вообще?
Добавлено через 7 мин. Так. Стоп. Вопрос отменяется, я скопировал твой код один в один - теперь действительно не заполняются крайние снизу и справа ряды. Когда я добавлял к оригинальному коду работу с битмапом - все было прекрасно. Сейчас посмотрю, в чем разница. |
volvo |
18.10.2010 15:20
Сообщение
#16
|
Гость |
Ну, чего и следовало ожидать. Ты что в TProcess02.Execute творишь? Было же нормальное поведение, зачем понадобилось на каждом шаге бегать в случайном направлении? Чтобы усложнить доступ к каким-то клеткам? Это первое. Второе:
Цитата if (x <= Low(TX_02)) or (x >= High(TX_02)) then В общем, ты сначала расскажи, чего ты хочешь добиться такими магическими изменениями в Execute, а потом посмотрим, как это лучше исправить. |
dron4ik |
18.10.2010 17:03
Сообщение
#17
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
В принципе может лучше взять процедуру Execute с оригинала GALA.
Добавлено через 5 мин. взял с оригинала...не сработало вышла ошибка.... Добавлено через 4 мин. в общем процедуру Execute такой сделал--теперь PaintBox закрашивается вся область. procedure TProcess02.Execute; Добавлено через 2 мин. Но двигаются щас они...как-то одинаково симметрично...и однообразно...что то не то(( |
volvo |
18.10.2010 17:18
Сообщение
#18
|
Гость |
Цитата взял с оригинала...не сработало вышла ошибка.... Естественно, вызов TProcess02.Create должен быть соответствующим (надо добавить еще один параметр). Это единственное, что надо изменить.Добавлено через 2 мин. Цитата Но двигаются щас они...как-то одинаково симметрично...и однообразно... Повторяю вопрос - чего ты хочешь получить? Ты ж молчишь, откуда я знаю, что для тебя НЕ симметрично и НЕ однообразно? Значит, пока были не картинки - все было нормально, а как только поменял на изображения - не то? Или все-таки тебе надо чего-то другое, свое, а разработчики Gala тебе не это предоставили? Может, они тоже не телепаты? |
dron4ik |
18.10.2010 17:22
Сообщение
#19
|
Бывалый Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация: 0 |
когда не было картинок...движение процессов было хаотичное...а когда я поменял щас процедуру Execute на оригинал...движение стало предсказуемо...
|
volvo |
18.10.2010 17:36
Сообщение
#20
|
Гость |
Цитата когда не было картинок...движение процессов было хаотичное...а когда я поменял щас процедуру Execute на оригинал...движение стало предсказуемо... Неправда. Точно такое же движение и осталось. Никакой хаотичностью и не пахло, направления движения были точно такие же, просто скорость была разная. Ты же в конструкторе процесса сбросил всем скорость на 80, теперь сам жалуешься. |
Текстовая версия | 21.05.2024 5:49 |