Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Posilani faxu
[*] Marek Dost�l <marek.dostal(zv)mujweb(tec)cz> - 19.12.2002 13:13:37
Potrebuji posilat vystupni sestavy na fax. Potreboval bych poradit jake =
jsou moznosti, natuknout, co mam vlastne hledat.=20
Diky, Marek Dostal
Posilani faxu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 19.12.2002 13:28:12
>Potrebuji posilat vystupni sestavy na fax. Potreboval bych poradit jake
jsou moznosti, >natuknout, co mam vlastne hledat.
Pokud to potrebujes ve Windows, tak zkus napovedu pro Windows a vyhledat
klicove slovo "fax" ;-).
S faxem se vetsinou pracuje jako s tiskarnou.
Roman
==============================
http://kouzelne.misto(tec)cz
Problem se zapisem do registru ve WIN9x
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 19.12.2002 13:40:43
Zkus to bez toho WITH, tzn.:
Reg :=3D TRegistry.Create;
try
Reg.RootKey :=3D $80000002;;
Ok :=3D Reg.OpenKey(DefaultReg + KeyStr, True);
// zkusil jsem, ale nepomohlo
if not Ok then
begin
Ok :=3D Reg.CreateKey(DefaultReg + KeyStr);
if Ok then
Ok :=3D Reg.OpenKey(DefaultReg + KeyStr, False);
end;
//
if Ok then
begin
Reg.WriteString('Name', Name);
Reg.WriteInteger('SN', SN);
Reg.WriteInteger('Pwd', Pwd);
......
Jinak OpenKey() ti s paramatrem TRUE snad zalozi novy klic, pokud =
neexistuje
a nevyhasi to chybou
Miroslav Tvrz
Software Development Specialist
MERLIN
=A9tef=E1nikova 32
150 00 Prague 5
Czech Republic
Tel.: (+420) 241010111
Fax: (+420) 241010165
E-mail: miroslav.tvrz(zv)merlin(tec)cz=20
http://www.merlinlogic.com/=20
http://www.merlin(tec)cz/
-----Original Message-----
From: Pavel Gazda [mailto:Pavel.Gazda(zv)seznam(tec)cz]
Sent: Thursday, December 19, 2002 12:39 PM
To: Delphi konf
Subject: Problem se zapisem do registru ve WIN9x
Zdravim,
kde muze byt problem pri zapisu do registru ?
Tam kde to mohu odzkouset, mi vse funguje bez problemu,=20
ale jiz nekolikrat se stalo, ze zapis nebyl proveden, jednalo se=20
pravdepodobne o Win98 (pro Win2k to neni urceno).
Testovat to nijak nemohu, protoze k takovemu stroji se dostanu
tak 2x za rok.
diky za rady.
Pavel
K zapisu pouzivam priblizne toto:
Reg :=3D TRegistry.Create;
try
with Reg, Klic do
begin
RootKey :=3D $80000002;;
Ok :=3D OpenKey(DefaultReg+KeyStr,true);
// zkusil jsem, ale nepomohlo
if not Ok then
begin
Ok :=3D CreateKey(DefaultReg+KeyStr);
if Ok then
Ok :=3D OpenKey(DefaultReg+KeyStr,false);
end;
//
if Ok then
begin
WriteString('Name',Name);
WriteInteger('SN',SN);
WriteInteger('Pwd',Pwd);
......
Pomale zpracovani SELECTU v IB
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 19.12.2002 13:43:56
Haj hou!
On 19 Dec 2002 at 10:22, Jaroslav Koh=E1k wrote:
> Ahoj lidi,
> bojuju s nasledujicim problemem rychlosti. V asi 200MB DB mam jednu tabu=
lku (A) ktera slouzi jako master pro druhou - detail(B). Tzn v tabulce A s=
i uzivatel vybere zaznam a v Becku vidi dalsi detaily. Svazuje je parametr=
:S21DAVKA_UKID. Nasledujici select je prave ta tabulka B.
>
> SELECT b.S21DAVKA_UKID, a.S21KOMPID, SUM(a.MNOZSTVI)
> FROM S21DAVKAREC a
> LEFT JOIN S21DAVKA_UKD b ON (a.S21DAVKAID =3D b.S21DAVKAID)
> WHERE S21DAVKA_UKID =3D :S21DAVKA_UKID
> GROUP BY b.S21DAVKA_UKID, a.S21KOMPID
>
> Problem je v tom, ze pri kazdem posunu mezi radky v tab A probehne zprac=
ovani tohoto selectu a ono to trva skoro 45!!! sec (na PIII 850 s 256MB RA=
M a W2K). Po tu dobu disk skoro nejede, zato sluzba IBServ jede na 100%.
> Neda se tomu nejak pomoct, nebo predelat ten select? Zkousel jsem z toho=
udelat proceduru v IB a jen ji spoustet, ale to bylo totez.
Pomohlo by, kdyby jsi nam sem poslal PLAN pouzity pro dany dotaz.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
LANGDRIVER
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 19.12.2002 13:46:08
Dne 19.=A0prosinec=A02002, <delphi-l(zv)clexpert(tec)cz> napsal:
> Panove,
> nevite nekdo, jak prinutit InstallShield Expres, aby pro native drive=
r BDE
> Paradox a DBASE nastavil jako vychozi LANGDRIVER CP 852.
>
Ahoj!
Resil jsem to nekolik mesicu, ale uz je to davna doba. Nejlepsi by bylo=
zkouknout historicke
zaznamy z konference (urcite by jsi tam nasel i me dotazy na tohle tema=
... ;o)) )
Co si pamatuji:
1)Na stroji, kde provadis tvorbu setup.exe, musis mit vse spravne nains=
talovano a vse spravne
nastaveno. InstallShiled si vemu nejake zakl. info a ty pouzije pri ins=
talaci.
2)nastaveni langdriveru (na znakovou sadu CP 852)neni otazkou nastaveni=
registru nebo BDE, ale veci
nastaveni samotne tabulky.
tudiz -> pokud kopirujes (v ramci instalace) musi mit zdrojova tabulka =
uz langdriver nastaven na
pozadovanou hodnotu
pokud si ji vytvaris treba az pri prvnim spusteni aplikace, mu=
sis si langdriver na CP852
nastavit sam.
Ja tenhle problem tady resil nekolikrat a dlouho. Pak mi pomohl zdrojov=
y kod, ktery jsem tady od
nekoho dostal. Pokud by jsi si nevedel rady, snad by se na me autor (te=
d kdyby jsi me zabil, tak si
nevzpomenu na jmeno) nezlobil.
Ted si vzpominam, ze nakonec jsem to nejak kombinoval se zdrojakam P. V=
onese.... no zkus, kdyby Ti
tyhle rady nepomohly, musis byt vic konkretni (dal jsi nam strasne malo=
informaci - oper. sys.,
ver. Delphi, ver InstallShieldu atd.)a urcite Ti tady nekdo poradi.
Ahoj, Jirka
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky
programator
______________________________________________________________________
Reklama:
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
Problem se zapisem do registru ve WIN9x
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 19.12.2002 13:47:57
A jeste mozna namisto teho $80000002 dat normalni konstantu
HKEY_LOCAL_MACHINE, HKEY_CURRENT_USER, atp.
Miroslav Tvrz
Software Development Specialist
MERLIN
=A9tef=E1nikova 32
150 00 Prague 5
Czech Republic
Tel.: (+420) 241010111
Fax: (+420) 241010165
E-mail: miroslav.tvrz(zv)merlin(tec)cz=20
http://www.merlinlogic.com/=20
http://www.merlin(tec)cz/
-----Original Message-----
From: Pavel Gazda [mailto:Pavel.Gazda(zv)seznam(tec)cz]
Sent: Thursday, December 19, 2002 12:39 PM
To: Delphi konf
Subject: Problem se zapisem do registru ve WIN9x
Zdravim,
kde muze byt problem pri zapisu do registru ?
Tam kde to mohu odzkouset, mi vse funguje bez problemu,=20
ale jiz nekolikrat se stalo, ze zapis nebyl proveden, jednalo se=20
pravdepodobne o Win98 (pro Win2k to neni urceno).
Testovat to nijak nemohu, protoze k takovemu stroji se dostanu
tak 2x za rok.
diky za rady.
Pavel
K zapisu pouzivam priblizne toto:
Reg :=3D TRegistry.Create;
try
with Reg, Klic do
begin
RootKey :=3D $80000002;;
Ok :=3D OpenKey(DefaultReg+KeyStr,true);
// zkusil jsem, ale nepomohlo
if not Ok then
begin
Ok :=3D CreateKey(DefaultReg+KeyStr);
if Ok then
Ok :=3D OpenKey(DefaultReg+KeyStr,false);
end;
//
if Ok then
begin
WriteString('Name',Name);
WriteInteger('SN',SN);
WriteInteger('Pwd',Pwd);
......
EDBError v IB cislo ci typ chyby?
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 19.12.2002 13:48:21
No to ano...tam zjistim puvodni chybovou hlasku...ale ne cislo chyby...tu
bych musel pracne vycucavat z toho textu a to se mi vubec nelibi...musi tam
preci byt neco ceho se clovek chyti
kdyz chce volat treba CASE OF
> Sice ted nemam pred sebou Delphi, ale tipl bych si, ze u udalosti
> OnPostError budes dostavat pres
> parametr (ze by Msg .... ;o) ? ) tu "errorovou" hlasku, takze z
> toho by jsi mel byt schopen zjistit
> cislo toho "Erroru".
> No a pak v dokumentaci (ted kdyby jsi me zabil, tak si
> nevzpomenu, ktery z tech 5 file-u to je)
> najdes odpovidajici hlasku.
Hezky den
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
LANGDRIVER
[*] TOROLA electronic - Bednarcik Dalibor <dalibor(zv)torola(tec)cz> - 19.12.2002 13:50:42
Ahoj, ja byt tebou, tak to udelam uz v programu a na InstallShield bych se
vykaslal.
Co kdyz nekdo bude instalovat program, kterej ti to prenastavi zase na neco
jineho.
> Panove,
> nevite nekdo, jak prinutit InstallShield Expres, aby pro native driver BDE
> Paradox a DBASE nastavil jako vychozi LANGDRIVER CP 852.
>
> Roman
>
Problem se zapisem do registru ve WIN9x
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 19.12.2002 13:52:13
Myslim, ze to neni tento pripad, klic se otevira jen jednou a jeden,
jen se tam zapisuje vice udaju.
Pavel
>
> tohle vypada jako ze zapisujes do klice, aniz bys predtim zavrel
> predchzi. Je to celkem oblibena chybka. Priklad:
> OpenKey(SomeKey);
> WriteNeco(XXXX);
> //-----------------chyba --- chybi CloseKey
> OpenKey(Nextkey);
> WriteNeco(XXXX);
>
> > WriteString('Name',Name);
> > WriteInteger('SN',SN);
> > WriteInteger('Pwd',Pwd);
> > ......
OT: Image Harddisku
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 19.12.2002 13:57:09
Zdravim vsechny,
nevi nekdo, jestli exisuje nejaka utilita, ktera by dejme tomu na 40GB disk
ulozila soubor ktery by obsahoval binarni odsah jineho disku (samozrejme s
mensi kapacitou) a potom ten mensi disk dokazala zase z toho souboru
obnovit? Mam na mysli i tabulky udaju o partitions, zkratka fyzicky celej
disk.
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.350 / Virov� b�ze: 196 - datum vyd�n�: 17.4. 2002
Delphi7 personal vs. freeware
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 19.12.2002 14:05:17
----- Original Message -----
From: "Viliam Mlich" <mlich1(zv)volny(tec)cz>
......
> Ja mam D4 Standard a zatial som nepocitil ziadne obmedzenie.
>
> Ze to nema BDE ? To som stastny, lebo jednak tu v konferencii uz asi 5
Ahoj.
Jen pro uprasneni :
D4std BDE ma, nema ho az D5std
Ale nejde o BDE jako takove ale o cely unit DB, ktery (udajne) v D5std uz
neni a je pak problem pouzivat nektere nativni komponenty (IBX, KADAOa pod.)
Ludek
Image Harddisku
[*] Jon� Marian <Jonas(zv)komercpoj(tec)cz> - 19.12.2002 14:07:54
Tohle umi Norton Ghost, umi ulozit disk nebo partition do souboru, umi =
dokonce i kompresi vysledneho souboru, takze ten vysledny soubor je =
treba polovicni proti puvodnimu disku.
Marian
> -----Original Message-----
> From: Tomas Bradle [mailto:t.bradle(zv)worldonline(tec)cz]
> Sent: Thursday, December 19, 2002 1:57 PM
> To: Delphi konference
> Subject: OT: Image Harddisku
>=20
>=20
> Zdravim vsechny,
>=20
> nevi nekdo, jestli exisuje nejaka utilita, ktera by dejme=20
> tomu na 40GB disk
> ulozila soubor ktery by obsahoval binarni odsah jineho disku=20
> (samozrejme s
> mensi kapacitou) a potom ten mensi disk dokazala zase z toho souboru
> obnovit? Mam na mysli i tabulky udaju o partitions, zkratka=20
> fyzicky celej
> disk.
>=20
> diky
>=20
> Tomas Bradle
> t.bradle(zv)worldonline(tec)cz
>=20
>=20
>=20
>=20
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.350 / Virov=E1 b=E1ze: 196 - datum vyd=E1n=ED: 17.4. 2002
>=20
>=20
>=20
>=20
LANGDRIVER
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 19.12.2002 14:11:06
----- Original Message -----
From: "Netu�il, Roman, Ing." <Netusil.Roman(zv)vspardubice(tec)cz>
> nevite nekdo, jak prinutit InstallShield Expres, aby pro native driver BDE
> Paradox a DBASE nastavil jako vychozi LANGDRIVER CP 852.
Ahoj.
To NEEE to je znasilneni :::))))
Nezasahuj zakaznikovi do jeho nastaveni BDE a porid si svoje vlastni pro
svoji session.
Pokud potrebujes aby tohle nastaveni bylo opravdu defaultni (muze byt treba
kvuli nejakym exportum-importum a externim utilitam) napis to do HELPU nebo
navodu pripadne udelej program, ktery zakaznik VEDOME spusti a kde ho
upozorniss, ze ostatni prg pouzivajici BDE mohou byt ovlivneny.
Ludek
OT: Image Harddisku
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 19.12.2002 14:14:01
Da sa to diskeditom z norton utilit, prepnut zobrazenie na fyzicky
disk, vybrat vsetky sektory a dat copy do suboru (samozrejme na druhy
disk). Spat to ide tiez bez problemov, disky by ale museli byt
identicke. Uz som to robil, je to ale dost pomale. Nechcete radsej
pouzit nieco inteligentnejsie ako je Norton Ghost alebo Partition
Magic?
P.Svorc
> Zdravim vsechny,
>
> nevi nekdo, jestli exisuje nejaka utilita, ktera by dejme tomu na 40GB d=
isk
> ulozila soubor ktery by obsahoval binarni odsah jineho disku (samozrejme=
s
> mensi kapacitou) a potom ten mensi disk dokazala zase z toho souboru
> obnovit? Mam na mysli i tabulky udaju o partitions, zkratka fyzicky cele=
j
> disk.
>
> diky
>
> Tomas Bradle
> t.bradle(zv)worldonline(tec)cz
>
>
>
>
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.350 / Virov=E1 b=E1ze: 196 - datum vyd=E1n=ED: 17.4. 2002
>
>
OK: Pomale zpracovani SELECTU v IB
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 19.12.2002 14:21:50
DIKY VSEM,
uz je to OK. Ten kokot co to psal predemnou a po kterem to opravuji tam =
opravdu nemel nadef zdaleka vsechny potrebne klice.
Po jejich doplneni je to hotovo za 6sec (asi z 45sec).
Tymi
-----Original Message-----
From: Pavel Cisar [mailto:pcisar(zv)users.sourceforge.net]
Sent: Thursday, December 19, 2002 1:44 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Pomale zpracovani SELECTU v IB
Haj hou!
On 19 Dec 2002 at 10:22, Jaroslav Koh=E1k wrote:
> Ahoj lidi,
> bojuju s nasledujicim problemem rychlosti. V asi 200MB DB mam jednu =
tabulku (A) ktera slouzi jako master pro druhou - detail(B). Tzn v =
tabulce A si uzivatel vybere zaznam a v Becku vidi dalsi detaily. =
Svazuje je parametr :S21DAVKA_UKID. Nasledujici select je prave ta =
tabulka B.=20
>=20
> SELECT b.S21DAVKA_UKID, a.S21KOMPID, SUM(a.MNOZSTVI)=20
> FROM S21DAVKAREC a
> LEFT JOIN S21DAVKA_UKD b ON (a.S21DAVKAID =3D b.S21DAVKAID)
> WHERE S21DAVKA_UKID =3D :S21DAVKA_UKID
> GROUP BY b.S21DAVKA_UKID, a.S21KOMPID
>=20
> Problem je v tom, ze pri kazdem posunu mezi radky v tab A probehne =
zpracovani tohoto selectu a ono to trva skoro 45!!! sec (na PIII 850 s =
256MB RAM a W2K). Po tu dobu disk skoro nejede, zato sluzba IBServ jede =
na 100%.
> Neda se tomu nejak pomoct, nebo predelat ten select? Zkousel jsem z =
toho udelat proceduru v IB a jen ji spoustet, ale to bylo totez.
Pomohlo by, kdyby jsi nam sem poslal PLAN pouzity pro dany dotaz.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Image Harddisku
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 19.12.2002 14:23:07
Znamej neco takovyho pouziva,
zkus mu napsat na zep(zv)centrum(tec)cz
Tymi
-----Original Message-----
From: Tomas Bradle [mailto:t.bradle(zv)worldonline(tec)cz]
Sent: Thursday, December 19, 2002 1:57 PM
To: Delphi konference
Subject: OT: Image Harddisku
Zdravim vsechny,
nevi nekdo, jestli exisuje nejaka utilita, ktera by dejme tomu na 40GB =
disk
ulozila soubor ktery by obsahoval binarni odsah jineho disku (samozrejme =
s
mensi kapacitou) a potom ten mensi disk dokazala zase z toho souboru
obnovit? Mam na mysli i tabulky udaju o partitions, zkratka fyzicky =
celej
disk.
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.350 / Virov=E1 b=E1ze: 196 - datum vyd=E1n=ED: 17.4. 2002
IB/FB - instalace - client
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 19.12.2002 14:31:49
Ahoj,
chci se jen zeptat ... ted dodelavam jeden projekt, ktery jsem testoval=
na dvou pocitacich. Ovsem
na obou byl instalovan FireBird - server.
Musi se neco instalovat clientovi? CO? Cely server?
V projektu pouzivam klasicke komponenty (IBDatabase, IBTransaction, IBQ=
uery atd.)
Diky za odpoved.
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky programator
______________________________________________________________________
Reklama:
Sout=EC=BE o auto na v=EDkend, autor=E1dio Clarion a dal=B9=ED ceny: ht=
tp://ad2.seznam(tec)cz/redir.cgi?instance=3D39165%26url=3Dhttp://www.auto-p=
lus(tec)cz
- nejlep=B9=ED syst=E9m prodeje ojet=FDch voz=F9 na internetu
EDBError v IB cislo ci typ chyby?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 19.12.2002 14:51:49
> Ahoj kluci v IBDatasetu mam event OnPostError
> umim zavolat E.CreateFmt to je v poradku -
a preco by si to robil?
> potrebuji ale zjistit o jakou chybu se jedna jak to zjistim??
Ak je to EIBError, potom ma vlastnosti IBErrorCode a SQLCode.
HTH
TOndrej
LANGDRIVER
[*] "Netu�il, Roman, Ing." - 19.12.2002 15:06:32
Jiri,
prosim jeste o nektera upresneni:
Jaknastavit LANGDRIVER az pri vytvareni tabulky?
Z me strany:
Windows 2000, XP; D6 Prof; InstallShield Expres 3.03
Diky, Roman
-----Original Message-----
From: Ing. Jiri SOKOL [mailto:JS-delphi(zv)seznam(tec)cz]
Sent: Thursday, December 19, 2002 1:46 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: LANGDRIVER
Dne 19.=A0prosinec=A02002, <delphi-l(zv)clexpert(tec)cz> napsal:
> Panove,
> nevite nekdo, jak prinutit InstallShield Expres, aby pro native =
driver BDE
> Paradox a DBASE nastavil jako vychozi LANGDRIVER CP 852.
>=20
Ahoj!
Resil jsem to nekolik mesicu, ale uz je to davna doba. Nejlepsi by bylo
zkouknout historicke
zaznamy z konference (urcite by jsi tam nasel i me dotazy na tohle tema =
...
;o)) )
Co si pamatuji:
1)Na stroji, kde provadis tvorbu setup.exe, musis mit vse spravne
nainstalovano a vse spravne
nastaveno. InstallShiled si vemu nejake zakl. info a ty pouzije pri
instalaci.
2)nastaveni langdriveru (na znakovou sadu CP 852)neni otazkou nastaveni
registru nebo BDE, ale veci
nastaveni samotne tabulky.
tudiz -> pokud kopirujes (v ramci instalace) musi mit zdrojova tabulka =
uz
langdriver nastaven na
pozadovanou hodnotu
pokud si ji vytvaris treba az pri prvnim spusteni aplikace, =
musis
si langdriver na CP852
nastavit sam.
Ja tenhle problem tady resil nekolikrat a dlouho. Pak mi pomohl =
zdrojovy
kod, ktery jsem tady od
nekoho dostal. Pokud by jsi si nevedel rady, snad by se na me autor =
(ted
kdyby jsi me zabil, tak si
nevzpomenu na jmeno) nezlobil.
Ted si vzpominam, ze nakonec jsem to nejak kombinoval se zdrojakam P.
Vonese.... no zkus, kdyby Ti
tyhle rady nepomohly, musis byt vic konkretni (dal jsi nam strasne malo
informaci - oper. sys.,
ver. Delphi, ver InstallShieldu atd.)a urcite Ti tady nekdo poradi.
Ahoj, Jirka
=20
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky
programator
______________________________________________________________________
Reklama:
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
LANGDRIVER
[*] "Netu�il, Roman, Ing." - 19.12.2002 15:07:46
Ahoj,
prosim Te, porad mi, jak to mam udelat az v aplikaci.
Mam D6 Prof.
Diky, Roman
-----Original Message-----
From: TOROLA electronic - Bednarcik Dalibor [mailto:dalibor(zv)torola(tec)cz]
Sent: Thursday, December 19, 2002 1:51 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: LANGDRIVER
Ahoj, ja byt tebou, tak to udelam uz v programu a na InstallShield bych se
vykaslal.
Co kdyz nekdo bude instalovat program, kterej ti to prenastavi zase na neco
jineho.
> Panove,
> nevite nekdo, jak prinutit InstallShield Expres, aby pro native driver BDE
> Paradox a DBASE nastavil jako vychozi LANGDRIVER CP 852.
>
> Roman
>IB/FB - instalace - client
[*] Jon� Marian <Jonas(zv)komercpoj(tec)cz> - 19.12.2002 15:19:12
Kazdopadne by tam mela byt knihovna GDS32.DLL, neni treba ji =
registrovat, staci aby byla v PATH. Pokud ma byt pripojeni pres TCP/IP =
protokol musi byt v souboru SERVICES radek gds_db 3050/tcp (Toto plati =
pro starsi verze IB, Firebird uz toto omezeni nema)=20
Marian
> -----Original Message-----
> From: Ing. Jiri SOKOL [mailto:JS-delphi(zv)seznam(tec)cz]
> Sent: Thursday, December 19, 2002 2:32 PM
> To: dotaz-delp
> Subject: IB/FB - instalace - client
>=20
>=20
> Ahoj,
>=20
> chci se jen zeptat ... ted dodelavam jeden projekt, ktery=20
> jsem testoval na dvou pocitacich. Ovsem
> na obou byl instalovan FireBird - server.
> Musi se neco instalovat clientovi? CO? Cely server?
> V projektu pouzivam klasicke komponenty (IBDatabase,=20
> IBTransaction, IBQuery atd.)
>=20
> Diky za odpoved.
>=20
> Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
> D6ProfSP2,WinNT
> amatersky programator
>=20
> ______________________________________________________________________
> Reklama:
> Sout=EC=BE o auto na v=EDkend, autor=E1dio Clarion a dal=B9=ED ceny:=20
http://ad2.seznam(tec)cz/redir.cgi?instance=3D39165%26url=3Dhttp://www.auto-p=
lus(tec)cz
- nejlep=B9=ED syst=E9m prodeje ojet=FDch voz=F9 na internetu
IB/FB - instalace - client
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.12.2002 15:35:25
> Kazdopadne by tam mela byt knihovna GDS32.DLL, neni treba ji
> registrovat, staci aby byla v PATH.
Drobne upresneni:
Staci aby byla ve stejnem adresari jako EXE. Neni treba zjistovat
path (to jen pro pripad, ze by to nekoho napadlo :)).
David Lebeda
Problem se zapisem do registru ve WIN9x
[*] Miroslav Mat�jovic <mojmir(zv)ska(tec)cz> - 19.12.2002 16:02:50
Pod W98 me funguje toto:
var
Reg : TRegistry;
begin
Reg := TRegistry.Create; {vytvo�� Reg}
Reg.RootKey := HKEY_CURRENT_USER; {korenov� klic}
Reg.OpenKey('\software\microsoft\Internet Explorer\PageSetup\', true);
{otevre kl��}
Reg.WriteString('margin_left', '0'); {zapse string}
.......
.......
Reg.CloseKey; {zav�e kl��}
Reg.Free; {uvoln� Reg}
end;
Pomale zpracovani SELECTU v IB
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 19.12.2002 16:31:57
> From: Ing. Pavel =AEilinec [mailto:zilinec(zv)email(tec)cz]
> Nevim, jak na IB, ale snad je to podobne s MS SQL:
> Pro rychly vyber vetsinou plati, ze spojovane sloupce maji indexy a
> pokud mozno jde o ciselny kod (treba v pripade Hlavicka <- Detail),
> pze u textovych hodnot bude spojeni pomalejsi.
> Indexy se automaticky pridaji, pokud je sloupec definovan=20
> jako Unique
> nebo jako primarni klic nebo je obsazen v referencni integrite.
Pri optimalizaci slozitych selectu (MSSQL) jsem nahodne zjistil,
ze doplneni indexu pres primarni klic vede nekdy vyraznemu zrychleni
dotazu. Vysvetleni nemam, ale obcas to pouzivam.
Pavel
Image Harddisku
[*] petr-kucera(zv)volny(tec)cz - 19.12.2002 16:52:46
V Linuxu existuje program dd (nekde by se dal i najit zdrojak v C
- napr. v distribuci Debian). Jeho pouziti na tento pripad je dd
if=/dev/hda of=hda.img, kde /dev/hda je jmeno zarizeni, na ktere
je pripojen primarni master a hda.img je jmeno souboru, do
ktereho se zkopiruje obsah celeho disku vcetne vsech dat, ktera
nejsou normalne videt, jako napr. i MBR. Pokud date dd
if=/dev/cdrom of=cd.img, tak dostanete regulerni CD-image, ktery
se da primo palit.
PK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz
[mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Tomas Bradle
Sent: Thursday, December 19, 2002 1:57 PM
To: Delphi konference
Subject: OT: Image Harddisku
Zdravim vsechny,
nevi nekdo, jestli exisuje nejaka utilita, ktera by dejme tomu na
40GB disk ulozila soubor ktery by obsahoval binarni odsah jineho
disku (samozrejme s mensi kapacitou) a potom ten mensi disk
dokazala zase z toho souboru obnovit? Mam na mysli i tabulky
udaju o partitions, zkratka fyzicky celej disk.
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Zmizeni CommonCotnrol
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 19.12.2002 17:22:24
Zmizla mi sada Common Control z palety component nevite jak ji dostat zpet?
Je to divny...
V sude ji vidim jen v nabidce neni...
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Tvoreni objektu v runtime podle zaznamu v ini soub
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 19.12.2002 18:31:17
Zdravim,
potreboval bych poradit, jakym zpusobem by se dali vytvaret objekty
(komponenty) za behu podle zaznamu napr. v ini souboru.
dik
Spider_X
EDBError v IB cislo ci typ chyby?
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 19.12.2002 18:32:23
Aldi vysvetluje
Potrebuji proste reagovat na unique error ktery mam prilepene na 2 polich,je
to lepsi nez prochazet vsechny pole a hledat hodnoty,nebyl by to problem
kdybych tam zaroven nemel i prazdna pole, asi to tedy udelam tak ze otestuji
prazdne pole pri post a pak pri bude jasny ze pri dberror se jedna o jinou
chybu tj. unique key, ale nelibi se mi to, preci jen bych rad vedel cislo
chyby a podle toho zobrazil vlastin chybovou hlasku,to mi prijde lepsi...>Ondra mudruje:
> a preco by si to robil?
>
> > potrebuji ale zjistit o jakou chybu se jedna jak to zjistim??
>
> Ak je to EIBError, potom ma vlastnosti IBErrorCode a SQLCode.
>
> HTH
> TOndrej
Tvoreni objektu v runtime podle zaznamu v ini soub
[*] J�n Harman <harman(zv)volny(tec)cz> - 19.12.2002 19:07:12
Napriklad:
TButton.Create(self);
TButton.Parent := Panel1;
TButton.Left := IniFile.ReadInteger('Button', 'Leva', 10);
TButton.Top := IniFile.ReadInteger('Button', 'Horni', 20);...atd.
J�n Harman, Brno, harman(zv)volny(tec)cz
> Zdravim,
> potreboval bych poradit, jakym zpusobem by se dali vytvaret objekty
> (komponenty) za behu podle zaznamu napr. v ini souboru.
>
> dik
> Spider_X
>
>
EDBError v IB cislo ci typ chyby?
[*] tondrej(zv)t-online.de (TOndrej) - 19.12.2002 20:25:11
>>> Ahoj kluci v IBDatasetu mam event OnPostError
>>> umim zavolat E.CreateFmt to je v poradku -
>>Ondra mudruje:
>> a preco by si to robil?
:-)> Aldi vysvetluje
[snip]
Ja som sa pytal, preco by si v OnPostError vytvaral novu instanciu vynimky
pomocou E.CreateFmt. Pripada mi to zbytocne, kedze v OnPostError uz mas
vytvorenu instanciu vynimky (typu EDatabaseError alebo potomka):
type
TDataSetErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError; var
Action: TDataAction) of object;
Kedze pouzivas TIBDataSet, v Tvojom pripade bude E typu EIBError (alebo
potomka) a tym padom si vies zistit IBErrorCode a SQLCode.
if E is EIBError then
with EIBError(E) do
ShowMessage(Format('[%s] ''%s'' IBError: %d SQLCode: %d',
[ClassName, Message, IBError, SQLCode]));
HTH
TOndrej
Podivne pretypovani
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 19.12.2002 23:42:37
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Pretypovat TADOQuery na TADOCustomDataSet je sice
> korektni, ale problem to neresi,
> protoze IndexFieldNames jsou tam protected.
Kdyby nebyly protected, tak bys nemusel
pretypovavat ;-)> Jaky je vas nazor?
U vyznamnejsich projektu s delsim zivotnim cyklem
zpravidla vkladame z duvodu lepsi modifikovatelnosti programu mezi knihovny
a vlastni aplikaci jeste nase rozhrani.
Takze bychom v aplikaci primo nepouzili TADOQuery,
ale jeho potomka napr. TAppADOQuery a u nej bychom
publikovali tu vlastnost IndexFieldNames.
HTH, pf
Tvoreni objektu v runtime podle zaznamu v ini soub
[*] J�n Harman <harman(zv)volny(tec)cz> - 20.12.2002 00:36:06
Mala oprava:
Tlac := TButton.Create(self);
Tlac.Parent := Panel1;
Tlac.Left := IniFile.ReadInteger('Button', 'Leva', 10);
Tlac.Top := IniFile.ReadInteger('Button', 'Horni', 20);
Tlac.Caption := IniFile.ReadString('Button', 'Label', 'Otevrit');...atd.
J�n Harman, Brno, harman(zv)volny(tec)cz
> Napriklad:
> TButton.Create(self);
> TButton.Parent := Panel1;
> TButton.Left := IniFile.ReadInteger('Button', 'Leva', 10);
> TButton.Top := IniFile.ReadInteger('Button', 'Horni', 20);...atd.
> J�n Harman, Brno, harman(zv)volny(tec)cz
>
> > Zdravim,
> > potreboval bych poradit, jakym zpusobem by se dali vytvaret objekty
> > (komponenty) za behu podle zaznamu napr. v ini souboru.
> >
> > dik
> > Spider_X
> >
> >
>
>
LANGDRIVER
[*] Tom xXx <assas(zv)bonbon(tec)net> - 20.12.2002 07:25:42
>
> Ahoj,
> prosim Te, porad mi, jak to mam udelat az v aplikaci.
>
Zkus se podivat do archivu konference, resilo se to tu aspon 100+1 krat
a nebo mrkni tady http://www.bdesupport.com
a tady
http://info.borland.com/devsupport/bde/bdeapiex/dbiopencfginfolist.html
T.
OT: Image Harddisku
[*] Marek Spisak <spishark(zv)post(tec)cz> - 20.12.2002 07:30:04
> nevi nekdo, jestli exisuje nejaka utilita, ktera by dejme tomu na 40GB disk
> ulozila soubor ktery by obsahoval binarni odsah jineho disku (samozrejme s
> mensi kapacitou) a potom ten mensi disk dokazala zase z toho souboru
> obnovit? Mam na mysli i tabulky udaju o partitions, zkratka fyzicky celej
> disk.
Norton Ghost - umi kompresi a je to spolehlivy nastroj.
Marek Spisak
Tvoreni objektu v runtime podle zaznamu v ini soub
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 20.12.2002 08:45:01
Diky, ale potreboval bych, aby soucasti tech ini zaznamu bylo i jmeno tridy
a podle toho by se az vytvarel objekt.
Spider
----- Original Message -----
From: "J�n Harman" <harman(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 20, 2002 12:36 AM
Subject: Re: Tvoreni objektu v runtime podle zaznamu v ini souboru
> Mala oprava:
> Tlac := TButton.Create(self);
> Tlac.Parent := Panel1;
> Tlac.Left := IniFile.ReadInteger('Button', 'Leva', 10);
> Tlac.Top := IniFile.ReadInteger('Button', 'Horni', 20);
> Tlac.Caption := IniFile.ReadString('Button', 'Label', 'Otevrit');...atd.
> J�n Harman, Brno, harman(zv)volny(tec)cz
>
> > Napriklad:
> > TButton.Create(self);
> > TButton.Parent := Panel1;
> > TButton.Left := IniFile.ReadInteger('Button', 'Leva', 10);
> > TButton.Top := IniFile.ReadInteger('Button', 'Horni', 20);...atd.
> > J�n Harman, Brno, harman(zv)volny(tec)cz
> >
> > > Zdravim,
> > > potreboval bych poradit, jakym zpusobem by se dali vytvaret objekty
> > > (komponenty) za behu podle zaznamu napr. v ini souboru.
> > >
> > > dik
> > > Spider_X
> > >
> > >
> >
> >
>
DB-SQL dotaz v Threadu
[*] <jimys(zv)centrum(tec)cz> - 20.12.2002 09:48:55
Dobry den,
chci se zeptat na nasledujici vec ohledne Threadu. Mam obecny
priklad: Mam SQL dotaz, o kterem dopredu vim, ze bude trvat pul
hodiny. Jak zajistit, aby uzivatel mohl pracovat dal a mohl provadeni
dotazu stoupnout/zrusit?
Udelam si Thread, kteremu predam text SQL dotazu. Co vse by mel
obsahovat thread? Jak zajistim to, ze kdyz shodim Thread, ze se na
serveru nebude dale dotaz provadet? A jak predam vysledek selectu do
jineho formulare?
Diky. Jirka
--------------------
MP3 autor�dio SONY CDX-MP30 za 8 990,-!/10 hodin hudby na jednom CD/ odn�mateln� �eln� panel /4x50W/ D-bass / CD-R,RW play / http://user.centrum(tec)cz/redir.php?url=http://www.sony-mobile(tec)cz /Tvoreni objektu v runtime podle zaznamu v ini soub
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 20.12.2002 10:24:08
Mas zajiste nejakou konkretni predstavu k cemu by to mohlo slouzit, tak =
se
pochlub. Ja sem delal program, ktery neco podobneho delal - dal si's na =
formular komponentu a nastavil jeji vlastnosti, pak bylo potreba nejak=20
ulozit a zpetne nacist - zjistil jsem si pri nacitani co to bylo za=20
komponentu (mel jsem vlastni) a podle toho jsem ji vytvoril a nastavil=20
ulozene hodnoty.
MI'RA
-----Original Message-----
From: Michal Kuncl [mailto:spider_x(zv)quick(tec)cz]
Sent: Friday, December 20, 2002 8:45 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Tvoreni objektu v runtime podle zaznamu v ini souboru
Diky, ale potreboval bych, aby soucasti tech ini zaznamu bylo i jmeno =
tridy
a podle toho by se az vytvarel objekt.
Spider
----- Original Message -----
From: "J=E1n Harman" <harman(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 20, 2002 12:36 AM
Subject: Re: Tvoreni objektu v runtime podle zaznamu v ini souboru
> Mala oprava:
> Tlac :=3D TButton.Create(self);
> Tlac.Parent :=3D Panel1;
> Tlac.Left :=3D IniFile.ReadInteger('Button', 'Leva', 10);
> Tlac.Top :=3D IniFile.ReadInteger('Button', 'Horni', 20);
> Tlac.Caption :=3D IniFile.ReadString('Button', 'Label', =
'Otevrit');...atd.
> J=E1n Harman, Brno, harman(zv)volny(tec)cz
>
> > Napriklad:
> > TButton.Create(self);
> > TButton.Parent :=3D Panel1;
> > TButton.Left :=3D IniFile.ReadInteger('Button', 'Leva', 10);
> > TButton.Top :=3D IniFile.ReadInteger('Button', 'Horni', 20);...atd.
> > J=E1n Harman, Brno, harman(zv)volny(tec)cz
> >
> > > Zdravim,
> > > potreboval bych poradit, jakym zpusobem by se dali vytvaret =
objekty
> > > (komponenty) za behu podle zaznamu napr. v ini souboru.
> > >
> > > dik
> > > Spider_X
> > >
> > >
> >
> >
>Tvoreni objektu v runtime podle zaznamu v ini soub
[*] J�n Harman <harman(zv)volny(tec)cz> - 20.12.2002 10:57:12
V tom pripade bych pouzil Reference na tridu. Mozno by to slo i jednoduseji,
ale mne napadlo toto:
Uvadim maly priklad (je to vyzkousene = funguje)
J�n Harman, Brno, harman(zv)volny(tec)cz
procedure TForm1.FormCreate(Sender: TObject);
var RefTrida : TControlClass;
NovyObj : TControl;
i : Integer;
PocetObj : Integer;
section, obj : String;
begin
With TIniFile.Create ('f:\Objekty.ini') do begin
PocetObj := ReadInteger('Main', 'Pocet', 0);
if PocetObj = 0 then Exit;
for i := 1 to PocetObj do begin
section := 'Object'+IntToStr(i);
obj := ReadString (section, 'Trida', ''); // nejlepe si tridy
znacit nejakym jednim pismenkem, nebo nejak jinak jednoznacne
if obj = '' then Exit;
Case obj[1] of
'B' : RefTrida := TButton;
'R' : RefTrida := TRadioButton;
'P' : RefTrida := TPanel;
end;
NovyObj := RefTrida.Create(self);
NovyObj.Visible := false;
NovyObj.Parent := self;
NovyObj.Left := ReadInteger(section, 'Left', 10);
NovyObj.Top := ReadInteger(section, 'Top', 20);
//.... tady si muzes nasekat jake vlastnosti chces, jenom co je
vlastni TControl;
// ostatni vlastnosti opet pomoci Case...
NovyObj.Name := 'Object'+IntToStr(i); // musi byt jedinecne
NovyObj.Visible := true;
end;
Free;
end;
end;> Diky, ale potreboval bych, aby soucasti tech ini zaznamu bylo i jmeno
tridy
> a podle toho by se az vytvarel objekt.
>
> Spider
>
> > Mala oprava:
> > Tlac := TButton.Create(self);
> > Tlac.Parent := Panel1;
> > Tlac.Left := IniFile.ReadInteger('Button', 'Leva', 10);
> > Tlac.Top := IniFile.ReadInteger('Button', 'Horni', 20);
> > Tlac.Caption := IniFile.ReadString('Button', 'Label', 'Otevrit');...atd.
> > J�n Harman, Brno, harman(zv)volny(tec)cz
> >
> > > Napriklad:
> > > TButton.Create(self);
> > > TButton.Parent := Panel1;
> > > TButton.Left := IniFile.ReadInteger('Button', 'Leva', 10);
> > > TButton.Top := IniFile.ReadInteger('Button', 'Horni', 20);...atd.
> > > J�n Harman, Brno, harman(zv)volny(tec)cz
> > >
> > > > Zdravim,
> > > > potreboval bych poradit, jakym zpusobem by se dali vytvaret objekty
> > > > (komponenty) za behu podle zaznamu napr. v ini souboru.
> > > >
> > > > dik
> > > > Spider_X
> > > >
> > > >
> > >
> > >
> >
>
>PageContro, TabSheet a Edit
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 20.12.2002 11:19:03
Ahoj,
mam Win 200, D6 Ent. a rad bych Vas poprosil o radu.
Na formu mam PAGE CONTROL se dvema TAB SHEETY. Rad bych na TabSheet1 =
polozil Edit s tim, ze bude videt i v TabSheet2. Jde to ?
V.Tvoreni objektu v runtime podle zaznamu v ini soub
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 20.12.2002 11:23:53
Tak ja to teda vybalim:
delam prohlizec pro jeden diskovy casopis, ve stare verzi se nechali
vytvaret jen obrazky, to jsem resil zhruba nasledovne:
var
TObrazky: array[1..100] of TImage;
i:integer;
begin
for i:=1 to 100 do begin
TObrazky[i]:=TImage.create(form1);
TObrazky[i].left:=ini.readinteger('Obrazek'+inttostr(i),'Left',10);
TObrazky[i].top:=ini.readinteger('Obrazek'+inttostr(i),'Top',10);
TObrazky[i].loadfromfile(ini.readstring('Obrazek'+inttostr(i),'File','empty.
jpg');
... atd...
end;
Potreboval bych vsak zjistit nejaky zpusob jak vytvaret i jine objekty,
treba label nebo edit atd. Ale tak, abych pro kazdy druh objektu nemusel
vytvaret zvlastni pole, stacilo by jedno pro vsechny objekty. Jenze nevim
jak prevest string na jmeno tridy, abych nemusel pro kazdou psat neco
podobnyho tomuhle:
var
TObjekty: array[1..100] of TObject; {nebo neco takovyho}
begin
if ini.readstring('Objekt1','Class','tLabel') = 'tLabel' then
TObjekty[1]:=Tlabel.create;
... atd...
Predem dik za radu
Spider
----- Original Message -----
From: "Tvrz Miroslav" <Miroslav.Tvrz(zv)merlin(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 20, 2002 10:24 AM
Subject: RE: Tvoreni objektu v runtime podle zaznamu v ini souboru
Mas zajiste nejakou konkretni predstavu k cemu by to mohlo slouzit, tak se
pochlub. Ja sem delal program, ktery neco podobneho delal - dal si's na
formular komponentu a nastavil jeji vlastnosti, pak bylo potreba nejak
ulozit a zpetne nacist - zjistil jsem si pri nacitani co to bylo za
komponentu (mel jsem vlastni) a podle toho jsem ji vytvoril a nastavil
ulozene hodnoty.
MI'RA
PageContro, TabSheet a Edit
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.12.2002 11:23:02
QW5vLiBKZGUgdG8gdGFrLCB6ZSBqZWogbmVwb2xvemlzIG5hIFRhYlNoZWV0LCBhbGUgcG9kIG5l
ai4gUGFrIGJ1ZGUNCnZpZGV0IG5hIHZzZWNoIHN0cmFua2FjaA0KDQotLSANCkphbiBGaWFsYQ0K
bWFpbHRvOmphbi5maWFsYUBpb2wuY3oNCg0KMjAuMTIuMjAwMiBMVUtFUyBW4WNsYXY6DQo+IEFo
b2osDQoNCj4gbWFtIFdpbiAyMDAsIEQ2IEVudC4gYSByYWQgYnljaCBWYXMgcG9wcm9zaWwgbyBy
YWR1Lg0KPiBOYSBmb3JtdSBtYW0gUEFHRSBDT05UUk9MIHNlIGR2ZW1hIFRBQiBTSEVFVFkuIFJh
ZCBieWNoIG5hIFRhYlNoZWV0MSBwb2xvemlsIEVkaXQgcyB0aW0sIHplIGJ1ZGUgdmlkZXQgaSB2
IFRhYlNoZWV0Mi4gSmRlIHRvID8NCg0KPiBWLg0KIA==
LANGDRIVER
[*] Dalibor <dalibor(zv)torola(tec)cz> - 20.12.2002 11:56:49
Ja nastavuju LANGDRIVER pro DBASE takhle.
Do HELPU se mrkni na Session.ConfigMode.
procedure NastavLangDriver;
var
TS : tstrings;
begin
TS:=TStringList.Create;
Session.ConfigMode:=[cfmPersistent];
TS.Clear;
TS.Add('LEVEL=3');
TS.Add('LANGDRIVER=DB852CZ0');
Session.ModiFyDriver('DBASE',TS);
Session.SaveConfigFile;
TS.Free;
end;
DBF a celkovy pocet vet
[*] Dalibor <dalibor(zv)torola(tec)cz> - 20.12.2002 12:00:29
Ahoj, ma DBF tabulku, ke ktere pristupuje pres BDE.
Kdyz dam SELECT COUNT(*) ...., tak mi to vypise, ze tabulka ma
16400 vet. Kdyz ji otevru v DOS FOXPRO, tak mi to napise, ze ma
17300 vet.
Tabulka nema indexy. Nevite nekdo, kde by mohl byt problem?DBF a celkovy pocet vet
[*] Petr Hlozek <petr h(zv)mrp(tec)cz> - 20.12.2002 12:13:03
Ahoj
problem muze byt v nastaveni FoxPro. Zalezi na tom jestli mas nastvene
zobrazovani a pocitani take smazanych zaznamu. Je na to prepinac SET DELETED
. Pokud mas SET DELETED ON tak Foxka bude ignorovat vety oznacene prikazem
DELETE. Ty mas zrejme SET DELETED OFF. Proto mozna ten rozdil v poctu vet.
Petr
> Ahoj, ma DBF tabulku, ke ktere pristupuje pres BDE.
> Kdyz dam SELECT COUNT(*) ...., tak mi to vypise, ze tabulka ma
> 16400 vet. Kdyz ji otevru v DOS FOXPRO, tak mi to napise, ze ma
> 17300 vet.
> Tabulka nema indexy. Nevite nekdo, kde by mohl byt problem?
EDBError v IB cislo ci typ chyby?
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 20.12.2002 12:18:09
Aldik se placa po zadnici:
No a to je presne to co jsem potreboval vedet:-))) Jen jsem to neumel
rici:-)))
> type
> TDataSetErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError; var
> Action: TDataAction) of object;
>
> Kedze pouzivas TIBDataSet, v Tvojom pripade bude E typu EIBError (alebo
> potomka) a tym padom si vies zistit IBErrorCode a SQLCode.
>
> if E is EIBError then
> with EIBError(E) do
> ShowMessage(Format('[%s] ''%s'' IBError: %d SQLCode: %d',
> [ClassName, Message, IBError, SQLCode]));
>DBF a celkovy pocet vet
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 20.12.2002 12:27:11
Nezobrazuji se ti tam i smazane vety?
Sroub
> Ahoj, ma DBF tabulku, ke ktere pristupuje pres BDE.
> Kdyz dam SELECT COUNT(*) ...., tak mi to vypise, ze tabulka ma
> 16400 vet. Kdyz ji otevru v DOS FOXPRO, tak mi to napise, ze ma
> 17300 vet.
> Tabulka nema indexy. Nevite nekdo, kde by mohl byt problem?
DBF a celkovy pocet vet - VYRESENO
[*] Dalibor <dalibor(zv)torola(tec)cz> - 20.12.2002 13:08:49
Tim to bylo. Dekuji vsem za odpovedi
Dalibor.
Ahoj
problem muze byt v nastaveni FoxPro. Zalezi na tom jestli mas
nastvene
zobrazovani a pocitani take smazanych zaznamu. Je na to
prepinac SET DELETED
. Pokud mas SET DELETED ON tak Foxka bude ignorovat
vety oznacene prikazem
DELETE. Ty mas zrejme SET DELETED OFF. Proto mozna
ten rozdil v poctu vet.
Petr
URGENTNI-->mizeni komponent z listy
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 20.12.2002 14:41:47
Ahoj kluci,je to jak viroza,pomozte mi prosim,zacali se mi ztracet
komponenty z listy,zacalo to tim ze zmizel COMMON CONTROLS a ted uz mi i z
ostatnich slozek mizi komponenty po celych radach,netusite nekdo co se
stalo?? PROSIMM POMOZTE MI...
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
URGENTNI-->mizeni komponent z listy
[*] Ji�� Mat�jka�����^�F�צ����̿ - 20.12.2002 14:49:13
Pokud vim, tak Delphi 6 (mozna i starsi, ted nevim) zobrazuji pouze
"pouzitelne" komponenty, takze kdyz treba zalozis CLX aplikaci, tak ti
nektere komponenty nebo rovnou zalozky, ktere se nedaji v aplikaci pouzit
mizi, obdobe pri zalozeni treba webserverove aplikace (v mem pripade ISAPI),
apod. Nevim jestli je to tvuj pripad... ale zadny duvod mizeni komponent me
nenapada...
Jirka Matejka
----- Original Message -----
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
To: "delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 20, 2002 2:41 PM
Subject: URGENTNI-->mizeni komponent z listy
> Ahoj kluci,je to jak viroza,pomozte mi prosim,zacali se mi ztracet
> komponenty z listy,zacalo to tim ze zmizel COMMON CONTROLS a ted uz mi i z
> ostatnich slozek mizi komponenty po celych radach,netusite nekdo co se
> stalo?? PROSIMM POMOZTE MI...
>
> Hezky den
>
> Ales Pavel
> TalpaSoft - software pro kazdeho
> tel:0777/992792
> web: http://Talpa.chytrak(tec)cz
> e-casopis: http://rozarkaweb.aktualne(tec)cz
>
>
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.431 / Virov� b�ze: 242 - datum vyd�n�: 18.12.2002
URGENTNI-->mizeni komponent z listy
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.12.2002 14:56:57
> Ahoj kluci,je to jak viroza,pomozte mi prosim,zacali se mi ztracet
> komponenty z listy,zacalo to tim ze zmizel COMMON CONTROLS a ted uz mi i z
> ostatnich slozek mizi komponenty po celych radach,netusite nekdo co se
> stalo?? PROSIMM POMOZTE MI...
To bude jezisek ;-)))
A to mizeni ma jaky charakter: uplne zmizi to tlacitko, nebo se jen zrusi
ikona. V jakych D a pod jakymi W?
Roman
==============================
http://kouzelne.misto(tec)cz
URGENTNI-->mizeni komponent z listy
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 20.12.2002 15:10:29
A mas nainstalovane baliky komponent - obcas se sami odinstauji a pak =
by=20
mohli zmizet prave ty rady
MI'RA
-----Original Message-----
From: Ji=F8=ED Mat=ECjka [mailto:matejka(zv)stemmark(tec)cz]
Sent: Friday, December 20, 2002 2:49 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: URGENTNI-->mizeni komponent z listy
Pokud vim, tak Delphi 6 (mozna i starsi, ted nevim) zobrazuji pouze
"pouzitelne" komponenty, takze kdyz treba zalozis CLX aplikaci, tak ti
nektere komponenty nebo rovnou zalozky, ktere se nedaji v aplikaci =
pouzit
mizi, obdobe pri zalozeni treba webserverove aplikace (v mem pripade =
ISAPI),
apod. Nevim jestli je to tvuj pripad... ale zadny duvod mizeni =
komponent me
nenapada...
Jirka Matejka
----- Original Message -----
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
To: "delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 20, 2002 2:41 PM
Subject: URGENTNI-->mizeni komponent z listy
> Ahoj kluci,je to jak viroza,pomozte mi prosim,zacali se mi ztracet
> komponenty z listy,zacalo to tim ze zmizel COMMON CONTROLS a ted uz =
mi i z
> ostatnich slozek mizi komponenty po celych radach,netusite nekdo co =
se
> stalo?? PROSIMM POMOZTE MI...
>
> Hezky den
>
> Ales Pavel
> TalpaSoft - software pro kazdeho
> tel:0777/992792
> web: http://Talpa.chytrak(tec)cz
> e-casopis: http://rozarkaweb.aktualne(tec)cz
>
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.431 / Virov=E1 b=E1ze: 242 - datum vyd=E1n=ED: 18.12.2002
Edit property udelatko
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 20.12.2002 16:19:40
Ahoj potreboval bych nejake udelatko,ktere by mi umoznilo pohybovat a menit
velikost komponent vlozenych na plochu,existuje neco takoveho?Chci udelat
pro uzivatele primitivni editor,pohybovat komponentama umim,ale pak je tu
jeste resize pomoci tazeni mysi a pomoci ctrl a sipecka:-) atd.
Diky moc..
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
URGENTNI-->mizeni komponent z listy
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 20.12.2002 16:26:42
to nebude ono...:-))) Aldik
>
>
> Pokud vim, tak Delphi 6 (mozna i starsi, ted nevim) zobrazuji pouze
> "pouzitelne" komponenty, takze kdyz treba zalozis CLX aplikaci, tak ti
> nektere komponenty nebo rovnou zalozky, ktere se nedaji v aplikaci pouzit
> mizi, obdobe pri zalozeni treba webserverove aplikace (v mem
> pripade ISAPI),
> apod. Nevim jestli je to tvuj pripad... ale zadny duvod mizeni
> komponent me
> nenapada...
>
> Jirka Matejka
>
OT: Ponuka prace - Praha
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 20.12.2002 16:35:00
Ahoj,
stale hladame programatora(ov) s analytickym myslenim, skusenostami a
odolnostou voci stresovym situaciam s hlavnym zameranim na vyvoj
vnutropodnikoveho IS na hlavny pracovny pomer. Nastup mozny ihned.
Pozadujeme:
- dobra znalost Delphi
- dobra zanalost SQL
- samostatnost
- vysoke pracovne nasadenie
Ponukame:
- financne ohodnotenie podla schopnosti (25-40.000)
- odmeny
- mlady kolektiv
- dynamicky sa rozvijajuca firma
- a dalsie ....
Vyplneny dotaznik http://www.proca(tec)cz/kariera/personalni_dotaznik_c_III.doc,
prosim zasielajte na personalne odd. alebo:
Pavol Kakacka
vedouci vyvoje IS
ProCA spol. s r.o.
V Luzich 818
Praha 4 Libus
tel: +420 234 646 443
kakacka(zv)proca(tec)cz
www.proca(tec)cz
www.brave(tec)cz
www.tesco(tec)cz
uprava TreeView
[*] Branislav Dimo� <listonos(zv)stonline.sk> - 20.12.2002 19:07:38
Zdravim,
Potreboval by som do komponenty TreeView pridat
vlastnost typu TStringList ku kazdemu Item-u.
Aby to vyzeralo zhruba takto
TreeView1.Items.Item[0].MojStringList
Najlepsie by asi bolo priamo upravit TTreeNode
ale je to v delphi 6 personal.
Da sa vobec pri vytvoreni novej komponenty /z TTreeView/ pridat
vlastnost do jej existujucich objektov?
dik
uprava TreeView
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 20.12.2002 21:52:53
Pomoci pretypovani Tag lze do nej ulozit odkaz napriklad na nejaky objekt,
strukturu,.. S tim pak muzes pracovat -
StringList( TreeView1.Items.Item[0].tag)......
Pouze pozor na dealokovani pameti - objekty, na nez tag ukazuje musis
uvolnit ty sam.
Dan
----- Original Message -----
From: "Branislav Dimo�" <listonos(zv)stonline.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 20, 2002 7:07 PM
Subject: uprava TreeView
> Zdravim,
>
> Potreboval by som do komponenty TreeView pridat
> vlastnost typu TStringList ku kazdemu Item-u.
> Aby to vyzeralo zhruba takto
>
> TreeView1.Items.Item[0].MojStringList
>
> Najlepsie by asi bolo priamo upravit TTreeNode
> ale je to v delphi 6 personal.
>
> Da sa vobec pri vytvoreni novej komponenty /z TTreeView/ pridat
> vlastnost do jej existujucich objektov?
>
> dik
>
>
>
>
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
uprava TreeView
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 20.12.2002 23:18:15
> From: Branislav Dimo=B9
> Potreboval by som do komponenty TreeView pridat
> vlastnost typu TStringList ku kazdemu Item-u.
> Aby to vyzeralo zhruba takto
>=20
> TreeView1.Items.Item[0].MojStringList=20
>=20
> Najlepsie by asi bolo priamo upravit TTreeNode
> ale je to v delphi 6 personal.=20
TTreeNode ma property Data, do ktere muzes dat ukazatel
na cokoliv, vcetne TStringList.
> Da sa vobec pri vytvoreni novej komponenty /z TTreeView/ pridat
> vlastnost do jej existujucich objektov?=20
Novou property do jiz existujicich objektu v jeho potomkovi
samozrejme pridat lze.
V tomto pripade ale neni nutne vytvaret novy objekt,
ale lze vyuzit vlastnost Data stavajiciho TTreeNode.
Vaclav Krmela
Este raz D7 personal a freeware
[*] wlado <delphiconf(zv)recover.sk> - 20.12.2002 23:28:24
V nedavnych diskusiach zazneli dva protichodne nazory:
"Na D6 personal muzes delat freeware, na D7Pe uz nelze delat ani
freeware."
vs.
"Padl zde nazor, ze "neplacenou" verzi Delphi 7 personal nelze pouzit pro
vyvoj nekomercniho softwaru. Po opakovanem precteni bodu 2 licencniho
ujednani si myslim, ze to lze."
Ja som po precitani license.txt dosiel k tomu druhemu, ale chcel by som v
tom mat isto.
Takze este raz : Je mozne distribuovat programy urobene v D7 personal ako
freeware?
D5: Vicejazycne aplikace
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 21.12.2002 09:05:56
Nasiel som jeden text s navodom pre blbych, kam v Delphi klikat, aby
vznikla viacjazycna aplikacia, tak ma napadlo to sem hodit, aby to bolo
v archive, keby to niekto hladal. Pre porovnanie tu mozete niekto hodit
podobny zaciatocnicky navod pre variantu s Lokalizatorom.
=== cut begin ===
V�cejazy�n� aplikace prost�edkami Delphi 5:
Z�sada: Aplikaci vytv���me jako pln� anglickou.
1. Prvn� vytvo�en� v�cejazy�n�ch resourc�
a) otev�eme p�vodn� projekt aplikace
b) v menu File/New vybereme "Resource DLL wizard" a odklik�v�me
c) v kroku "Select one or more languages" odfajfkneme po�adovan� jazyky
p�i tom si n�kde nabok pozna��me "Locale ID" ka�d�ho
d) po doklik�n� se do konce se vytvo�� podadres��e se zvlṻ resourcami
pro ka�d� jazyk.
e) v Delphi d�me "Save All" - bacha na to, kam ulo��me "Project
group" soubor (default nab�z� podadres�� posledn� jaz. verze)
Upozorn�n�: Od tohoto okam�iku u� nikdy neotev�r�me p�vodn� projekt,
ale jen .bpg soubor pro tuto skupinu projekt�
2. P�eklad do konkr�tn�ho jazyka
a) otev�eme na�i "project group"
b) v menu vybereme "View" a "Project Manager"
c) rozbal�me p��slu�n� jazyk a otev�eme p��slu�n� modul u Form�
sta�� dablklik, ale u .rc je lep�� prav� tla��to a "Open"
d) u Form� oprav�me Captiony, Itemsy, Texty, u .rc Resourcestringy
e) nezapom�nat "Save" a "Build"!
f) po "Project", "Build All Projects" se v adres��i hlavn�ho projektu
vytvo�� soubory se jm�nem podle aplikace a p��ponou, jakou jsme
ur�ili (odsouhlasili default) v "Resource DLL Wizard", ty mus�me
distribuovat spolu s .EXE a vhodn� jazyk se p�epne s�m podle
nastaven� syst�mu.
3. P�ep�n�n� jazyk� v runtime:
a) ve "View" "Project Manager" vybereme prvn� projekt, ten, kter�
nen� v ��dn�m jazyce ( .EXE).
b) do "uses" p�id�me "ReInit" (kdyby nena�el, p�idat do "Tools",
"Environment", "Library" cestu do $DELPHI$Demos/Richedit)
c) zaveden� DLL pro p��slu�n� jazyk se provede sekvenc�:
if LoadNewResourceModule(Locale_ID) <> 0
then ReinitializeForms;
kde "Locale_ID" je konstanta z bodu 1c) tohoto n�vodu.
4. Zm�ny v programu po lokalizaci
a) otev�eme .bpg (project group) soubor a v "Project Manager"
se p�epneme na nelokalizovan� projekt.
b) p�id�me na Form nap�. nov� tla��tko, d�me mu Caption,
o�et��me OnClick, jin� prvky zru��me, ...
c) aby se zm�ny prom�tli do podadres��� "lokalizovan�ch" modul�,
mus�me znovu spustit "File", "New", "Resource DLL Wizard".
Na obrazovce "Please indicate the update mode for each.."
si v�imn�me, �e m�me mo�nost Doplnit nebo P�epsat.
d) na vyzkou�en� zm�n nesta�� d�t jen "Run", ale nejd��ve mus�me
"Build All Projects" (nezapom�nat "Save All" !)
e) kdybychom p�ed zku�ebn�m spu�t�n�m upravovali n�kterou
jazykovou variantu, nezapome�me v "Project Manager" p�ed
"Run" p�epnout na v�choz� (nelokalizovanou) aplikaci.
=== cut end ===
Prevod textu na grafiku
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 21.12.2002 20:07:23
Chcem dat moznost uzivtelovi vytvorit lubovolny text s lubovolnym fontom a
potom ho previest na grafiku a ulozit ako graficky subor.
Ako na to? Ako najjednoduchsie prevediem text na grafiku?
Vdaka za kazdu radu.
Ico vo viac ako 16 farbach
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 21.12.2002 20:30:40
D6
Ako ulozim TImage do suboru s priponou ico, teda do ikony, s viac ako 16
farbami.
Komponenty, zdrojak....
Vdaka za kazdu radu.Tvoreni objektu v runtime podle zaznamu v ini soub
[*] Lauko Stefan <laukosw(zv)naex.sk> - 22.12.2002 08:06:36
Ahoj,
posielam ti funkcny priklad.
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function IsCompatibleClass(O:TObject; const S:String):Boolean;
var
ClassRef: TClass;
begin
Result:=False;
ClassRef := O.ClassType;
while ClassRef <> nil do
begin
If ClassRef.ClassName = S then begin Result:=True; Break; end;
ClassRef := ClassRef.ClassParent;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
Function GetCmpName(cmp:TComponent):String;
var
n:Integer;
cmpName:String;
Begin
CmpName:= cmp.ClassName;
Delete(cmpName,1,1);
For n:= 1 to 1000000 do
Begin
If Not Assigned(FindComponent(CmpName+IntToStr(n))) then Break;
end;
Result:= CmpName+IntToStr(n);
end;
var
CMP:TComponent;
begin
CMP:= TComponentClass(FindClass(Edit1.Text)).Create(Self);
CMP.Name:= GetCmpName(CMP);
If iSCompatibleClass(CMP,'TControl') then
Begin
TControl(CMP).Parent:=Self;
TControl(CMP).Top:=Random(Height);
TControl(CMP).Left:=Random(Width);
If IsCompatibleClass(CMP,'TImage') then
Begin
// TImage(CMP).Picture.LoadFromFile('C:\...');
end;
End;
end;
Initialization
RegisterClasses([Timage,TButton,TLabel, TEdit]);
end.
Lauko.
PS
Kritiku prijimam az od 2.1.2003, pochvalu ihned. (plati hlavne pre
P.Vones).:-)
Prijemne sviatky.
----- Original Message -----
From: "Michal Kuncl" <spider_x(zv)quick(tec)cz>
Sent: Friday, December 20, 2002 11:23 AM
> Tak ja to teda vybalim:
> delam prohlizec pro jeden diskovy casopis, ve stare verzi se nechali
> vytvaret jen obrazky, to jsem resil zhruba nasledovne:
>
> Potreboval bych vsak zjistit nejaky zpusob jak vytvaret i jine objekty,
> treba label nebo edit atd. Ale tak, abych pro kazdy druh objektu nemusel
> vytvaret zvlastni pole, stacilo by jedno pro vsechny objekty. Jenze nevim
> jak prevest string na jmeno tridy, abych nemusel pro kazdou psat neco
Prejmenovani Unity
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 22.12.2002 11:13:20
Zdravim
Prejmenoval jsem Unitu1 na jiny nazev (File-SaveAs-Test_f) a ulozil.
Pri nasledne kompilaci programu na mne vybehly tyto hlasky.
[Error] Warning Duplicate resource(s);
[Error] Type 10 (RCDATA), ID Tform1;
[Error] File C:\Delphi\Test_dfm resource kept : C:\Delphi\Unit1_dfm
resource discarded
Pritom se ale v adresari objevil
Test_f..pas
Test_f..dfm
Test_f..dcu
Unita, Unita3 obsazene v programu jsem prejmenoval bez problenu.
Vytvoril jsem i novou aplikaci a prejmenovani Unit1 slo bez problemu.
Poradi nekdo co s tim.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.431 / Virov� b�ze: 242 - datum vyd�n�: 17.12.2002
Prejmenovani Unity
[*] tondrej(zv)t-online.de (TOndrej) - 22.12.2002 13:05:34
> Prejmenoval jsem Unitu1 na jiny nazev (File-SaveAs-Test_f) a ulozil.
> Pri nasledne kompilaci programu na mne vybehly tyto hlasky.
>
> [Error] Warning Duplicate resource(s);
> [Error] Type 10 (RCDATA), ID Tform1;
> [Error] File C:\Delphi\Test_dfm resource kept : C:\Delphi\Unit1_dfm
> resource discarded
Pri premenovani unity sa neaktualizuju uses klauzuly v projekte automaticky.
Pravdepodobne sa Tvoj program niekde v uses este stale odkazuje na Unit1. Tym
padom sa snazis pouzit dva .dfm resourcy s rovnakym menom, na co Ta linker
upozornuje.
HTH
TOndrej
Prejmenovani Unity
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 22.12.2002 13:37:41
Zdravim
Pomohlo ulozeni vsech Unit do jineho adresare a nasledne ulozeni projectu.
Je mi ale zahadou, proc v drivejsich aplikacich k tomuto nedoslo.
Viktor Marek
viktor(zv)mbox.vol(tec)cz
>Subject: Prejmenovani Unity
> Zdravim
>
> Prejmenoval jsem Unitu1 na jiny nazev (File-SaveAs-Test_f) a ulozil.
> Pri nasledne kompilaci programu na mne vybehly tyto hlasky.
>
> [Error] Warning Duplicate resource(s);
> [Error] Type 10 (RCDATA), ID Tform1;
> [Error] File C:\Delphi\Test_dfm resource kept : C:\Delphi\Unit1_dfm
> resource discarded
>
> Pritom se ale v adresari objevil
> Test_f..pas
> Test_f..dfm
> Test_f..dcu
>
> Unita, Unita3 obsazene v programu jsem prejmenoval bez problenu.
> Vytvoril jsem i novou aplikaci a prejmenovani Unit1 slo bez problemu.
>
> Poradi nekdo co s tim.
>
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.431 / Virov� b�ze: 242 - datum vyd�n�: 17.12.2002
Prevod textu na grafiku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 14:08:52
From: "Martin Kasman" <martinkasman(zv)centrum.sk>
> Chcem dat moznost uzivtelovi vytvorit lubovolny text s lubovolnym fontom a
> potom ho previest na grafiku a ulozit ako graficky subor.
>
> Ako na to? Ako najjednoduchsie prevediem text na grafiku?
Staci jej vykreslit na canvas bitmapy.
Petr Vones
Viditelnost prveho riadku
[*] wlado <delphiconf(zv)recover.sk> - 22.12.2002 17:58:33
Zdravim,
mam otazku tykajucu sa komponenty RichEdit:
Ako sa da spravit, aby bol prvy viditelny riadok vidiet vzdy cely (napr. po
scrollovani byva vidiet iba cast)?
Delphi 6 RTL Update 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 19:38:49
Delphi 6 Update: official run-time patch is available
http://community.borland.com/article/0,1410,29361,00.html
Petr Vones
Podivne pretypovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:27:04
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> TADOCustomDataset ma protected property IndexFieldNames.
> TADOTable ji publikuje, dokonce published.
> TADOQuery ji nepublikuje.
> TADODataSet ji (myslim) taky publikuje.
>
> Mohu u TADOQuery nastavit IndexFieldNames napr. takto?
>
> TADODataSet(ADOQuery).IndexFieldNames:= ...
Spravnejsi je:
type
TADOQueryAccess = class(TADOQuery);
(...)
begin
TADOQueryAccess(ADOQuery).IndexFieldNames := '...';
end;
Pouzitim jine tridy pro pretypovani (treba TADODataSet) vznika problem v
pripade ze se v budoucnu zmeni hiearchie trid popripade trida TADODataSet.
Petr Vones
Detekce vypnuti WIN9x v konzolove aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:29:27
From: <tyu1(zv)centrum(tec)cz>
> potrebuju udelat konzolovou aplikaci tak, aby necinne visela ve WIN a
> aktivovala se (zapis do logu) pri vypinani, odhlasovani nebo restartu.
Pak asi neni treba aby byla konzolova, ale normalni aplikace s message loop
bez viditelneho okna.
Petr Vones
uprava TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:32:20
From: "Branislav Dimo�" <listonos(zv)stonline.sk>
> Da sa vobec pri vytvoreni novej komponenty /z TTreeView/ pridat
> vlastnost do jej existujucich objektov?
Ano, pomoci udalosti TTreeView.OnCreateNodeClass
Petr Vones
DB-SQL dotaz v Threadu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:34:43
From: <jimys(zv)centrum(tec)cz>
> Udelam si Thread, kteremu predam text SQL dotazu. Co vse by mel
> obsahovat thread? Jak zajistim to, ze kdyz shodim Thread, ze se na
> serveru nebude dale dotaz provadet? A jak predam vysledek selectu do
> jineho formulare?
Tohle bude zalezet predevsim na zpusobu pripojeni k databazi a driveru. Ackoli
bych predpokladal ze toto bude zcela samozrejma vlastnost dnesnich 'modernich'
databazovych technologii se ukazuje, ze je to problematicke.
Petr Vones
zavretie formu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:36:19
From: "Obermaier Petr Ing." <Obermaier(zv)mail.sdas(tec)cz>
> Nejedna. Menim takhle v aplikaci charset vsech komponent formu (s Font
> property) a volam to pro jednotlive formy. Bohuzel musim hlidat, pokud mi
> nejaky form pribude.
Co treba pouzit udalost Screen.OnActiveFormChange ?
Petr Vones
Sdileni souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:45:41
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> 1. Umet prekopirovat ho do zalozni slozky a pak vymazat stary log
> file. No abych mel na kazdy den jeden. Jenze ten service ho stale
> pouziva. Nevim jak to mam udelat. Pokud je totiz soubor vyuzivan jinou
> aplikaci tak nejde smazat.
Pokud ho ta aplikace nevytvari/otvira v modu kde je umozneno sdileni pro cteni
tak mas smulu.
> 2. Je mozne si nejak ten soubor namapovat ? skratka se na nej nejak
> pripojit a kdyz tam ten program neco zapise tak aby se to zobrazilo i
> umne ?. Je mozne s tim souborem tak pracovat sdilene. Neco jsem o File
Musel by si periodicky kontrolovat velikost/datum souboru nebo pouzit nejakou
funkci pro sledovani zmen v souborech (FindFirstChangeNotification atd.)
> mappingu cetl ale skusenosti zadne
To s tim nema moc spolecneho.
Petr Vones
Jak vybrat objekt
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:46:17
From: <virt(zv)volny(tec)cz>
> nevite jak slusne pristoupit k objektu v cizi
> aplikaci..Konkretne potrebuji nacitat radky v listboxu cizi
Nijak, kazda aplikace zije ve svem privatnim adresovem prostoru.
> aplikace, ale nevim jak "uchopit" ten objekt???
>
> asi neco jako (Handle AS TListBox).Items...
Pokud je to listbox a mas jeho handle tak muze s pouzit prislusne zpravy pro
praci s listboxem. Pro standartni zakladni ovladaci prvky (neplati pro
COMCTL32) totiz system sam zajistuje potrebny mechanismus pro predavani dat
(v techto zpravach) mezi procesy, ktery by jinak musela ta aplikace sama
podporovat.
Petr Vones
Zapis do event logu zo service
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.12.2002 22:58:07
From: "Martin �ajbik" <cajbik(zv)sct.sk>
> programujem service v Delphi a v pripade vyskytu chyby pouzivam metodu
> LogMessage na zapis spravy do event logu. Okrem samotnej spravy sa vsak v
> event logu zobrazi vzdy aj nasledovny text:
>
> The description for Event ID ( 0 ) in Source ( SvcAgent ) cannot be found.
> The local computer may not have the necessary registry information or
> message DLL files to display messages from a remote computer. The following
> information is part of the event:
>
> Ako by som to dokazal co najjednoduchsie odstranit ?
Je treba korektne zaregistovat DLL s messagetable pro danou service. V te jsou
pak prislusne texty pro data ID. Popsano je to v MSDN:
http://msdn.microsoft.com/library/en-us/debug/base/event_sources.asp
Petr Vones
Prejmenovani Unity
[*] <aldik(zv)quick(tec)cz> - 24.12.2002 10:21:19
Aldis radi:
Neni unita jako unita, unita s formem se ulozi
pod novym nazvem a s novym formem,jenze ten form
ma stejny nazev jako objekt v tvem projektu
obsazen(puvodni form). Reseni je proste bud
odstran puvodni form/unitu pokud uz ji nebudes
pouzivat,nebo jen prejmenuj form...
Melo by to byt toto
> Viktor Marek se plasii:
> Prejmenoval jsem Unitu1 na jiny nazev (File-
> SaveAs-Test_f) a ulozil.
> Pri nasledne kompilaci programu na mne
> vybehly tyto hlasky.
>
> [Error] Warning Duplicate resource(s);
> [Error] Type 10 (RCDATA), ID Tform1;
> [Error] File C:\Delphi\Test_dfm resource
> kept : C:\Delphi\Unit1_dfm
> resource discarded
>
> Pritom se ale v adresari objevil
> Test_f..pas
> Test_f..dfm
> Test_f..dcu
>
> Unita, Unita3 obsazene v programu jsem
> prejmenoval bez problenu.
> Vytvoril jsem i novou aplikaci a
> prejmenovani Unit1 slo bez problemu.
zavretie formu
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 25.12.2002 09:07:12
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> From: "Obermaier Petr Ing." <Obermaier(zv)mail.sdas(tec)cz>
> > Nejedna. Menim takhle v aplikaci charset vsech komponent formu (s =
Font=20
> > property) a volam to pro jednotlive formy. Bohuzel musim hlidat, =
pokud mi=20
> > nejaky form pribude.
>=20
> Co treba pouzit udalost Screen.OnActiveFormChange ?
>=20
Diky, ale spatne si rozumime: "Bohuzel musim hlidat, pokud mi - v =
projektu - nejaky form pribude." Ten charset menim najednou v cele =
aplikaci, tedy ve vsech formech.zavretie formu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 25.12.2002 11:07:21
> From: Obermaier Petr Ing.
>
> "Bohuzel musim hlidat, pokud mi
> - v projektu - nejaky form pribude." Ten charset menim
> najednou v cele aplikaci, tedy ve vsech formech.
Nebylo by lepsi si udelat nejakeho potomka TForm,
ktery by mel potrebnou funkcionalitu zmeny charsetu
a ostatni Formy jiz bezpracne odvozovat od tohoto.
Vaclav Krmela
Aplikace, ktera neni na liste, ale vedla hodin ve
[*] Jan �imeck� - 25.12.2002 12:02:44
Dobry den,
chtel bych se Vas rad zeptat, jak vytvorit aplikaci, ktere pobezi vedle
hodin a po kliknuti na ikonu spusti okno. Asi jste to zde jiz nekdy resili,
ale v e-mailech co jiz dostavam od tud pul roku se mi nic nepodarilo najit.
Pokud se mi rozhodnete odepsta, tak prosim, aby jste na me mluvili skoro
jako na zacatecnika.
Predem dekuji za vasi odpoved. S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan Simecky
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.427 / Virov� b�ze: 240 - datum vyd�n�: 6.12.2002
Aplikace, ktera neni na liste, ale vedla hodin ve
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.12.2002 17:59:19
TmVqamVkbm9kdXNzaSBjZXN0YSBqZSBzdGFobm91dCBzaSBuZWpha291IGtvbXBvbmVudHUgcHJv
ICJUcmF5Ii4NCk5hcHIuIG5hIHd3dy50b3JyeS5uZXQgc2UgamljaCB2YWxpIGhyb21hZHkuIFN0
YWNpIHphZGF0IHZ5aGxlZGF2YW5pLg0KSmVkbm9keWNoYSBuYXByLiBBbnRUYXNrQmFyLCBrb21m
b3J0bmkgYSB2ZWxrYSB0cmViYSBDb29sVHJheQ0KUnVjbmkgcHJhY2UgamUgcHJlcyBBUEkgZnVu
a2NpIFNoZWxsX05vdGlmeUljb24oKQ0KDQotLSANCkphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFs
YUBpb2wuY3oNCg0KMjUuMTIuMjAwMiBKYW4gimltZWNr/ToNCj4gY2h0ZWwgYnljaCBzZSBWYXMg
cmFkIHplcHRhdCwgamFrIHZ5dHZvcml0IGFwbGlrYWNpLCBrdGVyZSBwb2JlemkgdmVkbGUNCj4g
aG9kaW4gYSBwbyBrbGlrbnV0aSBuYSBpa29udSBzcHVzdGkgb2tuby4gQXNpIGpzdGUgdG8gemRl
IGppeiBuZWtkeSByZXNpbGksDQo+IGFsZSB2IGUtbWFpbGVjaCBjbyBqaXogZG9zdGF2YW0gb2Qg
dHVkIHB1bCByb2t1IHNlIG1pIG5pYyBuZXBvZGFyaWxvIG5haml0Lg0KPiBQb2t1ZCBzZSBtaSBy
b3pob2RuZXRlIG9kZXBzdGEsIHRhayBwcm9zaW0sIGFieSBqc3RlIG5hIG1lIG1sdXZpbGkgc2tv
cm8NCj4gamFrbyBuYSB6YWNhdGVjbmlrYS4=
TCustomForm, Cut, Copy, Paste
[*] Daniel Dedek <admin2.ok.prague(zv)embassy.mzv(tec)cz> - 27.12.2002 16:29:50
Ahoj,
nevite nekdo proc nefunguje Copy, Cut, Paste ap. na dynamicky vytvorenem
formulari (odvozenem od TCustomForm) v pripade, ze do menu k jednotlivym
TMenuItem priradim standardni actions (TEditCut, TEditCopy atd.)? Dokud
nepriradim do menu ty standardni actions, je vse normalni. Stejne tak vse
funguje, kdyz je dynam. vytvarenej form odvozenej od TForm.
Mam toto (nova Unit):
type TTestForm = class(TCustomForm)
private
Memo: TMemo;
public
constructor Create(AOwner: TComponent);override;
end;
a
constructor TTestForm.Create(AOwner: TComponent);
begin
CreateNew(AOwner, 0);
Memo.Create(Self);
Memo.Parent := Self;
end;
nekde v hlavnim formu je:
var F: TTestForm;
begin
F := TTestForm.Create(Application);
F.Show;
end;
pak na hlavni form nahazim ActionList, do nej standardni akce (TEditCut,
TEditCopy atd.) a dal prihodim na formular MainMenu. Jakmile ale propojim do
MenuItem akci, treba EditCopy1, prestane mi ten vytvorenej TestForm reagovat
na Copy (nefunguje proste Ctrl+C). A to plati pro vsechny standardni akce.
Zajimavy je, ze kdyz je TTestForm odvozenej od TForm (misto od TCustomForm),
je vsechno OK.
Trapim se s tim uz tri dny, nepotkal jste to uz prosim nekdo?
Diky, Dan Dedek
D5: Prepinani jazyku v runtime a TQuickRep
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 27.12.2002 19:23:59
Hello All!
Podla \demos\richedit funguje ok, ale pri ReinitializeForms sa nove
resource zavedu len pre TForm a ich potomkov. Q-reporty zostanu tak, ako
boli po starte (ale vtedy sa vyberu spravne podla locale).
Zo zdrojaku ReinitializeForms je pricina jasna, ale nechce sa mi
objavovat ameriku - mate niekto v archive, co sa tam ma pridat, aby sa
aktualizovali resources aj pre TQuickRep ?
Mimochodom, asi pred tyzdnom (presne 21.12. 9:05) som sem posielal
nejaky text o viacjazycnych aplikaciach, ale v konferencii sa mi
nevratil, takze to vianocne 'ticho' mozno ma ciastocne na svedomi aj
mail-robot.
Hodne uspechu v novem roce 2003.
V.Mlich http://www.rar(tec)cz
Sinea - promena do sestavy
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 27.12.2002 20:24:51
Zdravim
Lze dostat globalni promenne z aplikace do sestavy Sinea (3.39y) jinym
zpusobem nez pres Sestava.parametry.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.434 / Virov=E1 b=E1ze: 243 - datum vyd=E1n=ED: 25.12.2002
Sinea - promena do sestavy
[*] Roland Turcan <rolo(zv)sedas.sk> - 27.12.2002 21:36:50
<<< 27. 12. 2002 21:35 - Viktor Marek "viktor(zv)mbox.vol(tec)cz" >>>
VM> Lze dostat globalni promenne z aplikace do sestavy Sinea (3.39y) jinym
VM> zpusobem nez pres Sestava.parametry.
OnVypoctiFunkce.
--
Best regards, TRoland
Sinea - promena do sestavy
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 27.12.2002 22:19:51
> From: Viktor Marek
>
> Lze dostat globalni promenne z aplikace do sestavy Sinea
> jinym zpusobem nez pres Sestava.parametry.
Prave k tomuto ucelu jsou parametry urceny.
Kazda jina cesta je zbytecna komplikace.
Jinak to lze pres:
- fiktivni kalkulovane datove polozky
- uzivatelske funkce v kombinaci s OnVypoctiFunkce
- pres OnGetData
- programovou modifikaci PTS souboru predlohy
- preprogramovanim interface Siney
Vaclav Krmela
OT: dbexpmysql.dll
[*] Petr Jendrejovsky <jermen-delphi(zv)atlas(tec)cz> - 28.12.2002 00:04:19
Uctive pozdraveni!
Snazim se propojit Delphi 6 s MySQL a cele mi to pada na knihovne
"dbexpmys.dll". Na netu jsem se docetl, ze je treba vymenit ji za novou
"dbexpmysql.dll", kterou neni mozne sehnat jinak nez jako soucast celeho
Delphi 6 Update. Nemohl by mi ji nekdo prosim poslat? Dekuji pripadnemu
dobrotivemu clovicku...
Petr Jendrejovsky
dbexpmysql.dll
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.12.2002 00:07:38
From: "Petr Jendrejovsky" <jermen-delphi(zv)atlas(tec)cz>
> Snazim se propojit Delphi 6 s MySQL a cele mi to pada na knihovne
> "dbexpmys.dll". Na netu jsem se docetl, ze je treba vymenit ji za novou
> "dbexpmysql.dll", kterou neni mozne sehnat jinak nez jako soucast celeho
> Delphi 6 Update. Nemohl by mi ji nekdo prosim poslat? Dekuji pripadnemu
Update Delphi by jsi mel mit tak jako tak, v cem je tedy problem ? Na Delphi 6
potrebujes Update Pack #2 a RTL Update Pack #2, vse je ke stazeni tady:
http://www.borland.com/products/downloads/download_delphi.html
Petr Vones
FireBird - vratenie cisla s decimalseparator "," -
[*] Roland Turcan <rolo(zv)sedas.sk> - 28.12.2002 01:01:59
<<< 28. 12. 2002 0:59 - Roland Turcan "rolo(zv)sedas.sk" >>>
RT> Ako by som dostal zo selectu cislo ktore by bolo formatovane s decimal
RT> separatorom "," a nie ako to on vrati ".". Ide mi o to ze potrebujem
RT> aby mi ulozena procedure vratila jeden dlhy text, ktory je pokladany z
RT> roznych fieldov roznych typov ale ciselne by som potreboval formatovat
RT> na "12345,12 Sk".
RT> Uvazujem o UDF s vyuzitim formatu, ale to by som chcel pouzit len ako
RT> vychodisko z nudze.
RT> PS: DisplayFormat mi neriesi problem.
Naimportoval som si truncate z FBUDF a potom to ide napr. takto:
select truncate(12345.52845)||','||cast((12345.52845-truncate(12345.52845))*100 as numeric(2,0)) from rdb$database;
PS: Dufam, ze to niekomu v buducnosti pomoze.
--
Best regards, TRoland
Vytvoreni nove tridy - zacatecnicky dotaz
[*] 3dimension <3dimension(zv)seznam(tec)cz> - 28.12.2002 15:14:48
Dobry den,
s delphi zacinam a tak sem si chtel vytvorit vlastni tridu.
Deklarace je tady:
TMyClass = class (TObject)
private
FX: Integer;
procedure SetX(const Value: Integer);
public
property X : Integer read FX write SetX;
end;
...
...
procedure TMyClass.SetX(const Value: Integer);
begin
FX := Value;
end;
Pokud ale udelam tlacitko a provedu tohle:
procedure TForm1.Button1Click(Sender: TObject);
var
M : TMyClass;
begin
M.Create;
M.Free;
end;
talcitko zmizi.
Pokud promenou me tridy vytvarim v:
procedure TForm1.FormCreate(Sender: TObject);
begin
P.Create;
end;
tak se objevi nasleduji chyba: "Project Project1.exe raised exception class
EAccessViolation with message 'Access violation at address 00402F85 in
module 'PROJECT1.EXE'. Read of address FFFFFFFF'. Process stopped. Use Step
or Run to continue."
Mohl byste mi nekdo poradit kde delam chybu ?
Predem dekuji.
Vytvoreni nove tridy - zacatecnicky dotaz
[*] MarekFi <MarekFi(zv)centrum(tec)cz> - 28.12.2002 16:12:38
3dimension wrote:
> Dobry den,
> s delphi zacinam a tak sem si chtel vytvorit vlastni tridu.
> Deklarace je tady:
>
> TMyClass = class (TObject)
> private
> FX: Integer;
> procedure SetX(const Value: Integer);
> public
> property X : Integer read FX write SetX;
> end;
> ...
>
> ...
> procedure TMyClass.SetX(const Value: Integer);
> begin
> FX := Value;
> end;
>
> Pokud ale udelam tlacitko a provedu tohle:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> M : TMyClass;
> begin
> M.Create;
to je chyba, tady musi byt:
M := TMyClass.Create;
> M.Free;
> end;
>
> talcitko zmizi.
>
> Pokud promenou me tridy vytvarim v:
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> P.Create;
> end;
To bude asi stejna chyba, ale nenapsal jsi jak je P deklarovane.
Marek
Vytvoreni nove tridy - zacatecnicky dotaz
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 28.12.2002 16:43:12
Bezna chyba. Obcas se stane kazdymu. Kdyz uz se stane, tak se tezko hleda (projevuje se jinde, nez vlastne vznikla).
var
M : TMyClass;
begin
M.Create; //spatne
M:=TMyClass.Create; //spravne
S pozdravem Vaclav Riha
Dobry den,
s delphi zacinam a tak sem si chtel vytvorit vlastni tridu.
Deklarace je tady:
TMyClass = class (TObject)
private
FX: Integer;
procedure SetX(const Value: Integer);
public
property X : Integer read FX write SetX;
end;
...
...
procedure TMyClass.SetX(const Value: Integer);
begin
FX := Value;
end;
Pokud ale udelam tlacitko a provedu tohle:
procedure TForm1.Button1Click(Sender: TObject);
var
M : TMyClass;
begin
M.Create;
M.Free;
end;
talcitko zmizi.
Pokud promenou me tridy vytvarim v:
procedure TForm1.FormCreate(Sender: TObject);
begin
P.Create;
end;
tak se objevi nasleduji chyba: "Project Project1.exe raised exception class
EAccessViolation with message 'Access violation at address 00402F85 in
module 'PROJECT1.EXE'. Read of address FFFFFFFF'. Process stopped. Use Step
or Run to continue."
Mohl byste mi nekdo poradit kde delam chybu ?
Predem dekuji.Spojeni tabulek v Delphi a rychlost
[*] <ludek.paral(zv)quick(tec)cz> - 28.12.2002 21:44:17
Ahoj,
mam dotaz :
- je rychlejsi calculated polozka pro zobrazeni v
gridu nebo SQL s vnejsim spojenim?
pristupuji k IB pres IBX-IBQuery. Spojuji dve
tabulky pro zobrazeni nazvu artiklu pomoci SQL:
select
PALETY.*,ARTIKL.ART_SKUPINA,ARTIKL.DRUH_LAHVE
from PALETY left join ARTIKL on
(PALETY.ART_CISLO=ARTIKL.ART_CISLO)
where ARTIKL.DRUH_ARTIKLU=:DRUH_ARTIKLU
order by
PALETY.ART_CISLO,PALETY.ART_DATE1,PALETY.ART_DATE2
PALETY maj cca 8000 polozek a index
ART_CISLO,ART_DATE1,ART_DATE2, ARTIKL ma cca 30
polozek a index ART_CISLO.
Otevreni SQL na servru 1,8GHz na 10 MB siti trva
20-30 sekund, samozrejme ze na mistnim PC se
jedna pouze o vteriny.
---------------------------------------------
Ludek Paral
lupasoft
Sadova 2
352 01 As
Czech Rep.
mobil :00420/728.167118
email :ludek.paral(zv)atlas(tec)cz
ICQ :178625461
MSN :ludek.paral(zv)telecom(tec)cz
Problem s funkci
[*] Tom� Sl�dek�����%iפ�جq�b�̿ - 28.12.2002 23:46:09
Dobry den,
mamo takovy problem s touto funcki:
Tpuvodni = array of string;
function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
Delam si vlastni Unitu, abych nemusel pokazde vypisovat stejne funkce a
procedury.Do teto unity chci vlozit vyse uvedenou funkci ktera ma totoznou
vstupni i vystupni promenou(Tpuvodni). Tedka ten problem, aby unita
fungovala, musim nadefinovat nejakou promenou "Tpuvodni" primo v te me unite
jinak funkce nefunguje. No ale kdyz chci funkci pouzivat ve svych
programech, tak jsem omezen tim ze vstupni a vystupni promena je uz nejak
nadeklarovana (napriklad je to Dynamicke pole obsahujici same stringy). Co
kdyz budu v budoucnu tuto funkci pouzit ne pro pole obsahujici promene tytu
String, ale napriklad pro pole obsahujici promene typu Integer. To si budu
muset vytvorit zase novou funkci ktera uz nebude mit promenou Tpuvodni ale
bude mit treba TpuvodniInteger = array of integer;. Tento zpusob je hodne
neprakticky, to si nemusim vubec vlastni unitu delat, protoze se mi timhle
nic neulehci. Proto zadam ty co vydrzeli cist az zde a pochopili o co mi
jde, nevite jestli nejde
misto promene "Tpuvodni " dat nejakou obecnou promenou, ktere budu moc
priradit jakykoli typ. Diky za kazdou radu, i kdyz si myslim ze to me nikdo
nepochopi a nic se nedozvim :) S pozdravem Tomas Sladek
Problem s funkci
[*] Martin Falta <martin(zv)aprog(tec)cz> - 29.12.2002 01:12:42
Hello Tom�,
pokud trvas na poli, tak si ho muzes nadeklarovat napr. takhle:
Tpuvodni = array of Variant;
ale zkus zapremyslet, zda by nebylo vhodnejsi pouzit napr. TStringList
pro stringy ci TList pro cokoli.
Saturday, December 28, 2002, 11:46:09 PM, you wrote:
TS> Dobry den,
TS> mamo takovy problem s touto funcki:
TS> Tpuvodni = array of string;
TS> function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
TS> Delam si vlastni Unitu, abych nemusel pokazde vypisovat stejne funkce a
TS> procedury.Do teto unity chci vlozit vyse uvedenou funkci ktera ma totoznou
TS> vstupni i vystupni promenou(Tpuvodni). Tedka ten problem, aby unita
TS> fungovala, musim nadefinovat nejakou promenou "Tpuvodni" primo v te me unite
TS> jinak funkce nefunguje. No ale kdyz chci funkci pouzivat ve svych
TS> programech, tak jsem omezen tim ze vstupni a vystupni promena je uz nejak
TS> nadeklarovana (napriklad je to Dynamicke pole obsahujici same stringy). Co
TS> kdyz budu v budoucnu tuto funkci pouzit ne pro pole obsahujici promene tytu
TS> String, ale napriklad pro pole obsahujici promene typu Integer. To si budu
TS> muset vytvorit zase novou funkci ktera uz nebude mit promenou Tpuvodni ale
TS> bude mit treba TpuvodniInteger = array of integer;. Tento zpusob je hodne
TS> neprakticky, to si nemusim vubec vlastni unitu delat, protoze se mi timhle
TS> nic neulehci. Proto zadam ty co vydrzeli cist az zde a pochopili o co mi
TS> jde, nevite jestli nejde
TS> misto promene "Tpuvodni " dat nejakou obecnou promenou, ktere budu moc
TS> priradit jakykoli typ. Diky za kazdou radu, i kdyz si myslim ze to me nikdo
TS> nepochopi a nic se nedozvim :) S pozdravem Tomas Sladek
--
Best regards,
Martin mailto:martin(zv)aprog(tec)cz
registrace Chart FX
[*] bleak <bleak(zv)mvesely(tec)com> - 29.12.2002 11:01:59
zdravim,
mam aplikaci s komponentou Chart Fx. Prenesl jsem ji na jiny pocitac vcetne
prislusneho souboru OCX. Po spusteni programu dojde k vyjimce OleSysError -
trida neni registrovana.
Poradte prosim, jak spravne registrovat do systemu ChartFx.
bleak
Pretypovani double
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 29.12.2002 12:05:41
Zdravim
Je spravny zpusob pretypovani Double na Integer
A: double
B: Integer
B:=trunc(A);
A jeste jedna mozna hloupa otazka. Jak nastavim spousteni Delphi aby se mi
hned neoteviral novy project.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.434 / Virov� b�ze: 243 - datum vyd�n�: 25.12.2002
Problem s funkci
[*] Tom� Sl�dek�����%iפ�جq�b�̿ - 29.12.2002 12:18:25
Zdrav�m,
doposud jsem nize zminovanou deklaraci pouzival v tomto tvaru:
Type
Tpuvodni1 = record
cislo: integer;
Nadpis:string;
Text: string;
end;
Tpuvodni = array of Tpuvodni1;
function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
Pro ka�d� nov� z�znam(ve kter�m uberu polozku napr. "Nadpis") mus�m tedy
vytv��et novou funkci?
Nejde to udelat jinak?
Diky
--------------------------------------------------------
> Hello Tom�,
>
> pokud trvas na poli, tak si ho muzes nadeklarovat napr. takhle:
> Tpuvodni = array of Variant;
>
> ale zkus zapremyslet, zda by nebylo vhodnejsi pouzit napr. TStringList
> pro stringy ci TList pro cokoli.
>
> Saturday, December 28, 2002, 11:46:09 PM, you wrote:
------------------------------------------
> TS> Dobry den,
>
> TS> mamo takovy problem s touto funcki:
>
> TS> Tpuvodni = array of string;
>
> TS> function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
>
> TS> Delam si vlastni Unitu, abych nemusel pokazde vypisovat stejne funkce
a
> TS> procedury.Do teto unity chci vlozit vyse uvedenou funkci ktera ma
totoznou
> TS> vstupni i vystupni promenou(Tpuvodni). Tedka ten problem, aby unita
> TS> fungovala, musim nadefinovat nejakou promenou "Tpuvodni" primo v te me
unite
> TS> jinak funkce nefunguje. No ale kdyz chci funkci pouzivat ve svych
> TS> programech, tak jsem omezen tim ze vstupni a vystupni promena je uz
nejak
> TS> nadeklarovana (napriklad je to Dynamicke pole obsahujici same
stringy). Co
> TS> kdyz budu v budoucnu tuto funkci pouzit ne pro pole obsahujici promene
tytu
> TS> String, ale napriklad pro pole obsahujici promene typu Integer. To si
budu
> TS> muset vytvorit zase novou funkci ktera uz nebude mit promenou Tpuvodni
ale
> TS> bude mit treba TpuvodniInteger = array of integer;. Tento zpusob je
hodne
> TS> neprakticky, to si nemusim vubec vlastni unitu delat, protoze se mi
timhle
> TS> nic neulehci. Proto zadam ty co vydrzeli cist az zde a pochopili o co
mi
> TS> jde, nevite jestli nejde
> TS> misto promene "Tpuvodni " dat nejakou obecnou promenou, ktere budu moc
> TS> priradit jakykoli typ. Diky za kazdou radu, i kdyz si myslim ze to me
nikdo
> TS> nepochopi a nic se nedozvim :) S pozdravem Tomas Sladek
COM1
[*] Petr Kr�l�k - 29.12.2002 15:00:06
Ahoj kluci,
Nedelam v delfach moc dlouho a tak snad omluvite potencionalni
stupidnost tohoto dotazu.
Mam mobil na COMu a potrebuju s nim komunikovat pre AT prikazy.
Potrebuju otevrit port, zapisovat na nej a cist z nej. Nenasel by se
kousek programku? Nebo snad rada kde by se dalo neco o tomhle sehnat?
Petr
Detekce vypnuti WIN9x v konzolove aplikaci
[*] <tyu1(zv)centrum(tec)cz> - 29.12.2002 16:23:21
ano, to me taky napadlo a funguje to.
nezda se mi to vsak dostatecne elegantni s ohledem na setreni=20
systemovymi prostredky a taky velikost programu se docela natahne.
proto jsem si myslel, ze konzolova aplikace je vhodnejsi.
s pozdravem
=46. Hyrs
______________________________________________________________
> Od: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> CC:=20
> Datum: Sun, 22 Dec 2002 22:29:27 +0100
> P=F8edm=ECt: Re: Detekce vypnuti WIN9x v konzolove aplikaci
>
> From: <tyu1(zv)centrum(tec)cz>
> > potrebuju udelat konzolovou aplikaci tak, aby necinne visela ve=20
WIN a=20
> > aktivovala se (zapis do logu) pri vypinani, odhlasovani nebo=20
restartu.
>=20
> Pak asi neni treba aby byla konzolova, ale normalni aplikace s=20
message loop=20
> bez viditelneho okna.
>=20
> Petr Vones
>=20
--------------------
Po=B9lete p=F8=E1n=ED do nov=E9ho roku sv=FDm bl=EDzk=FDm z http://pohl=
ednice.centrum(tec)cz
Problem s funkci
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 29.12.2002 17:49:56
Pokud chces takovyto seznam "cehokoli", pak by bylo asi lepsi pouzit =
TList a vkladat do nej, ubirat z nej "jakekoli" objekty.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Tom=E1=B9 Sl=E1dek <t.sladek(zv)tiscali(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Problem s funkci
> Datum: 28. prosince 2002 23:46
>=20
> Dobry den,
>=20
> mamo takovy problem s touto funcki:
>=20
> Tpuvodni =3D array of string;
>=20
> function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
>=20
> Delam si vlastni Unitu, abych nemusel pokazde vypisovat stejne funkce =
a
> procedury.Do teto unity chci vlozit vyse uvedenou funkci ktera ma =
totoznou
> vstupni i vystupni promenou(Tpuvodni). Tedka ten problem, aby unita
> fungovala, musim nadefinovat nejakou promenou "Tpuvodni" primo v te me =
unite
> jinak funkce nefunguje. No ale kdyz chci funkci pouzivat ve svych
> programech, tak jsem omezen tim ze vstupni a vystupni promena je uz =
nejak
> nadeklarovana (napriklad je to Dynamicke pole obsahujici same =
stringy). Co
> kdyz budu v budoucnu tuto funkci pouzit ne pro pole obsahujici promene =
tytu
> String, ale napriklad pro pole obsahujici promene typu Integer. To si =
budu
> muset vytvorit zase novou funkci ktera uz nebude mit promenou Tpuvodni =
ale
> bude mit treba TpuvodniInteger =3D array of integer;. Tento zpusob je =
hodne
> neprakticky, to si nemusim vubec vlastni unitu delat, protoze se mi =
timhle
> nic neulehci. Proto zadam ty co vydrzeli cist az zde a pochopili o co =
mi
> jde, nevite jestli nejde
> misto promene "Tpuvodni " dat nejakou obecnou promenou, ktere budu moc
> priradit jakykoli typ. Diky za kazdou radu, i kdyz si myslim ze to me =
nikdo
> nepochopi a nic se nedozvim :) S pozdravem Tomas Sladek
ShowModal a parent form
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 29.12.2002 20:41:24
Ahoj kluci mam formMain a pak mam form1,ktery volam jako showModal..pak mam
dalsi form2 ktery volam stejne showmodal..jak na form2.showmodal po
zobrazeni zjistim jak se jmenuje form1?
Dekuji moc a
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Uprava TImage (2. krat)
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 29.12.2002 23:55:45
Pred tym to asi nedoslo, tak to posielam znovu:
Mam v TImage obrazok. Ako mam spustit mspaint (malovani) a nechat obrazok v
nom upravit bez toho, aby som musel obrazok ukladat na disk? Skusal som to
cez OLE ale akosi mi to nejde. Nakopnite ma prosim.
Dakujem za kazdu radu.
----------------------------
Zhanate obrazky na ikonky alebo tlacitka a schopny program na pracu s nimi?
Pouzite program Ikony: http://www.martinkasman.sk/kom/download/ikony.htm
Viac ako 3000 obrazkov na ikonky a tlacitka!
Vytvoreni nove tridy - zacatecnicky dotaz
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 30.12.2002 08:18:08
no mozna bych to jeste doplnil P.
var
M : TMyClass;
begin
M:=TMyClass.Create; //spravne
try
M.X := .....
finally
M.Free;
end;
no jeste me napadlo, ze je asi celkem zbytecny delat zapisovaci metodu
property "X" kdyz v ni jenom priradis
hodnoty Value do FX. Stacio by :
property X : Integer read FX write FX; OnClick mysi jen na predem vymezene oblasti kopm
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 30.12.2002 08:35:51
Cus lidi,
nevi nekdo zda se da udelat aby OnClick fungovalo napriklad jen na urcite
predem vymezene casti(Rect, atr.) nejakeho ovladaciho prvku a kliknuti v
ostatni casti by predavalo udalost normalne dal na dalsi komponenty umistene
casti treba pod timto objektem.
predem dik Pavel
Aplikace, ktera neni na liste, ale vedla hodin ve
[*] Jaroslav �velta <jsvelta(zv)ciglersw.sk> - 30.12.2002 09:28:19
Posielam funkcny priklad.
-------------------------------------------------------------------------=
------
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, =
Dialogs,
ShellAPI, Menus;
const
WM_TRAYICON =3D WM_USER + 1;
type
TForm1 =3D class(TForm)
PopupMenu1: TPopupMenu;
Show1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure Show1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
private
{ Private declarations }
procedure TrayIcon(var Msg: TMessage); message WM_TRAYICON;
public
{ Public declarations }
end;
var
Form1: TForm1;
NIconData: TNotifyIconData;
implementation
{$R *.DFM}
procedure TForm1.TrayIcon(var Msg: TMessage);
var
CursorPos: TPoint;
begin
if Msg.LParam =3D WM_RBUTTONDOWN then begin
GetCursorPos(CursorPos);
PopupMenu1.Popup(CursorPos.x,CursorPos.y);
end else inherited;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action :=3D caNone;
Hide;
Shell_NotifyIcon(NIM_ADD,(zv)NIconData);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with NIconData do begin
hIcon :=3D Application.Icon.Handle;
StrPCopy(szTip,Application.Title);
Wnd :=3D Handle;
uCallbackMessage :=3D WM_TRAYICON;
uID :=3D 1;
uFlags :=3D NIF_MESSAGE + NIF_ICON + NIF_TIP;
cbSize :=3D SizeOf(TNotifyIconData);
end;
Shell_NotifyIcon(NIM_ADD, (zv)NIconData);
end;
procedure TForm1.Show1Click(Sender: TObject);
begin
Show;
Shell_NotifyIcon(NIM_DELETE, (zv)NIconData);
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, (zv)NIconData);
Application.ProcessMessages;
Application.Terminate;
end;
end.
-------------------------------------------------------------------------=
------
Vysvetlenie struktury
TNotifyIconData STRUCT
cbSize DWORD ?
hWnd DWORD ?
uID DWORD ?
uFlags DWORD ?
uCallbackMessage DWORD ?
hIcon DWORD ?
szTip BYTE 64 dup(?)
TNotifyIconData END
cbSize - velkost struktury TNotifyIconData
hWnd - hanedle okna, ktore bude prijimat spravy vyvolane na ikone v =
System Tray
uID - ID ikony v ramci aplikacie (ak by ich bolo viac)
uFlags - urcuje, ktore z poloziek uCallbackMessage,hIcon,szTip obsahuju =
platne udaje
dava sa tu kombinacia konstant NIF_ICON, NIF_MESSAGE, NIF_TIP
uCallbackMessage - identifikator spravy definovanej aplikaciou
hIcon - handle ikony, ktora sa zobrazi v System Tray
szTip - Tooltip text. Zobrazi sa nad ikonou ak tam chvilu podrzis kurzor
BOOL Shell_NotifyIcon, DWORD dwMessage, PNOTIFYICONDATA pnid
DWORD dwMessage: Typ spravy
NIM_ADD - prida ikonu do System Tray
NIM_DELETE - odoberie ikonu
NIM_MODIFY - zmeni ikonu
PNOTIFYICONDATA pnid: Ukazovatel na TNotifyIconData
Jaroslav =8Avelta
Program=E1tor
-----------------------------------
C=CDGLER SOFTWARE Slovakia, a.s.
Slia=E8ska 10, 831 02 Bratislava, SK
-----------------------------------
-----Original Message-----
From: Jan =8Aimeck=FD [mailto:jsimecky(zv)zskuldova(tec)cz]
Sent: Wednesday, December 25, 2002 12:03 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Aplikace, ktera neni na liste, ale vedla hodin ve windows
Dobry den,
chtel bych se Vas rad zeptat, jak vytvorit aplikaci, ktere pobezi vedle
hodin a po kliknuti na ikonu spusti okno. Asi jste to zde jiz nekdy =
resili,
ale v e-mailech co jiz dostavam od tud pul roku se mi nic nepodarilo =
najit.
Pokud se mi rozhodnete odepsta, tak prosim, aby jste na me mluvili skoro
jako na zacatecnika.
Predem dekuji za vasi odpoved. S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan Simecky
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odch=E1dzaj=FAca spr=E1va neobsahuje v=EDrusy.
Skontrolovan=E9 antiv=EDrusov=FDm syst=E9mom AVG =
(http://www.grisoft(tec)cz).
Verzia: 6.0.431 / V=EDrusov=E1 datab=E1za: 242 - d=E1tum vydania: 17. =
12. 2002
=20
OnClick mysi jen na predem vymezene oblasti kopm
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.12.2002 09:47:52
> Odes=EDlatel: Vagner Pavel <Vagner(zv)ceps(tec)cz>
> nevi nekdo zda se da udelat aby OnClick fungovalo napriklad jen na =
urcite
> predem vymezene casti(Rect, atr.)=20
OnMouseDown
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
COM1
[*] Lauko Stefan <laukosw(zv)naex.sk> - 30.12.2002 10:49:13
Ahoj,
hladaj na DSP "CiaPort".
Lauko.
----- Original Message -----
From: "Petr Kr�l�k" <petr.kralik(zv)volny(tec)cz>
Sent: Sunday, December 29, 2002 3:00 PM
> Ahoj kluci,
> Nedelam v delfach moc dlouho a tak snad omluvite potencionalni
> stupidnost tohoto dotazu.
>
> Mam mobil na COMu a potrebuju s nim komunikovat pre AT prikazy.
> Potrebuju otevrit port, zapisovat na nej a cist z nej. Nenasel by se
> kousek programku? Nebo snad rada kde by se dalo neco o tomhle sehnat?
zdojovani radku v DBGridu
[*] martin.kubis(zv)volny(tec)cz - 30.12.2002 12:42:08
Mam nasledujici problem.
Mam tabulku (TTable) s nastavenym filtrem (property Filter) K
tomu odpovidajici dataset (TDataSet). Vysledek filtrovani
zobrazuji v Gridu (TDBGrid). To funguje OK. Kdyz vsak v Gridu
chvilku scrolluju, tak se najednou zacnou objevovat nektere
zaznamy dvakrat i vickrat (Najednou je v gridu nekolik
identickych radku - coz je nesmysl) Taky jsem si vsiml, ze kdyz
scrolluju kurzorovyma sipkama, tak smerem dolu projdu treba pres
100 zaznamu, pak jedu nahoru a najednou jsem nazacatku i kdyz
jsem projel jen pres 20 zaznamu. Tohle mi dost vadi, protoze
potrebuju v gridu multiselectovat par radku a s nima neco
delat,ale multiselect je za techto podminek prakticky nemozny.
Kdyz prochazim radky programove {Bookmarkama) tak se mi to
zdvojuje (znasobuje) taky! Mam pocit, ze je to horsi, pokud mam
zaznamy serazene podle pole ve krerem jsou polozky s diakritikou.
Ono mi to razeni s diakritikou vubec nejak divne
(nedeterministicky) funguje.
Pouzivam BCB6, databaze je v Accessu2k, pristujupu pres ODBC,
pomoci komponent, ktere jsem uvedl v textu.
Jestli jste se nekdo s timto setkali a muzete poradit, tak budu
vdecny.Prechod z BDE-Access na MySQL
[*] martin.kubis(zv)volny(tec)cz - 30.12.2002 12:48:28
Mam databazovy system, {rozsah cca 30 tabulek v databazi, do 1000
zaznamu v tabulce). Mam to v Accessovskem MDB a pristujuju k tomu
pres ODBC, pomoci komponent TDatabase,TTable,TDataSet, TQuery,
TUpdateQuery.
Neco jsem ted nekde cetl a napadlo me, jestli by nebylo lepsi
prejit na jiny zdroj dat, treba MySQL a nebo neco jineho. Ktere
komponenty bych mel pouzit? Co byste mi doporucili v pripade, ze
toho chci co nejmin prepisovat ve stavajicim systemu.
Dik moc, za vase napady.OnClick mysi jen na predem vymezene oblasti kopm
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.12.2002 13:05:42
A nestaci to osetrit primo v tom ovladacim prvku v OnMouseDown ?
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
30.12.2002 Vagner Pavel:
> Cus lidi,
> nevi nekdo zda se da udelat aby OnClick fungovalo napriklad jen na urcite
> predem vymezene casti(Rect, atr.) nejakeho ovladaciho prvku a kliknuti v
> ostatni casti by predavalo udalost normalne dal na dalsi komponenty umistene
> casti treba pod timto objektem.
> predem dik Pavel
zdojovani radku v DBGridu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.12.2002 14:25:40
> zobrazuji v Gridu (TDBGrid). To funguje OK. Kdyz vsak v Gridu
> chvilku scrolluju, tak se najednou zacnou objevovat nektere
> zaznamy dvakrat i vickrat (Najednou je v gridu nekolik
> identickych radku - coz je nesmysl) Taky jsem si vsiml, ze kdyz
Ja bych si (mozna nespravne) tipnul, ze tam neni primarni klic.
A do Accessu bych spise zkusil ADO nez BDE+ODBC.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: martin.kubis(zv)volny(tec)cz
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: zdojovani radku v DBGridu
> Datum: 30. prosince 2002 12:42
>=20
> Mam nasledujici problem.
> Mam tabulku (TTable) s nastavenym filtrem (property Filter) K
> tomu odpovidajici dataset (TDataSet). Vysledek filtrovani
> zobrazuji v Gridu (TDBGrid). To funguje OK. Kdyz vsak v Gridu
> chvilku scrolluju, tak se najednou zacnou objevovat nektere
> zaznamy dvakrat i vickrat (Najednou je v gridu nekolik
> identickych radku - coz je nesmysl) Taky jsem si vsiml, ze kdyz
> scrolluju kurzorovyma sipkama, tak smerem dolu projdu treba pres
> 100 zaznamu, pak jedu nahoru a najednou jsem nazacatku i kdyz
> jsem projel jen pres 20 zaznamu. Tohle mi dost vadi, protoze
> potrebuju v gridu multiselectovat par radku a s nima neco
> delat,ale multiselect je za techto podminek prakticky nemozny.
> Kdyz prochazim radky programove {Bookmarkama) tak se mi to
> zdvojuje (znasobuje) taky! Mam pocit, ze je to horsi, pokud mam
> zaznamy serazene podle pole ve krerem jsou polozky s diakritikou.
> Ono mi to razeni s diakritikou vubec nejak divne
> (nedeterministicky) funguje.
>=20
> Pouzivam BCB6, databaze je v Accessu2k, pristujupu pres ODBC,
> pomoci komponent, ktere jsem uvedl v textu.
>=20
> Jestli jste se nekdo s timto setkali a muzete poradit, tak budu
> vdecny.OnClick mysi jen na predem vymezene oblasti kopm
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 30.12.2002 15:05:45
OK, mozna jsem trochu natvrdlej, ale slo mi jeste o to:
dejme tomu, ze mam potomka TGraphicControl(comp1) (napr.: WxH : =
50x50px)
definuji si obdelik(0,20,width,25) na kterym bude mozno kliknout. =
KLiknu li
mimo tuto oblast(oznaceno *) tak tu udalost poslat dal =
komponente(comp2) co
lezi castecne pod ni. viz nasledujici obr.=20
Tedy neco ve smyslu: kdyz jsi nekliknul na klikaci oblast, tak "vrat
udalost" windowsum at ji poslou dalsimu prvku ktery se nachazi na dane
souradnici ale ma jinej z-order. _______________
| comp1 |
| |=20
||||||||||||||||
| |----------
| * | comp2 |
--------------- |=20
| |=20
| |
| |
----------------=20
=20
dik Pavel
> Odes=EDlatel: Vagner Pavel <Vagner(zv)ceps(tec)cz>
> nevi nekdo zda se da udelat aby OnClick fungovalo napriklad jen na =
urcite
> predem vymezene casti(Rect, atr.)=20
OnMouseDown
Honza
OT:Problemy d .DLL
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 30.12.2002 16:16:27
Ahoj vsichni
Nejprve omluva za OT. Potreboval bych poradit nebo pomoci. Stahl jsem si z
internetu demo program na obsluhu fiskalni tiskarny napsany s nejvetsi
pravdepodobnosti Visual C++. Bohuzel soucasti nebyly knihovny: mfco42d.dll,
mfc42d.dll, msvcrt.dll. Kdyz jsem je ztahl odnekud z internetu, program
funguje, ale v nekterych fcich pada na nechraneny pristup do pameti. Vse
jeda na W2000. PROSIM MOHL BY MI NEKDO PORADIT CO S TIM, POSLAT ODKAZ NA
NEJNOVEJSI VERZE, RESP. POSLAT CO MOZNA NEJNOVEJSI VERZE TECHTO KNIHOVEM NA
SOUKROMY MAIL.
Jaromir Cermak
COM1
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 30.12.2002 16:19:03
Stahni si z me stranky SynaSer. Tam mas hotovou nejen komunikaci se
seriovym portem, ale dokonce i tu obsluhu AT prikazu.
> Mam mobil na COMu a potrebuju s nim komunikovat pre AT prikazy.
> Potrebuju otevrit port, zapisovat na nej a cist z nej. Nenasel by se
> kousek programku? Nebo snad rada kde by se dalo neco o tomhle sehnat?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Item ListBoxu pod mysi
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 30.12.2002 17:26:39
Zkousim upravit kompontu TlistBox tak, aby sly polozky
pretahovat mysi, nemohu ale prijit na to,
jak zjistim, na kterem Itemu jsem pustil mys.
Nevite jak na to ?
Diky za postrceni Pavel
OnClick mysi jen na predem vymezene oblasti kopm
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.12.2002 17:30:18
Takze OnMouseDown je asi jasne - kontrola, zda X,Y lezi ve vymezene =
oblasti.
Problemem asi zustava "dalsi komponenta", neco, co souvisi se z-order.
Snad by slo pouzit TWinControl.FindNextControl: TWinControl.
Jenze to je spis TabOrder nez "z-order".
Funguje to ale pouze pro TWinControl, nikoli pro TGraphicControl. O =
TGraphicControl totiz Windows vubec nevedi, nema Handle, nemohou ji =
poslat message.
Seznam vsech Controls (nejen TWinControl) mas v TWinControl.Controls[i], =
i=3D0..ControlCount-1.
Tam by sis tu komponentu mohl nejak (podle souradnic) najit a nejak ji =
to predat - ovsem ne pres message, treba zavolat rovnou taky OnMouseDown =
s prepoctenymi souradnicemi.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Vagner Pavel <Vagner(zv)ceps(tec)cz>
> Komu: 'delphi-l(zv)clexpert(tec)cz'
> P=F8edm=ECt: RE: OnClick mysi jen na predem vymezene oblasti =
kopmonenty(visualni)
> Datum: 30. prosince 2002 15:05
>=20
> OK, mozna jsem trochu natvrdlej, ale slo mi jeste o to:
>=20
> dejme tomu, ze mam potomka TGraphicControl(comp1) (napr.: WxH : =
50x50px)
> definuji si obdelik(0,20,width,25) na kterym bude mozno kliknout. =
KLiknu li
> mimo tuto oblast(oznaceno *) tak tu udalost poslat dal =
komponente(comp2) co
> lezi castecne pod ni. viz nasledujici obr.=20
>=20
> Tedy neco ve smyslu: kdyz jsi nekliknul na klikaci oblast, tak "vrat
> udalost" windowsum at ji poslou dalsimu prvku ktery se nachazi na dane
> souradnici ale ma jinej z-order.
>=20
>=20
> _______________
> | comp1 |
> | |=20
> ||||||||||||||||
> | |----------
> | * | comp2 |
> --------------- |=20
> | |=20
> | |
> | |
> ----------------=20
> =20
>=20
> dik Pavel
>=20
>=20
> > Odes=EDlatel: Vagner Pavel <Vagner(zv)ceps(tec)cz>
> > nevi nekdo zda se da udelat aby OnClick fungovalo napriklad jen na =
urcite
> > predem vymezene casti(Rect, atr.)=20
>=20
> OnMouseDown
>=20
> Honza
registrace Chart FX do systemu?
[*] bleak <bleak(zv)mvesely(tec)com> - 30.12.2002 18:13:24
zdravim,
mam aplikaci s komponentou Chart Fx. Prenesl jsem ji na jiny pocitac vcetne
prislusneho souboru OCX. Po spusteni programu dojde k vyjimce OleSysError -
trida neni registrovana.
Poradte prosim, jak spravne registrovat do systemu ChartFx.
bleak
Item ListBoxu pod mysi
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 30.12.2002 18:41:26
> From: Lstiburek Pavel
>
> Zkousim upravit kompontu TlistBox tak, aby sly polozky
> pretahovat mysi, nemohu ale prijit na to,
> jak zjistim, na kterem Itemu jsem pustil mys.
Do udalostti DragDrop jsou predavany souradnice mysi.
Potom staci udelat ItemAtPos:
procedure TFormXyy.DstListDragDrop(Sender, Source: TObject;
X, Y: Integer);
var
OldPos: Integer;
NewPos: Integer;
begin
if Source = DstList then
begin
OldPos := DstList.ItemIndex;
NewPos := DstList.ItemAtPos(Point(X, Y), false);
.....
end;
end;
Vaclav Krmela
Item ListBoxu pod mysi
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 30.12.2002 20:38:54
> Odes=EDlatel: Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz>
> Zkousim upravit kompontu TlistBox tak, aby sly polozky=20
> pretahovat mysi, nemohu ale prijit na to,=20
> jak zjistim, na kterem Itemu jsem pustil mys.
> Nevite jak na to ?
OnDragDrop: TListBox.ItemAtPos...
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
zacatecnik- OnClick metoda
[*] Petr Michalec <azzi(zv)centrum(tec)cz> - 30.12.2002 21:35:16
Ahoj, pisu jako skolni seminarku programek simulujici hru pexeso..
jsem zacatecnik a nejde mi o zadna super kouzla. narazil jsem na tento
problem..
jako karty pexesa jsem zvolil objekt Tpanel, ty mam ulozene v poli a
odtud je vysazim nekam na form, takze to nakonec vypada jako 8x8
karticek pexesa, na nich bude text nebo obrazek ??? to ted neresim.
Nevim jak zaridit to aby po kliknuti na jekykoli panel byla spustena
jedna obsluzna procedura, ktera by ukazala lic karty, cili nastavila
spravny obrazek pripadne text..,
v FAQ , ve vyhledavani teto konference ani v Helpu Delphi jsem nic
kloubneho cemu bych rozumel nenalsel.. Muzete mi (nejlepe prikladem
napomoci..) DEkuji..
Zdeje kratky vypis meho reseni ..
{definice Tkarty, jako novej objekt karty..}
TKarta = class(TPanel)
private
text:string;
{ declarations }
public
procedure ukaz_rub();
procedure ukaz_lic();
procedure set_text(text:string);
end;
{je to zatim takova kostra :)) }...{pole}
var
Form1: TForm1;
pole_karet: array[1..64] of Tkarta;
...
procedure Tkarta.ukaz_rub();
begin
caption:='XXXXXX';
end;
procedure Tkarta.ukaz_lic();
begin
caption:='NAZDAR';
end; ... {vytvoreni vsech hracich panelu}
Form1.height:=f_h_d+(v_h_p*(card_e+card_s)+15);
for i:=1 to v_h_p do
begin
for ii:=1 to v_h_p do
begin
pole_karet[index_p]:=TKarta.Create(self);
with pole_karet[index_p] do
begin
Parent := Self;
left:=lhr_x+(ii*card_s)+(ii*card_e);
top:=lhr_y+(i*card_s)+(i*card_e);
width:=64;
height:=64;
end;
pole_karet[index_p].ukaz_rub;
inc(index_p);
end;
end;
Ted jen aby se po kliknuti na jakoukoli kartu zavolala obsluzna
procedura a provedla Tkarta.ukaz_lic()
je mi jasny ze procedura bude potrebovat prijmout objekt na kterej bylo
kliknuto a jeho ukaz_lic() se pak provede,, jak ale zapsat OnClick a
prislusnou proceduru opravdu nevim..
za vase rady dekuji..
--
Petr Michalec, azzi(zv)centrum(tec)cz, Jaselska 959 Celakovice 25088, CR
`Jeste nenastal den abych si nevazil zitrka.'zacatecnik- OnClick metoda
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 30.12.2002 22:48:54
Vytvor si jednu udalost OnClick, ktoru potom prirad vsetkym panelom.
Vsetky panely si rozlis nastavenim vlastnosti TAG od 1 do 64 a potom
vlastnost TAG vkladaj do procedury UKAZ_RUB(TAG). Vlozis to tam tak, ze
pouzijes SENDER z udalosti OnClick.
Procedure TForm1.Panel1OnClick(Sender: TObject);
Begin
If Sender is TPanel then
Ukaz_Rub((Sender as TPanel).Tag);
End;
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Petr Michalec
>: Sent: Monday, December 30, 2002 9:35 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: zacatecnik- OnClick metoda
>:
>: Ahoj, pisu jako skolni seminarku programek simulujici hru pexeso..
>:
>: jsem zacatecnik a nejde mi o zadna super kouzla. narazil jsem na
tento
>: problem..
>:
>: jako karty pexesa jsem zvolil objekt Tpanel, ty mam ulozene v poli a
>: odtud je vysazim nekam na form, takze to nakonec vypada jako 8x8
>: karticek pexesa, na nich bude text nebo obrazek ??? to ted neresim.
>:
>: Nevim jak zaridit to aby po kliknuti na jekykoli panel byla spustena
>: jedna obsluzna procedura, ktera by ukazala lic karty, cili nastavila
>: spravny obrazek pripadne text..,
>:
>: v FAQ , ve vyhledavani teto konference ani v Helpu Delphi jsem nic
>: kloubneho cemu bych rozumel nenalsel.. Muzete mi (nejlepe prikladem
>: napomoci..) DEkuji..
>:
>: Zdeje kratky vypis meho reseni ..
>:
>:
>:
>: {definice Tkarty, jako novej objekt karty..}
>:
>: TKarta = class(TPanel)
>: private
>: text:string;
>: { declarations }
>: public
>: procedure ukaz_rub();
>: procedure ukaz_lic();
>: procedure set_text(text:string);
>: end;
>:
>: {je to zatim takova kostra :)) }
>:
>:
>: ...
>:
>:
>: {pole}
>: var
>: Form1: TForm1;
>: pole_karet: array[1..64] of Tkarta;
>:
>: ...
>:
>:
>: procedure Tkarta.ukaz_rub();
zacatecnik- OnClick metoda
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.12.2002 22:55:06
Pri tom dynamickem vytvareni je treba, aby OnClick metoda jiz
existovala. Vytvor si ji treba tak, ze tam das panel, napises si
OnClick a panel pak smazes.
Pak se pri dynamickem vytvoreni proste priradi ta existujici metoda:
pole_karet[index_p]:=Panel1Click;
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
30.12.2002 Petr Michalec:
> Ahoj, pisu jako skolni seminarku programek simulujici hru pexeso..
> jsem zacatecnik a nejde mi o zadna super kouzla. narazil jsem na tento
> problem..
> jako karty pexesa jsem zvolil objekt Tpanel, ty mam ulozene v poli a
> odtud je vysazim nekam na form, takze to nakonec vypada jako 8x8
> karticek pexesa, na nich bude text nebo obrazek ??? to ted neresim.
> Nevim jak zaridit to aby po kliknuti na jekykoli panel byla spustena
> jedna obsluzna procedura, ktera by ukazala lic karty, cili nastavila
> spravny obrazek pripadne text..,
> v FAQ , ve vyhledavani teto konference ani v Helpu Delphi jsem nic
> kloubneho cemu bych rozumel nenalsel.. Muzete mi (nejlepe prikladem
> napomoci..) DEkuji..
OnClick mysi jen na predem vymezene oblasti kopm
[*] tondrej(zv)t-online.de (TOndrej) - 31.12.2002 02:53:45
> dejme tomu, ze mam potomka TGraphicControl(comp1)
> (napr.: WxH : 50x50px)
> definuji si obdelik(0,20,width,25) na kterym bude mozno
> kliknout. KLiknu li mimo tuto oblast(oznaceno *) tak tu
> udalost poslat dal komponente(comp2) co lezi castecne
> pod ni. viz nasledujici obr.
>
> Tedy neco ve smyslu: kdyz jsi nekliknul na klikaci oblast,
> tak "vrat udalost" windowsum at ji poslou dalsimu prvku
> ktery se nachazi na dane souradnici ale ma jinej z-order.
>
> _______________
> | comp1 |
> | |
> ||||||||||||||||
> | |----------
> | * | comp2 |
> --------------- |
> | |
> | |
> | |
> ----------------
Zavisi to od toho, co vratis pri spracovani spravy CM_HITTEST.
Priklad:
unit Test;
interface
uses
Windows, Messages, Graphics, Classes, SysUtils, Controls;
type
TCustomTestControl = class(TGraphicControl)
private
FClickColor: TColor;
function GetClickRect: TRect;
procedure SetClickColor(Value: TColor);
procedure CMHitTest(var Message: TCMHitTest); message CM_HITTEST;
protected
procedure Paint; override;
property ClickColor: TColor read FClickColor write SetClickColor default
clRed;
public
constructor Create(AOwner: TComponent); override;
end;
TTestControl = class(TCustomTestControl)
published
property ClickColor;
property OnClick;
end;
implementation
{ TCustomTestControl private }
function TCustomTestControl.GetClickRect: TRect;
begin
Result := ClientRect;
InflateRect(Result, 0, - (Result.Bottom - Result.Top) div 3);
end;
procedure TCustomTestControl.SetClickColor(Value: TColor);
begin
if Value <> FClickColor then
begin
FClickColor := Value;
Invalidate;
end;
end;
procedure TCustomTestControl.CMHitTest(var Message: TCMHitTest);
begin
if PtInRect(GetClickRect, SmallPointToPoint(Message.Pos)) then
inherited
else
Message.Result := HTNOWHERE;
end;
{ TCustomTestControl protected }
procedure TCustomTestControl.Paint;
var
R: TRect;
begin
R := ClientRect;
Canvas.Brush.Color := Color;
Canvas.Rectangle(R);
R := GetClickRect;
Canvas.Brush.Color := FClickColor;
Canvas.FillRect(R);
end;
{ TCustomTestControl public }
constructor TCustomTestControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FClickColor := clRed;
end;
end.
HTH
TOndrej
registrace Chart FX
[*] tondrej(zv)t-online.de (TOndrej) - 31.12.2002 02:58:18
> mam aplikaci s komponentou Chart Fx. Prenesl jsem ji na jiny pocitac vcetne
> prislusneho souboru OCX. Po spusteni programu dojde k vyjimce OleSysError -
> trida neni registrovana.
> Poradte prosim, jak spravne registrovat do systemu ChartFx.
Musis na cielovy pocitac skopirovat vsetky potrebne subory, ktore dana .ocx
vyzaduje, a potom ju zaregistrovat, napriklad pomocou nastroja regsvr32 alebo
vlastnym kodom, vid demo TRegSvr.
HTH
TOndrej
Pretypovani double
[*] tondrej(zv)t-online.de (TOndrej) - 31.12.2002 03:07:42
> Je spravny zpusob pretypovani Double na Integer
> A: double
> B: Integer
> B:=trunc(A);
Double na Integer nejde pretypovat. Mozes pouzit funkcie Trunc alebo Round.
> A jeste jedna mozna hloupa otazka. Jak nastavim spousteni Delphi aby se mi
> hned neoteviral novy project.
Pri spusteni Delphi mozes zadat command line parameter -np. Podrobnosti v help
topic "IDE command-line options".
HTH
TOndrej
Jak odchytit LB_ADDSTRING?
[*] Jirka Virt <virt(zv)volny(tec)cz> - 31.12.2002 05:52:25
Ahoj,
nezkousel jste nekdo odchytit hakama zpravu LB_ADDString?
WM_Zpravy mi jdou,ale LB_Zpravy a CB_Zpravy ne.
Diky
Jiri Virt
email: virt(zv)volny(tec)cz
Pretypovani double
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 31.12.2002 06:00:49
A jeste jedna mozna hloupa otazka. Jak nastavim spousteni Delphi aby se mi
hned neoteviral novy project.
Tools / Environment Options / Preferences / Autosave - Project desktop
ShowModal a parent form
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 31.12.2002 09:28:29
> Odes=EDlatel: Ales Pavel <Aldik(zv)quick(tec)cz>
> Ahoj kluci mam formMain a pak mam form1,ktery volam jako =
showModal..pak mam
> dalsi form2 ktery volam stejne showmodal..jak na form2.showmodal po
> zobrazeni zjistim jak se jmenuje form1?
Nevim, zda rozumim,=20
ale pokud Form2 oteviras z Form1, pak by to mohlo byt treba takhle
procedure TForm1.VytvorForm2:
with TForm2.Create(self) do
try
ShowModal;
finally
Free
...
A ve formulari Form2 se muzes na jmeno Form1 odkazovat treba takhle:
TComponent(Owner).Name.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Problem s funkci
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 31.12.2002 09:41:28
> Odes=EDlatel: Tom=E1=B9 Sl=E1dek <t.sladek(zv)tiscali(tec)cz>
Ale vzdyt ti to tady uz nekdo rikal:
> Type
> Tpuvodni1 =3D class
> cislo: integer;
> Nadpis:string;
> Text: string;
constructor Create(ACislo:Integer; ANadpis, AText: String);
> end;
>=20
var
> Puvodni : TList;
Puvodni:=3DTList.Create;
Puvodni.Add(TPuvodni1.Create(1,'aaa','xxx'));
...
a tuhle funkci
> function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
nemusis psat vubec, zavolas proste
Puvodni.Delete(Index) a je to.
A jeste bys to mohl pojmout tak, ze treba
TPuvodni =3D class (TList)
function IndexOfNadpis: Integer;
function IndexOfText: Integer;
a ruzne dalsi opicarny.
Pak=20
var Puvodni: TPuvodni;
Puvodni.Delete(Puvodni.IndexOfNadpis('aaa'))
a pod.
A pokud trida TPuvodni1 ma byt nejak "variabilni", ne natvrdo, pak muzes =
vytvorit hierarchii objektu odvozenych treba od TPuvodni1.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>=20
>=20
> Pro ka=BEd=FD nov=FD z=E1znam(ve kter=E9m uberu polozku napr. =
"Nadpis") mus=EDm tedy
> vytv=E1=F8et novou funkci?
> Nejde to udelat jinak?
>=20
> Diky
>=20
>=20
> --------------------------------------------------------
>=20
> > Hello Tom=E1=B9,
> >
> > pokud trvas na poli, tak si ho muzes nadeklarovat napr. takhle:
> > Tpuvodni =3D array of Variant;
> >
> > ale zkus zapremyslet, zda by nebylo vhodnejsi pouzit napr. =
TStringList
> > pro stringy ci TList pro cokoli.
> >
> > Saturday, December 28, 2002, 11:46:09 PM, you wrote:
>=20
> ------------------------------------------
> > TS> Dobry den,
> >
> > TS> mamo takovy problem s touto funcki:
> >
> > TS> Tpuvodni =3D array of string;
> >
> > TS> function UberZPole(Pole: Tpuvodni; Index: Integer): Tpuvodni;
> >
> > TS> Delam si vlastni Unitu, abych nemusel pokazde vypisovat stejne =
funkce
> a
> > TS> procedury.Do teto unity chci vlozit vyse uvedenou funkci ktera =
ma
> totoznou
> > TS> vstupni i vystupni promenou(Tpuvodni). Tedka ten problem, aby =
unita
> > TS> fungovala, musim nadefinovat nejakou promenou "Tpuvodni" primo v =
te me
> unite
> > TS> jinak funkce nefunguje. No ale kdyz chci funkci pouzivat ve =
svych
> > TS> programech, tak jsem omezen tim ze vstupni a vystupni promena je =
uz
> nejak
> > TS> nadeklarovana (napriklad je to Dynamicke pole obsahujici same
> stringy). Co
> > TS> kdyz budu v budoucnu tuto funkci pouzit ne pro pole obsahujici =
promene
> tytu
> > TS> String, ale napriklad pro pole obsahujici promene typu Integer. =
To si
> budu
> > TS> muset vytvorit zase novou funkci ktera uz nebude mit promenou =
Tpuvodni
> ale
> > TS> bude mit treba TpuvodniInteger =3D array of integer;. Tento =
zpusob je
> hodne
> > TS> neprakticky, to si nemusim vubec vlastni unitu delat, protoze se =
mi
> timhle
> > TS> nic neulehci. Proto zadam ty co vydrzeli cist az zde a pochopili =
o co
> mi
> > TS> jde, nevite jestli nejde
> > TS> misto promene "Tpuvodni " dat nejakou obecnou promenou, ktere =
budu moc
> > TS> priradit jakykoli typ. Diky za kazdou radu, i kdyz si myslim ze =
to me
> nikdo
> > TS> nepochopi a nic se nedozvim :) S pozdravem Tomas Sladek
> Tvoreni objektu v runtime podle zaznamu v ini soub
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 31.12.2002 13:04:24
No sice to nebude odpoved na tvoji utazku, ale coz se vykaslat na ini
soubory a udelat to pres streamy.
Tam uz mas "all inclusive" :-).
Pavel
OnClick mysi jen na predem vymezene oblasti kopm
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 31.12.2002 13:40:45
Done. It's I was looking for :-) dik P.
> Zavisi to od toho, co vratis pri spracovani spravy CM_HITTEST.
Uprava TImage (2. krat)
[*] tondrej(zv)t-online.de (TOndrej) - 31.12.2002 14:03:41
> Mam v TImage obrazok. Ako mam spustit mspaint (malovani) a nechat obrazok v
> nom upravit bez toho, aby som musel obrazok ukladat na disk? Skusal som to
> cez OLE ale akosi mi to nejde. Nakopnite ma prosim.
Je to velmi jednoduche s pouzitim TOleContainer: v designtime tam staci vlozit
ten obrazok ako OLE objekt (Bitmap image).
V runtime mas potom popupmenu, ktore obsahuje akcie (verbs) podporovane tym
OLE objektom (da sa vypnut nastavenim AutoVerbMenu na False). Pre obrazok je
to u mna 'Edit' pre tzv. in-place editing a 'Open', ktora otvori Paint, co je
zrejme to, co chces. Programovo to mozes vyvolat napriklad takto:
procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.DoVerb(ovOpen);
end;
V oboch pripadoch sa zmeny pri editacii ukladaju len do vnutornych dat daneho
objektu. To znamena, ze su drzane v pameti a pri ukonceni Tvojej aplikacie su
znicene, ak ich niekam neuchovas napriklad pomocou metod TOleContainer:
SaveToFile/SaveToStream. Nacitat ich spet potom mozes cez
LoadFromFile/LoadFromStream.
HTH
TOndrej
Jak odchytit LB_ADDSTRING?
[*] tondrej(zv)t-online.de (TOndrej) - 31.12.2002 14:20:29
> nezkousel jste nekdo odchytit hakama zpravu LB_ADDString?
>
> WM_Zpravy mi jdou,ale LB_Zpravy a CB_Zpravy ne.
Pozri sa, ake LBS_xxx konstanty su nastavene v jeho window style
(GetWindowLong(hwnd, GWL_STYLE)). Listbox moze byt ownerdrawn a tym padom
neobsahovat ziadne stringy, alebo moze bezat vo virtualnom rezime. V podstate
to iste (okrem virtualneho rezimu) plati o comboboxe, akurat konstanty pre
jeho window style su pomenovane CBS_xxx.
HTH
TOndrej
Zkouska pripojeni k inetu a pripadne vyvolani dial
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 31.12.2002 14:40:25
Ahoj kluci,mam problem potreboval bych otestovat zda je aktivni pripojeni k
inetu pripadne nekdy vyvolat pripojeni.Zkousel jsem pouzit winnet fce z
knihy tipu a triku a to jsem si nabehl,ukoncuje se mi wokno a podobny
nesmysli,neporadite mi nekdo?Jinak treba je to i v synapsi,tu totiz nasledne
pouzivam k praci s pop3 diky...fce v synapsi by bodla nejvice...nejak ji ale
nemohu najit...
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
Prechod z BDE-Access na MySQL
[*] David Janko <djanko(zv)wizards(tec)cz> - 31.12.2002 15:38:01
Napriklad Zeos se tvari navenek velmi podobne, zkus www.zeoslib.org ...
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 604 164 999
----- Original Message -----
From: <martin.kubis(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 30, 2002 12:48 PM
Subject: Prechod z BDE-Access na MySQL
> Mam databazovy system, {rozsah cca 30 tabulek v databazi, do 1000
> zaznamu v tabulce). Mam to v Accessovskem MDB a pristujuju k tomu
> pres ODBC, pomoci komponent TDatabase,TTable,TDataSet, TQuery,
> TUpdateQuery.
>
> Neco jsem ted nekde cetl a napadlo me, jestli by nebylo lepsi
> prejit na jiny zdroj dat, treba MySQL a nebo neco jineho. Ktere
> komponenty bych mel pouzit? Co byste mi doporucili v pripade, ze
> toho chci co nejmin prepisovat ve stavajicim systemu.
>
> Dik moc, za vase napady.
Zkouska pripojeni k inetu a pripadne vyvolani dial
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 31.12.2002 20:46:47
> Ahoj kluci,mam problem potreboval bych otestovat zda je aktivni pripojeni k
> inetu pripadne nekdy vyvolat pripojeni.Zkousel jsem pouzit winnet fce z
> knihy tipu a triku a to jsem si nabehl,ukoncuje se mi wokno a podobny
> nesmysli,neporadite mi nekdo?Jinak treba je to i v synapsi,tu totiz nasledne
> pouzivam k praci s pop3 diky...fce v synapsi by bodla nejvice...nejak ji ale
> nemohu najit...
Tohle v Synapsi skutecne neni. ;-)
patrne mas na mysli nejake funkce z RAS API, kterou konkretne ti ale
neporadim. nicmene vim, ze tyhle funkce ti pomuzou pouze pokud je pocitac
pripojeny k internetu primo treba nejakym modemem. pokud jsou k internetu
pripojeny pres nejaky router ci dokonce pres celou nejakou sit, tak je
detekce pripojeni k internetu velmi obtizna a nejednoducha.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library