| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как написать часы со стрелками? [D7, WinXP]
tazik © (2005-03-15 21:17:00)Приспичило, а мозги не варят :) Помогите, чем сможете :)
tazik (2005-03-15 21:33:00) [21]Да нет мне нужно стрелки самому рисовать. Я пробовал так:
var I: integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.Pen.Color := clBlue;
Canvas.MoveTo(150,150);
for I := 0 to 360 do
Canvas.LineTo(Trunc(sin(i)),Trunc(cos(i)));
end;
tazik (2005-03-15 21:29:00) [22]Да ладно вам, ну может есть исходники. Вообщето мне нужно под turbo pascal
Leeechhhh (2005-03-15 21:28:00) [23]не, правильно "чисы са стрелкоми"
по теме: заюзай чейнить апишный компонент, или вобьми гденить гиф полноанимированного круга часов
Fenik (2005-03-15 21:23:00) [24]"Часы со стрелками". ты же сам уже правильно написал.
| |
Страницы: 