pulsante

[pincopallino]

sto cercando di creare un pulsante usando il freepascal ma voglio
costruirmelo. il problema ￜ che nel pulsante c'ￜ del testo e quando
premo il pulsante sinistro del mouse il mio pulsante dovrebbe cambiare
colore ma il testo dovrebbe rimanere scritto. ho fatto cosￜ
(inizialmente il tasto ￜ silver):

while (getmousebuttons=mouseleftbutton)
do
begin
setfillstyle(solidfill,gray);
roundrect(195,485,255,515,2);
outtextxy(207,490,'GO!');
end;

purtroppo il testo ed il bianco sembrano rincorrersi con un pessimo
effetto visivo

suggerimenti?

[Il Razziatore]

Il 25/01/2013 18.50, pincopallino ha scritto:
> sto cercando di creare un pulsante usando il freepascal ma voglio
> costruirmelo.

Cosa buona e giusta. Per aiutarti ho bisogno di un paio di info:

a) In che "modalitￜ" lavori? La modalita testuale tenderai ad escludere
perchￜ da quello che leggo usi comandi "grafici" ). Stai su "windows"
dove bisogna ridisegnare ogni spesso e volentieri gli elementi o stai in
"dos" dove non bisogna farlo?

b) Vuoi far funzionare il tuo pussante in un mondo ad eventi? ( credo di
no )

> while (getmousebuttons=mouseleftbutton)
> do
> begin
> setfillstyle(solidfill,gray);
> roundrect(195,485,255,515,2);
> outtextxy(207,490,'GO!');
> end;
>
> purtroppo il testo ed il bianco sembrano rincorrersi con un pessimo
> effetto visivo

Credo che il tuo problema ( se le supposizioni che ho fatto sono
corrette ) ￜ dovuto al modo con cui ridisegni continuamente il pussante.
Non c'ￜ bisogno di disegnarlo di continuo ( all'interno del blocco while ).

Io farei cosￜ:

Quando viene premuto il pussante del mouse ridisegnerei il pussante e
poi non farei niente finche non viene rilasicato. Se viene rilasciato
sempre all'interno del pussante farei partire la procedura associata
almentimenti niente. Ovviamente una volta che il pussante viene
rilasciato devi ridisegnare il bottone nello stato "normale".

Spero di essere stato chiaro.

[pincopallino]

chiarissimo e funziona, grazie