mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Variabili d'ambiente... esistono in Windows? Se si, come si impostano/recuperano?

Salve Raga,
Qualcuno sa per caso se e come( in caso vi siano ) si possano
impostare/recuperare
delle variabili d'ambiente in Windows? Ma, soprattutto, esistono?
Nel vecchio TP con Get/Set Env risolvevi tutto, ma in Windows?
Grazie in anticipo,
Andrea

 Nel vecchio TP con Get/Set Env risolvevi tutto, ma in Windows?
Se il tuo help di Delphi non linka il win32.hlp ti consiglierei di
farlo. In tal caso dal tab Indice potresti facilmente trovare le
funzioni Get/Set EnvironmentXxx
Vedi anche jclHelp.hlp, unit JclSysInfo
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

Nel vecchio TP con Get/Set Env risolvevi tutto, ma in Windows?
GetEnvironmentVariable('PIPPODIR');
SetEnvironmentVariable,GetEnvironmentStrings,eccc sono invece wrapper della
API di windows, trovi le loro definizioni nella windows.pas
-- 
Morde. 
(morde at programmer dot net)

 GetEnvironmentVariable('PIPPODIR');
arridaje con sto Pippo :-)
"Topolino è felice perche si fa le topoline, Paperino è contento perchè si fa 
le Paperine, Pippo non è felice. Perchè?
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 Paolo Arosio
Andrea


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

 perchè..."con Pippo si scopa meglio!" ;-)
eh già, Pippo è tutt'un'altra scopa!


le Paperine, Pippo non č felice. Perchč?
AH AHA HA HAH A LOLLLLLLLLLISSSIMMMAAAAAAAAA!!!!!!


 handle di finestra!!!! :-(
Memoria condivisa? Variabili statiche in DLL? COM?

The DeerBear scriveva fra l'altro:
[cut]
Non so se sia quel che cerchi, ma sul mio PC le variabili di sistema
sono in
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session
Manager\Environment.
e quelle utente dell'utente corrente su HKEY_CURRENT_USER\Environment.


 handle di finestra!!!! :-(
e le var di ambiente sono l'unica cosa che ti viene in mente?
1) lo scrivi in un tile temporaneo di qualche tipo con un path prefissato e
l'altra app lo legge
2) lo invii via socket aperto su ip 127.0.0.1
3) usi una mailslot
Ma poi, domanda, la app b che ci fa con l'handle di una finestra della app
b?
Se b deve leggere l'handle di una finestra di a esistono delle api apposite.
Bye
A

 Che cavolo, devo solo passare un accidente di handle di finestra!!!! :-(
DuplicateHandle()?
--
- Carlo -
"Imparare senza riflettere o riflettere senza imparare non vi porta alla
buona comprensione" Confucio

 perchè..."con Pippo si scopa meglio!" ;-)
LOL!
--
Acqua

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

C'è qualche utente di FlashFiler 2  che mi sa dire come va?

 ha scritto nel messaggio
news:TO4z6.5295$wG3.3...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: effetto click tipo pulsante su panel

Dunque spiego non è così banale (almeno per me) da come appare nel titolo:
1. Ho diversi TPanel posti sul form.
2. I panel contengono TJPEGImage a cui lego un evento generico
3. L'evento generico identifica il sender con sender as TJpegImage per 
fare alcune cose
4. Individuo il Panel attraverso la proprietà parent del TJpegImage
5. metto un timer che attivo alla fine dell'evento per simulare la 
pressione del panel con le proprietà BorderStyle := bsSingle e bsNone
problemi
PanelTmp non me lo fa dichiarare globale e cosi non posso usarlo nel 
evento onTimer volevo dichiararlo in una unit che uso per le funzioni
ma nonostante che abbia indicato uses unit1 dove ci sono gli altri panel 
non me lo vede (mi basterebbe in effetti dichiarare globale la variabile 
PanelTmp
procedure TForm1.Img0Click(Sender: TObject);
begin
PanelTmp := ((Sender as TJPEGImage).Parent as TPanel);
PanelTmp.BorderStyle:=bsSingle;
//Panel1.BorderStyle:= bsSingle;
Timer1.Enabled:= True;
end;
di conseguenza non posso reimpostare la prop passato un certo tempo nel 
evento ontimer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
	//PanelTmp.BorderStyle:=bsNone;
	Timer1.Enabled:= False;
end;
Il solito gentilissimo aiuto
Dani

 file://PanelTmp.BorderStyle:=bsNone;


Mi accerterei anche che si tratta effettivamente di un TPanel mediante la:
If  ((Sender as TJPEGImage).Parent is TPanel) then
    ShowMessage('E'' un TPanel')
else
    ShowMessage('Non è un TPanel!!');
giorgio


Si fatto è un TPanel, no nella public della form non funziona ugualmente.
Forse fare una classe ? nella unit generale ? humm ok si ma non so bene 
come si fà consigliuccio ??
Dani

 Dani
Grazie lo stesso ho risolto da me così:
creo una procedura generale per tutti i controlli TJPegImage per gli 
eventi mousedown e una per mouseup
procedure TForm1.Img1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
((Sender as TJPEGImage).Parent as TPanel).BorderStyle:=bsSingle;
end;
procedure TForm1.Img1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
((Sender as TJPEGImage).Parent as TPanel).BorderStyle:=bsNone;
end;
Cavolo a volte ci si complica la vita per niente.
Dani

 ha scritto nel messaggio
news:wsDTd.1031$tY2...@news.edisontel.com...


 ha scritto nel messaggio
news:_PGTd.1106$tY2...@news.edisontel.com...


>end;
Bhè per prima cosa non sono riuscito a rendere globale l'istanza del 
TPanel a cui assegnavo il TPanel corrente per poterlo modificare e poi 
gli errori che il compilatore mi segnalava erano criptici ho meglio non 
si fermava sulla riga dell'errore ma mi dava solo un eccezione con i 
riferimenti della cpu (dei quali non capisco un tubo) non vorrei avere 
il debugger impostato diverso dal normale( non l'ho installato io).
Il fatto di rendere globale una TPanel si rendeva necessaria per 
reimpostare la proprietà BorderStyle su bsNone nell OnTimer.
Dani
Newsgroup: it.comp.lang.delphi
Titolo: StringGrid con immagini

  |
|  Use manually this address!!   |
|  ICQ#: 19577419                |
+--------------------------------+

 wrote in message
87sar1$osm$1...@lacerta.tiscalinet.it...

Devi disegnare direttamente sul Canvas della griglia nell'evento OnDrawCell
Cmq ti conviene usare TDrawGrid che è specifica per questi problemi.
Se hai bisogno di aiuto e/o esempi scrivi alla mia e-mail 
cci...@libero.it
                                                                        Ciao
Davide Carrara

 StringGrid, anzichè il normale testo.
io userei una DrawGrid...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Newsgroup: it.comp.lang.delphi
Titolo: scroll text ( movie credit) pakage per c++ builder 4

Ciao,
qualcuno sa indicarmi un sito dove posso scarticare un pacchetto per C++
Builder 4 che effettua lo scrolling di un testo un po come le sigle finali
dei film ( ho provato qualcuno per delphi sperando nella compatibilita ma
niente )
grazie a tutti

,

Sent via Deja.com 
http://www.deja.com/
Before you buy.

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

MessageDlg('prova'+#13+#10+'provqa', mtWarning, [mbOK], 0);
 see 
www.gexpert.com
 or org i don't remember

 Thankyou.
Ciao, Antò.

Andrew, this is a ITALIAN ng.
If you want to write it, please write your msg in ITALIAN.
I have subscription on a lot of ng in elnglish and i write
only in english.
Ok? Tnx!
Andrew, questo è un NG italiano.
Se vuoi scrivere, ok, ma fallo in lingua italiana.
Io partecipo ad altri ng in inglese e scrivo in inglese.
Ok? Grazie.
AS
"Se è Microsoft non funziona"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

2 lines rather than having one very long string ?
You have to use the new-line sequence (#13#10 or #13) in
your message string.  BTW, let me remember you this is an
italian ng (the "it" in front of this ng's name stands for
"italian").
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]
Newsgroup: it.comp.lang.delphi
Titolo: Utilizzo di IS Express Delphi 4 Beta

Salve a tutti,
avrei bisogno di distribuire una piccola applicazione facendo un file di
istallazione tramite IS Express Delphi 4 Beta perchè consente di
selezionare le parti del BDE che mi interessano e non tutto, ma il mio
problema è un altro: se oltre all'eseguibile devo distribuire altri
file, come help, file di configurazione e directory contenti file di
esempio come faccio, ho guardato un po' in giro nell'help ma non ci ho
capito nulla.
Grazione fin da ora

 ha scritto nel messaggio
news:38B571B5...@tin.it...

Devi includere i files che ti interessa distribuire utilizzando l'opzione
Groups&Files...

Grazie Alessandro, e questo l'ho fatto.
Ora, se dovessi eseguire altri programmi di istallazione sempre in
questo file di installazione, come faccio?


 ha scritto nel messaggio
news:38B65CD1...@tin.it...

Scusa, ma non ho capito bene...
Magari spiega che tipo di applicazione devi installare...
Ti riferisci per caso a installazione di DAO o roba simile ?
Ciao...

 Ciao...
Ciao anche a te

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

Salve, qualcuno sa dirmi se riesco ad utilizzare gli indici MDX che si
trovano in una cartella diversa da quella dove ho gli archivi DBF? Ho gia'
provato con la proprieta' IndexFiles specificando l'indice da aprire con il
relativo percorso, ma non funziona; in ogni modo sembra cercare l'inidice
nella stessa cartella del DBF.
come posso fare?
Grazie, un saluto a tutti
Simone.

 wrote in message
972n3t$7f3$1...@nreadB.inwind.it...

Il file indice MDX è il file indice per la tabella per il quale è stato
creato e non altre tabelle.
Ciao
Simone

Newsgroup: it.comp.lang.delphi
Titolo: Aiuto con T Printer

Salve a tutti. Ho un problema che veramente non so da cosa possa dipendere.
Cerco di ottenere la larghezza di un carattere prima e dopo aver chiamato il
begindoc. La cosa strana che nelle due posizioni mi da valori diversi;
Come è possibile? Il font non  cambia. Ha sempre le stesse caratterisiche.
MyFont.name:= Arial;
MyFont.Size:= 10;
Printer.canvas.Font.Assign(MyFont);
CharW:= Printer.Canvas.TextWidth('H');
{ qui vale CharW = 9}
....
printer.BeginDoc;
....
CharW:= Printer.Canvas.TextWidth('H');
{qui vale CharW = 30}
....
printer.EndDoc;
Chi sa dirmi il perche?
Grazie Marco Cotroneo

Marco Cotroneo ha scritto:

Il tutto e' semplicemente un problema di risoluzione.
Infatti se ti crei un tuo font oppure usi un font video noterai che la
proprieta' "PixelsPerInch" vale 96, che e' la risoluzione video.
Se utilizzi un font della printer ha il valore corrispondente alla risoluzione
della stampante (che evidentemente viene rilevato solamente dopo il BeginDoc).
Quando fai un assign da un font ad un altro infatti vengono copiate tutte le
propriera' tranne quella del "PixelsPerInch", come descritto chiaramente
nell'Help.
Questa proprieta' e' molto comoda in quanto un font di dimensione (size) 10
avra' la stessa grandezza sia a video sia in stampante; cambia naturalmente il
numero di pixel, che come da te notato prima e' 9 e poi 30; quindi la
risoluzione della tua stampante e' 320 ( 9 : 96 = 30 : x).
Francesco
Newsgroup: it.comp.lang.delphi
Titolo: Come chiudere un applicativo....

alla pressione di un bottone  faccio partire con
una chiamata ShellExecute(......
un applicativo windows.
alla pressione di un secondo bottone vorrei fermare l'applicativo
cioè chiuderle quale funzione usare??????
grazie

 cioè chiuderle quale funzione usare??????
Devi usare la procedura *ShellExecuteEx* oppure *CreateProcess*; 
attraverso l'handle del processo, puoi chiamare *WaitForSingleObject* 
per attendere la sua chiusura con un eventuale timeout, oppure 
*TerminateProcess* per "ucciderlo".
Consulta MSDN (
http://msdn.microsoft.com
) per maggiori informazioni 
sulle funzioni citate.
Per iniziare a ricercare qualche esempio, leggi anche questa discussione:
http://makeashorterlink.com/?U16212E39
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

mi chiedo, ma non ti sembra che il tuo post somigli tanto a quello 
giusto 2 righe sotto?
AS

 AS
Solo nel titolo sono somiglianti.
Se leggi bene chiediamo cose differenti,,,,,,
ciao ferradini...

 ciao ferradini...
Ciao
Gabriele..........:)
Newsgroup: it.comp.lang.delphi
Titolo: code completion error ma ... senza errori

Oggi mi è capitata una cosa parecchio strana
ho aggiunto una unit form e aggiunto un pò di codice,
ad un certo punto in alcune procedure (sempre le stesse)
non mi apre più il code completion perchè dice sono presenti
errori. Bene allora compilo eseguo il programma e tutto funziona
regolarmente senza segnalarmi errori. Ho i fantasmi nel pc ?
In più ho notato che i puntini che segnalano dove è possibile mettere
i break point sono sfasati rispetto a dove dovrebbero essere. In alcuni
casi sono posti in corrispondenza dei commenti(HARGGG). Così è anche se 
debaggo.
Tutto questo è molto strano a voi è mai capitato ? esiste un modo di
correggere l'errore senza dover reinstallare l'ambiente ??
Omega

Mi è capitato anche a me con una form on po' complessa in Delphi 5.
Non farci caso tutto funziona regolarmente. Credo sia un bug del IDE.
Ciao,
David

 David
Thank you !!!! mi hai un pň sollevato.
Omega

 ha scritto nel messaggio
news:OzDre.16785$TR5....@news.edisontel.com...


>Omega
Tanto per la cronaca sapete cosa era che disturbava l'ide ?
queste due righe di commenti (ovviamente non troncati come qui)
//MmRicezString.Text := MmRicezString.Text + 'Generato errore: ' + 
Data[1]+Data[2]+Data[3]+Data[4]+#13#10;//BufRic[0]+BufRic[1]+ 
BufRic[2]+BufRic[3] ECHO
//MmRicezString.Text := MmRicezString.Text + Data + ' Ric. Corretta 
CRLF' + #13#10; //ECHO
o tolto questi commenti e tutto è ritornato ok
Omega

 errori. 
non saprei cosa dirti, prova a forzare una Build e/o eliminare i file DCU 
relativi alle unit dove appaiono i puntini sfasati.
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 
Grazie del suggerimento ma ho trovato l'errore che ho postato 
precedentemente e che riporto..


debaggo.
Di solito questo vuol dire che c'è differenza tra il sorgente e alcune 
dcu, exe, ecc ... 
in alcuni casi basta ricompilare il progetto (anche senza build...), ma 
se il codice è utilizzato in più progetti occorre compilare i progetti 
coinvolti, e certe volte anche i package ... (imhe)
ciao
Marco.
--- posted by geoForum on 
http://www.delphiedintorni.it

 
Ringrazio ma tolto le due righe di commenti adesso non compare piů il 
problema perň in un'altra unit un pň corposa mi capita che posizionando 
il mouse su un oggetto mi appare un hint corrispondente ad un'altra 
cosa. Dopo aver letto tutti i vostri suggerimenti proverň qualche 
ricompilazione.
Omega
Newsgroup: it.comp.lang.delphi
Titolo: file di testo

Buongiorno a tutti. il mio problema consiste nel leggere una stringa di
quattro caratteri in fondo ad un file di testo, (o meglio a testare se
essa c'č). il problema dovrebbe essere banale x molti di voi ma mi sta
ingarbugliando parecchio, perchč tra funzioni che nn possono essere
utilizzate se si usa file di testo, non riesco a trovare quello che fa a
caso mio.
sono arrivato + o - a questo punto:
AssignFile(F, Filename);
Reset(F);
SeekEof(F);
come faccio adesso a leggere i 4 caratteri precedenti (ho provato con la
readln ma non si comporta come pensavo). Oppure se c'č un modo + furbo
accolgo qualsiasi suggerimento.
Grazie e ciao
Andrea
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 readln ma non si comporta come pensavo).
Il "pensare" conta poco: hai letto la guida in linea di ReadLn?
Poi , non esiste solo readln, ma anche read.
Infine, ti suggerisco un occhio anche a TFileStream.
AS

 accolgo qualsiasi suggerimento.
Ciao Andrea!
A grandi linee: 
const
  TmpFileName='c:\tuofile.txt';
var
  buffer:String;
  sFile : TextFile;
try
  Reset(sFile);
  while not EOF(sFile) do begin
        ReadLn(sFile, buffer);
        If pos ('stringa_da_cercare',buffer)>0  then
        begin
            ShowMessage(buffer);
            {qui puoi elaborarti la stringa} 
        end;
       end;
    finally
      CloseFile(sFile);
    end;
Ciao
  Miyomo

   Miyomo
Grazie per l'aiuto..Ciao Andrea


Newsgroup: it.comp.lang.delphi
Titolo: [Delphi 5] - CreateOLEObject "Impossibile trovare il file  specificato"

1 - Ho creato con .NET C# una DLL
2 - L'ho registrata come COM con REGASM.EXE
3 - Ho controllato se esisteva nel registry con risposta affermativa
4 - Ho creato un semplicissimo progetto Delphi con un button che
lancia il codice :
procedure TForm1.Button1Click(Sender: TObject);
Var Obj : Variant;
    Prova : Boolean;
begin
  Obj := CreateOLEObject('PlusArchiviazioneDocWS.PDFNoleggiMassimo');
end;
5 - Mi da errore "Impossibile trovare il file specificato"
Cosa sto sbagliando?!
Grazie a chi mi risponderà

 Grazie a chi mi risponderï¿œ
Priima di tutto un pï¿œ di link must-have:
http://www.blong.com/Articles/Automation%20In%20Delphi/Automation.htm
http://www.blong.com/Conferences/BorCon2004/Interop2/COMNetInterop.htm
A parte questo, verifica se la DLL che hai generato sia nella stessa 
directory del programma chiamante o nel percorso pubblico visibile da 
tutti.
-- 
Morde

> 3 - Ho controllato se esisteva nel registry con risposta affermativa
e cosa c'è scritto nella chiave?
A.

 5 - Mi da errore "Impossibile trovare il file specificato"
ascolta, non ï¿œ che quello e' un messaggio del COM stesso che cerca un 
file su cui operare?????
In altre parole, non ï¿œ che il tutto sta funzionando e tu non ricordavi 
questo messaggio di errore?
ciao
-- 
Morde
Newsgroup: it.comp.lang.delphi
Titolo: database da usare

Salve a tutti, devo utilizzare un database i cui campi principali sono:
Nome, Cognome , Video, dove i primi due sono ti tipo testo mentre l'ultimo
dmi serve per imagazzinare video (di vari formato).
Posso utilizzare access ho mi serve qualcos'altro?
Come posso gestirlo?
Oltre ad una spiegazione in grandi linee, sul web c'è qualcosa in riguardo
che mi possa aiutare? 
grazie a tutti
pawer ranger
--- posted by geoForum on 
http://www.delphiedintorni.it

 che mi possa aiutare? 
Ti rimando allo stesso suggerimento che Morde ha dato a delphifree dieci 
minuti fa:
 
http://www.efg2.com/Lab/Library/Delphi/ADO/Northwind/index.html
Invece che una bitmap, nel campo OLE ci metti il tuo filmato.
Quanto all'uso di Access, dipende sempre dalla tipologia di utenza del 
tuo programma: se lo fai per te è ok, se il target è un'installazione 
con 70 utenti che ci lavorano sopra contemporaneamente, farei un 
pensierino a MSDE o SQLServer Express...
Saluti
	Marco Bortolani
	info @ 
marcobortolani.it

 pensierino a MSDE o SQLServer Express...
Il numero 70 è ovviamente un numero tanto per dire: Access mi pare 
triboli già alla terza o quarta connessione contemporanea, e anche MSDE 
si ferma molto prima di 70. Nel caso proverei FireBird.
	Marco
P.S.
Mi sono incastrato da solo :-(

> pensierino a MSDE o SQLServer Express...
Credo che access vada piů che bene.
Un'altra domanda: Come posso fare ad aprire un video nella mia form?
Ho bisogno di qualcos'altro?
grazie mille


 Ho bisogno di qualcos'altro?
Minuti fa ho accennato in un altro post alla JVCL: ci sono dei componenti
per il multimedia non male, prova a vedere li'.
Hey mi sono accorto che ora google groups logga le news in tempo reale! :-O
Di solito apparivano il giorno dopo!
-- 
Morde. 
FAQ di icld (beta-version): 
http://icld.altervista.org
 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

pawer ranger
	Ciao
	MassimoB
 
---------------------------------
http://www.massimobeschi.it/
---------------------------------
Se tu pagare come dici tu ...
Io lavorare come dico io ...
Se tu pagare come dico io ...
Io lavorare come dici tu ...
---------------------------------

tutte le sue potenzialità ed i suoi buchi/bachi :)
Dove posso trovarlo (possibilmente free)???


Dove posso trovarlo (possibilmente free)???
Sul mio D6 è nella palette System ;)


Spete dove posso trovare informazioni utili su come utilizzarlo (in 
italiano possibilmente).
Grazie mille


Grazie mille

Newsgroup: it.comp.lang.delphi
Titolo: problema "popup non sopra a tutto"

Ciao a tutti,
Ho il seguente codice che mi crea una sorta di popup sopra "ad ogni cosa".
L'applicazione usa il componente  tIDHttpServer e come client IE.
PostMessage(GetDesktopWindow,WM_SYSCOMMAND,SC_HOTKEY,Application.MainForm.Ha
ndle);
with Application do
begin
    NormalizeTopMosts;
    MessageDlg('Modem COM port error.', mtError, [mBOK], 0);
    RestoreTopMosts;
end;
Nei sistemi win 2000 IE 6 tutto ok, nei pc con XP sp < 2 tutto ok, mentre
con XP SP2 la popup rimane sotto a la finestra di IE.
Come fare a risolvere il problema?
Grazie a tutti!

 ha scritto nel messaggio 
news:3iksijF...@individual.net...



Ciao,
Proverò questa strada, il problema non si e' mai presentato fino alla SP2 di
XP.
Hai per caso un link d'esempio, dove vengono descritte le
problematiche/risoluzioni del caso.
Grazie per il supporto!
*Davide*

 ha scritto nel messaggio 
news:3is47iF...@individual.net...

Newsgroup: it.comp.lang.delphi
Titolo: [delphi]: impedire "elimina" a dataset vuoto

ciao a tutti,
sapete per caso come disattivare un pulsante a cui è associata l'action di
elimazione di un record se il dataset è vuoto??? In pratica se la dbgrid non
contiene alcun record il pulsante (speedbutton1) deve essere disattivato. Ho
già provato ad aggiungere la condizione
code:-----------------------------------------------------------------------
-------if adotable1.recordcount<1 then
speedbutton1.enabled:=true--------------------------------------------------
----------------------------
ma il tasto resta sempre disattivato...

 ma il tasto resta sempre disattivato...
Non capisco il *true* e il *resta sempre disattivato*

 ha scritto nel messaggio
news:tp1l9.19520$e31.4...@twister2.libero.it...


 ha scritto nel messaggio
news:_81l9.179342$pX1.6...@news2.tin.it...

Io farei :
speedbutton1.enabled := Not((Adotable1.Bof) and (AdoTable1.Eof))
^_Goblin_^

 già provato ad aggiungere la condizione
Puoi usare gli eventi del DataSource. Controlli la proprieta' IsEmpty del
dataset:
YourButton.Enabled := not YourDataSet.IsEmpty;
Pero' io preferisco non percorrere questa strada, seguo la via piu'
semplice: lascio il bottone attivo, poi se qualcuno lo preme, segnalo:
if MyDataSet.IsEmpty then
  MessageDlg('Nessun record da cancellare !', mtWarning, [mbOk], 0);
--------------------------------
Inviato via 
http://usenet.libero.it


Grazie mille!!! Funziona!
ciao!

Potresti usare una TActionList ed associare
tutti i metodi Insert,Delete,Edit ecc. All'abilitazione
e disabilitazione ci pensa il componente.
p.s.
tu hai scritto:
if adotable1.recordcount<1 then
  speedbutton1.enabled:=true
io criverei:
if adotable1.recordcount<1 then
  speedbutton1.enabled:=false
Newsgroup: it.comp.lang.delphi
Titolo: Rimuovere classe....(delphi 7)

Salve!
Strano problema....
E' andata male l'installazione di un'activex in delphi...ed adesso 
quando provo a reinstallarlo (component->import activex->seleziono i 
component e clicco su install), mi dice che la classe "blabla" ï¿œ giï¿œ 
installata....
Come cavolo tolgo quella classe giï¿œ installata?
Grazie!
Scusate se la domanda ï¿œ stupida,ma non mi ï¿œ proprio mai capitato!

> Come cavolo tolgo quella classe gi installata?
prima di fare tentativi, ti sei documentato su cosa succede quando fai
"import activex"?
A.

Alberto Salvati ha scritto:

Pardon :(
Newsgroup: it.comp.lang.delphi
Titolo: Problema con Group By

ho provato l'uso di Group By con una TQuery, da un'esempio Delphi
cosi' funziona
1)  StrSQL:= 'SELECT Distinct CustNo, SUM(ItemsTotal)' +
          ' FROM Orders ' +
          ' GROUP BY CustNo';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(StrSQL);
Query1.Open;
cosi' invece solleva eccezione
2)  StrSQL:= 'SELECT Distinct CustNo, ShipVIA, SUM(ItemsTotal)' +
          ' FROM Orders ' +
          ' GROUP BY CustNo';
non importa quale sia il campo : ShipVIA , ShipZip, SaleDate, etc.
anche questa , da eccezione.
 StrSQL:= 'SELECT Cod_Utente, Data, SUM(Uscite)' +
          ' FROM Tab_Spese ' +
          ' GROUP BY Data';
non capisco le differenze tra avere o meno il campo ShipVIA
Maurizio 

           ' GROUP BY Cod_Utente, Data';
...nella clausola GROUP BY devi mettere tutto cio che c'è nella select
tranne SUM nel tuo caso o AVG, COUNT etc...

Newsgroup: it.comp.lang.delphi
Titolo: Form&Unit

Scusate per la domanda molto stupida, ma sono un programmatore in erba. 
Volevo sapere come condividere un record, o una variabile di tipo record, 
fra due diverse unit dello stesso progetto.
Grazie a tutti quelli che avranno la pazienza di rispondermi!!! 


wrote:

Vanno dichiarate nell'interface
Unit1
interface
type
  TipoA: integer;
implementation
Unit2
interface
uses unit1;
implementation
var
  VarA: TipoA;
-- 
Ore 18.30: premo invio.

 progetto.
Benvenuto nel mondo di Delphi. Hai gia' letto la FAQ di questo gruppo?
Puo' aiutarti parecchio, vedi per esempio questa parte:
<begin cit.>
2.6
-DOMANDA:
Come posso accedere ad una variabile/funzione/procedura/costante presente
in un'altra Unit? (oppure: come posso accedere ad un componente presente
in un'altra form?)
-RISPOSTA:
Basta che aggiungi la unit che ti interessa nella clausola Uses, dopo
implementation.
Se ci fossero delle varibili o altre cose omonime le puoi richiamare in
questo modo:
NomeDellaUnit.Variabile oppure NomeDiUnAltraUnit.Variabile
<end cit.>
Le FAQ aggiornate a Ottobre 2004 si trovano qui:
http://tinyurl.com/47yas
All'indirizzo che segue trovi invece un documento che spiega come
utilizzare nella maniera migliore il NG:
http://tinyurl.com/47huo
Ciao.
--
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: Informazioni licenza

Recentemente ho acquistato la versione Delphi7-Pro,oggi ho inviato per posta
la scheda di registrazione,allegata ai vari CD nel pacchetto acquistato ho
trovato la licenza (senza nessun riferimento al numero di licenza),ora
chiedo come devo comportarmi quando distribuiro' i miei programmi e
cioe',devo dare al cliente la fotocopia della mia licenza Delphi ?
Appena ricevuta la scheda di registrazione inviata,la Borland mi mandera'
anche il numero di licenza o basta l'attestato di licenza che ho trovato nel
pacchetto?
Oppure ai miei eventuali clienti non devo dare nulla?
Grazie per la risposta
Paolo

 Recentemente ho acquistato la versione Delphi7-Pro
Basta la licenza che ha trovato nella confezione , a me mamma Borland non ha
mandato nulla :-(
Ai clienti devi rilasciare una "TUA" licenza , quella di delphi non serve
assolutamente dal momento che sono cavoli tuoi di quale strumento usi per lo
sviluppo , magari fai tutto a mano in assembler .. :-)
Benvenuto a bor(l)do ....
Giulio

Oppure ai miei eventuali clienti non devo dare nulla?
Fai come ti dice GiulioC(esare): distribuisci senza menzionare nulla, in
quanto tu sei gia' in possesso della licenza di distribuzione.
Poi, sul fatto che Borland non risponda mai alle registrazioni, e' un dato
quasi di fatto ;-)
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: Rendere illeggibile un file

Come si fa a rendere illeggibile un file?
Avevo pensato di modificare i byte iniziali del file, in modo che il 
sistema operativo consideri il file corrotto.
Come si fa questa cosa?
MT

 Come si fa a rendere illeggibile un file?
Dipende che intendi per "illeggibile".  Se intendi che un 
programma non sia lanciabile, allora sě, ti basta "sporcare" 
l'header di un file .exe, altrimenti in generale dovresti 
sovrascrivere il file piů volte con un contenuto random.

 Dipende che intendi per "illeggibile".
I file sono di qualunque tipo (immagini, documenti testuali, eseguibili, 
ecc...).
Mi basta che l'utente, facendo doppio click sull'icona corrispondente, 
riceva un messaggio di errore.
Come si fa a "sporcare" i primi n byte di un file? Ho visto le funzioni 
di accesso binario ai file, ma mi sembra che non sia possibile cambiare 
dei byte all'interno di un file, bensì solo aprirlo in lettura o 
riscriverlo completamente.
MT

 dei byte all'interno di un file
Certo che è possibile.  Un file è apribile in lettura _e_ scrittura.
Se vuoi sporcare i primi n byte, apri il file e scrivi i primi n byte.

var Strm: TFileStream;
    I: Integer;
    b: byte;
begin
  Strm:=TFileStream.Create('/miapath/miofile', fmOpenReadWrite);
  for I:=1 to dimensione_che_scelgo do
   begin
    Strm.Read(B, 1);
    B:=B xor un_byte_per_crittare;
    Strm.Position:=Strm.Position-1;
    Strm.Write(B, 1);
   end;
  Strm.Free;
end;
Se non ho scritto cavolate, chiamando la prima volta sporca il file,
chiamandolo di nuovo lo ripulisce
Bye,
Raktzo
Newsgroup: it.comp.lang.delphi
Titolo: Eppure sono solo

Salve al NG;
Uso D7 ed preparato un'applicazione che usa prevalentemente date.
Non risolvo un problema, se modifico più date, o se comunque intervengo più 
volte sulla stessa data, quasi subito mi compare:: 'Couldn't perform the 
edit because another user changed the record'. Oppure 'Table is busy' anche 
se ho eseguito la chiusura della tabella.
Quali comandi per gestire e controllare l'accesso ai record ed alle tabelle, 
in previsione dell'uso in rete, e come e quando li rilascia?
Quali comandi per il controllo dell'accesso ai record?
Grazie.
Elzeviro.

Non solo 6 solo hai anche sbagliato ng.
Questo non è un ng di utenti finali.
Uno sviluppatore non posta msg su un ng di sviluppatori senza dindicare
quale è il database, quale tecnologia di accesso ai dati usi, magari
un po di codice....
AS

Newsgroup: it.comp.lang.delphi
Titolo: Nevrona Rave Report di Delphi 7

Ciao a tutti !!
 C'è nessuno che usa Rave 5.0.8 di Delphi 7 come sistema di
reportistica,
che sia riuscito a fare questo ?
Esempio:
Ho un report  di N pagine sul quale in fondo alla pagina scrivo "Pagina
X di N ".
Normalmente l'utente stampa 3 copie.
come posso impostare automaticamente (da programma ) che faccia 3 copie
?
Inoltre come posso fare che nel report ci sia scritto Documento 1 sulla
prima copia,
Documento 2 su seconda copia, etc
In teoria la soluzione è :
http://www.nevrona.com/Default.aspx?tabid=120
Tip #47 - Multiple Reports in Single Print Job Correct Page 1 of X
Numbering
Però non riesco a farlo funzionare.
Sul "Pagina X di N" mi scrive una sfilza di caratteri strani.
Qualcuno mi può dare un aiuto ?
Zeno

 Documento 2 su seconda copia, etc
Spiaccica una DataText non associato sul report in una banda di 
intestazione e poi utilizza il numero di pagina così:
nella proprietà datafield scrivi Report.CurrentPage e Report.TotalPages 
per il numero totale ovviamente in un'altro datatext.
Se poi vuoi personalizzare maggiormente il report devi utilizzare gli 
eventi del TRvDataSetConnection:
OnFirst, OnNext, OnEOF etc.
Dan

 Documento 2 su seconda copia, etc


Grazie per la risposta. cosi mi risolvi un problema ma mi rimane aperto
il secondo:
Ma esiste un ipotetico Report.CurrentCopies cioè vorrei mettere in un
DataText :
per scrivere su ogni copia il suo numero copia.
Cioè sulla testata della prima copia voglio leggere: Documento 1
Cioè sulla testata della seconda copia voglio leggere: Documento 2
Cioè sulla testata della terza copia voglio leggere: Documento 3
cosi via ...
Grazie
 Ciao
Dan ha scritto:


 Grazie
Ah ecco, comunque la soluzione te la sei scritta da solo. Per risolvere 
con rave non so come si possa fare forse giocando con gli eventi 
OnPrintHeader di TRvSystem se per header intende la prima sezione 
dell'intera pagina.
Altrimenti un'artificio č quello di chiedere tante volte la stampa del 
documento in base a quante copie l'utente ha richiesto ( o un numero 
fisso impostato da te programmaticamente) con un ciclo while o for dove 
ad ogni ciclo accedi agli oggetti rave e cambi il valore della label 
Documento.
Dan
Newsgroup: it.comp.lang.delphi
Titolo: Inserire dati in un foglio Excel

Ciao a tutti e grazie per i molteplici aiuti che non mi avete mai negato.
Nuovo problema:
Ho bisogno di importare i dati di una mia query in un foglio di Excel, come
posso fare?
Ho provato ad usare gli oggetti ddeClient ma non riesco ad inserire i dati.
C'è un metodo pratico e veloce?
--
Chrys-bj
http://digilander.iol.it/chrysbj

C'è un metodo pratico e veloce?
Lascia perdere il DDE (e' vecchio e non + supportato da mamma MS).
Invece, puoi sfruttare o OLE Automation, interfacciandoti all'OLE
Server di Excel (una bella menata, ma trovi tutta la documentazione su
MSDN, nella sezione Office Developer), oppure se hai Delphi 5
Enterprise puoi usare i componenti nella tabsheet "Servers", per
l'accesso alle applicazioni Office.

 >C'č un metodo pratico e veloce?



http://digilander.iol.it/chrysbj

Puoi trovare un esempio
http://community.borland.com/article/0,1410,10126,00.html
--------------------------------
Inviato via 
http://usenet.iol.it
 

Grazie a tutti per l'aiuto mi siete stati utili e sono riuscito a portare a
termine il mio lavoro.
--
Chrys-bj
http://digilander.iol.it/chrysbj

termine il mio lavoro.
http://www.inprise.com/techpubs/delphi/v5/updates/ent.html
Gli help dei componenti Servers 
;)

 spiegato un tubo?
per iniziare:
http://www.djpate.freeserve.co.uk/Automation.htm
inoltre, se importi le type lib, o meglio, se apri il file che contiene il
wrapper del server (non so se quel che scrivo ha senso) hai tutto il
codice navigabile per oggetti ed oggettini.
Sulla mia installazione la dir e' {$DELPHI}/Ocx/Servers.
Ti consiglio inoltre di tenere aperto il file VBAXLn.hlp (n = 8 per Excel
97) (normalmente non installato)
Saluti
Paolo Arosio


Ciao,
Andrea.

oggettini... :=)
Uh ... come siamo sofisticati !... 
Mai sentito parlare di "classi wrapper" ?
p.s.: l'israeliana come sta ? ;)


Mi ha spezzato il cuore.

Newsgroup: it.comp.lang.delphi
Titolo: lookup con più campi

Salve,
date due tabelle
1) cod_articolo, prezzo
2) cod_articolo, descrizione, iva
ho fatto una lookup con cod_articolo; adesso voglio che nella DBGrid
spunti anche descrizione e iva,
come faccio ?
GRAZIE 1000
faf...@tiscalinet.it

 come faccio ?
Per ogni campo di lookup che hai definito nella tabella devi inserire una
TColumn che punta a quel campo. Basta cambiare il valore di un campo per
avere aggiornati anche tutti gli altri.
Per accedere al Column editor fai doppio click sull TDbGrid.
ciao
guastatore

Mi sono spiegato male,
date due tabelle
1) cod_articolo, prezzo
2) cod_articolo, descrizione, iva
ho fatto una lookup con cod_articolo; 
adesso vorrei la DBGrid con 
cod_articolo - prezzo - descrizione- iva
la Lookup funziona, quando clicco sulla cella cod_articolo mi elenca
tutti i cod_articolo della 2) tabella
 ma quando ne seleziono uno vorrei che i restanti campi della DBGRID
si riempissero del relativo prezzo descrizione e iva. Cosa che non
succede. 
Anche perche' quando edito la Column non ho la possibilita' di
inserire il campo prezzo - descrizione - ed iva.
Come risolvo ?
GRAZIE 1000
faf...@tiscalinet.it

 ha scritto nel messaggio
news:3b5bcbbb...@news.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Punto al posto della virgola...

Salve a tutti, ho questo problema
mentre digito un numero decimale in un campo TEdit, vorrei avere la
possibilità di usare il punto del tastierino numerico, facendo pero'
apparire la virgola decimale italiana.
Ho provato nell'evento OnKeyPress a fare:
if key = '.' then
  key := #46    // l'equivalente della virgola ma non mi funziona.
NB. Il campo TEdit è in effetti il CurrencyEdit delle RXLibrary.
Grazie, Gianluca Giandomenico

Guarda il messaggio : Virgola con tastierino numerico - di Roberto Conti un
po' più in basso !!!
Newsgroup: it.comp.lang.delphi
Titolo: Driver/Wrapper per stampante

Avrei bisogno di fare un finto driver di stampante che non faccia altro che
rispedire la stampa ad un'altra stampante già installata.
Qualcuno ha qualche idea su come fare?


Forse puoi risolvere stampando su file (generando un file PostScript
(.prn in Windows)) e aprirlo in GhostView
(
www.ghostscript.com
)
--
Ciao !  Davide DG.

"Balbar" <...@...> ha scritto nel messaggio
news:7upi7.16876$%a4.6...@news.infostrada.it...

dovrei fare la stessa cosa anch'io. per adesso ho trovato solo queste
possibiltà (spero di essere smentito):
1) creare un driver con visual c ++ (almeno versione professional)
2) creare una dll che sostituisce quella della stampante installata,
modificando alcune funzioni e passando le altre alla dll originale
in entrambi i casi mi sembra che il lavoro sia sproporzionato rispetto ai
risultati :-( anche se la possibilità 1) è la "migliore" in quanto non devi
"rifare" le dll di un sacco di stampanti...
se qualcuno ha notizie si faccia avanti, plz :-)
giuliano


No il problema è che devo bypassare i driver di un plotter hp che funzionano
male con un programma sotto win2000:
io dal prg gli imposto tutti i parametri di stampa (tipo dimensione foglio
margini ecc...) e appena stampo o riapro le proprietà
mi ricarica le impostazioni predefinite. Questo succede solo con i driver
del plotter hp mentre se faccio la stessa cosa su altre stampanti
tutto funziona perfettamente.
Io volevo fare un driver per una stampante fittizzia in modo che prendesse i
settaggi e poi lui li passava al plotter risolvendo questo
problema...

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

Salve vorrei realizzare un semplice dialer tipo quello di accesso remoto che
mi permetta di collegarmi ad un normale provider per l'accesso ad internet
utilizzando username e password.
Qualche idea?
Grazie
--
Karletto
chiamac...@tiscalinet.it
http://www.carletto.cjb.net

 Qualche idea?
http://www.argosoft.com/delphi/downloads.asp
Newsgroup: it.comp.lang.delphi
Titolo: TBitmap e risorse non liberate

Salve ho notato una cosa che non mi piace.
se creu tun tbitmap che so in questo modo:
function test:tbitmap;
var T:tbitmap;
begin
t:=tbitmap.create;
//operazioni varie
result:=t;
end;
procedure test2;
var T:tbitmap;
begin
T:=test;
//operazioni varie
t.free;
end;
la risorsa gdi del bitmap non viene liberata!
Dove sbaglio?
che cosa devo fare prima di free per liberarla?
grazie a tutti
Ciao
-- 
.     _  _______  ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
  /| // /__  __/  Kirys <Remove DELTHIS from the address to reply>
 / |/ \   / /     Kirys Tech 2000: 
http://www.kt2k.com
/__|\__\ /_/ 2000 ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_

 end;
davide consonni

--> free(t);
undeclared identifier, nell'help non c'e'...
in che unit si trova?


 in che unit si trova?
forse voleva dire FreeAndNil(T); .... oppure t.free
Però non capisco in che passaggio logico si dovrebbero perdere delle
risorse... qualcuno me lo spiega???
Grazie
ciao
Matteo

forse voleva dire FreeAndNil(T); .... oppure t.free
si ma poi l'oggetto restituito dalla funzione e' stato distrutto ed e'
inservibile...


 end;
scusate per il free(t) ma sto usando anche altri linguaggi e a volte
scambio un po le cose per distrazione .. :)
Davide consonni

scambio un po le cose per distrazione .. :)
capita anche a me :D


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

Ciao a tutti qualkuno sa un modo per codificare l'algoritmo di un qualsiasi
labirinto in delhi?
grazie a tutti quelli ke mi aiuteranno
-- 
Posted from  [212.171.92.118] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 grazie a tutti quelli ke mi aiuteranno
Intendi per crearlo o uscirne?
Se la prima con quali specifiche (a stanze o a corridoi ecc.)
Salve Ramtop

 ha scritto nel messaggio
news:Xns9135DCFD7C...@212.141.84.60...

Newsgroup: it.comp.lang.delphi
Titolo: TCustomTreeView.Create

Ciao a tutti, sto creando un componente derivandolo da un TCustomTreeView,
ma sono incappato in una cosa che non mi e' chiara...Derivando il componente
e ridefinendo la creazione in questo modo:
Interface
TDrives32 = class(TTreeView)
  private
    { Private declarations }
    ...[CUT]...
       DriveNode:TTreeNode;
  protected
    { Protected declarations }
    ...[CUT]...
  public
    { Public declarations }
    Constructor Create(AOwner: TComponent); override;
  ...
Implementation
Constructor Create(AOwner: TComponent);
Begin
 inherited Create(AOwner);
 DriveNode:=Items.Add(Nil,'Floppy (A:)');
End;
Il compilatore non da errori, ma appena appoggio il componente su un form,
mi da un errore [Control '' has no parent window] ... Se pero' aggiungo un
nodo root ad un normale TTreeView quell'istruzione non da problemi ... Dove
sbaglio?
Ho pensato che la proprieta' Items non potesse essere usata, ma la funzione
nel seguente modo non da errori:
Constructor Create(AOwner: TComponent);
Begin
 inherited Create(AOwner);
 Items.Clear;
End;
Ho anche provato a derivare il componente da un TTreeView, ma e' la stessa
cosa e non so piu' cosa pensare...

"Fabio Giliberti":
| Constructor Create(AOwner: TComponent);
| Begin
|  inherited Create(AOwner);
|
|  DriveNode:=Items.Add(Nil,'Floppy (A:)');
| End;
| Il compilatore non da errori, ma appena appoggio il componente su un form,
| mi da un errore [Control '' has no parent window] ... Se pero' aggiungo un
| nodo root ad un normale TTreeView quell'istruzione non da problemi ...
Dove
| sbaglio?
prova a mettere Parent:=AOwner; (anche se in teoria
dovrebbe farlo il create ereditato)
mah...try ;)
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: Dove fare una CreateForm





Ciao,


volevo sapere se è corretto dal punto di vista della 
sintassi di Delphi effettuare una CreateForm non nel file .dpr 
dell'applicazione, ma in una qualsiasi unit.pas a seconda dell'occorrenza, per 
evitare di creare tutte le form dell'applicativo insieme e 
all'inizio.


Grazie 


Alessia



Il giorno 29 Mar 2000 16:59:48 +0200 con qualche esitazione Alessia 
Mazzeo ha scritto:

Si, puoi farle dove vuoi, ricordati di disallocarle pero'...
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 )

Grazie
puoi creare la form dove vuoi. Per stabilire il comportamente della form,
fai riferimento ai metodi Show e ShowModal per form non modali o form
modali.
Comunque prima di richiamare questi metodi, utilizza il costruttore Create
della form. Ad esempio:
Form2:=TForm2.Create(nil);
Form2.ShowModal;
Form2.Free;
oppure:
Form2:=TForm2.Create(nil);
Form2.Show;
queste due form avranno un comportamento diverso. Prova e vedrai !!
Riguardo il secondo caso, ricordati di liberare la memoria allocata.
Magari nell'evento OnClose della Form2, scrivi:
Action:=caFree;
Per quanto riguardo l'auto create (il CreateForm) nel DPR, diciamo che hai
il vantaggio di utilizzare solo i metodi Show o ShowModal per visualizzare
queste form senza crearle o distruggerle ogni volta.
Però non devi sbagliarti a scrivere Free invece di Close per chiudere una di
queste form altrimenti la volta successiva avrai un bell' AV !! eheh
Ti saluto.....ciao !!
Antonio Tarolla
BSSoftware Tips Mailing - List Support





Grazie mille per il suggerimento!!


A presto.


 


Alessia Mazzeo
CCS Tecnologies s.r.l.
e-mail: 
maz...@ccstech.it
tel: 
0113187070
Newsgroup: it.comp.lang.delphi
Titolo: FUZZY REPORT E STAMPE DI LABEL E MEMO

 devo staMpare il contenuto di una form che contiene label, memo e altro 
ovviamente il loro contenuto è stato caricato da UN FILE COME POSSO FARE?
AIUTATEMI VI PREGO!!
GRAZIE A TUTTI
pawer ranger
--- posted by geoForum on 
http://www.delphiedintorni.it

 AIUTATEMI VI PREGO!!
Non sono sicuro di aver capito...devi creare un report che stampi (con 
l'eleganza minima sindacale) i dati visualizzati all'interno di Memo e 
Label caricati da un file...oppure stampare i controlli visuali Memo e 
Label stessi così come appaiono sullo schermo?
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

DEVO STAMPARE LE LABEL E I MEMO CHE SONO CONTENUTI IN UNA FORM


 DEVO STAMPARE LE LABEL E I MEMO CHE SONO CONTENUTI IN UNA FORM
Ogni form include un metodo, *GetFormImage*, che ti restituisce 
un'immagine grafica bitmap del proprio aspetto visuale.
Puoi usare quel metodo per farti restituire un'immagine del form che 
andrai poi a stampare con FuzzyReport.
Forse non ricordo bene, ma credo che la documentazione (in italiano) di 
FuzzyReport includa alcuni esempi pratici di utilizzo che assomigliano a 
ciò che vorresti fare tu.
In alternativa, ciascuna form possiede anche il metodo *Print* che, 
sfruttando il metodo appena descritto GetFormImage, ottiene un'immagine 
del form che provvede a inviare direttamente alla stampante predefinita 
(che puoi eventualmente modificare attraverso i componenti forniti nella 
pagina "Dialogs" della Palette).
P.S.: alcuni suggerimenti comportamentali...NON SCRIVERE IN MAIUSCOLO 
perchè equivale ad urlare, inoltre non postare più volte la stessa 
domanda e fai attenzione - quando usi un browser - a non fare clic più 
volte sul pulsante di invio...il risultato sono decine di copie 
identiche dei tuoi messaggi sul gruppo che, a lungo andare, possono 
diventare fastidiosi. :-)
Comportarsi in modo poco corretto è la prima mossa per lenire 
l'interesse degli altri partecipanti verso i tuoi problemi.
Ciao!


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

con delphi 7 in una form ho messo un componente ShellListView ed ho selezionato lo stile vsReport solo che nell'utilizzo la prima colonna con il nome del file in alcuni casi è limitata ed il nome viene troncato con .... 
ho provato ad allargarla sulla form ma in esecuzione del programma ritorna alla misura originale
ho provato con questa istruzione 
ShellListView2.Columns[0].Width := 400;
a forzare la dimensione ma il risultato è lo stesso. Avete idee come aggirare l'ostacolo, grazie ciao Brunello

scusate ma la sintassi corretta è 
ShellListView2.Columns.Items[0].Width := 400;
e così funziona, ciao Brunello