Hola
Bueno os estoy esperando.
Código Delphi
[-]uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Paint;
end;
procedure TForm1.FormPaint(Sender: TObject);
var
buffer: tbitmap;
h, m, s, ms: word;
begin
decodetime(now,h,m,s,ms);
buffer:=tbitmap.create;
with buffer do
begin
Width:=200;
height:=200;
Canvas.Pen.Color:=color;
canvas.Brush.Color:=color;
canvas.Rectangle(0,0,200,200);
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=cllime;
canvas.Brush.Color:=rgb(150,200,255);
Canvas.Ellipse(0,0,200,200);
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clred;
Canvas.MoveTo(100+Trunc( sin(s/9.65)*100),100+Trunc(-cos(s/9.65)*100));
Canvas.LineTo(100,100);
Canvas.Pen.Width:=2;
Canvas.Pen.Color:=0;
Canvas.MoveTo(100+Trunc( sin(m/9.65)*100),100+Trunc(-cos(m/9.65)*100));
Canvas.LineTo(100,100);
Canvas.Pen.Width:=3;
Canvas.Pen.Color:=0;
Canvas.MoveTo(100+Trunc( sin(h/1.95)*50),100+Trunc(-cos(h/1.95)*50));
Canvas.LineTo(100,100);
end;
canvas.Draw(0,0,buffer);
buffer.Free;
caption:=timetostr(now);
end;
Saludos