|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Мерцание изображений
Здравствуйте, доделываю проект на диплом (осталось 2 дня), и столкнулся с рядом проблем:
1. как убрать мерцание изображений при движении курсора? 2. как сделать так что бы SmoothEffects был выключен (что бы при наведении выделялся 1 элемент, а не 3)? 3. как сделать что бы для каждого изображение выводилась отдельная форма P.S. Заранее спасибо Исходник: http://rghost.ru/45801543 |
#2
|
||||
|
||||
Код:
DoubleBuffered := True; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
2. Понятия не имею, что у вас за компонент, но обычно есть свойство которое включает/отключает данный эффект.
3. Создавать для каждого изображения новую форму на основе базовой. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Dhoine313 (06.05.2013)
|
#4
|
|||
|
|||
Цитата:
|
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
Что за компонент-то используете?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Dhoine313 (06.05.2013)
|
#7
|
|||
|
|||
Цитата:
Код:
if loSmoothEffects in Options then Info.SizeFactor := 1 - (Info.Distance - NearRadius) / (FarRadius - NearRadius) else if Info.Distance <= SlotRadius then Info.SizeFactor := 1 else Info.SizeFactor := 0; и процедура Код:
procedure TFormMcMainForm.CheckBox4Click(Sender: TObject); begin if CheckBox4.Checked then McSampleProject1.Options := McSampleProject1.Options + [loSmoothEffects] else McSampleProject1.Options := McSampleProject1.Options - [loSmoothEffects]; end; |