Хрен знает какая тема..

← →
hatchy © (2003-03-04 12:03) [0]

Как сделать такую ерунду ..чтобы надпись исчезла..т.е не просто visible:=false; а постепенно (растворялась)..
КАк в Icq при загрузке надпись Loading..

← →
SergeN (2003-03-04 12:05) [1]

Постепенно приблизить её цвет к цвету того на чём она лежит, а потом бабахнуть visible:=false

← →
hatchy © (2003-03-04 12:16) [2]

Понятно что приблизить её цвет к цвету того на чём она лежит но как это сделать..??

← →
Ketmar © (2003-03-04 12:19) [3]

свойство там есть такое. color называется. менять его надо.

Satanas Nobiscum! 04-Mar-XXXVIII A.S.

← →
uw © (2003-03-04 12:43) [4]

procedure TfmAboutDlg.laAuthorMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if NOT Assigned(Timer) then Timer := TTimer.Create(Self); Timer.Interval := 500; Timer.OnTimer := OnTimer; Timer.Enabled := True; First := True; laAuthor.Font.Color := clNavy; Red := clNavy AND $ff; Green := (clNavy AND $ff00) SHR 8; Blue := (clNavy AND $ff0000) SHR 16; DelRed := ((clSilver AND $ff) - (clNavy AND $ff)) / 20; DelGreen := (((clSilver AND $ff00) - (clNavy AND $ff00)) SHR 8) / 20; DelBlue := (((clSilver AND $ff0000) - (clNavy AND $ff0000)) SHR 16) / 20; end; procedure TfmAboutDlg.OnTimer(Sender : TObject); begin if First then begin First := False; Timer.Interval := 100; Exit; end; Red := Red + DelRed; Green := Green + DelGreen; Blue := Blue + DelBlue; laAuthor.Font.Color := Round(Red) + (Round(Green) SHL 8) + (Round(Blue) SHL 16); if laAuthor.Font.Color = clSilver then begin Timer.Enabled := False; Timer.Free; Timer := nil; end; end; procedure TfmAboutDlg.FormKeyPress(Sender: TObject; var Key: Char); begin if Key IN ["A", "a", "

← →
hatchy © (2003-03-04 13:11) [5]

Что это такое?

← →
uw © (2003-03-04 13:17) [6]

Хрен знает, как назвать, но работает.

← →
hatchy © (2003-03-04 13:19) [7]

У меня на 5-ой делфи много чё не нравиться...

← →
SergeN (2003-03-04 13:25) [8]

У меня на 22-м году жизни тоже много чё не нравиться... :))

← →
Ренат © (2003-03-04 13:32) [9]

и у меня

← →
SergeN (2003-03-04 13:34) [10]

> Ренат © (04.03.03 13:32)
> и у меня

Неа, у тебя больше. Ты ровно два месяца старше... :))

← →
hatchy © (2003-03-04 13:35) [11]

Удалено модератором
Примечание: Создание пустых сообщений

← →
uw © (2003-03-04 14:02) [12]

>hatchy © (04.03.03 13:35)
>??

Классовый метод TfmAboutDlg.Show я зову из главной формы.
На созданном диалоговом окне есть TLabel laAuthor с моим именем, которое изначально имеет цвет clSilver (лучше clBtnFace, но когда я все это писал, мало что знал).
Если на этой метке щелкнуть мышкой, то в методе TfmAboutDlg.laAuthorMouseDown создастся таймер, и проинициализируются переменные.
Обработчик таймера TfmAboutDlg.OnTimer меняет цвет моего имени от clSilber до clNavy.
Можно не щелкать мышью, а нажать какую-нибудь букву A, все равно в каком регистре - результат будет тот же.

← →
hatchy © (2003-03-05 11:36) [13]

Понятно...ну а если например цвет надписи белый тогда как её цвет в таймере менять?

← →
hatchy © (2003-03-05 11:56) [14]

Удалено модератором
Примечание: Создание пустых сообщений

← →
uw © (2003-03-05 12:09) [15]

Вообще-то у меня цвет меняется от clNavy до clSilber.
Подставь вместо clNavy clWhite или clWindow. Лучше напиши компоненту, которая все это будет делать для произвольных цветов. Потренеруешься. Тут главное пробовать.

Интересная задачка, я вообще-то только учусь, но идея есть, попробую сделать. Если получится - обязательно продемонстрирую.

Почему моей делфи не нравятся следующие слова:
DelGreen и First ?????

Этот вопрос не имеет отношения к теме

Это к начальным знаниям по языку, а не к проблеме "Хрен знает какая тема.."

Удалено модератором

Хрен знает какая тема.. Найти похожие ветки