Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Topics - Gianluigi

Pagine: 1 ... 10 11 [12]
166
 Piccola rappresentazione di come agisce la rotazione del testo in un'area di disegno.
 Dimostra che la rotazione è data dai valori presenti nei metodi Traslate relativi
 alle misure dell'area di disegno e a quelle del testo.
 E' come se il fulcro di Translate agisse da vortice, a seconda di dove si pone
 il testo nel vortice esso (il testo) ruoterà.

Per ora l'ho provato solo in Ubuntu, se avete voglia di provarlo e dirmi se va bene vi ringrazio anticipatamente.

 :ciao:

PS: Provato anche con Kubuntu tutto OK  :ok:

PS2: Scusate per errore ho inserito una versione di prova, funzionante ma con troppi copia e incolla che, se mi passate il parolone, era poco didattica.
Sostituita con quella definitiva

167
Programmazione / Come spostare il testo in un'area di disegno.
« il: 01 Giugno 2014, 00:16:44 »
Allego piccola dimostrazione commentata di come si può spostare il testo in un'area di disegno come lo facciamo abitualmente nei programmi professionali e cioè senza strani sbalzi e spostamenti non voluti rispetto alla posizione della scritta e del mouse.
Se riscontrate delle anomalie con la vostra distribuzione siete gentilmente pregati di dirmelo grazie

Io l'ho testata su Ubuntu e Kubuntu e sembra funzionare bene.

168
Programmazione / GTK batte QT 600 a 0.
« il: 24 Maggio 2014, 15:36:01 »
Allego progetto grafico GTK che dimostra la superiorità (e semplicità) in Gambas delle librerie GTK rispetto alle QT.  :P

Sfido i sostenitori QT a dimostrarmi il contrario. ;D

169
OpenSource / Matteo Renzi vuole Consigli: rispondiamo
« il: 20 Maggio 2014, 21:08:12 »
Vi riporto un appello apparso sul sito del Majorana di Gela fatto dal Pro. Antonio Cantaro che a qualcuno interessato potrebbe essere sfuggito.

mercoledì 07 maggio 2014

OGGETTO: Matteo Renzi vuole Consigli: rispondiamo


Il Presidente Matteo Renzi, in vista della riforma della Pubblica Amministrazione prevista per giugno, ha reso disponibile un indirizzo e-mail a cui inviare i nostri suggerimenti. Fino al 30 maggio 2014, abbiamo la possibilità di indicare una enorme fonte di risparmio che è del tutto indolore (tranne per qualche multinazionale straniera). Scriviamo tutti, se in tanti, potrebbe funzionare veramente ...

Questa iniziativa non appartiene a nessun partito politico ma solamente e semplicemente al buon senso degli italiani.

170
Vediamo se riesco a ricostruire tutti i passaggi fatti per arrivare ad una spero soddisfacente “Compilazione di Gambas3 Trunk Sub Version su Ubuntu 14.04 LTS”:

1)    Togliersi subito alcuni dubbi, con mirate ricerche sul web e ponendo qualche domanda alle persone più esperte, a me ne sono bastate un paio a vuott  ;D.

2)   Andare alla voce Compilation & Installation in gambaswiki.org>wiki>Documents.

3)   Leggere attentamente tutta le cose scritte (requisiti, pacchetti indispensabili, spiegazioni sugli esoterici comandi etc., le ulteriori spiegazioni della propria distribuzione).

4)   Questo passaggio andrebbe letto ma non eseguito se avete Ubuntu 14.04, in quanto comporterebbe maggior lavoro e visto che io l'ho già fatto..., qui lo spiego perché in futuro su altri Ubuntu (o su altre distro),  temo occorrerà (ri)farlo.
NB: Siccome avevo Gambas3 3.5.3, l'ho prima rimosso completamente questo si può fare in vari modi da terminale con RM ma io temo un po questo comando e quindi ho usato Ubuntu Software Center.
Poi da Impostazioni di Sistema>Software e Aggiornamenti ho eliminato il PPA. Che occorra questo passaggio non sono affatto sicuro (eventuali approfondimenti sono molto graditi  :)) io l'ho fatto per evitarmi possibili conflitti e male non ha fatto, e poi se uno desidera ritornare a sistemi più tranquilli si fa presto a rimetterlo.
Quindi alla pagina specifica di Ubuntu>Gambas3 Compilation>Gambas3 (version>= 3.5 or...) ho copiato e dato i seguenti comandi:
~ $ sudo apt-get install subversion

Con il prossimo comando crei la cartella (directory) Trunk dove viene scaricato tutto quello che occorre a Gambas per installarsi:
~ $ svn checkout svn://svn.code.sf.net/p/gambas/code/gambas/trunk

Questo installa le librerie ecc.
~ $ sudo apt-get install build-essential autoconf libbz2-dev libmysqlclient-dev unixodbc-dev libpq-dev libsqlite0-dev libsqlite3-dev libglib2.0-dev libgtk2.0-dev libcurl4-gnutls-dev libgtkglext1-dev libpcre3-dev libsdl-sound1.2-dev libsdl-mixer1.2-dev libsdl-image1.2-dev libxml2-dev libxslt1-dev librsvg2-dev libpoppler-dev libpoppler-glib-dev libxtst-dev libffi-dev libqt4-dev libglew1.5-dev libimlib2-dev libv4l-dev libsdl-ttf2.0-dev libgnome-keyring-dev libgdk-pixbuf2.0-dev linux-libc-dev libgsl0-dev libgstreamer1.0-dev libgstreamer-plugins-base1.0-dev libcairo2-dev libgsl0-dev libncurses5-dev libgmime-2.6-dev llvm-3.1-dev libalure-dev  
(l'è cortino vero!).

Con questo comando ci si sposta nella cartella:
~ $ cd trunk

Con questo comando si riconfigura il tutto:
~/trunk $ ./reconf-all

Ottenendo questi responsi:
||
|| THESE COMPONENTS ARE DISABLED:
|| - gb.db.postgresql
|| - gb.gmp
|| - gb.gtk3
|| - gb.jit


Qui attraverso l'aiuto e i consigli di vuott e ricerche web ho installato le seguenti librerie libgmp-dev, libgtk-3-dev con Synaptic inserendo come da suggerimento della documentazione questa ricerca LLVM >= 3.1 ho ottenuto questa libreria: llvm 1:3.4-0ubuntu1 che poi è Jit un acceleratore che pare mandi al 100% la CPU (fonte vuott).
Le ricerche di gb.db.postgresql mi davano come risultato le librerie che avevo già installate e cioè:
libpq5, libpq-dev, rsyslog, librdf0.

A questo punto ho deciso di compilare lo stesso per vedere cosa succedeva e quindi ho dato questo comando che avevo trovato sulla MLU, serve a compilare e ad ottenere l'output su file di testo (log):
~/trunk $ ( ./reconf-all && ./configure -C && make && sudo make install ) > ~/Scrivania/compile.log 2>&1
 
Ottenendo questo:
||
|| THESE COMPONENTS ARE DISABLED:
|| - gb.db.postgresql

  
Insieme a 266 warning i più tanti da GTK e Jit

A questo punto come da suggerimento di vuott ho chiesto sulla MLU e ho avuto diversi suggerimenti: ad esempio da Willy Reats: mi ha indicato il sito di Ubuntu alle quattro voci di libreria dove ho scoperto che se retrocedi alla pagina precedente e poi inserisci il nome richiesto da Gambas tolto gb. è possibile trovare molte informazioni esempio: Gambas ti avvisa che non trova (disabled) la libreria gb.gmp? Alla pagina di packages.ubuntu.com/trusty/libdevel/ puoi fare una ricerca con trova (gmp) di Firefox e ti vengono evidenziati i seguenti risultati (io ho installato entrambe le librerie):

libgmp-dev (2:5.1.3+dfsg-1ubuntu1)
    Multiprecision arithmetic library developers tools
libgmp3-dev (2:5.1.3+dfsg-1ubuntu1)
    Multiprecision arithmetic library developers tools

Comunque o con Synaptic o con Gambas Wiki e Ubuntu Package Search togliendo gb davanti e aggiungendo – dev dietro e un po di aiuto.... ora vado al punto successivo.

5)   Ecco i comandi e le librerie che mi sono serviti per compilare Gambas3 Trunk su Ubuntu 14.04 LTS:
~ $ sudo apt-get install subversion

~ $ svn checkout svn://svn.code.sf.net/p/gambas/code/gambas/trunk

~ $ sudo apt-get install build-essential autoconf libbz2-dev libmysqlclient-dev unixodbc-dev libpq-dev libsqlite0-dev libsqlite3-dev libglib2.0-dev libgtk2.0-dev libcurl4-gnutls-dev libgtkglext1-dev libpcre3-dev libsdl-sound1.2-dev libsdl-mixer1.2-dev libsdl-image1.2-dev libxml2-dev libxslt1-dev librsvg2-dev libpoppler-dev libpoppler-glib-dev libxtst-dev libffi-dev libqt4-dev libglew1.5-dev libimlib2-dev libv4l-dev libsdl-ttf2.0-dev libgnome-keyring-dev libgdk-pixbuf2.0-dev linux-libc-dev libgsl0-dev libgstreamer1.0-dev libgstreamer-plugins-base1.0-dev libcairo2-dev libgsl0-dev libncurses5-dev libgmime-2.6-dev llvm-3.1-dev libalure-dev  

Installate come meglio vi garba le seguenti librerie, da terminale si può fare così:
~ $ Sudo apt-get install  libgmp-dev libgmp3-dev  libgtk-3-dev llvm-3.4 postgresql-server-dev-9.3

~ $ cd trunk

~/trunk$ ( ./reconf-all && ./configure -C && make && sudo make install ) > ~/Scrivania/compile.log 2>&1 (oppure Desktop al posto di Scrivania)

Ottenendo questo risultato:

119 warnig di cui:
Due da questo:
|| Unable to find file: libintl.so
|| This library may be located inside the system C library, so you can
ignore that warning...
|| Unable to find file: libiconv.so
|| This library may be located inside the system C library, so you can
ignore that warning...
Uno su questo: gbi3: warning: component gb.xml.rpc not found
Gli altri divisi fra: GTK and Jit
Inoltre:
|| ALL COMPONENTS WILL BE COMPILED

Chiesto a Jussi Lahatinen un parere, ha risposto che è tutto OK.

Questo è quanto, essendo questa la mia prima compilazione spero di essere stato esatto nei passaggi.

Buon Gambas a tutti.

PS: Per completare il tutto in un post... Aggiornamento a mezzo svn:

Ogni qualvolta lo riteniamo opportuno, possiamo lanciare da terminale la riga:
 
~ $ svn checkout svn://svn.code.sf.net/p/gambas/code/gambas/trunk

per vedere se c'è qualche aggiornamento.

La procedura completa è:

~ $ svn checkout svn://svn.code.sf.net/p/gambas/code/gambas/trunk
~ $ cd trunk
~/trunk $ ./reconf-all
~/trunk $ ./configure -C
~/trunk $ make && sudo make install

NB: Il primo comando ( svn checkout svn://s...) occorre darlo stando bene attenti di non essere all'interno della Directory Trunk altrimenti creeremmo un'altra cartella denominata Trunk all'interno della Directory Trunk.

171
OpenBar / Buona Pasqua
« il: 19 Aprile 2014, 22:11:07 »
Buona Pasqua ai Gamberi di tutte le taglie.

 :ciao:

172
Programmazione / [RISOLTO] Database e stringhe speciali
« il: 03 Aprile 2014, 16:45:59 »
Volevo chiedere un parere su questa mia soluzione per inserire stringhe speciali in campi di database SQLite3.
Per funzionare funziona, almeno nelle mie prove, però non mi pare molto professionale.

Qualche suggerimento?



Codice: gambas [Seleziona]
Public Sub PopoloTabella()
  
  Dim hTabella As Result
  Dim sMioSql As String
  Dim sIndirizzo As String
  Dim sFrase As String
  
  ' Scusate per distrazione avevo lasciato il riferimento ad altro modulo
  'sIndirizzo = mFunzioni.PerSql("Immagini/Dollaro 3.png")
  'sFrase = mFunzioni.PerSql("Pippo\nPluto\nPaperino")
  ' E' (più) corretto così
  sIndirizzo = PerSql("Immagini/Dollaro 3.png")
  sFrase = PerSql("Pippo\nPluto\nPaperino")
  
  ' questo si spiega da solo no?
  AproDB
  
  $Conn.Begin
  
  sMioSql = "INSERT INTO miaTabella ("
  sMioSql &= " ID_Tab,"      
  sMioSql &= " Tab_Ind,"
  sMioSql &= " Tab_Fra"
  sMioSql &= " )"
  sMioSql &= " VALUES ("
  sMioSql &= " 1,"                                    
  sMioSql &= " \"" & sIndirizzo & "\","                    ' " '" & sIndirizzo & "',"
  sMioSql &= " \"" & sFrase & "\""  
  sMioSql &= " );"  
  
  hTabella = $Conn.EXEC(sMioSql)
  $Conn.Commit
  $Conn.Close
 
End

Public Sub PerSql(s As String) As String
  
  Dim s1 As String
  
  s1 = Replace$(s, "\n", "akkapo")
  s1 = Replace$(s1, "/", "SLASSS")
  Return s1
    
End


Public Sub PerDraw(s As String) As String
  
  Dim s1 As String
  
  s1 = Replace$(s, "akkapo", "\n")
  s1 = Replace$(s1, "SLASSS", "/")
  
  Return s1
  
End


Vi piace il mio nuovo (primo) avatar non so perché ma mi è venuto in mente il primo Aprile.

 :ciao:

173
Suggerimenti e critiche / Suggerisco di aggiornare l'ora
« il: 02 Aprile 2014, 14:09:03 »
 :ciao:

174
Programmazione / Circa i percorsi di file e directory
« il: 13 Marzo 2014, 22:00:55 »
Vorrei mettere se ci riesco alcuni punti fermi riguardo i percorsi:

I percorsi assoluti sono quelli che iniziano con il carattere “/” oppure “~” e non si devono usare nei nostri programmi Gambas3 perché poi andrebbero persi all'atto della compilazione.

Per i nostri programmi Gambas3 dobbiamo usare i percorsi relativi quelli che iniziano con “~/” oppure con “User.Home” o anche “Application.Path”.

Be naturalmente prima di usare una cartella dell'user.home di uno sconosciuto futuro possibile utilizzatore di un  nostro programma occorrerà testare (“Exist”) che la cartella pardon directory ci sia e in caso negativo crearla (“Mkdir”) per poi andarci a infilare i nostri file.

Bene, ammesso che fino ad ora io abbia scritto cose corrette, ora iniziano i miei dolori perché la documentazione dice che i file che verranno compilati non potranno più essere manipolati rimarranno per quanti sforzi noi potremo tentare sempre e solo di, scusate il bisticcio, sola lettura.

Ne deduco che se io voglio dare all'utilizzatore anche directory e file queste non potranno essere inserite nella cartella dati dell'applicazione e poi copiate p. e.  nell'user.home ma dovranno essere impacchettate a parte.

Intanto questo è il primo quesito: Vanno impacchettate a parte?

Se quanto scritto prima è corretto, vale a dire nel mio programma uso p. e. la User.Home & “/.MiaDirNascosta” nel caso io apra il programma la prima volta testo che non ci sia “MiaDirNascosta” e quindi la creo ecc.
Ora mettiamo che l'utilizzatore apra un altro programma, se io avessi tutto all'interno del programma non ci sarebbero problemi perché si raddoppierebbe tutto, ma in Gambas3 non esiste il concetto di directory di lavoro corrente e così invece...

Qualche buon samaritano, ma anche un santo qualunque va bene, può un poco chiarirmi le idee?  :D

 :ciao:

175
Segnalazione bug / [Risolto] This page does not exist
« il: 12 Marzo 2014, 11:20:18 »
This page does not exist.

Se ho ben capito dal 9 c.m. è in funzione una nuova wiki dalla quale la guida in linea preleva gli argomenti.
Il problema è che tutte le cose che interessano a me sembra siano quelle che interessano meno in generale e che quindi suppongo saranno implementate per ultimo.
Qualcuno ha idea in base ad analoghi trascorsi di quanto tempo occorrerà perché questa situazione si normalizzi.  ???
Grazie e ciao a tutti  :ciao:

ps. lo so che non è un bug ma dove cavolo lo scrivo questo post? Esiste un vademecum che risolva questi dubbi?  :-\

176
Linux / [Risolto] Gambas abbassa le difese naturali di Linux?
« il: 10 Marzo 2014, 16:29:25 »
Ciao a tutti, :ciao:
mi è sorto un atroce dubbio: avendo installato Gambas occorreva installare anche un firewall?

Come ho già avuto modo di raccontare io sono un nuovo(!?) utente di Linux tanto entusiasta quanto scarso sistemista essendo stato (male) abituato da Windows a demandare tutto quanto alla Norton.
Ora è un po di tempo che navigo lento o meglio “più lento del solito” ho controllato la parte hardware (con anche ausilio di tecnico) e dovrei essere ok, quindi ho dato la colpa alla linea ripromettendomi di chiamare il provider.

Quando ecco che ieri, mentre in internet cercavo ausili su SQL ed Sqlite tra un'occhiata al nostro forum e ai risultati delle partite con una scheda aperta su ANSA.it, tutto ad un tratto mi accorgo che i risultati che guardavo erano in ritardo di oltre 30 minuti!

Ora non ditemi che non avevo ricaricato la pagina o che altro perché poi andando su altri siti ho trovato i risultati in tempo reale e quindi ho chiuso internet riaperto su ansa ecc. ma il ritardo persisteva e quindi ho pensato al sito in difficoltà.

Non avendo però trovato traccia di questa notizia allora mi sono interrogato e mi sono chiesto se per caso non fossi diventato uno zombi.

Io sapevo che la sicurezza è demandata principalmente al fatto che se non sei root danni ne puoi fare pochi e che mettere porte chiuse dove occorrono aperte serve solo a crearti problemi.
Però magari invece con Gambas occorre fare qualcosa e poi francamente far navigare qualcuno bello spedito al posto mio mica mi garba.

C'è qualche anima pia che può illuminarmi  :)

177
Domande tecniche / E' normale che Round non arrotondi?
« il: 10 Febbraio 2014, 00:20:47 »
Ho notato una cosa che forse è normale ma ne vorrei se possibile conferma da voi:

Se inserisco nella funzione aritmetica Round un'espressione tipo: Round(Paint.Font.Size * 1.3441,-2) invece di ottenere un numero con due decimali ottengo il numero originale e cioè non arrotondato. In effetti nella guida si parla di numero arrotondato, però nella mia ingenuità credevo funzionasse anche così. :-\

Grazie dell'attenzione

178
Segnalazione bug / [RISOLTO] Finestre di messaggio, possibile bug
« il: 07 Febbraio 2014, 10:56:39 »
 :-[
Chiedo anticipatamente scusa per eventuale sciocchezza, ma a me sembra che le finestre di avviso non funzionino bene almeno sul lato GTK+.
Uso 3.5.99.1+svn20140206+build18~ubuntu13.10.1
Per meglio esplicitarmi allego codice
Codice: [Seleziona]
' Gambas class file

'' Progetto grafico con aggiunta alla Main form una textlabel1
Public Sub _new()

End
'' Possibile bug nelle finestre di avviso?
Public Sub Form_Open()
Dim sMessaggio As String = "Devo dirvi qualcosa di importante, ma cosa?"
Message.Info(sMessaggio)
Message.Delete(sMessaggio)
Message.Error(sMessaggio)
'Message.Optional(sMessaggio, "Pippo", "Delete") ' scusate ma come funziona?
Message.Question(sMessaggio)
Message.Warning("Pare proprio che" & Chr(10) & "se non vado a capo" & Chr(10) & "non riesca a comunicare" & Chr(10) & "con voi. Ciao")
TextLabel1.Text = "grazie dell'attenzione"
End
Un saluto a tutti

179
Sono un nuovo utente entusiasta (nuovo solo per dire avendo ai me superato la sessantina) di Linux  e di Gambas che trovo fantastici. Mi scuso anticipatamente se il tema in oggetto è stato già trattato ma io non sono stato capace di scovarlo.
Lavoro con:
[System]
Gambas=3.5.90
OperatingSystem=Linux
Kernel=3.11.0-15-generic
Architecture=x86_64
Distribution=Ubuntu 13.10
Desktop=GNOME
Theme=QGtk
Language=it_IT.UTF-8
Memory=15978M

[Libraries]
Cairo=libcairo.so.2.11200.16
Curl=libcurl.so.4.3.0
DBus=libdbus-1.so.3.7.4
GStreamer=libgstreamer-0.10.so.0.30.0
GStreamer=libgstreamer-1.0.so.0.200.0
GTK+3=libgtk-3.so.0.800.6
GTK+=libgtk-x11-2.0.so.0.2400.20
OpenGL=libGL.so.1.2.0
Poppler=libpoppler.so.43.0.0
Qt4=libQtCore.so.4.8.4
SDL=libSDL-1.2.so.0.11.4

[SVN]
3.5.99.1+svn20140131+build18~ubuntu13.10.1

Ho avuto conoscenza in Windows con VBA su VBE e li la stampa era gestita in automatico, quindi per me disegnare testo per la stampante è una nuova esperienza.

Problema:
non riesco a far combaciare le misure del testo disegnato sulla DrawingArea con le misure stampate su foglio.
Se io stampo la stringa “TESTOCORTO” con carattere “Ubuntu” 11 otterrò un testo di circa  millimetri 3 in altezza per 24,5 di lunghezza qualunque software io usi per scrivere.
Perché invece Gambas mi da misure diverse?
Per esemplificare quanto chiedo ho creato un programmino il cui codice allego, è un progetto grafico con una DrawingArea denominata “da” su cui il codice disegna per poi mandare alla stampa (metodo commentato per evitare sprechi di carta) la scritta “TESTOCORTO” che viene riquadrata sulla base delle misure fornite da Paint.Font.TestWidth e Paint.Font.TextHeight e poi disegna anche un riquadro giallo che è quello delle misure giuste usate dalla stampante.
Cosa sbaglio? Cosa non ho capito? Dove posso avere una risposta elementare adeguata alla mia bassa conoscenza della programmazione?
Tante grazie anticipate a chiunque vorrà aiutarmi.
Gianluigi
Codice: [Seleziona]
' Gambas class file

'' Ho creato questo esempio come progetto grafico con l'aggiunta alla Main form di una DrawingArea nominata "da".

Private miaStampante As Printer
Private Const MM_X_PX As Float = 0.3527 'per mutare millimetri in pixel e viceversa

Public Sub _new()

End

Public Sub Form_Open()

  miaStampante = New Printer As "Stampa"
  ' mie misure arbitrarie.
  Me.W = 600
  Me.H = 450
  da.Left = 0
  da.Top = 0
  da.W = 550
  da.H = 400
  da.Background = Color.White
  ' Crea subito il disegno e la stampa
  StampoSu("Video")
  'Stampare()
End

Public Sub Stampare()
  
  With miaStampante  
    'Verticale
    .Orientation = 0    
    ' A4 orizzontale
     '.Orientation = 1
    '.PaperWidth = 297
    '.PaperHeight = 210
    .Resolution = Desktop.Resolution '300      
    .FullPage = True 'parte da X0 e Y0 di paper    
    'Print .Resolution
  End With
  Me.Enabled = False
  Inc Application.Busy
  miaStampante.Print
  Dec Application.Busy
  Me.Enabled = True
  
End


Public Sub Stampa_Draw()
  
  StampoSu("Stampante")
  
End

Public Sub StampoSu(sDevice As String)
  
  Dim iH, iW As Integer
  Dim fSpazInLarg, fSpazInAlt, fLargRet, fAltRet As Float
  Dim sTesto As String
  Dim fTratteggio As Float[] = [3.0, 2.0]
                          
    
    Select Case sDevice
      Case "Video"
        da.Cached = True
        da.Clear        
        Paint.Begin(da)
        'Paint.Scale(2, 2)
      Case "Stampante"
        Paint.Begin(miaStampante)
      Case Else
        Return
    End Select    
    'Spazi iniziali di 20 mm.
    fSpazInLarg = 20 / MM_X_PX
    fSpazInAlt = 20 / MM_X_PX
    Paint.Background = Color.Black
    Paint.Save
    'Disegna testo
    'Paint.Font.Name = "Sans Serif"
    Paint.Font.Name = "Ubuntu"
    Paint.Font.Size = "11"    
    'Paint.Font.Bold = True
    sTesto = "TESTOCORTO"          
    iW = Paint.Font.TextWidth(sTesto)
    iH = Paint.Font.TextHeight(sTesto)
    Print Paint.Font.Size
    Print Paint.Font.Name
    Print "H testo = " & iH
    Print "L teso = " & iW                  
    Paint.DrawText(sTesto, fSpazInLarg, fSpazInAlt, 1, 1, 17) '35 = bottom; 33 = BottomLeft; 32 = BottomNormal; 17 = TopLeft    
    Paint.Restore
    ' Disegna rettangolo  
    fLargRet = CFloat(iW)
    fAltRet = CFloat(iH)
    Paint.LineWidth = 0.5    
    'Paint.Background = Color.Black      
    Paint.Rectangle(fSpazInLarg, fSpazInAlt, fLargRet, fAltRet)
    Paint.Stroke(True)
    Paint.Clip      
    ' Visualizza a schermo (rettangolo giallo) l'ingombro reale della scritta sul foglio stampato.
    fLargRet = 24.5 / MM_X_PX
    fAltRet = 3 / MM_X_PX
    Paint.Rectangle(fSpazInLarg, fSpazInAlt + (1 / MM_X_PX), fLargRet, fAltRet)
    Paint.Background = Color.RGB(255, 218, 90, 0)
    Paint.Dash = fTratteggio
    Paint.Stroke(True)
    Paint.Background = Color.RGB(255, 218, 90, 180)
    Paint.Fill
    Paint.End
  
End

Pagine: 1 ... 10 11 [12]