[Dhoine313]

Здравствуйте, доделываю проект на диплом (осталось 2 дня), и столкнулся с рядом проблем:
1. как убрать мерцание изображений при движении курсора?
2. как сделать так что бы SmoothEffects был выключен (что бы при наведении выделялся 1 элемент, а не 3)?
3. как сделать что бы для каждого изображение выводилась отдельная форма

P.S. Заранее спасибо
Исходник:
http://rghost.ru/45801543

[M.A.D.M.A.N.]

Код:

1	DoubleBuffered := True;

[Страдалецъ]

2. Понятия не имею, что у вас за компонент, но обычно есть свойство которое включает/отключает данный эффект.
3. Создавать для каждого изображения новую форму на основе базовой.

[Dhoine313]

Сообщение от M.A.D.M.A.N.

Код:

это не помогает...

[Dhoine313]

Сообщение от Страдалецъ

2. Понятия не имею, что у вас за компонент, но обычно есть свойство которое включает/отключает данный эффект.
3. Создавать для каждого изображения новую форму на основе базовой.

за 3 пункт, спасибо... ну не могу я его оключить навсегда

[Страдалецъ]

Что за компонент-то используете?

[Dhoine313]

Сообщение от Страдалецъ

Что за компонент-то используете?

Сам эффект:

Код:

1 2 3 4 5 6 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;

и процедура

Код:

1 2 3 4 5 6 7

procedure TFormMcMainForm.CheckBox4Click(Sender: TObject); begin   if CheckBox4.Checked then     McSampleProject1.Options := McSampleProject1.Options + [loSmoothEffects]   else     McSampleProject1.Options := McSampleProject1.Options - [loSmoothEffects]; end;