Ciao. 4.5.2 non lo uso più da tempo, la licenza è nel cassetto
insieme alla scatola con manuli stampati originali, la mia prima
licenza di rb. Ma quanto tempo è passato???
Ti posto questo, spero possa andare bene, non ho potuto testarlo
(sempre che abbia capito il problema).
Ciao, Fabio
******
'sembra che il prezzo lo passi come una stringa, per cui...
dim prezzo_da_stampare as String
dim a as Integer
a = g.StringWidth(NthField(prezzo_da_stampare, ",", 1))
g.DrawString prezzo_da_stampare, 150-a, 160
'così ti allinea tutto sulla virgola
******
Il giorno 15/gen/07, alle ore 21:29, <enricolr at libero dot it>
<enricolr at libero dot it> ha scritto:
Ciao a tutti.
Mi trovo in difficoltà con una piccola e sciocca funzione e
chiedevo se qualcuno di Voi può aiutarmi. Mi spiego meglio.
Ho un vecchio programma in RealBasic 4.5.2. Mac OS X Ita che non
posso convertire in un formato più recente.
Il problema è l'allineamento a destra dei caratteri numerici. Ho
creato una piccola funzione che riporto qui sotto che mi serve per
contare fisicamente il numero dei caratteri che formano il numero.
Dim ctrs as integer
ctrs = 1
do until mid(numero-da-stampare,ctrs,1) = ""
ctrs = ctrs +1
loop
g.drawstring numero-da-stampare,150-ctrs,160
in questo modo alla posizione di stampa 150 sottraggo il numero di
cifre che compongono il numero.....ma il risultato è che
l'allineamento è sempre a sinistra e non a destra.
Accetto qualsiasi consiglio.
Grazie Enrico
|