|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.07.2007, 22:29 | #1 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Цифровые часы без фона
пробую написать цифровые часы без фона.
вот написал код: implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:= ''; Form1.Brush.Style := bsClear; Form1.BorderStyle := bsNone; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:= ''; Label1.Caption:= TimeToStr(Time); end; end. компилирую, часики идут, но вот только Label либо вообще не перерисовывается либо с опазданием, вобщем ужасный результат. как реализовать перерисовку и чтоб не мерцал при этом текст? уже все чего мог перепробовал
Изо всей благодати
В руках крепко сжатых Я донесу только капли Последний раз редактировалось Roof; 16.07.2007 в 22:33. |
17.07.2007, 08:43 | #2 |
Регистрация: 13.07.2007
Сообщений: 3
|
А зачем в таймере ты очищаеш Label1, ведь когда присваеваешь
Caption у Label, старое значение затирается. Вот у тебя у получается мерцание, т.к. он сначало очищаеть, затем снова пишет. А если убрать очистку, у тебя будет красивая замена цифр. |
17.07.2007, 10:49 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Код:
Life is too short, play more...
Как правильно задавать вопросы |
20.07.2007, 17:59 | #4 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
не помогло
от мерцания вроде избавился, а вот код не помог все так же старые цифры не стираются.
Вот посмотрите в архиве, я сфотал результат. А может и глюк видеокарты?
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
20.07.2007, 18:08 | #5 |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
А где Label1?
|
20.07.2007, 18:38 | #6 | |
;-)
Пользователь
Регистрация: 18.07.2007
Сообщений: 69
|
Цитата:
Сделайте как сказал Alex21, у label поставьте свойство Transparent:=True. Да, а вы не забыли еще из FormCreate те две строчки грохнуть? |
|
21.07.2007, 20:26 | #7 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Вроде все на месте. В коде он есть.
или я неправильно вопрос ваш понял?
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
21.07.2007, 20:43 | #8 | |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Цитата:
если убираю bsclear, то перерисовка нормально идет, но фон остается, форму видно, а мне нада, чтоб форма прозрачной была. Label1.Transparent:=true; я поставил. И какие две строчки? Может напишешь мне правильный код просто, а я по нему разберусь? Код:
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
|
21.07.2007, 23:36 | #9 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
По моему ты хочешь вот это:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
22.07.2007, 11:03 | #10 |
;-)
Пользователь
Регистрация: 18.07.2007
Сообщений: 69
|
Все, понял что требуется, когда запустил.. абсолютно прозрачная форма..
вот посмотри мою прогру, там по таймеру вычисляется число (отсчет элементарный), по шрифту и по его размеру форме делается регион и устанавливается. форма таскабельная. если оно, дам исходник |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу сделать цифровые часы | sid | Общие вопросы Delphi | 25 | 16.12.2009 05:06 |
Засунуть программу где часы. | Fellics{новичок} | Помощь студентам | 3 | 19.06.2008 15:09 |
электронные часы | Багира | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 19.12.2007 23:09 |
Ускоренные часы | Иринкаа | Компоненты Delphi | 2 | 23.11.2007 12:58 |
Заменить часы в трее | Teen4jump | Win Api | 10 | 08.08.2007 12:26 |