Вниз
Скачать: CL | DM;

TScrollBox   Найти похожие ветки 

 
fog   (2006-08-06 00:27) [0]

Приспособил TImage для рисования графиков. Но есть одна проблема - как заставить TScrollBox "скролить" график, вызывая мой метод TImage.Paint?


 
GeLLeR ©   (2006-08-06 00:32) [1]

В процедуре ScrollChange вызывать процедуру TImage.Paint ?

Может я вопрос нетак понял?????


 
KilkennyCat ©   (2006-08-06 01:37) [2]

А разве скроллбокс не автоматом осуществяет прорисовку компонет непоместившихся? Ну или вариант [1].

Но ваще-то, не могу представить себе ни одного логического обоснования такого метода скроллинга непоместившегося изображения, а также использования TImage для рисования.
Есть ощущение, что автор работает методом "тыка".


 
fog   (2006-08-06 04:22) [3]

>GeLLeR
> В процедуре ScrollChange вызывать процедуру TImage.Paint ?

В ScrollBox"e и ниже нет ничего подобного.

>KilkennyCat
> А разве скроллбокс не автоматом осуществяет прорисовку компонет непоместившихся?

Осуществляет, но у меня вместо скроллинга одно мерцание и рисует одно и тоже. И для экономии времени TImage.Paint рисует только в видимую область, следовательно надо знать ScrollBar.ScrollPos.

>KilkennyCat
>Но ваще-то, не могу представить себе ни одного логического обоснования такого метода скроллинга непоместившегося изображения, а также использования TImage для рисования.
Есть ощущение, что автор работает методом "тыка".

Не "тыка", а по-быстрому. Лет 5 назад, реализовал примерно такую же задачу через TWinControl. Но он "ушел" вместе в "винтом" - RIP.

Вопрос же задал потому, что нашел это:
http://delphiworld.narod.ru/base/tscrollbox_scroll_event.html

Нельзя ли как-нибудь попроще?


 
KilkennyCat ©   (2006-08-06 10:36) [4]

Ужос.

Берем TBitMap. Рисуем все на нем. Берем два скроллбара и кидаем их по сторонам TPaintBox. В событиях изменения позиции скроллбаров пишем переход на отрисовку. В отрисовке пишем что-нить вроде BitBlt с TBitmap на TPaintBox, с координатами x и y  привязанными к позиции скроллбара...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
15-1154090866
Der Nechk@ssoff
2006-07-28 16:47
2006.08.27
С праздником!


15-1154461397
AntiUser
2006-08-01 23:43
2006.08.27
В Израиле обнаружен изолированный "Затерянный Мир"


2-1155140817
Yusuf
2006-08-09 20:26
2006.08.27
glFrustum


11-1131614466
-=Mike=-
2005-11-10 12:21
2006.08.27
Не получается послать post-сообщение окну


2-1154601640
alles
2006-08-03 14:40
2006.08.27
Подождать окончяние THread-a




   Наверх