![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с TLabel [D7, XP]
hypnotize © (2007-01-18 17:02:00)Всем здраствуйте, проблема такая, сделал я ефект появления текста, аля матрица, то биш текст будто печатается, нарастает по одной букве, для сего эфекта использовал я TLabel и TTimer с интервалом 10, вроде как все работает, но сам лейбл во время появления текста моргает, как избавитсяот этого?
hypnotize (2007-01-18 21:23:00) [41]
vari: integer;
procedureTForm1.TimerTimer(Sender: TObject);
begin
i := i + 1;
ifcopy(memo1.Lines.Text,i-1,1) = ' ' then beginForm1.TimerTimer(sender); exit; end;// Это чтобы пропускать пробелы
label.caption := copy(memo1.Lines.Text,0,i);
ifi > 100 thenTimer.Enabled:=false;
end;
Вот такой собсно код, лейбл как надо рисует многострочный текст(с морганием), када доходит до 100-ого символа, перестаёт.
2default
Раскажи как ты делал чтобы не моргало.
default (2007-01-18 21:07:00) [42]у меня вот ничего не моргает
default (2007-01-18 20:59:00) [43]особые махосты могу выводить на каждую букву один лейбел:)
hypnotize (2007-01-18 20:42:00) [44]2Комбинатор
Раскажи про
> блиттинг
Как эту ересь включить? :)
hypnotize (2007-01-18 19:48:00) [45]Монитор сони 19 дюймов жк, двойная буферизация только для картинок помогает, а лейбл дергается все равно
Комбинатор (2007-01-18 19:36:00) [46]Ага...нужна двойная буферизация, блиттинг)))
Johnmen (2007-01-18 19:35:00) [47]У тебя монитор какой?
hypnotize (2007-01-18 19:31:00) [48]up>
Ниужели никто не знает? Может есть другой вариант реализации? Другие компоненты тоже моргают :(