Delphi - Reloj analógico en delphi

   
Vista:

Reloj analógico en delphi

Publicado por juanrs (47 intervenciones) el 14/04/2008 00:47:07
Muy buenas a todos:
Estoy realizando una pequeña aplicación, y en el formulario principal me gustaria colocar un reloj analogico que me marcara la hora exactamente, he conseguido hacerlo digital (que me marque la hora en números), pero me gustaria tenerlo en analogico.
Haber si me podeis echar un cable. Gracias de antemano a todos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Reloj analógico en delphi

Publicado por Eva (484 intervenciones) el 14/04/2008 02:14:40
Instala los componentes JV que son gratuitos.

En la pestaña JvVisual hay un componente llamado TJvClock, lo colocas, su propiedad ShowMode la pones a ScAnalogic y ya está.

Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Reloj analógico en delphi

Publicado por elena (1 intervención) el 03/11/2009 12:55:05
Buenas, como instalo los componentes JV que mencionas, es que quiero poner un reloj analogico en una de mis forms.
Graciasss
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de nestor

Reloj analógico en delphi

Publicado por nestor (3 intervenciones) el 01/10/2014 20:39:23
Prueba con esto a ver si te sirve lo hice hace micho pero creo que sirve

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar