Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TTable.Sort?
[*] Tom� Kup��k����J�����̿ - 30.4.2002 17:26:06
Je mozno vyvolat dialog ale je mozno radit i takto:
ZFilterDialog1.Sort('NAZEV');
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Rumcajs
Sent: Tuesday, April 30, 2002 9:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: TTable.Sort?
Nebyl by nejaky priklad (predpokladam ze je to dialog, ktery musim
vyvolat).
Rumcajs, rumcajs(zv)email(tec)cz
>Na todle pouzivam TZFilterDialog ze sady ZeosControls (zeoslib.org).
Umi
>vzestupne i sestupne, staci zadat nazev sloupce a je to. Jinak by to
>samozrejme slo p�es TQuery a order by...
>T.K.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Rumcajs
Sent: Monday, April 29, 2002 9:06 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: TTable.Sort?
Vcera jsem se jeste ptal na moznost serazeni zaznamu v databati.
potrebuju
obsah databaze (podle filtru) vytisknout. Na to pouzivam QuickReport.
Potrebuju ale, aby se zaznamy seradily podle jednoho sloupce. Nevite kdo
jak
na to?
Rumcajs, rumcajs(zv)email(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 18.4.2002
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
To Petr Vones
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.4.2002 17:30:05
From: <tomsir1.edu(zv)mail.cez(tec)cz>
> Jako lepsi reseni jsi navrhl PostMessage(.....) vcetne prikladu z
> konference z 8.rijna 1998 ... Ted jsem potreboval neco podobneho, takze
> jsem pouzil postup podle prikladu, vse pracuje, ovsem nejsem kovanej v
> messages, takze me zajima, proc je volana procedura Update v obsluze
> uzivatelem definovane udalosti ..
Pokud si vzpominam, tak to bylo asi jen z nejakych kosmetickych duvodu, aby se
okno prekreslilo cele predtim nez se v nem zacne neco dit.
Petr Vones
Mizejici komponenty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.4.2002 17:32:25
From: "Rumcajs" <prajz.rumcajs(zv)quick(tec)cz>
> Uz sem nekolikrat se na toto ptal, ale nedostal jsem uspokojivou odpoved:
> Po znovuotevreni projektu mi z nej zmizi vsechny komponenty TMainMenu.
> Jednotlive MenuItemy zustanou definovane. Kdyz pak pridam znova TMainMenu,
> nemuzu v ni vytvorit tyto MenuItemy - krici, ze uz to existuje a spadne
> delphina an nezname chybe.
> Delalo to na Win98, Win98 SE, Win ME. Mam D4 Client/Server suit
1. Mas instalovane nejake dalsi komponenty nebo IDE experty ?
2. Jaky je presne Build toho Delphi v okne Help | About ?
Petr Vones
TQUERY
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 30.4.2002 18:10:53
Zdravim,
ze souboru DBF zobrazuji data pres BDE a pomoci objektu TQUERY a SQL
prikazu:
select * from tabulka where nazev like 'a%'
Potreboval bych, aby mi SQL dotaz vratil vsechny nazvy zacinajici na pismeno
'a' nebo 'A'. Aby nerozlisoval VELKA a mala pismena. Muzete mi nekdo
poradit, kde se to mam nastavit?
Diky
Martin Pavera
Softwarove vytvorenie ALIASu v ODBC
[*] Martin Cajbik <cajbik(zv)sct.sk> - 30.4.2002 18:13:17
Nie je jednoduchsie radsej pri pripojeni dynamicky vyplnit prihlasovacie
parametre a ziaden alias nevytvarat ? Alebo prave o to vytvorenie aliasu ide
?
MarCaNT (marcant(zv)sct.sk)
Nevie niekto ako sa da softwarovo vytvorit ALIAS v ODBC ??? konkretne
ide o napojenie sa na SQL SERVER 2000. Prikladik pomoze, srdecna vdaka
...
Slavo
W2000 & TTable.Post;
[*] Martin Cajbik <cajbik(zv)sct.sk> - 30.4.2002 18:15:46
S paradoxom som uz sice nejaky ten rok nepracoval ale pokial si pamatam
obvykle bolo nutne na konci zavriet vsetky otvorene tabulky.
MarCaNT (marcant(zv)sct.sk)> nepracuje, jede to pouze na lokale
>
> >
> > > nasledujici problem: pouzivam tabulky Paradox a nekdy se mi stane, ze
> > > se proste ztrati zaznamy. V programu pomoci table1.post; udaje zapisi,
> > > kdyz refreshnu, tak se zobrazi spravne, ale kdyz program ukoncim a
> > > znovu spustim, tak tyto zaznamy nekdy zapsane jsou a jindy ne...nejsou
> > > smazane, proste v db vubec nejsou....nevite cim to muze byt a jak to
> > > odstranit?
> >
> > Pracuje v danou chvili se stejnou databazi jeste nekdo jiny? Pokud ano,
> mas v BDE Admin nastaveno
> > Local Share=true?
> >
Zobrazeni DBF pomoci TQuery
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 30.4.2002 18:24:01
Vyzkousim Tvoji radu.
Povedlo se mi zjistit, ze novejsi DBF funguji (napr dBASEIV).
Muzes mi prosim poslat odkaz, kde sezenu TDBF komponentu.
Diky
Martin Pavera
----- Original Message -----
From: "Slavomir Skopalik" <skopalik(zv)hlubocky.del(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 30, 2002 2:57 PM
Subject: RE: Zobrazeni DBF pomoci TQuery
| Zde je dulezite jaky driver pouzijes pro pristup k datum.
| Podivej se konfuguraci BDE.
| Pokud nebudou fungovat standartni drivery, muzes pouzit ODBC
| (Microsoft FoxPro driver), tusim ze doinstaluji s Office.
| Pokud tohle selze, tak muzes jeste zkusit TDBF componentu,
| tim se vyhnes DBE.
| Pokud potrebujes klast slozite SQL dotazy, tak si muzes pomoci
| pres MIDAS.
|
| Slavek
|
TQUERY
[*] tomsir1.edu(zv)mail.cez(tec)cz - 30.4.2002 20:50:02
a co zkusit neco jako :
select * from tabulka where nazev like 'a%' or nazev like 'A%'
R."Martin Pavera" <martin.pavera(zv)cmail(tec)cz>(zv)clexpert(tec)cz on 30.04.2002 18:10:53
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: TQUERY
Zdravim,
ze souboru DBF zobrazuji data pres BDE a pomoci objektu TQUERY a SQL
prikazu:
select * from tabulka where nazev like 'a%'
Potreboval bych, aby mi SQL dotaz vratil vsechny nazvy zacinajici na
pismeno
'a' nebo 'A'. Aby nerozlisoval VELKA a mala pismena. Muzete mi nekdo
poradit, kde se to mam nastavit?
Diky
Martin Pavera
OnClose
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.4.2002 21:11:52
Wmt1cyB0byBw+GVzdW5vdXQgZG8gT25DbG9zZVF1ZXJ5Lg0KDQotLSANCmluZy4gSmFuIEZpYWxh
DQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQozMC40LjIwMDIgQ2hyaXN0b3BoZXI6DQo+IEFo
b2oiTykNCj4gICBDaGNpIHNlIHphcHRhdCBuYSBuYXNsZWR1amljaSBwcm9ibGVtLiBWeXR2b2pp
bCBqc2VtIHYgRGVscGhpIDYNCj4gamVkbm9kdWNob3UgdXRpbGl0a3UsIGt0ZXJhIG5lY28gbWVy
aSBhIHByaSB1a29uY2VuaSB0ZXRvIHV0aWxpdGt5IG5hbWVyZW5hDQo+IGRhdGEgdWxvemkgZG8g
RGF0YWJhc2UuIFVrbGFkYW5pIGRvIERCIHByb3ZhZGltIHByaSB1ZGFsb3N0aSBPbkNsb3NlLg0K
PiBWc2VmdW5ndWplIGphayBtYSwgYXogbmEgbmFzbGVkdWppY2kgcHJpcGFkLiBNb2plIFV0aWxp
dGthIGJlemkgbmFwb3phZGkgYQ0KPiBvZGhsYXNpIHNlIHV6aXZhdGVsLCBuZWJvIHNlIHJlc3Rh
cnR1amkgd2luLiBWIHRlY2h0byBwcmlwYWRlY2ggV2luDQo+IHNhbW96ZGVqbWUgbW9qaSBVdGls
aXRrdSBiZXppY2kgbmFwb3phZGkgdWtvbmNpLCBhbGUgdWxvemVuaSBuYW1lcmVueWNoIGRhdA0K
PiBkbyBEQiBzZSBuZXByb3ZlZGUgPT4gbmVuYXN0YW5lIHZ1YmVjIE9uQ2xvc2UuIFprb3VzZWwg
anNlbSB1ZGVsYXQgaSB2bGFzdG5pDQo+IERFU1RSVUNUT1IgZm9ybXVsYXJlLCBhbGUgYW5pIHRv
IG5lcG9tb2hsby4gTmV2aW0gcHJvYz8/Pz8gRG9zbGVjaGwganNlbSBzZQ0KPiB6ZSBqZSB0byBz
bmFkIHByb2JsZW0gc2Ftb3RueWNoIERlbHBoaSA2LCBhbGUgYnlsbyB0byB6IG5lemFydWNlbnlj
aCB6ZHJvanUsDQo+IFByb3RvIGplc3RsaSBtYXRlIHMgdGltdG8gcHJvYmxlbWVtIG5lamFrZSB6
a3VzZW5vc3RpLCBwcm9zaW0gcG9yYWR0ZSBtaS4=
Omezeni zobrazovani velke polozky v DBMEMO
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 30.4.2002 21:14:54
Ale puvodni dotaz neznel na vkladani z Wordu ze schraky, ale pro
zobrazeni cisteho textu, delsiho nez 64kB. Viz dole.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
30.4.2002 Jakub Dusek:
> Poznamka: I s PlainText := True se text ze schranky napriklad z Wordu vlozi
> formatovane... Aspon na mych D4.
>> 30.4.2002 Petr Dedecek:
>> > pri zobrazovani BLOB MEMO ( obsahuje textovy soubor ) z databaze mi
>> > DBMEMO pise "Text exceeds memo capacity" pokud byl textovy soubor
>> > vetsi nez 60 Kb. Nevite jak toto omezeni obejit ?
TQUERY
[*] Votava <kvotava(zv)atlas(tec)cz> - 30.4.2002 23:17:33
query.sql.text:='SELECT * FROM tabulka WHERE UPPER(nazev) like "' +
uppercase(edit1.text) + '%"';
s pozdravem Votava
> Zdravim,
>
> ze souboru DBF zobrazuji data pres BDE a pomoci objektu TQUERY a SQL
> prikazu:
> select * from tabulka where nazev like 'a%'
>
> Potreboval bych, aby mi SQL dotaz vratil vsechny nazvy zacinajici na
pismeno
> 'a' nebo 'A'. Aby nerozlisoval VELKA a mala pismena. Muzete mi nekdo
> poradit, kde se to mam nastavit?
>
> Diky
> Martin Pavera
>
Ako zistit udaje z tabulky, ak su vytvarane genera
[*] Vlko II. <vlko_(zv)pobox.sk> - 23.5.2000 20:24:13
Mam taky problem.
Mam spraveny jednoduchy prehladavac siete, ktory uklada do tabulky v InterBase subory, adresare a pod.
Problem je v tom, ze ked pridam nejaku polozku, tak sa mi generuje primary key pomocou generatora priamo v InterBase, ale dokial
nepouzijem na tabulku open a close, tak tam mam stale prazdny udaj. Pouzivam InterBase komponenty (IBDatabase, IBTransaction,IBQuery).
Neexistuje nejaky rychlejsi sposob ako aktualizovat riadok v tabulke bez pouzitia open a close tabulky, co moze byt pri trebars 10000 polozkach dost pomale.OT: schanim CD prehravac
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 1.1.2001 03:03:56
Zdravim
Shanim nejak jednoduchy CD prehravac ve stylu toho, co je ve Win98 (95) ale
aby chodil ve WinXP. Nejlepe i se zdrojakama.
Diky
Zdenek
odposlouchavani COM portu
[*] Zdenek <dkonf(zv)seznam(tec)cz> - 13.8.2001 14:56:31
Perfektni aplikacka, ale zrovna program, u ktereho potrebuju vedet, co
posila na port, se borti pri pouziti PortMonu.
Nevite jak to? Nebo neexistuje jinej soft pro stejny ucel?
> prijde?
>
> Portmon od http://www.sysinternals.com
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Odkaz na record
[*] Peter Surovy <psurovy(zv)uevora.pt> - 14.2.2002 12:53:04 -0000
Ahoj
mam takyto problem:
type TwodCrown=class
..
function TwodCrown.GetCrownAngle:Real;
begin
Result:=CrownAngle;
end;
procedure TwodCrown.SetCrownAngle(Value:Real);
begin
CrownAngle:=Value; *
end;
jedna sa o nastavovanie property CrownAngle
ked v programe volam xxx.CrownAngle:=200;
dojde k vynimke Stack overflow na riadku s hviezdickou :-(
Preco?
Peter Surovy
class property
[*] Peter Surovy <psurovy(zv)uevora.pt> - 14.2.2002 12:56:01 -0000
Ahoj
mam takyto problem:
type TwodCrown=class
..
function TwodCrown.GetCrownAngle:Real;
begin
Result:=CrownAngle;
end;
procedure TwodCrown.SetCrownAngle(Value:Real);
begin
CrownAngle:=Value; *
end;
jedna sa o nastavovanie property CrownAngle
ked v programe volam xxx.CrownAngle:=200;
dojde k vynimke Stack overflow na riadku s hviezdickou :-(
Preco?
Peter Surovy
Constructor- WAS: ( IN FACT: Class property )
[*] Peter Surovy <psurovy(zv)uevora.pt> - 15.2.2002 10:55:01 -0000
Ahoj
no uz to celkom chapem dokonca moj maly objektik
uz si veselo funguje.
ale narazil som na dalsiu vec, ktorej nie celkom rozumiem
class som zadefinoval ako potomka TObject
pretoze nic lepsie ma nenapadlo.
Volam ho v hlavnom unite a co je zvlastne
doteraz ked som pouzival cudzie objekty
ich instancie striktne vyzadovali volanie create.
a nasledne free.
ja mam instanciu
var ddd:TwodCrown
begin
ddd.property prirad
ddd.funkcia funguj
- t.j. ziadne create a ziadne free a funguje to
je to nahoda a moze to niekde nefungovat?
a ako som na to prisiel to je zahada sama o sebe
totiz ked tam create a free dopisem hned
dostanem oznamenie o Acces Violation na
nejakej adrese ktora vobec nie je z toho
mesta kde byvam ;-)
Peter Surovy
----- Original Message -----
From: "Vagner Pavel" <Vagner(zv)ceps(tec)cz>>
> Takova doporucovana zasada je pojmenovavat vnitrni promenu s F.. (
> FCrownAngle:Real -- property CrownAngle:Real...)
>
> kdyz mas tu promenou v private tak k ni muzes pristupovat jen v te tride,
> kdyz ji mas v treba v public tak i zvenku. pokud je to ciste promena tak
> nemas kontrolu jake hodnoty se do ni napriklad daji vkladat.
>
> smys properties je v tom, ze ti zabrani jednak vkladat spatne hodnoty do
> pametove bunky a za druhe umoznuje provadet dalsi cinost spojenou s
> nastavenim hodnoty property .
>
potomkovia vizualnych komponent
[*] Peter Surovy <psurovy(zv)uevora.pt> - 15.2.2002 15:56:55 -0000
Ahoj
mam viz. komponentu(triedu napr.TImage) ktorej metody mi nevyhovuju
ale iba preto, ze ich je malo. Napada ma riesenie
napisat potomka ktory bude obohateny
o par metod ktore potrebujem ale samozrejme chcem
aby tohto potomka mohli pouzivat
aj ostatni programatori ale bez toho aby
museli jeho vlastnosti nastavovat rucne teda aby bol vizualny.
Teda napisat class ktory je odvodeny od Timage
a ma navyse nejake metody asi nie je tazke
ale ako spravit aby si clovek pracujuci po mne
nemusel pri vytvarani TImage nastavovat rucne
poziciu a rozmery a co ja viem co jednoducho to naklikol na form
a iba volal nove metody.
Asi je to dost amaterska otazka ale potrebujem iba
nakopnut a uz si to potom nejako dostudujem. :-)
Alebo by bolo lepsie pristupovat ku tomu uplne inak??
Vdaka za kazdu radu
Peter Surovy
MSSQL 2000 a hstmt chyba
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 17.3.2002 12:01:46
Mas dve (nebo vice) pripojeni na MSSQL server. Zkus se podivat v archivu na
ODBCe (vyhodis to hrozne BDE). TODBCQuery umi SepareConnect;
Sroub
> Nevite prosim nekdo, co by mohla znamenat hlaska "Connection is busy with
> results for another hstmt" kterou mi vypisuje moje aplikace do logovaciho
> souboru? Po teto hlasce vzdycky ztrati aplikace spojeni s SQL serverem.
> Spojeni probiha pres BDE, ODBC (bohuzel). Predem dekuji za rady typu
prejdi
> na ADO.
>
> Diky Jarda
Velikost tabulatoru
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 20.3.2002 11:11:59
Hi,
D5 Prof
Potreboval bych poradit s nasledujici veci. Delam export do *.txt souboru
oddeleneho tabulatory a pro prvni dva sloupce potrebuji nastavit velikost
tabulatoru na vetsi nez defaultne 6 znaku. Nevite nekdo jak na to?
Diky
Sroub
Velikost tabulatoru
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 20.3.2002 11:38:45
No jo, ale ja to delam do txt souboru (ktery ma defaultne asociovany
notepad) a v okamziku kdy ho otevru a tam mam, krome prvniho radku, kde je v
zahlavi slovo 'Datum' (coz je ale 5 znaku), a v prvnim sloupci ve
zbyvajiv�ich radcich datum (9 znaku dd.mm.yyyy) a tim padem dalsi radky
jsou uskocene jakoby o dva tabulatory. Zatim jsem to vyresil tak, ze do
zahlavi pridavam mezery na doplneni
Sroub
"Velikost tabelatoru" je zalezitost zobrazeni. Takze tato velikost by se
mela nastavit spise v tom zobrazovaci, ktery pouzivas (napr. EasyPad nebo
UltraEdit to umi).
> Subject: Velikost tabulatoru
>
> Potreboval bych poradit s nasledujici veci. Delam export do *.txt souboru
> oddeleneho tabulatory a pro prvni dva sloupce potrebuji nastavit velikost
> tabulatoru na vetsi nez defaultne 6 znaku. Nevite nekdo jak na to?
>
Sybase
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 23.3.2002 12:17:16
Kdysi jsem zkousel ODBCe na Informix i Sybase (verze, co je dodavana k
Simatic Step7), ale nebylo to nejak do hloubky. Jenom jsem si hral... Na
Oracle a MS SQL 7.0 jedu pres ODBCe standardne a zatim vse OK (cca 2a pul
rocku). Takze pokud mas ODBC driver, tak to zkus... Odkaz na Luba Fuleho
(autor ODBCe) najdes nekde v konferenci
Cau Sroub
> Ahoj,
>
> mozte mi niekdo doporucit nejake overene komponenty (prinajhorsom i ODBC
> driver) pre pristup k servru Sybase? Potrebujeme iba selektovat data z
> jednej tabulky pre nas system, takze platit za to nechceme.
>
> Dik.
>
> Kakacka Pavol
> KasiX(zv)atlas(tec)cz
fastreport
[*] Tom� Klime�����X�z�ݙ�2��$ - 15.4.2002 12:26:57
Chel by som sa opytat, ci niekto nema componenty FastReport verziu 2.44
Tom� Klime�
DMA Systems spol s r.o.
tel: +421-2-50 25 72 04
e-mail: klimes(zv)dmasys.sk
Mizejici komponenty
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 1.5.2002 04:29:04
Zdravim,
to se mi na D4Pro taky stavalo, hlavne kdyz TMainMenu byly v datovem modulu.
Vyresil jsem to nakupem D6pro, kde se mi ztrata TMainMenu ani jednou
nestala.
Asi nejaka chyba v D4
pavel
> Uz sem nekolikrat se na toto ptal, ale nedostal jsem uspokojivou odpoved:
> Po znovuotevreni projektu mi z nej zmizi vsechny komponenty TMainMenu.
> Jednotlive MenuItemy zustanou definovane. Kdyz pak pridam znova TMainMenu,
> nemuzu v ni vytvorit tyto MenuItemy - krici, ze uz to existuje a spadne
> delphina an nezname chybe.
> Delalo to na Win98, Win98 SE, Win ME. Mam D4 Client/Server suit
> Uz me to zacina ........ vite co
> Rumcajs, rumcajs(zv)email(tec)cz
Dynamicky tvoriaci sa form atd.
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 1.5.2002 04:36:33
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
NewForm: TForm;
begin
try
NewForm := TForm.Create(application);
NewForm.Left := 10;
NewForm.Top := 10;
NewForm.Height := 100;
NewForm.Width := 100;
NewForm.Visible := true;
...
nejake operace, napr. vytvoris dalsi dynamicky nejake ovladaci prvky.
...
finally
NewForm.Free;
end;
end;
Mimochodem, taky dynamicky vytvarim menu, kde strkam tlacitka - sirku
upravuji dle zjistene max .delky
textu v tlacitkach - taky zde strkam TLKabeledEdit (D6), kde je treba zase
zjistit max sirku Labeled a max sirlu Editu a pak vsechny LabeledEdit
usporadat pekne nad sebe.
Je to piplacka...
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> Mate nejake skusenosti potrebujem napady podnety. Ide o to ze mam navrhnut
> clienta ktory bude dostavat vsetky data zo servera a to v nejakom formate
> MAINFORM(Typkomponenty[suradnice],...data atd) a proste toto vsetko
dostanem
> a z toho mam vygenerovat formular so vsetkymi komponentami a naplnenymi
> datami. atd. Ja pri starte apl. poslem iba login udaje udaje o rozliseni
> obrazovky a toto vsetko mi pride. Nechcem samozrejme od Vas presny navod
ako
> to spravit len potrebujem pomoct ako sa daju dynamicky tvorit formulare,
> komponenty za behu. Kde by som sa mohol pozriet ziskat info a tak. Dakujem
> vsetkym kdo vydrzali si tento mail citat az do konca.
>
Dynamicky tvoriaci sa form atd.
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 01.5.2002 07:03:32
Mohu zaslat, co jsem drive delal -> prevod DFM na XML a opet XML na
Formular za behu. Umi to jen par zakladnich komponent...
Pak jsem jeset delal jeste neco podobneho a to s pouzitim Delphi Web
Scriptu II, ktery slouzil jako skriptovaci jazyk pro vytvoreni formulare
(nebo pouzil ten z XML) a nasledne jako jazyk pro osetreni udalosti. Je to
ale oproti nativnimu kodu doooostt pomaleee, ale funguje to. Prosim ozvete
se na muj soukromy mail: Tomas.Rosa(zv)pinknet(tec)cz.> > Mate nejake skusenosti potrebujem napady podnety. Ide o to ze mam navrhnut
> > clienta ktory bude dostavat vsetky data zo servera a to v nejakom formate
> > MAINFORM(Typkomponenty[suradnice],...data atd) a proste toto vsetko
>dostanem
> > a z toho mam vygenerovat formular so vsetkymi komponentami a naplnenymi
> > datami. atd. Ja pri starte apl. poslem iba login udaje udaje o rozliseni
> > obrazovky a toto vsetko mi pride. Nechcem samozrejme od Vas presny navod
>ako
> > to spravit len potrebujem pomoct ako sa daju dynamicky tvorit formulare,
> > komponenty za behu. Kde by som sa mohol pozriet ziskat info a tak. Dakujem
> > vsetkym kdo vydrzali si tento mail citat az do konca.
> >
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
TRichEdit
[*] Karel Svoboda <prokonf(zv)seznam(tec)cz> - 01.5.2002 11:39:02
Dobry den,
mam nasledujici problem:
potrebuji pouzit jednoradkovy vstup, kde bude mozne menit fonty,
velikost, styly pisma ...
Pouzivam na to komponentu RichEdit. Problem je ale v tom, ze nedokazu
omezit maximalni "delku a vysku" textu. Nechci, aby se text
automaticky skroloval ani vertikalne ani horizontalne, proste aby se
do vstupniho okenka veslo jen tolik, klik se tam skutecne vejde, jako
by to byl kousek papiru. Omezeni poctu znaku zde pochopitelne nema
smysl(kazdy znak muze zabrat jinak velike misto).Zkousel jsem si
pohrat se sugnalem EM_SETRECT, ale to mi nejak nefunguje, asi to
nebude to prave orechove...
Nevi nekdo, co s tim?
Diky,
Karel
______________________________________________________________________
Reklama:
Vylepsete svuj prohlizec Internetu na http://software.seznam(tec)cz/listicka
Heslo pro tabulky Paradox
[*] Jan Naiser <tua(zv)wo(tec)cz> - 1.5.2002 12:23:26
Preji pekny den,
o "sile" zaheslovanych tabulek paradoxu toho zde bylo receno jiz dost.
Presto se chci zeptat, zda a jak se da programove tabulka zaheslovat.
Nenasel jsem zatim funkci, ktera by umela do jiz vytvorene tabulky heslo
pridat.
Dekuji, Honza.
allways on top bez focusu
[*] Michal Bilcik <tou(zv)host.sk> - 1.5.2002 13:02:32
Nazdar,
potreboval by som aby formular vyskocil do popredia ale focus by ostal
doteraz aktivnej aplikacii. Ide to ? Asi cez API, dakujem za kazde
info, staci iba info aku funkciu si mam pozriet.
--
Michal Bilcik
allways on top bez focusu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 1.5.2002 14:00:05
SetForegroundWindow
The SetForegroundWindow function puts the thread that created the specified window into the foreground and activates the window. Keyboard input is
directed to the window, and various visual cues are changed for the user.
BOOL SetForegroundWindow(
HWND hWnd // handle of window to bring to foreground
);
BringWindowToTop
The BringWindowToTop function brings the specified window to the top of the Z order. If the window is a top-level window, it is activated. If the
window is a child window, the top-level parent window associated with the child window is activated.
BOOL BringWindowToTop(
HWND hWnd // handle to window
);
Radegast
Michal Bilcik <tou(zv)host.sk>(zv)clexpert(tec)cz on 01.05.2002 13:02:32
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Kopie:
P�edm�t: allways on top bez focusu
Nazdar,
potreboval by som aby formular vyskocil do popredia ale focus by ostal
doteraz aktivnej aplikacii. Ide to ? Asi cez API, dakujem za kazde
info, staci iba info aku funkciu si mam pozriet.
--
Michal Bilcik
Ktera komponenta ma HelpContext
[*] EFG developer <developer(zv)efg(tec)cz> - 1.5.2002 14:08:51
Zdravim, potrebuji u vsech komponent na formu nastavit helpcontext na 0,
toto potrebuji udelat u mnoha formularu.
u kazdeho formulare pri creatu spoustim jednu spolecnou funkci, do ktere
bych rad dopsal nejaky kod, ktery to za me zaridi, problemem vsak je, ze
nevim, jak etridz je dana komponenta.
Muze mi nekdo pomoci s dopnenim nasledujici funkce?
with frm do
begin
for i := 0 to ComponentCount - 1 do
begin
end;
end;
Dekuji Petr Sikola
Animace
[*] Jan =?ISO-8859-2?Q?=A9kr=E1=B9ek ?= <skrasek.jan(zv)centrum(tec)cz> - 01.5.2002 14:53:52
Dobry den,
chtel bych se vas zeptat jak jednoduse D6 personal zobrazovat
animace a jak tyto animace vytvaret.
S pozdravem J. S
--------------------
�ena v centru pozornosti na http://zena.centrum(tec)cz Ktera komponenta ma HelpContext
[*] =?utf-8?B?VG9tw6HFoSBLdXDEjcOtaw==?= <tks(zv)mail(tec)cz> - 1.5.2002 17:30:37
Ahoj
Nestacilo by todle:
with frm do
begin
for i := 0 to ComponentCount - 1 do
begin
If Components[i] is TEdit then TEdit(Components[i]).HelpContext:=0;
end;
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of EFG developer
Sent: Wednesday, May 01, 2002 2:09 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Ktera komponenta ma HelpContext
Zdravim, potrebuji u vsech komponent na formu nastavit helpcontext na 0,
toto potrebuji udelat u mnoha formularu.
u kazdeho formulare pri creatu spoustim jednu spolecnou funkci, do ktere
bych rad dopsal nejaky kod, ktery to za me zaridi, problemem vsak je, ze
nevim, jak etridz je dana komponenta.
Muze mi nekdo pomoci s dopnenim nasledujici funkce?
with frm do
begin
for i := 0 to ComponentCount - 1 do
begin
end;
end;
Dekuji Petr Sikola
---
Pøíchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virová báze: 197 - datum vydání: 19.4.2002
Ktera komponenta ma HelpContext
[*] EFG developer <developer(zv)efg(tec)cz> - 1.5.2002 18:08:27
bohuzel na formu mam moc komponent, ktere jsou ruznych typu,
a ja nechci pro kazdy typ vypisovat jeden if :( (tech typu hrozne moc,
mam to pro cely projekt)
Petr Sikola
> Ahoj
> Nestacilo by todle:
> begin
> for i := 0 to ComponentCount - 1 do
> If Components[i] is TEdit then
> TEdit(Components[i]).HelpContext:=0;
> end;Ktera komponenta ma HelpContext
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.5.2002 18:28:21
V tom pripade je treba najit pro danou property spolecneho predka,
kterym by mel byt TWinControl.
V cyklu se provede test
if Controls[i] is TWinControl then
TWinControl(Controls[i]).HelpContext:=0;
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.5.2002 EFG developer:
> bohuzel na formu mam moc komponent, ktere jsou ruznych typu,
> a ja nechci pro kazdy typ vypisovat jeden if :( (tech typu hrozne moc,
> mam to pro cely projekt)
>> begin
>> for i := 0 to ComponentCount - 1 do
>> If Components[i] is TEdit then
>> TEdit(Components[i]).HelpContext:=0;
>> end;
Ktera komponenta ma HelpContext
[*] EFG developer <developer(zv)efg(tec)cz> - 1.5.2002 20:10:43
Dekuji, to bude ono....
jeste bych si dovolil otazecku:
lze toto provest nejak jednorazove v souborech dfm v dobe navrhu sw?
tj. ve vsech dfm souborech nahradit property helpcontext cehokoliv na 0
?
sice me napada prevest si to na textove dfm a tam pak provest hromadne
nahrazeni (necim, jeste nevim cim),
ale lze toto udelat i nad binarnimi dfm ?
Dekuji Petr Sikola
> V tom pripade je treba najit pro danou property spolecneho
> predka, kterym by mel byt TWinControl. V cyklu se provede
> test if Controls[i] is TWinControl then
> TWinControl(Controls[i]).HelpContext:=0;
allways on top bez focusu
[*] Michal Bilcik <tou(zv)host.sk> - 1.5.2002 21:17:37
Nazdar,
1.5.2002(14:00), si napisal/a:
>> potreboval by som aby formular vyskocil do popredia ale focus by ostal
>> doteraz aktivnej aplikacii. Ide to ? Asi cez API, dakujem za kazde
>> info, staci iba info aku funkciu si mam pozriet.
Vyskusal som obidve funkcie, co ste mi poradili, ale:
> SetForegroundWindow
-toto sice da okno do popredia ale zaroven mu da focus, ten ja chcem
ale nechat v aplikacii v ktorej uzivatel robi. A vlastne ani to dobre
"nefunguje" pretoze to iba rozblika ikonu v taskbare, ale do popredia
formular nevyskoci. Da sa to nejak obist? A funguje to na vsetkych win. systemoch
(95, 98, 2000, Xp) ?
> BringWindowToTop
-to nefunguje vobec. Formular do popredia nevyhodi. Asi to je iba pre
MDI okna...
Ani jedna funkcia nesplna podmienku ze ma ukazat okno ako "allways on
top", tj. ked prepnem do inej aplikacie, tato mi formular zakryje.
Aby som bol este konretnejsi: form, ktory ma vyskakovat do popredia je
take male informacne okno, t.j. ma byt "allways on top" aby uzivatel nan
videl, ale nema mat focus, aby uzivatel mohol pracovat s aplikaciou s
ktorou pracuje.
Dik za dalsie napady.
--
S pozdravom,
Michal Bilcik (tou(zv)host.sk)
Jak odelat a precist SMS ze siemensu
[*] Jirka Virt <virt(zv)volny(tec)cz> - 1.5.2002 21:29:25
Ahoj,
udelal jsem si na to funkce.Mam to rozchozeny pod Delphi a Kylixem.Pokud
mas zajem muzu zaslat.
Jirka
virt(zv)volny(tec)cz
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, April 25, 2002 6:13 PM
Subject: Jak odelat a precist SMS ze siemensu
Ahoj,
potreboval bych poradit jak programem v delphi prectu a odeslu SMS
zpravy ze Siemensu M45. Stahnul jsem si seznam AT prikazu, ale nejsem
stavu to rozchodit. Muze me nekdo nasmerovat kudy se dat? Pomohl by mi
kus kodu. Dale mam problem s dekodovanim SMS z PDU na text a zpet.
Ales
Ktera komponenta ma HelpContext
[*] Harris <harri.s(zv)tiscali(tec)cz> - 1.5.2002 21:42:34
Nevim co se ti to deje, ale mne kdyz dam nejakou komponentu na formular, tak
HelpContex je nula automaticky.
Co tam mas ty?
Harris.
----- Original Message -----
From: "EFG developer" <developer(zv)efg(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, May 01, 2002 8:10 PM
Subject: RE: Ktera komponenta ma HelpContext
> Dekuji, to bude ono....
>
> jeste bych si dovolil otazecku:
> lze toto provest nejak jednorazove v souborech dfm v dobe navrhu sw?
> tj. ve vsech dfm souborech nahradit property helpcontext cehokoliv na 0
> ?
> sice me napada prevest si to na textove dfm a tam pak provest hromadne
> nahrazeni (necim, jeste nevim cim),
> ale lze toto udelat i nad binarnimi dfm ?
>
> Dekuji Petr Sikola
>
> > V tom pripade je treba najit pro danou property spolecneho
> > predka, kterym by mel byt TWinControl. V cyklu se provede
> > test if Controls[i] is TWinControl then
> > TWinControl(Controls[i]).HelpContext:=0;
>
>
Ktera komponenta ma HelpContext
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.5.2002 22:27:55
Existuje konvertor, ktery prevede DFM na textove v adresari
DeplhiX\Bin\Convert.EXE
Ten to umi prekonvertovat hromadne na TXT a pak by mela byt brnkacka
to najit a prepsat.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.5.2002 EFG developer:
> jeste bych si dovolil otazecku:
> lze toto provest nejak jednorazove v souborech dfm v dobe navrhu sw?
> tj. ve vsech dfm souborech nahradit property helpcontext cehokoliv na 0
> ?
> sice me napada prevest si to na textove dfm a tam pak provest hromadne
> nahrazeni (necim, jeste nevim cim),
> ale lze toto udelat i nad binarnimi dfm ?
allways on top bez focusu
[*] Michal Bilcik <tou(zv)host.sk> - 1.5.2002 22:39:53
Nazdar,
1.5.2002(21:17), si napisal/a:
[del]
> Aby som bol este konretnejsi: form, ktory ma vyskakovat do popredia je
> take male informacne okno, t.j. ma byt "allways on top" aby uzivatel nan
> videl, ale nema mat focus, aby uzivatel mohol pracovat s aplikaciou s
> ktorou pracuje.
> Dik za dalsie napady.
No tak som na to nakoniec prisiel sam. Riesenie:
SetWindowPos(form1.Handle,HWND_TOPMOST, 0,0,100,100, SWP_NOACTIVATE);
-je to presne co som chcel, okno hodi ako top (HWND_TOPMOST) a bez
focusu (SWP_NOACTIVATE), Ani to nerozblikava ikonku na liste.
--
S pozdravom,
Michal Bilcik (tou(zv)host.sk)
Ktera komponenta ma HelpContext
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2002 23:02:07
From: "EFG developer" <developer(zv)efg(tec)cz>
> Zdravim, potrebuji u vsech komponent na formu nastavit helpcontext na 0,
> toto potrebuji udelat u mnoha formularu.
> u kazdeho formulare pri creatu spoustim jednu spolecnou funkci, do ktere
> bych rad dopsal nejaky kod, ktery to za me zaridi, problemem vsak je, ze
> nevim, jak etridz je dana komponenta.
>
> Muze mi nekdo pomoci s dopnenim nasledujici funkce?
>
> with frm do
> begin
> for i := 0 to ComponentCount - 1 do
> begin
>
> end;
> end;
uses
TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
C: TComponent;
PropInfo: PPropInfo;
begin
for I := 0 to ComponentCount - 1 do
begin
C := Components[I];
PropInfo := GetPropInfo(C, 'HelpContext', [tkInteger]);
if PropInfo <> nil then
SetOrdProp(C, PropInfo, 0);
end;
end;
Petr Vones
Animace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2002 23:19:12
From: "Jan �kr�ek" <skrasek.jan(zv)centrum(tec)cz>
> chtel bych se vas zeptat jak jednoduse D6 personal zobrazovat
> animace a jak tyto animace vytvaret.
Zalezi na tom jake animace. GIF, Flash .... ?
Petr Vones
OT: IB6 a JOIN
[*] Marek Soukup <marek(zv)b-worlds.de> - 1.5.2002 23:19:36
Haj hou,
souvisi to sice s projektem v Deplhi, ale vlastne je to otazka na SQL nez na
Delphi. Vzdycky jsem si myslel, ze je v SQL dotazu slouzi JOIN ke spojeni
tabulek a LEFT nebo RIGHT urcuje, jakym zp�sobem bude vypdat to spojeni.
Modelova situace: v jedne tabulce (MESTA) jsou nazvy mest a v druhe tabulce
(ADRESY) je treba seznam nejakych adres a mesto je tam delano jako odkaz do
te prvni tabulky. SQL by potom mel IMHO vypadat takto:
select mesta.nazev, adresy.ulice from adresy left join mesta on
adresy.id_mesto = mesta.id where adresa = 'nejaka_podminka';
Jenze se mi stava, ze udelam takovyto dotaz a vrati se mi spousta zaznamu
(kolik je polozek v tabulce mesta) a vsechny polozky toho dotazu maji
stejnou hodnotu (tu spravnou).
Jedna se o IB6 bezici na Win2k. Delal jsem query na Paradoxu, Accessu, MS
SQL, mySQL a nikdy jsem s tim problemy nemel, az ted. Vysvetlite mi prosim
nekdo co delam spatne ?
S pozdravem
Marek Soukup
asynchronni zprava u TTreeView.OnDrawItem
[*] novos(zv)email(tec)cz - 2.5.2002 00:32:09
zdravim,
popisu problem: mam treeview a ve zprave ondrawitem vykresluji do
tohoto treeview to co chci
pak mam metodu setrid ktera je volana casovacem a ktera vypada
asi takto
procedure setrid
begin
....
SetridNejak;
...
fpriznak := true;
Zpracuj;
fpriznak := false;
....
....
end
a v obsluze ondrawitem mam asi toto
....
if fpriznak then ShowMessage('oops');
....
no a na celem tomhle je zajimave ze nekdy se stane se ten
messagebox vyhodi. a me zajima jak je to mozne? proc se prerusi
metoda Zpracuj a kdy k tomu dojde?
a jeste par poznamek: v zadne z techto procedure neni
application.processmessages, ani sleep, ani kriticke sekce. pri
krokovani obou metod maji obe dve stejne cislo threadu
dekuji za odpoved
I
kodovani cestiny pro tiskarnu
[*] Tom� Kup��k����J�����̿ - 2.5.2002 06:53:55
Ahoj.
Tisknu na jehlickovou tiskarnu "primo" a potreboval bych prevadet
cestinu na ruzne kodovani - podle tiskarny (bez
diakritiky,Kamenicky,Latin2). Nemate na to nekdo udelane nejake funkce?
Dik, T.
Aktivni dve okna
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 2.5.2002 07:15:14
On 30 Apr 2002 at 15:05, Slavek Rydval wrote:
> z hlavniho formulare (obecne z libovolneho) F potrebuji otevrit
> ,,neco``, co (mezi podminkami je spojka "a soucasne"):
> * bude umet obsluhovat zpravy z klavesnice
> * bude umet obsluhovat zpravy od mysi
> * bude moci byti umisteno na libovolnem miste obrazovky bez ohledu na
> pozici F (tedy i mimo jeho hranice) * nezrusi modry pruh okna F (tedy
> uzivatel bude mit dojem, ze F je porad aktivni).
Jako takove "neco" pouzivam child okna a funguje to presne tak.
Z.Kalhous
CD prehravac
[*] David Kraina <DKx(zv)seznam(tec)cz> - 02.5.2002 07:35:18
Nazdar,
jiz delsi chvili pracuji na CD prehravaci. Pouzivam Delphovskou
komponentu MediaPlayer.
1) Potreboval bych zjistit, jak se p?epnout na p?edchz� track
(n�sleduj�c� jde pomoc� Next, Previous jen nastav� na za?�tek tracku
aktu�ln�ho)
2) To uz tu bylo, ale jedina odpoved bylo o uplne necem jinem -
Potreboval bych, abych pomoci TrackBar urcil pozici od kud bude hrat
(StartPos) aktualniho tracku. U souboru to slo, ale CDPlayer pouz�v�
TMSF a MSF.
Pro inspiraci a pochopeni jsem pouzival CDPlayer z examples Varian
Workshop. Fakt to moc potrebuji. Dik. DKx
*DKx# - Prosim nemazat, index do filtru
______________________________________________________________________
Reklama:
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
OT: IB6 a JOIN
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 2.5.2002 07:53:33
Marek Soukup dne 1 May 2002 v 23:19:
> souvisi to sice s projektem v Deplhi, ale vlastne je to otazka na SQL
> nez na Delphi. Vzdycky jsem si myslel, ze je v SQL dotazu slouzi JOIN
> ke spojeni tabulek a LEFT nebo RIGHT urcuje, jakym zp�sobem bude
> vypdat to spojeni. Modelova situace: v jedne tabulce (MESTA) jsou
> nazvy mest a v druhe tabulce (ADRESY) je treba seznam nejakych adres a
> mesto je tam delano jako odkaz do te prvni tabulky. SQL by potom mel
> IMHO vypadat takto: select mesta.nazev, adresy.ulice from adresy left
> join mesta on adresy.id_mesto = mesta.id where adresa =
> 'nejaka_podminka';
Ahoj,
ja bych ten dotaz napsal takhle:
select mesta.nazev, adresy.ulice
from adresy
left OUTER join mesta on mesta.id=adresy.id_mesto
where adresa = 'nejaka_podminka';
Mozna Paradox standardne pouzije "outer" a IB ne...
Karel Rys
OT: IB6 a JOIN
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 2.5.2002 08:03:21
> nez na Delphi. Vzdycky jsem si myslel, ze je v SQL dotazu slouzi JOIN
> ke spojeni tabulek a LEFT nebo RIGHT urcuje, jakym zp�sobem bude
> vypdat to spojeni.
Ahoj,
tohle neni tak uplne pravda. Jsou 4 typy joinu:
1) JOIN (nebo tez INNER JOIN) - klasicke spojeni, tj. vybere jen zaznamy, ktere v
obou tabulkach obsahuji ve spojovanych polich stejnou hodnotu.
2) LEFT JOIN (LEFT OUTER JOIN) - vybere vsechny zaznamy z leve tabulky a
pokud najde odpovidajici zaznam z prave tabulky, prida ji. Kde nenajde, jsou misto
hodnot prave tabulky hodnoty NULL
3) RIGHT JOIN (RIGHT OUTER JOIN) - obdoba pro pravou stranu, tj. prava tabulka
bude kompletni.
4) FULL JOIN (FULL OUTER JOIN) - ve vysledku budou vsechny zaznamy z obou
tabulek s tim, ze kde je mozne spojeni pres podminku, tam se to spoji a nespojitelne
zaznamy jsou doplneny hodnotami NULL zleva ci zprava podle toho, z ktere
pochazeji tabulky. Modelova situace: v jedne tabulce (MESTA) jsou
> nazvy mest a v druhe tabulce (ADRESY) je treba seznam nejakych adres a
> mesto je tam delano jako odkaz do te prvni tabulky. SQL by potom mel
> IMHO vypadat takto: select mesta.nazev, adresy.ulice from adresy left
> join mesta on adresy.id_mesto = mesta.id where adresa =
> 'nejaka_podminka';
Ten dotaz je IMHO v poradku, takze si myslim, ze chyba bude nekde jinde. Tohle
pouzivame zcela bez problemu.
David Lebeda
TQUERY
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 2.5.2002 08:12:28
> query.sql.text:='SELECT * FROM tabulka WHERE UPPER(nazev) like "' +
> uppercase(edit1.text) + '%"'; s pozdravem Votava
>
Aby to fungovalo dobre i ceskou diakritikou, pouzil bych AnsiUpperCase, ale je
otazka, jak se to bude chovat treba na anglickych Windows. Pokud s tim nebude na
serveru problem, posilal bych edit1.text v dotazu jako parametr asi nejak takto:
...WHERE UPPER(nazev) like UPPER(:vzor)
to si upravis podle potreby, dulezite je, ze cela konverze je na SQL serveru.
David Lebeda
Jak skryt kurzor mysi
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 2.5.2002 08:12:14
> Karel Rys wrote:
>
> >poradite prosim nekdo, jak se da docasne skryt kurzor mysi?
Dekuji vam za rady; po odzkouseni s OpenGL:
> Screen.Cursor := crNone;
- nefunguje, protoze Delphi to zrejme "osidi" a pouziji kurzor, ktery uzivatel sice nevidi, ale
system s nim porad pracuje jako s kazdym jinym.
> ShowCursor(False);
- funguje :-)
Karel Rys
po odchyceni WMQueryEndSession a WMEndSession se w
[*] EFG developer <developer(zv)efg(tec)cz> - 2.5.2002 08:14:03
mamtakovy problem:
mam aplikaci, kde odchytavam wm_queryendsession a wm_endsession
procedure TfrmStation.WMQueryEndSession(var Message:
TWMQueryEndSession);
begin
FEnd := True;
close;
inherited;
end;
procedure TfrmStation.WMEndSession(var Message: TWMEndSession);
begin
FEnd := True;
close;
inherited;
end;
to FEnd nastavuju z duvodu testu v formclocequery.
pokud aplikace bezi na desktopu tak pri pokusu o ukonceni windows se
zavola WMQueryEndSession, WMEndSession. Pokud z WMEndSession vynecham
close, tak se ukoncovani windows zastavi.
pokud aplikace bezi jen v trayi, tak se vykona jen WMEndSession,
aplikace se ukonci, ale ukoncovani windows se zastavi.
Otazka: jak spravne odchytavat WMQueryEndSession a WMEndSession, tak aby
se mi windows vzdycky ukoncili (zpravy musim odchytavat, protoze tam
potrebuju nastavit parametr FEnd). Ukoncovani aplikace (procedura Close)
muze chvilku trvat (max 2-3 sec)
Nebo, muze mi nekdo objasnit prubeh ukoncovani windowsu (jake zpravy se
posilaji, jake museji byt jejich resulty...)
dekuji
Petr Sikola
po odchyceni WMQueryEndSession a WMEndSession se w
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 2.5.2002 08:25:49
Na spravne ukonceni aplikace staci odchytit
procedure TfrmStation.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
FEnd := True;
inherited;
end;
A vse co mas v OnClose presun do OnCloseQuery, kde predpokladam se
ridis podle FClose
OnCloseQuery se vykonava vzdy (s vyjimkou Application.Terminate a
podobnych zhuverilosti) OnClose ne.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
2.5.2002 EFG developer:
> mamtakovy problem:
> mam aplikaci, kde odchytavam wm_queryendsession a wm_endsession
> procedure TfrmStation.WMQueryEndSession(var Message:
> TWMQueryEndSession);
> begin
> FEnd := True;
> close;
> inherited;
> end;
> procedure TfrmStation.WMEndSession(var Message: TWMEndSession);
> begin
> FEnd := True;
> close;
> inherited;
> end;
> to FEnd nastavuju z duvodu testu v formclocequery.
> pokud aplikace bezi na desktopu tak pri pokusu o ukonceni windows se
> zavola WMQueryEndSession, WMEndSession. Pokud z WMEndSession vynecham
> close, tak se ukoncovani windows zastavi.
> pokud aplikace bezi jen v trayi, tak se vykona jen WMEndSession,
> aplikace se ukonci, ale ukoncovani windows se zastavi.
> Otazka: jak spravne odchytavat WMQueryEndSession a WMEndSession, tak aby
> se mi windows vzdycky ukoncili (zpravy musim odchytavat, protoze tam
> potrebuju nastavit parametr FEnd). Ukoncovani aplikace (procedura Close)
> muze chvilku trvat (max 2-3 sec)
> Nebo, muze mi nekdo objasnit prubeh ukoncovani windowsu (jake zpravy se
> posilaji, jake museji byt jejich resulty...)
DBGRID SCROLL again
[*] Jaro <jaroslav.hanusek(zv)nou.sk> - 2.5.2002 08:37:15
Uz som na to prisiel, ta divna chyba sa vyskytla na pocitacoch, kde bol
nastaveny iny motiv na ploche (ina sirka scrollbarov a pod.)
Zmenil som sirku DBgridu a cudujsasvete - zacalo to fungovat ako hodinky.
> zkus preinstalovat IE. asi se budes divit na co vsechno ma ta mrska vliv.
> Subject: DBGRID SCROLL again
>
>
> > Tabulka (paradox), ktora je zobrazena v DBgride sa prestane scrollovat.
> pri
> > pouziti sipiek alebo scrollbaru
> > sa sice kurzor v tabulke posuva, ale DBgrid sa odmieta refreshnut. Pri
> > opatovnom nastaveni focusu
> > na niektoru bunku (napr.kliknutim) sa obsah tej ktorej bunky zobrazi
> > spravne, pricom ostatne bunky zobrazuju
> > stale neodscrollovane bunky.
> >
> > Dvojice Enable/Disable controls su parovane spravne, dokonca aj tabulka
> > je uplne v poriadku. Problem je skor v tom, ze ta ista aplikacia ( s tou
> > istou databazou)
> > na jednom pocitaci funguje bez problemov a na druhom nie, cize tento
> problem
> > akoby nesuvisel priamo
> > s programom.
> >
> > > mne sa kedysi nieco podobneho dialo v suvislosti s poskodenou tabulkou
> > neslo
> > > ju opravit ani utilitami na opravu pdx tabuliek. Dialo sa mi to od
> > urciteho
> > > zaznamu.
> > > Tiez sa to javilo ako problem so scroolovanim v dbgride.
> > > Potom som zaznamy po tento vadny zaznam musel skopirovat do jednej
> > tabulky,
> > > presunut sa zan a prepisat tie dalsie zaznamy tiez do novej tabulky.
> >
> > >BDE si obcas dela co chce, ale tady bych to tipoval spise na tvoji
chybu.
> > >Tohle byva dusledek toho, ze metody DisableControls/EnableControls
tridy
> > >TDataSet byly spoustene neparove (tj. k nejakemu spusteni
DisableControls
> > >chybi EnableControls). Pripadne mohlo dojit k nejake vyjimce apod.,
> kterou
> > >mas sice osetrenou, ale zapomnel jsi (EnableControls) povolit
updatovani
> > >DBGridu.
> >
> >
> >
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
>
>
asynchronni zprava u TTreeView.OnDrawItem
[*] Martin Cajbik <cajbik(zv)sct.sk> - 2.5.2002 08:52:35
Ja na tom nevidim nic zvlastne, strom sa ti prekresluje pokial menis
vlastnosti jeho uzlov. Kedze to robis cez properties tych uzlov, mozu sa
samozrejme za nimi skryvat nejake metody, ktore ako jednu zo svojich
cinnosti zavolaju prekreslenie tohoto uzla, prip. celeho stromu. Cele to
sice vyzera ako obycajna zmena atributov, ale v skutocnosti za tym moze byt
metoda, ktora moze robit prakticky cokolvek. Neviem ci pouzivas
Items.BeginUpdate a Items.EndUpdate, tym by si mal zabranit prekreslovaniu
stromu pocas jeho naplnania alebo zmeny uzlov.
MarCaNT (marcant(zv)sct.sk)> zdravim,
>
> popisu problem: mam treeview a ve zprave ondrawitem vykresluji do
> tohoto treeview to co chci
> pak mam metodu setrid ktera je volana casovacem a ktera vypada
> asi takto
>
> procedure setrid
> begin
> ....
> SetridNejak;
> ...
> fpriznak := true;
> Zpracuj;
> fpriznak := false;
> ....
> ....
> end
>
> a v obsluze ondrawitem mam asi toto
> ....
> if fpriznak then ShowMessage('oops');
> ....
>
> no a na celem tomhle je zajimave ze nekdy se stane se ten
> messagebox vyhodi. a me zajima jak je to mozne? proc se prerusi
> metoda Zpracuj a kdy k tomu dojde?
> a jeste par poznamek: v zadne z techto procedure neni
> application.processmessages, ani sleep, ani kriticke sekce. pri
> krokovani obou metod maji obe dve stejne cislo threadu
>
> dekuji za odpoved
>
> I
>
>
po odchyceni WMQueryEndSession a WMEndSession se w
[*] EFG developer <developer(zv)efg(tec)cz> - 2.5.2002 09:08:00
Ale me se WMQueryEndSession neodchyti, pokud aplikace bezi jen v
systrayi. ( ShowWindow(Application.Handle, SW_HIDE) )
jak je to mozne ?
Petr Sikola
> Na spravne ukonceni aplikace staci odchytit
> procedure TfrmStation.WMQueryEndSession(var Message:
> TWMQueryEndSession); begin
> FEnd := True;
> inherited;
> end;
>
> A vse co mas v OnClose presun do OnCloseQuery, kde
> predpokladam se ridis podle FClose
>
> OnCloseQuery se vykonava vzdy (s vyjimkou
> Application.Terminate a podobnych zhuverilosti) OnClose ne.
TListBox + picture
[*] <M.Babik(zv)mus(tec)cz> - 02.5.2002 09:12:59
Zdravim!
Lze do TlistBoxu pridak k polozce maly obrazek? Jak? Nebo co bych mel pouzit? Diky
M&B
TListBox + picture
[*] Martin Cajbik <cajbik(zv)sct.sk> - 2.5.2002 09:23:07
A co tak ListView ?
MarCaNT (marcant(zv)sct.sk)
Zdravim!
Lze do TlistBoxu pridak k polozce maly obrazek? Jak? Nebo co bych mel
pouzit? Diky
M&B
TListBox + picture
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 2.5.2002 09:27:26
Cau
hod si do formu imagelist s obrazkama co chces zobrazit, Style Listboxu na
Style = csOwnerDraw...., obslouzis udalost OnDrawItem. Toto je sice pro
combobox, ale dtto je to pro LB.
Cau
Pavel;
procedure TfrmSetTrafo2.cbSWTypeDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with TComboBox(Control), Canvas do
begin
Pen.Mode:=pmWhite;
Rectangle(Rect);
imagelist1.Draw(Canvas,Rect.Left+1,Rect.Top,Index);
TextOut(.......);
end;
end;
M&B
SET GENERATOR + IB6
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 2.5.2002 09:39:04
Jak nastavit generator pokud provedu v Query 'SET GENERATOR MUJGEN TO 0' tak
vse funguje OK. Ale potrebuji bytvorit proceduru na IB a to se mi pri stejne
syntaxi nejak nedari nevite nekdo jak na to.
Diky
OT: Hardware key
[*] Roman Toda <toda(zv)digitaldocuments.org> - 2.5.2002 10:46:18
Potrebujem riesit ochranu aplikacie a jedna z podmienok zakaznika je
pouzitie hardwaroveho kluca. Budem vdacny za akekolvek informacie, linky,
odkazy, skusenosti.
Dakujem
Roman
SET GENERATOR + IB6
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 2.5.2002 10:46:41
Haj hou!
On 2 May 2002, at 9:39, Mephisto wrote:
> Jak nastavit generator pokud provedu v Query 'SET GENERATOR MUJGEN TO 0' tak
> vse funguje OK. Ale potrebuji bytvorit proceduru na IB a to se mi pri stejne
> syntaxi nejak nedari nevite nekdo jak na to.
Prikaz SET GENERATOR nelze pouzit v ulozene procedure.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Pozice mysi
[*] Commanche <komurka(zv)myto(tec)cz> - 2.5.2002 11:43:29
Zdravim,
nevite jak zjistit pozici mysi kdekoli na obrazovce?
(jako OnMouseMove zjisti na formulari)
Diky
Commanche
---
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
Pozice mysi
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 2.5.2002 11:46:50
Ahoj,
zkus fci GetCursorPos
AV
> -----Original Message-----
> From: Commanche [mailto:komurka(zv)myto(tec)cz]
> nevite jak zjistit pozici mysi kdekoli na obrazovce?
> (jako OnMouseMove zjisti na formulari)
Hardware key
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 2.5.2002 11:48:26
Zkousel jsem HW klice HASP. Jsou docela dobre maji i interni pamet takze se
da na ne neco ulozit. Maji LPT i USB. Na strankach
http://www.atlasltd(tec)cz/ najdes popis co kterej typ zvlada. Narazil jsem ale
na jeden dost zavaznej problem ktery dost brani pouzivani NetHASP pro sitove
aplikace. Kdyz totiz se pristupuje k HW klici pres Firewall tak se
neodecitaji konektivity a bere se to pouze jako jedna. Takze kdyz nekdo bude
mit sitovou licenci 2 tak se tam muze pripojit i 100 clientu pres firewall.
Tuto chybu jsem hlasil a bohuzel nema moc velkou prioritu takze snad jednou
:-((
Cau Libor
> Potrebujem riesit ochranu aplikacie a jedna z podmienok zakaznika je
> pouzitie hardwaroveho kluca. Budem vdacny za akekolvek
> informacie, linky,
> odkazy, skusenosti.
Pozice mysi
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 02.5.2002 11:53:51
Ahoj,
GetCursorPos
Vaclav Sazima
Commanche wrote:
> nevite jak zjistit pozici mysi kdekoli na obrazovce?
> (jako OnMouseMove zjisti na formulari)
>
SET GENERATOR + IB6
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 2.5.2002 11:53:44
Prikaz SET GENERATOR nelze pouzit v ulozene procedure.
co mam teda pouzit informace je to cenna nicmene problem neresici. Existuje
jiny prikaz nebo musim generator nastavovat pomoci query z programu?
Dik
Pozice mysi
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 2.5.2002 11:55:41
Mouse.CursorPos
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
2.5.2002 Commanche:
> Zdravim,
> nevite jak zjistit pozici mysi kdekoli na obrazovce?
> (jako OnMouseMove zjisti na formulari)
Hardware key
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 02.5.2002 11:57:01
Mnohem levnejsi a spolehlivejsi je resit toto vlastni cestou. Sitovy
klic je drazsi, nez vyvoj vlastniho SW (dle meho nazoru) a tato chybe se
neporjevi. My mame neco podbneho (take nad HASPem). My jsme ale
nepotrebovali pocel licenci, ale jen overeni.
Jinak doporucuji objednat si prave na techto strankach development kit
zdarma. Jsou tam i zdrojaky primo pro Delphi.
>Zkousel jsem HW klice HASP. Jsou docela dobre maji i interni pamet takze se
>da na ne neco ulozit. Maji LPT i USB. Na strankach
>http://www.atlasltd(tec)cz/ najdes popis co kterej typ zvlada. Narazil jsem ale
>na jeden dost zavaznej problem ktery dost brani pouzivani NetHASP pro sitove
>aplikace. Kdyz totiz se pristupuje k HW klici pres Firewall tak se
>neodecitaji konektivity a bere se to pouze jako jedna. Takze kdyz nekdo bude
>mit sitovou licenci 2 tak se tam muze pripojit i 100 clientu pres firewall.
>Tuto chybu jsem hlasil a bohuzel nema moc velkou prioritu takze snad jednou
>:-((
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
SET GENERATOR + IB6
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 2.5.2002 11:57:10
Tak to prepis v systemovych tabulkach mozna to pujde.
Libor
> Prikaz SET GENERATOR nelze pouzit v ulozene procedure.
>
> co mam teda pouzit informace je to cenna nicmene problem
> neresici. Existuje
> jiny prikaz nebo musim generator nastavovat pomoci query z programu?
>
> Dik
>
Pozice mysi
[*] Martin Bob�k <bobek(zv)nextra.sk> - 2.5.2002 11:58:46
Procedure Mys();
Var
Mys : Tmouse
X,Y : Integer;
Begin
Mys := Tmouse.Create;
.
.
.
X := Mys.CursorPos.X;
Y := Mys.CursorPos.Y;
.
.
.
If Mys <> Nil Then Mys.Free
End;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Commanche
Sent: Thursday, May 02, 2002 11:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Pozice mysi
Zdravim,
nevite jak zjistit pozici mysi kdekoli na obrazovce?
(jako OnMouseMove zjisti na formulari)
Diky
Commanche
---
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
Pozice mysi
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 2.5.2002 12:00:41
API GetCursorPos
Libor
> Zdravim,
> nevite jak zjistit pozici mysi kdekoli na obrazovce?
> (jako OnMouseMove zjisti na formulari)
Hardware key
[*] =?utf-8?B?VG9tw6HFoSBLdXDEjcOtaw==?= <tks(zv)mail(tec)cz> - 2.5.2002 12:16:41
Ted jsem zrovna HWKey daval do projektu.
Klic se naprogramuje pomoci speciálního SW a tim do neho vlastne dostanes PIN. Potom s nim komunikuji pomoci dll, ktera byla u neho - pozivam jenom 3 funkce Open..., Check..., Close... Testovani mam dane na casovaci.
Problem je, ze klic jsem dostal z firmy a nevim nic o vyrobci nebo dodavateli.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Roman Toda
Sent: Thursday, May 02, 2002 10:46 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: Hardware key
Potrebujem riesit ochranu aplikacie a jedna z podmienok zakaznika je
pouzitie hardwaroveho kluca. Budem vdacny za akekolvek informacie, linky,
odkazy, skusenosti.
Dakujem
Roman
---
Pøíchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virová báze: 197 - datum vydání: 19.4.2002
Pozice mysi
[*] Jane�ek Michael <michael.janecek(zv)spar-cr(tec)cz> - 2.5.2002 12:21:52
Takle ...
var Poloha : Tpoint;
begin
GetCursorPos(Poloha); // Zjist� polohu kurzoru my�i
SetCursorPos (Poloha.X, Poloha.Y); //Poloha.X - horizont�ln� pozice, Poloha.Y - vertik�ln� pozice
end;
Michael Jane�ek
--------------------------------------------------------------
SPAR �esk� obchodn� spole�nost s r.o.
Programmer / Delphi developer
Tel. 02 / 67 155 156
Fax. 02 / 67 155 119
E-mail: michael.janecek(zv)spar-cr(tec)cz
http://www.interspar(tec)cz
-----Original Message-----
From: Commanche [mailto:komurka(zv)myto(tec)cz]
Sent: Thursday, May 02, 2002 11:43 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Pozice mysi
Zdravim,
nevite jak zjistit pozici mysi kdekoli na obrazovce?
(jako OnMouseMove zjisti na formulari)
Diky
Commanche
---
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
Aktivni dve okna
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 2.5.2002 12:22:24
On 2 May 2002 at 10:48, Slavek Rydval wrote:
> mozna jeste dospavam carodejnice, co to je "child okno"?
> > Jako takove "neco" pouzivam child okna a funguje to presne tak.
Asi jsem se spatne vyjadril. Lepe by asi bylo "child form". To je
takovej, ze ma svyho parenta neboli tatu-mamu.
Z.Kalhous
TQUERY
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 2.5.2002 12:28:01
Diky za rady.
Slo mi spise o to, jestli neexistuje nejaka vlastnost TQuery, ktera mi
nastavuje pri vyberu vlastnost "Case Sensitive" jako u vlastnosti
"FilterOptions".
Jeste me napada, jestli toto nastaveni nenajdu nekde v BDE Administratoru
nebo v objektu TDatabase.
Martin Pavera
| query.sql.text:='SELECT * FROM tabulka WHERE UPPER(nazev) like "' +
| uppercase(edit1.text) + '%"';
| s pozdravem Votava
|
SET GENERATOR + IB6
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 2.5.2002 12:29:52
> Jak nastavit generator pokud provedu v Query 'SET GENERATOR MUJGEN TO
> 0' tak vse funguje OK. Ale potrebuji bytvorit proceduru na IB a to se
> mi pri stejne syntaxi nejak nedari nevite nekdo jak na to.
Pro podobny ucel pouzivam toto:
CREATE TRIGGER "G_CENIKY_BI1600" FOR "T_CENIKY"
ACTIVE BEFORE INSERT POSITION 1600
AS
DECLARE VARIABLE gen INTEGER;
BEGIN
IF (NEW.ID IS NULL OR NEW.ID=0) THEN NEW.ID =
GEN_ID("E_CENIKY", 1);
ELSE BEGIN
gen= GEN_ID("E_CENIKY", 0);
IF (NEW.ID>gen) THEN NEW.ID =
GEN_ID("E_CENIKY", NEW.ID-gen);
END
END
To funguje tak, ze kdyz se insertem vlozi zaznam s ID (generovany
sloupec) vetsim nez je hodnota generatoru, generator se nastavi na
tuto "vnucenou" novou hodnotu. Myslim ze modifikace
(zjednoduseni) pro nastaveni zadane hodnoty generatoru v
procedure je zrejma.
Z.Kalhous
TQUERY
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 2.5.2002 12:38:02
> Slo mi spise o to, jestli neexistuje nejaka vlastnost TQuery, ktera mi
> nastavuje pri vyberu vlastnost "Case Sensitive" jako u vlastnosti
> "FilterOptions". Jeste me napada, jestli toto nastaveni nenajdu nekde
> v BDE Administratoru nebo v objektu TDatabase.
Absolutne vylouceno. Uvedom si, ze filter provadi query sama ve
sve rezii (na klientovi), a proto ho muze pomoci property ovladat.
Ale zpracovani SQL dotazu, to provadi SQL server a query sama to
nemuze ovlivnit. Vse co ma udelat server, mu musi byt receno v
SQL dotazu.
David Lebeda
OnBeforeNavigate2, parametr PostData
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 2.5.2002 12:52:58
Ahoj,
chci sledovat co se posila za hlavicky a parametry pri praci s
komponentou WebBrowser. Odchytavam tedy udalost OnBeforeNavigate2, ale
mam problem s parametrem PostData. Podle funkce VarType() je to typ
$400C, tedy varVariant a varByRef. Bohuzel netusim jak se k takovym
datum dostat - automaticka konverze na string mi vypise retezec plny
otazniku. Kdyz jsem prohledaval funkce pro praci s Varianty, tak jsem
nasel ohledne varByRef pouze funkci VarArrayRef, ale ta takovou
promennou vytvari a ja naopak chci z ni cist. Na strankach
http://www.euromind.com/iedelphi/, kde se propojeni IE a Delphi venuji
pisou, ze by PostData i Headers meli byt typu varArray, ale me Headers
prijdou jako varOleStr a PostData jak jsem psal.
Co tedy s promennou, ktera ma VarType() = varVariant + varByRef lze
delat?
Diky, Honza+
D5Prof, W2KProf, IE6
Dotaz k efektivite kodu
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 2.5.2002 13:20:23
Ahoj vespolek, prosil bych o nazor, ktera konstrukce je lepsi z hlediska
efektivity, rychlosti a prace s pameti (W98, D5Pro):
V hlavnim okne aplikace (TMainWnd) je definovana trida TITRMsg, jejiz funkce
se v prubehu vyvoje zacaly pouzivat v mnoha dalsich unitach projektu a jde o
to, jak zajistit pristup k teto promenne:
v MainWndUnit:
uses ItrMsgUnit,...;
type TMainWnd = class(TForm)
...
public ITRMsg: TItrMsg;
...
end;
var MainWnd: TMainWnd;
Konstrukce 1:
V unite, kde se ma pouzivat promenna ITRMsg staci napsat uses MainWndUnit a
funguje to napr. takto:
MainWnd.ItrMsg.SendMsg(...);
Konstrukce 2:
V unite, kde se ma pouzivat promenna ITRMsg, se zavede public promenna
ITRMsg: TItrMsg (to samozrejme predpoklada uses ItrMsgUnit) a kdyz se
vytvari instance prislusne tridy, preda se do ni pointer na ITRMsg z
hlavniho okna, napriklad
OtherWnd:= TOtherWnd.Create(nil);
OtherWnd.ItrMsg:= ITRMsg;
a v OtherWndUnit pak funguje prikaz ItrMsg.SendMsg(...)
Obe konstrukce se mi zdaji rovnocenne, ale radeji se poradim u odborniku,
zda je muj nazor spravny.
Za veskere odpovedi diky predem
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
velky scrollbar
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 02.5.2002 13:24:57
Ahoj,
potrebuji scrollbar pro dotykovou obrazovku. Daji se nejak nastavit
rozmery sipek a thumbu (jak se tomu asi rekne cesky}, nebo si to musim
naprogramovat cele sam?
Dekuji za odpovedi
Vaclav Sazima
OT: Hardware key
[*] Roland Turcan <rolo(zv)sedas.sk> - 2.5.2002 14:20:25
<<< 2. 5. 2002 13:50 - Roman Toda "toda(zv)digitaldocuments.org" >>>
RT> Potrebujem riesit ochranu aplikacie a jedna z podmienok zakaznika je
RT> pouzitie hardwaroveho kluca. Budem vdacny za akekolvek informacie, linky,
RT> odkazy, skusenosti.
V Komarne/SR je firma IDENTCODE s.r.o. a ta robi s klucami Angel.
Skus ich najst na nete. myslim,ze www.identcode.sk
--
Best regards, TRoland
DateLeadZero
[*] plupinek(zv)synthesia(tec)cz - 2.5.2002 14:30:41
Zdravim,
mam primitivni funkci, ktera mi vraci datum a cas souboru :
Uses SysUtils, ....
function Get_DB_Age : string;
....
Result := DateTimeToStr(FileDateToDateTime (FileAge(Soubor)));
....
ale vraci mi to ve formatu 2.5.2002. Potreboval bych to ve formatu
02.05.2002.
V helpu jsem narazil na zmenu formatu pomoci
DateFullYear := True a DateLeadZero := True, ale nejak mi to nejde
zakomponovat do programu. Nezna to jako promenne.
Kdepak delam chybu, prosim, poradte.
Diky.
S pozdravem
Ing. Petr Lup�nek
datov� komunikacn� syst�my
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel. 040/6825535
mob. 0602/406235
Hardware key
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 02.5.2002 14:34:07
Dle meho nazoru je testovani pomoci DLL ta nejvetsi "dira", protoze kazdy
hned vi, na jake f-ce se ma specifikovat pri utoku. Pak staci odkrokovat
volani techto f-ci, zjistit jejich parametry a knihovnu nahradit. Lepsi kod
je zakompilovany primo do exace. Dale se pak maji volat f-ce nahodne a s
nahodnymi parametry. Kuprikladu HASP ma ocislovane jednotlive akce a ma
jich asi 20. Zbytek cisel vraci nahodne udaje. Tim se ma hacker zmast.
>Ted jsem zrovna HWKey daval do projektu.
>Klic se naprogramuje pomoci speciálního SW a tim do neho vlastne
>dostanes PIN. Potom s nim komunikuji pomoci dll, ktera byla u neho -
>pozivam jenom 3 funkce Open..., Check..., Close... Testovani mam dane na
>casovaci.
>Problem je, ze klic jsem dostal z firmy a nevim nic o vyrobci nebo dodavateli.
>
>
>-----Original Message-----
>From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
>Behalf Of Roman Toda
>Sent: Thursday, May 02, 2002 10:46 AM
>To: delphi-l(zv)clexpert(tec)cz
>Subject: OT: Hardware key
>
>Potrebujem riesit ochranu aplikacie a jedna z podmienok zakaznika je
>pouzitie hardwaroveho kluca. Budem vdacny za akekolvek informacie, linky,
>odkazy, skusenosti.
>
>Dakujem
>
>Roman
>
>---
>Pøíchozí zpráva neobsahuje viry.
>Zkontrolováno antivirovým systémem AVG (http://www.grisoft(tec)cz).
>Verze: 6.0.351 / Virová báze: 197 - datum vydání: 19.4.2002
>
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
DateLeadZero
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.5.2002 14:41:46
From: <plupinek(zv)synthesia(tec)cz>
> ale vraci mi to ve formatu 2.5.2002. Potreboval bych to ve formatu
> 02.05.2002.
Podivej se na funkci FormatDateTime.
Petr Vones
Console pro Firebird CS
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 2.5.2002 14:48:02
Ahoj,
jakou IBConsole (pro Win) pouzivate pro Firebird Classic Server na Linuxu?
V archivu jsem nasel, ze uz se na to nekdo ptal, ale nebyla tam zadna odpoved.
Ta co jsem pouzival na IB hlasi neco jako ze tuto verzi nepodporuje a novejsi jsem
nikde nenasel.
Dik za odpoved
Petr Smol�k
delphi vs flash
[*] delphi.konf(zv)atila(tec)cz - 2.5.2002 15:03:04
Zkousel nekdo pomoci ActiveX propojit Delphi a Flash ?
pp
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
SET GENERATOR + IB6
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 2.5.2002 15:42:08
Asi ne. Hodnoty generatoru totiz v RDB$ tabulkach nejsou.
> Tak to prepis v systemovych tabulkach mozna to pujde.
> > Prikaz SET GENERATOR nelze pouzit v ulozene procedure.
Z.Kalhous
velky scrollbar
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 2.5.2002 15:49:16
Da se to nastavit pres vlastnosti obrazovky/zalozka Vzhled/polozka
"Posuvnik". Ale pak to bude globalni pro cela Windows, nejen pro tvuj
program. Nebo se mrkni na API funkci SystemParametersInfo, jde to nastavit i
programove.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> From: Vaclav Sazima [mailto:vaclav.sazima(zv)utilia(tec)cz]
> Subject: velky scrollbar
>
> potrebuji scrollbar pro dotykovou obrazovku. Daji se nejak nastavit
> rozmery sipek a thumbu (jak se tomu asi rekne cesky}, nebo si to musim
> naprogramovat cele sam?
TRichEdit
[*] bardon <bardon(zv)akord-soft(tec)cz> - 2.5.2002 16:03:36
Nejsem si jisty, ale mozna by slo po kazde zmene textu volat EM_FORMATRANGE
a podle vysledku tu zmenu "dovolit" nebo "nedovolit". Na "nedovolit" by se
mozna mohlo pouzit EM_UNDO, nebo dat cely text jako Protected a povoleni
osetrit v OnProtectChange (nebo jak se ta udalost presne jmenuje).
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Karel Svoboda
Pouzivam na to komponentu RichEdit. Problem je ale v tom, ze nedokazu
omezit maximalni "delku a vysku" textu. Nechci, aby se text
automaticky skroloval ani vertikalne ani horizontalne, proste aby se
do vstupniho okenka veslo jen tolik, klik se tam skutecne vejde, jako
by to byl kousek papiru. Omezeni poctu znaku zde pochopitelne nema
smysl(kazdy znak muze zabrat jinak velike misto).Zkousel jsem si
pohrat se sugnalem EM_SETRECT, ale to mi nejak nefunguje, asi to
nebude to prave orechove...
velky scrollbar
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 2.5.2002 17:00:53
> potrebuji scrollbar pro dotykovou obrazovku. Daji se nejak nastavit
> rozmery sipek a thumbu (jak se tomu asi rekne cesky}, nebo si to musim
> naprogramovat cele sam?
Myslim, ze klasicke scrollbary to neumoznuju, ale flat scrollbars ano (aspon
podla dokumentacie).
HTH
TOndrej
velky scrollbar
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 02.5.2002 17:04:25
Ahoj,
globalne bych to nechtel, predstav si jenom, jak by dopadly Delphi, v
kterejch to pisu...
Vaclav Sazima
Petr Brant wrote:
>
> Da se to nastavit pres vlastnosti obrazovky/zalozka Vzhled/polozka
> "Posuvnik". Ale pak to bude globalni pro cela Windows, nejen pro tvuj
> program. Nebo se mrkni na API funkci SystemParametersInfo, jde to nastavit i
> programove.
>
> > From: Vaclav Sazima [mailto:vaclav.sazima(zv)utilia(tec)cz]
> > Subject: velky scrollbar
> >
> > potrebuji scrollbar pro dotykovou obrazovku. Daji se nejak nastavit
> > rozmery sipek a thumbu (jak se tomu asi rekne cesky}, nebo si to musim
> > naprogramovat cele sam?
Suma slovom
[*] Roman Toda <toda(zv)digitaldocuments.org> - 2.5.2002 17:13:11
Nemate nahodou niekto k dispozicii funkciu /unit na subj. Teda z: 150 urobi
stopatdesiat
Podotykam, ze mam zaujem o slovencinu
Roman
Dotaz k efektivite kodu
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 02.5.2002 17:13:12
Co se tyce rychlosti, jsou na tom obe moznosti zhruba stejne. Ale druha
naprosto vyhrava co se tyce cistoty kodu a objektoveho pristupu. Ale
nepochopil jsem, zda jde v druhem pripade o public promennou objektu
nebo unity. Pokud objektu, pak je to Ok.
Prvni zpusob vytvari v aplikaci velmi nepekne zavislosti. Druhy je sice
trochu narocnejsi na psani ale kdyz se napr. rozhodnes ITRMsg presunout
zcela nekam jinam nez do TMainWnd, ostatni objekty to ani nepoznaji.
Petr Brant wrote:
>
> Ahoj vespolek, prosil bych o nazor, ktera konstrukce je lepsi z hlediska
> efektivity, rychlosti a prace s pameti (W98, D5Pro):
>
> V hlavnim okne aplikace (TMainWnd) je definovana trida TITRMsg, jejiz funkce
> se v prubehu vyvoje zacaly pouzivat v mnoha dalsich unitach projektu a jde o
> to, jak zajistit pristup k teto promenne:
>
> v MainWndUnit:
>
> uses ItrMsgUnit,...;
>
> type TMainWnd = class(TForm)
> ...
> public ITRMsg: TItrMsg;
> ...
> end;
>
> var MainWnd: TMainWnd;
>
> Konstrukce 1:
> V unite, kde se ma pouzivat promenna ITRMsg staci napsat uses MainWndUnit a
> funguje to napr. takto:
> MainWnd.ItrMsg.SendMsg(...);
>
> Konstrukce 2:
> V unite, kde se ma pouzivat promenna ITRMsg, se zavede public promenna
> ITRMsg: TItrMsg (to samozrejme predpoklada uses ItrMsgUnit) a kdyz se
> vytvari instance prislusne tridy, preda se do ni pointer na ITRMsg z
> hlavniho okna, napriklad
>
> OtherWnd:= TOtherWnd.Create(nil);
> OtherWnd.ItrMsg:= ITRMsg;
>
> a v OtherWndUnit pak funguje prikaz ItrMsg.SendMsg(...)
>
> Obe konstrukce se mi zdaji rovnocenne, ale radeji se poradim u odborniku,
> zda je muj nazor spravny.
>
> Za veskere odpovedi diky predem
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> http://web.redbox(tec)cz/petr.brant
> ICQ #68652380
>
> D&COMM s.r.o.
> Korunova�n� 6
> 170 00 Praha 7
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Maximized MDIChild
[*] mipr(zv)volny(tec)cz - 02.5.2002 17:50:18
Vyvijite nekdo MDI aplikace? Jestli ano, setkali jste se s timto
problemem? - po create kterehokoliv childu s nastavenym stylem
wsMaximized se tento child vytvori nejprve jako wsNormal a teprve po
show se preblikne do wsMaximized. Proc se tak deje? Jak se zbavit
teto neprijemne vlastnosti? Nekde jsem na to uz radu videl, ale
nemuzu to ve svym archivu najit a v archivu konference jsem nasel
pouze stejne, ale nezodpovezene, dotazy. Prosim poradte, urcite
nejsem sam kdo rad uvita reseni... Dekuji
Michal
HDD- pocet a jmena
[*] Tom� Kup��k����J�����̿ - 2.5.2002 18:19:13
API fce:
The GetLogicalDriveStrings function fills a buffer with strings that
specify valid drives in the system.
DWORD GetLogicalDriveStrings(
DWORD nBufferLength, // size of buffer
LPTSTR lpBuffer // drive strings buffer
);
The GetLogicalDrives function retrieves a bitmask representing the
currently available disk drives.
DWORD GetLogicalDrives(VOID);
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of WhiteBear
Sent: Tuesday, May 07, 2002 4:37 PM
To: Delphi Forum
Subject: HDD- pocet a jmena
Dobr� den,
nevite jak udelat funkci, ktera zjisti, zda jsou kromne C:\ pritomny i
dalsi pevne disky? nechci CDROM
--
S pozdravem,
WhiteBear
whitebear(zv)centrum(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
HTTPPostFile ze synapse
[*] <suky(zv)atlas(tec)cz> - 2.5.2002 18:53:17
Ahoj,
ja vim, ze jsem otravnej, ale muzete mi nekdo napsat malou ukazku jak mam pouzit funkci HTTPPostFile ze Synapse? Nevim jak mam naplnit TStream danym souborem z disku.
Dekuji
Michal
rezidentni programy
[*] moje <stenk(zv)volny(tec)cz> - 02.5.2002 20:45:34
Zdravim vsechny ucastniky konference.
Potreboval bych zjistit jak vytvorit rezidentni program - neco na
zpusob planovace uloh ve WIN. Dik Sten
Console pro Firebird CS
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 2.5.2002 21:17:00
Haj hou!
On 2 May 2002, at 14:48, Petr Smol�k wrote:
> jakou IBConsole (pro Win) pouzivate pro Firebird Classic Server na Linuxu?
> V archivu jsem nasel, ze uz se na to nekdo ptal, ale nebyla tam zadna odpoved.
> Ta co jsem pouzival na IB hlasi neco jako ze tuto verzi nepodporuje a novejsi jsem
> nikde nenasel.
IBAccess, IBQuery nebo IBExpert Personal. Vse a jeste dalsi
nastroje k dohledani na nasem webu.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Delphi.NET previewed at SD West
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.5.2002 21:19:35
http://community.borland.com/article/0,1410,28649,00.html
Petr Vones
HTTPPostFile ze synapse
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.5.2002 21:22:54
From: <suky(zv)atlas(tec)cz>
> Nevim jak mam naplnit TStream danym souborem z disku.
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TFileStream;
begin
Stream := TFileStream.Create('soubor', fmOpenRead or fmShareDenyWrite);
try
finally
Stream.Free;
end;
end;
Petr Vones
rezidentni programy
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 2.5.2002 21:32:30
Windows je mnohoulohovy system, takze kazda aplikace je v podstate neco jako
rezidentni program. A to, ze nektery program ma ikonu v tray (treba zrovna
ten Planovac uloh), jeste neznamena, ze se jedna o neco vyjimecneho. Proste
vytvor standardni program, ktery dela to co ma a muzes jej sbalit do traye
pomoci nektere z mnoha free komponent, pripadne i rucne pomoci API funkci.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: rezidentni programy
>
> Potreboval bych zjistit jak vytvorit rezidentni program - neco na
> zpusob planovace uloh ve WIN. Dik Sten
rezidentni programy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.5.2002 21:34:13
From: "moje" <stenk(zv)volny(tec)cz>
> Potreboval bych zjistit jak vytvorit rezidentni program - neco na
> zpusob planovace uloh ve WIN. Dik Sten
Pojem 'rezidentni program' je ve Windows nesmyslny. Muzes vytvorit aplikaci
ktera se spusti po startu systemu (a nebude mit viditelne okno) nebo na NT to
pak muze byt service.
Petr Vones
CD prehravac
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 2.5.2002 23:30:53
Zdravim
AD 1
Vsechny CD prehravace takhle pracuji. Kdyztak na to klikni dvakrat a je to.
Nebo provadej Previous dvakrat za sebou.
Zdenek
----- Original Message -----
1) Potreboval bych zjistit, jak se p?epnout na p?edchz� track
(n�sleduj�c� jde pomoc� Next, Previous jen nastav� na za?�tek tracku
aktu�ln�ho)
*DKx# - Prosim nemazat, index do filtru
Instalace BDE
[*] Hr�a Daniel <Daniel.Hrna(zv)sme(tec)cz> - 3.5.2002 05:58:25
Win2k, D5 Pro.
Mam takovy dotaz. Moje aplikace vyzaduje pritomnost BDE na pc. Mam 400
uzivatelu, kteri maji bohuzel diky politice v systemu prava "User".
BDE, ale vyzaduje pri instalaci a restartu prava alespon "Power User".
Muzu nejak spustit (s nejakym parametrem spusteni) instalaci BDE tak aby
mi probehla jak instalace tak restart PC a probehl regserv32 i na
uzivateli "User" ve Win 2k ?
Resil jste to jiz nekdo ?
Moc dik za rady.
D.
Overeni a vytvoreni ODBC User DSN z aplikace
[*] "Netu�il, Roman, Ing." - 3.5.2002 07:19:41
Dobry den,
obracim se na Vas s dotazem, zda nekdo nevite jak z Delphi aplikace proverit
existenci ODBC User DSN na zaklade jeho jmena? V pripade, ze takovy User DSN
neexistuje pak ho teprve vytvorit.
Diky
Roman
MDB bez MS Access
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 03.5.2002 07:59:10
Ahoj,
co by ste mi poradili na pristup k MDB suborom
bez nutnosti instalovat MSAccess (vratane BDE)?
Potrebujem davkovo vykuchat nejake data.
Mozno by mi stacilo, ak by ste mi niekto
dal dobry tip na popis struktury dat
v MDB subore.
Vlkovic
Maximized MDIChild
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 3.5.2002 08:04:13
procedure TForm1.FormCreate(Sender: TObject);
var R:TRect;
begin
Win32Check(Windows.GetClientRect(App.ClientHandle, R));
BoundsRect:=R;
....
end;
----- Original Message -----
From: <mipr(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, May 02, 2002 5:50 PM
Subject: Maximized MDIChild
> Vyvijite nekdo MDI aplikace? Jestli ano, setkali jste se s timto
> problemem? - po create kterehokoliv childu s nastavenym stylem
> wsMaximized se tento child vytvori nejprve jako wsNormal a teprve po
> show se preblikne do wsMaximized. Proc se tak deje? Jak se zbavit
> teto neprijemne vlastnosti? Nekde jsem na to uz radu videl, ale
> nemuzu to ve svym archivu najit a v archivu konference jsem nasel
> pouze stejne, ale nezodpovezene, dotazy. Prosim poradte, urcite
> nejsem sam kdo rad uvita reseni... Dekuji
> Michal
>
>
Suma slovom
[*] Petr Jansky <delphi(zv)amzdy(tec)cz> - 3.5.2002 08:28:35
> Nemate nahodou niekto k dispozicii funkciu /unit na subj. Teda z: 150
urobi
> stopatdesiat
> Podotykam, ze mam zaujem o slovencinu
>
> Roman
>
Mam! Pokud bys mel zajem kontaktuj me na soukr. mail, muzu poslat zdrojak.
Ale je to cesky, prelozit si to snad muzes.
S pozdravem
Ing. Petr J�nsk�
p.jansky(zv)amzdy(tec)cz
---
Odchoz� zpr�va mo�n� neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Softwarove vytvorenie ALIASu v ODBC
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 3.5.2002 08:35:31
Mysl�m �e nap��klad takto:
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
If OpenKey('\SOFTWARE\ODBC\ODBC.INI\alias',true) then
begin
WriteString........................
end;
end;
Reg.CloseKey;
finally
Reg.Free;
end;
Petr Klinger
----- Original Message -----
From: "Slavomir Cekel" <cekel(zv)noves.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 30, 2002 4:21 PM
Subject: Softwarove vytvorenie ALIASu v ODBC
> Nevie niekto ako sa da softwarovo vytvorit ALIAS v ODBC ??? konkretne
> ide o napojenie sa na SQL SERVER 2000. Prikladik pomoze, srdecna vdaka
> ...
>
> Slavo
kliknutie niekde na obrazovke
[*] iko <iko(zv)kamarad(tec)cz> - 3.5.2002 09:18:38
zdravim
da sa nejak kliknut niekde na obrazovke? dajme tomu Click(100,200)... nieco take ake SetCursorPos ale na kliknutie
dakujem za pomoc...a prajem vsetkych pekny den
Suma slovom
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 3.5.2002 09:19:39
> Nemate nahodou niekto k dispozicii funkciu /unit na subj. Teda z: 150 urobi
> stopatdesiat
> Podotykam, ze mam zaujem o slovencinu
Myslim, ze neco takoveho se vali na FTP serveru konference...
(ftp.delphi(tec)cz jmeno a heslo jsem tu nedavno posilal...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Chyba nacteni dlouheho retezce
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 3.5.2002 09:26:30
Ahoj
rad bych se poradil na nasledujicim problemem.
mam textovy (vygenerovany) soubor s deviti radky, nekolik radku je dlouhych i 20000 znaku.
Pokud cely soubor nactu do stringlistu nebo je nactu do ansistringu pres ReadLn() tak mi kus retezce chybi resp. jsou tam nesmysly (binarni nuly atp).
Setkal jste se s tim uz nekdo, pripadne jak tomu predchazet. Mam D5.01 Pro a jedu to na Win2000.
Diky
Jaro B.
TlistItem v komponente ListView
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 3.5.2002 09:39:42
Zdravim ucastniky konference.
Ve sve snaze po zvladnuti zakladu programovani v Delphi jsem opet narazil na
nezvladnutelny problem.
Chci pouzit komponentu ListView k zobrazeni a vyberu jedne polozky slozene z
jmena a kalendarniho data. Kazda slozka ma byt ve zvlastnim sloupci. Nedari
se mi vytvorit subitem, tj. vlozit text do druheho sloupce postupem popsanym
v napovede. Ma s tim nekdo zkusenosti a muze mi poradit postup vedouci k
cili, pripadne doporucit jinou komponentu podobnou ListBoxu, avsak
umoznujici zobrazeni ve sloupcich?
Ing. Jan Dvorak
kliknutie niekde na obrazovke
[*] Radoslav Medzihradsky <rmedzihradsky(zv)cssoftware(tec)com> - 3.5.2002 10:09:03
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
napriklad takto:
�
������������� SetCursorPos(x, y);
������������� Application.ProcessMessages;
������������� mouse event(MOUSEEVENTF LEFTDOWN, 0, 0, 0, 0);
������������� mouse event(MOUSEEVENTF LEFTUP, 0, 0, 0, 0);
-----Original Message-----
From: iko [mailto:iko(zv)kamarad(tec)cz]
Sent: Friday, May 03, 2002 9:19 AM
To: Undisclosed-Recipient:(zv)mail.ies.sk;(zv)www.cscare.com;
Subject: kliknutie niekde na obrazovke
zdravim
�
da sa nejak kliknut niekde na obrazovke? dajme tomu Click(100,200)...
nieco take ake SetCursorPos ale na kliknutie
�
dakujem za pomoc...a prajem vsetkych pekny den
TlistItem v komponente ListView
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 3.5.2002 10:10:46
Pouzivam mj. tuto konstrukci a pracuje dobre (LV je ListView):
LV.Columns.Add;
LV.Columns.Items[0].Width:= 100;
LV.Columns.Items[0].Caption:= 'Jm�no';
LV.Columns.Add;
LV.Columns.Items[1].Width:= 100;
LV.Columns.Items[1].Caption:= 'K�d';
for i:= 0 to TransportList.Count - 1 do
begin
TransportData:= TTransport(TransportList.Items[i]).TransportData;
ListItem:= LV.Items.Add;
ListItem.Caption:= TransportData.Name;
ListItem.SubItems.Add(TransportData.Code);
...
end;
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: TlistItem v komponente ListView
>
> Chci pouzit komponentu ListView k zobrazeni a vyberu jedne polozky slozene
z
> jmena a kalendarniho data. Kazda slozka ma byt ve zvlastnim sloupci.
Nedari
> se mi vytvorit subitem, tj. vlozit text do druheho sloupce postupem
popsanym
> v napovede.
>
> Ing. Jan Dvorak
TlistItem v komponente ListView
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.5.2002 10:10:28
V helpu jsou u TslistView.Items 2 priklady
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.5.2002 Jan Dvorak:
> Zdravim ucastniky konference.
> Ve sve snaze po zvladnuti zakladu programovani v Delphi jsem opet narazil na
> nezvladnutelny problem.
> Chci pouzit komponentu ListView k zobrazeni a vyberu jedne polozky slozene z
> jmena a kalendarniho data. Kazda slozka ma byt ve zvlastnim sloupci. Nedari
> se mi vytvorit subitem, tj. vlozit text do druheho sloupce postupem popsanym
> v napovede. Ma s tim nekdo zkusenosti a muze mi poradit postup vedouci k
> cili, pripadne doporucit jinou komponentu podobnou ListBoxu, avsak
> umoznujici zobrazeni ve sloupcich?
TlistItem v komponente ListView
[*] bures <bures(zv)ssakhk(tec)cz> - 3.5.2002 10:16:25
Ahoj SubUtems je deklarovany jako TStrings, tudiz to mas stejny jako treba
pridavani radku do listboxu nebo mema
Prvni sloupec je u ListViewu Caption a ostatni sloupce jsou jako
SubItems[0..SubItems.count -1]
var
polozka: TListItem
begin
with ListView1 do
begin
polozka := Items.Add;
polozka.Caption := 'XXXX';
polozka.ImageIndex := 1;
polozka.SubItems.Add('aaaa');
polozka.SubItems.Add('bbbb');
end; { with }
end;
Vlada
----- Original Message -----
From: "Jan Dvorak" <dvorak(zv)szu(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 03, 2002 9:39 AM
Subject: TlistItem v komponente ListView
> Zdravim ucastniky konference.
> Ve sve snaze po zvladnuti zakladu programovani v Delphi jsem opet narazil
na
> nezvladnutelny problem.
> Chci pouzit komponentu ListView k zobrazeni a vyberu jedne polozky slozene
z
> jmena a kalendarniho data. Kazda slozka ma byt ve zvlastnim sloupci.
Nedari
> se mi vytvorit subitem, tj. vlozit text do druheho sloupce postupem
popsanym
> v napovede. Ma s tim nekdo zkusenosti a muze mi poradit postup vedouci k
> cili, pripadne doporucit jinou komponentu podobnou ListBoxu, avsak
> umoznujici zobrazeni ve sloupcich?
>
> Ing. Jan Dvorak
>
Zapis do EventVieweru ve WinNT pomoci Delphi
[*] <little_bobes(zv)centrum(tec)cz> - 3.5.2002 10:21:31
Zdravim,
mam program, ktery nema formular a potrebuji jeho informace (napr. o
chybach) zapisovat do "Protokolu aplikaci" ve WinNT.
Mate s tim nekdo zkusenosti?
Diky Bob
MDB bez MS Access
[*] Ondrej Krsko <krsko(zv)gjh.sk> - 3.5.2002 10:33:45
> co by ste mi poradili na pristup k MDB suborom
> bez nutnosti instalovat MSAccess (vratane BDE)?
access nepotrebujes. staci ti MS Jet
> ...dal dobry tip na popis struktury dat
> v MDB subore.
tak touto cestou by som moc rad nesiel... MS formaty su dost zaujimave a na
99% nezdokumentovane (vid import .DOC a .XLS do inych Officov)
Overeni a vytvoreni ODBC User DSN z aplikace
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 3.5.2002 10:42:37
10.1.2002 bylo toto popsano. Popisoval to Ondrej Kelle. Zkus se podivat do
archivu a vyhledej SQLConfigDataSource
Jarda
----- Original Message -----
From: "Netu�il, Roman, Ing." <Netusil.Roman(zv)vspardubice(tec)cz>
To: "DELPHI-Konference (el. adresa)" <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 03, 2002 7:19 AM
Subject: Overeni a vytvoreni ODBC User DSN z aplikace
> Dobry den,
> obracim se na Vas s dotazem, zda nekdo nevite jak z Delphi aplikace
proverit
> existenci ODBC User DSN na zaklade jeho jmena? V pripade, ze takovy User
DSN
> neexistuje pak ho teprve vytvorit.
>
> Diky
> Roman
Ladeni service
[*] Jaromir Svoboda <jaromir.svoboda(zv)asei(tec)cz> - 3.5.2002 10:45:46
Lze nejakym zpusobem ladit a krokovat sluzbu?
Diky
J.Svoboda
Zapis do EventVieweru ve WinNT pomoci Delphi
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 3.5.2002 10:46:20
Koukni na tohle:
http://www.delphidevelopernewsletter.com/dd/ddmag.nsf/0/9E27FFF5B9FC7C328525
68F5004B1605
Existuji na to i freeware komponenty, hledej NTTOOLS.
Leos
----- Original Message -----
From: <little_bobes(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, May 03, 2002 10:21 AM
Subject: Zapis do EventVieweru ve WinNT pomoci Delphi
> Zdravim,
>
> mam program, ktery nema formular a potrebuji jeho informace (napr. o
> chybach) zapisovat do "Protokolu aplikaci" ve WinNT.
> Mate s tim nekdo zkusenosti?
>
> Diky Bob
>
>
>
Ladeni service
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 3.5.2002 10:58:35
No, ja napriklad vsechny servisy pisu tak, ze se daji pustit i jako
normalni konzolova aplikace.. a tam se to ladi vcelku dobre.
> Lze nejakym zpusobem ladit a krokovat sluzbu?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Replikacie
[*] Tom� Kup��k����J�����̿ - 3.5.2002 11:08:57
Co t�eba toto?
http://www.ibphoenix.com/ibp_howto10.html
> Co by ste doporucili ako studijny material na replikacie ?Inno Setup
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 3.5.2002 11:23:54
Ahoj,
nevite, zda je mozne v prubehu instalace aplikace pomoci Inno Setupu pozadovat od uzivatele UZIVATELSKE JMENO a INSTALACNI KOD a tyto udaje nasledne ulozit do registru? Jde mi o to, ze doposud jsem pouzival InnoSetup 1.09c s vlastnorucne dodelanym oknem pro zadavani techto udaju. Nyni mam verzi 2.0.19 a doufal jsem, ze tato moznost je jiz zaintegrovana a ja nebudu muset opet kodovat. Bohuzel zatim jsem na nic neprisel.
Dik. Jara
svehla(zv)spelza(tec)cz
0603 499456
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
TlistItem v komponente ListView
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 3.5.2002 11:23:01
Uz jsem na to prisel, omlouvam se ze jsem zbrkle obtezoval konferenci.
Preji hezky vikend.
Ing. Jan Dvorak
> Ve sve snaze po zvladnuti zakladu programovani v Delphi jsem opet
> narazil na
> nezvladnutelny problem.
Suma slovom
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.5.2002 11:34:27
----- Original Message -----
From: "Gebauer Lukas" <gebylist(zv)mlp(tec)cz>
> > Nemate nahodou niekto k dispozicii funkciu /unit na subj. Teda z: 150 urobi
> > stopatdesiat
>
> Myslim, ze neco takoveho se vali na FTP serveru konference...
> (ftp.delphi(tec)cz jmeno a heslo jsem tu nedavno posilal...)
V te jsou chyby, myslim ze nejlepsi je se zamyslet a napsat si ji sam.
Pro ty co to nechteji podstoupit posilam odladenou funkci z knihovny
naseho projektu, pro slovenstinu by to myslim melo jit upravit velmi
jednoduse:
{** Prevod c�sla na textov� vyj�dren�.
Um� maxim�lne do 999999999.}
function NxIntegerToLanguage(ANum: integer): string;
const
mArr0 : array[1..19] of string = ('jedna', 'dve', 'tri', 'ctyri', 'pet', 'sest',
'sedm', 'osm', 'devet', 'deset', 'jeden�ct', 'dvan�ct', 'trin�ct', 'ctrn�ct',
'patn�ct', 'sestn�ct', 'sedmn�ct', 'osmn�ct', 'devaten�ct');
mArr1 : array[1..9] of string = ('deset', 'dvacet', 'tricet', 'ctyricet', 'pades�t',
'sedes�t', 'sedmdes�t', 'osmdes�t', 'devades�t');
mArr2 : array[1..9] of string = ('jednosto', 'dveste', 'trista', 'ctyrista', 'petset',
'sestset', 'sedmset', 'osmset', 'devetset');
mArr3 : array[1..9] of string = ('jedentis�c', 'dvatis�ce', 'tritis�ce', 'ctyritis�ce', 'pettis�c',
'sesttis�c', 'sedmtis�c', 'osmtis�c', 'devettis�c');
mArr6 : array[1..9] of string = ('jedenmili�n', 'dvamili�ny', 'trimili�ny', 'ctyrimili�ny', 'petmili�nu',
'sestmili�nu', 'sedmmili�nu', 'osmmili�nu', 'devetmili�nu');
function iConv(ANum, AFactor: integer): string;
var
mVal: integer;
mPosfix: Boolean;
begin
Result := '';
mPosFix := False;
if ANum < 1000 then begin
mVal := ANum div 100;
ANum := ANum mod 100;
if mVal > 0 then
Result := Result + mArr2[mVal];
if ANum > 19 then begin
mVal := ANum div 10;
ANum := ANum mod 10;
if mVal > 0 then
Result := Result + mArr1[mVal];
end;
if ANum > 0 then begin
if (ANum > 9) or (AFactor = 0) then
Result := Result + mArr0[ANum]
else begin
if AFactor = 1 then
Result := Result + mArr3[ANum]
else
Result := Result + mArr6[ANum];
mPosFix := True;
end;
end;
if (AFactor > 0) and Not mPosFix then begin
if AFactor = 1 then
Result := Result + 'tis�c'
else
Result := Result + 'mili�nu'
end;
end;
end;
var
mVal: integer;
begin
if ANum > 999999999 then
Result := 'Nelze zobrazit'
else begin
Result := '';
// nejdrive test na miliony
mVal := ANum div 1000000;
ANum := ANum mod 1000000;
if mVal > 0 then
Result := Result + iConv(mVal, 2);
// pak test na tisice
mVal := ANum div 1000;
ANum := ANum mod 1000;
if mVal > 0 then
Result := Result + iConv(mVal, 1);
Result := Result + iConv(ANum, 0);
end;
end;
Martin Schayna
MDB bez MS Access
[*] Martin Cajbik <cajbik(zv)sct.sk> - 3.5.2002 11:37:15
A co takto pristup cez ODBCe (http://www.sct.sk/soft/ODBCe.exe).
Alebo mozes pouzit ADO. Zinstaleny musis mat akurat MDAC
(a ten uz v systeme obvykle je).
MarCaNT (marcant(zv)sct.sk)> Ahoj,
>
> co by ste mi poradili na pristup k MDB suborom
> bez nutnosti instalovat MSAccess (vratane BDE)?
>
> Potrebujem davkovo vykuchat nejake data.
> Mozno by mi stacilo, ak by ste mi niekto
> dal dobry tip na popis struktury dat
> v MDB subore.
>
> Vlkovic
>
>
TlistItem v komponente ListView
[*] Martin Cajbik <cajbik(zv)sct.sk> - 3.5.2002 11:40:40
A samozrejme netreba zabudnut prepnut ViewStyle na vsReport.
MarCaNT (marcant(zv)sct.sk)> Ahoj SubUtems je deklarovany jako TStrings, tudiz to mas stejny jako treba
> pridavani radku do listboxu nebo mema
> Prvni sloupec je u ListViewu Caption a ostatni sloupce jsou jako
> SubItems[0..SubItems.count -1]
>
> var
> polozka: TListItem
> begin
> with ListView1 do
> begin
> polozka := Items.Add;
> polozka.Caption := 'XXXX';
> polozka.ImageIndex := 1;
> polozka.SubItems.Add('aaaa');
> polozka.SubItems.Add('bbbb');
> end; { with }
> end;
>
> Vlada
>
> > Zdravim ucastniky konference.
> > Ve sve snaze po zvladnuti zakladu programovani v Delphi jsem opet
narazil
> na
> > nezvladnutelny problem.
> > Chci pouzit komponentu ListView k zobrazeni a vyberu jedne polozky
slozene
> z
> > jmena a kalendarniho data. Kazda slozka ma byt ve zvlastnim sloupci.
> Nedari
> > se mi vytvorit subitem, tj. vlozit text do druheho sloupce postupem
> popsanym
> > v napovede. Ma s tim nekdo zkusenosti a muze mi poradit postup vedouci k
> > cili, pripadne doporucit jinou komponentu podobnou ListBoxu, avsak
> > umoznujici zobrazeni ve sloupcich?
> >
> > Ing. Jan Dvorak
> >
ulozeni DFM jako text file
[*] Michal <delphi-konference(zv)bcpraha(tec)com> - 3.5.2002 11:42:23
Ahoj vsem,
Nevite jestli je mozne nastavit Delphi tak, aby ukladal DFM souboty
automaticky jako text a ne jako binarku. Mam dojem, ze verze 1.0 to
nejak umela, ale v 3 a 5 jsem nic takoveho nenasel.
Jde mi o to, abych si mohl DFM soubor kdykoliv precist (prip. porovnat s
jinym souborem) a abych kvuli tomu nemusel poustet delphi.
Dekuji
Michal
ulozeni DFM jako text file
[*] Martin Cajbik <cajbik(zv)sct.sk> - 3.5.2002 11:56:09
Pokial viem tak je to mozne az od verzie 6 (mozno aj v 5 ale tu som "v ruke"
nikdy nemal)
MarCaNT (marcant(zv)sct.sk)> Ahoj vsem,
>
> Nevite jestli je mozne nastavit Delphi tak, aby ukladal DFM souboty
> automaticky jako text a ne jako binarku. Mam dojem, ze verze 1.0 to
> nejak umela, ale v 3 a 5 jsem nic takoveho nenasel.
> Jde mi o to, abych si mohl DFM soubor kdykoliv precist (prip. porovnat s
> jinym souborem) a abych kvuli tomu nemusel poustet delphi.
>
> Dekuji
> Michal
>
>
>
ulozeni DFM jako text file
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.5.2002 12:00:51
Je to mozne i ve veriz 5
Tools\Enviroment options\Preferences\Form designer\New form as text
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.5.2002 Martin Cajbik:
> Pokial viem tak je to mozne az od verzie 6 (mozno aj v 5 ale tu som "v ruke"
> nikdy nemal)
> MarCaNT (marcant(zv)sct.sk)>> Ahoj vsem,
>>
>> Nevite jestli je mozne nastavit Delphi tak, aby ukladal DFM souboty
>> automaticky jako text a ne jako binarku. Mam dojem, ze verze 1.0 to
>> nejak umela, ale v 3 a 5 jsem nic takoveho nenasel.
>> Jde mi o to, abych si mohl DFM soubor kdykoliv precist (prip. porovnat s
>> jinym souborem) a abych kvuli tomu nemusel poustet delphi.
>>
>> Dekuji
>> Michal
>>
>>
>>
>>
Inno Setup
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 3.5.2002 12:13:20
>nevite, zda je mozne v prubehu instalace aplikace pomoci Inno Setupu
>pozadovat od uzivatele UZIVATELSKE JMENO a INSTALACNI KOD a tyto udaje
>nasledne ulozit do registru?
Pouzij My Inno Setup Extensions http://www.wintax.nl/isx/ myslim ze je
tam na to dokonce sample....
Ales
Jak nainserovat FLOAT do tabulky - sloupce typu DE
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 3.5.2002 12:33:45
Ahoj,
prosim o radu. Mam D5, Win 2000 a Informixovou dtb. Potrebuji do sloupce
v tabulce (DECIMAL) nainsertovat desetinne cislo typu float. Problem ale
je, ze napr. cislo 10.10 se napise s carkou a tim padem to SQL bere jako
dva parametry a zbuchne to na chybe.
V.
rezidentni programy
[*] stenk(zv)volny(tec)cz - 03.5.2002 12:48:36
Diky, zda se ze jsem plne nepochopil jak pracuji windows. Proto jsem
zde psal o rezidetnich programech. Myslel jsem tim program umisteny v
trayi. Proto bych se chtel pozeptat na ty FREE aplikace, ktere by mi
program do traye umistily. Dik Sten
rezidentni programy
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 3.5.2002 13:04:51
Na teto adrese najdes komponentu TCoolTrayIcon vcetne prikladu.
http://www3.ewebcity.com/troels/delphi.asp
Leos
ulozeni DFM jako text file
[*] Martin Macko <martinm(zv)m-pro(tec)cz> - 3.5.2002 13:08:36
popripade v BIN\ program CONVERT
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of ing. Jan Fiala
Sent: Friday, May 03, 2002 12:01 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ulozeni DFM jako text file
Tools\Enviroment options\Preferences\Form designer\New form as text
---
Avast: Odchozi zprava vyhodnocena jako eista
Datum a eas testovani: 3.5.2002 13:08:35
Datum virove databaze (VPS): 24.4.2002
Avast! antivirus od Alwil Software
Avast32 (VPS 24.4.2002): zprava neobsahuje virus
Ladeni service
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 3.5.2002 13:10:19
> Lze nejakym zpusobem ladit a krokovat sluzbu?
Cau, je to popisane v helpe:
DevGuide: Building applications with Delphi
Debugging service applications
HTH
TOndrej
BPL a DLL pluginy - jak na ne?
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 3.5.2002 13:18:27
Zdravim,
mel bych prosbicku. Nevite o nejake strance psane cesky, kde se pojednava o
problemu vytvareni plug-inu pomoci BPL nebo DLL knihoven. Pripadne o
nejakych dobre comentovanych ukazkach?
Nejaky prehled uz mam z anglicky psanych stranek, ale moje anglictina neni
nejsilnejsi :(
S pozdravem Marek Eichler
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Cislo slovom - slovensky
[*] Roland Turcan <rolo(zv)sedas.sk> - 3.5.2002 13:20:07
Hello Delphi CZ konferencia!
takze ja som to urobil do 20000000000-1.
----------------------------------------------------------------------
function Cislo_Slovom(Cislo:Int64):string;
const
Jednotky: array[1..19] of string =
('jeden','dva','tri','�tyri','p�','�es�','sedem','osem','dev�','desa�','jeden�s�','dvan�s�',
'trin�s�','�trn�s�','p�tn�s�','�es�n�s�','sedemn�s�','osemn�s�','dev�n�s�');
PrevodDesiatky: array[2..9] of string =
('dvadsa�','tridsa�','�tyridsa�','p�desiat','�es�desiat',
'sedemdesiat','osemdesiat','dev�desiat');
var Zvysok:Int64;
Bola_Hodnota:Boolean;
Hx100,
Hx10,
Hx1:Byte;
begin
Result:=''; Bola_Hodnota:=False;
Zvysok:=Cislo;
if Cislo>20000000000-1 then
begin
Result:='!!!!! ve�k� ��slo !!!!!';
Exit;
end;
//Hx100:=0; Hx10:=0; Hx1:=0;
//miliardy
Hx1:=Zvysok div 1000000000;
if Hx1>0 then
begin
Zvysok:=Zvysok mod 1000000000;
if Hx1=1 then
begin
if not Bola_Hodnota then Result:=Result+'jednamiliarda';
end else
begin
if Hx1=2 then Result:=Result+'dve'
else if Hx1=3 then Result:=Result+'tri'
else if Hx1=4 then Result:=Result+'�tyri'
else Result:=Result+Jednotky[Hx1]+'mili�rd';
end;
Bola_Hodnota:=True;
end;
////////////////////////////////////////////////////////////////////////////////
//Hx100:=0; Hx10:=0; Hx1:=0;
//StovkyMilionov
Hx100:=Zvysok div 100000000;
if Hx100>0 then
begin
Zvysok:=Zvysok mod 100000000;
if Hx100=1 then
begin
if not Bola_Hodnota then Result:=Result+'jedno';
end else
begin
if Hx100=2 then Result:=Result+'dve'
else Result:=Result+Jednotky[Hx100];
end;
Result:=Result+'sto';
Bola_Hodnota:=True;
end;
//Desiatky milionov
Hx10:=Zvysok div 10000000;
if Hx10>1 then
begin
Zvysok:=Zvysok mod 10000000;
Result:=Result+PrevodDesiatky[Hx10];
Bola_Hodnota:=True;
end;
//miliony
Hx1:=Zvysok div 1000000;
if Hx1>0 then
begin
Zvysok:=Zvysok mod 1000000;
if (Hx100=0) and (Hx10=0) then
begin
if Hx1=1 then Result:=Result+'jedenmili�n'
else if Hx1=2 then Result:=Result+'dvamili�ny'
else if Hx1=3 then Result:=Result+'trimili�ny'
else if Hx1=4 then Result:=Result+'�tyrimili�ny'
else Result:=Result+Jednotky[Hx1]+'mili�nov';
end else Result:=Result+Jednotky[Hx1]+'mili�nov';
Bola_Hodnota:=True;
end;
if ((Hx100>0) or (Hx10>0)) and (Hx1=0) then Result:=Result+'mili�nov';
////////////////////////////////////////////////////////////////////////////////
//Hx100:=0; Hx10:=0; Hx1:=0;
//Stovky tisic
Hx100:=Zvysok div 100000;
if Hx100>0 then
begin
Zvysok:=Zvysok mod 100000;
if Hx100=1 then
begin
if not Bola_Hodnota then Result:=Result+'jedno';
end else
begin
if Hx100=2 then Result:=Result+'dve'
else Result:=Result+Jednotky[Hx100];
end;
Result:=Result+'sto';
Bola_Hodnota:=True;
end;
//Desiatky tisic
Hx10:=Zvysok div 10000;
if Hx10>1 then
begin
Zvysok:=Zvysok mod 10000;
Result:=Result+PrevodDesiatky[Hx10];
Bola_Hodnota:=True;
end;
//tisice
Hx1:=Zvysok div 1000;
if Hx1>0 then
begin
Zvysok:=Zvysok mod 1000;
if (Hx100=0) and (Hx10=0) then
begin
if Hx1=1 then Result:=Result+'jedentis�c'
else if Hx1=2 then Result:=Result+'dvetis�c'
else if Hx1=3 then Result:=Result+'tritis�c'
else if Hx1=4 then Result:=Result+'�tyritis�c'
else Result:=Result+Jednotky[Hx1]+'tis�c';
end else Result:=Result+Jednotky[Hx1]+'tis�c';
Bola_Hodnota:=True;
end;
if ((Hx100>0) or (Hx10>0)) and (Hx1=0) then Result:=Result+'tis�c';
////////////////////////////////////////////////////////////////////////////////
//Hx100:=0; Hx10:=0; Hx1:=0;
//Stovky
Hx100:=Zvysok div 100;
if Hx100>0 then
begin
Zvysok:=Zvysok mod 100;
if Hx100=1 then
begin
if not Bola_Hodnota then Result:=Result+'jedno';
end else
begin
if Hx100=2 then Result:=Result+'dve'
else Result:=Result+Jednotky[Hx100];
end;
Result:=Result+'sto';
//Bola_Hodnota:=True;
end;
//Desiatky
Hx10:=Zvysok div 10;
if Hx10>1 then
begin
Zvysok:=Zvysok mod 10;
Result:=Result+PrevodDesiatky[Hx10];
//Bola_Hodnota:=True;
end;
//jednotky
if Zvysok>0 then Result:=Result+Jednotky[Zvysok];
end;
----------------------------------------------------------------------
--
Best regards, TRoland
Kodova stranka DBF tabulek
[*] "Netu�il, Roman, Ing." - 3.5.2002 13:23:16
Dobry den,
chtel bych se zeptat, zda lze zjistit, popripade i osetrit/nastavit kodovou
stranku u FoxPro tabulek oteviranych z Delphi pres BDE. Mam nekolik tabulek
v temze adresari a jsou pod ruznymi kodovymi strankami. Tyto tabulky jsou
sdileny jinou aplikaci a ja je potrebuji online otevrit ke cteni. Neustale
se peru se zobrazovani ceske diakritiky a nevim co s tim.
Diky,
Roman
rezidentni programy
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 3.5.2002 13:33:40
Napriklad v baliku RX Library takova komponenta je. Nebo hledej na www.
torry.ru, pripadne jsou nejake odkazy i na me strance
http://web.redbox(tec)cz/petr.brant.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: RE : rezidentni programy
>
> Diky, zda se ze jsem plne nepochopil jak pracuji windows. Proto jsem
> zde psal o rezidetnich programech. Myslel jsem tim program umisteny v
> trayi. Proto bych se chtel pozeptat na ty FREE aplikace, ktere by mi
> program do traye umistily.
ulozeni DFM jako text file
[*] DHederer(zv)softip.sk - 3.5.2002 13:33:04
D5:
Tools -> Environment options -> New forms as text
"Michal"
<delphi-konference(zv)bc Komu: <delphi-l(zv)clexpert(tec)cz>
praha.com> Kopie: (Na v�dom�: Daniel Hederer/BYS/SOFTIP)
Odeslal: P�edm�t: ulozeni DFM jako text file
delphi-l-owner(zv)clexpe
rt(tec)cz
03.05.2002 11:42
Odpov�zte pros�m
u�ivateli delphi-l
Ahoj vsem,
Nevite jestli je mozne nastavit Delphi tak, aby ukladal DFM souboty
automaticky jako text a ne jako binarku. Mam dojem, ze verze 1.0 to
nejak umela, ale v 3 a 5 jsem nic takoveho nenasel.
Jde mi o to, abych si mohl DFM soubor kdykoliv precist (prip. porovnat s
jinym souborem) a abych kvuli tomu nemusel poustet delphi.
Dekuji
Michal
Presentace na CD
[*] delphi.konf(zv)atila(tec)cz - 3.5.2002 13:35:53
Zdravim,
Zamer : Vytvoreni presentace na CD ve flashi , k tomu je treba mit .exe
soubor. Flashovy exe neni vhodny.
Proto se pokousim vytvorit aplikaci v Delphi s pouzitim ActiveX
komponenty TShockwaveFlash.
Problem : Na mem pocitaci vse funguje tak jak ma, vytvorim spousteci CD
s autorun.inf s odkazem na soubor.exe. Jakmile to prenesu na jinej komp, tak
soubory typu .swf se neotevrou (nemaji zadny program ktery by je asocioval).
PP
rezidentni programy - RX balik
[*] skalsky(zv)oksystem(tec)cz - 3.5.2002 13:39:59
Tady je balik RX upravenej i pro D6
http://www.oxygensoftware.com/download/rx275d6.zip
Milan
-----Original Message-----
From: Petr Brant [mailto:brant(zv)dcomm(tec)cz]
Sent: Friday, May 03, 2002 1:34 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: RE : rezidentni programy
Napriklad v baliku RX Library takova komponenta je. Nebo hledej na www.
torry.ru, pripadne jsou nejake odkazy i na me strance
http://web.redbox(tec)cz/petr.brant.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: RE : rezidentni programy
>
> Diky, zda se ze jsem plne nepochopil jak pracuji windows. Proto jsem
> zde psal o rezidetnich programech. Myslel jsem tim program umisteny v
> trayi. Proto bych se chtel pozeptat na ty FREE aplikace, ktere by mi
> program do traye umistily.
Presentace na CD
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 3.5.2002 13:40:59
No asi tam neni ActiveX pro flash tj. nainstalovat flash. To ze mate vlastni exe je pekne ale stejne potrebuje activex komponentu pro praci s tim flashem. Zkuste napr. depends.exe a mrknete co ten vas exe na tom pocitaci kde nefunguje potrebuje (pokud si teda ty knihovny neloaduje dynamicky).
Milos
-----Original Message-----
From: delphi.konf(zv)atila(tec)cz [mailto:delphi.konf(zv)atila(tec)cz]
Sent: Friday, May 03, 2002 1:36 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Presentace na CD
Zdravim,
Zamer : Vytvoreni presentace na CD ve flashi , k tomu je treba mit .exe
soubor. Flashovy exe neni vhodny.
Proto se pokousim vytvorit aplikaci v Delphi s pouzitim ActiveX
komponenty TShockwaveFlash.
Problem : Na mem pocitaci vse funguje tak jak ma, vytvorim spousteci CD
s autorun.inf s odkazem na soubor.exe. Jakmile to prenesu na jinej komp, tak
soubory typu .swf se neotevrou (nemaji zadny program ktery by je asocioval).
PP
Presentace na CD
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 3.5.2002 14:10:58
Zdravim,
je mozne, ze na cilovem pocitaci neni registrovana ActiveX komponenta
ShockwaveFlash.
S pozdravem Marek Eichler
----- P�vodn� zpr�va -----
Od: <delphi.konf(zv)atila(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 3. kv�tna 2002 13:35
P�edm�t: Presentace na CD
> Zdravim,
>
> Zamer : Vytvoreni presentace na CD ve flashi , k tomu je treba mit
.exe
> soubor. Flashovy exe neni vhodny.
>
> Proto se pokousim vytvorit aplikaci v Delphi s pouzitim ActiveX
> komponenty TShockwaveFlash.
>
> Problem : Na mem pocitaci vse funguje tak jak ma, vytvorim spousteci
CD
> s autorun.inf s odkazem na soubor.exe. Jakmile to prenesu na jinej komp,
tak
> soubory typu .swf se neotevrou (nemaji zadny program ktery by je
asocioval).
>
> PP
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.351 / Virov� b�ze: 197 - datum vyd�n�: 19.4.2002
Instalace BDE
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 3.5.2002 14:21:48
----- Original Message -----
From: "Hr�a Daniel" <Daniel.Hrna(zv)sme(tec)cz>
Win2k, D5 Pro.
Mam takovy dotaz. Moje aplikace vyzaduje pritomnost BDE na pc. Mam 400
uzivatelu, kteri maji bohuzel diky politice v systemu prava "User".
BDE, ale vyzaduje pri instalaci a restartu prava alespon "Power User".
Muzu nejak spustit (s nejakym parametrem spusteni) instalaci BDE tak aby
mi probehla jak instalace tak restart PC a probehl regserv32 i na
uzivateli "User" ve Win 2k ?
Ahoj.
IMHO ta politika ma svoje opodstatneni. USERi nesmeji mj. zapisovat do HKLM
registru a do Program Files a WinNT adresaru. Takze tezko pres tuhle
politiku muze instalace BDE prejit.
To chrani cely system proti neodbornym zasahum a vyborne take proti vetsine
viru, coz je dnes jiste vyhodne. Asi ti nezbyde nic jineho nez se domluvit s
administratorem site a nechat to nainstalovat jeho.
Vsimnul jsem si, ze existuje i nejaka moznost hromadne instalace, ktera se
automaticky provede pri prvnim restartu PC, ale tech mych 25 compu v jednom
miste jsem zatim vzdycky stihnul obejit.
Ludek
---
Douf�m, �e odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.342 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002