mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Attributo faReadOnly

La mia applicazione attinge tramite i componenti KADao i dati da un file mdb
che viene lavorato da un'applicazione commerciale che gli insrisce
l'attributo di sola lettura tutte le volte che si chiude il programma. I
miei componenti non consentono l'accesso se non rimuovo l'attributo, ho
provato a seguire le istruzioni della guida ma non riesco a rimuovere
quell'attributo, ho provato con faHidden e mi funziona. In pratica leggo gli
attributi del file tramite GetAttributes, se è presente l'attributo con
SeAttributes, lo rimuovo, ma in fase di compilazione ottengo subito
l'errore. Qulacuno può indicarmi l'errore che commetto?
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:195Z7Z19Z10Y10...@usenet.libero.it...

Prova a dare un'occhiata alla unit
C:\Programmi\Borland\Delphi5\Demos\Doc\FMXUtils.pas
Se hai ancora qualche dubbio, chiedi pure.
Ciao ciao
Newsgroup: it.comp.lang.delphi
Titolo: MS Word: come chiudo il file?

Salve
Permetto all'utente di salvare dei dati in un file word, questo è il codice:
if SaveDialog1.Execute then begin
    Screen.Cursor := crHourglass;
    try
       WordApp := CreateOleObject('Word.Application');
    except
      messagedlg('Word non installato', mterror, [mbok], 0);
      Screen.Cursor := crDefault;
      Exit;
    end;
    try
      //nuovo documento
      Wordapp.Documents.Add;
      //corpo del documento
        //dati utente
 
WordApp.Selection.Font.Name
     := 'Times New Roman';
        WordApp.Selection.Font.Size     := 10;
        WordApp.Selection.Font.Bold     := True;
        WordApp.Selection.Font.Color    := clblue;
        WordApp.Selection.ParagraphFormat.Alignment := 0;
        wordapp.selection.TypeText(lblutente.Caption) ;
        WordApp.Selection.TypeParagraph;
        //risultati test
 
WordApp.Selection.Font.Name
     := 'Courier New';
        WordApp.Selection.Font.Size     := 9;
        WordApp.Selection.Font.Bold     := false;
        WordApp.Selection.Font.Color    := clblack;
        WordApp.Selection.ParagraphFormat.Alignment := 1;
        wordapp.selection.TypeText(listrisultati.Items.Text) ;
        WordApp.Selection.TypeParagraph;
        //media
 
WordApp.Selection.Font.Name
     := 'Thaoma';
        WordApp.Selection.Font.Size     := 10;
        WordApp.Selection.Font.Bold     := false;
        WordApp.Selection.Font.Color    := clred;
        WordApp.Selection.ParagraphFormat.Alignment := 1;
        wordapp.selection.TypeText(lbltmedio.Caption) ;
      //salvo
      wordapp.activedocument.saveas(savedialog1.FileName);
      //chiudo
      wordapp.activedocument.close;
    finally
      WordApp := Unassigned;
      Screen.Cursor := crDefault;
    end;
  end;
Funziona tutto, almeno all'apparenza, infatti ho degli strani errori quando
apro questi file manualmente(non da programma). Word mi segnala che ci sono
dei file aperti, anche se in realtà non sono visibili. E' come se il file
word salvato sia aperto in memoria.
Devo fare qualcos'altro oltre a chiudere con  wordapp.activedocument.close
e a liberare risorse con WordApp := Unassigned ? Da cosa può dipendere?
Ciao e grazie
Andrea

 visibili. E' come se il file word salvato sia aperto in memoria.
Prova a chiamare:
wordapp.quit(0);
Per i parametri di quit cerca sul manuale di VBA di Microsoft Word.
-- 
I am what I am, I do what I can
Cerchi un programmatore PHP/MySQL? 
http://url.repository.biz/go/1Y
L'uomo, conscio di sbagliare, persevera.

 Per i parametri di quit cerca sul manuale di VBA di Microsoft Word.
In effetti avevo già notato il metodo quit, purtroppo non c'è documentazione
su OLE o sbaglio?
O provato a guardare l' OLE Programmers Reference ma metodi e funzioni non
sono documentate. Dove posso trovare qualcosa?
Comunque grazie mille, provo subito con quit.
Ciao
Andrea Cocci

 documentazione su OLE o sbaglio?
Non devi cercare nella documentazione di Delphi, ma in quella di
Microsoft Word.
-- 
I am what I am, I do what I can
Cerchi un programmatore PHP/MySQL? 
http://url.repository.biz/go/1Y
Vuoi supportarmi? 
http://url.repository.biz/go/3E

Newsgroup: it.comp.lang.delphi
Titolo: TrackBar

Premetto che sono alle primissime armi.
Ho applicato una trackbar ad una form che incrementa il valore di una certa
variabile da 0 a 10.
Il valore di questa variabile viene poi usato in una procedura che viene
eseguita quando premo un bottone e che esegue un certo calcolo e lo mostra
su una Memo. Se sposto la trackbar il valore della variabile viene
incrementato ma il valore inserito nella memo non viene modificato finchè
non premo di nuovo il pulsante.
La domanda è questa: come devo fare per fare in modo che spostando la
posizione della trackbar la memo venga aggioranta automativcamente?
Avevo pensato di dire al programma che quando si verifica l'eveto
OnstartDrag eseguisse la procedura che viene eseguita quando premo il
bottone. Ma non ho la più pallida idea di come fare.
P.S.
Non sono sicuro che quello che ho scritto abbia un senso.
Grazie

Denni wrote:
<snip>
Evento OnChange, proprietą Position.
Andrea

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  edit1.text := inttostr(TTrackBar(Sender).Position);
end;
Bye
A

non ho capito!!!!!!!!!!!!!

Newsgroup: it.comp.lang.delphi
Titolo: Powersock aiuto please

Salve!
Allora il problema e' il seguente:
A run time devo poter creare una copia di una form su cui c'e' il componente
powersock
Immaginiamo di dover fare una specie di chat; per ogni utente con cui mi
metto in contatto devo stabilire una connessione su una porta libera
e devo aprire una finestra dove scriveremo. Avete presente icq? per ogni
utente con cui entri in chat si crea una nuova finestra ed una nuova
connessione.
Non so come creare una copia di una form "master" e relativo componente
powersock
Potete suggerirmi qualcosa?
Grazie!!!

 powersock
beh, lo puoi fare come fosse un qualsiasi oggetto:
F: TTuaFormMaster;
...
F:=TTuaFormMaster.Create(self);
F.Left:=...
...
F.Show;
Il fatto che ci sia questo componente powersock
(che non ho mai usato) penso sia irrilevante.
Ciao!
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: Problema DLL

Sto realizzando un programma che sfrutta delle dll come "plugin". Queste DLL
hanno tutte la stessa struttura :
- PluginConfig     (per configurare il plugin)
- PluginExecute  (per eseguire il plugin)
- PluginStop        (per fermare il plugin)
Ebbene ho fatto una dll che nella prima procedura visualizza una form dove
si inserisce il nome del file da suonare.
Nella PluginExecute lancia tramite    "
ShellExecute(0,'open',pchar(form1.edit1.text),nil,nil,sw_normal); "  WinAmp
(o
chi regigistrato come di default).
Infine nella PluginStop non faccia altro che mandare un messaggio di
chiusura del programma (WinAmp).
Ora quando nel programma che usa questa dll, quando esco lancio prima la
PluginStop ma mi da due errori :
- uno winamp con il solito "Questa applicazione ha eseguito un
operazione......'
- e l'altro il mio prg :"Runtime Error 216 at 013558A4"
come faccio a risolvere il problema ?
--
-------------------------------------------------------
Stefano "Hierro" Zilli
ICQ #25566424

Ciao,
non vorrei avere capito male, ma è possibile che l'errore sia generato dal
tipo di messaggio che invii all'applicazione.
WinAmp è predisposto per essere comandato dall'esterno mediante dei messaggi
WM_USER.
Per risolvere il tuo problema hai già provato ad inserire il tutto in un
blocco Try..Except? (anche se non penso che così risolverai visto l'errore)
Prova anche ad avviare WinAmp mediante messaggi WM_USER.....da qualche parte
devo avere tutta la lista di messaggi per pilotare WinAmp.
Prova a vedere se riesci a risolvere, in caso contrario scrivimi pure in
privato che cercherò di aiuatrti.
Bye
--
- Carlo -
BSSoftware Tips Mailing-List Support
Newsgroup: it.comp.lang.delphi
Titolo: Maledetto showmodal

Salve ragazzi !
Come posso minimizzare *tutta* l'applicazione composta da
più form generate con ShowModal (benedetto e/o maledetto
a seconda dei casi..).
Ho trovato e provato varie soluzioni tutte inutili.
Ne funziona solo una ma solo su alucni Win98 e neache
su tutti. Su Win2000 o XP neanche a parlarne,
Qualcuno ha qualche idea ?
Grazie !
Martina

 ha scritto nel messaggio
news:9mj4c.64161$Kc3.2...@twister2.libero.it...

Io metto in tutte le form , nelle variabili private del form , questa
dichiarazione.
    procedure WMSysCommand(var Message: TWMSysCommand);
    message WM_SYSCOMMAND;
e una procedura sotto {$R *.DFM}
                 <<<>>>>> nome tua unit ovviamente
procedure TFSelOrdini.WMSysCommand(var Message: TWMSysCommand);
begin
 if (Message.CmdType and $FFF0 = SC_MINIMIZE) then
    Application.Minimize
  else
    inherited;
end;
Giulio


Grazie Giulio !
 In tutte le form, dici. Ma funziona anche con XP ?
Io utilizzo / utilizzavo questo metodo:
nella dichiarazione private (solo del main)
  private
    procedure AppMinimize(Sender: TObject);
    procedure AppRestore(Sender: TObject); { Private declarations }
................
e poi sotto
{$R *.dfm}
//  minimizzazione globale form modal
procedure TMainForm.AppMinimize(Sender: TObject);
begin
  ShowWindow (Application.Handle, SW_MINIMIZE);
end;
procedure TMainForm.AppRestore(Sender: TObject);
begin
  ShowWindow (Application.Handle, SW_RESTORE);
end;
questi metodi funzionano su "alcuni" Win98; mai su Win2000 e WinXp
ed hanno il vantaggio di dover essere inseriti solo nel form principale
dell'applicazione.
Proverò la tua soluzione, che però mi sembra un pò "pallosa" da fare su
tutti i form
Grazie per il consiglio !
Martina

scusate ho dimenticato questo pezzetto di codice da aggiungere
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppMinimize;
  Application.OnRestore := AppRestore;
   .......................
Martina

Giulio sei un GRANDE !!!!!!
Funziona benissimo !
Grazie infinite
Martina

 ha scritto:

Su torry avevo trovato un componente che si chiama MinModal, lo metti su 
ogni form senza fare niente altro e quando la riduci ad icona si tira 
dietro tutta l'applicazione
Inviato da 
www.mynewsgate.net
Newsgroup: it.comp.lang.delphi
Titolo: Scritta in background in quick report

Salve, ho la necessità di inserire
in un report una scritta in diagonale che resti in background su ogni pagina
del report, una sorta di filigrana.
Avete un'idea di come posso fare?
ciao e grazie
--
Alessandro

 Avete un'idea di come posso fare?
Io per fare una cosa simile ho utilizzato un componente tQRImage sullo 
sfondo, con appunto l'immagine o quello che vuoi, poi sopra ho settato 
la proprieta' transparent dei componenti utilizzati a true.
Forse un po' artigianale, ma ci ho fatto un bel po' di simpatici moduli 
:)
Ciao.Alberto.
-- 
Alberto Rubinelli - A2 SISTEMI               posted with Gravity 2.60b
Via Costantino Perazzi 22 - 28100 NOVARA (NO) - ITALY     ICQ 49872318
E-Mail : 
alb...@retrocomputing.net
  Tel. 0321 640149 
Web    : 
www.retrocomputing.net
      Fax  0321 391669 BBS  0321 392320

 Ciao.Alberto.
E' quello che ho fatto io,
io ho anche le bande di mezzo...ho messo l'immagine "send to back"
ma mi veniva cmq stampata sopra tutto.....

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

Ciao a tutti!
Dovrei realizzare una EditBox dove l'utente possa inserire esclusivamente 
numeri, interi e real.
Non ho trovato un componente già fatto (lo SpinEdit ammette solo integer), 
magari per mia ignoranza, così sto cercando di gestire l'input inserito 
nella EditBox.
Nell'evento OnKeyPress, in VB veniva passato un parametro "e" che permetteva 
di gestire in vari modi l'input immesso; ad esempio, con "e.Handled" 
annullavo la pressione del tasto, come se l'utente non avesse premuto nulla.
Esiste una soluzione del genere anche in Delphi? Ovvero posso verificare che 
il tasto premuto non corrisponde a un numero, né alla virgola, e annullarne 
l'inserimento nel testo della EditBox?
Grazie in anticipo! 

 l'inserimento nel testo della EditBox?
Sì, puoi fare in questo modo:
   procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
   begin
     if not (Key in ['0'..'9', #8]) then
       Key := #0;
   end;
In sostanza, verifichi che il tasto premuto appartenga all'insieme di 
caratteri numerici (nel quale viene incluso anche il tasto Backspace); 
se la condizione non è verificata, imposti il parametro /Key/ al valore 
#0, che identifica un carattere nullo.
Va da se che se tale funzionalità deve essere replicata molte volte, 
conviene creare un nuovo controllo, discendente da *TEdit* (o da 
*TCustomEdit*) in cui ridefinisci il metodo /KeyPress/ ed inserisci il 
codice necessario per riprodure la stessa "logica" di funzionamento.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: oggetto creato a run time

Se ho creato un oggetto a runtime tipo TEdit, come posso associare
all'evento per es. onClick un Handler (gestore d'evento)?
Grazie a  tutti
Paolo

 all'evento per es. onClick un Handler (gestore d'evento)?
Dichiari sotto interface/public o private la tua procedura, 
p.es
.
procedure TForm1.MioEditClick(Sender: TObject);
la definisci sotto implementation
e poi, quando crei l'oggetto, fai :
MioEdit.OnClick := MioEditClick;
Semplice, no?
ciao, Sly_55.
Newsgroup: it.comp.lang.delphi
Titolo: Conversione--HELP--





Ciao a tutti io vorrei sapere se conoscete una 
funzione o cmq un componente che mi converta un file ( di qualsiasi tipo ) nel 
suo equivalente binario.
Mi scuso perchè forse per voi la domanda potrà 
sembrare un po troppo ovvia.


Ciao a tutti


 


 


Matt



 vorrei sapere se conoscete una funzione o cmq un componente che mi converta
un file ( di qualsiasi tipo ) nel suo equivalente binario.
Non mi e' chiaro il significato di "suo equivalente binario".
Potresti spiegarti meglio, descrivendo cosa vuoi ottenere, 
magari specificando anche quale versione di Delphi utilizzi?
P.S. Non e' bello postare due volte lo stesso messaggio ...
Ciao.
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

"Eh lo so.. mi sono sbagliato a postarlo 2 volte......
cmq io uso delphi 6 e 7 e intendo dire trasformare un qualunque file in una
lunga sequenza di 1 e 0 che se poi riconvertita mi riporti al file di
partenza..
ciao...matt...matt...nn elena..è che nn sto usando il mio account

 equivalente binario.
cioč...?
AS

 lunga sequenza di 1 e 0
Ma qualsiasi file è già, in realtà, una sequenza di 1 e 0. :-)
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 partenza..
non vedo la necessità di cercare in giro qualcosa di gia fatto per una 
cosa cosi semplice.
scrivi una funzione che accetta in ingresso il nome del file da convertire:
questa funzione fa:
1) apre 2 files, il primo originale ed il secondo di destinazione
2) leggi dal file sorgente un carattere
3) questo carattere lo leggi come codice ascii e lo converti in binario, 
ottentendo una stringa di 8 caratteri
4) scrivi la stringa sul file di destinazione
5) ripeti dal punto 2 fino alla fine del file sorgente.
Per fare cio servono le funzioni per la gestione dei files.
cerca assignfile nella guida in linea e trovi collegamenti abbastanza 
diretti ai vari modi di gestire file e alle varie funzioni offerte da 
delphi.
AS


questo lo so, ma qualunque editor di testo mi codifica il codice bin in
carattere ascii e io vorrei lavorare proprio unicamente sul codice
binario....


 cioè....
cioè.. cosa?
Sai come si scrive una procedura in delphi?
se la risposta è no, vedi la guida in linea.
Sai come si usa un file in delphi?
Se la risposta è no, cerca "file management routines" nella guida in 
linea. La prima funzione in elenco contiene un esempio di come aprire un 
file e scriverci dentro
Sai come si converte un numero da decimale a binario e viceversa?
Se la risposta è no, serve un libro di matematica
Se poi vuoi che qualcuno scriva 'sta cosa al tuo posto, allora il 
discorso cambia.
AS
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Google

Hanno tolto il link diretto ai gruppi dal menu "more" ed il link diretto che, dopo aver fatto una ricerca sul web permette di cercare nei gruppi.
Gia' scritti tempo fa segnalando questa regressione ma non non hai avuto alcun feedback...
 
Trovate scomodo anche voi il fatto che queste 2 cose siano sparite?
 
A.


con i tempi che corrono spero solo che continui a spenderci dei soldi 
per mantenere i server!  :-(
 
 
-- 
http://www.evilripper.net
 
http://www.flickr.com/photos/evilripper/
 

 Trovate scomodo anche voi il fatto che queste 2 cose siano sparite?
 
Non li uso.
 
Io sto usando thunderbird. E' chiaro che devi avere un account su 
qualche newsserver, io ce l'ho con x-privat (
http://www.x-privat.org/
) 
che garantisce anche la privacy.
 
ciao
 
-- 
morde
Android
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database
 


 
ciao , ho un sogno nel cuore: un carrettino gelati con 3 gusti
panna, cioccolato e pistacchio
mettermi in riva al mare , 50 cent a pallina!!!....rigorosamente senza 
scontrino fiscale!!!
 
l'informatica e voi informatici nuovi e supernuovi....MI AVETE ROTTO I 
COGLIONI!!!!!!

 I COGLIONI!!!!!!
 
viva lo Z80 e i gelati! ;)
 
-- 
Alessandra
 
Le regole religiose sono come gli elastici. Ogni credente se le
accomoda come meglio gli aggrada -F.Cucurachi

 MI AVETE ROTTO I COGLIONI!!!!!!
 
 
..bhe...visto che qua ci sono informatici (o presunti tali) che parlano di informatica, magari andare su un ng di gelatai....?? :-D
 
A.

 2) sei iscritto in qlc registro degli indagati
 
beh, oggi se non hai qualche denuncia alle spalle, non sei nessuno :)
 
-- 
Alessandra
 
Se parli con Dio stai pregando. Se Dio parla con te, sei uno
schizofrenico. Thomas Szasz

 beh, oggi se non hai qualche denuncia alle spalle, non sei nessuno :)
 
 
si, ma non basta: devi anche essere in parlamento o nel cerchio magico di qlc partito, almenti pur avendo una denunia non conti un kazzen....
 
A.

 kazzen....
 
ah, ho capito: devi essere arrivato al punto per cui un *furto* di
denaro cambia termine, diventando una piů lieve "distrazione" (di fondi
dal bilancio) :)
 
-- 
Alessandra
 
Il clero sa ch'io so che loro sanno di non sapere - Robert Green
Ingersoll

 si, ma non basta: devi anche essere in parlamento o nel cerchio magico di qlc partito, almenti pur avendo una denunia non conti un kazzen....
 
Aggiungerei un altro requisito, diventato anche questo fondamentale: 
finanziare gli spettacoli di burlesque e/o dare soldi a 
fotomodelle/starlettes per evitare che finiscano sulla brutta strada.


Newsgroup: it.comp.lang.delphi
Titolo: Componente x le immagini

Ho provato a cercare su google ma nin ho trovato nulla che facesse al caso 
mio quindi mi rivolgo a voi.
Ho la necessità che il mio programma faccia vedere in una lista (tipo 
ListBox) di fotografie (immagini in jpg) ridotte che quando ci clicco 
appaiano nel formato orginale in altra form... esiste una listbox per le 
immagini (anche senza testo), senza che debba crearmene una da principio?
Uso delphi 7, grazie della collaborazione a tutti 

image cl:
http://www.torry.net/pages.php?id=134
A.
Newsgroup: it.comp.lang.delphi
Titolo: orologio

Ciao a tutti
Come posso inserire in una mia applicazione l'ora? (tipo orologio in basso a
destra di windows)
Grazie
Ghismond

 destra di windows)
Potresti per esempio usare un timer. Nell' OnTimer metti il seguente codice:
=========
label1.caption:=TimeToStr(Now);  // cosě scrivo l'ora in una label ma tu
puoi farlo dove vuoi
=======
in questo modo ti tira fuori l'ora in formato "hh:mm:ss"....se vuoi
utilizzare un altro formato come per esempio "hh:mm" o "hh:mm:ss:hundred"
puoi usare puoi usare la funzione DecodeTime che ti restituisce
separatamente hh, mm, ss, hundred e poi te li visualizzi dove ti pare.
Imposta l'interval del timer secondo le tue esigenze (es: 1000 se visualizzi
la data in "hh:mm:ss")
Cmq in giro si trovano anche componenti che servonon proprio al tuo scopo e
che visualizzano anche orologi analogici, magari ti possono interessare.
Ciao.
--
DeViL!
=====================================
Togliere ILDISTURBO per rispondere :-)
=====================================
-------------------------------------------------------------
"...tu mi hai illuso che ero un illuso di sogni mi hai privato
ed ora non ti scuso di talento abuso, nella vita di ogni giorno
adesso la mia testa uso..." (ST)
-------------------------------------------------------------

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

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

Come posso mettere in relazione due table, senza usare SELECT .. UN ION di
SQL, tramite un campo uguale, per esempio Codice Articolo, in modo che allo
spostarsi all'interno della prima table ci sia lo spostamento automatico al
record corrispondente nella seconda?
Grazie
Fabio Florio
http://newser.cjb.net

 wrote in message
8kc9ou$1s6$1...@nslave2.tin.it...


 automatico al record corrispondente nella seconda? Grazie
Non e' che ti stai riferendo al classico Master-detail? Se e' cosi'
basta fare:
Tabella2.MasterField:='CodiceArticolo';
Tabella2.MasterSource:=Tabella1Source;
Pero' questo funziona solo con le TTable.
Sperando di aver capito e di esserti stato utile... alla prox!
-- 
Ciao da Giuseppe Fraddosio
    // FidoNET 2:335/727.2    
 \X/  
fradd...@libero.it
 
fradd...@tin.it
 
Membro AGI Puglia Sez. Bari 
Powered By Amiga2000T/060@50Mhz/CV3D 4Mb/AmigaOS 3.5
Newsgroup: it.comp.lang.delphi
Titolo: Problema TListBox

Salve NG,
ho un problema,come posso visualizzare una serie di immagine da una
TListBox, senza caricare le immagini direttamente sul programma.Ho creato
già un Menu di installazione x giochi su un cd ma come faccio a far
corrispondere ad ogni nome l'immagine corrispondente,da caricare
direttamente dal cd?
Attendo una risposta al + presto.
Grazie posticipati!

Il discorso è abbastanza confuso, cmq se non ho capito male nella ListBox
hai l'elenco dei nomi dei file dell'immagini.
Quindi se hai un componente TImage sulla form non devi far altro che
usufruire della proprietà
Picture per fare il load dell'immagine dal file.
Es:
Image1.Picture.LoadFromFile( ListBox1.Items[ListBox1.ItemIndex] );
Spero che era questo che intendevi.
Ciao
  Fabio

 Attendo una risposta al + presto.
<MODE Alberto Salvati ON>
Non per fare il professore, ma nello stesso tempo che hai postato questi 2
messaggi potevi benissimo cercare sia negli esempi di delphi che nella guida (un
qualsiasi LoadFromFile...)
<MODE Alberto Salvati OFF>
Senza offesa, ma prima di postare, fai qualche sforzo tu, altrimenti non
imparerai mai a programmare.
--
Jax

> Attendo una risposta al + presto.
Ancora?
E' uno scherzo, vero?
Bye
A.

Jax, credi sia educato postare QUI una frase del tipo
"Attendo una risposta al + presto"?
<ADVANCED MODE Alberto Salvati ON>
Ah, gia!
Dimenticavo!
Noi siamo l'hotline di Borland.....
Ci pagano per questo.....
<ADVANCED MODE Alberto Salvati OFF>
Bye
A.

 "Attendo una risposta al + presto"?
Eddai, guarda che scherzavo...
e credo che quella frase tu l'abbia equivocata. In fondo non ha scritto "muovete
il culo a rispondermi!"... suvvia.
Basta interpretarla come "Attendo una risposta al + presto che potete".
Live and let live!
--
Jax

Newsgroup: it.comp.lang.delphi
Titolo: Avvio di un programma come Icona

Ho la necessità di realizzare un programma che elabora certi dati in arrivo
sulla porta seriale.
Impostando la proprietà WindowState a wsMinimized posso fare in modo che
l'applicazione venga attivata come un'icona nella barra delle applicazioni.
L'utente può, comunque, ripristinare l'applicazione.
Ho notato che, nella parte destra della barra delle applicazioni, a fianco
dell'ora, vi sono le icone di alcuni programmi che non hanno elementi
visuali. E' possibile, con delphi 5, fare in modo che il mio programma in
esecuzione venga attivato come queste applicazioni?.
Grazie.
-- 
Posted from 
relay1.ssi.enel.it
 [146.133.2.149] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ho notato che, nella parte destra della barra delle applicazioni, a fianco
dell'ora, vi sono le icone di alcuni programmi che non hanno elementi
visuali. E' possibile, con delphi 5, fare in modo che il mio programma in
esecuzione venga attivato come queste applicazioni?.
Parli della tray area?
Devi utilizzare la funzione ShellNotifyIcon dell'API di Windows ... se non
vuoi sbatterti troppo puoi scaricare dei componenti già pronti (su Torry o
sulla DSP) che fanno quel che chiedi!
Ciao
--
- Carlo -
Newsgroup: it.comp.lang.delphi
Titolo: [REQ] Third Part Treeviews for D6

Sto cercando un treeview "alternativo" per Delphi 6 che supporti i checkbox,
possibilmente freeware e con sorgenti.
Finora ho visto TreeNT, Virtual Trees e ElTree... ma prima di sceglierne uno
vorrei avere + candidati... ;)
Qualche consiglio?
10x in advance,
Humo



FayeV wrote:

Io me lo sono fatto from scratch, usando gli eventi, le proprietà ed i 
metodi che ci sono già. E non è difficile. Basta leggere con attenzione 
il manuale ed avere un po' di dimestichezza con il Canvas (ma poi ho 
usato solo una TImageList ed una struttura dinamica in appoggio alla 
TTreeView).
Ciao.
Mimmo.
Newsgroup: it.comp.lang.delphi
Titolo: assegnare evento ad un radiobutton creato da codice...

ciao..
scusatemi..
come faccio ad assegnare all'evento Onclick di un radiobutton creato da
codice un eventuale procedura?..
per creare i radiobutton ho fatto cosi':
    while i <numradio do
    begin
      with  TRadioButton.Create(self) do
      begin
        parent:=Form1;
        name:='c'+inttostr(radio);
        left:=300;
        top:= radio*15;
        tag:=radio;
        inc(radio);
      end;
    end;
e cosi mi crea la lista dei radio...
io vorrei assegnare all'evento onclick di ogni songolo radio creato un
codice tipo
showmessage([
radio.name
])
come faccio?
vi ringrazio
ciao ciao
--- posted by geoForum on 
http://www.delphiedintorni.it

oggetto.OnClick := MioClick;
A.

A.


 
prova col Sender va
In an event handler, the Sender parameter indicates which component
received the event and therefore called the handler
Ciao, Antò.

showmessage(
sender.name
);
col sender mi da errore..:|
undeclared identifier "name"

--- posted by geoForum on 
http://www.delphiedintorni.it

LEGGI UN PO L'HELP IN LINEA E POI NE RIPARLIAMO.
A.

 col sender mi da errore..:|
ShowMessage ((Sender as tRadioButton).Name)) ;
Pero', come dice il mio omonimo, leggere l'help risolve queste cose, 
senza chiedere. Un po' di sano orgoglio :)
-- 
================================================================
Alberto Rubinelli - A2 SISTEMI 
news.aioe.org
 ThunderBird 2.0.0.4
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 640149   Fax 0321 391769   BBS 0321 392320
Mail: 
alb...@oldcomputers.de
skype: albertorubinelli  ICQ : 49872318
Visita il mio museo di computers: 
http://www.oldcomputers.it
================================================================

 
Mi intrometto, per una battuta..scherzosa fino a un certo punto..
Perche...hanno messo finalmente l'help in linea nella nuova versione di 
delphi ? L'ultima volta che ho premuto F1 mi è apparso del codice di 
esempio in C#..
:-)
Gian

 esempio in C#..
La Documentazione in linea del .NET Framework, essendo alquanto corposa, 
non è stata replicata per aggiungere esempi codificati in Delphi, 
pertanto quello che vedi è la suddetta documentazione di Microsoft, con 
la ricerca contestuale in base al tipo di dati o al suo membro 
selezionato, con esempi in C# e 
VB.NET
.
Tuttavia, le informazioni riportate sono valide anche Delphi.NET, dal 
punto di vista delle informazioni contenute.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: Emettere beep dallo speaker

Ciao a tutti,
esiste qualche istruzione che mi permetta di far emettere dei suoni (beep)
dallo speaker interno el PC e non dalle casse collegate alla scheda audio?
Grazie in anticipo, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

dallo speaker interno el PC e non dalle casse collegate alla scheda audio?
Già provato l'API MessageBeep() ?

Usa semplice idea di Borland, provare per credere :-)
procedure TForm1.Button1Click(Sender: TObject);
begin
Beep;
end;
--- posted by geoForum on 
http://www.delphiedintorni.it


Grazie per le risposte, avevo già provato sia Beep che MessageBeep, ma non
funziona.
Vi spiego il motivo di questa richiesta strana: ho fatto un programmino che
deve girare su un PC che ha le casse nel monitor. Siccome questo programma
dura parecchio, quando è in esecuzione il monitor viene spento per evitare
sprechi e l'utente che lo usa vorrebbe un avviso acustico al termine
dell'esecuzione, così avevo pensato allo speaker interno del PC.


 end;
La funzione beep non usa necessariamente lo speaker, lo usa solo se non 
sono presenti periferiche audio da utilizzare, e non è il caso di MBulu 
(e anche il mio, per esempio, infatti mi fa il solito "ding!" di Windows).
Comunque googlando ho trovato parecchi esempi più o meno complessi: 
questo è il più completo 
http://delphi.icm.edu.pl/ftp/d10free/bleepint.zip
)
poi c'è questo
http://delphi.about.com/cs/adptips2003/a/bltip0303_3.htm
o questo
http://www.delphifr.com/codes/FAIRE-BEEPER-SPEAKER-UC_12673.aspx
purtroppo non ho modo di provarli, nessuno sul mio portatile funzia, ma 
non so se è colpa del portatile o di XP Pro.
-- 
Jax


Grazie, stasera a casa ci provo


 > non so se è colpa del portatile o di XP Pro.
Ho provato solo questo e funziona. Grazie ancora, Mario

Newsgroup: it.comp.lang.delphi
Titolo: Comp. ClientdataSet

Sto iniziando ad usare il ClientDataSet in ADO.
Ho collegato il componente ad un DataSetProvider nel quale a sua volta ho 
impostato una Dataset:=ADOQuery1.
- Mi chiedevo e' corretta la costruzione se intendo lavorare in SQL usando 
la ADOQuery?
- Prima ad esempio di cambiare un parametro in una sql devo porre 
active:=false sia per il clientdataset che per la adoquery?
- Se modifico dei dati con una INSERT nella ADOQuery oppure modificando 
direttamente un campo usando il ClientDataset come mi devo comportare
 nei riguardi della transazione affinche' le modifiche passino 
effettivamente al Server?
Grazie, Giorgio

 - Se modifico dei dati con una INSERT nella ADOQuery 
Non devi farlo.  La transazione è gestita in automatico dal DSP.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


OK. Se non metto nulla nel campo DataSet del Provider mi da errore dicendo 
che la proprieta' e' vuota. Ma se qui imposto il CDS ottengo un altro 
errore: circular Provider references not allowed?? dove sbaglio?
Giorgio 

errore: circular Provider references not allowed?? dove sbaglio?
Il CDS è agganciato al DSP e il DSP è agganciato al componente
TSQLQuery.

"Andrea Laforgia" <a.laf...@andrealaforgia.it.invalid> ha scritto nel 
messaggio news:976k13dr89rvddovh...@4ax.com...

E il select iniziale (tipo SELECT * FROM BIBLIOTECA) che metto nella 
ADOQuery definisce la tebella, i campi che saranno usati dal CDS.
Fatto cio' eventuali filtri sui dati, o loro modifiche le effettuo 
esclusivamente agendo sulle proprieta' o i metodi del dataset, in questo 
senso non ho piu' necessita' di usare comandi SQL?
Giorgio

 senso non ho piu' necessita' di usare comandi SQL?
Sě.



Una Query permette pero' la "visualizzazione" di campi provenienti da piu' 
tabelle, se ho capito bene usando il CDS si perderebbe questa capacita'?
Giorgio 

 tabelle, se ho capito bene usando il CDS si perderebbe questa capacita'?
No, ti sbagli. Il CDS riflette le operazioni su un dataset che puoi
estrarre anche facendo delle join. In ogni caso, ti consiglio di reperire
in rete gli articoli di Cary Jensen, per documentarti in proposito.


"Andrea Laforgia" <x...@xx.xx> ha scritto nel messaggio 
news:evfvcn$s9$1...@news.newsland.it...

Grazie delle info
Newsgroup: it.comp.lang.delphi
Titolo: Risoluzione immagine

Esiste una proprietą o una funzione che restituisca la risoluzione di un
immagine?
Ad es. Image1.Picture.<<resolution>>
dove:
Image1 č un oggetto che creato io
<<resolution>> l'ho inventata


    ABLS Team (
www.abls.it
)
········································



Che intendi per risoluzione? Le dimenzioni? il dpi?
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

 ha scritto nel messaggio
news:aukp78...@razziatore.no-ip.com...


Ciao.
non è semplicissimo 300 pixel/pollice vuol dire propio dpi...
stavo dire non è semplicssimo perche non è intrinseco nella imagine
stessa ma + tosto al metodo di stampa...
cioè imagine porta con se solo le dimenzioni non la qualita di stampa
che cmq credo ke in delphi sia fisso... ma questo non lo so...

Newsgroup: it.comp.lang.delphi
Titolo: Come rendere 'statica' una casella di testo?

Ciao voglio impedire che una casella di testo venga editata.
Mi serve perche' ti permette di usarla per scrivere testo (ad esempio
il risultato di un'operazione).
Ma non voglio usare Disabled perche' il testo diventa grigio. Io ho
messo una casella di sfondo nero e testo giallo.
Come devo fare?
grazie!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Mettila in un TPanel, e poni MioPanel.Enabled:=False.
E' il modo + facile e pulito per evitare che uno ci possa anche solo
cliccare sopra seza cambiarne l'aspetto.
Ciao,
G.

 ha scritto nel messaggio
news:e53da2c9255c8cbd377...@mygate.mailgate.org...

Veramente ci sarebbe una pèroprietà chiamata readonly...
ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

Basta settare l'attributo readonly true
CIAOOOOOO!!!!!!!!!!!!


Purtroppo però ci riesci ancora a cliccare sopra...

 ha scritto nel messaggio
news:a8s30n$t28g1$1...@ID-106993.news.dfncis.de...

Non voglio essere pignolo ma non mi sembra che nel post di Open Look sia
chiesto di non poterci cliccare sopra...
Ciao
[cut]
Ciao voglio impedire che una casella di testo venga editata.
Mi serve perche' ti permette di usarla per scrivere testo (ad esempio
il risultato di un'operazione).
Ma non voglio usare Disabled perche' il testo diventa grigio. Io ho
messo una casella di sfondo nero e testo giallo.
Come devo fare?
grazie!
[/cut]



Beh, un po pignolo lo sei!  ;o)
Scherzo. Comunque ho sempre trovato antipatico il fatto che ci clicchi
sopra, si sposta il focus, il cursore pure ci lampeggia, e solo alla fine ti
impedisce ti introdurre o modificare caratteri. Per questo motivo gli
suggerivo l'altra soluzione. Solo per una avere una soluzione un po +
elegante, in modo da accorgerti subito che non puoi "toccare" quel
controllo.
Ciao,
G.

io vorrei anche che l'utente ci potesse fare copy del
risultato... è una calcolatrice per calcolare il bitrate del DIVX ;-)
e si chiama Trap's Calc...
quindi come ha ragione Carlo, readonly := true va piu' che bene!


cliccare sopra seza cambiarne l'aspetto.
Il modo piu' facile e pulito e' usare ReadOnly.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 ha scritto nel messaggio
news:2654d777ab39b301999...@mygate.mailgate.org...

:-)

Newsgroup: it.comp.lang.delphi
Titolo: StringGrid sola lettura

Come posso fare a rendere di sola lettura una colonna di una Stringgrid?
Grazie Paolo 

Grazie Paolo 
Buongiorno,
In proprietą di EDIT č dovuto di mettere false, guarda se gentile Object 
Inspector.
--- posted by geoForum on 
http://www.delphiedintorni.it

Necessita di scambio opzione al momento giusto.
Esempio:
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if StringGrid1.Col=1 then StringGrid1.options
[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect]
          Else StringGrid1.options
[goEditing,goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeS
elect]
end;


Grazie mille
Paolo 

Metti nell'evento ONDRAW perchč non salti eventuali posizionamenti nel 
campo con TAB, freccia etc.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: 
Integer;
  Rect: TRect; State: TGridDrawState);
begin
if StringGrid1.Col=1 then StringGrid1.options:=
[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect]
          Else StringGrid1.options:=

Newsgroup: it.comp.lang.delphi
Titolo: Variabile in delphi

Ho creato una procedura che mi consente di fare un'operazione su più 
tabelle ma non riesco a passare il nome della tabella come variabile.
Mi spiego.
Se dovessi scrivere 
TClienti.open
voglio che il nome della tabella tclienti venga assegnato da una 
variabile che ho chiamato nometabella che di volta in volta cambia il 
suo valore in riferimento alla tabella specificata.
NomeTabella.open
Penso di aver letto da qualche parte che bisogna far precedere la 
variabile da qualche cosa per esmepio il $ ma non ricordo bene.
Qualcuno ha una soluzione. Grazie
--- posted by geoForum on 
http://www.delphiedintorni.it


Nella USES della finestra che utilizza l'altra form devi mettere il
nome della unit .pas

Se ho capito bene dovresti fare cosě.
....
   var MiaTable : tDataset ; // oppure tQuery , tTable ecc.
...
Poi quando devi scegliere il datasaet da usare :
...
   If varBool Then
        MiaTable := TabClienti
   Else
        MiaTable:= TabFornitori ;
...
poi agisci cone se in MiaTable ci forrsero le tabelle copiate (o assegnate).
....
  MiaTable.Open ;
...
Delphi č molto potente e ti permette di assegnare a qualsiasi variabile, se
ben definita ( vedi var MiaTable : tDataset ; ) anche la completa istanza di
un oggetto.
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

un oggetto.
Precisazione: in Delphi non esiste il concetto di assegnazione di una
"completa istanza di un oggetto". Lo specifico perché in altri
linguaggi con capacità di istanziare oggetti statici (vedi il C++),
questa funzionalità esiste (si scatena, ad esempio, il copy-ctor).
In Delphi quelli che vengono chiamati "oggetti" o "istanze", sono in
realtà reference, puntatori mascherati.
Quindi, dati:
var 
  A, B: TObject;
scrivere
  A := B;
significa far puntare A alla memoria puntata da B e *NON* copiare
l'oggetto B in A (cosa che avverrebbe, invece, in C++ o in altri
linguaggi simili).

linguaggi simili).
A meno che l'oggetto non preveda un metodo di creazione e allora un
bel .Create et voilà...

bel .Create et voilà...
Non mi sono spiegato.  l Create è semplicemente il costruttore
dell'istanza (non c'entra con quanto sto dicendo) e comunque e sempre
si ottiene un reference all'oggetto. In Delphi non esistono istanze
statiche.
Newsgroup: it.comp.lang.delphi
Titolo: QuickReport e label in verticale

Ciao a tutti,
       e' possibile, in quick report, visualizzare una label (quindi un 
testo superstatico) con il rispettivo testo in verticale ? (ruotato di 90 
gradi o di x gradi??).
Grazie per la risposta.
Ciao
Daniele 

 gradi o di x gradi??).
si.
Non insultero il tuo QI dicendoti dove cercare.
A.

 Non insultero il tuo QI dicendoti dove cercare.
Troppo buono.....
Nella mia ricerca ho trovato solo due componenti compilati per delphi 3 (io 
ho il 6), giusto ora ne ho trovato un'altro (TQRAngled) vedo se questo 
funziona ....
Alla prossima....
Ciao,
Daniele 

 ha scritto nel messaggio news:470de73b$0$4788$4faf...@reader4.news.tin.it...

Se il testo è superstatico potresti disegnare una bitmap come ti pare e metterla nel report.
C. 

 metterla nel report.
E' supertastico nel senso che e' una label che visualizza il testo preso da 
un edit posto in un'altra form.
Ciao,
Daniele

Newsgroup: it.comp.lang.delphi
Titolo: Problema con report Rave

Ciao a tutti,
ho creato un report in Rave che punta ad una tabella di un database
access. Questa tabella ha dei campi che sono definiti come "Valuta".
Il mio problema è che mi vengono riportati sul report senza decimali
qualora l'importo sia intero. Ad esempio 8,00 lo vedo scritto sul
report come solo 8. Come posso far scrivere anche i decimali?
Grazie mille in anticipo,
Dario
Ps: uso il delphi 7, la versione Rave è la 5.0

 ha scritto nel messaggio 
news:1191615455....@19g2000hsx.googlegroups.com...


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

Qualcuno ha in vendita DELPHI_6 prof. Se si mandatemi una E-Mail, Grazie.
--
a.cav...@email.it


Tutti scopiazzati... quanti ne vuoi 10, 100, 1000, 10000....!?
The Hack Cracket

 ha scritto nel messaggio
news:McIP9.61692$TC5.2...@twister1.libero.it...


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

che stringa di comando utilizzo per eseguire da un form un eseguibile .exe ?

vecchi post?
help in linea?
A.

 che stringa di comando utilizzo per eseguire da un form un eseguibile .exe ?
Dai un occhio a ShellExecute della unit ShellApi:
io lancio un .bat con :
ShellExecute(GetDesktopWindow, 'OPEN', PCHAR('prova.bat'), nil,
PChar(''), SW_SHOWNORMAL);
oppure apro una cartella:
ShellExecute(self.WindowHandle,'open', PCHAR(PATH_OUT) ,nil,nil,
SW_SHOWNORMAL);
oppure apri un PDF in Acrobat con :
ShellExecute(Handle, PChar('Open'), PChar('pippo.pdf'),nil , PChar('c:
\data'), SW_SHOWNORMAL);
Zeno
Newsgroup: it.comp.lang.delphi
Titolo: Pack dei DBF attraverso BDE o TDBF

Salve,
 penso che la mia domanda sia un classico: vorrei fare il PACK di
alcune tabelle DBF.
Con il BDE :
Ho seguito quando descritto in 
http://www.prestwood.com/community/delphi/info/lessons/pack.asp
Ma le dimensioni del file  DBF non cambia.
Con TDBF :
Ho seguito quanto indicato da :
http://wiki.lazarus.freepascal.org/Lazarus_Tdbf_Tutorial
Ma ugualmente le dimensioni non cambiano.
Uso Delphi 2006 Pro o eventualmente il Delphi 7 Pro.
Voi come fate il pack delle tabelle DBF ?
Con BDE:
 with Tabella do begin
    Active := False;
    Exclusive := True;
    Active := True;
    showmessage('ok');
    //--------------------------
     PackTable(Tabella,True);
    //--------------------------
    showmessage('fine');
    Active := False;
    Exclusive := False;
    Active := True;
 end;
Con TDBF :
 with MainForm.Dbf1 do begin
  Active := False;
   Exclusive := True;
    Open;
     PackTable;
     RegenerateIndexes;
    Close;
   Exclusive := False;
 end;
ringraziamenti anticipati
Zeno

il dbf ha dei memo?
A.

 Active := False;
P.S. Per non tralasciare niente, il file di partenza ha dei record
cancellati? Lo chiedo perché se non ne ha credo che sia normale che la
dimensione non cambi.
Ciao, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

   Exclusive := False;
scusate, se mi intrometto:
io ho Delphi 5, vecchiotto ma funzionante, ed utilizzo DbIV come 
tabelle: PackTable non è previsto, è stato inserito nelle versioni 
successive, è una patch, oppure una Unit di terze parti? Essendo un 
grosso problema per le dimensioni raggiunte dai file... vuoti, gradirei 
ardentemente notizie...
Grazie
NioBi
--- posted by geoForum on 
http://www.delphiedintorni.it

 successive, è una patch, oppure una Unit di terze parti?
PackTable è una procedure che fa parte del pacchetto TDBF. Io la uso appunto
per eliminare fisicamente i record cancellati dal file, ma non so se oltre a
questo fa dell'altro. TDBF, almeno per Lazarus, è un componente aggiuntivo,
ma da quel che ho capito funziona anche con Delphi.
P.S. Per compattare il file, comunque basterebbe anche fare una copia record
per record in un file di appoggio, alla fine cancellare il file originale e
rinominare quello di appoggio con il nome del file originale.


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

NON risco a risolvere il mio problema...non esiste il modo per
chiudere l'acrobat dopo la stampa???
GRazie a tutti!!!!!

 chiudere l'acrobat dopo la stampa???
Non serve aprire un nuovo thread per un problema segnalato solo ieri!
Comunque ti ho risposto (nell'altro thread), dovresti essere a posto.
-- 
Jax

è stato un errore, dai ......
andrea 

 è stato un errore, dai ......
Dubito :)
Diciamo che è tipico dei newbie riaprire thread per attirare 
l'attenzione... di solito ha l'effetto inverso :)
Comunque non l'ho mica ucciso, l'ho semplicemente avvisato; uomo 
avvisato, uomo avvisato (Bitta docet).
-- 
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Grafica e Refresh

Salve,
sono alle prese con la gestione grafica in delphi. Qualcuno sa dirmi come
faccio a gestire completamento l'aggiornamento delle form e dei componenti
su di essa?
Ho come l'impressione che windows accoda tutte le richieste di refresh e poi
li esegua tutte in un colpo... penso che sia dovuto ad una questione di
efficienza.
Ma se volessi realizzare ad esempio un gioco... vorrei gestire io questi
eventi, come faccio?
Grazie

eventi, come faccio?
Usando un framework appropriato, come le DirectX.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]
Newsgroup: it.comp.lang.delphi
Titolo: Line too long ??

In una mia unit, creo a runtime una serie di items di Menu con le seguenti 
istruzioni:
  NewItem := TMenuItem.Create(Self);
  NewItem.Caption := _Caption1;
  Popup1.Items.Add(NewItem);
  NewItem.ImageIndex:= Img1;
  NewItem.OnClick   := Btn1Click;
  NewItem := TMenuItem.Create(Self);
  NewItem.Caption := _Caption2;
  Popup2.Items.Add(NewItem);
  NewItem.ImageIndex:= Img2;
  NewItem.OnClick   := Btn2Click;
Le istruzioni sono ripetute enne volte tante quanti sono i menu e funzionano 
ok.
Adesso ho cercato di aggiungere un altro menu e ho duplicato un blocco di 
istruzioni da quelle sopra, ma in compilazione ricevo il messaggio: "Line 
too long (more then 1023 characters)"
Avete idea del perchè ?

Stark ha scritto:




Nell'IDE cancella tutti gli "a capo" alla fine delle righe e ribatti
l'Invio(credo sia una questione di CR+LF e problematiche simili che si
perdono nel copia/incolla).
Ciao
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 perdono nel copia/incolla).
Ah, curiosità: perchè' non fai un funzione che, ricevuti in ingresso
Caption, Menu', Immagine, ecc.., crea gli items invece di digitare o
copiare nel codice tutte le istruzioni?


Grazie, ottima idea, non mi era proprio enuto in mente di fare una prova del 
genere. Adesso provo..
"ACSH" <xxxxx.in...@xxx.xxx> ha scritto nel messaggio 
news:fenct0$2km$1...@news.newsland.it...


Ho provato ora a copiare tutto nel Blocco Note, fare qui le mie aggiunte e 
salvare. Poi rinominare il file come .pas e così va bene.
Se effettivamente è una questione di CR+LF cosa dovrei fare ? E' la prima 
volta che mi capita. L'unica cosa che ho fatto è cambiare il SO in Vista, ma 
questo già da qualche settimana ...
"ACSH" <xxxxx.in...@xxx.xxx> ha scritto nel messaggio 
news:fenct0$2km$1...@news.newsland.it...

Newsgroup: it.comp.lang.delphi
Titolo: procedura per calcolare giorni fra due date

Come si fa a calcolare quanti giorni passano tra una data e l'altra?
Esempio dal 1/10/2006 al 31/10/2006 = 31 giorni (mi occorre sapere i 
giorni tra le due date, insomma).
Grazie.



La differenza tra due TDate è in giorni, quindi:
var
  DTStart, DTEnd: TDate;
  GGDiff: Integer;
...
DTStart := EncodeDate(2007, 10, 14);
DTEnd := EncodeDate(2007, 10, 20);
GGDiff := DTEnd-DTStart;

 GGDiff := DTEnd-DTStart;
Le date sono in due dbedit, quindi fanno parte del database e dopo devo 
stampare un report con Quickreport. Mi puoi fare un esempio pratico? Te 
ne sarei molto grato. Grazie comunque.

ne sarei molto grato. Grazie comunque.
Te l'ho già fatto.

Andrea Laforgia ha scritto:


Scusa per il disturbo. Grazie. Forse non mi sono saputo spiegare. Fa niente.

Vabbé, la soluzione di Andrea è la base per smanettare eppoi non è una cosa 
così difficile
Dato che hai dei DBEdit magari puoi avere il TDateTime del giorno e puoi 
usare (mi pare) DaysBetween()
Comunque come sempre l'help ti è amico, se cominci a cercare TDateTime poi 
di click in click trovi tutto quello che ti serve (praticamnte la unit 
DateUtils sempre se mi ricordo bene)
-- 
 



Esplora la unit dateutils, c'è daysbetween che fa al caso tuo
-- 
Morde

Edmondo Di Tucci ha scritto:

Ok, grazie a tutti per le cortesi risposte.

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

Se in sql volessi eseguire la stessa operazione del Tabella1.FindNearest 
delle ttable cosa dovrei scrivere?
Giorgio 



Esiste la clausola LIKE.
p.s.: sei off topic.