Newsgroup: it.comp.software.newsreader
Titolo: [Dialog] Contrassegni visibili

Nel nuovo Screenshot di MLC si vede, tra le varie cose interessanti,
un asterisco vicino allo score, per indicare che il messaggio ha un
contrassegno
http://www.lillathedog.net/dialog/screenshots/MLC_princ.htm
Hai già postato lo script per farlo e me lo sono perso? :)
 
-- 
Enrico C
| 40tude Dialog Italy Cafe
| 
http://www.lillathedog.net/dialog/

 Hai già postato lo script per farlo e me lo sono perso? :)
Lo voglio! :D

 Hai già postato lo script per farlo e me lo sono perso? :)
Eccomi qua :)
Non l'ho postato perché non so quanto possa essere interessante per tutti,
nel senso che a me va bene così ma per essere usato richiede che poi uno si
adatti ad aggiungere e togliere solo punteggi _pari_ nelle proprie regole
di punteggio. Cioè tutte le vostre score and actions devono contenere solo
numeri pari. Non so se questa è una limitazione accettabile per voi :-/
E' uno script che ho fatto per l'evento OnArticleListPaint, che mi fa anche
un'altra cosa, quella di mettere la data con l'anno di due cifre e l'ora
con davanti un h:, ma senza i secondi (a me i secondi davano fastidio);
però ho reso indipendenti questi due pezzi (quello del contrassegno e
quello dell'ora), così se ne vuoi uno solo puoi commentare o cancellare
l'altro.
Con l'evento OnArticleListPaint vado a catturare l'uso di quell'altro mio
mini-script Add_1_and_Mark (ex AddScore) che aggiunge 1 al punteggio del
messaggio selezionato, e ora lo contrassegna anche.
Insomma spiegare tutto è un po' un casino ma se vi interessa ve li posto.
(sì, Alan, coi commenti... aarrgggh) ;-)
Oggi ne ho fatto anche un altro che vado a postare in NSR perché ho visto
che chiedevano una roba del genere (sempre sull'aggiungere punti).
Non so perché ma in questi giorni mi è venuta la "scriptomania".
Speriamo che passi presto...
-- 
Maria Luisa C - 10/01/2004 21.20.07, here.
http://fido.altervista.org/

 (sì, Alan, coi commenti... aarrgggh) ;-)
assolutamente si ^_^

 Hai già postato lo script per farlo e me lo sono perso? :)
Ecco:
Fate File - Nuovo script... e mettete il nome Add_1_and_Mark.
Copiate, compilate (con Ctrl-F9, non con i triangolini verdi) e salvate il
seguente script:
Program Add_1_and_Mark;
Begin
 PostKey(80, false, true, false, false, false, false, false, false);
 // significa Alt-P
 // nella versione inglese mettere 77 al posto di 80;
 
 PostKey(9, false, false, false, false, false, false, false, false);
 // questo è un tab
 
 PostKey(38, false, false, false, false, false, false, false, false);
 // questo è freccia su
 
 PostKey(13, false, false, false, false, false, false, false, false);
 // questo è Invio
 
 ADo('MessageProperties'); //finestra Proprietà del Messaggio
 ADo('AddMarker'); //mette il contrassegno
End.
Assegnategli un'hotkey. Io ho messo il + del tastierino numerico, che è
libero.
Gli ho anche associato l'icona del comando "Aggiungi contrassegno" e ho
messo il bottone sulla toolbar.
Ora cliccate sul tab Script eventi e selezionate OnArticleListPaint.
Copiate, compilate e salvate quello che segue:
program OnArticleListPaint;
const
 colScore=0; //nella finestra degli headers contate le vostre colonne da
            //sinistra a destra partendo da 0 e scrivete qui il numero 
            //della colonna Score (se non l'avete spostata è 0);	
 
 colDate=5; //stessa cosa per la colonna Date;
 
function
OnArticleListPaint(PaintString:WideString;ColumnIndex:Integer):WideString;
var
 len: Integer;
 origStr: WideString;
 points: integer;
 
begin
 origStr:=PaintString;
 len:=length(origStr);
 
 case ColumnIndex of
 
  //il pezzo tra le linee di asterischi serve ad aggiungere
  //un * ai messaggi segnati con lo script Add_1_and_Mark,
  //ma non dovete avere altri punteggi dispari!!!
  //se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di asterischi:
 
  //***********************************
  colScore:
   begin
    points:=StrToInt(origStr);
    if points mod 2 = 1 then  PaintString := PaintString + '*';
   end;
  //***********************************
 
 
  //Il pezzo che sta tra le linee di puntini serve a cambiare  
  //la data nel formato --/--/-- h:--.--
  //se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di puntini:
 
  //...................................
  colDate:
   begin
   	//ora faccio a pezzi la data e la ricostruisco come pare a me
 
    PaintString := Copy(PaintString, 1, 6) + Copy(PaintString, 9, 2) +
     '  h:';
    case len of
 
     19: 
     PaintString := PaintString + Copy(origStr, 12, 5);
 
     18:
     PaintString := PaintString + ' ' + Copy(origStr, 12, 4);
     //se le ore da 0 a 9 vi piacciono con lo 0 davanti, nella riga sopra 
     //mettete uno 0 dentro a ' ' al posto dello spazio
 
   end;
   //.................................
 
 end;
 
end;
result:=PaintString;
end;
begin
end.
Se avete tenuto il pezzo tra asterischi, quando pigiate il + del tastierino
numerico vedrete l'asterisco vicino al punteggio aumentato di 1, e il
messaggio sarà contrassegnato.
Per togliere i contrassegni:
Dialog purtroppo non permette di togliere il contrassegno a un singolo
messaggio, li toglie tutti insieme col comando "Cancella lista
contrassegni", quindi questo dovrete farlo solo quando volete perderli
tutti. Naturalmente bisogna anche togliere dai messaggi l'asterisco, e
questo lo si può fare usando "Riapplica punteggio e azioni ai gruppi
selezionati".
Ho messo insieme questi due comandi:
Program ClearMarkers;
Begin
ADo('ApplyScoring');
ADo('ClearMarkerList');
End.
Io a questo script ho associato l'icona di "Cancella lista contrassegni" e
ho messo il bottone sulla toolbar.
Se si vuole per qualche strambo motivo eliminare l'asterisco da un singolo
messaggio lasciandolo però nella lista dei contrassegni, lo si può fare con
lo script SubtrScore dell'altro giorno, cui ho associato il - del
tastierino numerico.
NB: Se applicate l'asterisco/contrassegno al primo messaggio di un thread
compresso, lo potrete vedere solo espandendo il thread.
Mi pare tutto. Se avete osservazioni, ben vengano :) !
-- 
Maria Luisa C - 11/01/2004 10.12.41, here.
http://fido.altervista.org/

 
[snip]
LOL! Vedo che anche tu frequenti aleph0 !
Perché non ci siamo mai incontrati?
Ah, sì, io ero nelle stanze pari! :Þ
-- 
Maria Luisa C - 11/01/2004 10.08.26, here.
http://fido.altervista.org/

 program OnArticleListPaint;
Aspetto, io qui ho già uno script. Che faccio, li fondo in uno?
Per la precisione ho questo....
program OnArticleListPaint;
function
OnArticleListPaint(PaintString:widestring;ColumnIndex:integer):widestring;
var n:integer;
    c:widestring;
    i:integer;
    tmpstring:widestring;
 
begin   
  tmpstring := paintstring;
  n := length(tmpstring);
 
  if (n > 0) then
    begin
      n := length(tmpstring);
 
      c := copy(tmpstring, n, 1);
      if c = ')' then
        begin
          while (n > 1) do
            begin
              n := n - 1;
              c := copy(tmpstring, n, 1);
              if c = '(' then
                begin
                  result := copy (tmpstring, 1, n-2);
                  exit;
                end;
            end;
        end;
    end;
  result := tmpstring;
end;
begin
end.
-- 
Enrico C

 Mi pare tutto. Se avete osservazioni, ben vengano :) !
Funziona :)
Però c'è da notare una cosa (magari se decidi di "pubblicarlo" potresti
aggiungerci un commento, magari anche con la versione alternativa):
la parte della data funziona solo se le impostazioni internazionali di
windows sono quelle standard; se qualcuno (come me ;) ) utilizza
normalmente la visualizzazione della data a 2 cifre, come risultato
dello script si ottiene una stringa gg/mm/aa h: seguida dal nulla ;)
(quindi nessuna ora visualizzata). Per farla funzionare bisogna
modificare opportunamente gli "indicatori di posizione nella stringa
originale" (perdono, non so come altro chiamarli ^_^; )
Cmq è molto utile, grazie ^_^  

 Per la precisione ho questo....
L'ho fuso (no, non il cervello! :)) 
Copialo e incollalo tutto perché ho cambiato un po' le variabili.
program OnArticleListPaint;
const
 colScore=0; //nella finestra degli headers contate le vostre colonne da
            //sinistra a destra partendo da 0 e scrivete qui il numero 
            //della colonna Score (se non l'avete spostata è 0);	
 colSubject=4; //stessa cosa per la colonna Subject;
 
 colDate=6; //stessa cosa per la colonna Date;
 
function
OnArticleListPaint(PaintString:WideString;ColumnIndex:Integer):WideString;
var
 n, points: Integer;
 c, tmpString: WideString;
 
begin
 
 case ColumnIndex of
 
  //il pezzo tra le linee di asterischi serve ad aggiungere
  //un * ai messaggi segnati con lo script Add_1_and_Mark,
  //ma non dovete avere altri punteggi dispari!!!
  //se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di asterischi:
 
  //***********************************
  colScore:
   begin
    points:=StrToInt(PaintString);
    if points mod 2 = 1 then  PaintString := PaintString + '*';
   end;
  //***********************************
 
  //Il pezzo tra le linee di + serve a eliminare il nome del poster
  //tra parentesi nella colonna Subject.
  //Dovete avere la colonna Subject impostata a %subjectnamechange%,
  //e naturalmente una colonna Name impostata a %fromname%.
  //Se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di +:
 
  //++++++++++++++++++++++++++++++++++++
  colSubject:
   begin
    tmpString := PaintString;
    n := length(tmpString);
    if (n>0) then
    begin
      n := length(tmpString);   
      c := copy(tmpString, n, 1);
      if c = ')' then
      begin
       while (n>1) do
       begin
        n:=n-1;
        c:=copy(tmpstring, n, 1);
        if c='(' then
        begin
         result:=copy(tmpString, 1, n-2);
         exit;
        end; //if
       end; //while
      end; //if
    end; //if
  PaintString:=tmpString;
  end;
  //+++++++++++++++++++++++++++++++++++++++++++++++++
  //Il pezzo che sta tra le linee di puntini serve a cambiare  
  //la data nel formato --/--/-- h:--.--
  //(se avete già l'anno di 2 cifre impostato da Windows NON usatelo
  //finché non lo aggiorno)
  //se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di puntini:
 
  //...................................
  colDate:
   begin
    tmpString := PaintString;
    n:=length(PaintString);
   	//ora faccio a pezzi la data e la ricostruisco come pare a me
 
    PaintString := Copy(PaintString, 1, 6) + Copy(PaintString, 9, 2) + '
h:';
    case n of
 
     19: 
     PaintString := PaintString + Copy(tmpString, 12, 5);
 
     18:
     PaintString := PaintString + ' ' + Copy(tmpString, 12, 4);
     //se le ore da 0 a 9 vi piacciono con lo 0 davanti, nella riga sopra 
     //mettete uno 0 dentro a ' ' al posto dello spazio
 
   end;
   //.................................
 
 end;
 
end;
result:=PaintString;
end;
begin
end.
Enrico, per farlo ho messo anch'io la colonna Name che prima non avevo.
Però così, espandendo i thread, vedo sotto i nomi anche nella colonna
Subject. Preferisco avere il subject ripetuto, piuttosto.
Allora ho messo %subject% ma così perdo l'indentazione.
Mi sai dire come fare a mantenerla?
Ho visto dallo screenshot di Alan Ford che lui ce l'ha.
Alan, se ci ascolti, come fai?
-- 
Maria Luisa C - 11/01/2004 16.45.35, here.
http://fido.altervista.org/

 Mi sai dire come fare a mantenerla?
%threadindent% :)
-- 
Fare Well! | 40tude Dialog v2.0.10.1
G          | 
http://snurl.com/dialog
Here is Shadowfax the Great, whom no other hand can tame.



Grazie, Cammagno, io non ci avrei proprio pensato.
Per ora ho inserito una nota in quel blocco, poi spero di riuscire a
sistemarlo.
Ciao :)
-- 
Maria Luisa C - 11/01/2004 17.02.18, here.
http://fido.altervista.org/

 %threadindent% :)
Porr.......lavacca!
Avevo provato %subject%%threadindent% e non indentava niente.
Dopo il tuo messaggio ho fatto %threadindent% da solo e ovviamente vedevo
solo i puntini.
Allora ho fatto %threadindent%%subject% e funziona!
Ma č una cosa normale?
Grazie, Antonio! :))
-- 
Maria Luisa C - 11/01/2004 17.07.42, here.
http://fido.altervista.org/

domenica 11/gen/2004 _Cammagno_ ha scritto:
[...]
Ciao, mi faresti il favore di provare a incollare il pezzo che segue al
posto di quello di prima e poi vedere se funziona?
Io purtroppo non posso provarlo perché ho messo in Windows la data nella
forma gg/mm/aa ma non so perché non mi ubbidisce! :(
Allora l'ho fatto senza poterlo provare.
So solo che compila correttamente.
Grazie!
 //...................................
 colDate:
  begin
   tmpString := PaintString;
   n:=length(PaintString);
    //ora faccio a pezzi la data e la ricostruisco come pare a me
 
   if ((n=16) or (n=17)) then  //la data ha già l'anno di due cifre
   begin
    PaintString := Copy(PaintString, 1, 8) + '  h:';
    case n of
     16:
     PaintString := PaintString + ' ' + Copy(tmpString, 10, 4);
     17:
     PaintString := PaintString + ' ' + Copy(tmpString, 10, 5);
    end; //case
   end  
   else  //la data ha l'anno di quattro cifre
   begin
   PaintString:=Copy(PaintString, 1, 6) + Copy(PaintString, 9, 2) + '  h:';
    case n of    
     19: 
     PaintString := PaintString + Copy(tmpString, 12, 5);     
     18:
     PaintString := PaintString + ' ' + Copy(tmpString, 12, 4);
     //se le ore da 0 a 9 vi piacciono con lo 0 davanti, nella riga sopra 
     //mettete uno 0 dentro a ' ' al posto dello spazio
    end; //case
   end; //if
 //.................................
-- 
Maria Luisa C - 11/01/2004 21.27.58, here.
http://fido.altervista.org/

 Ma è una cosa normale?
Credo di si, faceva così anche a me :)
Cmq un suo senso ce l'ha, l'indentazione per funzionare deve precedere
il resto...

 So solo che compila correttamente.
Probabilmente sbaglio qualcosa, perchè a me non compila, mi da l'errore:
[Error] (24:4): Unknown identifier 'tmpString'
Io l'ho incollato sull'altro, sostituendo la parte che va da una linea 
tratteggiata all'altra, però mi sa che c'è qualcosa che non va... cmq 
quello che mi risulta facendo così è la cosa seguente:
program OnArticleListPaint;
const
 
 colDate=5;
 
function
OnArticleListPaint(PaintString:WideString;ColumnIndex:Integer):WideString;
var
 len: Integer;
 origStr: WideString;
 points: integer;
 
begin
 origStr:=PaintString;
 len:=length(origStr);
 
 case ColumnIndex of
 
 




 [Error] (24:4): Unknown identifier 'tmpString'
Scusa, colpa mia che mi ero dimenticata di aver cambiato delle variabili nel
frattempo per inserire il pezzo che voleva Enrico.
Te lo riincollo tutto ( e mille grazie per la tua disponibilità:
program OnArticleListPaint;
const
 colScore=0; //nella finestra degli headers contate le vostre colonne da
            //sinistra a destra partendo da 0 e scrivete qui il numero 
            //della colonna Score (se non l'avete spostata è 0);	
 colSubject=3; //stessa cosa per la colonna Subject;
 
 colDate=5; //stessa cosa per la colonna Date;
 
function
OnArticleListPaint(PaintString:WideString;ColumnIndex:Integer):WideString;
var
 n, points: Integer;
 c, tmpString: WideString;
 
begin
 
 case ColumnIndex of
 
  //il pezzo tra le linee di asterischi serve ad aggiungere
  //un * ai messaggi segnati con lo script Add_1_and_Mark,
  //ma non dovete avere altri punteggi dispari!!!
  //se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di asterischi:
 
  //***********************************
  colScore:
   begin
    points:=StrToInt(PaintString);
    if points mod 2 = 1 then  PaintString := PaintString + '*';
   end;
  //***********************************
 
  //Il pezzo tra le linee di + serve a eliminare il nome del poster
  //tra parentesi nella colonna Subject.
  //Dovete avere la colonna Subject impostata a %subjectnamechange%,
  //e naturalmente una colonna Name impostata a %fromname%.
  //Se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di +:
 
  //++++++++++++++++++++++++++++++++++++
  colSubject:
   begin
    tmpString := PaintString;
    n := length(tmpString);
    if (n>0) then
    begin
      n := length(tmpString);   
      c := copy(tmpString, n, 1);
      if c = ')' then
      begin
       while (n>1) do
       begin
        n:=n-1;
        c:=copy(tmpstring, n, 1);
        if c='(' then
        begin
         result:=copy(tmpString, 1, n-2);
         exit;
        end; //if
       end; //while
      end; //if
    end; //if
  PaintString:=tmpString;
  end;
  //+++++++++++++++++++++++++++++++++++++++++++++++++
  //Il pezzo che sta tra le linee di puntini serve a cambiare  
  //la data nel formato --/--/-- h:--.--
  //se non volete questa possibilità potete cancellare tutto il pezzo che
  //sta tra le righe di puntini:
 
  //...................................
  colDate:
   begin
    tmpString := PaintString;
    n:=length(PaintString);
   	//ora faccio a pezzi la data e la ricostruisco come pare a me
 
   if ((n=16) or (n=17)) then  //la data ha già l'anno di due cifre
   begin
    PaintString := Copy(PaintString, 1, 8) + '  h:';
    case n of
     16:
     PaintString := PaintString + ' ' + Copy(tmpString, 10, 4);
     17:
     PaintString := PaintString + ' ' + Copy(tmpString, 10, 5);
    end;
   end  
   else  //la data ha l'anno di quattro cifre
   begin
    PaintString:=Copy(PaintString, 1, 6) + Copy(PaintString, 9, 2) + '  h:';
    case n of    
     19: 
     PaintString := PaintString + Copy(tmpString, 12, 5);     
     18:
     PaintString := PaintString + ' ' + Copy(tmpString, 12, 4);
     //se le ore da 0 a 9 vi piacciono con lo 0 davanti, nella riga sopra 
     //mettete uno 0 dentro a ' ' al posto dello spazio
    end; //case
   end; //if
   //.................................
 
 end; //case
 
end;
result:=PaintString;
end;
begin
end.
-- 
Maria Luisa C - 12/01/2004 8.49.30, here.
http://fido.altervista.org/

 program OnArticleListPaint;
Grazie, sei stata gentilissima! :)
Ho provato e funziona.
Applicava l'asterisco alla prima colonna a sinistra, che da me era il
contalinee, ma ho risolto spostando Status/Score come prima colonna.
L'asterisco , inoltre, non compare se seleziono il pannello della
lista degli Header, ma credo che questo sia previsto, anche l'altro
script che avevo in PaintString (elimina From dal capothread) si
comporta allo stesso modo.
La data, invece, da me non la cambia, probabilmente perché in
Impostazioni Internazionali avevo già modificato il formato a
DD/MM/YY, ma va bene così.
Grazie ancora per lo script "su misura"! :)
-- 
Enrico C
Do Something Amazing Today
Save a Life, Give Blood

 Grazie ancora per lo script "su misura"! :)
LOL!
Sono io che ringrazio te per avermi dato l'opportunità di conoscere lo
script di Matija: non ci avevo mai prestato attenzione perché la descrizione
iniziava con "To make Dialog behave like Agent"... :Þ
-- 
Maria Luisa C - 12/01/04 13.02.32, here.
http://fido.altervista.org/

 Te lo riincollo tutto ( e mille grazie per la tua disponibilità:
Ma figurati, lo faccio volentierissimo, se mai sei tu che sei da ringraziare 
perchè rendi pubbliche le tue creature ^_-
L'unica problema è che ti devo far aspettare fino a stasera, perchè qui al 
lavoro non ho dialog ^_^;
Inviato da 
www.mynewsgate.net

 In che senso? ^_^;
Update:
Sono riuscita a mettere la data corta in Windows. Non so dirti perché ieri
sera non me l'aveva presa (forse dormivo).
Così ho potuto verificare che ora lo script funziona anche in questo caso.
Ciao,
-- 
Maria Luisa C - 12/01/04 13.28.20, here.
http://fido.altervista.org/

 Grazie, Antonio! :))
Piacere mio :-)
-- 
Fare Well! | 40tude Dialog v2.0.10.1
G          | 
http://snurl.com/dialog
Glamdring it is called, for the Elves made it long ago.

 Così ho potuto verificare che ora lo script funziona anche in questo caso.
Uff, quindi non servo più... :(
^_-

 iniziava con "To make Dialog behave like Agent"... :Þ
Sì, come hai visto, serve a sostituire il Subject con il solo Nome in
tutti i messaggi del thread dopo quello iniziale.
Uno dei miei screeenshot mostra l'effetto che fa
http://www.lillathedog.net/dialog/screenshots/Enrico_C_HeadersList.htm


 iniziava con "To make Dialog behave like Agent"... :Þ
Sì, come hai visto, serve a sostituire il Subject con il solo Nome in
tutti i messaggi del thread dopo quello iniziale.
Uno dei miei screeenshot mostra l'effetto che fa
http://www.lillathedog.net/dialog/screenshots/Enrico_C_HeadersList.htm
-- 




C'è qualcosa che non capisco: il tuo screenshot mostra il pannello degli
header esattamente come l'avevo io prima di inserire lo script di Matija,
cioè avendo la colonna Subject impostata con %subjectnamechange%. Lo puoi
vedere anche tu dal mio screenshot che hai. Con il nuovo script attivo,
invece, ti deve sparire il nome anche dal primo messaggio del thread. Ti
faccio uno screenshot per farti vedere come viene:
http://www.fido.altervista.org/Dialog/immagini/xEnrico1.png
solo che così per me non ha senso, perché nel pannello degli header per
sapere l'autore del primo messaggio devi per forza aggiungere la colonna
Name con valore %fromname%. Ma allora, dal secondo messaggio in poi, avresti
tutti i nomi due volte. Quindi nel Subject ho messo il valore
%threadindent%%subject% e il risultato è questo:
http://www.fido.altervista.org/Dialog/immagini/xEnrico2.png
che, come vedi, è più o meno come quello di Alan Ford.
Insomma, secondo me c'è qualcosa che ti impedisce di far andare quello
script di Matija, e ora anche il mio. Per verificarlo basta che nella
finestra degli script fai, per OnArtcleListPaint, "Elimina la versione
compilata". Se non ti cambia niente nella visualizzazione, è la prova che
non ti funziona.
Facci sapere :)
-- 
random anagram: Eleven plus two = Twelve plus one
Maria Luisa C - 12/01/04 21.35.59, here.
http://fido.altervista.org/

 ^_-
Come no! Intanto dicci se ti funziona (non si sa mai, vedi che Enrico ha dei
problemi).
BTW, grazie ancora :)
-- 
random anagram: The Country Side = No City Dust Here
Maria Luisa C - 12/01/04 22.30.59, here.
http://fido.altervista.org/

 ^_-
BTW, già che c'ero ho controllato il tutto ugualmente, con anche la
variante "per Enrico" (che trovo utile anch'io), e confermoi che
funziona tutto alla perfezione ^_^
Una minuzia, se vuoi magari aggiungerci un mini-commento: ^_^;
la variabile points è superflua qualora si ometta la parte fra
asterischi, ed infatti la sua esistenza viene segnalata come warning dal
compilatore, anche se ovviamente la compilazione va a buon fine e tutto
funziona come si deve :)

 BTW, grazie ancora :)
Ma figurati :)

 funziona come si deve :)
Hai ragione, si può benissimo eliminare (è il guaio di fare le cose a
pezzi).
Allora basta eliminare points nella dichiarazione delle variabili e lasciare
solo:
n: Integer;
Poi sotto, tra gli asterischi, sostituire points con n.
Grazie 1000... anzi n !
-- 
random anagram: The Cockroach = Cook, Catch Her
Maria Luisa C - 12/01/04 22.47.19, here.
http://fido.altervista.org/

 visualizzazione, č la prova che non ti funziona. Facci sapere :)
Provato, e non cambia.
Ma non ti preoccupare, a me piace proprio cosě :))
-- 
Enrico C
Sondaggino: Che dizionario online di inglese usi?
| 
http://www.lillathedog.net/icling/dizionari_inglese.html

   //***********************************
Oggi mi sono accorta che sta molto meglio mettere:
if points mod 2 = 1 then  PaintString := '*' + PaintString;
Cosě almeno i punteggi restano allineati sulla destra.
Ciao,
-- 
random anagram: Debit card = Bad Credit
Maria Luisa C - 15/01/04 21.11.38, here.
http://fido.altervista.org/

 Così almeno i punteggi restano allineati sulla destra.
Vero! Meglio :)
-- 
Enrico C
Have fun!
http://www.foulds2000.freeserve.co.uk/economists.htm

 Vero! Meglio :)
Penso anch'io!
Se non ti scoccio troppo domani cambio lo screenshot sul tuo sito %-)
Tu poi cancella quello vecchio.
Ah, mi sono messa sulla mappa, tra Alan Ford e Darkside, stretta al punto da
soffocare! ;)
-- 
random anagram: Vacation Times = I'm Not as Active
Maria Luisa C - 15/01/04 23.39.26, here.
http://fido.altervista.org/

 soffocare! ;)
Ma dai! Sono stato aggiunto, grazie a Alan Ford, suppongo.
Follow-up su: poster
-- 
16/01/2004 20.25.01, daRkSidE