Delphi - Collegamento tra checkbox e timer

Forum - Delphi - Collegamento tra checkbox e timer

rep87 (Normal User)
Newbie

Messaggi: 17
Iscritto: 27/12/2010

Postato alle 22:58
Venerdì, 07/01/2011

Buonasera ragazzi..

Io ho riscontrato un problema di questo tipo:

Ho una checkbox, alla quale, nell'evento OnClick è associato questo tipo di codice:

Codice sorgente - presumibilmente Delphi

if checkbox1.checked=true then timer.enabled:=true
else
begin
timer.enabled:=false;
...
end;

Nel timer è scritto questo codice :

Codice sorgente - presumibilmente Plain Text

y:=sin(x);
image1.canvas.pizels[x,y]:=clblack;

Ovviamente è un po' diverso nel mio programma, ma il succo è questo.

La mia domanda è: perchè, avviando il programma, clicco sulla checkbox e tutto funziona, ci riclicco (deselezionandola, quindi) e giustamente attua i comandi contenuti dopo else, MA SE RI-CLICCO (SELEZIONANDOLA) NON ACCADE NULLA?!

Spero mi sappiate dare una risposta, e magari spiegare cosa fare!
:-?

a_butta (Member)
Expert

Messaggi: 578
Iscritto: 16/03/2010

Postato alle 1:37
Sabato, 08/01/2011

Se ti riferisci al solito progetto, ti sei ricordato di azzerare la variabile X ogni volta che attivi il timer

rep87 (Normal User)
Newbie

Messaggi: 17
Iscritto: 27/12/2010

Postato alle 14:59
Sabato, 08/01/2011

Ho trovato l'errore, ma non so come risolverlo.

Allora, la mia checkbox ha il seguente codice:

Codice sorgente - presumibilmente Delphi

procedure TForm5.CheckBox9Click(Sender: TObject);
begin
if checkbox9.checked=true then
ttimerengine.Enabled:=true
else
    begin
    with image1.Canvas do
    begin
    for px:=0 to image1.Width do
        begin
              //disegna il seno, BIANCO!
              x1:=pi*trackbar2.position;
              x2:=-pi*trackbar2.position;
              y1:=trackbar1.position;
              y2:=-trackbar1.position;
              //Cambia le coordinate schermo in coordinate cartesiane
              x:= strtofloat(edit3.Text)*px*((x2- x1)/image1.Width)+strtofloat(edit1.Text);
              y:=-strtofloat(edit4.Text)*sin(x)+strtofloat(edit2.text);
              //Cambia le coordinate cartesiane in coordinate schermo
              py:=trunc(image1.height-(y-y1)*image1.height/(y2-y1));
              Image1.Canvas.Pixels[px,py]:=clwhite;
              image1.Canvas.Pen.Width:=1;
        end;
    end;
    end;
end;

Nel timer ci sono le istruzioni per disegnare il seno, come mi avevi giustamente consigliato.

Ora, come detto, riscontro il problema che al terzo click non ottengo nulla.

Ho provato a cancellare dal codice della checkbox tutto il codice che segue l'else...

E IL TUTTO FUNZIONA!!!!!!!!!!!!!!!!! :om:

In altre parole, clicco sulla checkbox e mi si disegna il seno. Ri-clicco, deselezionandola, e non accade nulla. Cancello la canvas, riclicco la checkbox, e il seno ri-appare! (cosa che prima non succedeva)...

..perciò, cosa c'è che non va in quella parte di codice?!?!

Help me!