53 replies to this topic

[Caral]

Hola
Estaba viendo este ejemplo de como hacer un reloj.
Salen la manecillas pero no los números, no se como ponérselos.
Me dais una mano.
Saludos


[archivo adjunto borrado por el administrador]

[cHackAll]

Caral, on 06 Jan 2009 - 5:09 PM, said:

Hola
Estaba viendo este ejemplo de como hacer un reloj.
Salen la manecillas pero no los números, no se como ponérselos.
Me dais una mano.
Saludos

No quiero molestarte, pero no seria mejor que utilices los componentes JEDI que son mas faciles de configurar y usar?

[Caral]

Hola
No los conozco amigo, pero la idea con este es mas que nada el tratar de hacerlo por codigo.
Saludos

[seoane]

Lo siento, pero me sale el corrector que llevo dento  ... es analógico y no análogo 

[Caral]

Hola
A mi edad ya ni Ana ni Anita.
Vamos metanle mano a ver si aprendo.
Saludos

[seoane]

Caral, on 06 Jan 2009 - 7:59 PM, said:

Vamos metanle mano a ver si aprendo.

Que prisas 

Vamos a ver si esto te sirve:

delphi

procedure TForm1.FormPaint(Sender: TObject);
var
  buffer: tbitmap;
  h, m, s, ms: word;
  ox, oy, lx, ly: Integer;
  i: integer;
  Str: String;
begin
 decodetime(now,h,m,s,ms);
 buffer:=tbitmap.create;
 with buffer do
  begin
   Width:=250;
   Height:=250;
   ox:= 125;
   oy:= 125;
   lx:= 100;
   ly:= 100;
   Canvas.Pen.Color:= Color;
   canvas.Brush.Color:= Color;
   canvas.Rectangle(0,0,width,height);
   Canvas.Pen.Width:= 1;
   Canvas.Pen.Color:= cllime;
   canvas.Brush.Color:= rgb(150,200,255);
   Canvas.Ellipse(25,25,225,225);
   Canvas.Pen.Width:=1;
   Canvas.Pen.Color:=clred;
   Canvas.MoveTo(ox+Trunc( sin((s*pi)/30)*lx),oy+Trunc(-cos((s*pi)/30)*ly));
   Canvas.LineTo(ox,oy);
   Canvas.Pen.Width:=2;
   Canvas.Pen.Color:=0;
   Canvas.MoveTo(ox+Trunc( sin((m*pi)/30)*lx),oy+Trunc(-cos((m*pi)/30)*ly));
   Canvas.LineTo(ox,oy);
   Canvas.Pen.Width:=3;
   Canvas.Pen.Color:=0;
   Canvas.MoveTo(ox+Trunc( sin((h*pi)/6)*(lx div 2)),oy+Trunc(-cos((h*pi)/6)*(ly div 2)));
   Canvas.LineTo(ox,oy);
   // Si queremos separar los numeros de la agujas
   //lx:= lx + 10;
   //ly:= lx + 10;
   Canvas.Font.Size:= 16;
   Canvas.Brush.Style:= bsClear;
   for i:= 1 to 12 do
   begin
     Str:= IntToStr(i);
     Canvas.TextOut(ox+Trunc(sin((i*pi)/6)*lx)-(Canvas.TextWidth(Str) div 2),oy+Trunc(-cos((i*pi)/6)*ly)-(Canvas.TextHeight(Str) div 2),Str);
   end;
  end;
 canvas.Draw(0,0,buffer);
 buffer.Free;
 caption:=timetostr(now);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Paint;
end;

[FGarcia]

¡¡¡Que bonito!!!

¡¡¡¡Cuando crezca quiero ser asi de sabio, inteligente y guapo!!!!

[Caral]

Hola
Muy bonito, gracias Seoane, si se pudo.
Saludos

[poliburro]

FGarcia, on 06 Jan 2009 - 9:15 PM, said:

¡¡¡Que bonito!!!

¡¡¡¡Cuando crezca quiero ser asi de sabio, inteligente y guapo!!!!

  y no se te antoja darle un beso?, jajajajajaj que pasó mi compa las joteadas comienzan al pardear la tarde. jajajajjaja

[egostar]

Vaya amigo seoane, usted y cHackAll siempre con un As en la manga

Salud OS

PD, que conste que no es joteria, no vaya a ser

[Caral]

Hola

Jose Fco, on 06 Jan 2009 - 9:30 PM, said:

Hola amigos, hace como un mes cuando estaba con lo de las cambas y haciendo mi bandera.Encontre este programita y pues me gusto.Ahora que toman este tema lo comparto por aca.

Un Saludo.

Jose, ese es muy similar al que tenia, revisa el de Seoane, el si sabe.
Saludos

[egostar]

No te compilo amigo?

Salud OS

[seoane]

Pues me vais a tener que explicar que es una "joteria" o "joteada"  :^)

En cuanto a lo del beso  ...

[egostar]

seoane, on 06 Jan 2009 - 9:57 PM, said:

Pues me vais a tener que explicar que es una "joteria" o "joteada"  :^)

En cuanto a lo del beso  ...

Amigo, la joteria no es mas que FGarcia te quiera dar un beso

Salud OS