Newsgroup: it.comp.lang.delphi
Titolo: [d5] testo scorrevole ed eventi

ciao a tutti, sto cercando un componente per visualizzare una scritta che 
passi scorrendo da destra a sinistra e quando questa č passata mi generi un 
evento... devo visualizzare degli sms su dei monitor e quindi devo dare una 
sorte di animazione grafica... qualcuno ha qualche idea???
Simone 

Non so se ti è utile comunque :
Nella form metti un componente tLabel e un tTimer .
...
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
...
Poi metti nell'evento __onTimer1__ (con Interval impostato a 5 : se no non
si vede).
// _____________________________________
procedure TForm1.Timer1Timer(Sender: TObject);
Var
  i : integer ;
begin
  i := Label1.Left ;
  Dec (i) ;
  Label1.Left := i ;
  Form1.Show ;
end;
Quando esci fai quello che vuoi.
Ciao - (
mari...@inwind.it
)
P.S. If Lable1.Left =1 è la fine.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

ciao, grazie per il suggerimento... ma secondo te non si nota lo sfarfallio 
nello schermo??? devo usare un font con dimensione 30 altrimenti nelle TV 
non si legge, secondo te posso procedere cosě?
Simone 

Non so dove lo vuoi visualizzare.
Ma se metti Interval del Ttimer = 30 ...
Io non vedo lo sfarfallio...
Ciao
Mario - (
mari...@inwind.it
)


ho il seguente codice, però vedo un refresh allucinante sulla scritta... lo 
sfondo è nero e il testo bianco a 36 pixel, che posso fare??
Simone
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
Var
  i : integer ;
begin
  timer1.enabled:=false;
  i := Label1.Left ;
  Dec (i) ;
  Label1.Left := i ;
  Form1.Show ;
  application.processmessages;
 if label1.left+label1.width<0 then
  begin
   label1.left:=screen.width;
  end;
  timer1.enabled:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.top:=0;
 form1.height:=screen.height;
 form1.width:=screen.width;
 form1.left:=0;
 label1.caption:='testo sms di prova di almeno un pò di caratteri...';
 label1.left:=screen.width;
 label1.top:=screen.height-100;
end;
end.

 sfondo è nero e il testo bianco a 36 pixel, che posso fare??
Quello che hai in create io lo metterai in Activate ma non dovrebbe dare
problemi.
Nel cotrollo dell evento ttimer metti quello che ti ho dato ieri. A me
scorre molto bene e non so a cosa ti riferisci con lo sfarfallio.
Lo sfarfallio non viene percepito dall'occhio umano se è la frequenza di
refresh è superiore a 20 immagini al secondo per cui ho messo
ttimer1.interval := 30 ; Che equivale circa a trentatre immagini al secondo.
Ciao
Mario
P.S.
Usa :
procedure TForm1.Timer1Timer(Sender: TObject);
Var
  i : Integer ;
begin
  i := Label1.Left ;
  Dec (i) ;
  Label1.Left := i ;
  Form1.Show ;
end;


 ha scritto nel messaggio 
news:212Z171Z242Z133...@usenet.libero.it...


Certamente senza usare Enable e Disable Il timer deve essere Enable sempre.
E dopo l'evento deve ripartire da solo senza essere abilitato.
Se lo 'sfarfallio' premane fai vari tentativi (aumentando) con interval e
dovresti ottenere il minimo sfarfallio possibile.
Cerca di vedere al frequenza di refresh del tuo schremo o televisore se poni
la stessa non dovrebbero esserci problemi.
Ciao
Mario - (
mari...@inwind.it
)


Certamente senza usare Enable e Disable Il timer deve essere Enable sempre.
E dopo l'evento deve ripartire da solo senza essere abilitato.
Se lo 'sfarfallio' premane fai vari tentativi (aumentando) con interval e
dovresti ottenere il minimo sfarfallio possibile.
Cerca di vedere al frequenza di refresh del tuo schremo o televisore se poni
la stessa non dovrebbero esserci problemi.
Ciao
Mario - (
mari...@inwind.it
)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/