Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > компонент ColorDialog

Автор: Taurun 9.6.2008, 11:27

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

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

Код стрелок:

Код


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

Код


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

???

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