mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Zippare dei file

Ciao a tutti,
dovrei fare un programmino che selezionando un elenco di file, mi crei un
file zippato autoscompattante, e inviare tutto via email.
Il problema grosso è fare uno zip in più autoscompattante, speravo, se non
ci sono delle librerie in delphi, che mi potevo interfacciare con qualche
programma, tipo Winzip o altro.
Qualcuno può aiutarmi ?
Grazie
--
Ciao
Stefano Tampieri
ICQ 51832013

Hello Stefano.
07 May 00 10:53, you wrote to All:
 ST> Ciao a tutti,
 ST> dovrei fare un programmino che selezionando un elenco di file, mi crei
 ST> un file zippato autoscompattante, e inviare tutto via email. Il
 ST> problema grosso è fare uno zip in più autoscompattante, speravo, se
 ST> non ci sono delle librerie in delphi, che mi potevo interfacciare con
 ST> qualche programma, tipo Winzip o altro. Qualcuno può aiutarmi ? Grazie
pkzip, con gli appositi parametri dovrebbe farlo. Al piu' a delphi fai prima
scrivere  un file ascii con i file da compattare, poi fai lanciare pkzip con
gli appositi parametri che leggera' quel file. Nel pacchetto di pkzip
doverbbe anche esserci un apposita utility per renderlo autoscompattante.
Filippo

 programma, tipo Winzip o altro.
Ciao, forse potresti guardare sulle pagine di Torry (Components, Data
Compress)
Torry :
http://torry.rimini.com/
Davide DG

Il file autoscompattante l'ho fatto, (usato componente con dll su torry)
ora devo mandarlo via email, qualcuno ha delle idee ?
ho provato con mailto:
indirizzo
ma l'allegato come lo metto ?

...


 wrote in message
8f6162$mun$1...@news.IT.net...


...


ho provato così :
Shellexecute(0,nil,'mailto:
Pi...@Pallino.it
?subject=Oggetto&add="c:\Tuofile.
doc"',nil,nil,0);
prendendolo da un messaggio precedente, ma non funziona.
l'oggetto del messaggio lo imposta
ma non l'attachment.
Aiuto.
Grazie.
Stefano Tampieri
Newsgroup: it.comp.lang.delphi
Titolo: D7 procedure

Buondì a tutto l'NG
Ho un un paio di domande:
1) 'facile' Quando creo una DLL posso inserire componenti grafici come in
una form?
2) Ho una form con vari componenti, ho dichiarato una procedura così nella
sezione della dichiarazione degli eventi dei bottoni
procedure faiquello(); //perchè non ha parametri e non restituisce niente
poi nel codice la uso così:
try
  faiquello();
except
All'interno della funzione non posso utilizzare gli oggetti che ho sulla
form, il compilatore dice:
[Error] Unit1.pas(91): Undeclared identifier: 'FileListView1'
cosa devo aggiungere per riuscire ad utilizzare i componenti?
Ciao 
Paolo
--
pbonfanti2@*NOSPAM*
inwind.it
Togliere dall'indirizzo *NOSPAM*

 Paolo
Ciao
  gabriele

   gabriele


 se non hai capito chiedi che risponderò
Sono io che ho scritto malissimo!!!
allora se hai un componente es il tuo FileListView nella sezione della
dichiarazione della tua
unit da qualche parte c'è scritto :
FileListView1 : TFileListView;
a quel punto vai con il cursore su TFileListView premi f1 e vedi nell'help
in che unit è contenuta la classe Tfilelistview.
Questo ovviamenete se si tratta di componenti o procudure contenute nalla
VCL in caso
di componenti di terzi devi vedere sull'help specifico.
Ciao
    gabriele

 VCL in caso
Ok fatto ma ho visto che nella clausola uses ci sono tutte queste classi...
Ho provato a copiare la funzione all'interno della procedura chiamante e
funziona (solo che è un pò lunga).
Grazie di tutto
se ti viene in mente ancora qualcosa fammi sapere


 in che unit è contenuta la classe Tfilelistview.
Ok fatto ma ho visto che nella clausola uses ci sono tutte queste classi...
Ho provato a copiare la funzione all'interno della procedura chiamante e
funziona (solo che è un pò lunga).
Grazie di tutto
se ti viene in mente ancora qualcosa fammi sapere
p.S. dalla listview in multiselection) come faccio a farmi restituirer gli
item che ha selezionato?

Newsgroup: it.comp.lang.delphi
Titolo: Core e Gui

Nello sviluppo del programma che sto realizzando vorrei tenere separati il
Core e la Gui, dove per Core intendo la "logica" del programma e le
strutture dati "interne" e per Gui la pura interfaccia grafica.
Ma come fare in pratica?
Esempio:
ho realizzato una mia struttura ad albero (una classe) con una sua "logica".
Vorrei che l'albero sia anche visualizzabile ma non mi voglio preoccupare di
*come* verrà visualizzato.
Sarà però necessario fornire alla Gui alcune informazioni; esempio quando
viene creato un nuovo nodo dell'albero (ad esempio in seguito all'arrivo di
un messaggio da un certo indirizzo IP) devo comunicare alla Gui che c'è un
nuovo nodo che dove essere visualizzato.
Grazie per gli eventuali suggerimenti.
Ciao a tutti


ABLS Team - 
www.abls.it
SINTESI S.r.l. - 
www.sintesi.com

 chiamando un metodo apposito che ne provoca l'aggiornamento.
Innanzitutto grazie per la risposta.
Credo di aver capito.
Effettivamente stavo già facendo una cosa che per certi versi assomiglia a
quello che hai descritto (non nella parte della lista dei controlli).
Provo a spiegarla, prendendo ad esempio quello di una struttura ad albero.
Ho costruito una classe Tree che contiene la parte logica ed una
"predisposizione" alla visualizzazione.
La "predisposizione" consiste semplicemente nel chiamare ove necessario
alcuni dei metodi definiti per la classe stessa: ad esempio quando viene
inserito un nuovo nodo viene chiamato il metodo OnNewNode (Tree.OnNewNode).
Il metodo è "vuoto", non fa niente ed è definito come virtual.
Ora se voglio visualizzare l'albero non dovrò far altro che definire una
nuova classe, esempio MyTree che eredita da Tree e poi faccio un override
dei metodi OnNewNode, OnNodeChange, ecc... che non saranno più vuoti (dovrò
scriverci del codice dentro) e si occuperanno della visualizzazione.
Il meccanismo è simile ed inverso a quello dei componenti visuali:
i componenti visuali si occupano della visualizzazione e forniscono alcuni
metodi (esempio OnClick)  per gestire la parte "logica"
i "miei componenti logici" si occupano invece della logica e forniscono
metodi gestire la parte visuale.
Quindi quello che devo fare ora è usare un componente visuale e un
componente logico insieme; i metodi faranno da semplice interfaccia tra i
due componenti.
Ciao!

 ha scritto nel messaggio
news:aqt5am$2di$1...@newsreader.mailgate.org...

Credo che tu abbia trovato una soluzione molto buona.
In realtà, il grado di separazione tra la logica e la grafica non è una cosa
misurabile praticamente; ognuno sceglie la soluzione che meglio si adatta
alle proprie esigenze valutando quanto consente di gestire con facilità il
codice sorgente.
Quello che ti ho presentato io è il metodo che mi va più a genio.
"Navigherei" bene anche nel tuo metodo... ma esisteranno sicuramente
migliaia di altre soluzioni possibili!
Buon lavoro! :-)


 Credo che tu abbia trovato una soluzione molto buona.
Credo comunque che il tuo metodo sia migliore :)
Ciao!
Newsgroup: it.comp.lang.delphi
Titolo: Chiavi di registro: SaveKey non funziona !!!

Lavoro con win NT 4 e pur avendo seguito per filo e per segno le istruzioni
dell'help di D5 EE non  riesco a salvare le chiavi del registro. Il problema
è noto nei NG e ha a che vedere con la getione della sicurezza di NT:
qualcuno che ha già affrontato ( e magari risolto ...) il problema può darmi
qualche suggerimento su come risolverlo  ?
Grazie in anticipo
Robrick.

 wrote in message
news:4Yac7.148559$Pb6.8...@news1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: MPEG e TMediaplayer ?

Salve a tutti,
  come si fa a far eseguire a un TMediaplayer un file MPEG ?
  In caso non fosse possibile come si fa ad eseguire un MPEG in   
un'applicazione Delphi 4.0 ?
Grazie mille, Marco Carosi.
E-mail replies are welcome.
Tanks, Marco.
NOTE: Please remove the '*N!O!S!P!A!M*' 
      from my address before replying.

 wrote in message
8ek8f7$gl8$1...@fe2.cs.interbusiness.it...

Il procedimento è lo stesso di quello usato per i file avi. Devi posizionare
sulla form un componente TAnimate (Scheda Win32) e collegare la voce Display
del TMediaPlayer al TAnimate.  Poi scegli nella voce FileName del
TMediaPlayer un file MPEG e il gioco è fatto. Ciao !

> 
Inoltre non dimenticare che il codec mpeg deve essere installato.
Ciao ciao, Luca.
-- 
ICQ: 11024183
"L'amore è una motoslitta 
che corre all'impazzata  nella tundra,
poi improvvisamente fa una capriola e si ribalta 
bloccandoti sotto. 
Di notte  arrivano i lupi". ( Matt Groening )
Newsgroup: it.comp.lang.delphi
Titolo: DBExpress

Salve a tutti... Stņ passando da delphi5 a delphi7 x ragioni x accelerare
l'accesso/elaborazione di un archivio interbase...
Stņ facendo dei test e gia' mi stņ bloccando ...
Ho fatto una semplice form con i componenti IBDatabase e IBTransaction...
Prendo il componente SQLquery d dbexpress e SQLConnection e li collego e
quando attivo il tutto ... tutto funge a meraviglia...
Il mio problema e' questo:
ho messo un datasource x poi collegare il tutto ad una dbgrid ma quando
associo il dataset dentro la dbgrid d7 mi risponde
"Operation not allowed on a unidirectional dataset"
Ho cercato nei vecchi post ma nn ho trovato nulla... Potete aiutarmi

 Ho cercato nei vecchi post ma nn ho trovato nulla...
Cercando direttamente su questo gruppo usando il messaggio di errore 
come parola chiave, esce una discussione che introduce e risolve il tuo 
stesso problema. :-)
http://makeashorterlink.com/?Y2FE4237A
Ad ogni modo, se cerchi "dbExpress" o, ancora meglio, "ClientDataSet", 
troverai molte altre discussioni che trattano in lungo e in largo la 
questione, con indicazioni, suggerimenti e link a riguardo.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  (marco [@] abls [.] it)
  ABLS Team S.n.c. - Software & Web
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 "Operation not allowed on a unidirectional dataset"
I dataset dbX sono unidirezionali, quindi non puoi usarli per collegarli
direttamente a una griglia, devi intermediare con un TClientDataSet.
Leggi il tutorial sui ClientDataSet di Cary Jensen (Marco Breveglieri ne
ha postato il link poco tempo fa), ci sono esempi di utilizzo di dataset
dbX.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

HO provato direttamente collegando IBQuery ed infatti tutto funge...
grazie.. .una domanda ma allora a che servono dbexpress? ho letto qcs ma mi
sono perso :-(
"Andrea Laforgia" <x...@xx.xx> ha scritto nel messaggio
news:cuhvli$tlh$1...@news.newsland.it...


 sono perso :-(
Non esiste solamente /InterBase/ o /FireBird/, perciò è necessario avere 
soluzioni che consentano di collegarsi a database differenti, magari in 
modo più astratto e generico: *dbExpress* è una di queste soluzioni. :-)


 sono perso :-(
Vedi sopra: ci sono modi alternativi di fare le stesse cose. 
E comunque non ti aspettare che si possa rispondere facilmente a una
domanda del tipo: "a che serve dbExpress" ? cerca di trovare risorse in
rete e documentarti per quanto possibile.  Se le domande sono mirate ad
aspetti specifici, è più facile ricevere aiuto.

Newsgroup: it.comp.lang.delphi
Titolo: Salve a tutti

Salve a tutti,
dopo taaanto tempo riprendo a programmare in Delphi.
L'ultima volta è nel 2003, con Delphi 6.
Adesso ho ripreso con Delphi 7. Vedendo che è uscito dopo la 8 e poi la 
2005, vorrei sapere se ci sono "grandi" novità (anche se sono MOLTO poco 
convinto, visto che sin dalla 3 Delphi è cambiato poco, soprattutto i 
parametri di compilazione che sono quasi IDENTICI a Turbo Pascal 4!!!)...
una volta utilizzavo spesso un sito dove scaricare librerie, mi pareva 
che fosse russo (e ne aveva una valanga...), sapete qual'era?
Grazie!!!

che fosse russo (e ne aveva una valanga...), sapete qual'era?
http://www.torry.net
Ciao bentornato ancora. :)
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 
http://www.torry.net
Eccolo ;) Sto usando CoolTrayIcon, stranamente il minimize to tray mi 
funziona solo 1 volta... dovrò indagare. Forse perché all'evento 
CoolTrayIcon.DblClick ho messo
   if (Form1.Visible) then
     Form1.Show();
?
Newsgroup: it.comp.lang.delphi
Titolo: Delphi PHP e DBGRID

Ciao a tutti, ho un problema col nuovo Delphi PHP.
Non riesco a capire perché non vedo i dati in griglia.
La connessione č a posto, se entro in visualizzazione struttura della
pagina Web vedo i dati, se uso delle editbox collegate ai campi vedo i dati...
se uso una griglia invece la pagina risulta vuota!
Ho un db in ms-sqlserver ma lo stesso problema l'ho riscontrato anche
usando mysql.
Avete idea del perché faccia cosě???
Grazie.
--- posted by geoForum on 
http://www.delphiedintorni.it

Posso solo dirti che con un installazione standard e usando un mysql 4.0 
con il server apache che installa D4PHP a me i dati si vedono nella 
griglia. Poi non riesco ancora a collegare il navigator ma questo è un 
altro problema.
Newsgroup: it.comp.lang.delphi
Titolo: SMBUS e temperature del PC

Link informativo con codice di esempio sui sensori del PC.
Ovviamente mi faccio pubblicità !!!
;-)

 ha scritto nel messaggio
news:9Ylt7.76289$P04.6...@news2.tin.it...


 interessante..... ma il link ?
Intendi i link ai data sheet? La pagina è quasi pronta.... come quasi pronta
è quella del download..... è questione di un paio di giorni al massimo.
Abbiate fede!

 Abbiate fede!
Penso che intendesse il link alla pagina ;)

 wrote in message
9p780b$fqt$1...@fe1.cs.interbusiness.it...


 wrote in message
tOCt7.110453$dJ3.8...@news1.tin.it...


 ha scritto nel messaggio
news:9Ylt7.76289$P04.6...@news2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: savetofile et similia

ho usato per la prima volta i comanti LoadfromFile e SaveToFile ecc...
Noto però che il file generato con SaveToFile rimane aperto e che non lo 
posso sovrascrivere
la domanda è:
qual'è il comando per chiudere questo file, cioè l'equivalente di fclose????

 ho usato per la prima volta i comanti LoadfromFile e SaveToFile ecc...
Esistono molte classi che, prevedendo il caricamento e il salvataggio 
da/a disco dispongono dei metodi che hai citato: di quale classe si 
tratta? Credo che la risposta a questa domanda sia fondamentale per 
approfondire meglio il problema. :-)
Ciao,
   Marco.
-- 
Marco «Alka» Breveglieri	
http://www.marco.breveglieri.name
  «bvmcnxsjlkhròhyeq, potrei scrivere a questo punto,
   se mi addormentassi sui tasti» (Daniele Luttazzi)


Niente di più semplice.....
Memo1.Lines.SaveToFile('PAGE.TXT') 

 Memo1.Lines.SaveToFile('PAGE.TXT') 
Ho fatto una prova rapidamente ma non ho ottenuto lo stesso problema: 
ogni volta che premo un pulsante, richiamo la /SaveToFile/ ed esporto i 
dati all'interno di un file di testo esterno. Ogni clic riscrive il file 
con i dati aggiornati presenti nel Memo in quel momento.
Sei sicura che non vi siano altre routine, controlli oppure oggetti che, 
in qualche modo, fanno uso del file.


 Memo1.Lines.SaveToFile('PAGE.TXT')
Cosa intendi per "il file rimane aperto"?
Se intendi che non ti sparisce il contenuto dal Memo, č cosě, il Metodo (non
comando) SaveToFile non fa altro che... salvare su file :)
Sei tu che devi fare un Memo1.Lines.Clear dopo averlo salvato.
-- 
Jax
====
Molti uomini vivono felici senza saperlo.


Si il problema era questo...  grazie 

 ha scritto nel messaggio 
news:BJESe.14693$O6.8...@news3.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: StringGrid evoluta Free

Salve ragazzi,
cerco una StringGrid gratuita un po' più evoluta di quella fornita con
delphi 7, magari che abbia i metodi per gestire l'inserimento e la
cancellazione di una righa che non sia l'ultima, che magari gestisca
l'ordinamento in base alla colonna (ma non è fondamentale) o che salvi e
carichi il suo contenuto su un file di testo.
So che tutto questo si può fare tramite codice, ma vorrei perdere il meno
tempo possibile e quindi dover implementare meno codice possibile.
Ho cercato su Torry ma tra i vari componenti, Free e non, molti non riesco
ad installarli per vari errori ed altri non li conosco.
Sapreste indicarmi un componente che avete già usato ed ampliamente testato?
Grazie 1000 Max
--------------------------------
Inviato via 
http://usenet.libero.it


http://www.delphi-gems.com/VirtualTreeview/VT.php
Ciao,
Stefano

Grazie,
alla fine ho risolto scrivendo io il codice, anche perchè il pakage dei
componenti che ho scaricato grazie a te :-) ha degli errori e non riesco ad
installarlo.


installarlo.
Potresti spedire sul NG il codice. Stavo cercando anche io un
componente del genere e come te mi sono imbattuto in mille componenti
che o non si installano o si inluppano a runtime.
Grazie.
-------------------------
    Luca Leoncavallo
lleonc...@racine.ra.it
-------------------------


Non credo abbia degli errori. Io la ho compilata senza problemi in Delphi 6,
7 e in C++ Builder 6. Magari hai aperto il package x la versione di delphi
sbagliata :-)
Ciao,
Stefano
Newsgroup: it.comp.lang.delphi
Titolo: Problema campo data SQL Express 2012

Salve a tutto il NG,
ho un problema con un'applicazione DELPHI XE che si collega ad un db SQL Express 2012. Funziona tutto perfettamente se mi collego in locale tramite ODBC, ma quando mi collego in remoto ad un Server con s.o. "Windows Server 2012 Standard" tramite la seguente stringa:
 
ALIASNAME = 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=xxxx;Data Source=xxx.xxx.xxx.xxx;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=PIPPO'
 
il collegamento funziona, si apre regolarmente il DB ma quando devo editare campi di tipo DATE mi da errore.
 
Il bello, si fa per dire, è che la stessa connessione usata con un Server con s.o. "Windows 7 Professional", con la stessa versione di SQL EXPRESS, entrambi aggiornati alla release "11.0.5058", funziona regolarmente.
 
Ho provato ad eseguire l'applicazione in locale su Windows Server con ODBC e tutto funziona.
 
Chiaramente il database è identico, ho fatto il restore del db di Windows 7 su Windows Server.
 
Qualcuno ha esperienza in merito? 
 
Grazie in anticipo.
 
Fabio
 

 Catalog=PIPPO'
 
Potrebbe dipendere dalle impostazioni internazionali della macchina che ospita 
SQL Server. Controlla il formato della data.
 
HTH
David
 
 

 David
 
Grazie David per la risposta,
è la prima cosa che ho controllato, formato data dd/mm/YYYY come su tutti gli altri SERVER, poi se fosse un problema di formato data darebbe errore anche quando mi collego con ODBC.
 
f.
 

 il collegamento funziona, si apre regolarmente il DB ma quando devo editare campi di tipo DATE mi da errore.
 
Che errore ti da?
Cosa intendi con "quando devo editare campi di tipo DATE", cioe'
in che punto, usando quale codice, ti da l'errore ?
 
ciao
Giacomo

 è la prima cosa che ho controllato, formato data dd/mm/YYYY come su tutti gli altri SERVER,
 > poi se fosse un problema di formato data darebbe errore anche quando 
mi collego con ODBC.
 
Ho avuto un problema simile con mySQL: la locale restituita dal server 
era differente da quella del client e quindi abbiamo dovuto modificare 
la scrittura.
 
Se verifichi che le locali non sono coinvolte, non ti resta che attivare 
il tracing di ODBC e verificare che cosa succede quando cerca di 
scrivere in remoto.
https://support.microsoft.com/en-us/kb/274551
 
 
Credo che il server rifiuti l'update e dovrebbe rispondere con il 
motivo: tutto questo dovrebbe essere loggato.
 
 
-- 
Morde

Ho risolto, grazie al consiglio avuto nel NG microsoft.public.it.sql, ho sostituito l'uso di SQLOLEDB con SQLNCLI11 e tutto funziona perfettamente.
Grazie a tutti.
 
fabio
Newsgroup: it.comp.lang.delphi
Titolo: se Socket = TSocket allora Rispondetemi("Perfavore");

Ho un piccolo problemino in Java che credo che si presenti anche in
Delphi: ho usato la classe Socket (in Delphi TSocket) per visualizzare
gli IP associati ad un host-name che fornisco in ingresso (sulla riga
di comando). Quello che serve a me è la procedura inversa ovvero
ottenere un host-name partendo da un indirizzo IP casuale senza dover
ricorrere a server DNS.
Ho provato specificando l'indirizzo IP come host senza risultati!
Grazie anticipatamente a chiunque voglia aiutarmi.

    In Delphi penso che il problema non si presenti (hai a disposizione sia
la proprietą LocalAddress che LocalName e vengono risolte tutte e due alla
connessione del socket, anche se non ho mai provato in realtą... Sono sicuro
del RemoteHost e RemoteAddress che restituiscono tutti i dati...).
    In Java devi utilizzare un istanza della classe INETADDRESS e utilizzare
il metodo "getHostName()"
    Saluti!
_________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
_________________________________
Newsgroup: it.comp.lang.delphi
Titolo: Query parametrica su SimpleDataset

Salve a tutti!
E' da poco che sto studiando Delphi e quindi penso che le mie domande 
possano apparire alquanto banali...
Sono bloccata su questo punto.
Quando adopero per un SimpleDataset una query select parametrica (parametro 
A e parametro B)voglio che l'utente possa selezionare solo il parametro A, o 
solo il parametro B, o tutti e due i parametri A e B e ottenere comunque un 
risultato (dataset) più o meno "filtrato" a seconda che abbia inserito uno o 
due parametri.
Penso che da codice dovrei inserire queste possibilità di input da parte 
dell'utente con un costrutto tipo 'Select case' o roba del genere.
Il tutto è abbastanza difficile per me:ma è questa la strada giusta da 
percorrere?
Grazie! 

 due parametri.
In questo caso, credo che l'unica alternativa possibile (ma attendi 
altri suggerimenti, eventualmente) sia quella di definire la query a 
runtime, via codice, e non in fase di progettazione (se non per motivi 
di test); a seconda del numero di parametri da indicare, specifica 
tramite codice una query con l'uno, l'altro o entrambi i parametri nello 
statement SQL, poi valorizzali opportunamente ed esegui lo statement con 
il metodo /Open/.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Grazie per la risposta, tra l'altro conferma quello che gią pensavo. Ma non 
disturba il fatto che comunque anche se l'utente non seleziona alcun 
parametro di per se le TDBLookupCombobox (che permettono la scelta del 
parametro A o B)sono gią "settate" con la selezione sul primo record delle 
tabelle che servono a dotarle di items?
Come rimuovo quella selezione? 


io uso quelle della libreria jedi che permettono di specificare um testo ed 
un valore "vuoti".
Io ad esempio ci metto "tutto" o  "nessuno" come valore, ed č il primo che 
mi mostra nella combo, sotto appaiono quelli del loockup.
http://sourceforge.net/projects/jvcl
Giulio

Newsgroup: it.comp.lang.delphi
Titolo: esito prova

 
Su sistemi win9x la capacità di TMemo dovrebbe essere di 64k mentre 
dovrebbe essere illimitata su sistemi NT like.
Prova ad usare TRichEdit.

 exceeds memo capacity.
TMemo è limitato a 64k. Usa TRichEdit.
Hai proprio la necessità di usare un TMemo? Devi visualizzare i dati che
carichi? Se la risposta è no: usa un TStringList.
Ciao
Giuseppe

Newsgroup: it.comp.lang.delphi
Titolo: Date nulle con Postgres

Salve,
Uso Postgres come DB. Ho la necessità di assegnare un valore nullo ad un 
campo data. Via SQL la cosa si risolve assegnando un valore NULL al campo in 
questione. Via codice delphi invece, con tabelle ADO, non riesco in alcun 
modo ad assegnare una data nulla.
In passato con BDE bastava fare: DBDataInizio.AsString:=''; per ottenere la 
data nulla, ora invece con Postgres viene generato un errore di data errata.
Avete una soluzione per questo problema?
Grazie per le risposte.
Francesco 

 campo data.
metodo clear dell'oggetto TDateField.
ciao
Rockio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 campo data.
metodo clear dell'oggetto TDateField.

Newsgroup: it.comp.lang.delphi
Titolo: pseudo macro

vorrei che ad un pulsante siano associate una serie di azioni da
operare in un programma:
entrare nel menu, scegliere un opzione, far funzionarne un'0altra
etc...
ho pensato di simulare la pressione di tasti che attivano gli
eventi,,,
e allora
form1.button1.click
begin
PostMessage(Self.Handle, WM_syskeydown, vk_menu, 0);
PostMessage(Self.Handle, WM_syschar, ord('a'), 0);
PostMessage(Self.Handle, WM_syschar, ord('V') , 0);
PostMessage(Self.Handle, WM_syskeydown, vk_menu, 0);
PostMessage(Self.Handle, WM_syschar, ord('F'), 0);
PostMessage(Self.Handle, WM_syschar, ord('S'), 0);
end;
ma perchè non entro nel main menu?
Perchè si attivano alcuni pulsanti della form con caption &a &V?
Se ho attivato il Menu ... con
PostMessage(Self.Handle, WM_syskeydown, vk_menu, 0);
perchè non si attivano i tasti caldi delle voci di menu?
Bho!
Grazie per i chiarimenti....

 wrote in message
3bb4ca7...@news.tiscalinet.it...

E se richiami le azioni/procedure legate ai vari item del menu ??
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: TWebbrowser e compilazione form

Salve,
sto creando un'applicazione Delphi che deve auto-compilare dei campi
(login) in una pagina Web e postarli.
Sono riuscito a fare in modo che compili come voglio io i campi, ma
non riesco a capire come fare per POSTARE (in pratica come fare per
premere il tasto SUBMIT presente nella pagina web).
Qualcuno c'e' riuscito?
Grazie anticipatamente,
GianluK
NOSPAM...@gmail.com
  (togliere NOSPAM)

 premere il tasto SUBMIT presente nella pagina web).
Cerca su 
torry.net
, ci sono vari esempi.
-- 
I am what I am, I do what I can
Vuoi supportarmi? 
http://url.repository.biz/go/3E
Do. Or do not. There is not try.

Cerca su 
torry.net
, ci sono vari esempi.
Grazie 1000, ho trovato:
http://www.swissdelphicenter.ch/torry/showcode.php?id=1604
GianluK
NOSPAM...@gmail.com
  (togliere NOSPAM)

GianluK ha scritto:

Se conosci in anticipo i nomi dei campi da compilare (puoi ricavarli 
dall'html della pagina) potresti anche pensare di non compilare i campi 
stessi ma di andare direttamente all'URL che ti serve..
Una cosa di questo tipo:
procedure Tform1.Login(host, password: string);
var
   URL: string;
begin
   URL := host
     + '/?method=POST&w=password&p='
     + password;
   web.Navigate(URL);
end;
dove web è un TWebBrowser.
Ciao
Ziogian
Newsgroup: it.comp.lang.delphi
Titolo: compattare le applicazioni

Per distribuire un'applicazione compilata in delphi
e voler rendere impossibile la lettura del codice,
esistono delle applicazioni in grado di compattare
le applicazioni???
Grazie.

 ha scritto nel messaggio
news:ai3oqv$6dm0$1...@stargate1.inet.it...


Con Delphi il problema non c'č, non č VB, l'eseguibile č un vero eseguibile.
Alcuni pgm tirano fuori qualche dcu, ma non vedo cosa ce ne possiamo fare, e
qualche riga di asm.
CIAOUX

 Con Delphi il problema non c'č, non č VB, l'eseguibile č un vero eseguibile.
A tal proposito, vorrei segnalare, qualora non lo conosceste, un utilissimo pgm:
SmartCheck della Numega (la stessa di SoftIce).
Praticamente potete debuggare un'applicazione VB senza sorgente ^___^
--
Jax

come volevasi dimostrare.
Grazie, e...
CIAOUX

Che belle notizie...  ahahahahah!

 come volevasi dimostrare.
Se volete craccare un prog VB... ci sono riuscito anch'io, mentre il softice non
so manco come avviarlo...
--
Jax

Io uso l'AspPack, che oltre a nascondere il codice zippa l'exe mantenendolo
exe con un rapporto di compressione maggiore di quello ottenibile con il
winzip! E' fantastico. A me ha risolto il problema di un gioco a quiz, dove
nell'eseguibile originale si leggevano tutte le risposte!

Ciao

Un metodo sicuro al 100% per non far vedere il codice assembler non esiste.
ci sono solo livelli diversi di difficoltà ed, in genere, ogni protezione
corrisponde ad una sprotezione reperibile facilmente su internet.
Per comprimere gli EXE uso con soddisfazione UPX.
Tantopiù che come dimensione:
ZIP[EXE] > ZIP[UPX[EXE]]
quindi nelle distribuzioni di un exe compattato con UPX c'è comunque un
notevole risparmio di Kb....
Ciao
Matteo

 Con Delphi il problema non c'è, non è VB, l'eseguibile è un vero


Con che applicazione fai questo??

 ha scritto nel messaggio
news:aiaomu$58vu$1...@stargate1.inet.it...


ASPack
(shareware, scadono i giorni)
cercalo e provalo.
--
Davide Consonni
(
davidec...@virgilio.it
)

Newsgroup: it.comp.lang.delphi
Titolo: Problema con DBgrid

Quesito:
Associando lo stesso Popup Menu alle colonne di una DBgrid, come faccio ad
avere l'indice della colonna che mi lancia il Popup ?
Ringrazio chi mi volesse dare una mano.
Stefano.

preso dalla guida di delphi5:
property PopupComponent: TComponent;
Description
Read PopupComponent to determine which control is currently using the popup
menu. In applications where multiple controls share the same pop-up menu,
use PopupComponent to determine which of them displayed the menu.
Set PopupComponent to associate a control with the menu before calling the
Popup method programmatically to bring up the pop-up menu.
Bye
A.
Newsgroup: it.comp.lang.delphi
Titolo: Trasparenza bitmap

Una colonna del DBGrid mostra una bitmap (uso DrawColumnCell) il cui 
background bianco contrasta con il colore blu del DBGrid.
Non c'è modo di renderla trasparente ? 
 
 
---
Questa e-mail è priva di virus e malware perché è attiva la protezione avast! Antivirus.
http://www.avast.com
 
 

 Non c'è modo di renderla trasparente ? 
 
Qui c'e' una funzione che disegna bitmap trasparenti su un canvas.
 
http://www.delphipages.com/forum/showthread.php?t=152266
 
 
ciao
Giacomo

 
 
"Giacomo Degli Esposti"  ha scritto nel messaggio 
news:184665e5-1893-47b9...@googlegroups.com...

Grazie, provo a guardare 


 Non c'� modo di renderla trasparente ?
 
Qui c'e' una funzione che disegna bitmap trasparenti su un canvas.
 
http://www.delphipages.com/forum/showthread.php?t=152266
 
 
ciao
Giacomo
 
Ho trovato un modo semplice di rendere trasparente la bitmap, solo che 
peggiora la definizione dell'immagine per qualche ragione.
Praticamente, oltre alla property Transparente, messa a true, la property 
pixelFormat, da mettere a 'pf24bit' (per una bitmap 24x24) 
 
 
---
Questa e-mail � priva di virus e malware perch� � attiva la protezione avast! Antivirus.
http://www.avast.com
Newsgroup: it.comp.lang.delphi
Titolo: Versione eseguibile

Salve,
qualcuno sà qual'è l'istruzione per
prelevare la versione di un programma fatto in delphi?
cioè la versione che è nelle proprietà del progetto,
in modo da farla comparire sullo splash.
ringrazio tutti
sal
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

hai gia provato a cercare nei vecchi post?
A.


io uso queste due funzione trovate in internet
function LeggiVersioneFile(const NomeFile:string; out Versione, SottoVer,
Release, Build: integer): Boolean;
var
  InfoSize, Wnd: DWORD;
  VerBuf: Pointer;
  FI: PVSFixedFileInfo;
  VerSize: DWORD;
begin
  Result := False;
// alla peggio restituisce 0
  Versione := 0;
  SottoVer := 0;
  InfoSize := GetFileVersionInfoSize(PChar(NomeFile), Wnd);
  if InfoSize <> 0 then begin
    GetMem(VerBuf, InfoSize);
    try;
      try;
      if GetFileVersionInfo(PChar(NomeFile), Wnd, InfoSize, VerBuf) then
        if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then begin
          Versione := FI.dwFileVersionMS div $10000;
          SottoVer := FI.dwFileVersionMS mod $10000;
          Release := FI.dwFileVersionLS div $10000;
          Build := FI.dwFileVersionLS mod $10000;
          Result := True;
        end;
       except;end;
    finally
      FreeMem(VerBuf);
    end;
  end;
end;
function PropriaVersione: string;
// restituisce una stringa con i dati della versione dell'applicazione
var
  v,sv,r,b: integer;
begin
  if LeggiVersioneFile(Application.ExeName,v,sv,r,b) then
  // modificare qui per un layout diverso
    Result := Format('%d.%d.%d.%d',[v,sv,r,b])
   else
   // se non ci sono informazioni di versione restituisce stringa vuota
    Result := '';
end;
Ciao
--- posted by geoForum on 
http://www.delphiedintorni.it

Se guardi nella JVCL c'è una unit per accedere a tutte le informazioni, 
si chiama JVCLVersionInfo o qualcosa del genere


Io uso questa magnifica funzione. La preferisco alla versione di
Michele (che comunque è correttissima)
function GetVersion: String;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    Result := Format('%d.%d.%d.%d',[(dwFileVersionMS shr 16),
(dwFileVersionMS and $FFFF), (dwFileVersionLS shr 16),
(dwFileVersionLS and $FFFF)]);
  end;
  FreeMem(VerInfo, VerInfoSize);
end;
Newsgroup: it.comp.lang.delphi
Titolo: ZEOS e MySQL.. troppo lento ?

Sto utilizzando le librerie ZEOS con Delphi6 per accedere ad un database
MySQL.
Ho notato che l'apertura di una tabella con circa 200 record č molto lenta,
in quanto pare che ZEOS carichi sul lato client tutti i record contenuti
nella tabella.
E' possibile configurare i componenti ZEOS in modo da limitare il fetching
dei record ad una piccola parte della tabella, considerando perň che si
tratta di una gestione anagrafica che deve consentire di esplorare tutti i
record della tabella caricandoli eventualmente al momento opportuno ed
evitando cosě lunghe attese in fase di apertura della tabella ?
Grazie,
Riccardo
---
* Dott. Riccardo Fiorenza
* Dr.Soft - Soluzioni Internet
* web: 
http://www.drsoft.it
* email: 
fior...@drsoft.it

 evitando cosě lunghe attese in fase di apertura della tabella ?
In fase di apertura tabella metti una query che restituisce zero record,
successivamente (quando il cliente lo richiede) esegui la query necessaria
(magari caricata da un file ascii)
......altrimenti fai mettere al cliente ADSL ed il gioco č fatto :-)
Ciao
Gianni Giusti

 trasparente sia per il programmatore che per l'utente.
Grazie per il suggerimento, lo applico subito al mio programma (che lavora
su un server remoto via telefono).....un solo dubbio....nel manuale
dice:"Otherwise, the connection to the database is blocked till end of
processing of the query. ".....cosa vuol dire con la parola "bloccato", che
nessuno può fare altre query o che solo quella connessione non può fare
altre query con quella proprietà disattivata?
Ciao
Gianni Giusti

 ha scritto nel messaggio
news:9u3pt8$eb$1...@pegasus.tiscalinet.it...

Purtroppo, non so risponderti con esattezza... sto cercando una
documentazione più dettagliata su ZEOS ma temo che non ne esistano.
Ciao,
Riccardo

Newsgroup: it.comp.lang.delphi
Titolo: Aprire da default una directori in un TOpenDialog

Ciao a tutti,
come posso, eseguendoogni volta  un TOpenDialog aprire da default una
determinata directory?.
Grazie
--
Giovanni Onofrio

Grazie
TOpenDialog.InitialDir?
Va bene tutto ma almeno guardare le proprietą sull' object inspector
(che poi sono 5 o 6 al massimo)....
-----------
Ore 18.30: premo invio.

 (che poi sono 5 o 6 al massimo)....
Sottoscrivo.
vedi mio sfogo di ieri.
Bye
AS
-- 
Posted from  [212.17.220.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: delphi

vorrei qualche nozione del tipo cosa è delphi e quali differenze ci sono dal
pascal
per arricchire la mia prima relazione su un programma fatto col deldhi
qualcuno mi può aiutare?
grazie

 qualcuno mi pur aiutare?
Ti suggerisco di leggere:
Essential Pascal
http://www.marcocantu.com/epascal/default.htm
ed
Essential Delphi
http://www.marcocantu.com/edelphi/default.htm
Entrambi di Marco Cantu'.
Saluti.
-- 
I'am what I'am, I do what I can
Newsgroup: it.comp.lang.delphi
Titolo: QRCompositeReport aiuto

Ciao a tutto il NG,
ho un problema non riesco a capire
come funziona l'oggetto QRCompositeReport.
In realtà dovrei produrre un report, che è l'insieme di più report.
vi allego un ritaglio di codice
Qreport1.Prepare;
Qreport2.Prepare;
QRCompositeReport1.Reports.Add(Qreport1);
QRCompositeReport1.Reports.Add(Qreport2);
QRCompositeReport1.Prepare;
QRCompositeReport1.Preview;
Così compare il report vuoto.
Qualcuno mi spiega come fare?
Ringrazio in anticipo.
Acaro
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Ringrazio in anticipo.
Prego: facci sapere comunque se hai risolto.
Saluti
	Marco Bortolani
	info @ 
marcobortolani.it

Newsgroup: it.comp.lang.delphi
Titolo: Cruciverba + Delphi

C'è qualcuno che sa dove posso trovare spiegazioni di come si implementa la
costruzione di un cruciverba...anche non in delphi...
ciao
Solid Snake IT

 costruzione di un cruciverba...anche non in delphi...
non saprei dove trovare informazioni di questo tipo.. comunque non dovrebbe
essere cosi' difficile.. ma a te cosa serve di preciso ? le strutture dati
da usare o un algoritmo che metta le parole o cosa ?
ciao !                {MSX}

 ha scritto nel messaggio
news:95vbnn$3el$1...@nreadA.inwind.it...


> L'algoritmo che metta le "parole o cosa"
ah :) boh di sicuro non so dove trovare il codice necessario..
magari si puo' provare a farla a mano.. pero' mi par un po' complesso..
una bella sfida :)

 L'algoritmo che metta le "parole o cosa"
ShowMessage("parole o cosa")

 wrote in message
95rb43$bv4$1...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.delphi
Titolo: Richedit o Memo con testo colorato.

Ciao,
ho scritto un programma che decodifica una serie di dati e cambia il layout 
dei dati originali usando dei colori.
Ho usato un TRichEdit inserendo il testo con SelTExt e cambiando di volta in 
volta il colore del carattere.
Tenete presente che su una stessa linea ci possono essere piu' colori.
Ora, per evidenziare meglio alcuni dati, mi servirebbe poter colorare il 
background del testo immesso.
Come posso fare? Esistono componenti che fanno al caso mio?
Ho provato la JclRichedit, ma con scarsi risultati.
Ciao
   Franco

"
news.fastwebnet.it
" ha scritto nel messaggio

Avvertenza: non so se funziona con tutte le versione del Richedit.
procedure InserisciStringaConBackGround(tempRichEdit: TRichEdit;
                            const StringaDaInserire: string;
                            tempColoreBG: TColor);
var
  tcfFormat: TCharFormat2;
begin
  //inizializzo la struttura
  FillChar(tcfFormat, SizeOf(tcfFormat), 0);
  tcfFormat.cbSize:=sizeOf(TCharFormat2);
  tcfFormat.dwMask:=CFM_BACKCOLOR;
  // imposto il background
  tcfFormat.crBackColor:=ColorToRGB(tempColoreBG);
  // invio l'impostazione
  SendMessage(tempRichedit.Handle, EM_SETCHARFORMAT,
              SCF_WORD or SCF_SELECTION, LPARAM(@tcfFormat));
  // il testo successivo sara' inserito con il colore di
  // background scelto
  tempRichedit.Lines.Add(StringaDainserire);
end;
Da usare cosi':
procedure TForm1.Button1Click(Sender: TObject);
begin
  InserisciStringaConBackGround
    (richedit1, 'prova sfondo rosso', clRed)
end;
Ciao
-- 
ACSH
[D4]
Chi fa da se', fatica il doppio

 end;
Grazie! Funziona!!

Newsgroup: it.comp.lang.delphi
Titolo: Registrare il colore in un file .INI (D6)

Seguendo i suggerimenti di Cantù, sto tornando ad usare i file ini nelle mie
applicazioni.
Ma ho un problema nell'applicazione che sto scrivendo  ho inserito un
TColorBox per modificare  il  colore dell'interfaccia ma quando cerco di
trascrivere il valore nel INI mi scontro con la diversità del tipo di
variabili la prima è Tcolor, quella del file stringa. Esiste un metodo per
convertire il valore Tcolor selezionato nella palette nei tre valori RGB
esadecimali o decimali  ed eseguire anche l'operazione inversa.
Ogni aiuto è sempre gradito
Grazzzie carlo

 inversa.
Unit
Graphics
function ColorToString(Color: TColor): string;
function StringToColor(const S: string): TColor;
-- 
I'am what I'am, I do what I can


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

 ha scritto nel messaggio
news:Y4mub.127618$e6.45...@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: Ancora problemi con stampante ad aghi: buffer?

Ciao a tutti.
Qualche giorno fa vi avevo esposto
dei problemi che avevo avuto utilizzando
una stampante ad aghi per un software
per una biglietteria. Il problema (nella
sostanza) è che avevo necessità di inviare
dei codici di controllo per far ritornare
indietro il modulo continuo (dopo che
l'utente aveva strappato il foglio),
ma non riuscivo perchè la stampante non prendeva
i codici dopo la stampa dei biglietti effettuata
con dei reports.
Allora ho preso e ho riscritto tutto "a mano", nel
senso che non uso + i report ma mando direttamente
i dati alla stampante tramite il classico
writeln(MyFile,'Quello che voglio');
dove naturalmente a MyFile gli è stata
assegnata la 'LPT1:'.
A questo punto tutto sembrava funzionare ma....
in pratica gli ultimi dati restano "in canna"
alla stampante. Cioè le ultime righe non vengono
stampate e restano "in coda" per essere stampate
all'inizio del biglietto successivo!!
Il codice è piuttosto semplice :
...
AssignFile(MyFile, 'LPT1:');
Rewrite(MyFile);
...
// molte righe come questa
writeln(MyFile, ZMT_CorpoBigliettoPrint.Field[0].AsString);
...
...
//infine
writeln(MyFile,#12); //Form Feed
CloseFile(MyFile);
...
ho provato anche a mettere un Flush(MyFile)
prima del CloseFile, ma questo assicura
semplicemente che tutti i dati vengano trasferiti
alla stampante, ma non risolve il problema..
Spero che qualcuno mi dia una dritta, entro domattina
dovrò dare delle spiegazioni...
Grazie a tutti in anticipo
..Notte
Giorgio

 writeln(MyFile,'Quello che voglio')
Ho avuto lo stesso problema tempo fa e miseria se mi ricordo come l'ho
risolto!
Comunque credo che la stampante attenda un qualche segnale di fine
documento.
Data l'urgenza che hai ed io che ho bisogno di tempo per andare a
cercare, prova a risolvere scrivendo su un file e copiando alla fine
il file sulla porta. Lo so che non è elegante ma forse
provvisoriamente risolvi.
Giovanni Caramia

 con dei reports.
[cut..]
Ciao
puoi provare ad installare una stampante generica solo testo e
mettere nel formato della carta quello personalizzato le dimensioni
del biglietto, sulle opzioni per inizio processo inserisci <ESC>+C0
(batti il tasto ESC poi C +zero) per termina processo di stampa metti
<ESC>@. Dovrai poi settare questa stampante come quella di default.
Prova a vedere se così funziona, io in realtà avevo usato questo 
sistema diversi anni fà per stampare dei piccoli moduli ma avevo
usato il QuikReport.
Ciao
Micky
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: Esecuzione di un'applicazione esterna

Con ShellExecute è possibile avviare un'applicazione esterna?
Ho provato a leggere qualcosa sull'help ma ho visto che accetta in input un
bel po di parametri che io non ho!
Esiste qualche altra funzione per poterlo fare? A me interesserebbe qualcosa
che funzioni anche su Linux perchè da quanto ho potuto vedere la
ShellExecute si appoggia all'api di windows. O mi sbaglio?
Grazie ancora per la collaborazione.

 ShellExecute si appoggia all'api di windows. O mi sbaglio?
Non conosco Kilyx.
Quello che so è che potresti, qualora le api fossero diverse, crearti una
tua funzione di questo tipo:
function MyCrossExecute...
begin
  {$ifdef Win32}
    Result := ShellExecute(...)
  {$else}
    Result := LinuxShellExecute(...)
  {$endif}
end;
Bye
A.

Newsgroup: it.comp.lang.delphi
Titolo: Label verticali

 Ciao a tutti come posso creare dei label verticali?
--- posted by geoForum on 
http://www.delphiedintorni.it

xche inventare la ruota? vedi sui soliti siti.
AS

Ma anch'io non vorrei ma se sui soliti siti ne trovi uno che non 
funziona e altri a pagamento


Questa serve a visualizzare testo ruotato di 90 gradi. Vedi se ti puo' 
essere di aiuto
Ciao,
David
Procedure Creazione_Font_Rotato(Convas : TCanvas;
				Font   : TFont);
Var
  _LFont : TLogFont;
  _LOld  : HFont;
Begin
   _LOld := Canvas.Font.Handle;
   GetObject(_LOld, SizeOf(_LFont), @_LFont);
   StrpCopy(_LFont.lfFaceName, Font.Name);
   _LFont.lfEscapement     := 900;
   _LFont.lfOrientation    := 900;
   _LFont.lfWidth          := Font.Size;
   _LFont.lfQuality        := PROOF_QUALITY;
   _LFont.lfOutPrecision   := OUT_TT_ONLY_PRECIS;
   _LFont.lfCharSet        := ANSI_CHARSET;
   _LFont.lfWeight         := FW_NORMAL;
   _LFont.lfClipPrecision  := CLIP_DEFAULT_PRECIS;
   _LFont.lfPitchAndFamily := VARIABLE_PITCH;
   If (fsBold      In Font.Style) Then _LFont.lfWeight    := FW_BOLD;
   If (fsItalic    In Font.Style) Then _LFont.lfItalic    := 1;
   If (fsUnderline In Font.Style) Then _LFont.lfUnderline := 1;
   Canvas.Font.Handle := CreateFontIndirect(_LFont);
End;

Ricordo che una risposta bella e veloce a questo tipo domande
può essere trovata su:
http://delphi.about.com
con esempi commentati, corsi, tutorial, ecc.. ecc..
dove è possible trovare una ***infinità*** di soluzioni.
Ciao
GP

"G.P." <@> ha scritto nel messaggio

.... aggiungo un link per il TextRotate:   
http://delphi.about.com/cs/adptips1999/a/bltip0999_2.htm
GP

orpheus ex turbopower?
AS

 funziona e altri a pagamento
Non è proprio vero. Di componenti del genere ce ne sono a volontà.
Comunque questa suite, scaricabile anche free contiene anche delle label 
  "tuttofare":
http://www.lmd.de
Ciao,
Gianluca.
Newsgroup: it.comp.lang.delphi
Titolo: [Smi-OT] Finalization for 4/11

Allora, siete pronti? Domani č il grande giorno!
Finalmente sapremo se vale la pena continuare a usare Delphi o se 
conviene passare al lato oscuro.
Faccio un attimo il punto della situazione
Se si vuole pranzare l'orario limite di arrivo sono le 12.30
Luogo appuntamento:
uscendo dalla stazione centrale di Milano trovate un passaggio ai cui 
lati vi sono 2 rampe di scale per il metro'. Suggerisco di vederci in 
questa "terra di mezzo"
Per il pranzo a poca distanza (5/6 minuti a piedi) c'č un self service 
(uscendo dalla stazione a sinistra, attraversate la strada, andate 
dritto per pochi metri e imboccate via Lepetit a destra, il selfservice 
si chiama "BREK")
Non si garantisce:
a) qualitą del cibo del self service
b) misure delle cameriere conformi agli standard CTMM
Per chi salta il pranzo (Enrico) suggerisco appuntamento alle 13.45 
fuori l'hotel Gallia, che si trova uscendo dalla stazione a destra.
- Paolo Arosio
- Acqua
- Claudio Palmieri
- Marco Breveglieri
- Marco Bortolani
- Alberto Salvati
-- 
Alberto Salvati
A *Neapolitan* delphi developer who is studing c# & .Net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso!"

 Allora, siete pronti? [...]
Marco Bortolani e io dovremmo arrivare - salvo ritardi immancabili - 
alle 12:00 in stazione, quindi in tempo per trovarci nella "terra di 
mezzo" per il ritrovo. :-)
Magari issate un cartello gigante con scritto "ICLD" :-D
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 b) misure delle cameriere conformi agli standard CTMM
Ma che è lo standard CTMM? Che Tette Mamma Mia?
-- 
Jax
====
Se ti senti stupido, significa che non lo sei fino in fondo, perché una
cosa almeno l'hai capita.

> Ma che è lo standard CTMM? Che Tette Mamma Mia?
No, Jax: Consorzio Tutela Tosta Mediterranea..
oops, ho sbagliato la sigla... ;)
