VPF::компонент ColorDialog - Форум программистов

Taurun

Дата 9.6.2008, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

Написана программа часов, надо дать возможность пользователю выбирать цвет стрелок (сек., мин. и час.)
Возник вопрос

Я привязываю этот компонент к кнопке, как можно привязать кнопку к стрелке?

Код стрелок:

Код


procedure TForm1.ArrowDraw(DrawColor: TColor);
begin
With Form1.Canvas do begin
Pen.Color:=DrawColor;
MoveTo(CenterX,CenterY);
Pen.Width:=3;
LineTo (CenterX+Round(HourArrow*sin(HourAngle)),
CenterY-Round(HourArrow*cos(HourAngle)));
MoveTo(CenterX,CenterY);
Pen.Width:=2;
LineTo (CenterX+Round(MinArrow*sin(MinAngle)),
CenterY-Round(MinArrow*cos(MinAngle)));
MoveTo(CenterX,CenterY);
Pen.Width:=1;
LineTo(CenterX+Round(SecArrow*sin(SecAngle)),
CenterY-Round(SecArrow*cos(SecAngle)));
end;
end;

Код кнопки:

Код


procedure TForm1.Button3Click(Sender: TObject);
begin
if (ColorDialog1.Execute) then
  f:=ColorDialog1.Color;
end;

Получается сделать только для фона(

THandle

Дата 9.6.2008, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Код


procedure TForm1.Button3Click(Sender: TObject);
begin
if (ColorDialog1.Execute) then
  ArrawDraw(ColorDialog1.Color);
end;

???

Или я что то не так понял?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »