mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: breakpoint non funzionanti

Salve a tutti. Utilizzo D7 e dopo aver fatto una piccola modifica ad un 
file pas i breakpoint non funzionanon più. Il file viene compilato 
correttamente e l'eseguibile viene generato senza problemi, ma quando 
imposto un breakpoint, il debugger non si ferma in quel punto nonostante 
il codice venga eseguito.
Ho provato a seguire i consigli trovati su internet di copiare il testo 
del file in un editor di testo (ho usato Notepad e Notepad2) e poi 
ricopiarlo in Delphi per vedere se ci fossero righe terminate con il 
solo CR invece che CR/LF ma nessun cambiamento.
Mi era successa la stessa cosa in questa unit un'altra volta e per 
risolvere avevo spostato delle classi in un'altra unit, ma questa volta 
non avrei voglia di rifare lo stesso procedimento.
Qualcuno ha già avuto un problema simile?
Grazie in anticipo.
Saluti a tutti
Alex Pileci.

 file pas i breakpoint non funzionanon piů. [...]
Qualche domanda "di getto" che potrebbe aiutare a risolvere il problema:
1)
il progetto sul quale lavori fa parte di un gruppo di piů progetti?
2)
fai uso di package runtime?
3)
hai verificato che le informazioni di debug siano attivate nelle opzioni 
di compilazione?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 
Ciao, il progetto effettivamente è contenuto in un projectgroup con un 
altro progetto.
Non faccio uso di runtime packages.
Le informazioni di debug nella scheda "compiler" della finestre delle 
opzioni del progretto sono tutte checked tranne l'opzione "Use Debug DCUs".
Un'altra cosa strana che ho notato è che nella unit i pallini blu per il 
posizionamento dei breakpoints non vengono visualizzati accanto a righe 
di codice compilate ed effettivamente eseguite.
Ciao
Alex Pileci.


Capitava spesso anche a me quando usavo D7, spesso si rinc*******va,
ma tutto si risolveva con un build all dell'applicazione e delle lib.
Se dovessi avere ancora problemi, lavora ricompilando come singolo
eseguibile (se ti riesce).
Ciao
Seek

 
Ciao, ho provato a seguire il tuo consiglio ed aprire il singolo 
progetto, fare una build e poi compilare il tutto ma nessun risultato.
Saluti.
Alex Pileci.


hai controllato i search path delle librerie esterne?
non vorrei che il linker vada a prendere le dcu già compilate...
Newsgroup: it.comp.lang.delphi
Titolo: Delphi2009 - Shape o linea flessiibile

Un saluto a tutti.
Sto cercando da un po un qualcosa tipo shape o altro che permetta di tracciare una linea e poi, cliccando su qualche suo punto, modificarne la forma.
Per un esempio di questa cosa aprite paintbrush e usate lo strumento etichettato con una specie di "s"...
 
Ho cercato un po sul web e ho trovato alcune cose carine, ad esempio questa: 
http://graphics32.org
 
 
Ma onestamente non sono riuscito a capire se questa libreria fa al caso mio.
 
Per ovvi motivi, il top sarebbe un pezzo di codice che poi me lo smazzo...
La cosa improtante è che mi servono i sorgenti.
Per quello che devo fare non posso non averli.
....e non chiedetemi il perche' di questa cosa... :-D
 
A.
 
 
 
 

 ....e non chiedetemi il perche' di questa cosa... :-D
 
Ma... perche' devi fare sta cosa qua??? ;)
 
La curva a S dovrebbe essere una curva di Bezier. Puoi trovare
in windows.pas la funzione che la disegna. 
Questa funzioncina dovrebbe chiarirti come funziona:
 
// non testato.
procedure DrawBezier( Canvas : TCanvas; 
            const FromPoint, ToPoint, CtrlPoint1, CtrlPoint2 : TPoint );
var
  Count : DWORD;
  Punti : array[0..3] of TPOINT;
begin
  Count := 4;
 
  // origine
  Punti[0] := FromPoint; ;
  // primo punto di controllo
  Punti[1] := CtrlPoint1;
  // secondo punto di controllo
  Punti[2] := CtrlPoint2;
  // punto di arrivo
  Punti[3] := ToPoint;
 
  Windows.PolyBezier( Canvas.Handle, punti, Count );
end;
 
 
// esempio di utilizzo
 
  DrawBezier( PaintBox1.Canvas, 
      Point(0,0), Point(100, 100), 
      Point(80,20), Point(30, 70) );
 
ciao
Giacomo

Newsgroup: it.comp.lang.delphi
Titolo: x l'invio della mail...

>>>>>> 
fred...@libero.it
 <<<<<<<<

con Tpowersock unit PSock
--
web:    
http://gnaffy.tripod.com/
e-mail: Gna...@Wappi.com
e-mail: 
bmq...@tin.it
ICQ#:  76488613

 wrote in message
8s4l0b$qjp$5...@nslave2.tin.it...


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

Salve,
dovrei stampare il contenuto di un DBGrid.
Nei metodi non esiste il print.
E' possibile farlo in qualche modo?
grazie
xoooox
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Non so se esiste un componente di 3e parti che
permette di stampare una dbgrid.
In alternativa puoi usare un tool di reporting.
Se vuoi, puoi utilizzare l'ottimo
fuzzyreport. Crei il report e lo stampi.
Ciao
  Miyomo 

 dovrei stampare il contenuto di un DBGrid.
Io uso i componenti (QuickExport) della EMS
http://www.sqlmanager.net/products/tools/quickexport
Consentono di esportare dati prelevati da fonti diverse (DBGrid compresa)
in numerosi formati standard.
Ciao
Giovanni Caramia
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Inviato via 
http://arianna.libero.it/usenet/
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/
Newsgroup: it.comp.lang.delphi
Titolo: Elenco paper name senza nessuna stampante

Ho la necessità di ricavare l'elenco standard dei formati di pagina di
windows nel caso in cui non ci sia nessuna stampante installata nel sistema.
Nel caso in cui c'è la mia stampante, uso la DeviceCapabilities
(DC_PAPERNAMES e DC_PAPERSIZE) e sono a posto, ma se non c'è la mia e non ce
n'è nessun'altra installata non so come muovermi. 
Avete qualche idea? Mi servirebbe riuscire a ricavare l'elenco dei formati
definiti ad esmepio in windows.pas (DMPAPER_xxx, i primi 68)
-- 
Lis                 
www.alessandroghezzi.it
O'Telma Formula1:   
http://snipurl.com/otelma
L'abilità non serve a molto senza l'opportunità (Napoleone Bonaparte)

 definiti ad esmepio in windows.pas (DMPAPER_xxx, i primi 68)
scusa... metti del codice che fa un check sul counter di printers.
Se è zero, popoli la lista con quelli definiti in windows. pas
Se è diverso da zero, usi getdevicecapab..
AS

 Se č zero, popoli la lista con quelli definiti in windows. pas
Ok, ma questo elenco dove lo prenderlo? Vorrei evitare di dover codificare
io tutte le stringhe, soprattutto perchč devo farlo in 5 lingue, speravo
quindi di riuscire a trovare queste "risorse" in qualche libreria di
sistema.
Dite che on c'č speranza?
-- 
Lis                 
www.alessandroghezzi.it
O'Telma Formula1:   
http://snipurl.com/otelma
Tre persone possono tenere un segreto, se due di loro sono morte (Benjamin
Franklin)

 definiti ad esmepio in windows.pas (DMPAPER_xxx, i primi 68)
Dopo un pò di tentativi non riusciti abbiamo deciso di inserire tra le
risorse tutti i nomi dei formati di carta che ci interessano. Nessun
problema per italiano e inglese, ma avete idea di dove poter recuperare gli
elenchi in tedesco, francese e spagnolo?
La prima soluzione che mi viene in mente è di estrarre i nomi dalla
commdlg.dll nelle varie lingue.
-- 
Lis                 
www.alessandroghezzi.it
O'Telma Formula1:   
http://snipurl.com/otelma
E' più facile spezzare un atomo che un pregiudizio (Albert Einstein)

 commdlg.dll nelle varie lingue.
Alla fine abbiamo fatto cosě, poco elegante ma efficace
-- 
Lis                 
www.alessandroghezzi.it
O'Telma Formula1:   
http://snipurl.com/otelma
C'e' un solo modo di dimenticare il tempo: impiegarlo (Charles Baudelaire)

Newsgroup: it.comp.lang.delphi
Titolo: D2007 presentation replay

Per chi fosse interessato è possibile vedere le presentazioni di
Delphi 2007 & C. al link seguente:
http://blogs.codegear.com/davidi/archive/2007/03/23/33463.aspx
C. 

 Delphi 2007 & C. al link seguente:
Ottima segnalazione! Anche perché alcune delle sessioni di CodeRage sono 
davvero interessanti (ad esempio, ho apprezzato molto quella relativa al 
  "Windows Vista UAC").
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: Conversione codice Delphi3 a Delphi5

Salve a tutti, mi chiamo DAVIDE,
avrei la necessità di convertire il seguente codice in delphi3(che funziona)
in
delphi 5:
  IntAppo:=144;
  GetMem( PCharAppo, IntAppo );
  Getusername( PCharAppo, IntAppo );
  Utente := StrPas( PCharAppo );
vi ringrazio in anticipo.

   Utente := StrPas( PCharAppo );
Var Buf : pchar;
       I : cardinal;
Begin
i := 144;
getmem(Buf,i);
getusername (Buf,i-1);
Utente := Buf;
// oppure Utente := StrPas (Buf);
freemem(Buf);
Perņ se devi fare solo questa operazione io ti consiglio di fare :
Var Buf : Array[0..144] of char;
Var i : cardinal;
i := length (buf);
getusername (Buf,i);
Utente := Buf;
Ultima cosa... perchč 144 ?? il nome di un utente non si ferma a max 15
caratteri ??
Ciao, Davide DG.

Newsgroup: it.comp.lang.delphi
Titolo: master-detail con IBDATASET

Salve,
ho due tabelle (master e detail),
usando un IBDataset faccio
select *
from t_master,t_detail
come devo fare per le proprieta' DELETE, INSERT, MODIFY dato che il DataSet
Editor non e' applicabile ?
GRAZIE 1000
faf...@tiscali.it

 
faf...@tiscali.it
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

Il problema e' che non posso fare il delete, insert, ecc. su due tabelle
contenporaneamente.
Esempio nella proprieta' ModifySQL
update "t_master"
set
  "COGNOME" = :"COGNOME";
update "t_detail"
set
  "colore"=:"colore"


Newsgroup: it.comp.lang.delphi
Titolo: orlologio di windows

qualcuno mi saprebbe dire come fare per far si che una label  o un'edit
acquisiscano l'orario di windows al''apertura del programma?
un'altra cosa riesco a creare chiavi ner registro ma non riesco ad
eliminarle ...come si fà?
grazie

> acquisiscano l'orario di windows al''apertura del programma?
label1.caption:=datetimetostr(now);
per la tua domanda relativamente al registro, le risposte sono tutte
nell'help e nella classe TRegistry.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Usare txt come DB

Ciao a tutti,
avrei la necessità di inserire in un file txt un massimo di circa
60.000 righe per fare un controllo di duplicazione. Mi spiego, tramite
software scarico alcuni dati che devono essere univoci; questi dati li
salvo su un file txt che poi saranno importati da altri applicativi. Il
file txt deve avere esclusivamente dati univoci per cui devo fare un
controllo in modo da verificare che il dato scaricato non sia già
presente. Ogni dato scaricato quindi verrà confrontato con i dati
inseriti fino ad ora nel file txt di appoggio e se non è presente, lo
aggiungo alla lista. Ora, i dati non essendo più di 60.000, potrebbero
rallentare parecchio il controllo e tutta la funzione in generale?
Oppure posso usare questa soluzione tranquillamente senza appoggiarmi a
DB o file di excell? Oppure in alternativa posso fare il controllo
direttamente sul file txt che sarà esportato; questo sistema mi
permetterebbe di utilizzare solo il file txt che sarà esportato.
Potete darmi un consiglio?
Grazie

permetterebbe di utilizzare solo il file txt che sarà esportato.
senz'altro guadagni in tempo se il controllo lo fai solo una volta...
dipende da come è strutturata la tua applicazione...a questo punto il file 
risulterebbe non utilizzabile, che fai?
Comunque con un DB Paradox e un Lookup o Locate sarebbe un'istante
V 

La cosa migliore sarebbe usare un DB ma visto che dovrei usare MySQL e
che mi complica la vita per la distribuzione (dovrei configurarlo in
modo automatico creando anche la struttura dati), non credo ne valga la
pena anche perchè mi servirebbe solo come appoggio per il controllo
dei dati duplicati quindi usando solo una tabella con un unico campo.
Se il file txt non mi rallenta il tutto, posso usare quello.
Thanx

 60.000 righe per fare un controllo di duplicazione. [...]
Puoi usare tranquillamente anche un file Access, Paradox o addirittura 
FireBird (versione "Embedded", se l'installazione va mantenuta ridotta 
all'osso).
Almeno sono più comodi da manipolare...
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

http://jansfreeware.com/jfdelphi.htm
trovi un componente per la manipolazione SQL su file txt.
Valuta bene pero le prestazioni, forse non è una buona scelta usare un txt e
valutare l'uso di un DB relazionale come quelli proposti da Marco non
sarebbe male
Bye,
Raktzo

 che mi complica la vita per la distribuzione
Se ti serve un db solo per l'appogio, Access (o meglio Jet) o SQLite ti
risolvono tutto
Enrico
P.S. non sia mai MySQL...
Newsgroup: it.comp.lang.delphi
Titolo: Messaggio di rete

Esiste un messaggio di rete
che viene inviato a tutte le applicazioni
di tutti gli utenti della rete?
Dovrei far fare un'operazione
ad un programma che gira su
un pc dalla rete alla ricezione del messaggio.

 ha scritto nel messaggio
news:cZQZ9.135309$AA2.5...@news2.tin.it...

un messaggio broadcast TCP/UDP...
ma cosa intendi per tutte le applicazioni di tutti gli utenti? un messaggio
arriva al PC, se c'è un demone che ascolta, bene, altrimenti ciccia, non
viene "inoltrato" a tutte le applicazioni... Non confondere i messaggi di
windows con i pacchetti TCP/UDP di rete
Ciao
Matteo

un pc dalla rete alla ricezione del messaggio.
Puo implementarlo su TCP/IP con i socket.
-- 
Andrea Laforgia
#exclude <windows.h>

come faccio ad implementare questo messaggio di rete?
"Andrea Laforgia" <x@x.x> ha scritto nel messaggio
news:8mnf3v0s9m0hrkbnt...@4ax.com...



ma intendi eseguire un net send * messaggio?
oppure qualcosa che giri su tcp/ip? In questo caso dovresti farti un 
cliet apposta..
saluti

 ha scritto nel messaggio news:3E392A5D...@yahoo.it...


Ma che significa un "messaggio di windows"????????????????????? Con tutta la
buona volontą nell'aiutarti....ma non capiamo che significa...


forse intende un messy utilizzando la rete ma che venga recapitato
a tutti i workgroup !?
....utilizzando le lib NMMSG (indy) ....
se non ho capito male !!
MAX

 ha scritto nel messaggio news:3E392A5D...@yahoo.it...

Newsgroup: it.comp.lang.delphi
Titolo: stringlist e listview molto lenti.

Ciao a tutti,
mi trovo davanti ad un problemino che non so come risolvere,
si tratta di leggere un file di testo in una stringlist e poi visualizzarne
il contenuto in una listview.
Il file e' composto da circa 40.000 linee, per ogni linea corrisponde un
item della listview, il problema e' che ci mette una vita a leggere il file
ed a creare i relativi items.
Come posso fare per ottimizzare il tutto?
grazie
Giuseppe

>il problema e' che ci mette una vita a leggere il file
ma non dici come leggi il file.
Bye
AS

leggo il file con
tstringlist.loadfromfile(nomefile)
 >> il problema e' che ci mette una vita a leggere il file
 AS> ma non dici come leggi il file.
 AS> Bye
 AS> AS
With best regards, Giuseppe.  E-mail: 
gs...@mediainf.com


wrote:

Utilizzi i metodi ListView.Items.BeginUpdate e EndUpdate?
-- 
Ore 18.30: premo invio.


 MP> wrote:
 >> Ciao a tutti,
 >> mi trovo davanti ad un problemino che non so come risolvere, si
 >> tratta di leggere un file di testo in una stringlist e poi
 >> visualizzarne il contenuto in una listview.
 >> Il file e' composto da circa 40.000 linee, per ogni linea corrisponde
 >> un item della listview, il problema e' che ci mette una vita a
 >> leggere il file ed a creare i relativi items.
 >> Come posso fare per ottimizzare il tutto?
 MP> Utilizzi i metodi ListView.Items.BeginUpdate e EndUpdate?
 MP> --
 MP> Ore 18.30: premo invio.


Come posso fare per ottimizzare il tutto?
Setta Visible a False e rimettilo a True dopo la lettura.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 Come posso fare per ottimizzare il tutto?
2-3 suggerimenti: a) Prima del loadfromfile, BeginUpdate e EndUpdate
alla fine;
b) setta capacity *prima* di BeginUpdate su una stima del numero di
linee + 10%
c) usa la listview in modo _virtual_: OwnerData := true; a runtime,
setti Count e in OnData etc restituisci l'item richiesto.
Saluti
Paolo Arosio

Giuseppe wrote:

Le TStringList in certi casi non sono fulmini di guerra sopratutto 
quando il numero degli elementi è grande: non è che per caso hai 
Sort=true nella TStringList? In quel caso caricherei prima tutto, e poi 
metterei il Sort a True.
Le uso tantissimo, ma in qualche rara volta mi sono estratto il codice e 
l'ho ottimizzato per il mio particolare uso. (Ooops devi avere i 
sorgenti della VCL in quel caso...)
Ciao.
Mimmo.

Potresti caricarne una certa quantità (un centinaio) al caricamento
del form, poi con thread separato caricarti gli altri oppure ad
intervalli
man mano che l'utente scorre la lista.
Non è il massimo come interfaccia utente per quanto riguarda la lista, 
ma almeno non ti si blocca il programma durante l'operazione di 
caricamento.
Gianluca
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Be credo di aver risolto, ho sostituito la listview con una stringgrid, ora
e' mooolto piu' veloce e per quello che ne devo fare mi va benissimo.
grazie a tutti
Newsgroup: it.comp.lang.delphi
Titolo: Come convertire tabelle Paradox in Interbase?

Come da oggetto... vorrei recuperare alcune tabelle ... è possibile?

hai provato datapump fornito con delphi 6/7?
Simone
"Mr Sinclair" <sinc...@spectrum.en> ha scritto nel messaggio
news:bds68q$3b4$1...@lacerta.tiscalinet.it...


 Simone
Grassssie ci proviamo...

Come da oggetto... vorrei recuperare alcune tabelle ... č possibile?
Io ho scritto un programma di trasformazione da tabelle Paradox e
codice SQL interbase.  Il programma legge la struttura di tabelle
Paradox e ne restituisce il codice Interbase per la creazione della
tabella e della chiave primaria (ignora gli indici secondari).
Lo pubblicherň tra breve sul mio sito e sul repository di Cantů, se
hai urgenza te lo mando per e-mail (fammi sapere a:
a.laforgia(at)
libero.it
)
-- 
Andrea Laforgia - a.laforgia(at)
libero.it
"There are three kinds of people in this world; 
 those who are good at maths and those who aren't".

hai provato datapump fornito con delphi 6/7?
Datapump non lavora bene (ad esempio, non sa trasformare i currency o
i booleani).  Io mi sono trovato molto meglio nello scrivermi un mio
programmino di trasformazione.


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

Dove posso trovare un compilatore delphi gratuito?

Sul sito della Borland che lo produce trovi una versione ridotta e con
qualche limitazione ma free
--
_________________________________
Edmondo Di Tucci 
snar...@tin.it
www.powernetsi.it
 
edm...@powernetsi.it
Newsgroup: it.comp.lang.delphi
Titolo: [OT] - Riconoscimento numero di cellulare

C'è un sistema in base al quale, data una stringa composta da un numero di
telefono (cellulare) , si riesce scomporre tale numero nelle sue parti
componenti (prefisso internazionale, prefisso gestore, numero)?
Mario

 gestore, numero)?
Usare le espressioni regolari?
-- 
I am what I am, I do what I can
L'uomo, conscio di sbagliare, persevera.

 Usare le espressioni regolari?
non credo si riesca a configurare la SIM di un cellulare per ricevere un
messaggio SMS (che tra le informazioni che trasporta ha il numero del
mittente  ) in modo che ti fornisca il numero con le parti divise tra
loro...
d'altro canto la rubrica di tutti i cellulari ritrova il nome dal numero
anche se il formato non è lo stesso ....

 numero anche se il formato non h lo stesso ....
Scusa, ma questo cosa centra con la tua precedente richiesta?



o non ho capito il tuo suggerimento a proposito della mia richiesta, oppure,
visto che la stringa che contiene il numero di cellulare che devo
'decodificare' è un messaggio SMS e il numero in questione è il numero del
mittente dell'SMS, credo che c'entri
Mario

 numero del mittente dell'SMS, credo che c'entri
Nel primo post hai chiesto:
[ti quoto]
data una stringa composta da un numero di
telefono (cellulare) , si riesce scomporre tale numero nelle sue parti
componenti (prefisso internazionale, prefisso gestore, numero)?
[/ti quoto]
ed io ti ho risposto di utilizzare le espressioni regolari, che cosa
centri la configurazione della SIM di un cellulare?



credo ci si stia perdendo in un bicchiere d'acqua ...
Di per se non la configurazione della SIM c'entra nulla, ma intendevo dire
che il numero di telefono non può essere scomposto a monte perchè lo ricevo
via SMS, e nella codifica dell'SMS il numero del mittente è scritto tutto
attaccato
... e a questo punto la domanda sorge spontanea: cosa intendi con
espressioni regolari?

 espressioni regolari?
http://www.regexp.org/
 o 
http://regexlib.com/
http://regexpstudio.com/TRegExpr/TRegExpr.html



... er ... thanks ...
Newsgroup: it.comp.lang.delphi
Titolo: Allineamento stampa

Qualcuno di voi conosce un metodo semplice per stampare una serie di numeri
incolonnati, giustificati a destra, usando printer.canvas ?
Io ho provato qualcosa del genere:
procedure AllineaADestra( x, y : integer; str : string );
begin
  Printer.Canvas.TextOut( x - Canvas.TextWidth(str), y, str );
end;
ma non funziona ........ penso che la TextWidth, ritorna pixels, e non
siano la stessa unità di misura delle coordinate xy di TextOut, vero?
Che mi dite?

>   Printer.Canvas.TextOut( x - Canvas.TextWidth(str), y, str );
non ho fatto alcuna prova, ma mi sembra
che ci sia un errore di fondo:
TextWidth dovrebbe riferirsi al canvas
dell'oggetto Printer, o no?
cosi:
Printer.Canvas.TextOut( x - Printer.Canvas.TextWidth(str), y, str );
poi ci sono delle alternative, tipo:
SetTextAlign(Printer.Canvas.Handle, TA_RIGHT);
Prova un po'!
Ciao
Ammatwain

 SetTextAlign(Printer.Canvas.Handle, TA_RIGHT);
Wow !!
Grazie :-))))

Newsgroup: it.comp.lang.delphi
Titolo: Domandine da neofita

Ciao a tutti, ho 3 domandine per voi:
io ho eseguito un progetto, e vorrei che alla partenza mi faccia partire un
mp3 con un loop infinito.
Altra domanda la mia form deve essere auto "dimensionate" in base alla mia
risoluzione dello schermo.
Come posso fare lampeggiare un pulsante una volta selezionato?
Grazie 1000 ciao ciao
-- 
Lorenzo Mendini Iz2FOS
ICQ: 26993628 (Ayrton)
http://www.polopositivo.org
 (Home Page)

 Come posso fare lampeggiare un pulsante una volta selezionato?
3.1) Ti crei un componente bottoneFlash che deriva da TButton e fai
lampeggiare la caption
3.2) Cerchi su torry( 
www.torry.net
 ) o simili se c'e' qualcosa di già
pronto.
Saluti
^_Goblin_^

Newsgroup: it.comp.lang.delphi
Titolo: Problemi con RichEdit

Devo accedere al testo contenuto in un Richedit tramite la prprietà Lines ma
non so come recuperare le caratteristiche locali dei vari Font usato in una
particolare riga. Come posso recuperare queste informazioni? Nelle varie
proprietà non ho visto nulla in cui possano essere memorizzate queste
informazioni, ma sicuramente da qualche parte ci saranno
Grazie
-- 
Posted from 
mta03-acc.tin.it
 [212.216.176.34] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie
Se ho capito bene devi settare PlainText...
dall'Help di Delphi:
This example requires two TRichEdit controls placed on the form.
When the form becomes visible, the first Rich Edit control will display the
rich text in it's raw form, including formatting characters. The second will
show the rich text in it's intended format.
procedure TForm1.FormCreate(Sender: TObject);
const
  // you may need to change this path to suit your environment
  Path = '..\Demos\RichEdit\OverView.RTF';
begin
  RichEdit1.PlainText := True;
  RichEdit1.Lines.LoadFromFile(Path);
  RichEdit2.PlainText := False;
  RichEdit2.Lines.LoadFromFile(Path);
end;
Spero ti sia stato utile.
Ciao. Davide
Newsgroup: it.comp.lang.delphi
Titolo: Application Heap

Ciao a tutti ho bisogno di un aiuto..
Ho costruito un query frutto di 20 "UNION ALL" ..ma quando tento di aprirlo
mi ritorna un'eccezione:
"Not enough storage is avaible in the application heap to process the
statement"
..sembra che non basti la memoria..ma che devo fare per farla bastare?

 ..sembra che non basti la memoria..ma che devo fare per farla bastare?
non riesci a scomporre la query in + query?
In caso tu non ci riesca si potrebbe provare a lavorare con le funzioni di
Heap Managment messe a disposizione da Windows ...
Saluti
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu

mi ritorna un'eccezione:
Le UNION ALL possono essere molto pesanti, sei sicuro che ti
serva davvero fare un'operazione del genere ?
Che tipo di query hai bisogno di realizzare ?
-- 
The Follet

 wrote in message
DfsF7.12344$zl4.4...@news2.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Io provo a richiederlo ......

Sto usando Delphi5 per inserire un testo molto lungo in una colonna di tipo
Long sotto Oracle 8.
La procedura non mi da errore, ma mi sono accorto che parte del  testo viene
tagliato.
La variabile che contiene il testo è AnsiString.
Qualcuno mi sa dire come ovviare a questo comportamento.
--
Adolfo
ado...@katamail.com
ICQ:  124734860
                          V i s i t a
 
http://utenti.tripod.it/vico_pisano
 
http://otillo95.monrif.net

 ha scritto nel messaggio
news:a7spd8$5u4g$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Stampare in BN

Buongiorno a tutti,
  ho una stampa a colori (rave report) e vorrei poterla convertire in
tonalità di grigio, senza dover fare un'altra stampa.
E' possibile settare da delphi la stampante in tonalità di grigio?
Altri metodi?
Grazie
  Lorenzo

Altri metodi?
Puoi bypassare il problema se imposti il componente preposto al report che
disegni in B/N, ma a questo punto non so se e' possibile.
Imho si tratta di una cosa un po' complicatina... e poi non so fino a che
punto possa servire, a meno di non voler risparmiare inchiostro colore. :)
ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: Enumerazione periferiche PCI

Ciao,
Cerco componente freeware per Delphi 4.0, o sorgente equivalente, per
determinare a uno a uno i vendor ID relativi alle periferiche PCI e AGP
presente sul sistema.
Grazie a tutti.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Davide Guida
davide...@inwind.it
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

hai gia visto sui siti suggeriti nelle faq del ng?
Bye
A


Certo, figurati, sono anni che prelevo informazioni e componenti da quei
siti.
Ho trovato qualcosa, ma accedono direttamente al BIOS tramite la funzione
Ptr, e non fanno al caso mio perché non funzionano in ambiente Windows 2000.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Davide Guida
davide...@inwind.it
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

Newsgroup: it.comp.lang.delphi
Titolo: Leggere subitem di una listview...

Devo leggere i dati da una listview e uso (poiche' mi serve solo il valore
della terza colonna):
if listview1.Items[i].Checked= true then
edit1.Text:=listview1.Items[i].SubItems.ValueFromIndex[2];
Bene questo valore e' sempre troncato a sinistra cioe' se il VERO valore e'
123456 mi ritorna nell' edit '23456' .???? Se invece leggo la Caption il
valore  e' esatto.
Qualcuno mi sa dire perche' e come rimediare?GRazie


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

Newsgroup: it.comp.lang.delphi
Titolo: Sommare testo più data anche quando la data è nulla

In un campo calcolato di una query devo concatenare Cognome + Nome + Data di
Nascita, ho dei problemi nel caso nel campo data nascita sia presente un
valore nullo, nel risultato compare sempre la data 31/12/1899 come faccio a
correggere questo errore? Questa è la stringa del campo calcolato:
dDM.qrLISTACliente.Value:= dDM.qrLISTACognome.Value+'
'+dDM.qrLISTANome.Value+', '+DateToStr(dDM.qrLISTADataNascita.value);
Thanks
St.1

 correggere questo errore? Questa è la stringa del campo calcolato:
if dDM.qrLISTADataNascita.IsNull then
   s := ''
else
   s := DateToStr(dDM.qrLISTADataNascita.value);
  dDM.qrLISTACliente.Value:= dDM.qrLISTACognome.Value+'
  '+dDM.qrLISTANome.Value+', '+ s;
-- 
Alberto Salvati
A *Neapolitan* delphi developer who is studing c# & .Net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso!"
Newsgroup: it.comp.lang.delphi
Titolo: Errore con CreateOLEObject('Excel.Application')

Ciao a tutti,
vorrei collegarmi ad un foglio excell in modo da poter leggere alcuni
dati direttamente da software; nel mio programma ho due form, la prima
(quella principale) dove risiede il programma effettivo, mentre la
seconda è una sorta di popup che serve per selezionare il file xls da
importare nel software. L'applicazione contiene un componente che
permette la lettura della porta COM ma esclusivamente dalla form
principale, la popup non contiene il componente. Ora, quando mi collego
ad excell dalla popup non ho nessun tipo di problema (o meglio se tento
di aprire un'istanza di excell già aperta mi da un EOleSysError ma
aprendone una nuova funziona perfettamente), se invece mi collego dalla
form principale ho questo errore:
First chance exception at $7C812A5B. Exception class EOleSysError with
message 'Impossibile effettuare una chiamata in uscita poiché
l'applicazione sta inviando una chiamata sincronizzata sull'ingresso'.
Process WTDataBox.exe (3328)
Il primo passaggio è collegarmi al foglio excell tramite popup, il
secondo dal form principale.
Cosa può scaturire l'errore?
Di seguito il codice della popup e del form principale:
- POPUP
Excel := CreateOLEObject('Excel.Application');
Excel.visible := false;
Excel.WorkBooks.Open(FileListBox1.FileName);
Excel.WorkSheets.Item[1];
// Read Cells
FileName := Excel.Cells.Item[2,1];
Excel.Quit;
Excel := UnAssigned;
- FORM PRINCIPALE
if vExcel = UnAssigned then
    vExcel := CreateOLEObject('Excel.Application');
vExcel.visible := false;
vExcel.WorkBooks.Open(EditFileImport.Text);
vExcel.WorkSheets.Item[1];
Sia Excel che vExcel sono impostate come tipi variant e l'errore
riportato si riferisce alla riga vExcel :=
CreateOLEObject('Excel.Application');
Se invece nella form principale inserisco il blocco try except
        try
          vExcel := GetActiveOLEObject('Excel.Application');
        except
          on E: exception do
            vExcel := CreateOLEObject('Excel.Application');
        end;
Quando viene eseguita la GetActiveOLEObject viene restituito il
messaggio di errore:
First chance exception at $7C812A5B. Exception class EOleSysError with
message 'Operazione non disponibile'. Process WTDataBox.exe (2416)
Questo errore viene lanciato anche dalla POPUP nel caso inserisca lo
stesso blocco try except. Se creo una nuova istanza di Excel invece non
mi restituisce errore e tutto va a buon fine.
Sapete darmi una mano? Non capisco da cosa possa dipendere.
Grazie mille

colde ha scritto:
 > Quando viene eseguita la GetActiveOLEObject viene restituito il
 > messaggio di errore [...]
Una domanda preliminare... Excel è installato nella macchina?
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Certamente, è installato. Ho notato che se eseguo l'apertura del file
xls prima di cominciare la comunicazione con la seriale, non mi da
errori. Ho provato così ad inserire l'apertura del file xls dopo aver
chiuso la porta seriale ma lì mi da ancora errore. Non capisco da cosa
possa dipendere.
Newsgroup: it.comp.lang.delphi
Titolo: Sviluppo web con d6

Un saluto a tutto il ng,
qualcuno sa dirmi dove trovare materiale per approfondire le funzionalità 
di delphi 6 per lo sviluppo web(websnap in particolare)?
Ho già spulciato quello fornito con delphi6 trial ma mi sembra alquanto 
generico.
Ringrazio anticipatamente per le risposte.
Ciao, Antò.

generico.
Sul sito Borland.
Almeno, uno degli articoli piu' interessanti usciti di
recente e' :
"WebSnap and Web Services hand-in-hand"
http://community.borland.com/article/0,1410,27691,00.html
--
Andrea Laforgia (mica uno qualunque...)


http://community.borland.com/article/0,1410,27691,00.html
In realta', pero', non c'e' quasi nulla. Gli articoli che ho trovato sono
scritti da guru per altri guru.
La cosa che mi fa piu' ******** č che hanno pubblicizzato tanto websnap ma, di
fatto, la documentazione č uguale a zero.
Per un poveraccio, come me, totalmente ignorante di web developement, iniziare
con websnap e' stato atroce.
Ciao,
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

con websnap e' stato atroce.
Be', forse "iniziare" con websnap non e' la cosa piu'
conveniente ;)


conveniente ;)
Gia., Probabilmente e' cosi', pero', e su questo devi darmi atto, la
documentazione e' scarsissima e gli esempi -- non so se li hai visti -- sono
ridicoli.
Speriamo nell'uscita di qualche buon libro.
Massimo.
----------------------
Ore 18.30: premo invio.

Speriamo nell'uscita di qualche buon libro.
Lo spera anche la Borland, secondo me, pare che le piaccia
apporre il suo bollino "Borland Press" e fare quattrini...


Newsgroup: it.comp.lang.delphi
Titolo: Ottimizzare il debugger

C'è un metodo per ottimizzare il debugger dato che una volta fatti 4 o 5
"Step" la variabile che stavi tenendo sott'occhio si "trasforma" in
"Variable...inaccessible here due to optimization"

 "Variable...inaccessible here due to optimization"
Ciao. Anch'io ho spesso lo stesso problema... o si disabilita
l'ottimizzazione temporaneamente (meglio?),
oppure puoi "forzare" il compilatore ad assegnare (e mantenere) i valori lo
stesso, facendo piů giri
sulle variabili (crei var temporanee nelle quali metti i valori che vuoi
vedere; oppure ne fai display
a schermo...)
Ciao, Davide DG

l'ottimizzazione temporaneamente (meglio?),
Ho disabilitato l'ottimizzazione : A cosa serve e cosa cambia visto che non
ho notato miglioramenti?????

 ho notato miglioramenti?????
Calma : la mia risposta comprendeva solo la tua domanda :
 "[...]la variabile che stavi tenendo sott'occhio si "trasforma" in
 "Variable...inaccessible here due to optimization" "
quindi ho immaginato che ti interessasse conoscere i valori delle variabili
(resi inaccessibili
dall'ottimizzazione) durante il debug...  ma questo mica implica che si
possa ottimizzare il debugger !
Cioč ... "ottimizzare" in che senso ?
Se ho capito male, sgridami pure!! Ultimamente sono parecchio fuso per lo
studio... e sparo vaccate!! :)
Ciao!! Davide DG

 wrote in message
9eFP4.80186$xt2.9...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: problema con StrCat

Ciao a Tutti,
   per ragioni di velocita mi vedo constretto ad utilizzare
l'istruzione StrCat ed usare dei PChar.
Allora io alloco la memoriacon due GetMem.
Questo questo codice:
  FileT:=TFileStream.Create(NameFile,fmOpenRead);
  {=== Alloco il buffer ===}
  FineBuffer:=False;
//  BufCur:=StrAlloc(32000);
  GetMem(BufCur,300);
  BufCur:='';
  BufLoad:=nil;
  try
    while FileT.Size > FileT.Position do begin
      {=== Leggo il buffer ===}
      FreeMem(BufLoad);
      GetMem(BufLoad,200);
      BufLoad:='';
      FileT.Read(BufLoad^,100);
      StrCat(BufCur,BufLoad);<========= Qui ho un accesse vaiolation
      P:=BufCur;
Perche?
Ciao
 Checco


Per azzerare la stringa in bufcur fai
BufCur[0] := #0;
invece di
BufCur := '';
Ciao,
Stefano


Grazie funziona perfettamente adesso.
Ciao
  Checco
Newsgroup: it.comp.lang.delphi
Titolo: help copy

qualcuno mi aiuta .. come faccio a copiare un file
la cui root e nome ed estenzione stanno dentro a un combobox e la
destinazione dentro ad un'altro?
copyfile(....) non so come si usa mi dà errore qualcuno mi potrebbe fare
un'esempio?
grazie
erik


Una cosa tipo:
procedure Come_si_usa_copyfile();
var
  Nomefile,
  Sorg,
  Dest : string;
begin
  Sorg := cmbSorg.Items[cmbSorg.Itemindex];
  NomeFile := ExtractFileName(Sorgente);
  Dest := format('%s\%s',[cmbDest.Items[cmbDest.Itemindex],Nomefile]);
  CopyFile(pChar(Sorg),pChar(Dest),true);
end;
ciao
S
P.S. ti consiglio comunque di leggere sempre l'help... e' tutto li'.

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Niente maiali, quelli sono per il sequel

http://www.cineblog.it/post/33489/enders-game-due-clip-in-italiano-4-nuovi-poster-e-28-foto-del-film-di-gavin-hood
 
 
-- 
@WarpTen10

 
http://www.cineblog.it/post/33489/enders-game-due-clip-in-italiano-4-nuovi-poster-e-28-foto-del-film-di-gavin-hood
 
 
Se non si fosse capito ho sbagliato ng.
 
Mi spiace.
 
-- 
@WarpTen10


Con questo link
http://www.kickstarter.com/projects/125377036/star-trek-continues-webseries
 
 
io invece "sbaglio ng sapendo di sbagliare".. :-D
 
Scherzi a parte, approfitto dell'OT per festeggiare il raggiunto budget
per altri 3 episodi di start trek continues !
 
 
-- 
morde
Android
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database
 


---
Star Trek Continues is a successful, non-profit, fan-based webseries 
finishing the final two years of the original 5-year mission.
---
 
Difetto comune al giorno d'oggi. Piuttosto che guardare avanti si 
preferisce volgere la testa all'indietro. Di questo passo non arriveremo 
mai all'ENT-J.
 
-- 
@WarpTen10


Kikstarter.com � un sito dove tu puoi trovare fondi per una tua
iniziativa: ti iscrivi, spieghi il tuo progetto e quanti soldi ti
occorrono, prometti premi per chi ti finanzia con diversi importi, e
aspetti la risposta del "popolo".
Se la tua iniziativa piace, la gente ti finanzia. C'� un tempo limitato
per la raccolta fondi, una volta raggiunta la data di scadenza, se hai
raggiunto/superato il budget ti danno i soldi, altrimenti niente di fatto.
 
Il link specifico che ho postato riguarda il progetto dei fan di star
trek della serie classica (che ha gi� realizzato il primo web-episodio)
che ha raggiunto l'obiettivo di ottenere 100mila dollari per produrre
altre tre episodi.


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

Qualcuno sa dirmi dove posso reperire informazioni sull'elaborazione di
immagini, ed in particolare per risolvere il problema di rilevare se c'č
stato "movimento" tra due immagini rilevate da una cam?
Grazie anticipatamente

 immagini, ed in particolare per risolvere il problema di rilevare se c'è

Newsgroup: it.comp.lang.delphi
Titolo: Scorrimento in tempo reale su TEdit o TDBGrid

Che strada seguire per implementare uno "scorrimento continuo" nella barra
di scorrimento verticale di un componente TEdit o TDBGrid, come accade per
esempio in M$ Outlook Express o in M$ Access.
Cioč, a ogni movimento della ScrollBar, ottenere lo scorrimento
immediato -in tempo reale- del testo o della griglia.
Per mostrare una Label accanto il cursore del mouse, che indichi la
posizione corrente nella griglia o altre informazioni, la strada mi č
abbastanza chiara, ma per lo "scorrimento continuo" no...
--
Mauro Falzari
"Non č morto ciň che in eterno puň attendere,
e col passar di strane ere, anche la morte muore"
(H.P. Lovecraft)

 Mauro Falzari
Con i componenti TEdit o TDBGrid penso non sia possibile fare uno
"scorrimento continuo" (o almeno io non saprei proprio come fare); però per
quanto riguarda la
TDBGrid, potresti sostituirla con una TtsDBGrid impostando la proprietà
ThumbTracking a TRUE.
La TtsDBGrid però non è inclusa nel CD di delphi ed è shareware, anche se
costa poco. Se ancora non possiedi la TtsDBGrid e sei interessato ti posso
fornire l'indirizzo internet sul quale puoi acquistare il pacchetto
contenente la TtsDBGrid insieme ad altri componenti.
Saluti.
Alex.

 contenente la TtsDBGrid insieme ad altri componenti.
Naturalmente ci sono anche i sorgenti, vero?
Cmq, grazie, inviami il link!
--
Mauro Falzari.
"Se guardi nell'abisso, anche l'abisso guarda in te."
(Friedrich Nietzsche)

 Mauro Falzari.
Sģ, ci sono anche i sorgenti.
Il link č 
http://www.objectsight.com/
 e la TtsDBGrid č inclusa nel pacchetto
TopGrid.
Saluti.
Alex.
Newsgroup: it.comp.lang.delphi
Titolo: Help su FindWindowEx

Ho guardato nelle faq, ma non riesco a risolvere questo problema ovvero sto
cercando di trovare un handle di una determinata finestra, per trovare
questo determinata finestra mi hanno spedito del codice per come fare, ma
purtroppo è in c ed è il seguente:
HWND hWnd = NULL;
hWnd = ::FindWindowEx (NULL, hWnd, "#32770", NULL);
sono andato nell'help MAPI e sono andato a vedere la funzione, ho provato a
convertirla, aiutandomi cone le faq, ma mi dà sempre "invalid variant type
conversion"
così è come l'ho tradotta
var
    handle_w:THandle;
handle_w:=FindWindowEx(Null,Null,'#32770',nil);
dove sbaglio?
Grazie per l'attenzione : )
--
Quasar Computer System s.n.c.
Montichiari -BS-
Tel. 0309650679 Fax. 0309651021
www.qcs.it

 wrote in message
9Ya67.10948$sE4.2...@news6.giganews.com...

Risolto invece di null va messo Unassigned


Io ci metterei uno 0 (zero). Non credo che la FindWindowEx accetti dei
Variant come parametri.
Ciao,
Stefano

> Risolto invece di null va messo Unassigned
Il parametro corretto è NIL (puntatore a nulla), non unassigned.
--
Ciao !  Davide DG.

 Il parametro corretto è NIL (puntatore a nulla), non unassigned.
io sono d'accordo con Stefano. La funzione vuole un numero, ed in tal caso
lo 0 credo sia la migliore cosa.
Come dici tu, NIL è un puntatore nullo, che non viene accettato da Delphi
per risolvere il problema posto nel thread.
Sei d'accordo ?
Per ora ti saluto, buona domenica !!
Antonio Tarolla

 Per ora ti saluto, buona domenica !!
Grazie!! Sono andato a ZozzoMarina ;-)
Ciao! Davide DG

 aspetta effettivamente un puntatore (pchar).
ecco, non ci eravamo capiti. Tu ti riferisci ad uno degli ultimi due
parametri, non i primi due.
L'autore del thread ha tradotto la funzione dal C a Delphi in questo modo:
FindWindowEx(Null,Null,'#32770',nil);
e Stefano gli ha suggerito di cambiare quel NULL con 0 e non con NIL o
Unassigned.
Suggerimento esatto, infatti se io in Delphi 3 metto NIL al posto di NULL
 sempre in riferimento alla funzione sopra scritta ) mi ritorna:
"Incompatible types: 'Integer' and 'Pointer'"
e non compila nulla. Vabbč, anche con NULL non compila nulla ( NULL =
nulla...eheheh ).
Per costringerlo a compilare scrivendo NIL al posto di NULL, dovrei mettere
Integer(NIL) e, allora compila senza dar errori.
Mi sembra si comporti bene e nonostante č estate non soffre tanto il
caldo....insomma ancora non da i numeri, almeno che non li do io !! :-))))
Ok, non mi sembra ci sia altro da dire, tranne il fatto che non ci eravamo
capiti, almeno credo.
Ti č piaciuta ZozzoMarina ?
Ti saluto....ciao ciao !!
Antonio Tarolla

 Ti č piaciuta ZozzoMarina ?
Macchč! Potrebbero ribattezzarla LatrinaMarina :((  anche andando a
largo l'acqua era sempre sporca :(


 largo l'acqua era sempre sporca :(
ma tu di dove sei ?
Ok, ci sentiamo....ciao ciao !!
Antonio Tarolla

 ma tu di dove sei ?
(PD)
       CIAO!
Davide DG.
Newsgroup: it.comp.lang.delphi
Titolo: Splash e Progress....

Ciao,
il mio programma usa una splash mentre carica le form. Vorrei inserire nella
splash una progress che indichi quando manca alle fine del processo di
caricamento. Vorrei se possibile, anche, indicare in una label le varie fasi
di caricamentoes (Loading Main.pas....)
Qualcuno puo' aiutarmi?
Ciao
PROJECT SOURCE
-----------------------
uses
  Forms,
  FSplash in 'FSPLASH.PAS' {fmSplash},
  UMain in 'UMain.pas' {frmMain},
  UDM in 'UDM.pas' {DM: TDataModule},
  UEditDesc in 'UEditDesc.pas' {frmEditDesc},
FSPLASH.PAS
------------------
procedure TfmSplash.FormDeactivate(Sender: TObject);
begin
  Release;
end;
procedure TfmSplash.FormDestroy(Sender: TObject);
begin
  Screen.Cursor:= crDefault;
  fmSplash:= nil;
end;
procedure CloseSplash;
begin
  fmSplash.Free;
end;
procedure OpenSplash;
begin
  Screen.Cursor:= LoadingCursor;
  fmSplash:= TfmSplash.Create(nil);
  fmSplash.Show;
  fmSplash.Update;
end;
initialization
  OpenSplash;
end.

 wrote in message
pXsg7.3467$vC1....@news1.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Problema form e Windows 10

Ciao a tutti,
 
allora spiego... ho la necessità di visualizzare un messaggio a centro schermo ma devo fare in modo che il resto dello schermo non sia cliccabile a prescindere da quello che c'è sotto.
 
Fino ad ora facevo cosi':
 
Sulla FormCreate del messaggio creavo una form vuota a pieno schermo senza bordo impostando Brush.Style := bsClear e funziona bene da Windows XP a Windows 7 ma con Windows 10 (almeno la versione Professional) no, nel senso che visualizza la form completamente nera e non trasparente dando un effetto allucinante spece se devo visualizzare più messaggi in sequenza.
 
Allora, mi sono detto, provo a copiare lo sfondo in una bitmap e la metto a pieno schermo (sempre nella form che creo nella FormCreate) ma pure questa non funziona, ovvero lo sfondo non viene copiato.
 
Per catturare lo sfondo uso questa funzione (che lavora bene su Win XP/2000/7)
 
Function GetScreenShot : TBitmap;
Var
  Desktop : HDC;
  DC      : Cardinal;
  BMP     : TBitMap;
begin
  Result     := Nil;
 
  BMP        := TBitmap.Create;
  BMP.Width  := Screen.Width;
  BMP.Height := Screen.Height;
 
  DC         := GetDesktopWindow;
  Desktop    := GetDC(DC);
 
  try
    BitBlt(BMP.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, Desktop, 0, 0, SRCCOPY);
 
    BMP.Modified := True;
    Result       := BMP;
  finally
    ReleaseDC(DC, Desktop);
  end;
end;
 
Ragazzi ho terminato le idee. Qualche anima pia mi potrebbe dare una mano?
 
Grazie a tutti

Dimenticavo uso Delphi 2006 e non posso cambiarlo

Vabbè alla fine ho risolto (sembra) con un trucchetto prelevato da un gruppo dedicato a Lazarus. Per chi interessi faccio cosi':
 
1)Creo la form a pieno schermo, senza bordo ne titolo
2)La rendo trasparente modificando gli attributi in WS_EX_LAYERED e dandogli una trasparenza di 1 (a 0 non funziona) usando la funzioncina sotto
3)Mostro la form con show
 
La funzione per rendere trasparente una form è la seguente:
 
Procedure SetTransparentForm(AHandle : THandle; AValue : byte = 0);
Var
  Info : TOSVersionInfo;
begin
  Info.dwOSVersionInfoSize := SizeOf(Info);
  GetVersionEx(Info);
 
  if (Info.dwPlatformId = VER_PLATFORM_WIN32_NT) and (Info.dwMajorVersion >= 5) then
     begin
       SetWindowLong(AHandle, GWL_EXSTYLE, GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
 
       //Make form transparent
       SetLayeredWindowAttributes(AHandle, 0, AValue, LWA_ALPHA);
     end;
end;
 
Dove AHandle è l'handle della form e come Avalue passo 1
 
bye

Newsgroup: it.comp.lang.delphi
Titolo: proprietà published

Salve!
Leggendo la documentazione di delphi pensavo bastasse
aggiungere una proprietą pubblished per vederla apparire
nell'Object Inspector. Ma non funziona!
Perchč?
TForm1 = class(TForm)
    ...
    ...
  published
    property MioColore: TColor read FMioColore write SetMioColore default
clBlue;
  end;
La proprietą MioColore non appare nell'Object Inspector! AIUTO! :-)
GRAZIE!


    Via De Gasperi, 14 - 42019
    Scandiano (Reggio Emilia)

 relativamente poco documentata.
Effetivamente non č cosě semplice!
GRAZIE!
