[Dhoine313]

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

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

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

Код:

DoubleBuffered := True;

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

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

[Dhoine313]

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

Код:

DoubleBuffered := True;

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

[Dhoine313]

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

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

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

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

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

[Dhoine313]

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

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

Сам эффект:

Код:

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;