mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Ceazione di un editor tipo Paint!!!!!!!!!!!!

Salve, vorrei sapere se esistono delle librerie per creare un'editor tipo
Paint.
Avvrei la neccssita' di sapere se esitono componenti per fare cio oppure
dove reperire cosice ed esempi per creare tale editor.
Grazie per chi voglia rispondermi!!!

sbobbas ha scritto:

Hai già scritto questa domanda... non credo che riproporla aumentando il 
numero di punti esclamativi sia proficuo. :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 ha scritto nel messaggio 
news:4366056a$0$13344$4faf...@reader2.news.tin.it...


 molto direi, se analizzata a fondo.
Permette di fare tutto ciň che, di base, permette di fare Windows.  Le 
classi in questione non sono altro che wrapper attorno ai tipi standard 
del sistema operativo e delle operazioni di gestione dei device context.
Per operazioni piů complicate, poi, esistono sicuramente librerie piů 
avanzate (generalmente a pagamento).


non so con le altre versioni ma in quella che ho io c'e' il demo di 
esempio GraphEX che da quanto ho capito e' una base di quello che stai 
cercando.
ciao
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

 cercando.
Questo link può forse essere d'aiuto:
http://delphi.about.com/od/graphics/

Editor di immagini open source delphi belle che pronto...
http://daakumataa.sourceforge.net/
-- 
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"

scusa mi ero dimenticato un pezzo...
http://sourceforge.net/projects/imagee


Newsgroup: it.comp.lang.delphi
Titolo: [OT] firebird, nuovo sito

In passato avevo annunciato che la firebird community stava 
ristrutturando il sito, oggi il lavoro fatto è ufficialmente online:
http://www.firebirdsql.org/
saluti
-- 
morde
D5,D6,D7
Firebird 2.1
QT 4.7.0 (MingW) QT Creator 2.1

 
http://www.firebirdsql.org/
 
 
Dovro' proprio decidermi ad installarlo ed a provarlo .... non posso  
scegliere un db senza aver provato anche lui :)
 
Ciao.Alberto.
 
-- 
=============================================================
Alberto Rubinelli - Fondazione "Museo del computer" Onlus
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 1856032   Fax 0321 391769   BBS 0321 392320
Mail: 
ne...@museodelcomputer.org
 
Web : 
www.museodelcomputer.org
 
=============================================================

saluti
se volete contribuire alla comunità italiana di scrivete a
in...@firebirdsql.it
codebue fabio
Fabio Codebue
P-Soft
.-----------------------.
http://www.p-soft.biz
http://www.firebirdsql.it
http://www.p-toolz.biz
http://www.gestionaleopen.org
Newsgroup: it.comp.lang.delphi
Titolo: SQL

Sapete dirmi dove posso trovare un manuale on line sull' SQL con degli
esempi allegati ???

 ha scritto nel messaggio
news:8s3nml$5v2$1...@pegasus.tiscalinet.it...


 esempi allegati ???
viene spiegato qualcosina (molto poco) sul D5 cantů da pag 451
--
web:    
http://gnaffy.tripod.com/
e-mail: Gna...@Wappi.com
e-mail: 
bmq...@tin.it
ICQ#:  76488613

Trovato ! 
http://www.html.it/sql/index.html
prova a guardare


Newsgroup: it.comp.lang.delphi
Titolo: Il mio IP

Come catturo il mio IP in delhpi quando sono connesso in rete?
Centra qualcosa ServerSocket1.LocalAddress

> Come catturo il mio IP in delhpi quando sono connesso in rete?
Le faq??
6.4
-DOMANDA:
Come ottengo l'IP della macchina su cui gira il mio programma ?
-RISPOSTA:
Ecco una procedura che fa per te (devi includere Winsock.pas).
Function GetIP:string;
var
  WSAData: TWSAData;
  HostName, IP: String;
  HostEnt: PHostEnt;
begin
  try
    WSAStartup(2,WSAData);
    SetLength(HostName,255);
    GetHostName(PChar(HostName),255);
    SetLength(HostName,StrLen(PChar(HostName)));
    HostEnt:=GetHostByName(PChar(HostName));
    with HostEnt^ do
      IP:=Format('%d.%d.%d.%d',
                     [Byte(h_addr^[0]),
                      Byte(h_addr^[1]),
                      Byte(h_addr^[2]),
                      Byte(h_addr^[3])]);
    WSACleanup;
  except
  Ip:='Error getting IP';
  end;
 Result:=ip;
end;

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

Ciao a tutti,
ho un problema con il remote debugger del D2006. C'e' qualche anima pia 
che mi puo' aiutare
La connessione sembra funzionare perche' riesco a vedere i processi 
remoti, tranne l'instanza del rmtdebg100 (il server) che me me ne fa 
vedere 3 (chissa' perche').
avvio la mia applicazione e si impianta tutto.
Nota che l'applicazione gira su una macchina virtuale VMWare e non su 
una macchina reale, ma non penso ci siano problemi.
Grazie a chi mi puo' dare qualche suggerimento
Ing Giuseppe Monteleone

una macchina reale, ma non penso ci siano problemi.
Qualche problema è stato segnalato, hai provato su una macchina reale? 
Com'è impostato il networking di VMWare?
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.delphi
Titolo: Da stringa a esadecimale

Salve a tutti.
Avrei bisogno di poter passare una stringa in formato esadecimale in un
intero e poi magari trasformarlo in decimale (o anche direttamente da
stringa hex a decimale).
Ho trovato la funzione IntToHex con cui ho passato un valore decimale in
stringa ma non sono riusto a trovare la funzione inversa... Qualcuno sa
darmi qualche indicazione?
Non vorrei essere costretto a creare un tipo apposito e poi fare tutta la
serie di funzioni specifiche per la conversione in decimale...
--
Grazie mille
Daniele Giangrazi

tutto in iteger ! ! !
Magari gestendo anche l'eccezione EConvertError, che potrebbe capitare
se passassi alla funzione "XZWYZ".
--
Andrea Laforgia (ICQ 87230455)
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

darmi qualche indicazione?
function HexToInt( HexStr : String ) : Integer ;
begin
  Result := StrToInt( '$' + HexStr ) ;
end ;


 darmi qualche indicazione?
Puoi usare StrToInt('0x00FF') ti ritorna 255, come anche StrToInt('$FF')
Il viceversa anche con Format('"0x"%2.2X', [254]) che ti ritorna 0xFE.
hth
Paolo Arosio

 end ;
Quindi bastava che aggiungessi il carattere $ prima della stringa e passassi
tutto in iteger ! ! !
Non ci avevo proprio pensato... :-)
Grazie mille ! !!
--
Ciao
Daniele Giangrazi
Newsgroup: it.comp.lang.delphi
Titolo: Espulsione cartuccia zip !!!

Come faccio a far espellere allo Iomega zip interno la cartuccia ????
rispondere anche a :
umby...@tin.it
         grazie umberto


Ciao
Tempo indietro trovai uno zip che conteneva un programma per espellere gli
Zip.
Il programma è chiamato ZipEject v1.3,  (C) 1996, 1997
di Hans Luijten.
Questa è la funzione principale.
 type
   TIoCtlRegs = record
     EBX, EDX, ECX, EAX, EDI, ESI, Flags: DWORD;
     end;
function EjectMedia(Drive: Char): Integer;
 var                        { Special thanks to: Steve Schafer (TeamB) }
   VxD: THandle;            { He's the one that helped me with this    }
   Regs: TIoCtlRegs;        { and wrote this function !!               }
   Return: DWORD;
 begin
   { Create handle }
   VxD := CreateFile('\\.\VWIN32', 0, 0, nil, 0, FILE_FLAG_DELETE_ON_CLOSE,
0);
   { This will probably not work with WindowsNT }
   with Regs do
     begin
       EAX := $440D;
       EBX := Ord(UpCase(Drive)) - Ord('A') + 1; { assign drive letter }
       ECX := $0849;
       Flags := $0001;
     end;
   { Activate MediaEject }
   DeviceIOControl(VxD, 1, @Regs, SizeOf(Regs), @Regs, SizeOf(Regs), Return,
nil);
   CloseHandle(VxD);   { Close handle }
   Result := Regs.EAX;
 end;
Funziona egregiamente anche con i CD.
Solamente per i CD, credo, lo si può aprire con:
  mciSendString('Set cdaudio door open wait', nil, 0, handle);
e chiudere con
  mciSendString('Set cdaudio door closed wait', nil, 0, handle);
La funzione MCISendString è contenuta nella Unit "mmsystem", da includere
negli USES..
Ciao
Matteo
Newsgroup: it.comp.lang.delphi
Titolo: Importazione dati da testo a Access

Sto cercando di importare, dei dati da un file di testo in una tabella Access.
Per adesso uso un metodo piuttosto normale, cioč leggo ogni riga del txt, estrapolo con
dei copy i dati che mi interessano e faccio una sql (INSERT INTO <TABELLA> VALUES...)
tramite ADOQuery.
Il problema č che per 15.000 record ci mette minimo 5 minuti e mi sembra davvero lento.
Ho provato anche con ADOCommand ma il risultato č lo stesso.
Quali altri metodi efficaci conoscete?
Grazie.
__
Jax

"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:TfRD8.53817$5k4.1...@twister2.libero.it...

15 record non vuol dir nulla, se i campi sono 5000 o solo 5 c'č una bella
differenza.
Bisogna prima di tutto capire cosa č che rallenta:
Lettura del file di testo?
I copy (cosa sono poi non ho ben capito)?
L'inserimento vero e proprio?
La struttura del MDB?
            magari č proprio la lettura dal file di testo.
Comunque 5 minuti mi sembrano tanti davvero per soli 15 mila record.

 Comunque 5 minuti mi sembrano tanti davvero per soli 15 mila record.
Già.
Ogni consiglio è ben accetto.
__
Jax

BTW, come mai facendo
  ADOConnection1.Execute('.....');
è molto più veloce (ma non abbastanza per me :)) di
  ADOCommand1.CommandText := '.....';
  ADOCommand1.Execute;
?????
Illuminatemi :)
__
Jax

Come leggi il file di testo?
Usi il driver txt del bde o usi assignfile/readln etc etc etc?
Bye
AS

 Usi il driver txt del bde o usi assignfile/readln etc etc etc?
Per adesso uso TStringList. Come ho detto a danilo cmq, il motivo della lentezza sembra
proprio essere l'inserimento, visto che tutto il processo con solo l'insert commentato ci
mette 2 secondi :(
__
Jax

 Quali altri metodi efficaci conoscete?
Vi posto ulteriori dettagli, visto che non sono riuscito ancora a risolvere il problema da
solo :(
slFile := TStringList.Create;
slFile.LoadFromFile(sDir + sLoc + '.TXT');
for i := 0 to slFile.Count - 1 do
begin
    s := slFile[i];
    sCmd := Format('INSERT INTO ' + sLoc + ' VALUES ("%s", "%s", "%s", "%s", "%s")',
       [
        Copy(s,   5,  5),
        Copy(s,  12, 40),
        Copy(s,  62, 40),
        Copy(s, 114, 80),
        Copy(s, 197, 40)
       ]
      );
    ADOConnection1.Execute(sCmd);
end;
Se commento l'execute, č velocissimo (ovviamente).
La tabella in cui vado a inserire i record č inizialmente *sempre* vuota ed č una semplice
tabella con tutti campi di testo a larghezza fissa, non indicizzata.
Ho provato a:
1) usare un TADOCommand, ma č anche un attimo piů lento
2) usare un TADOQuery, uguale
3) usare un TADOTable mediante AppendRecord, uguale
4) usare ODBC invece che Jet
A prescindere dal fatto che odio andare cosě a caso, mi devo rassegnare?
Oppure, se conoscete un altro buon database file-based (non voglio sbattermi con alias,
DSN o cose del genere per un progetto cosě stupido...)
Grazie ancora,
__
Jax
Newsgroup: it.comp.lang.delphi
Titolo: perchè? "List Index out of bounds(0)".

Questa è la porzione di codice che mi da errore...praticamente è identica a
quella dell'esempio della guida online se non fosse che ho sostituito
SelectedRows.Items[i] con Components[i] (in modo da processarli tutti).
Cmq anche tenendo l'esempio del demo viene l'errore....a cos'è dovuto?
Grazie
----------------------------
with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.FieldCount-1 do
      begin
        s:='';
        GotoBookmark(pointer(DBGrid1.Components[i]));
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
-----------------------------
--
Giulio Pipitone (
www.fighters4web.com
 )
#sito per la lotta agli abusi in rete#

A parte che i components non c'entrano niente con quello che vuoi.
Quell'esempio serve per ricavarsi le righe selezionate in un DBGrid.
Se tu devi scorrerti tutte le righe fai prima ad utilizzare la tabella a cui
è legato il dataset!
Saluti,
  Fabio

   Fabio

 più..:(
L'errore lo da quando cerchi di ottenere un valore all'interno di una lista
ed esci fuori dal range di valori che è stato realmente inserito. Se fosse
un bug questo Delphi non avrebbe motivo di esistere visto che di queste
liste ne fa un uso esagerato.
Forse se al posto di FieldCount, che è il numero di colonne della DBGrid,
magari ci metti il for che va da 0 al numero di righe selezionate -1 magari
funziona qualcosa.
Cmq un consiglio, cerca di capire il codice e non fare tentativi senza un
senso logico, normale che ti viene poi da appoggiare chi ritiene che ci sono
bug nell'ambiente!
with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do <<<<<<<<<<<<<<<< QUI
      begin
        s:='';
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
Ciao,
  Fabio
Newsgroup: it.comp.lang.delphi
Titolo: leggere chiavi del registro

Devo ammettere che di delphi non ho capito un cacchio!
ho un problema con il metodo  GetKeyNames di Tregistry che dovrebbe
servire per leggere le sottochiavi del registro. Ora, dopo aver
assegnato correttamente oggetto.rootkey e richiamato
oggetto.OpenKey, oggetto.currentpath punta in maniera corretta alla
chiave base da cui voglio ricavare i nomi delle sottochiavi.
Quello che non ho capito č l'uso corretto di GetKeyNames, la cui
dichiarazione č:
procedure GetKeyNames(Strings: TStrings);
Quindi una procedura e non una funzione. Evidentemente Strings
dovrebbe essere passato per "riferimento". In Strings la procedura
dovrebbe registrare le sottochiavi. 
Ora come la inizializzo Strings, dato che in fase di esecuzione ho un
errore di non so che e dato che mettendo al suo posto qualcosa come
memo1.lines non ho errore ma non ci registra una mazza?
---------------------------------------------
Io queste cose tecnologiche non le capisco...

Questa è la procedura che utilizzo per leggere dal registro il percorso di
installazione del lettore mp3 che ho creato, spero ti sia utile!:
function GetInstallDir: string;
var
  Registro: TRegistry;
begin
  Registro := TRegistry.Create;
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  Registro.OpenKey('Software\Encom Solution\XNTAL Player', False);
  Result := Registro.ReadString('InstallDir');
  Registro.Free;
end;
Massimiliano Etere
maxe...@infinito.it

 memo1.lines non ho errore ma non ci registra una mazza?
Strano. Sicuro che ci siano effettivamente sottochiavi (da non 
confondere con i sottovalori) della chiave correntemente selezionata?
-- 
Roberto Lupi

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

Ciao NG
sa dirmi come poter creare un collegamento (file .lnk) ad un file?
grazie CIAO

 sa dirmi come poter creare un collegamento (file .lnk) ad un file?
premetto che non ho mai provato e quindi potrei dire vaccate, ma in fondo un
file lnk non dovrebbe essere nulla di complesso, quindi forse ti conviene
cercare la struttura del file (cerca su 
www.wotsit.org
)
e provare a scriverlo "a manina".
Saluti
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu

sa dirmi come poter creare un collegamento (file .lnk) ad un file?
Con la JCL (che puoi scaricare da 
www.delphi-jedi.org
) ci
sono delle funzioni per la creazione dei collegamenti.
-- 
The Follet


CMQ grazie per l'indirizzo.
CIAO

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

Ciao ragazzi.
Qualcuno saprebbe dirmi come (se si può) si fa ad inserire un filmato flash
in un'applicazione delphi.
Grazie a tutti coloro che mi vorranno rispondere.
Ciao ciao

 ha scritto nel messaggio
news:uLPc8.548$6F1....@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: Parere su DBLookupComboBox

Avrei una domanda riguardante un problema con cui mi sono scontrato piu'
volte: supponiamo che un programma utilizzi delle DBLookupComboBox per fare
in modo che l'utente possa avere una lista dei valori assegnabili ad un
campo. L'utente seleziona il valore "A" dalla lista e in seguito il record
viene salvato. Successivamente capita che questo dato non vada piu' bene, e
che sia necessario scrivere NULL nel campo della tabella: le
DBLookupComboBox NON sono editabili, quindi non e' possibile modificare
direttamente il campo! Qualcuno di voi conosce un metodo comodo per inserire
questo NULL? Scarto a priori la possibilita' di sostituire tutte le
DBLookupComboBox con delle ComboBox normali perche' nel programma ce ne sono
almeno 150 con questo problema e non posso scrivermi tutte le routine che mi
vanno ad aggiornare manualmente le liste delle Combo, ne' mettermi a leggere
ogni volta il valore del campo "Text" (che puo' contenere qualunque cosa)
per farci dei controlli, fare il Trim del valore, convertirlo in numero,
ecc. =(
L'ideale sarebbe una DBLookupComboBox editabile... Qualcuno ha idee?
Grazie in anticipo
Daigo
--
And the beast shall come forth surrounded by a roiling
cloud of vengeance. The house of the unbelievers shall
be razed and they shall be scorched to the earth. Their
tags shall blink until the end of days.
From The Book of Mozilla, 12:10

 Daigo
Ciao Daigo, che ne dici di inserire nell'evento onkeypress un controllo che
verifichi se il tasto e' il tasto canc ed asseggni DataSet['campo'] := null?
Dovrebbe funzionare.
Ciao, Angelo.

Crea un componente ereditando da dblookukcombobox e mettigli una proprieta
del tipo KeyForAssignNullValue.
Poi, nell' OnKeyDown gli metti il controllo:
if KeyForAssignNullValue = key then
    begin
    // azzera
    end;
Newsgroup: it.comp.lang.delphi
Titolo: BTrieve

Win98SE, Delphi 4 + vari upgrade
Esiste qualche modo "veloce" per accedere ad archivi in formato BTrieve v.5
senza ricorrere a Pervasive ed ai suoi motori ? Che ne so, qualcosa di
simile al BDE come interfaccia e, possibilmente, free ...
Il punto č, che per l'applicazione che ho in mente non č necessario usare
"grandi" motori per accedere ai db, anche perchč si tratta "solo" di leggere
dati ed elaborarli graficamente.
AH, naturalmente ho le strutture dei record presenti i questi db.
Grazie
Andrea

phora ha scritto:




Qualche componente in giro si trova, per esempio:
Free Btrieve Components v.1.0  FWS 464 Kb
By Nikolay Samofatov. Components for low-level direct access to Btrieve
files. Comments and help file in Russian. 
Fully functional
Source: Included
http://www.torry.net/db/direct/db_btrieve/freebtrieve.zip
Prova a cercare meglio sui Soliti Siti (C).
Ciao
ACSH
Download: D4 D5  
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:crtuii$tk0$1...@news.newsland.it...
: Qualche componente in giro si trova, per esempio:
:
: Free Btrieve Components v.1.0  FWS 464 Kb
: By Nikolay Samofatov. Components for low-level direct access to Btrieve
: files. Comments and help file in Russian.
: Fully functional
: Source: Included
:
: 
http://www.torry.net/db/direct/db_btrieve/freebtrieve.zip
:
: Prova a cercare meglio sui Soliti Siti (C).
Andrea

 il russo nell'help e nei messaggi d'errore ...
Male! La conoscenza del russo (e di almeno tre suoi dialetti) e' una delle 
basi fondamentali dell'informatica.
A parte gli scherzi, io purtroppo non ti posso aiutare di piu'.
Magari prova a studiare i sorgenti per vedere se riconosci le chiamate
alle API (dovrebbe esistere un manuale tecnico - in inglese - che le
descrive).
Ciao
ACSH

Newsgroup: it.comp.lang.delphi
Titolo: Messaggi di avviso nei Twebbrowser

Ciao a tutti.
Il problema di giornata è circa i messaggi di avviso che appaiono
durante le navigazioni con IE, nel mio caso (dato che devo lavorare
all'interno di un sito protetto) il messaggio che appare è "Sta per
essere eseguito un reindirizzamento ad una connessione non protetta. Le
informazioni che si stanno inviando ... bla bla. Continuare?"
Ora, ho due problemi che ora mi affliggono: il primo è "come faccio a
rilevare che è comparso il/un messaggio?" e il secondo (ovviamente)
"come faccio a risponedere "sì" automaticamente".
Grazie 1000 per le eventuali risposte.
Dario
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

"come faccio a risponedere "sì" automaticamente".
Conosci il sito "IE & Delphi" ?
http://www.euromind.com/iedelphi/
clicca su IESecurity, e il resto vien da se'.
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 wrote in message
news:q6v601drfmlugpk4o...@4ax.com
No non lo conoscevo, però mi par di capire che in quel sito vi è un kit
di componenti che lavorano tra loro e NON con o atraverso il TWebBrowser
nativo di Delphi. Dico giusto?


nativo di Delphi. Dico giusto?
Onestamente non so risponderti, non ho mai programmato con twebbrowser e ie,
so solo che questi componenti sono forniti per poterli usare, il tutto
gratuitamente. ;-)
Spulciando ulteriormente vedo che forniscono anche un EmbeddedWb che va a fare
compagnia a twebbrowser nella paletta dei componenti.
Mi sa che dovrai smanettare un po'...
facci sapere :D
Ciao!


Newsgroup: it.comp.lang.delphi
Titolo: Si puo' scrivere una DLL orientata ad ogetti?

Avendo questi 3 oggetti
  Type
    TRGBColor = Record
      Red     : GLfloat;
      Green   : GLfloat;
      Blue    : GLfloat;
      End;
    T3DPoint  = Object
      X, Y, Z : GLfloat;
      Procedure Init(_X, _Y, _Z : GLfloat);
      End;
    TVertex     = Object(T3DPoint)
      Procedure Draw;
      End;
    TVertexFull = Object(TVertex)
      Color     : TRGBColor;
      Procedure Init(_X, _Y, _Z, _Red, _Green, _Blue : GLfloat);
      Procedure Draw;
      End;
Come faccio ad esportarli in una DLL?
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

 wrote in message 3c17c368...@127.0.0.1...



Esportarli nel senso stretto del termine. proprio come fai con
procedure/funzioni...


 >puň fare basta che i tipi siano dichiarati sia nella libreria che


 Come faccio ad esportarli in una DLL?
In C++ si può. In Delphi no. Non credo per limiti tecnici del 
linguaggio, ma piuttosto di (mancanza di) voglia da parte di Borland: 
dopotutto, chi potrebbe voler fare una cosa del genere? Semmai, prova 
con OLE
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato
Newsgroup: it.comp.lang.delphi
Titolo: ListView: proprieta' RedOnly non funziona

Come da oggetto: non riesco a editare il contenuto del ListView
(ho impostato ViewStyle a vsReport).
Ho D5.
Qualcuno puo' aiutarmi? 

 (ho impostato ViewStyle a vsReport).
In una listview puoi editare solo la caption (ossia il primo elemento della
lista, se usi vsReport) e per fare questo ovviamente la proprietą ReadOnly
dev'essere = False.
Se vuoi editare anche le altre colonne, ci sono dei metodi non proprio
ortodossi, ma piuttosto ti consiglio di buttarti su altri controlli come la
stringgrid.
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: OnWork

Toglietemi una(due) curiosità... Stavo facendo esperimenti con il componente
Indy TFtp e i calcoli della velocità in Up e Down(esempio degli Indy). Di
preciso cosa restituisce il valore AWorkCount? In teoria non è la grandezza
del file che scarico o uppo, perchè queste sono diverse anche se di poco...
2. Domanda THREAD !!!
Sono finalmente riuscito a capire come funzionano e a metterli in pratica,
ma spiegatemi questo. Facendo in Delphi 7 New -> Thread Object, mi crea una
unit da completare, fino a qui ok. La procedura Execute me la mette in
protected, quindi se nell'implementazione sotto metto
........Execute
while Form1.Client1.Connected do
begin
x := Form1.Client1.ReadLn();
Synchronize(UpdateCaption);
end;
Perchè il programma (in questo caso solo il Thread) si ferma a x :=
Form1......., se io tolgo Execute da protected, funziona... Potete togliermi
questa curiosità?

in riguardo all'FTP non ho capito neanche io perchè AWorkCOunt è di poco 
diverso da ACountMAx, comunque per fare le cose a modo sbattendosi, 
quando fai il List fatti restituire anche i dettagli e poi fai tutti i 
controlli del caso usando la proprietà ftp.Directorylisting, che ti dice 
nome, tipo, grandezza, UGO etc..
AnDrEa BeLeTti - 
http://www.scodellamelo.it
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Come faccio a dare un valore nullo ad una data?

Salve
Vorrei sapere come potrei fare per assegnare un valore nullo ad una data?
Esempio:
se il campo data è uguale a nullo allora assegnare la data di oggi
Quale sarebbe la traduzione in codice?
Vi ringrazio anticipatamente.

MioDataset.FieldByName('Nome_del_campo').IsNull
Ciao,
Rocco Barbaresco:
Herrare Humanum Est,
Perseverare Ovest ....
(By Fichi D'India)

 Quale sarebbe la traduzione in codice?
anziche' scrivere codice in Delphi, io metterei il valore di default nel
database
es. con IB
...
 CampoData DATE default TODAY,
..
Ciao,
Alan Solo

> se il campo data è uguale a nullo allora assegnare la data di oggi
if NomeTabella.MiaData.isNull then NomeTabella.MiaData.value:=date;
e per azzerare il campo, se dovesse occorrere:
NomeTabella.MiaData.clear;
Ciao, Sandro

MioDataset.FieldByName('Nome_del_campo').IsNull
Questo non assegna null al campo ma restituisce true o false a seconda che
sia NULL o meno.
Per Impostare null da codice
MioDataset.FieldByName('Nome_del_campo').Clear
Ciao!
Newsgroup: it.comp.lang.delphi
Titolo: verificare esistenza di una form-- D6

Se devo eseguire delle operazioni su una form, che il quel momento, non 
esiste perchè non ancora creata come posso verificare la sua esistenza.
Ho già cercato exist ma vale sollo per le tabelle.
Grazie Carlo
IW2FIV 

 Ho già cercato exist ma vale sollo per le tabelle.
A parte che se vai su google groups e cerchi "se una form esiste Delphi" 
trovi parecchi post!!!
io ho risolto così :
nell'evento on close della form ho messo FreeAndNil( NomeForm );
poi quando devo fare il controllo sull'esistenza scrivo :
if ( Assigned( NomeForm ) ) 
then // faccio qualcola con la form
Poi ho trovato tra i vecchi post quella di scorrere tutte la form 
dell'applicazione tramite l'oggetto TScreen.
Forse è meglio la prima soluzione visto che non devo creare nessuna 
funzione ad hoc.
Chiedo anche agli altri di intervenire per avere altri pareri.
Diego
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Sommare ore db [access]

Ciao,
Ho una tabella con orarioInizio e orarioFine.
Con una query e un ADODataset seleziono i records che mi interessano
e nel campo calcolato TotOraParziale ci metto la differenza tra
i due orari .
Se voglio la somma della colonna TotOraParziale devo
sommare a manina tutti i valori oppure in genere si fa con
una query ? Ma si fa una query su di un Dataset?
[D7, AccessXP, ADO]
Spero di essermi spiegato....
Ciao
     Miyomo

 una query ? Ma si fa una query su di un Dataset?
Se TotOraParziale č un campo calcolato, questo esiste solo lato client,
mentre le query vengono eseguite sui dati memorizzati nel database (lato
server) --> una query su un campo calcolato non si fa.
Siccome comunque il tuo dataset ce l'hai in memoria, scorrerlo per valutarti
il totale non dovrebbe essere drammatico.
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it

Ha ragione chi ti ha risposto.
Ma per le somme puoi aggiungere 40 minuti ad ognuna per i
minuti mancanti; se ti rendi conto che i minuti risultanti sono decrementati
di 40 :
Ossia se 10.50 + 2.30 = 13.20 .
Questo è vero se e solo se.
10 ore e 50 minuti vengono sommati a 2 ore e 30 minuti.
Per cui 10,50 + 0,40 + 2,30 + 0,40 = 13,20 - 0,40 = 12,20
Nel risultato devi togliere 0,40 perchè è espresso in sessantesimi.
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Grazie a tutti e due!
Mario, forte la dritta che mi hai dato!
la metto subito in pratica!
Pensa che nel mio programma
c'e' una calcolatrice che somma le ore in sessagesimali!
miyomo
Newsgroup: it.comp.lang.delphi
Titolo: Esiste un'API o funzione che fa questo?

Io voglio ricavarmi il PId di un'applicazione tramite il suo nome, e grazie
a questo PId portarla in foreground, visibile insomma anche se prima era
ridotta a icona.
Grazie

Se non erro a comprendere quello che desideri, questo funziona ... almeno
con i miei applicativi:
Andrea
Hwnd := FindWindow( nil, nome_applicazione );    // trova la finestra
PostMessage( GetDesktopWindow, WM_SYSCOMMAND, SC_HOTKEY, hWnd );    // la
porta in primo piano


Questa mi riporta sempre in primo piano il mainform, cioč quello chiamato
"nome_applicazione".
Il problema č che se io ho un altro form attivo, diverso da quello
principale, vorrei che mi venisse ricostruita la gerarchia cosě come stava,
quindi con il form secondario attivo e per di sotto quello principale.
Davide

Benna wrote:

Posto del codice orrendo che ho trovato in una mia vecchia app:
procedure visualize_process;
var t: thandle;
  i: tagPROCESSENTRY32;
  function slength(s: string; l: integer): string;
  begin
    while length(s) < l do s := s + #32;
    setlength(s, l);
    result := s;
  end;
begin
  t := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,
GetCurrentProcessId);
  i.dwSize := sizeof(i); // !importantissimo!
  Process32First(t, i);
  while GetLastError <> ERROR_NO_MORE_FILES do
  begin
    Form1.ListaProcessi.items.add(inttostr(i.th32ProcessID) + ' ' +
slength(i.szExeFile, Length(i.szExeFile)));
    Process32Next(t, i);
  end;
  CloseHandle(t); // chiudere sempre tutti gli Handle che non si usano
+!
end;
Dovce e' scritto "Form1.ListaProcessi...." inserisci un IF con cui
confronti i.szExeFile con il path dell'applicazione che vuoi trovare
(normalizza il path ad esempio riducendo tutti i caratteri in lower
case). A quel punto hi il pid in i.th32ProcessID da quello dovresti
essere in grado di trovare la main window etc.
-- 
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.


Innanzitutto grazie per avermi risposto cosě esaurientemente.
La domanda č: una volta che ho il PID c'č la funzione che da quest'ultimo mi
porta in primo piano l'applicazione (non il form principale, ma tutta
l'applicazione)?
E' una funzione Delphi o un'API?
Davide

Newsgroup: it.comp.lang.delphi
Titolo: Da delphi al web

Domanda forse banale:
E' possibile gestire un database access depositato su un server in internet
(Aruba) direttamente
dai componenti di delphi ?? senza passare per pagine asp o risultati XML e
quant'altro ??
Grazie

 quant'altro ??
Ovviamente no. Puoi crearti degli script in Asp che ti facciano da tramite.
Altrimenti non puoi.

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

E' possibile installare un componente OCX su Delphi?
...se sì come si fà?
Grazie ciao.. Raf

 ha scritto nel messaggio
news:9aiep0$ras$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Interagire con Dll

dove posso imparare a leggere, creare, usare un DLL?
Sarebbe interessante del materiale con esempi.
Grazie
~Guybrush~

 Sarebbe interessante del materiale con esempi.
Non pretenderai che qualcuno ti spiegherà tutto ciò?
Le DLL non sono difficili da utilizzare, ma se vuoi un'illustrazione
completa del loro funzionamento ti conviene acquistare un qualsiasi libro di
delphi in cui siano spiegate.
Gli argomenti generalmente trattati sono:
Concetti sulle DLL
Creazione di DLL generiche
Procedure e funzioni esportabili
Caricamento statico di DLL
Caricamento dinamico di DLL
Attach e Detach dei processi
Se vuoi solo degli esempi di funzionamento allora prova a scaricare
l'articolo sulle DLL da 
www.programmazione.it
 (non lo ho letto, ma penso che
almeno un esempio ci sia) oppure guarda i sorgenti di una qualsiasi
applicazione che ne faccia uso (esempio : Hook globali)
Ciao! :)
--
- Carlo -
c.b...@libero.it

Newsgroup: it.comp.lang.delphi
Titolo: esportare una query in excel

E' possibile esportare una query direttamente in un file excel??
Esiste qualche esempio?
Grazie.

Devi usare l'automazione OLE.
Vedi:
funzioni GetActiveOleObject e CreateOleObject nella guida di delphi
Guida VBA di Excel
Bye
AS

 ha scritto nel messaggio
news:ae4hsp$1tfg$1...@newsreader1.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: [Mumble] [Soket] Delphi e telnet

open localhost <portaserver>
e lui si conette tutto ok
vado a dare il primo comando e bum non funziona
invece di aspetare l'invio come dovrebbe fare accetta 1 solo carattere
stessa cosa se provo ad usare un client soket per colegarmi (esempio)
ad un server HTTP cosa con telnet riesco perfettamente...
ora dove spaglio invece di text devo utilizare buffer?
PS: Uso delphi 5
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

ora dove spaglio invece di text devo utilizare buffer?
spaglio si scrive sbaglio, ke si scrive che, soket si scrive socket,
prova a usare TServerSocket in modalita' non-blocking, per leggere
usare l'evento OnClientRead, e successivamente il metodo ReceiveBuf
con la socket che ti passa l'evento.
fe...@delenda.net
Bienvenido al club del los imposibles
de balas perdidas con siete vidas


tks


>con la socket che ti passa l'evento.
Prova questo, è l'handler dell'evento ClientRead per una cacchiata che
ho scritto l'anno scorso (interpreta malamente 3 comandi,mute, loud, e
bye; per la cronaca era un programmino per azzerare il volume di una
scheda audio da remoto, troppo inquinamento acustico in ufficio sai
com'e'...)
procedure TForm1.ssMuteClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var c: char;
  var i: integer;
begin
i := Socket.ReceiveBuf(c,1);
  if (c = chr(13))  then begin
   curcom := UpperCase(curcom);
   if (StrComp(PChar(curcom),'MUTE') = 0) then begin
        SetMasterMuteValue(0,True);
   end;
   if (StrComp(PChar(curcom),'LOUD') = 0) then begin
 
        SetMasterMuteValue(1,False);
   end;
   if (StrComp(PChar(curcom),'BYE') = 0) then begin
        Socket.SendText('OK BYE BYE'+Chr(13)+Chr(10));
        Sleep(500);
        Socket.Close;
        ssMute.Close;
        sleep(1000);
        ssMute.Active := True;
   end;
   curcom := '';
  end else   begin
  if c <> chr(10) then   curcom := curcom + c;
  end;
  end;
 
fe...@delenda.net
can't help it, I'm a born lever puller

 ha scritto nel messaggio
news:ih9ppuko6dmvofb2g...@4ax.com...


On Thu, 03 Oct 2002 20:27:05 GMT, 
fe...@delenda.net
 wrote:
 Tks for all

Newsgroup: it.comp.lang.delphi
Titolo: Lista di file

Ciao NG
ho bisogno di un aiutino per l'applicazione che sto creando.
Sto cercando un sistema che mi permetta di avere tutti i file all'interno di
una cartella e delle vareie sub-cartelle.
ES C:\Pippo\Pippo.exe
     C:\Pippo\Pluto\Pluto.exe
      Dando C:\Pippo l'algoritmo deve darmi Pippo.exe e Pluto.exe
Qualcuno può aiutarmi?
CIAO

Qualcuno puņ aiutarmi?
procedure TheFolletIsLookingForFiles(Folder: String; 
                                     List: TStrings);
   procedure LookForFiles(Folder: String; Level: Integer);
   var F: TSearchRec;
   begin
     ChDir(Folder);
     if (FindFirst('*.*', faAnyFile, F) = 0) then
     begin
       repeat
         if (F.Name[1] <> '.') then
         begin
           if ((F.Attr and faDirectory) <> 0) then
             LookForFiles(F.Name, Level + 1)
           else
             List.Add(ExpandFileName(F.Name))
         end
       until (FindNext(F) <> 0);
       FindClose(F)
     end;
     if (Level > 0) then
     begin
       ChDir('..');
     end
   end;
begin
  List.Clear;
  LookForFiles(Folder, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  TheFolletIsLookingForFiles('C:\Sorgenti', ListBox1.Items);
end;
-- 
The Follet

 The Follet

Newsgroup: it.comp.lang.delphi
Titolo: MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN July 2000 (3 CDs) 90.000 lire
-Component Source MSDN 10/99 Edition (1 CD) 8.000 lire
-Component Source MSDN 04/2000 Edition (1 CD) 10.000 lire
-Component Source MSDN 06/2000 Edition (1 CD) 16.000 lire
-MSDNnews (opuscolo) January/February 2000 4.000 lire
Component Source MSDN e MSDNnews se associati a un numero di MSDN Library a
metà prezzo.
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 1999 (1 DVD) 40.000 lire
-MSDN July 2000 (3 CDs) 90.000 lire (Ultimo numero uscito!)


cominciamo ad essere un po pesanti eh ?
--
Gna...@Wappi.com
bmq...@tin.it
ICQ# 76488613
http://gnaffy.tripod.com/
Newsgroup: it.comp.lang.delphi
Titolo: File di testo

Qualcuno può dirmi come posso fare a salvare dei dati in un file di testo,
o leggerli??
Grazie
Scusatemi ma sono alle prime armi!!!
Ciao Nicola
--- posted by geoForum on 
http://www.delphiedintorni.it

 testo, o leggerli??
Apri il manuale e cerca, scommetto che troverai di sicuro qualche cosa
al riguardo.
-- 
I am what I am, I do what I can
Do. Or do not. There is not try.

 Qualcuno puņ dirmi come posso fare a salvare dei dati in un file di testo,


 o leggerli??
Ci sono diversi modi per farlo.  O passi attraverso dell 
TStrlingList, nel senso che leggi/scrivi l'intero contenuto del 
file, oppure apri il file con le classiche funzioni Pascal-like.
1^ es.:
var
   S: TStringList;
...
S := TStringList.Create;
try
   S.LoadFromFile('minuscole.txt');
   for I := 0 to S.Count-1 do
     S.Strings[I] := UpperCase(S.Strings[I]));
   S.SaveToFile('maiuscole.txt');
finally
   S.Free;
end;
2^ es.:
var
   FMin, FMai: TextFile;
   S: String;
...
AssignFile(FMin, 'minuscole.txt');
AssignFile(FMai, 'maiuscole.txt');
try
   Reset(FMin);
   Rewrite(FMai);
   while not Eof(FMin) do
   begin
     ReadLn(FMin, S);
     WriteLn(FMai, UpperCase(S));
   end;
finally
   CloseFile(FMin);
   CloseFile(FMai);
end;

Ti illustro un pezzo di programma:
Procedure Tform1.bntsalvaClick (sender: TObject);
var myfile:textfile;
begin
   assignfile (myfile,'c:\bulmax\documento.txt'); {associo la variabile
myfile,al file c:\bulmax\documento.txt}
   rewrite (myfile);
   st:=edit1.text;
   writeln (myfile,st);
   closefile (myfile);
end;
Ti spiego un'pò: innanzitutto assegno ad una variabile, un file (che può
esiste oppure no).
il rewrite crea il file (in questo caso documento.txt) se non esiste. In
tutti i casi (quindi anche se esiste) il documento verrà sovrascritto, e
quindi tutti i dati all'interno verranno cancellati.
Al posto di rewrite puoi usare anche la funzione append e reset. Append di
consente di scrivere su un file (che però deve esistere) in coda al
contenuto già esistente. Se il file non esiste e usi append, si verificherà
un errore a runtime.
Reset apre il file per leggerlo. Quindi il file deve anche in questo caso
esistere. Se usi reset al posto della writeln devi mettere readln. Spero di
essere stato charo.... by BULMAX 
spi...@inwind.it
Newsgroup: it.comp.lang.delphi
Titolo: Delphi & MySQL

Salve ragazzi,
premetto che non sono un assiduo frequentatore
del NG poichè per qualche anno mi sono un pò
allontanato dalla programmazione in delphi.
Fortunatamente ora ho un pò più di tempo da dedicare
a me stesso.
Vorei avvicinarmi per la prima volta alla programmazione
Client Server e vorrei qualche consiglio da voi.
Posso interfacciarmi con Delphi a MySQL con componenti gratuiti?
Quali?
Dispongo di una versione Professional di delphi 5
Inoltre qualcuno di voi sa dirmi se esiste la possibilità
di avere uno spazio gratuito su un server MySQL per
testare on-line le classiche procedure di inserimento, modifica e
ricerca dei record?
Scusatemi se questo mio post è un pò OT
ma non saprei a chi chiedere aiuto, dopo tutto
alla fine si tratta di sviluppare con Delphi, è l'unico
linguaggio che conosco (anche se ho ancora molto da imparare).
Grazie di cuore
LR

 ricerca dei record?
Basta che scarichi MySQL Server e che lo installi sul tuo pc...
Ciao
Daniele

> Inoltre qualcuno di voi sa dirmi se esiste la possibilitą


 
Guardati anche le zeos library progetto open source di cui recentemente 
mi pare abbiano ripreso lo sviluppo. La 6.1.5 stable permette di 
interfacciarsi direttamente con il MySql fino alla versione 4.0.24.
Dan

 ha scritto nel messaggio 
news:4571c405$0$13751$4faf...@reader3.news.tin.it...


 ha scritto nel messaggio 
news:4571c405$0$13751$4faf...@reader3.news.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: D6 e Web Server, non funziona niente

Come da oggetto sto provando a realizzare un'applicazione web server, 
iniziando con un esempio semplice trovato in rete, che mi dovrebbe 
restituire un pagina con la data odierna. Ma non va nulla.
Alcune premesse
Creo un un CGI.exe
la colloco nella directori cgi-bin del server
la chiamo dal pc di sviluppo direttamente scrivendo nell'url 
http://ipdelserver/cgi-bin/miocgi.exe/action
mi restituisce una pagina bianca,  son sicuro che il server web funziona
Scordavo ho usato un webmodule ed un pageproducer al suo interno
Allego il codice del file project e  dell'unica unit nonchè il testo html 
della pagina che vorrei creare.
********************************************************
program Project1;
{$APPTYPE CONSOLE}
uses
  WebBroker,
  CGIApp,
  Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
{$R *.RES}
begin
  Application.Initialize;
  Application.CreateForm(TWebModule1, WebModule1);
  Application.Run;
end.
***********************************************************
unit Unit1;
interface
uses
  SysUtils, Classes, HTTPApp, HTTPProd;
type
  TWebModule1 = class(TWebModule)
    PageProducer1: TPageProducer;
    procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
      const TagString: String; TagParams: TStrings;
      var ReplaceText: String);
    procedure WebModule1action1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
if tagstring = ' data' then replacetext := datetostr(now);
end;
procedure TWebModule1.WebModule1action1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
response.Content := pageproducer1.Content;
end;
end.
********** la paginetta html inserita nella proprietà HtmlDoc del page 
producer
/<HTML>
<HEAD>
<Title>Prova componente Page producer </Title>
</HEAD>
<BODY>
<H2> Data Corrente </H2>
la data corrente <#data>
</Body>
</HTML>
Sono sicuro che sto commentendo un errore grossolano ma non riesco a capire 
dove.
Spero che qualche anima buona possa aiutarmi.
Saluti
Carlo M.

Una personale affermazione, ma di tutti gli esempi sui manuali possibile che
non ce ne sia neppure uno giusto.
Una ennesima ricerca su google mi ha fatto trovare un semplice esempio su
http://www.itportal.it/developer/delphi/webbroker/default.asp
 a cura di
Namdo Dossena, grazie, che ha evidenziato il mio errore
che č l'unico ad utilizzare nella actionitem questo comando:
response.SendResponse;
adesso inizio a vedere la luce.
Grazie a tutti specie a Dossena.
Carlo M.

 Namdo Dossena, grazie [...]
Si chiama *Nando Dessena*... ;-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Inviato da X-Privat.Org - Registrazione gratuita 
http://www.x-privat.org/join.php

 ha scritto nel messaggio 
news:4463680c$1...@x-privat.org...

Newsgroup: it.comp.lang.delphi
Titolo: Colore Form

Ciao a tutti,
sapete se in Delphi c'è la possibilità di colorare le Form con sfumature.
Una cosa del tipo : Colore di Start e Colore di End.
RLB
--------------------------------
Inviato via 
http://usenet.libero.it


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

> 
http://www.torry.net
) troverai ciò che fa al caso tuo.
Ma sono a pagamento !!!!
Nessuno conosce qualche sito con componenti free ????


Ma sono a pagamento !!!!
Hai gia` controllato ?
Su Torry la maggior parte dei componenti sono free.
-- 
Andrea Laforgia
#exclude <windows.h>

Su Torry la maggior parte dei componenti sono free.
Se lo ha fatto, non ha cercato bene...
http://www.torry.net/effects.htm
Morde.
morde [at] programmer [.] net
Newsgroup: it.comp.lang.delphi
Titolo: [D5][JVCL]TJvFilenameEdit non funzia?

Salve,
Sto cercando di far funzionare il componente in questione ma
sembra non esserci modo per fargli capire che alla pressione del bottone
dovrebbe comparirmi un dialogo di apertura file <g>
Qualcuno ci ha già sbattuto la testa?
Andrea

 Andrea
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red
"Di sempre cio' che senti e fai cio' che pensi."
				G.G. Màrquez

 dialogo per selezionare il file.
MAH.. ti assicuro che anche premendo 100 volte, la finestra non esce :-)
Andrea

 :-)
-_-
Ho bisogno di ferie...
Andrea

 Ho bisogno di ferie...
a chi lo dici!!!
:o)

Newsgroup: it.comp.lang.delphi
Titolo: non riesco a capire

Vado subito al sodo:
Questa č la classe:
  TStringaComplessa = class
    Lunghezza : integer;
    Righe : array [0..9] of string;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure EstraiLeStringhe(stringa : string);
    function Riga(i : Integer) : string;
    function LunghezzaArray : integer;
  end;
Questo č l'utilizzo:
  S.Create;
  S.EstraiLeStringhe(StringaValori);
  if S.LunghezzaArray>=1 then
    ID:=S.Riga(2);
appena faccio la chiamata:
  S.Free;
mi da un'errore di runtime?????
Free??? mi da un'errore??? Non č mica la chiamata a Destroy?
Sto sicuramente facendo un'errore semplice, ma non riesco a trovarlo!
Ciao
Fabio

Sorry un precisazione:
 Vado subito al sodo:
 Questa è la classe:
 TStringaComplessa = class (TObject);
 Fabio 

Fabio
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/

  S := TStringaComplessa.Create;
mi cospargo il capo di cenere!!
forse č meglio che stacco per un paio d'ore e dopo torno al GWBASIC!
Ciao
Fabio 

 ha scritto nel messaggio
news:QxfYd.18347$WC1....@tornado.fastwebnet.it...


     Righe : array [0..9] of string;
Ad ogni modo un comportamento simile e' gia' incapsulato nella vcl con
l'oggetto TStringList e la sua proprieta' Count.
Ciao
-- 
Morde. 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 giorgio
Andrea

 che abbiano complicato la sintassi per me e' colpa della Borland :-)
La sintassi senz'altro è importante, ma MassimoB ha messo in evidenza
un aspetto anche più importante della sintassi imho, quando ha parlato
di *basi* del linguaggio.
Dietro la dichiarazione della variabile di istanza e della chiamata al
costruttore si nascondono, difatti, le caratteristiche dei tipi classe,
ereditarietà e polimorfismo.
Ciao ;-)
guastatore

   S.Create;
S := TStringaComplessa.Create;

Newsgroup: it.comp.lang.delphi
Titolo: Colori Standard di Windows

Ciao,
vorrei definire il colore di un Tedit con i colori predefiniti di
Windows, in
particolare con il colore del testo selezionato:
 -> (clHightlightText:Current color of selected text)
Pur avendo incluso la UNIT GRAPHICS, il compilatore mi blocca
informandomi
che non trova quella variabile. Notare che altri colori della stessa
unit, 
mi vengono accettati tranquiallamente (es. clWindow,clWindowText ecc.)
Grazie
Maurizio.

Mi rispondo da solo:
facevo copia-incolla dall'Help di Delphi, ma c'e' un errore di
ortografia:
andando a vedere all'interno di Grapghics.pas, ho visto che la 
variabile č: clHighlightText. (....zzz)
