Проблема с visible при использовании AlphaControls

[mr_Nameless]

В общем, дело вот в чём:

Установил недавно AlphaControls, использовал в двух своих проектах - понравилось. Но возникла проблема с третим:
На форме несколько картинок. Нужно, чтобы некоторые из них при нажатии на прозрачный Лэйбл появлялись и исчезали в определённой последовательности (с помощью Таймера). Всё это получилось - тут не обязательно иметь мегамозг.

Но перестало работать, когда я подключил АльфаКонтролс: изображения не появлялись! Форма обновлялась только если я брался мышкой за заголовок
Создав другой проект для анализа ошибки я обнаружил, что:
- проблема с Визиблом у Имейджа отсутствует, если у СкинПровайдера поменять значение свойства DrawNonClientArea на true (т.е. Имейдж обновлялся);
- проблема с Визиблом у Имейджа отсутствует, если вместо Лэйбла использовать обычную Кнопку;
- проблема с Визиблом у Имейджа не исчезает если не использовать таймер;
- всё решается добавлением строчки Form1.Repaint в шапку Таймера;

Тем не менее, хотел бы услахать мнение спецов по этому поводу: возможно есть какое-то свойство, которое позволяет не использовать Form1.Repaint.

Прилагаю кусок своего проекта с ошибкой и моей формой для анализа ошибки.

Внимание!: чтобы просмотреть исходники нужно иметь АльфаСкинс!

Просьба писать доступным языком, т.к. я в Делфи далеко не профи.

[MyLastHit]

если здесь не помогут-то имеет смысл спросить здесь:
http://www.alphaskins.com/forum/index.php?showforum=5

АльфаСкинс это вообще какое-то недоразумение... 100500 багов и ошибок самых разных. Говорят, что WPF под Delphi есть... Нужно будеь опробовать.

[mr_Nameless]

благодарю +1

[Человек_Борща]

О господи! Зачем такие извращения? Ведь есть оператоh NOT аналоично ELSE в конструкции If..then..
И прекратно применимо к булевым типам переменных. Меньше кода, и плюс опыт=)

procedure TForm1.Label3Click(Sender: TObject);
begin
  if image3.Visible then
    image3.Visible := false
  else
    image3.Visible := true;
end;

Можно проще так:

procedure TForm1.Label3Click(Sender: TObject);
begin
 image3.Visible:= not image3.Visible;
end;

Проблема в том что Timage становится поверх Tlabel на несколько ms, по этому следует применить выше приведенный код и для Timage.OnKlick=)


Далее вопрос: зачем же вам AC если вы не используете его? Нигде нет ни компонента ни чего-либо ещё. Только SkinManager да SkinProvider на форме.

P.S. это самая большая проблема вашего кода=)

[mr_Nameless]

за НОТ сенкс, не знал!

Далее вопрос: зачем же вам AC если вы не используете его? Нигде нет ни компонента ни чего-либо ещё. Только SkinManager да SkinProvider на форме.

P.S. это самая большая проблема вашего кода=)

я же написал ,что это всего лишь левая форма для небольшого тестирования Визибла и ещё одна форма, взятая из моего проекта (одна из многих), которая к тому же в скором времени будет выглядеть совсем по-другому)

кстати спасибо за ваши ответы т.к. это важно: делаю квалифу, которую мне сдавать через 8 дней!

/////(мать твою 8 дней! кадаже я всё успею!?! )