mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Gestione Evento before insert

Ho un problema vorrei gestire un evento before insert, ma la cosa penso
valga in generale, ovvero vorrei che quando un utente attiva questo evento,
il sistema, tramite l'handler dell'evento non gli permetta di fare
l'inserimento.
C'č qualcuno che puņ aiutarmi?
Grazie Enrico

non sarebbe + semplice impedire l'inserimento a monte, senza doverlo
intercettare prima che venga eseguito?
Poi, sarebbe utile avere l risposte alle solite domande, tipo quale
db&tecnologia usi?
A
--
Per rispondere non usare il reply ma scrivere al seguente indirizzo:
alsalvati(at)
supereva.it

C'č qualcuno che puň aiutarmi?
Documentati sulla procedura Abort()
-- 
Morde. 
(morde at programmer dot net)

In questo caso non posso impedire l'inserimento a monte per una serie di motivi che impiegherebbero troppo tempo per essere spiegati e non penso che la tecnologia db usata sia fondamentale in quanto i devo bloccare un evento prima che esso si verifichi, è per puro caso che si tratti di un evento che abbia a che fare con database, ma potrebbe essere un qualsiasi altro evento che in seguito ad una scelta fatta dall'utente debba poter essere interrotto.
La tecnologia comunque è paradox ma non penso che sia fondamentale.
Abort - ho visto la documentazione però molte volte la macchina risponde con un errore di sistema.
Enrico


-- 
MP Informatica - Soluzioni software gestionali e per il Web
Email: 
mp-info...@libero.it
Ing. Enrico Pirozzi - 
sco...@linuxtime.it
-----------
La teoria è quando si sa tutto e niente funziona.
La pratica è quando tutto funziona e nessuno sa il perchè!
In questo caso abbiamo messo insieme la teoria e la pratica: 
non c'è niente che funziona e nessuno sa il perchè!
Albert Einstein

Abort - ho visto la documentazione però molte volte la macchina risponde con un errore di sistema.
Controlla il codice perchè la procedura standard per evitare un post è
proprio:
procedure Tv2DNISEdit2.CountryTranslationBeforePost(DataSet:
TDataSet);
begin
  Abort;
end;
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

Enrico, imposta il tuo newsreader perché tronchi le linee non oltre il
70esimo carattere.  Questo per agevolare chi legge i tuoi messaggi.

Se ti serve io impedisco l'uso del bottone OK se la Edit è vuota.
// _____________________________________________
Procedure TfEdOre.eChange ( Sender : TObject ) ;
Begin
  If Length ( Trim ( TDBEdit(Sender).Text ) ) <> 0 Then
    bOk.Enabled := True
  Else
    bOk.Enabled := False ;
End ;
Ciao.
--------------------------------
Inviato via 
http://usenet.libero.it

Abort - ho visto la documentazione però molte volte la macchina risponde con un errore di sistema.
La documentazione che hai letto dice espressamente che Abort "raises a silent
exception".
Questo significa che probabilmente l'errore di sistema che vedi e' quello
mostrato dal debugger.
Verifica anche in Tools->Debugger Options le eccezioni che vengono gestite.


  If Length ( Trim ( TDBEdit(Sender).Text ) ) <> 0 Then
Questo č rimpiazzabile con:
if Trim(TDBEdit(Sender).Text) <> '' then
...

Grazie



Newsgroup: it.comp.lang.delphi
Titolo: D2005 vs D2006

sto pendando di aggiornare D2005 Pro a D2006 Pro, com'e' la situazione
di stabilita' D2006 e' realmente piu' solido ed affidabile.
in due parole , vale la pena aggiornarlo ?
in fatto di report esiste qualcosa (Rave non lo considero),
FuzzyReport e' ancora senza Preview ?
ReportManager su D2005 non trova alcuni files , e non si installa
grazie Maurizio 

 ReportManager su D2005 non trova alcuni files , e non si installa
*RAVE Reports* è (purtroppo) sempre presente, *FuzzyReport* ha sempre 
avuto l'anteprima, *Report Manager* purtroppo non lo conosco.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

> avuto l'anteprima, *Report Manager* purtroppo non lo conosco.
ho installato Fuzzy 2.1rc2 e sostituito i file con quelli indicati su 
New_FR_PREV
provo il Demo di Fuzzy ma , non visualizza alcun report,
sempre la maschera Report in preparazione Pagina in Costruzuione1, ma 
potrebbe
essere legato al BDE + DBDemos
invece mi chiedo se sia possibile visualizzare l'anteprima del Report su un 
form
personalizzato , come si puo' con QuickReport e FreeReport, ma non vedo un
componente (FrPreview o simile) tra i 13 presenti.
grazie Maurizio

 provo il Demo di Fuzzy ma , non visualizza alcun report
Hai provato a creare un tuo progetto e a seguire gli esempi del manuale 
scaricabile? Esiste un metodo apposito per invocare l'anteprima di un 
report.


Maurizio ha scritto:

Ciao !
Ho mollato Fuzzy appena ho visto FastReport (quello vero a pagamento).
A presto.

Newsgroup: it.comp.lang.delphi
Titolo: DIB - Delphi Personal

racchiudo le due domande:
se uso le funzioni DIB, prima devo controllare la profondita' di colore 
oppure come spero non devo gestisco sempre a 24 e 3/4 e vivo felice.
seconda domanda: delphi 2006 personal o 2005 personal esistono anche a 
basso prezzo.
grazie
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

 oppure come spero non devo gestisco sempre a 24 e 3/4 e vivo felice.
Se ti con DIB ti riferisci alle bitmap indipendenti dal device hai la 
proprieta' PixelFormat delle Bitmap che permette la modifica sulla 
profondita' del colore.
Se apri una Bitmap col LoadFromFile dovrebbe rispettare la profondita' 
nativa.
Ma forse non ho inteso bene la domanda...
Giorgio 

 Ma forse non ho inteso bene la domanda...
hai inteso giusto, grazie

Newsgroup: it.comp.lang.delphi
Titolo: Copiare

Ciao a tutti,
ho un problema, ho in due stringhe SourcePath e DestPath la directory
sorgente e quella di destinazione, come faccio a copiare tutti i file
presenti in quella sorgente in quella di destinazione?
Sono abbastanza, quindi vorrei evitare di copiarne uno a uno...
Grazie
Daniele

presenti in quella sorgente in quella di destinazione?
http://www.efg2.com/Lab/Library/Delphi/IO/Files.htm#SHFileOperation
Morde

 presenti in quella sorgente in quella di destinazione?
Ho pensato che si potrebbe usare una procedura ricorsiva nella quale 
avvalersi di FindFirst e FindNext.
In particolare, posso suggerirti di dichiarare due procedure come segue:
procedure MyCopy(source,dest:string);
procedure MyCopyFile(source,dest:string);
e di implementarle grosso modo così:
procedure TForm1.MyCopy(source,dest:string);
var sr:tsearchrec;
begin
  if findfirst(source+'*.*',faAnyFile,sr) = 0 then
   begin
    while findnext(sr) = 0 do
     begin
      if (sr.Attr = faDirectory) and (
sr.name
 <> '.') and (
sr.name
 <> 
'..') then
      begin
      createdir(dest+
sr.name
+'\');
      mycopy(source+
sr.name
+'\',dest+
sr.name
+'\');
      //mycopyfile(source+
sr.name
+'\',dest+
sr.name
+'\');
     end
    else
    if (sr.attr <> faDirectory) and (
sr.name
 <> '.') and (
sr.name
 <> 
'..') then
      mycopyfile(source,dest);
   end;
  end;
end;
procedure TForm1.MyCopyFile(source,dest:string);
var sr:tsearchrec;
begin
  if findfirst(source+'*.*',faAnyFile,sr) = 0 then
  copyfile(pchar(source+
sr.name
),pchar(dest+
sr.name
),false);
    while findnext(sr) = 0 do
     copyfile(pchar(source+
sr.name
),pchar(dest+
sr.name
),false);
end;
Alla procedura "MyCopy" passi rispettivamente le directory di origine e 
di destinazione, corredate di '\' finale.Per esempio:
MyCopy('c:\a\','c:\b\');
L'idea è quella di implementare una procedura ricorsiva che visita 
l'albero delle directory in profondità e fa la copia di tutti i file per 
ogni directory.

 avvalersi di FindFirst e FindNext.
Mmm...Leggendo un altro post in questo newsgroup, ho scoperto che in 
effetti esiste una bellissima funzione API che si chiama 
"SHFileOperation", la quale, se invocata, esegue proprio le operazioni 
che tu richiedi. :)
Cercala sul manuale delle API.
Newsgroup: it.comp.lang.delphi
Titolo: Ridimensionare una JPG

Ciao a tutti,
come da oggetto, come faccio a aprire una immagine JPG cambiargli dimensione
e poi salvarla?
Non mi sembra che la unit del Delphi5 abbia queste proprietą...
Qualche consiglio?
Grazie.
Tomas

 ha scritto nel messaggio
news:8m6046$ig5$1...@fe2.cs.interbusiness.it...


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtDlgs;
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses JPEG;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
  Jpeg1, Jpeg2: TJPEGImage;
  TempBitmap: TBitmap;
  CanvasRect: TRect;
begin
  if OpenPictureDialog1.Execute then
    begin
      // Create a Bitmap and two JPEG's
      TempBitmap := TBitmap.Create;
      Jpeg1 := TJPEGImage.Create;
      Jpeg2 := TJPEGImage.Create;
      try
        // Load the picture to shrink into the first Jpeg
        Jpeg1.LoadFromFile(OpenPictureDialog1.FileName);
        // Set the bitmap width to the new size
        TempBitmap.Width := JPeg1.Width div 2;
        TempBitmap.Height := JPeg1.Height div 2;
        // Create a TRect with the canvas co-ordinates
        CanvasRect := Rect(0, 0, TempBitmap.Width, TempBitmap.Height);
        // Draw the JPEG on the Canvas
        MyBitMap.Canvas.StretchDraw(CanvasRect, JPeg1);
        // Assign the bitmap to the second Jpeg
        Jpeg2.Assign(TempBitmap);
        // Save the second Jpeg in a renamed file
        Jpeg2.SaveToFile(ExtractFilePath(OpenPictureDialog1.FileName)+
          'Small '+ExtractFileName(OpenPictureDialog1.FileName));
      finally
        // Tidy up the stuff you created before leaving
        TempBitmap.Free;
        Jpeg1.Free;
        Jpeg2.Free;
      end;
    end;
end;
end.
--
- Carlo -
PS : Trovato sulla rete... :)

Grazie...era quello che mi serviva..
Ciao
Tomas

Newsgroup: it.comp.lang.delphi
Titolo: Problema

Ho gia' postato qualcosa sull'argomento ma non sono riuscito a
risolvere il problema.
Questo e' la parte di codice. Ho un campo memo dove ho un certo numero
di righe e le ultime 2 o 3 sono sempre vuote e le devo cancellare.
Questo e' il codice che ho scritto ma non funziona.
Grazie!
var
i:integer;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
if trim(memo1.Lines[i])<>'' then
begin
Continue;
end
else
Memo1.Lines.Delete(i);
end;

 end;
Ciao, Antò. 

ThunderDAn,
[cut]
un' altra cosa, cosi mi sembra migliore
var
  i:integer;
begin
  for i:=Memo1.Lines.Count-1 downto 0 do
    if trim(memo1.Lines[i]) = '' then
      Memo1.Lines.Delete(i);
end;
Ciao, Antò.

 for i:=Memo1.Lines.Count-1 downto 0 do
dubito fortemente che fosse questo il problema ;-)

 dubito fortemente che fosse questo il problema ;-)
Dubita pure, ma è proprio quello.
Ed è anche abbastanza logico, se ci pensi bene.
--
Jax

 Grazie!
Il numero di righe vuote è ben definito? Intendo se sono 2 e sono SEMPRE le
ultime, puoi fare
with Memo1,Lines do
begin
    Delete(Count-1);
    Delete(Count-1);
end;
Analogamente se sono le ultime 3.
In questo modo, eviti il loop.
Altrimenti, se il numero di righe vuote è variabile devi necessariamente
scorrere la lista
alla ricerca di quelle vuote da eliminare.
Se sai per certo che le righe vuote sono alla fine, la scansione della lista
la fai da quella con
indice più alto a scendere, viceversa se le righe vuote sono localizzate
all'inizio.
Tieni presente però che ogni volta che aggiungi e/o rimuovi una riga nel
memo, il valore
della proprietà Count di Lines cambia concordemente, inoltre, le righe
vengono riorganizzate.
0: Prima riga
1: Seconda riga
2: Terza riga
3: Quarta riga
Se faccio Delete(2) avrò:
0: Prima riga
1: Seconda riga
2: Quarta riga      <---
Questo fatto in un loop potrebbe crearti casini... :)
Spero di esserti stato utile.
Saluti,
Carmine

Grazie a tutti, ora funziona.
Mi sono stati suggeriti diversi modi tutti funzionanti.
Anche se l'ultima riga non viene mai cancellata.....
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: Nascondere la barra di scorrimento DBGrid

Cercavo come farlo e ho trovato due routines. La prima, molto citata, e la 
seconda trovata in un solo posto. Ve le riporto entrambe perch� la seconda 
consta praticamente di una sola istruzione e mi fa pensare alle ragioni 
della prima..
Qualcuno ne sa abbastanza da fare dei commenti ? Grazie
PRIMA ROUTINE:
type
  TNoScrollDBGrid = class(TDBGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage);
      message WM_NCCALCSIZE;
  end;
procedure TNoScrollDBGrid.WMNCCalcSize(var Msg: TMessage);
const
  Scrollstyles = WS_VSCROLL or WS_HSCROLL;
var
  Style: Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and Scrollstyles) <> 0 then
    SetWindowLong(Handle, GWL_STYLE, Style and not Scrollstyles);
  inherited;
end;
SECONDA ROUTINE:
ShowScrollBar(DBGrid1.Handle, SB_VERT, False);

 Qualcuno ne sa abbastanza da fare dei commenti ? Grazie
Che c'ï¿œ da commentare? Entrambe le soluzioni sono dei workaround.
Nel primo codice viene correttamente subclassato il componente, ma 
manca la parte di registrazione del componente, pertanto e' un hack da 
usarsi solo unline e non riutilizzabile.
Il secondo si commenta da solo.
Ciao
-- 
Morde

 ha scritto nel messaggio 
news:4bf3ef50$1...@news.x-privat.org...

Non mi aiuti molto se mi dici che si commenta da solo. Voui dire che ï¿œ una 
soluzione da evitare ? In questo caso, sarebbe la prima da adottare o hai in 
mente qualcosa di piï¿œ congruo ? 

 mente qualcosa di piï¿œ congruo ?
Sono entrambe soluzioni valide, in quanto workaround io le userei solo 
se ho poco tempo a disposizione e solo se non intendo riutilizzare una 
griglia cosï¿œ modificata in altri progetti.
Normalmente una modifica di questo tipo viene messa in un nuovo 
componente in modo che poi ce l'ho nella component palette e la posso 
riutilizzare o estendere in altri progetti.
La soluzione a riga singola ovviamente ï¿œ la piï¿œ rapida, per questo si 
commenta da sola, la prendi, la usi, e te ne scordi.
Ciao
-- 
Morde

 in mente qualcosa di pi� congruo ?
Intendeva dire che e' semplicemente la chiamata ad un api e che quindi e' 
una soluzione piu' pulita rispetto alla prima che e' un hack, almeno io l'ho 
intesa cosi'. :)
Ciao
RyoGQI
Newsgroup: it.comp.lang.delphi
Titolo: Unload

Cari amici Delphisti,
esistono in Delphi (3.0) comandi simili a UNLOAD e LOAD del Visual Basic?
Consultando i vari help non ho trovato niente del genere.
Allora vi chiedo:
Come fare per far sì che un pulsante faccia ripartire un'applicazione da
capo, re-inizializzando tutti i valori (variabili, timer, ecc)?
Grazie

 capo, re-inizializzando tutti i valori (variabili, timer, ecc)?
re-inizializzi i valori!
Contatore:=0;
Timer.Enabled:=False;
ec....ecc...
...
...
Ciao,
Alan Solo

Newsgroup: it.comp.lang.delphi
Titolo: Drag and DRop???

Ciao,
ho appena realizzato un player di mp3 molto semplice
mi e' rimasta pero' una cosa da fare.....
vorrei fare in modo che selezionando uno o piu' file tramite esplora risorse
e trascindandoli sul mio programma
questo li esegua....
ma non riesco a gestire questo evento...
ho provato a fare cosi' ma sempre che non gliene importi nulla...
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
showmessage('ciao')
end;
e lo stesso sul DragOver......
Qual'e' l'evento che devo utilizzare?
Grazie infinite a chi potra' aiutarmi...
Simone

 questo li esegua....
Ciao, mi pare tu debba gestire il messaggio wm_dropfiles e le funzioni
allegate
DragAcceptFiles, DragFinish, DragQueryFile, DragQueryPoint
... non so farti un esempio perchč la risposta č "mutuata" da Andrea Magni
(da un altro msg).
Ciao, Davide DG
Newsgroup: it.comp.lang.delphi
Titolo: Click a tempo sullo schermo

Vorrei sapere come generare da un mio programma delphi un click del mouse
sullo schermo in una determitata posizione.
Mi spiego io vorrei avere un prog di piccole dimensioni 200*100 pixel sullo
schermo e lui a intervalli di tempo prestabiliti
faccia muovere il mouse inun punto dello schermo ed eseguire un click

 sullo schermo in una determitata posizione.
rapidamente: cerca "mouse_event" nella guida Windows SDK

 rapidamente: cerca "mouse_event" nella guida Windows SDK
Sulle nuove piattaforme è bene usare SendInput(), al posto di
mouse_event() e keybd_event().
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.delphi
Titolo: Maledetti puntatori...

Un saluto a tutti.
Sto cercando di utilizzare la classe STDictionary di Turbopower (r.i.p.) 
  ma siccome sono veramente negato con i puntatori ho incontrato qualche 
problemino.
Sono riuscito, almeno sembra visto che la successiva ricerca per chiave 
ritorna  true solo quando deve, a caricare i valori nell'istanza della 
classe. Segue qualche spezzone di codice:
ype
   pLogData = ^TLogData;
   TLogData = record
     fCountry: ShortString;
     fLog: ShortString;
     fKind: ShortString;
   end;
...
var LogData: pLogData;
     aDPointer: Pointer;
     LogDict: TStDictionary;
     SzHash: integer;
...
SzHash := 9001;
if assigned(areaDict) then areaDict.Free;
areaDict := TStDictionary.Create(SzHash);
...
New(LogData);
while (NOT qInfoLog.Eof) do
begin
   with LogData^ do
   begin
     fCountry := qInfoLog.FieldByName('country').AsString;
     fLog := qInfoLog.FieldByName('log').AsString;
     fKind := qInfoLog.FieldByName('kind').AsString;
   end;
   LogDict.Add(qInfoLog.FieldByName('rkey').AsString, LogData);
   qInfoLog.Next;
end;
Dispose(LogData);
...
Ora il problema arriva quando cerco di estrarre i dati.
Uso il metodo Exists che è dichiarato così:
function Exists(const Name : string; var Data : Pointer) : Boolean;
   {-Return True and the Data pointer if Name is in the dictionary}
In questo modo:
New(aDPointer);
if LogDict.Exists(key, aDPointer) then
begin
   // usiamo i risultati...
   ...
end;
Il (mio) problema sta nel fatto che aDPointer non è tipizzato come 
sarebbe mio desiderio (vedi pLogData) e non trovo modo di utilizzare il 
risultato ottenuto come record.
Un aiutino??
P.s: se qualcuno si sta chiedendo perchè non uso le funzioni del db 
piuttosto che prendermi i dati dalla tabella per fare poi la ricerca nel 
Dictionary la risposta è... questione di prestazioni, diciamo 6 a 1 
rispetto all'utilizzo di query.
-- 
For a list of all the ways technology has failed to improve the quality 
of life, please press three.
(C) Alice Kahn

 risultato ottenuto come record.
Puoi fare un cast:
LogData := pLogData(adPointer);
// da qui puoi usare LogData.fCountry ecc
ciao
Giacomo

 // da qui puoi usare LogData.fCountry ecc
Grazie mille... solita buccia di banana, ci avevo provato ma ovviamente 
nel modo sbagliato.
Ora devo capire dove ho sbagliato nell'assegnare i valori, visto che 
tutte le chiavi mi ritornano sempre lo stesso record, l'ultimo inserito.
Sicuramente un'altra boiata nel modo di usare i puntatori.


 Ora devo capire dove ho sbagliato nell'assegnare i valori, visto che 
Altra grossa buccia... magari bastava allocare la memoria per il 
puntatore al momento giusto, bestia.
while (NOT qInfoLog.Eof) do
begin
   New(LogData);
   with LogData^ do
   begin
     fCountry := qInfoLog.FieldByName('country').AsString;
     fLog := qInfoLog.FieldByName('log').AsString;
     fKind := qInfoLog.FieldByName('kind').AsString;
   end;
   LogDict.Add(qInfoLog.FieldByName('rkey').AsString, LogData);
   qInfoLog.Next;
end;
E poi evitare il dispose nel momento sbagliato...
Grazie ancora Giacomo per avermi, come dire, riavviato!

Newsgroup: it.comp.lang.delphi
Titolo: Dimensione del Form

Perchè in Delphi se lavoro in 800*600 non posso fare il form piu largo di
812 pixel?
E' un buco di Delphi o c'è qualche prorpietà da settare?
Grazie
     Emanuele.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 E' un buco di Delphi o c'è qualche prorpietà da settare?
buco di winzozz
Newsgroup: it.comp.lang.delphi
Titolo: quale libro per iniziare

come da oggetto posibilmente in italiano
conoscenze attuali access e vb
ciao


mastering Delphi 2 o Delphi 3 di Marco.

Newsgroup: it.comp.lang.delphi
Titolo: MI5 Persecution: Fitted up 26/4/96 (150)


Organization: Toronto Free-Net
Distribution:
 
Illtud Daniel (
ida...@jesus.ox.ac.uk
) wrote:
: Probably 'cos you come across as reasoned & articulate, it's a pity
: about the other stuff :)
 
Veracity is so unreasonable.
 
: >>pps. You should still see a doc again Mike.
: >
: >Doing so. Trouble is, all this mental-illness stuff provides camouflage
: >for the harassment, which is real. It alows people who otherwise would
: >consider the harassment seriously to disregard it. It makes conversations
: >with a lawyer or police brief when otherwise it would merit discussion.
: The point is that there are two possibilities happening here-
 
: 1. There's a large conspiracy of people out to get you, for no
:    other reason than that they have the means to do so, and that
:    it involves a lot of the Media & a proportion of the public
 
: 2. You (who admit to having some headspace problems) are suffering
:    from acute paranoid schizophrenia.
 
: Possibility #1 is _possible_, but would be unprecendented (OTOH,
: how would we know?), unfeasible, and many other things beginning
: with _un_ which I can't think of at the moment. Besides, if there
: was something going on, chances are some of us here would know
: about it, and I'm convinced that nobody does.
"Unprecedented" hits the nail on the head. It _is_ unprecedented, but we
have only just reached the technical stage at which it is feasible, and
we know video-spying is done to other people (NB the Diana-Hewitt
episode) and is a routine tool of security agencies.
 
Perhaps what is unprecedented is not the technical side, but the social
manipulation of many people by a concealed element in what other
countries would be called the secret police. The most disturbing element
is the degree to which people allow themselves to be unquestioningly
manipulated by an evil element within the state.
150
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDemon.com
<<<<<<------
Unlimited Access, Anonymous Accounts, Uncensored Broadband Access




Newsgroup: it.comp.lang.delphi
Titolo: sviluppo sistemi calcioscommesse help

Sto cercando di elaborare un programma che mi consenta di sviluppare sistemi
per il calcio scommesse.
Non riesco a inventarmi l'algoritmo per selezionare le combinazioni
desiderate.
Se voglio giocare 6 pronostici e sviluppare il sistema in quartine in modo
tale che le quartine dello sviluppo siano solo quelle che vincono a patto
che si siano centrati almeno 5 ( o 4 o 3 ) risultati della colonna base
(quella da 6 elementi), come dovrei fare?
Posto una unit esplicativa.
(*programma per sviluppare combinazioni ridotte per calcioscommesse
 nel presente elaborato si sviluppano quartine,ma è prevista la possibilità
dello sviluppo in sestine, cinquine etcetc
 nel form principale sono presenti un tedit, un tbutton e un tmemo
 evidentemente sto facendo delle prove:)
*)
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
colonna:string;
colonnafinale:string;
l:integer;
x1,x2,x3,x4:integer;
begin
colonna:=edit1.text; // edit1 può contenere max 14 caratteri
l:=length(colonna);
// sviluppo in quartine della colonna base
for x1:=1 to l-3 do begin
for x2:=x1+1 to l-2 do begin
for x3:=x2+1 to l-1 do begin
for x4:=x3+1 to l do begin
setlength(colonnafinale,4);
colonnafinale[1]:=colonna[x1];
colonnafinale[2]:=colonna[x2];
colonnafinale[3]:=colonna[x3];
colonnafinale[4]:=colonna[x4];
    // quale filtro inserire per effettuare la selezione?
memo1.Lines.add(colonnafinale);
// tale sviluppo elabora tutte le colonne
// vorrei capire come fare a selezionare solo quelle colonne che
realizzerebbero la vincita a patto che nella colonna base (edit1.text)
// si realizzassero 1 o 2 punti in meno
// se la colonna base fosse di 7 elementi io dovrei selezionare quelle
colonne che
// consentirebbero la vincita a patto che nella colonna base fossero esatti
,per esempio, anche solo 5 risultati
// ringrazio ciunque mi dia una mano
end;
end;
end;
end;
end;
end.

Quello che ti serve non è un semplice filtro ma un algoritmo di 
autoriduzione (qualche centinaio di riche di codice...)


 autoriduzione (qualche centinaio di riche di codice...)
mi basterebbe anche un'idea di sviluppo per l'algoritmo.
NOn necessariamente la pappa pronta!
Newsgroup: it.comp.lang.delphi
Titolo: Aiutatemi...

Questo è il mio problema: devo prelevarare da un campo Memo dei dati.
Dopo averli convertiti, devo metterli in un vettore, tenendo conto però che
se l'elemento è già presente nel vettore bisogna incrementare una variabile
in un vettore di posizione adiacente, per contare le frequenze.
Spero di essere stato chiaro :-)
--
Andrea
ICQ UIN 17383962

Ciao Andrea,


mmm...non moltissimo!! :)
Aspetta, che intendi "dopo averli convertiti"?
In che modo devi prendere i dati, a livello di parola, di linea, di frase o
che altro?
Qualunque sia l'operazione che devi svolgere non è difficile da realizzare
(a livello di codice),
cerca di fornire ulteriori dettagli.
Bye
--
- Carlo -
BSSoftware Tips Mailing-List Support
Newsgroup: it.comp.lang.delphi
Titolo: Offerta di Lavoro

Azienda Informatica Romana attiva nel settore Sicurezza, cerca
programmatore esperto Delphi, con conoscenze anche di C, C++ e vari
Server DB (MSSQL, MySQL, ecc.) per immediato inserimento in Team di
Sviluppo. Preferibilmente max 30enni e domiciliati in area Roma.
Spedite il vostro Curriculum all'indirizzo sopracitato. 
mhv...@tin.it

 ha scritto nel messaggio

Non sono molto d'accordo con la cosa, ma è illegale porre dei limiti di età 
negli annunci di offerta di lavoro.
Inoltre sarebbe opportuno che chi posta annunci sia identificabile (sempre a 
norma di legge).
Il messaggio è completamente OT.
Diffiderei di una "azienda" che posta a mezzanotte di un giorno festivo.
Gianluca. 

 Diffiderei di una "azienda" che posta a mezzanotte di un giorno festivo.
Sei un grande: non ci avevo nemmeno fatto caso! 
	Marco
	info @ 
marcobortolani.it
Newsgroup: it.comp.lang.delphi
Titolo: OT: Delphi 7 PRO License information

Ragazzi,
oggi mi è successa una cosa strana. Improvvisamente Delphi 7 si rifiuta
di partire perché la licenza non esiste. Ho controllato, ma il file che
mi hanno spedito da Borland al tempo dell'acquisto era sempre lì. In
tutti i modi ho provato a sostituirlo e niente da fare.
A qualcuno di voi è già successa una cosa del genere ? Ho registrato di
nuovo il prodotto e sono in attesa di una nuova licenza, ma non so se è
una cosa regolare.
Ciao
Antonio

 una cosa regolare.
Qui ho proprio bisogno di informazioni... scusa e scusatemi.
In cosa consiste un Delphi licenziato? Io ho acquistato il prodotto, l'ho
registrato online (la prima volta), ma non ho mai ricevuto niente. Credevo
che per avere un prodotto con licenza bastasse avere tutto il pacchetto,
relativa documentazione, codice utente, seriale, ecc., e tutti i foglietti e
fogliettini borland che vi ho trovato dentro... oltre alla fattura
d'acquisto. Devo avere qualcosa d'altro? Devo cominciare a preoccuparmi?
Ciao.
Giuseppe

formattazione, ho dovuto reinstallare Delphi 6 Pro.
Giuse'... con la versione che usi (6.2pro, che e' anche la mia) non e'
previsto il codice di registrazione/attivazione. Anche io, dopo un formattone
redentore, ho reinstallato delphi ma non mi sono piu' registrato per i tuoi
stessi motivi.
Ora, quando esce il reminder, non faccio altro che schiacciare il "remind me
later" (o simile).
Tranquillo, e' tutto a posto :)
-- 
Morde. 
(morde at programmer dot net)

 Tranquillo, e' tutto a posto :)
Sì, mi sembra che in Delphi 6 non c'èera bisogno di ricevere il codice
di attivazione. Da Delphi 7, invece, dopo la registrazione devi
attendere il codice di attivazione direttamente dalla Borland. Il
prodotto parte direttamente, solo che nello splash screen Delphi 7
viene evidenziato Unregistered.
Ciao
Antonio

 wrote in message
4DTIa.120314$pR3.2...@news1.tin.it...


 Grazie
La licenza studente no di certo, ma le altre licenze, a partire dalla
Professional, ti permettono di vendere i software che realizzi.
Quello che cambia nelle varie versioni di Delphi sono gli strumenti che ti
vengono messi a disposizione per la programmazione: nella valutazione
dell'acquisto, definisci un po' il target dei tuoi programmi e vedi quale
versione di Delphi č la migliore per te (puoi aiutarti con la feature matrix
sul sito Borland 
http://www.borland.com/delphi/pdf/del7_feamatrix.pdf
).
Saluti
        Marco Bortolani
 
in...@marcobortolani.it
Newsgroup: it.comp.lang.delphi
Titolo: QuickReport - Problema

Qualcuno sa dirmi come risolvere il seguente problema?
Ho un report realizzato con quick report e vorrei poter mainpolare al
run-time le QRLAbel e le QRDBLABEL.
Ad esempio se mettessi in una combo box i nomi di tutti le labels, vorrei,
selezionando la label appropriata tramite la combo box, poter modificare il
parametri Top e Left della label selezionata.
Qualcuno sa da darmi una mano?
Grazie Enrico

 run-time le QRLAbel e le QRDBLABEL.
Le label di quickreport hanno un evento, OnPrint, che riceve come parametro
il valore da stampare.
Questo parametro è passato come var, quindi lo puoi modificare
a tuo piacimento.
Bye
AS
-- 
Posted from  [212.17.220.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
Grazie Enrico

Newsgroup: it.comp.lang.delphi
Titolo: Gestione file di help

Scusate per il quesito :
dovrei lanciare un file .chm (file di html compilato) da un programma
Delphi 4.
Mi sembra che a livello 'nativo' Delphi integri solo file .hlp... c' è
un sistema per richiamare un .chm ?
In alternativa, come posso intercettare la pressione del tasto f1e
lanciare il file .chm ?
Grazie !
Simone

 Mi sembra che a livello 'nativo' Delphi integri solo file .hlp... c' č



Nurbed ti ringrazio molto ma purtroppo non riesco a trovare il file
.dll... possiedo il file htmlhelp.LIB, che a detta della guida č
quello da linkare (insieme ad un .h) per vedere la funzione HtmlHelp.
Come faccio a linkare il .Lib e il .h ? (delphi permette solo i link
dei .DLL ?)
Grazie ancora, Simone.

Newsgroup: it.comp.lang.delphi
Titolo: format e...a capo!

ciao a tutti,
forse è una banalità, ma nella funzione Format come faccio a formattare 
una stringa tipo come viene fatto in ANSI C?
esempio :
   stringa = "Select \n\t campo \n\t from \n\t tabella";
------------------------
Diego Di Filippo
  R&amp;D Software Developer
 
www.ada-project.com
-----------------------
--- posted by geoForum on 
http://www.delphiedintorni.it

    stringa = "Select \n\t campo \n\t from \n\t tabella";
  stringa = 'Select'#13' campo '#13' from '#13' tabella';
-- 
Ciao, Anto', [38, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

    stringa = "Select \n\t campo \n\t from \n\t tabella";
  stringa = Format('Select %s campo %s from %s tabella', [#13,#13,#13]);


>  stringa = Format('Select %s campo %s from %s tabella', [#13,#13,#13]);
con i #13 c'ero arrivato anche io!
speravo che ci fosse un modo per specicare i caratteri speciali come il C 
anche se nell'help della funzione Format non li ho trovati.
cmq grazie


 anche se nell'help della funzione Format non li ho trovati
Speranza fu vana, se nell'help non ne trovasti...
-- 
Morde. 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 con i #13 c'ero arrivato anche io!
se specificavi "#13 a parte" mi sarei rispariamoto due risposte ;o)


> se specificavi "#13 a parte" mi sarei rispariamoto due risposte ;o)
scusa! ;p

Newsgroup: it.comp.lang.delphi
Titolo: scambio file in rete

salve gente come da oggetto devo fare un applicazione che mi consenta di 
scambiare file di grosse dimensioni tra due computer collegati in rete 
sfruttando ovviamente la massima velocità che la rete lan offre... avete 
sorgenti già pronti o qualcosa su cui mi possa appoggiare? o anche consigli 
ed indicazioni...
grazie a tutti... 

Usa i componenti TIdTCPClient, TIdTCPServer (o similari) della suit 
Indy. Personalmente mi ci sono trovato benissimo

 Personalmente mi ci sono trovato benissimo


se non ti ruba molto tempo mi potresti creare un sorgente o un esempio con
le specifiche del programma chedevo fare, xchè io sinceramente questi
componenti non li h mai usati quindi non saprei proprio da dove iniziare...
grazie mille in anticipo.

 grazie mille in anticipo.
Hai guardato i demo forniti ? Inizia con quelli, coprono praticamente 
tutte le cose piu' classiche
-- 
================================================================
Alberto Rubinelli - A2 SISTEMI 
news.aioe.org
 ThunderBird 2.0.0.4
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 640149   Fax 0321 391769   BBS 0321 392320
Mail: 
alb...@oldcomputers.de
skype: albertorubinelli  ICQ : 49872318
Visita il mio museo di computers: 
http://www.oldcomputers.it
================================================================

 tutte le cose piu' classiche
ti ringrazio mille per le informazioni che mi hai dato sono state utilissime 
infatti ho trovato proprio quello che mi serviva... grazie ancora
Newsgroup: it.comp.lang.delphi
Titolo: [ANN,FB] SQLHammer 1.0, freeware rapid database development per Firebird/Interbase

SQLHammer is high-performance tool for rapid database development and
administration (RDDA) which includes common integrated development
environment (IDE), registered custom components based on Borland Package
Library (BPL) mechanism and Open Tools API (OTA) written on Delphi language
Download:
http://metadataforge.com/download/sqlhammer_install.zip
Info:
http://metadataforge.com/
-- 
Ciao!
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"


http://metadataforge.com/
uhm! semra interessante č da provare in piů č free! io uso EMS per 
Firebird...ma non č free!!!
Merita una controllatina!
tnx!
--- posted by geoForum on 
http://www.delphiedintorni.it

 Firebird...ma non č free!!!
A proposito di strumenti free vi ricordo anche la versione
free di IBExpert, decisamente un bel prodotto, scaricabile qui:
http://www.hksoftware.net/download/ibep_2005.3.12.1_full.exe


 
http://www.hksoftware.net/download/ibep_2005.3.12.1_full.exe
In effetti sto provando entrambi e facendo alcune comparazione, anche se 
*IB Expert* rimane senz'altro, così a prima vista, il software più 
completo, sebbene sia anche quello più maturo e in circolazione da un 
tempo maggiore.
Anche quello segnalato, *SQLHammer*, non è affatto male. ;-)
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  (marco [@] abls [.] it)
  ABLS Team S.n.c. - Software & Web
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 Ciao! :-)
Ciaux.

 subito un errore run-time 217.
Non considero "Win XP Home" un sistema operativo...da sviluppatori. :-D
Scherzo, ovviamente... ;-)


Newsgroup: it.comp.lang.delphi
Titolo: Lettura errata della lunghezza di un campo testo con MySql

Ciao a tutti.
La mia applicazione (D7) utilizza ADO per collegarsi a una fonte dati ODBC 
("MySQL ODBC 3.51 Driver") relativa a un database MySql (ver. 4.1.10a).
Se provo a leggere la proprietà "Size" da un TFieldDef o da un TField relativi 
ad un campo di tipo testo (VARCHAR), invece di restituirmi la lunghezza massima 
consentita per quel campo, mi restituisce la lunghezza maggiore tra quelle dei 
valori presenti nei record della tabella per quello stesso campo.
Per maggiore chiarezza faccio un esempio. In una tabella di nome "pippo" ho un 
campo di testo di nome "pappo" di lunghezza 10; pippo ha solo 2 record; nel 
primo record pappo contiene il valore "ciao" mentre nel secondo record pappo 
contiene il valore "tavolo". In un caso come questo se provo a leggere la 
lunghezzza di pippo ottengo il valore 6 invece di quello che rappresenta la 
lunghezza reale della colonna (10).
Se invece applico lo stesso codice ad una fonte dati ODBC che punta ad un 
database Access tutto funziona come dovrebbe.
Qualcuno di voi ha riscontrato lo stesso problema? Esiste una soluzione?
Grazie per l'attenzione.
Andrea Barbagallo

Hai provato a non  usare ado ma un altra tecnologia di accesso ai dati?
Giusto un test rapido con un altro sistema.
Imho, neanche MySql merita di essere messo a paragone con quella
schifezza di acces...
 
AS

 quello stesso campo.
 > [...]
Newsgroup: it.comp.lang.delphi
Titolo: interfaccia utente

ciao a tutti, è possibile creare un eseguibile che, a secondo un parametro
da passare, si attivi in modalità test/DOS tipo console o visuale/windows
tipo frame?
grazie
Giuseppe
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Giuseppe
Prego
Andrea
P.S. Ovviamente devi avere un ambiente di partenza di default, e ti
consiglio Win :)

Newsgroup: it.comp.lang.delphi
Titolo: Cambio risoluzione nel form.

Salve a tutti!!!
Ho un problema! (Ma dai!!!)
Ho realizzato un programma che devo usare con un mio amico.
Io ho la risoluzione di 1024x768 mentre lui arriva solo a 800x600.
Ovviamente ho realizzato le form a 1024x768.
        "Esiste un modo per ridimenzionare gli oggetti nel form in maniera
automatica?"
Grazie a tutti per l'interessamento.
Auguri,
Paolo

BerserKer ha scritto nel messaggio ...

Prova con ScaleBy(numeratore,denominatore) ad esempio per rendere la form la
metà grande devi scrivere
ScaleBy (1,2)     quindi  la dimensione della finestra e tutti i suoi
componenti verranno moltiplicati per 1/2 cioè 0.5 cioè la finestra ottenuta
sarà il 50% dell'originale.
Ovviamente puoi anche ingrandire la finestra, per farlo il numeratore deve
essere maggiore del denominatore.
Per far si che tutto funzioni devi impostare la proprietà AutoScroll della
finestra da ridurre/ingrandire a False altrimenti la finestra sarà più
piccola(o più grande) ma i componenti rimarranno tali e quali ed accessibili
tramite ScrollBar (cosa che scoccia alquanto).
Esempio :
Var
    small:Boolean;   // Globale
Procedure TForm1.FormCreate(Sender:  TObject);  // Se non sbaglio
    Begin
        small:=True;    // Così almeno sei sicuro che all'inizio la form
sarà visualizzabile correttamente
    End;
Procedure TForm1.BtnResizeClick(Sender: TObject);
    Begin
        If   small Then
            TForm1.ScaleBy (4,3)      // Numeri sparati a caso alle 5 di
mattina
        Else
             TForm.ScaleBy (3,4);
       small:=Not(Small);
    End
Dovrebbe funzionare,mi scuso anticipatamente x gli errori ma l'ho scritto
alle 5 di mattina e dopo un lungo periodo di letargo da programmazione.
Neo

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

Come si fa a sapere qualce MDI è attiva in un certo momento?

 Come si fa a sapere qualce MDI č attiva in un certo momento?
ActiveMDIChild
Ciao, Antň.


per accede ad un memo di una finestra figlia, come si fa?


(ActiveMDIChild as TChildForm).Memo
Ovviamente al posto di TChildForm devi mettere il nome della classe della
tua finestra Child.
Ciao, Marco

 ha scritto nel messaggio
news:PqT98.951$Jo.1...@twister2.libero.it...

mille grazie

Newsgroup: it.comp.lang.delphi
Titolo: Espulsione del Cd-Rom

Salve a tutto il Ng!
Domandina facile facile (Ma non per me!)
Come faccio a espellere il Cd-rom? (Non mi dite col bottone eh! ;-)  )
Grazie di tutto l'aiuto che mi avete dato, e che spero mi darete.
Ciao,
Paolo!

vedi sulle faq.
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:589927c3ce39facc6d...@mygate.mailgate.org...

Newsgroup: it.comp.lang.delphi
Titolo: Input esterni

Ciao a tutti.
Inserendo un dispositivo esterno , con tipo 3 tasti e collegandolo ad una
porta tipo parallela
sarebbe realistico pensare di attivare con i pulsanti un evento definito in
delphi????
se si come dovrei costruire questo dispositivo e come inserirlo in un app
delphi???
grazie

delphi???
Una comunicazione via seriale non è da scartare, anche perché da
Delphi puoi usare il componente TComPort per comunicare con esso.
-- 
Andrea Laforgia
"God is dead." -- Nietzsche
"Nietzsche is dead." -- God

 delphi???
Delphi non è di certo il miglior ambiente per interfacciarsi con componenti
esterni, ma vista la banalità dell' applicazione in questione va più che
bene.
Sui vari siti (vedi le faq per sapere quali) trovi diecine di componenti che
permettono di inviare/ricevere dati sulla seriale e non solo.
Tempo fa lavorai con TComPort e devo dire che mi ci trovai benone, ma forse
col tempo ne sono usciti di migliori ...
Bye
--
- Carlo -
Newsgroup: it.comp.lang.delphi
Titolo: Applet java

Salve ragazzi sapete consigliarmi qualche link ben fatto che spiega
come realizzare degli applet?
Grazie

mi spieghi che legame c'e' tra la tua domanda e delphi?
A.

 A.
ho sbagliato scusa :)
che scemo!

Newsgroup: it.comp.lang.delphi
Titolo: per Quick Report o Fuzzy

Ho una richiesta anomala:
1) dovrei far comparire un sommario + note aggiuntive che di solito sono a
pie' pagina,
subito dopo l'ultima riga di dettaglio (quindi puo' anche trovarsi a meta'
pagina.
Sto pensando ad una Banda Sub-Detail (da tenere nascosta e controllare con
l'evento
Befor Print , ma non sono molto sicuro di poterlo fare con Quick Report
3.0.5 , anche
perche' non si riesce a sapere se ci sono altri record)
Fuzzy Report (che non conosco) puo' fare dei simili controlli ?
2) Dovrei trasferire a Word il contenuto della Stampa di Quick Report ,
questo ha la
funzione per esportare in testo , riesco a salvarlo su un PDF perche' e'
come una stampante,
ma per Word ? forse un OLE ? ... ma la funzione FileSaveAs(nomefile) o
Save(nomeFile)
mi da errore (non supportata dall'automazione OLE) , mentre questa per
aprire un file DBF
e importare in Excel funziona (XlsApp.Books.Open(FileN) mi apre un file).
grazie a chi mi dara' qualche spunto.  (uso Delphi 4)

2) Dovrei trasferire a Word il contenuto della Stampa di Quick Report ,
non saprei dirti ... come detto non lo uso ...
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

Considerazione:
Fuzzy Report, purtroppo, non è più supportato da non so quanto tempo e
l'ultima release chissà a quando risale.
Fabio Dell'aria, Project Leader di FR, nonchè mio carissimo collega, ha
deciso interrompere il tutto.
Tra l'altro credo che stia cercando qualcuno che sia disposto a prenderne le
redini...
Acqua

Acqua

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Ricerca di FORME di vita intelligenti

 Volevo sapere se dall'altra parte ci sono delle forme di vita 
intelligenti oppure solo stipendiati.... ???
Chi viene pagato per fornire risposte su questo NG ? E quali sono le 
finalità ? Il marketing di un prodotto costa sempre ?
Ciao
--- posted by geoForum on 
http://www.delphiedintorni.it


Sarebbe gradito, quanto meno "in coda" alla domanda, chiarire il perché 
della domanda stessa ed a quali fini viene posta, visto che qui si 
chiede "aiuto" e qualcuno, se gli gira dritta, ti risponde e, 
addirittura, qualcun altro che legge impara!!!
NioBi


Molte multinazionali che offrono un prodotto aprono più o meno 
ufficialmente un NG dove supportare il prodotto, quindi hanno bisogno di 
qualche tecnico di supporto.
Però per equità verso i partecipanti la cosa non viene resa pubblica.
Vi chiedo se It.comp.lang potrebbe essere un NG sponsorizzato da google 
a pagamento per queste multinazionali ?
E' chiaro che i tecnici non diranno mai di essere stipendiati. Mi hanno 
detto che in America spesso c'è un Nic Name che equivale a un nome e 
cognome ma che viene utilizzato da due o tre tecnici che si collegano in 
telelavoro, in quel caso vedrete lo stesso nome ma da punti di accesso 
diversi per distinguere gli interventi.
Però non so se questo vale anche per it.comp.lang. A me non sembra !
Ciao
Luigi

Newsgroup: it.comp.lang.delphi
Titolo: ComboBox...

Salve a tutti
starei cercando una combobox che mi permette di attribuire ad ogni Item un
colore di testo differente. Sapete se esiste in circolazione(gratis)? ho
provato a cercare su 
http://www.torry.net
 ma senza trovare quello che
cercavo(forse ho cercato male)!
preciso che uso Delphi6
spero di essere stato chiaro.
grazie,
Salvatore

Salvatore Gigliuto wrote:

In realta' puoi fare da solo componente che ti serve utilizzando gli 
eventi che derivano da TCustomComboBox e che sono:
OnDrawItem e OnMeasureItem che ti permettono di sostituire il metodo 
standard di disegnare il Canvas sul pannello.
OnDrawItem:
type TDrawItemEvent = procedure(Control: TWinControl; Index: Integer 
Rect: TRect; State: TOwnerDrawState) of object;
Description
TDrawItemEvent includes the following parameters:
Control 
A reference to the control containing the item.
Index 
The index of the item in the Items property.
Rect 
The coordinates of the item on the control's canvas.
State 
The state of the item, which indicates whether the item is selected, 
checked, focused, and so on.
OnMeasureItemEvent:
Occurs when an item in a csOwnerDrawVariable combo box needs to be 
redisplayed.
type TMeasureItemEvent = procedure(Control: TWinControl; Index: Integer; 
var Height: Integer) of object;
property OnMeasureItem: TMeasureItemEvent;
Description
When Style is set to csOwnerDrawVariable, the OnMeasureItem event 
precedes OnDrawItem. Write an OnMeasureItem event handler to specify the 
height, in pixels, needed to draw an item in the drop-down list.
Questo evento serve quando il ComboBox č di tipo csOwnerDrawVariable.
OnMeasureItem passes three parameters to its event handler:
Control 
A reference to the combo box containing the item.
Index 
The index of the item in the Items property.
Height 
The default height of the item, in pixels.
The event handler can reset the final parameter, Height, to the 
appropriate value.
A te dovrebbe essere sufficiente il primo dei due.
Es.
   with Control.Canvas do begin
     Font.Color := clRed;
     // poi devi usare una funzione che scrive il testo nel rettangolo
     // Rect col testo Items[Index], esempio TextOut o TextRect
   end;
Leggi comunque sull'help cosa dice riguardo a ItemHeight e cerca il 
capitolo relativo a "Adding graphics to controls"
Ciao.
Mimmo.

Grazie Mille!!! provo subito...in effetti sapevo che era possibile ma non
conoscevo ciň che dovevo usare...
Ciao
Salvatore

Newsgroup: it.comp.lang.delphi
Titolo: limitare il numero di record

ciao a tutti,
sapete per caso come fare per limitare l'inserimento di nuovi record a 10
???? All'undicesimo record deve in pratica comparire un messaggio
d'avviso...
Utilizzo tabelle ADO e Db access 2000
ciao!


Credo possa valere per tutti i db
if ADOQuery.Reccount>10 then begin
     <<Messaggio>>
end;
--
Gianluigi Genasi
--------------------------
Minisystem Srl
Server di posta Kpnqwest - 
www.kpnqwest.it


quindi devo inserire un componente Tquery??? Al momento uso solo dei
filtri...
ciao


Scusa la proprietą corretta č RecordCount
RecordCount  ti da il numero dei record nel DataSet.
Ciao