Italian La prossima settimana, VACANZE... ma per ora vado avanti

Deleted member 103 · Jun 17, 2015

@LucaMs
Perchè non domandi a Erel di creare un "Chit Chat" come Sub-Forum nel "Italian Forum" ?

LucaMs · Jun 17, 2015

Perché:

1) non è che io ed Erel siamo pappa e ciccia

2) perché se ha previsto un chit chat generale, non penso che faccia un'eccezione per noi (altrimenti poi lo chiederanno anche tedeschi, cinesi...)

3) perché il sito di MaxWare non è male, solo che non lo frequentiamo

Deleted member 103 · Jun 17, 2015

Perché:

Lo domando a te per il tuo inglese, il mio inglese lo devo domandare sempre a google prima.

LucaMs · Jun 17, 2015

Filippo said:
Lo domando a te per il tuo inglese, il mio inglese lo devo domandare sempre a google prima.

Perché tu pensi che io parli inglese? Io uso Google Translate e cerco di correggere le sue traduzioni

Deleted member 103 · Jun 17, 2015

2) perché se ha previsto un chit chat generale, non penso che faccia un'eccezione per noi (altrimenti poi lo chiederanno anche tedeschi, cinesi...)

Penso che tu abbia raggione.

maxware · Jun 17, 2015

Calimero.....calispero......ciaoooo dalla Grecia

Deleted member 103 · Jun 17, 2015

maxware said:
Calimero.....calispero......ciaoooo dalla Grecia

Buone vacanze.
Sei contento del mangiare greco?
Sono stato 2 anni fa a creta, ma di mangiare greco non ne ho visto.
Il giorno stesso che sono tornato in germania sono andato in un ristorante greco a mangiare.

maxware · Jun 17, 2015

Hiha...villaggio veraclub naxos...cuoco italiano super veramente bravo....peccato son finite venerdi si torna

LucaMs · Jun 17, 2015

Come se magna in Italia, non se magna da nessuna parte!

(guarda quanto magnano i politici!)

LucaMs · Jun 17, 2015

Oh, voi "siete qui"... io anche su b4xitaliagroup!

Sempre solo

Ok, vorrà dire che ci scriverò la mia autobiografia (così chi leggerà otterrà subito... i capelli bianchi, hehehe).

Magari anche il mio testamento.

LucaMs · Jun 17, 2015

Bene... "m'avete rimasto solo"... me ne vado anch'io hehehe

Buona serata

Deleted member 103 · Jun 17, 2015

maxware said:
Hiha...villaggio veraclub naxos...cuoco italiano super veramente bravo....peccato son finite venerdi si torna

Allora anche tu non hai visto mangiare greco.

luciano deri · Jun 18, 2015

LucaMs said:
Di niente. Spero che funzioni, non è che io abbia provato, ovviamente, soltanto mi sembra che abbia una certa logica e possibilità di riuscita.

Funziona quasi, anche con Fonts.COURIER e Typeface.MONOSPACE la dimensione dipende anche dai caratteri e non solo dal loro numero. Comunque la cosa è utile nella stampa dei valori numerici, di seguito la sintesi della soluzione.

B4X:

PDFWriter1.setFont(Fonts.SUBTYPE, Fonts.COURIER)
       str = NumberFormat2(NUMERO,0,2,2,False)
        str = str.Replace(".",",")
        TextWidth = CalcPDFTextWidth(str,Typeface.MONOSPACE,10)
        MarRight = 560 ' margine destro desiderato
        MarLeft = MarRight - TextWidth 'margine sinistro calcolato
        PDFWriter1.addText(MarLeft,580 - (11 * nr),10, str) 'nr indice record letto scorrendo un DB
Public Sub CalcPDFTextWidth(TestoDaStampare As String, TFace As Typeface, FontSize As Float) As Float
    Dim C As Canvas
    C.Initialize(Activity)
    Dim TextWidth As Float
    TextWidth = C.MeasureStringWidth(TestoDaStampare, TFace, FontSize)
    TextWidth = TextWidth * 0.70 ' aggiustamento chissà perchè è necessario un aggiustamento... A occhio questo è il valore giusto
    Return TextWidth
End Sub

LucaMs · Jun 18, 2015

Beh, affinché funzioni, dovresti usare lo stesso font, sia per il PDF che per B4A.
E' possibile cambiare i font di default di B4A, eh!

(asp che cerco come, perché a memoria sono scarsino, hehehe)

Però sono veloce

B4X:

Dim default_font, default_font_bold, default_font_italic As Typeface

SetFont("xxxxxx.ttf")


Private Sub SetFont(FontFileName As String)
    default_font = Typeface.LoadFromAssets(FontFileName) 'ignore
    default_font_bold   = Typeface.CreateNew(default_font, default_font.STYLE_BOLD)
    default_font_italic = Typeface.CreateNew(default_font, default_font.STYLE_ITALIC)
End Sub

luciano deri · Jun 18, 2015

LucaMs said:
Beh, affinché funzioni, dovresti usare lo stesso font, sia per il PDF che per B4A.
E' possibile cambiare i font di default di B4A, eh!

(asp che cerco come, perché a memoria sono scarsino, hehehe)

Però sono veloce

B4X:

Dim default_font, default_font_bold, default_font_italic As Typeface SetFont("xxxxxx.ttf") Private Sub SetFont(FontFileName As String) default_font = Typeface.LoadFromAssets(FontFileName) 'ignore default_font_bold = Typeface.CreateNew(default_font, default_font.STYLE_BOLD) default_font_italic = Typeface.CreateNew(default_font, default_font.STYLE_ITALIC) End Sub

Non ho capito.
Così scelgo il font di stampa nel PDF
PDFWriter1.setFont(Fonts.SUBTYPE, Fonts.COURIER) ' curier è a dimensione fissa
CalcPDFTextWidth(str,Typeface.MONOSPACE,10) ' calcolo con typeface.monospace, che dovrebbe essere la caratteristica del curier, dimensione 10
PDFWriter1.addText(MarLeft,580 - (11 * nr),10, str) 'stampo con dimensione 10
....

LucaMs · Jun 18, 2015

non so se typeface.MONOSPACE corrisponda a courier 10, ma nel momento in cui vorrai cambiare font PDF, per ottenere le stesse proporzioni, dovrai passare (quindi caricare) lo stesso tipo di font anche in B4A.

LucaMs · Jun 18, 2015

Provo a spiegarmi meglio.

Se decidi di voler stampare parte di una pagina PDF con font "Georgia", userai quel comando di PDFWriter (che, ti ricordo, non conosco!) setFont.

Alla funzione CalcPDFTextWidth dovrai passare TFace, che dovrà essere caricato tramite la funzione setFont che ho pubblicato in #1314

luciano deri · Jun 18, 2015

LucaMs said:
Provo a spiegarmi meglio.

Se decidi di voler stampare parte di una pagina PDF con font "Georgia", userai quel comando di PDFWriter (che, ti ricordo, non conosco!) setFont.

Alla funzione CalcPDFTextWidth dovrai passare TFace, che dovrà essere caricato tramite la funzione setFont che ho pubblicato in #1314

L'allineamento a destra serve per incolonnare i numeri in modo che ogni cifra sia incolonnata, questo è possibile solo se usiamo un font monospace. Dovrei passare al CalcPDFTextWidth un TFace corrispondente al Curirer visto che evidentemente non corrisponde al generico monospace.
P.S
mi scarico courier.ttf e lo aggiungo ai file della APP, quindi e chiamo SetFont("courier.ttf") nell'activate

LucaMs · Jun 18, 2015

Courier New è a spaziatura fissa, mi sembra.

[P.S. https://it.wikipedia.org/wiki/Lista_di_tipi_di_carattere#A_spaziatura_fissa ]

LucaMs · Jun 18, 2015

hhhhuuuuuuhhhhhh

Quasi riesco a "vederti" !

(a proposito: sei anche protagonista nell'app di @erosmax )

Ti iscrivi al sito di MaxWare? b4xitaliangroup

Italian La prossima settimana, VACANZE... ma per ora vado avanti

Deleted member 103

Guest

Expert

Deleted member 103

Guest

Expert

Deleted member 103

Guest

Well-Known Member

Deleted member 103

Guest

Well-Known Member

Expert

Expert

Expert

Deleted member 103

Guest

Active Member

Expert

Active Member

Expert

Expert

Active Member

Expert

Expert

Privacy & Transparency

Privacy & Transparency