mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Uso del TouchScreen

Cari amici
chi mi può dire qualcosa in merito.
Io sapevo che bisognava avere dei monitor appositi che prendevano l'uso del
mouse; quindi non bisognava fare altro che programmare i click del mouse.
Mi hanno detto che invece è necessario un apposito programma e che il tutto si
adatta a qualsiasi monitor...
Ne sapete qualcosa?
Se sì dove posso reperire il programma o il monitor specifico?
Grazie
Renzo Ruggieri
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Cioe' che qualunque monitor con un certo programma puo' diventare un touch
screen?
Fatti dare il numero dello spacciatore, e' roba buona :P
I touch screen dovrebbero (condizionale d'obbligo) comportarsi come dei
mouse, anche se ovviamente servono i driver.
Ciaotutti,
*

 Renzo Ruggieri
Ciao, Antň,

 mouse, anche se ovviamente servono i driver.
Resta il fatto che una superficie piatta e trasparente 
da sovrapporre al monitor (magari collegata via USB) e 
che traduce i "touch" in coordinate mouse non e' 
impensabile.


 impensabile.
No, certo, ma parliamo comunque di hardware :)
Un SOFTWARE che renda qualunque schermo un touch screen e' un mattone (nel
senso che dopo aver comprato il pacco dentro ci trovi un mattone :P)
Ciaotutti,
*

 senso che dopo aver comprato il pacco dentro ci trovi un mattone :P)
ROTFL... si', e' vero.
Non avevo letto bene la frase del nostro amico:
"Mi hanno detto che invece è necessario un apposito programma 
 e che il tutto si adatta a qualsiasi monitor..."
Volevo dire a Renzo che forse ha capito male.
Un monitor generico non e' predisposto per ricevere input.
O si acquista un monitor speciale, o una piattaforma (spero
che ne esistano) da applicare ad un normale monitor.
Se i driver traducono gli input ricevuti dal monitor come
click del mouse, allora non c'e' bisogno di alcun programma
particolare, basta scrivere la propria applicazione perche'
sia compatibile con le dimensioni delle dita (leggi bottoni
possibilmente quadrati e + larghi del normale).
Questo, comunque, ha molto poco a che vedere con Delphi ;)


Grazie a tutti.
In effetti è sembrata anche a me una bufala, quella del programma che attiva
tutti i monitor.
Il venditore che me l'ha detto mi ha insistito ed io anche...
vi farò sapere novità.
A presto.
Renzo Ruggieri
NB: 
1) ho fatto un giro in rete per cercare questi pannelli touch screen e se ne
trovano ma siamo ancora a prezzi altini.
2) A proposito DELPHI è fantastico nessun problema in win95, in win98, in winXP
e nessuna incompatibilità
... programmi, testi e sei sicuro che andrà nel PC dei tuoi amici.

Newsgroup: it.comp.lang.delphi
Titolo: Widechar e caratteri non definiti

Salve a tutti!
Ho bisogno di passare da un codice unicode in widechar. Non so se sto
sbagliano ma lo sto facendo con un istruzione del tipo :
var
   s : widestring;
   c : integer;
begin
   c:=....;
   s:=widechar(c);
  ...
end;
Il mio problema è che a seconda del font o del charset utilizzato
determinati codici non hanno una corrispondenza o non sono definiti e
siccome mi ritornano un anonimo '?' io vorrei isolarli. Qualcuno di voi sa
come individuare questi codici?
Grazie

ho risolto

ho risolto
Come ?
-- 
Morde. 
(
mo...@despammed.com
)

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

Newsgroup: it.comp.lang.delphi
Titolo: Sostituzione caratteri in un array

Salve
ho un array cosě definito:
Buffer: Array[1..65536] of Char;
dovrei cercare una stringa predefinita e sostituirla con un altra 
predefinita
Ovviamente ho provato con
Buffer:=StringReplace(Buffer, 'xxxxx', 'yyyyy', []);
e altrattanto ovviamente in compilazione  mi "becco" un Incompatible types: 
"Array" and "String"
Qualcuno ha in idea ?
Grazie
C. 

 Qualcuno ha in idea ?
Non l'ho testata ma dovrebbe andare ...
    procedure prova;
    Const cstCerc='xxxxx';
          cstSost='yyyyy';
    var Buffer: Array[1..65535] of Char;
        St:String;
        Posx, Idx:Integer;
    begin
      //
      // Qui devi valorizzare Buffer
      //
 
 
      St:=Buffer;
      Posx:=Pos(CstCerc, St);
 
      if (Posx > 0) then begin
        St:=StringReplace(St, cstCerc, cstSost, []);
        Buffer:=St;
      end;
    end;
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

>
GRAZIE
C.

Newsgroup: it.comp.lang.delphi
Titolo: TTreeList e font -> AIUTO!!!





Devo creare una struttura come quella dell'Outlook 
Express, con una struttura ad albero e


tra 
parentesi dei 
numeri con colori differenti (nell' O.E. c'è il font in grassetto per i 

messaggi 


non ancora letti... a me andrebbe bene anche così!) 



Qualcuno si è già imbattuto in questo tipo di 
problematica? Oppure esiste un componente


che mi può aiutare in questo compito? 


Grazie a tutti già da adesso!


Dario





Devi gestire l'evento OnCustomDrawItem del TTreeView.
Giusto per fare un esempio veloce(e impreciso):
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.Text = 'Pippo' then
    Sender.Canvas.Font.Color := clRed;
end;
Ciao,
Massimo.
P.S.
Per favore, non postare HTML.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"
Newsgroup: it.comp.lang.delphi
Titolo: Debug

Perdonate l'insistenza da parte di chi proviene da Visual Basic (forse
qualcuno ne avrà pure disgusto e nemmeno mi darà retta). Il debug in VB mi
permetteva di eseguire passo passo un programma in tutte le sue parti che mi
interessava controllare. Se la cosa non andava come volevo potevo (salvo
errore grave) tornare alla riga precedente, correggere quanto dovevo e
tornare a rieseguirla passo-passo come prima. Qui la cosa è diversa se
cambio qualcosa per vederne i risultati devo ricompilare tutto nuovamente.
Purtroppo questa operazione su una macchina sottodimensionata come quello a
in cui sono costretto a lavorare, pesa molto sui tempi di sviluppo. In
attesa dell'upgrade hardware, è possibile avere il debug runtime senza per
forza compilare per ottenere un qualcosa che non è più completamente interno
a Delphi?
Vaneggio, chiedo troppo o è meglio che vada in ferie per liberare la mente?
Grazie
Umberto

 ha scritto nel messaggio
news:8nditg$9b$1...@serv1.iunet.it...


Rimpiango VB!!
in un momento di sconforto ....
Newsgroup: it.comp.lang.delphi
Titolo: RichEdit

Ciao a tutti,
ho un problema penso banale ma che non riesco a risolvere...
ho un RichEdit in cui scrivo del testo liberamente in cui ho impostato
la property Wrap = True in modo da vedere tutto il testo scritto senza
l'uso della scrollbar orizzontale.
Quando vado a recuperare le righe scritte quelle che sono andate a capo
a causa del Wrap le vede come righe separate, invece a me servirebbe
leggerle per intero...
Si può risolvere in qualche modo?
Grazie in anticipo,
DR

 ha scritto nel messaggio 
news:1131970438....@z14g2000cwz.googlegroups.com...


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

Ciao
scusate ma avevo incaricato il mio amicone Bleed di farvi questa domanda al
posto mio ma non deve aver
capito molto bene :-)
Ho comprato il manuale di Kent Reidorph (Sams) (Delphi 4 C/s) e volevo
sapere se č conveniente che io compri
anke "programmare in delphi 5" di Cantů
ve lo chiedo perchč sono + di 80 carte...
cosa mi consigliate di fare?

 anke "programmare in delphi 5" di Cantů
Se te la cavi con l'inglese ti conviene comporare Mastering Delphi5, che mi
dicono essere meglio (anche se la traduzione di Nando Dessena mi sembra
buona; spero l'abbia fatta lui altrimenti ho detto una gran caz**ta) anche
perchč contiene dei capitoli in piů rispetto alla versione italiana

 wrote in message 8jb869$p0$5...@nslave1.tin.it...


 ha scritto nel messaggio
news:43575.1335$2s6....@news.infostrada.it...


Newsgroup: it.comp.lang.delphi
Titolo: URL esistente?

Come faccio a controllare se l'indirizzo di un sito esiste?
Qualcuno puň darmi una mano? 
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Come faccio a controllare se l'indirizzo di un sito esiste?
Componenty Indy -> TIdHTTP -> Methodo Head -> try ... except ... end
-- 
I'am what I'am, I do what I can

Newsgroup: it.comp.lang.delphi
Titolo: Trovare i DNS server di una connessione

Salve,
volevo interrogare i server DNS direttamente
(sto scrivendo un programmino SMTP server, mi
sono rotto di non poter mandare la posta di Galactica
quando sto con Libero e viceversa)
ma ho il problema di sapere quali sono in un certo
momento, visto che non sto sempre con la stessa
connessione: è possibile ottenerli direttamente dal
sistema, in modo da non dipendere dalla connessione?
Grazie...

 quando sto con Libero e viceversa)
[...]
Su 
www.dedonline.com
 trovi un Tip a riguardo (l'autore è Paolo Rossi)
Saluti
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu
Newsgroup: it.comp.lang.delphi
Titolo: ForceDirectories, non funzia più!!!

[Win98SE - Delphi6]
Da qualche tempo la funzione ForceDirectories non sembra più...funzionare.
Anche la sola semplice scrittura della riga
 ForceDirectories('c:\qualcosa');
in qualunque punto del codice provoca l'errore di run-time '...ERangeError
with message Range Check Error'.
Il programma si blocca su questa riga di DirectoryExists (in SysUtils):
  Code := GetFileAttributes(PChar(Directory));
Ricompilando in Delphi5 non avviene alcun errore quindi dev'essere successo
qualcosa in Delphi6...ma cosa? Ho provato a togliere/mettere tutte le
opzioni di Project > Options > Compiler (compresa Range checking) senza
alcun risultato..cosa potrei fare ancora prima di reinstallare Delphi (e non
è detto che ciò risolva il problema)??
--
Mauro Falzari.
"Se guardi nell'abisso, anche l'abisso guarda in te."
(Friedrich Nietzsche)

 Da qualche tempo la funzione ForceDirectories non sembra piů...funzionare.
volevo comunicarvi che dopo ore di vani tentativi, sono giunto con mia somma
gioia alla soluzione del problema: il motivo del malfunzionamento resta
sempre un mistero, ma č bastato apportare delle modifiche alla unit SysUtils
(modifiche temporanee ed errate e poi cancellate) per provocare
evidentemente la ricompilazione della stessa e far funzionare di nuovo la
funzione ForceDirectories.
Forse che il file SYSUTILS.DCU č rimasto danneggiato in qualche crash
dell'hard disk e le utility di correzione degli errori tipo scandisk/norton
disk doctor lo hanno modificato arbitrariamente?
O piů probabilmente, dopo che apportavo le varie modifiche alla palette
Compiler di Project > Options, avrei dovuto ricompilare tutto??
Sta di fatto che ho trovato sul disco 3 diversi SYSUTILS.DCU di Delphi6:
uno in $(DELPHI)\Lib,
uno in $(DELPHI)\Lib\Debug
e uno in $(DELPHI)\Source\Rtl\Sys
...tutti e tre di dimensioni diverse!
Cmq mi sono andato a leggere bene sull'help tutte le direttive {$qualcosa+}
e sto usando di default le seguenti caselle checked in Project > Options >
Compiler (tutte le altre unchecked):
.optimization
(record field alignment: 8)
.strict-var strings
.extended syntax
.open parameters
.huge strings
.I/O checking
.debug information
.local symbols
.reference info
.definitions only
.assertions
.show hints
.show warnings
Non ho ancora capito cosa sia successo di preciso, ma spero che la mia
esperienza possa essere utile a qualcuno per casi simili.
'Notte.
Newsgroup: it.comp.lang.delphi
Titolo: Compra Delphi XE e ti prendi tutta la suite dei prodotti Studio

http://www.embarcadero.com/radoffer
le condizioni:
Special offer available April 11, 2011 through June 30, 2011
(upgrade pricing ends May 31, 2011 for v2006 and earlier users)
Cosa aspettate a mettere mano al portafoglio? :-p
-- 
morde
D5,D6,D7
Firebird 2.1
QT 4.7.0 (MingW) QT Creator 2.1

 Cosa aspettate a mettere mano al portafoglio? :-p
furbacchioni. Se hai Delphi "lischio", ti "regalano" la versione
Studio, salvo poi, tra pochi mesi, quando uscirà Delphi XE2 (o come si
chiamerà) venderti l'upgrade della Studio (a quel punto potrai comprare
solo quello, non più l'upgrade di Delphi "liscio") al prezzo di upgrade
della versione Studio. A quel punto, mica vorrai restare col rottame di
vecchia versione in casa, no? E metti mano di nuovo al portafoglio :DDD
Ale

 della versione Studio.
Appunto.
Poi c'è anche la solita presa per i fondelli del cambio $/Euro 1:1, 
499.00 USD = 343.026 EUR la differenza è sostanziosa!
Con cosa si giustifica visto che non c'è in nessun dove una sola riga di 
testo diversa dall'inglese?
-- 
Design for the future, because it will be here sooner than you think.
(C) Eric S. Raymond, from "The Art of Unix Programming"

Newsgroup: it.comp.lang.delphi
Titolo: Array dinamici o....

Ho un algoritmo che fa un uso pesante di array dinamici con tanto di
setlength per aggiungere nuovi elementi,
mi chiedevo se da un punto di vista di tempo computazionale non fosse
meglio utilizzare una lista con tanto di puntatori....
Voi che dite?
Ciao

che tipo di elementi?
Bye
A.

 
Io chiederei che tipo di accesso fai agli elementi 
(se sono puntatori che ti cambia?)

Newsgroup: it.comp.lang.delphi
Titolo: DBExpress & Drivers

Ciao,
utilizzo DephiXE e da diverso tempo non avevo più a che fare con i
DataBase.
Devo collegarmi a MySQL tramite le componenti DBExpress.
Volevo chiedervi se per poterlo fare è necessario, scaricare ( ed
eventualmente acquistare in seguito ) i drivers per MySQL ( ho
scaricato MySQL 5.5 ).
 
Grazie
 
Davide

 scaricato MySQL 5.5 ).
 
Hai fatto una prova? Nei driver /dbExpress/ hai controllato se ti appare MYSQL nell'elenco dei driver disponibili?
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
 

Ciao Marco,
aggiungo che ho un Delphi XE Professional.
Provando ad aggiungere un TSQLConnection su una form i vari campi
ConnectionName,DriverName che normalmente sono prefillati sono
totalmente vuoti..
 
Davide

 aggiungo che ho un Delphi XE Professional.
 
Con l'edizione "Professional" non sono compresi la maggior parte dei driver client/server dbExpress, e teoricamente non saresti licenziato a utilizzarli. :|

Newsgroup: it.comp.lang.delphi
Titolo: interbase corrupt e gfix

salve cosa posso fare per risolvere questo problema???
gfix miodb -mend -password masterkey -user SYSDBA
database file appears corrupt ()
-bad checksum
-checksum error on database page 8031

invece di mend, hai provato l'opzione validate?
Ovviamente prima di fare cio provvedi a fare un backup.
Bye
A.

 ha scritto nel messaggio
news:b41p70$2504$1...@newsreader1.mclink.it...


"Simone P"

Forse puo' interessare un articolo di ieri su community di Borland
http://community.borland.com/article/0,1410,29515,00.html
Saluti
Paolo Arosio

Newsgroup: it.comp.lang.delphi
Titolo: Direi OT

So che è OT, ma a qualcuno che chiede cosa si possa fare con Delpi forse
interesserà.
Un tempo, quando ero giovine, mi sono interessato di aereomodellismo, adesso
ricercando un simulatore di volo per aereomodelli sono incappato in questo
http://n.ethz.ch/student/mmoeller/fms/index_e.html
Credo sia fatto in Delphi o con il fratello CB, considerate che è free !! e
provate la qualità della simulazione, la possibilità di collegarsi in
seriale ed in parallelo e quant'altro.
Dimenticavo !! Se si va sui Credits si trova un riferimento a DelphiX,
TComPort ed Altro
--
Gianluigi Genasi
--------------------------
Minisystem Srl
Server di posta Kpnqwest - 
www.kpnqwest.it

 ha scritto nel messaggio
news:amch4j$4lru7$1...@ID-114068.news.dfncis.de...


No, ora quella pagina straniera è offline, prima funzionava. Cmq io ho già
scaricato il programma ed è semplicemente spettacolare, anche perchè è fatto
in Delphi!!!
Il sito italiano funzionante è questo:
http://space.tin.it/computer/alpranto/
Ciao,
  Fabio

Newsgroup: it.comp.lang.delphi
Titolo: Integrazione C# e Delphi

Salve a tutti.
Vorrei sapere se esiste la possibilità di integrare nuove form scritte
in C# in un preesistente applicativo scritto in Delphi x .net.
In particolare in azienda abbiamo il sistema informativo scritto in
Delphi win32. Adesso per poter dare lavori in outsourcing abbiamo la
necessità di poter ospitare all'interno dell'applicativo stesso anche
codice C#.
Per prima cosa penso di migrare a Delphi .net, ma dopo esistono delle
tecniche per fare importare nuovo codice come dicevo prima?
Grazie in anticipo.

GiacomoBe ha scritto:

In questo post trovi i riferimenti per articoli molto utili (in parte su 
"feature" esclusive di Delphi) che riguardano il tema della 
*interoperabilità*, con l'uso diretto di P/Invoke e non:
http://blogs.slcdug.org/jjacobson/archive/2006/04/06/3911.aspx
In particolare, scarica questo progetto di esempio:
http://cc.borland.com/Item.aspx?id=22688
Altre risorse si possono trovare con semplici ricerche sull'argomento.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 Grazie in anticipo.
Prego,
Andrea
Newsgroup: it.comp.lang.delphi
Titolo: T.Delphi express e colori

Alcuni oggetti (TPanel, TCheckBox) ai quali setto un colore diverso da 
quello della form o del groupbox che li contiene risultano poi uguali al 
parent a run-time.
Eppure la proprieta' parent color = false.
Giorgio 

Giorgio Padoan ha scritto:

Verifica che la proprietà /ParentBackground/ sia impostata a False, dove 
applicabile.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://www.marco.breveglieri.name/?p=48
]
Newsgroup: it.comp.lang.delphi
Titolo: SHFileOperation funziona con Win2000/Xp ??

Uso D6 su Win2000
Ho un problema con SHFileOperation sotto Win2000 mi ritorna un errore
"Access violation at address 77E88A18 in module 'kernel32.dll'. Read of
address 5CEC0012"
Cercando ho trovato che dovrebbe funzionare anche su win2000, ho provato
anche su altre macchine
che ho in ufficio e sotto win98 funziona, sotto 2000 no !!8o(((
Sono dentro con un utente che ha i diritti di amministratore quindi non
dovrei avere problemi
di lettura/scrittura, poi al limite me li aspetterei una volta lanciata la
funzione.
Se qualcuno ha la soluzione o ha due minuti per fare una prova, lo ringrazio
in anticipo.
Gianluigi Genasi

Ciao,
non capisco che problema hai a me funziona correttamente sorro win2k
professional (ovviamente con diritti di amministratore).
Ti posto la funzione generica che uso specialmente per le copie dei file
vedi se riesci a cavarne qualcosa.
Ciao,
David
// ----------------------------------------------------------------------
// Modalita
//         .FO_COPY
//         .FO_MOVE,
//         .FO_DELETE
//         .FO_RENAME
//
// Flags :
//         .FOF_MULTIDESTFILES
//          Destinazione multipla
//
//         .FOF_CONFIRMMOUSE
//          Conferma
//
//         .FOF_SILENT
//          Non visualizza nulla
//
//         .FOF_RENAMEONCOLLISION
//          Rinomina automaticamente in caso di file gia' presente
//
//         .FOF_NOCONFIRMATION
//          Nessuna conferma
//
//         .FOF_ALLOWUNDO
//          Si puo' abortire l'operazione
//
//         .FOF_FILESONLY
//          Soltanto file
//
//         .FOF_SIMPLEPROGRESS
//          Non mostra i nomi dei file
//
//         .FOF_NOCONFIRMMKDIR
//          Nessuna conferma della creazione di directory
// ----------------------------------------------------------------------
Function  APIFiles(      Handle       : HWND;
                         Modalita     : Integer;
                   Const Partenza     : String;
                   Const Destinazione : String;
                         Flags        : Integer) : Boolean;
Var
  F      : TSHFileOpStruct;
  S1, S2 : Array[0..500] Of Char;
Begin
  FillChar(S1, SizeOf(S1), #0);
  FillChar(S2, SizeOf(S2), #0);
  StrPCopy(S1, Partenza);
  StrPCopy(S2, Destinazione);
  F.Wnd    := Handle;
  F.wFunc  := Modalita;
  F.pFrom  := S1;
  F.pTo    := S2;
  F.fFlags := Flags;
  Result := (ShFileOperation(F) = 0);
End;
Risorse per Webmaster:       
www.utilityweb.net
Gruppo di ricerca ufologico:  
www.findout.it
Guadagnare con email:        
www.intelliad.com/?20313316

 David
Ti ringrazio per la risposta, ma avevo già trovato la soluzione nelle
risposte datemi su libero.delphi.winapi di 
news.marcocantu.it
Il problema era nei parametri che io passavo senza teminare con #0#0.
Quel bas%&$£o di win98 andava ugualmente, win2000 segnalava, giustamente,
l'errore.
Ciao Gianluigi
Newsgroup: it.comp.lang.delphi
Titolo: Una TEdit con proprieta' "layout"?

Ciao a tutti
qualcuno di voi ha avuto  la genialita' di creare un componente TEdit con
l'allineamento verticale, (a me servirebbe centrato!) tipo il "layout" delle
label?
Se si, e' possibile averlo?
Su torry non ho trovato niente e non so dove iniziare per crearlo da solo.
grazie e buon lavoro
  Fodox

unit AncoEdit;
interface
uses
  windows, controls, stdctrls, classes;
type
  TAncoEdit = class(TEdit)
  private
    FAlignment: TAlignment;
    procedure SetAlignment(Value: TAlignment);
  public
    function UseRightToLeftAlignment: Boolean; override;
    procedure CreateParams(var Params: TCreateParams); Override;
  published
    property Alignment: TAlignment read FAlignment write SetAlignment;
  end;
procedure Register;
implementation
function TAncoEdit.UseRightToLeftAlignment: Boolean;
begin
  Result := False;
end;
procedure TAncoEdit.SetAlignment(Value: TAlignment);
begin
  if FAlignment <> Value then begin
    FAlignment := Value;
    Invalidate;
    RecreateWnd;
  end;
end;
procedure TAncoEdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[Boolean, TAlignment] of DWORD =
    ((ES_LEFT, ES_RIGHT, ES_CENTER),(ES_RIGHT, ES_LEFT, ES_CENTER));
begin
  inherited CreateParams(Params);
  params.Style := params.style or Alignments[UseRightToLeftAlignment,
FAlignment];
end;
procedure Register;
begin
  RegisterComponents ('Anco Soft', [TAncoEdit]);
end;
end.

[cut]
il tuo codice funziona alla grande, ma purtroppo non era quello che avevo
chiesto: viene creata una edit con normale allineamento in "orizzontale", io
chiedevo invece l'allineamento in "verticale", in modo che se allungo il
componente la scritta non rimane incollata alla parte superiore.
grazie ugualmente ciao ciao
  Fodox

Newsgroup: it.comp.lang.delphi
Titolo: Master/Detail con MySQL

In un programma che sto facendo utilizzo le connessioni degli oggetti
Zeos a un database MySQL con una DBGrid come detail.
Con questa configurazione Master/Detail inserisco un nuovo record master e
nella DBGrid del detail inserisco i record corrispondenti.
Dopo aver cambiato record ed essere ritornato sullo stesso non trovo
più i valori inseriti nel DBGrid detail.
Ho verificato nel DB e ho notato che sono stati inseriti ma non sono stati
legati
al record master.
Come mai ?
Come posso risolvere ?
Ciao e grazie.
Enrico

A me funziona il Master/Detail. Che versione di  zeos usi???

Newsgroup: it.comp.lang.delphi
Titolo: Cache di tabelle in RAM

Salve a tutti,
vorrei sapere se qualcuno di voi è a conoscenza di componenti / librerie
/ tool / programmi standalione ecc... capaci di fare un caching di
alcune tabelle prese da RDBMS, sostituirsi in tutto e per tutto alle
istruzioni SQL verso quelle tabelle e al termine copiare il contenuto
nel database fisico.
Non so se ho espresso bene il concetto, ma la sostanza è quella! :-)
ciao e grazie
l.
-- 
* Chi non ha testa abbia gambe *

 caching di alcune tabelle prese da RDBMS, 
TClientDataSet.
-- 
I am what I am, I do what I can
Cerchi un programmatore PHP/MySQL? 
http://url.repository.biz/go/1Y
L'uomo, conscio di sbagliare, persevera.

ciao e grazie
	Ciao
	MassimoB
Newsgroup: it.comp.lang.delphi
Titolo: Chiudere tutte le finestre.

Salve, 
per una serie di esigenze sto costruendo un'applicazione che ha una
classe chiamata Tfrmdatimaster che deriva dalla classe Tform. Un'altra
classe chiamata TfrmTabelle deriva da Tfrmdatimaster e, infine, altre
classi (TfrmPaesi, TfrmRegioni...) derivano da TfrmTabelle.
Ora ho necessità di implementare una funzione che cicli tra tutti i
componenti dell'applicazione alla ricerca di Forms instanziati da
tutte queste classi. Ho provato a impostare 
	if Application.Components[loop] is Tform then begin...
ma in realtà non mi intercetta l'antenato Tform.
Come posso fare? Ho provato anche con il metodo Inheritsfrom ma
niente.
Grazie

 tutte queste classi. [...]
L'oggetto *Screen* (di tipo *TScreen*) mette a tua disposizione due 
proprietà, /FormCount/ e /Forms/, con cui puoi enumerare e utilizzare i 
form attualmente aperti.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Ti ringrazio tantissimo perché mi risolvi un grande problema.
Avevo parzialmente trovato un escamotage ciclando tra i vari
sottocomponenti (il problema infatti è che alcuni form istanziati a
run-time non venvano intercettati) ma così è tutt'altra cosa. Lo provo
subito. 
Alfio
On 29 Oct 2006 13:15:48 +0200, Marco Breveglieri


Newsgroup: it.comp.lang.delphi
Titolo: [?] Errore nella creazione di form in D4

Ciao a tutti,
    ho un bel problema con Delphi 4.
Da qualche tempo, quando apro un nuovo form mi appare un'eccezione:
Access violation at address 40053F57 in module 'Vcl40.bpl'. Read of address
00000004
Il form non mi viene creato e mi si apre solo la relativa Unit1.
Inoltre se faccio un nuovo progetto, alla creazione del form mi dice anche:
Error creating form. Access violation at address XYZ Read of address XYZ.
E non riesco a vedere il form!
Quali possibilità ho di rimettere le cose a posto?
Grazie a tutti

 Quali possibilità ho di rimettere le cose a posto?
 
prova a cercare la .bpl sul cd e ricopiala nella \bin.

> prova a cercare la .bpl sul cd e ricopiala nella \bin.
e nella \windows\system

 e nella \windows\system
gia! anzi, solo nella system.
scusate...

Newsgroup: it.comp.lang.delphi
Titolo: Interrogare TChart e messaggio di errore

Ho un problema di uesto tipo:
Quando vado ad interrogare un componente TChart, passandogli una data, 
associato alla sua tabella con Database Interbase, se non trova trova tutti 
i dati mi da l'errore "List Index out of Bounds (0)".
Come posso intercettare questo messaggio e non fare comparire nulla?
Ciao.
Giulio. 

 Come posso intercettare questo messaggio e non fare comparire nulla?
Mmm... non riesco bene a capire la dinamica con cui avviene la ricerca. :-|
E' possibile vedere il codice che genera il problema?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: Query di una query

Nouvo problema,
sapete come posso fare la query di una tabella avuta da una query...
Io ho un tabulato (quello di prima) generato da una query, dovrei fare al
somma di uno di questi campi ho provato come segue ma non va come mai?
ecco i due modi che ho provato
1 Modo
SELECT codice, SUM(AREA)
FROM Query1
GROUP BY codice
(mi dice che non trova query1)
2 Modo
SELECT codice, SUM(Area)
FROM (
SELECT * FROM "dir1\\pippo"
UNION ALL
SELECT * FROM "dir2\\pippo"
) GROUP BY codice
e mi dice token errato select alla linea 3
PS: chi sa dove si puņ trovare una buona guida sulle query in delphi, ho un
manuale SQL, ma mi serve qualcosa sulla sintassi.

 PS: chi sa dove si può trovare una buona guida sulle query in delphi, ho


 ha scritto nel messaggio
news:Vus68.14193$om6.3...@news1.tin.it...


 ad una tabella di lavoro?
usa una vista
CREATE VIEW NOMEVIEW AS
SELECT CAMPO1, CAMPO2
FROM TUATABELLA
SELECT CAMPO1, SUM(CAMPO2)
FROM NOMEVIEW
GROUP BY CAMPO1
Ciao, Antò.

 ha scritto nel messaggio
news:Xns91A8A34DD9198an...@195.31.190.132...


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

ma il monthcalendar si visualizza bene?
A me perde i colori originali!
Mica c'e' qlk soluzione per vederlo come se non girasse su xp?
TKS 


a me funziona bene: magari, specifica la situazione in cui ciò si 
verifica (io ho HP, anche se Home, e va bene).
NioBi
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Mouse & DBGrid

Ciao a tutti,
ho un problemino con il cursore del mouse.
Mentre scrivo su una cella di una DBGrid dal secondo carettere in poi
mi perde il mouse, o meglio, me lo rende invisibile.
Appena sposto leggermente il mouse si rende nuovamente visibile.
Purtroppo in alcuni casi quando premo invio su una cella dove ho
digitato
qualcosa, creo e faccio aprire una combobox (una cosa simile alla
picklist),
ed il cursore non ricompare finchè la combobox non viene chiusa.
Qualcuno sà dirmi cosa succede? Perchè il mouse per fatti suoi
scompare, 
e poi all'improvviso torna?
Grazie in anticipo
Rino

Rino ha scritto:

Guarda che è una "funzione" di windows. Credo sia implementata per 
evitare che il puntatore del mouse interferisca con la visibilità di 
quanto si sta scrivendo.
Accade lo stesso nella barra degli inidizzi di IE, per dirne una.
ZioGian
Newsgroup: it.comp.lang.delphi
Titolo: Quando usare i dbaware

quando usare i dbaware e quando invece fare il binding manuale?
voi cosa usate?

 voi cosa usate?
 
Ciao,
secondo me non esiste una regola fissa, dipende da persona a persona, io dopo aver provato i due sistemi prima di partire con il programma di mio cognato ho scelto di utilizzare i componenti standard e poi fare  il binding manuale.
 
Ciao da Enrico Giudici c/o Anthelios

> voi cosa usate?
dbAware sono comodi per campi di consultazione (TDBEdit),
assolutamente poco flessibili (TDBComboBox standard),
 
al posto di TDBComboBox uso TComboBox, dove si possono digitare 
caratteri, certo poi in fase di Edit si deve valorizzare il CombBox,
ma la flessibilita' vale lo sforzo.
 
nei campi che richiedono ricerca uso sia TComboBox che TDBEdit
- in Edit/Insert visualizzo il TComboBox e nascondo TDBEdit
- inverso in fase Browse
 
in generale , con i DbAware si guadagna tempo
es: in C# dove si deve fare sempre il Binding manuale, la mancanza
dei DbAware spesso si sente.
 

 voi cosa usate?
 
GRAZIE A TUTTI.

Ciao,
  personalmente tutto a mano.
Potrebbe essere una perdita di tempo ma preferisco avere un controllo totale 
sulla manipolazione dei record delle tabelle.
Se invece e' solo una visualizzazione senza inserimento/modifica dei dati, 
allora va bene anche un un componente dbaware che e' decisamente piu' 
veloce.
 
Ciao
 
Daniele 
 


Ciao, anche io seguo lo stesso metodo

 wrote:
 
Anche io non uso componenti dbaware da molti anni ormai.
Newsgroup: it.comp.lang.delphi
Titolo: Inserimento linee di colore diverso in un memo

Ho un problema di facile soluzione immagino...
if powersock1.Connected then
         begin
           memo1.Lines.Add('Port ' + inttostr(i) + ': Open');
           powersock1.Disconnect;
         end;
      except
         begin
           memo1.Lines.Add('Port ' + inttostr(i) + ': Closed');
         end;
      end;
Vorrei fare in modo che le linee che agiungo al memo abbiano colore diverso
a seconda che la porta sia Open o Closed.
Sapete come fare???
Altra cosa... a run time questo pezzo di codice non da problemi ma in fase
di debugging genera un sacco di errori, è normale
o devo gestire le eccezioni in modo diverso?
GRAZIE IN ANTICIPO!! CIAOOOOOOOO!!!!!!!

 o devo gestire le eccezioni in modo diverso?
Nel tuo codice non gestisci le eccezioni.
Non vedo alcun try..except
Inoltre, cosa significa "Un sacco di errori"?
Specifica quali errori vengono fuori e forse qualcuno sapra'
dirti qualcosa sulla causa.
Come facciamo ad aiutarti a corregere errori di cui
non sappiamo niente?
Bye
AS
"Se è Microsoft non funziona"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 invece di:
...
Teorema di Salvati ?


On Mon, 25 Feb 2002 17:20:06 +0100, "Fabio" <Fabio...@Libero.it>
wrote:

Ne TMemo ne TCustomMemo hanno un campo TCanvas.
Quindi non puoi in nessun modo inserire righe colorate.
Ti conviene usare una TRichEdit che di da il massimo della
flessibilità con pochissimo sforzo puoi inserire line colorate, ed
effetti al testo (bold, underline) ecc.

 Teorema di Salvati ?
Ancora una volta ho scritto troppo in fretta.
Volevo dire:
per mettere insieme + stringhe in delphi conviene usare la funzione
format.
Bye
AS
"Se è Microsoft non funziona"
-- 


 format.
Format?? e in quanto a velocità e ottimizzazione non è un po troppo pesante
per agganciare 2 stringhe incavallate??
Saluti
Matteo

 per agganciare 2 stringhe incavallate??
Sicuramente la Format e' piu' lenta di una semplice 
concatenazione.  Io la uso, generalmente, quando voglio che
chi legga il codice, abbia un'idea chiara della stringa 
prodotta.


Anche con TMemo si possono inserire righe colorate... il mio problema è che
riesco a cambiare il colore di tutte le righe presenti nel Memo e non di una
singola riga (quella che inserisco).

TUTTO RISOLTO!!!!!

> TUTTO RISOLTO!!!!!
Se ci puoi dire anche come... grazie.
--
1 curioso
Newsgroup: it.comp.lang.delphi
Titolo: Extended vs String

Salve a tutto il NG
Win98SE, Win2000 e WinXP-pro, Delphi 4
Problema semplice ma di cui non riesco a vedere la soluzione ... se potete
aiutarmi ...
Lavoro con numeri (extended) che possono essere molto alti o molto piccoli:
internamente Delphi li rappresenta in maniera esponenziale e per fare i
calcoli non ci sono problemi ... questi nascono quando desidero
rappresentare i valori come stringa: talvolta con c'è Format che tenga
perchè Delphi vuole per forza usare la rappresentazione esponenziale.
Esiste qualche direttiva di compilazione, qualche variabile d'ambiente ...
qualcosa affinchè io possa visualizzare come stringa tutti i valori
extended, anche quelli rappresentati internamente come esponenziali ?
Es (banale)
0.00001 internamente è 1 E-5 e convertendoli ottengo '1 E-5' e non '0,
00001'.
Per favore, cosa posso fare ?
Grazie per gli eventuali suggerimenti
Andrea

uale stringhe di formato hai provato?
A

00001'.
In realtà il "format %f" funzionicchia.
Dico funzionicchia perchè %.15f ritorna 0.000010000000000
Però a questo punto non dovrebbe essere un problema eliminare gli zero
in eccesso.
Saluti
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"


Provato con Delphi2, il FloatToStr mi da quel problema, prova invece (a me 
funge):
procedure TForm1.Button1Click(Sender: TObject);
var f : extended;
     t : String;
begin
   f := 1/100000;
   t := FormatFloat('#0.############',f);
   caption := t;;
end;
ciao, Andrea (anch'io)
-- 
--------------------------------------
Per rispondere in privato togliere ADD1975
Creato con M2, il rivoluzionario client e-mail di Opera: 
http://www.opera.com/m2/

Newsgroup: it.comp.lang.delphi
Titolo: > Per iniziare...

salve a tutti
mi servirebbe una guida per iniziare a programmare in Delphi 5
ho già programmato in altri linguaggi (JS, VB, C)
dove la trovo
dovrei imparare soprattutto la sintassi
credo che il resto sia facile come in vb...
ciao
xAERO

>credo che il resto sia facile come in vb...
No. Molto + facile di vb!
La tua domanda è troppo generica.
Scegli un punto di partenza e inizia a lavorarci su.
Saluti
AS
"Se è Microsoft non funziona"

prova con mastering delphi di cantù sono usciti cinque libri.
ciao.
p.s. non paragoniamo delphi a vb.
--
web:    
http://gnaffy.tripod.com/
e-mail: Gna...@Wappi.com
e-mail: 
bmq...@tin.it
ICQ#:  76488613

Newsgroup: it.comp.lang.delphi
Titolo: parametri esterni

Ciao
E' possibiel passare degli argomenti al programam .exe  in delphi ?
del tipo myPROG.exe parm1 parm2 etc etc ???
com'è la sintassi ? notare che myPROG.exe è un applicazione che crea un form
e non un programma testuale.
grazie a tutti !!!
ciao!

 ha scritto nel messaggio
news:a48lc1$k01$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: DB Mysql / insert con stringhe particolari

Ciao a tutti,
ho un piccolo problema con una query di tipo insert.
Sto usando un server mysql (4.1.5) e i componenti ZeosLib 6.5.1 per
connettermi ad esso.
Devo inserire in un campo di una tabella una stringa particolare perchè in
alcuni caratteri potrebbe
presentarsi il carattere #0 (ASCII 0 o terminatore di stringa).
Il problema è che se provo ad eseguire la query con una stringa che contenga
tale carattere ottengo sempre un errore.
Immagino che per stringhe di questo tipo sia necessario usare un metodo
particolare per inserirle però non ho idea di quale sia...
Qualche idea ?

 tale carattere ottengo sempre un errore.
cioč...? Quale errore?
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studing c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"

 cioč...? Quale errore?
l'errore era il generico hai un errore nella query vicino a ..... e mi
riportava un pezzo di stringa con i caratteri strani terminante nel punto in
cui cerca il carattere #0.
Comunque ho risolto inviandogli la stringa in formato esadecimale
(0xXXXXXX....).
Sai invece cosa sono e come si usano i "Params" nel componente TZQuery degli
zeoslib ?

Newsgroup: it.comp.lang.delphi
Titolo: Re: D2007 -  RichEdit: come contare i caratteri che precedono il caret?

 Paolo
Qualcosa del genere:
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  CharPos: TPoint;
  ch_totale: integer;
begin
  GetCursorPos(charPos);
  CharPos:= RichEdit1.ScreenToClient(CharPos);
  ch_totale := RichEdit1.Perform(EM_CHARFROMPOS, 0, integer(@CharPos));
  ShowMessage(IntToStr(ch_totale))
end;
Provala, non l'ho testata per niente ...
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio 





LINEA INTERROTTA

Paolo
--- posted by geoForum on 
http://www.delphiedintorni.it

Provala, non l'ho testata per niente ...
Bingo! grazie mille ACSH funziona benissimo.

Newsgroup: it.comp.lang.delphi
Titolo: D7 - TClientDataset come memory dataset

Ciao a tutti
qualcuno utilizza il TClientDataset come memory dataset
come indicato da Scalabium su:
http://www.scalabium.com/faq/dct0150.htm
  ?
Io l'ho provato e mi sembra un'ottima soluzione solo vorrei sapere se il suo
utilizzo introduce magari delle dipendenze particolari per l'applicazione
(io vorrei distribuire solo l'EXE senza dovermi preoccupare di particolari
DLL etc.)
grazie in anticipo per qualsiasi info


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

 ha scritto nel messaggio
news:jLSlb.36473$e5.12...@news1.tin.it...


 dunque posso andare tranquillo?
Direi di sì. Il TClientDataSet è nella unit DBClient.
Comunque, basta provare a copiare l'applicativo su una macchina
sprovvista di Delphi (e altri programmi con CDS) e vedere se richiede
librerie. :-)


 ha scritto nel messaggio
news:l%Tlb.36895$e5.13...@news1.tin.it...


 l'impressione che comunque "tiri in ballo" Midas?
Non ho il tempo di analizzare la unit, ad ogni modo credo che il
componente TClientDataSet derivi dal mondo Midas e sia stato incluso "a
forza" in tutte le versioni di Delphi 7, dalla Professional in su, per
coadiuvare il programmatore nell'uso dei DataSet forniti con il
dbExpress, i quali sono unidirezionali e quindi non supportano
navigazione libera al loro interno e non possono pertanto essere
associati a controlli visuali DBaware senza l'uso di un componente,
quale è il ClientDataSet, in grado di memorizzare i record provenienti
dal DataSet in memoria.
Poi, anche l'uso con i file CDS/XML si rivela molto utile per chi vuole
realizzare piccoli database "file based" senza sfruttare il BDE, ormai
obsoleto, o altri componenti di terze parti.


Newsgroup: it.comp.lang.delphi
Titolo: Lista file in directory

Scusate, ho cercato vari esempi anche nelle faq, ma la mia inesperienza non
mi ha permesso di
risolvere il problema.
Avrei bisogno di un'esempio di codice che mi permetta di ottenere una lista
di file contenuti
in una directory ed eventualmente nelle sottodirectory di questa.
Qualcuno mi puň aiutare ?
Ciao e grazie.
Enrico

 Enrico
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red


Qui trovi un componente che fa queste cose con tanto di codici sorgenti:
http://ramaya.azpoint.net/prodotto.asp?ID=3
Ciao

 MB C SC 220 CDI Magma Red
ti prego mi spieghi la tua firma? ;-)
--
- Carlo -

 - Carlo -
-- 


Newsgroup: it.comp.lang.delphi
Titolo: DBE e distribuzione

Ma se uso i database in una mia applicazione devo distribuire DBE?

> 
se lo usi si... esistono altri engine in giro ma non li ho mai provati...
ciao ciao, Luca.
-- 
ICQ: 11024183
"Lo sciocco non perdona e non dimentica.
L'ingenuo perdona e dimentica.
Il saggio perdona, ma non dimentica."
(Thomas Szasz) 

Ciao Sandro,
Volevi dire il BDE?
Se la tua applicazione ha come motore Database il BDE dei farlo....
è un po palloso ma è così!!
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support

 č un po palloso ma č cosě!!

Newsgroup: it.comp.lang.delphi
Titolo: Cancellare una riga di TStringGrid

Sembra una stupidita ma proprio non riesco a capire come cancellare una riga
all'interno di una StringGrid.!!
Vi sarei " moltissimo gratissimo " se mi aiuterete...
Grazie comunque
Davide

 all'interno di una StringGrid.!!
mm... shifti le righe in su da quella che devi cancellare e poi elimini
l'ultima riga?
Ciao, Davide DG

all'interno di una StringGrid.!!
non c'e' un comando particolare, ma ci vogliono poche righe di codice:
procedure DeleteOneRow(StringGrid:TStringGrid;RowNo:longint);
var
   i,j:longint;
begin
   with StringGrid do
   begin
      for i:=RowNo to RowCount-2 do
         for j:=0 to ColCount-1 do
            Cells[j,i]:=Cells[j,i+1];
      RowCount:=RowCount-1;
   end;
end;
Newsgroup: it.comp.lang.delphi
Titolo: Generalizzare PopUpMenu

ho personalizzato il disegno di TPopUpMenu (ownerdraw = True), e
tramite l'evento OnDrawItem di ogni voce.
 
la verifica TComponent(Sender).Name si puo' fare in altro modo senza 
ricorrere al gruppo if  sNome = ... ?
Tramite Sender non riesco a conoscere la Caption della Voce.
 
Maurizio
 
 
procedure Tfrm_MenuAree.EconomatoDrawItem(Sender: TObject; ACanvas: TCanvas;
   ARect: TRect; Selected: Boolean);
begin
  if Selected then
    ACanvas.Brush.Color := clColore
  else
    ACanvas.Brush.Color := clMenu;
 
  ScriveMenu(Sender, ACanvas, ARect);
end;
 
procedure Tfrm_MenuAree.GetMenuPop(Sender: TObject; var Nome: string; 
var Indice: integer);
begin
  sNome := TComponent(Sender).Name;
 
//-------- si puo' fare diversamente ?
 
  if sNome = 'Acquisti' then
   begin
     Indice := Acquisti.ImageIndex;
     Nome := Acquisti.Caption;
   end
  else if sNome = 'Economato' then
   .....
 
end;
 
procedure Tfrm_MenuAree.ScriveMenu(Sender: TObject; ACanvas: TCanvas;
   ARect: TRect);
begin
  ARect.Left := 5;
  ACanvas.FillRect(ARect);
 
  GetMenuPop(Sender, Nome, Indice);
  ImgAree.Draw(ACanvas, 4, ARect.Top + 2, Indice);
 
  ACanvas.Font.Color := clNavy;
  DrawItemText(32, ACanvas, ARect, Nome);
end;

 ricorrere al gruppo if sNome = ... ?
 
Se sono previste azioni eterogenee per ciascuna voce di menu, cioè se 
non è possibile ricondurre le operazioni che vengono eseguite per ogni 
menu a una "base comune", allora non credo di possa fare in altro modo.
 
In caso contrario, potresti anche codificare il comportamento di 
risposta che varia in base al menu all'interno di una classe e creare 
una sorta di "array associativo" tra il nome del menu e l'oggetto che 
contiene logica da eseguire per quel menu.
 
Non avendo ben presente di quale applicazione si tratta e cosa deve 
realmente fare il codice che hai scritto in senso più ampio, è difficile 
dare suggerimenti così mirati.
 
Ciao,
   Marco.
 
-- 
Marco Breveglieri
   (
http://www.marco.breveglieri.name
)

    Marco.
 
Sembra che la cena non abbia avuto ripercussioni ...
 
 
 
 
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 Sembra che la cena non abbia avuto ripercussioni ...
Già... la prossima volta prendiamo il vino più potente... :)

Newsgroup: it.comp.lang.delphi
Titolo: MaskEdit

Avrei bisogno di inserire prezzi in euro in un TMaskEdit (Delphi5).
La maschera che ho costruito è
00\,00;1;_
Solo che se assegno alla proprietà Text una stringa come 6,5 questa viene
settata a '6 ,5 ' invece di '06,50'.
C'è modo di lavorare sulla maschera per una cosa del genere?
Grazie.

Io di solito uso #,###.00 e scrivendo 6 mi ritorna 6,00 - se scrivo 6,3 
miritorna 6,30 ecc.
Se invece al posto di # utilizzi 0 cioè 00.00 dovrebbe mettere gli zeri 
mancanti nella tua immissione, quindi se scrivi 6 ti ritorna 06,00 
questo non l'ho mai provato ma dovrebbe essere così.
Inviato da 
www.mynewsgate.net

questo non l'ho mai provato ma dovrebbe essere cosě.
ho provato ieri questo sistema per rispondere al
MainMessage di questo thread, ho messo su un form un
MaskEdit ed una label. Sul Change del maskEdit passavo
alla caption della label il text dell'edit, ma non ho
avuto i risultati sperati, cioč scrivendo nell'edit 6.3
ottenevo 6.30, che per i decimali va bene ma lo zero
prima degli interi non lo metteva ... :( ... quindi mi
sono messo in attesa di qualche altra risposta.
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

Newsgroup: it.comp.lang.delphi
Titolo: [D7] OpenDirectory

Arrivo subito al mio problema:
Vorrei poter far selezionare all'utente una directory in cui poi andrò a
sistemare dei file.
Usando il solito componente opendialog non riesco a selezionare una cartella
perchè necessariamente vuole la selezione di un file, stessa cosa per il
save dialog.
Come posso fare?
Grazie Giò


Pregio
Giorgio

 Come posso fare?
Cerca con google, ci sono vari componenti tipo dirdialog.
Oppure utilizza le API di windows.
-- 
I'am what I'am, I do what I can

 ha scritto nel messaggio
news:bpili1$u8e$1...@le1.cs.unibo.it...

Guarda sull'help  SelectDirectory
Ciao

Grazie per l'aiuto ma penso di avere trovato di meglio....
Lo posto per comune utilità
function BrowseDialog
 (const Title: string; const Flag: integer): string;
var
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  Result:='';
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName;
    lpszTitle := PChar(Title);
    ulFlags := Flag;
  end;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := TempPath;
    GlobalFreePtr(lpItemID);
  end;
end;
procedure TMainForm.BitBtn2Click(Sender: TObject);
var sTitle, sFolder: string;
    iFlag : integer;
begin
  sTitle:='Selezionare una directory';
  iFlag :=  BIF_RETURNONLYFSDIRS + $0040; //$0040 inserisce la possibilità
di creare nuove cartelle
  sFolder := BrowseDialog(sTitle, iFlag);
  if sFolder <> '' then
    edit1.text := sFolder
  else
    edit1.text := '';
end;
Newsgroup: it.comp.lang.delphi
Titolo: Dragging nella ListView

Salve a tutti.
Ho un piccolo problema con le Listview. Non riesco ad ottenere lo stesso
effetto delle finestre di explorer di windows, ovvero disporre in maniera
personale (e casuale) le icone visualizzate. Ho provato ad effettuare il
dragging (nella modalita icon) ma le icone si rifiutano di spostarsi.
Come posso fare?
Grazie per l'aiuto.
Il BiONDO



Semplificando:
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y:
Integer);
begin
  ListView1.Selected.Top := Y;
  ListView1.Selected.Left := X;
end;
Ciao,
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

Grazie per l'aiuto!
Il BioNDO