Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Uprava tipu 995 z knihy 1001 tipu a triku
[*] Robert Suska <delphi(zv)korak.sk> - 10.10.2002 10:01:51
Ahojte
Mam problem z prekreslovanim TreeView a to taky ze ten priklad co je v knihe
som odpisal a tiez nechodi korektne ako som si predstavoval totiz Canvas sa
nerekresluje dobre. Upravil som kod na moju potrebu a to tak ze potrebujem
aby sa mi polozka na ktoru sa prave kliklo zobrazila ako fsBold a vsetko
ostatne aby bolo normalne vykreslene. Ono by to aj chodilo keby sa mi boldom
nekraslila aj dalsia noda pod tou ktora sa ani vykreslit boldom nemala. A
ked aj kliknem na inu nodu tak ta co bola boldom uz nieje ale na konci
riadku je este boldom vykresleny rozdiel medzi width textu boldom aj width
textu normalnym pismom.
procedure TreeViewCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;
State: TCustomDrawState; var DefaultDraw: Boolean);
var NodeRect: TRect;
begin
with TTreeView(Sender).Canvas do
begin
if cdsSelected in State then
begin
NodeRect:= Node.DisplayRect(True);
Font.Style:= [fsBold];
FillRect(NodeRect);
end
else
Font.Style:= []; // tu je podla knihy [fsItalic], inac ked som tam dal
aj taketo nieco Fotn.Style:= Fotn.Style - [fsBold]; ani tak to nepomohlo
end;
end;
Viete mi niekto poradit ?
Dakujem
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
COM pluginy
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 10.10.2002 10:08:08
> 1) mohu mit v COM pluginu formular, ktery pak zobrazim v me aplikaci?
(modalne
> i nemodalne) Jak to udelam?
Ano, overeno, ale neni to az tak trivialni, chce to upravit orig class z
delphi
> 2) v aplikaci mam DBGrid, v COM mam TDataSource. Jak z COM predam ukazatel
na
> data source tomu gridu? Neco mi rika, ze to nejde, ale co kdyby? A pokud
to
> opravdu nejde, jak to udelat jinak?
Nejde, pokud se jedna o out of process nebo dll v surogate. Obecne nutno
vyresit
prenos dat.
> 3) ty COM objekty (pluginy) budu mit v nejakych souborech (asi dll?) a ty
budu
> davat do nejakeho adresare, ktery pak v aplikaci budu prochazet. Jak
zjistim,
> ze ta DLL je vlastne COM objekt, ktery umi mnou chtene rozhrani? Jde to
vubec
> moznne takto udelat? Nechci to zbytecne registrovat do registru.
Lepe registrovat jako klasicky COM a vytvaret dle CLASSID. Registrace
rozhodne
neni zbytecna.
Alexandr STEFEK
WM_MOUSELEAVE
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 10.10.2002 10:15:14
Nevite nekdo zda se daji messages pro VCL komponenty zachytavat i primo
v projektu bez toho aniz bych dopisoval obsluzny event primo do te
komponenty ? Napriklad mam na formu komponentu TImage a chci v aplikaci
odchytit zpravu WM_MOUSELEAVE, ktera neni standartne obsluhovana
komponentou (samozrejme po aktivaci pomoci trackmouseevent API funkci).
Milos
ActionList a PopupMenu
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 10.10.2002 10:25:02
V projekte mam napr. dve formy v kazdej z nich mam TActionList so zadefinovanymi akciami a hlavne menu s polozkami ktore su naviazane na akcie z tohto ActionListu. Pri otvoreni menu sa vykona udalost OnUpdate ActionListu kde zakazujem niektore polozky z menu. Vsetko funguje tak ako ma. Problem zacina ked pouzijem PopupMenu ktoreho polozky tiez zviazem s akciami prislusneho ActionListu. Pred otvorenim popup menu sa tiez vola udlaost OnUpdate ale !!!Nielen toho actionlistu na ktory su polozky menu naviazane ale aj Udalost OnUpdate ActionListu ktory je v druhej forme. Pricom tieto formy su medzi sebou neni nijak spojene tz. ani v uses klauzule nieje uvedena ta druha forma. Da sa to nejak poriesit aby sa volala udalost onUpdate len toho actionListu na ktory su polozky opum menu naviazane ??? Ak mi s tymto niekto pomoze tak vopred dakujem :)
Datab�ze v Delphi
[*] JiriKrakora(zv)skh(tec)cz - 10.10.2002 10:49:38
This is a multipart message in MIME format.
Krakora zdravi Krakoru.
Stahni si na http://www.zive(tec)cz/mod_newfiles/Default.asp?nfiflt=S serial o
programovani v Delphi - "Umime to s Delphi". Je to ve formatu Windows
Help.
-----------------------------------------------------------------------------
>Ahoj
>Nevite n�kdo, kde by se dali na netu sehnat nejake kvalitni informace o
>programovani datab�zi v Delphi (zat�m pouze vr�mci BDE).
>T�eba nejaky priklad uz hotove jednoduche databazove aplikace s popisem
>a vysv�tlen�m.
>
>Diky TVirtualStringTree a ComboBox.
[*] Gallina Lukas <Lukas.Gallina(zv)programky(tec)cz> - 10.10.2002 11:11:06
Ahoj.
Pouzivam TVirtualStringTree a resim problem, jak do nej vlozit ComboBox.
Potreboval bych aby se to chovalo, jako napriklad karta vlastnosti souboru
ve WindowsXP ci Office, kde je polozka a hodnoty, ktere jdou upravovat ci
vybrat z comba.
Dival jsem se do sample, ktery je prilozeny, ale nejsem z toho vubec
moudry...muzete me nekdo nakopnout spravnym smerem, prosim?
Delphi 6 Personal, Windows XP SP1
S pozdravem
Lukas Gallina
lukas.gallina(zv)programky(tec)cz
www.programky(tec)cz
Barva
[*] delfi <delfi(zv)pocitac(tec)net> - 10.10.2002 11:41:59
Hi,
nemate nekdo nejakou fci ktera z urcite barvy vrati odstin (0..100%)
fce Saturace (aBarva: TColor; aUroven: Integer): TColor;
Jmenuje se to spravne Saturace?
diky
ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.399 / Virov� b�ze: 226 - datum vyd�n�: 9.10.2002
Barva
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.10.2002 12:19:09
Knihovna JCL obsahuje podobne funkce, ktere by ti mohly pomoci, treba
RGBToHSL. Unita JclGraphUtils
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
10.10.2002 delfi:
> Hi,
> nemate nekdo nejakou fci ktera z urcite barvy vrati odstin (0..100%)
> fce Saturace (aBarva: TColor; aUroven: Integer): TColor;
> Jmenuje se to spravne Saturace?
Spusteni Delphi: PROJECT macro...missing...
[*] Vaclav Klofera <Ventik(zv)seznam(tec)cz> - 10.10.2002 12:47:08
Dobry den.
Pri spousteni Delphi(6) se mi objevi okenko Error s hlaskou
"PROJECT macro in project group file missing or incorrect."
Nelze otevrit zadny projekt, ani vytvorit novy, vzdy to nahlasi tuto
chybu. Po preinstalovani se vzdy podari otevrit jeden projekt,po
zavreni uz zadny.
Drive se mi nic takove nestavalo. Se skupinami projektu jsem nic
nedelal, vubec jsem nevedel, ze neco takove existuje.
Muze to souviset s presunutim adresare s projekty na jiny (log.)
disk?
Nevi nekdo, jak to vyresit?
S pozdravem
Vaclav
Klofera
______________________________________________________________________
Reklama:
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
Barva
[*] Peter Surovy <psurovy(zv)uevora.pt> - 10.10.2002 11:49:28
Ahoj
----- Original Message -----
From: "delfi" <delfi(zv)pocitac.net>
Sent: Thursday, October 10, 2002 10:41 AM
> nemate nekdo nejakou fci ktera z urcite barvy vrati odstin (0..100%)
---nie je to az take jednoduche, ta saturacia o ktorej si
pisal to je jeden vektor v jednom z mnohych farebnych modelov konkr
sa jedna o HSL model. PC primarne skladuje farby
v RGB modeli na nacitanie poloziek mas API funkcie
GetBValue
GetGValue
GetRValue
posuvat a menit odtien by si potom mohol cca aj takto:
farba_R:=GetRValue(farba);
farba_G:=GetGValue(farba);
farba_B:=GetBValue(farba);
nova_farba_R:=farba_R+(cislo v ramci byte);
nova_farba_G:=farba_G+(cislo v ramci byte);
nova_farba_B:=farba_B+(cislo v ramci byte);
nova_farba:=RGB(nova_farba_R,nova_farba_G,nova_farba_B);
da sa pouzit aj alpha kanal (svetlost) ale iba pri bitmapach
s 32 bitmi na pixel;
PS
ADOConnection a CommandTimeout
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 10.10.2002 12:57:54
> Odes�latel: Bohdan Dudla <bdudla(zv)pikeelectronic.com>
> 2. Vsude kde chces nastavit CommandTimeout pouzivat vyraz
> (ADOQuery1 as TADOCommand).CommandTimeout := 1000;
Nevim, nevim.
Pokud neni TADOQuery oddedena od TADOCommand, a to neni, tak to skonci vyjimkou.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
ActionList a PopupMenu
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 10.10.2002 13:02:35
Odes�latel: Lubos Urban <Lubos.Urban(zv)visicom.sk>
Da sa to nejak poriesit aby sa volala udalost onUpdate len toho actionListu na ktory su polozky opum menu naviazane ??? Ak mi s tymto niekto pomoze tak vopred dakujem :)
Vsechny event-handlery udalosti "OnUpdate" vsech akci (ActionListu) se vykonaji nekde "pobliz" OnIdle aplikace.
Viz Help.
Leda bys tam dal za urcitych predpokladu exit.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Spusteni Delphi: PROJECT macro...missing...
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 10.10.2002 13:05:40
Pokud mas na mysli slozku projekty, pak by to nemelo mit vliv
Rumcajs
------------------------------
Dobry den.
Pri spousteni Delphi(6) se mi objevi okenko Error s hlaskou
"PROJECT macro in project group file missing or incorrect."
Nelze otevrit zadny projekt, ani vytvorit novy, vzdy to nahlasi tuto
chybu. Po preinstalovani se vzdy podari otevrit jeden projekt,po
zavreni uz zadny.
Drive se mi nic takove nestavalo. Se skupinami projektu jsem nic
nedelal, vubec jsem nevedel, ze neco takove existuje.
Muze to souviset s presunutim adresare s projekty na jiny (log.)
disk?
Nevi nekdo, jak to vyresit?
S pozdravem
Vaclav
Klofera
______________________________________________________________________
Reklama:
Jak si stoji kurz koruny? http://kurzy.seznam(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.393 / Virov� b�ze: 223 - datum vyd�n�: 30.9.2002
temp. tabulka
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 10.10.2002 13:22:08
Pri cteni prispevku na toto tema se nestacim divit.
Kvuli tomu, ze IB/FB nema temp.tables, nejsou automaticky spatne.
Jsou pripady, kdy TT je idealni reseni, co do rychlosti i spravy DB,
Napriklad tehdy, pokud uzivatel potrebuje pracovat se statistickymi daty
(to znamena ze vybrane udaje tridi, filtruje, grupuje, sumuje atd...).
Zajimalo by me take, kdo z lidi, kteri v teto diskusi odsuzuji "temporary
tables" nekdy vytvoril a spravuje velkou databazi s radove GB dat, se kterou
soucasne pracuji desitky uzivatelu (z nichz nekteri vyuzivaji pro praci
statisticke udaje), a kdo je teoretik typu "Brouk Pytlik".
A pokud mu takova databaze bezi na IB/FB, tak je sebevrah, nebo se nikdy se
nesetkal s uzivatelem, ktery na teto DB musi pracovat
(mluvim o stabilite DB, odezve pri vice uzivatelich, administraci, moznosti
SQL jazyka atd...).
Martin Kleiner
>>>----- Original Message -----
>>>From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
>>>
>>>Vysledkem analytickych vypoctu je "cosi", na co se zapomnelo pri datove
analyze.
>>>Proto to chybi ve "standardnich" tabulkach a zada si to "temporary".
>>>...
>>>Cim lepsi datovy navrh, tim mensi potreba vytvaret pomocne tabulky.
ADOConnection a CommandTimeout
[*] Bohdan Dudla <bdudla(zv)pikeelectronic(tec)com> - 10.10.2002 13:27:08
>> (ADOQuery1 as TADOCommand).CommandTimeout := 1000;
>Nevim, nevim.
>Pokud neni TADOQuery oddedena od TADOCommand, a to neni, tak to skonci
vyjimkou.
Zarucene ale funguje varianta
TADOCommand(ADOQuery1).CommandTimeout := 1000;
With best regards,
Bohdan Dudla
Pike Electronic spol. s r.o.
Modrinova 2
300 00 Plzen
Czech Republic
tel: +420 19 72 40 738
fax: +420 19 74 31 738
gsm: +420 732 441 716
e-mail: bdudla(zv)pikeelectronic.com
Ladeni services
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 10.10.2002 13:30:17
> Ja pisu service tak, aby bezelo i jako normalni aplikace (nepouzivam
> wrapper od Borlandu ale vlastni). Cili odladit vlastni vykonny kod
> neni problem. Ten vznikne pri ladeni kodu, ktery je specificky pro
> services (start service atd). Tam je treba pouzivat ladici vypisy...
> D. Toman
Ahoj,
s ladenim vykonneho kodu mimo service samozrejme pocitam, jde mi spis o
odladeni udalosti sluzby. Vypisy jsou reseni, ale ten debugger Delphi to
snad umi, kdyz to pisou v helpu, ne ? Jen nevim, kde delam chybu...
Diky
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Import DBF tabulky do tabulky na MSSQL 2000
[*] martin.falta(zv)obi.de - 10.10.2002 13:33:53
This is a multi-part message in MIME format.
Ahoj,
nevite nekdo, jestli (pripadne jak) v ulozene procedure nacist data z DBF
souboru a ulozit je do tabulky v databazi na MSSQL 2000? Ta DBF tabulka je
pomerne rozsahla a nechce se mi predavat 40 - 60 parametru procedure, proto
bych ji rad predal cestu ke dvoum DBF souborum, aby je naimportovala sama.
Predem dekuji za odpoved.
Martin Falta
OBI IT
tel.: +420 296 576 156
GSM: +420 603 151 147
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.
Import DBF tabulky do tabulky na MSSQL 2000
[*] David Michal <david.michal(zv)www-bv(tec)com> - 10.10.2002 14:09:34
Zdravim,
To muzete udelat primo z Enterprise Manager MSSQL serveru.
Tedy pokud vam jde o jednorazovou akci.
David
nevite nekdo, jestli (pripadne jak) v ulozene procedure nacist data z DBF
souboru a ulozit je do tabulky v databazi na MSSQL 2000? Ta DBF tabulka je
pomerne rozsahla a nechce se mi predavat 40 - 60 parametru procedure, proto
bych ji rad predal cestu ke dvoum DBF souborum, aby je naimportovala sama.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.394 / Virus Database: 224 - Release Date: 03/10/2002
Konverze UTF8 <-> Win1250
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 10.10.2002 14:24:48
On Thu, 3 Oct 2002, Tomas Grepl wrote:
> > potreboval bych nejakou unitu,
> > pomoci ktere bych prevedl text v UTF8 do
> > Win1250 a zpet. Nevite nekdo o necem?
>
> Na ceskych Windows by mely fungovat funkce (D6, unita System)
>
> { Ansi <-> UTF8 conversion }
>
> function AnsiToUtf8(const S: string): UTF8String;
> function Utf8ToAnsi(const S: UTF8String): string;
Mam dojem ze v JCL www.delphi-jedi.org je take neco podobneho v
JCLUnicode.
---------------------------------------------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s., Stroj�rensk� 38, ���r nad S�zavou
pobo�ka Olomouck� 355, Hlubo�ky-Mari�nsk� �dol�
http://hlubocky.del(tec)cz
Import DBF tabulky do tabulky na MSSQL 2000
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 10.10.2002 14:58:57
Spustenim DTS, staci si ho ulozit pri prvnim importu z ruky.
> Od: martin.falta(zv)obi.de [mailto:martin.falta(zv)obi.de]
> Ahoj,
>
> nevite nekdo, jestli (pripadne jak) v ulozene procedure
> nacist data z DBF
> souboru a ulozit je do tabulky v databazi na MSSQL 2000? Ta
> DBF tabulka je
> pomerne rozsahla a nechce se mi predavat 40 - 60 parametru
> procedure, proto
> bych ji rad predal cestu ke dvoum DBF souborum, aby je
> naimportovala sama.
Import DBF tabulky do tabulky na MSSQL 2000
[*] Martin Falta <martin(zv)aprog(tec)cz> - 10.10.2002 15:56:09
bohuzel nejde o jednorazovou akci, ale o akci, ktera se bude kazdy den
opakovat. Jedna se o tohle: kolega napsal ve Visual FoxPro program, ktery
zpracuje nejake soubory, ktere dostaneme v noci z pobocek. Tyto soubory
zpracuje do dvou DBF a obsah techto DBF potrebujeme dostat na server.
Bohuzel to musi byt takhle, protoze to navazuje na jinej SW, kterej mame od
matersky firmy a s nimz nepohneme :-((
Martin Falta
----- Original Message -----
From: "David Michal" <david.michal(zv)www-bv.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, October 10, 2002 2:09 PM
Subject: RE: Import DBF tabulky do tabulky na MSSQL 2000
> Zdravim,
> To muzete udelat primo z Enterprise Manager MSSQL serveru.
> Tedy pokud vam jde o jednorazovou akci.
> David
>
> nevite nekdo, jestli (pripadne jak) v ulozene procedure nacist data z DBF
> souboru a ulozit je do tabulky v databazi na MSSQL 2000? Ta DBF tabulka je
> pomerne rozsahla a nechce se mi predavat 40 - 60 parametru procedure,
proto
> bych ji rad predal cestu ke dvoum DBF souborum, aby je naimportovala sama.
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.394 / Virus Database: 224 - Release Date: 03/10/2002
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.399 / Virov� b�ze: 226 - datum vyd�n�: 9.10.2002
Jak editovat tabulku s SQL dotazem obsahujicim Upp
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 10.10.2002 16:09:21
> > Zna nekdo zpusob, jak toto lze udelat, aby byla tabulka
> > editovatelna?
jednak si myslim, ze by mela byt nadale editovatelna, neni
tam zadna kolize s pravidly. jinac musis pouzit TUpdateSQL,
pripojit ho do te TQuery a napsat jednotlive, insert, update a
delete dotazy.
peca
Stracanie udajov
[*] <ivan.ivanov(zv)email(tec)cz> - 10.10.2002 16:48:46
Zdravim,
mam databazovu aplikaciu beziacu cca na 6 pocitacoch s datami na jednom z nich. Pouzivam BDE (je to zastarale ale je to ntnost :(). Niekolko krat sa mi stalo, ze dotaz nevratil vsetky udaje, ktore mal - nejakym nahodnym vyberom vybral niektore a tie potom vytlacil - stalo sa to len pri tlaci. Nepodarilo sa mi tento stav nasimulovat, tak si myslim, ze problem je niekde v sieti alebo v QuickReporte. Povodne aplikacia slapala na W98 a problem sa nevyskytol (neznamena ze nebol) - teraz chodi na W2k a za mesiac sa to stalo asi dvakrat.
V com moze byt problem.
Vdaka za kazdy napad.
i.
______________________________________________________________________________
Nov� v�n� HUGO BOSS a dal�� sv�tov� kosmetick� zna�ky v nejv�t�� �esk� internetov� parfumerii.
http://www.email(tec)cz/fann
Stracanie udajov
[*] Robert Suska <delphi(zv)korak.sk> - 10.10.2002 17:53:00
Ahoj!
Akurat som volal kolegovi ktory to robil a vraj treba volat metodu
dbisavechanges. Neviem ci som to napisal uplne presne ale dufam ze Ti to
pomoze.
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
Zdravim,
mam databazovu aplikaciu beziacu cca na 6 pocitacoch s datami na jednom z
nich. Pouzivam BDE (je to zastarale ale je to ntnost :(). Niekolko krat sa
mi stalo, ze dotaz nevratil vsetky udaje, ktore mal - nejakym nahodnym
vyberom vybral niektore a tie potom vytlacil - stalo sa to len pri tlaci.
Nepodarilo sa mi tento stav nasimulovat, tak si myslim, ze problem je niekde
v sieti alebo v QuickReporte. Povodne aplikacia slapala na W98 a problem sa
nevyskytol (neznamena ze nebol) - teraz chodi na W2k a za mesiac sa to stalo
asi dvakrat.
V com moze byt problem.
Vdaka za kazdy napad.
i.
____________________________________________________________________________
__
Nov� v�n� HUGO BOSS a dal�� sv�tov� kosmetick� zna�ky v nejv�t�� �esk�
internetov� parfumerii.
http://www.email(tec)cz/fann
Stracanie udajov
[*] <ivan.ivanov(zv)email(tec)cz> - 10.10.2002 18:11:08
hmmm dik, ale...
ono tie udaje sa do tabulky zapisu ale select ich nevytiahne celkom - iba niektore :(. Pomoze to dbisavechanges aj tak, a kedy ho mam pouzit?
Vdaka.
i.
> --- P�vodn� zpr�va ---
> Od: "Robert Suska" <delphi(zv)korak.sk>
> Datum: 10.10.2002 17:53:45
>
> Ahoj!
>
> Akurat som volal kolegovi ktory to robil a vraj treba volat metodu
> dbisavechanges. Neviem ci som to napisal uplne presne ale dufam ze Ti to
> pomoze.
>
> S pozdravom,
>
> ************************************
> Robert Suska
> KORAK SLOVAKIA s.r.o.
> Horna 52
> 974 01 Banska Bystrica
> www.korak.sk robert(zv)korak.sk
> Network administrator, Delphi programmer
> ************************************
>
> Zdravim,
>
> mam databazovu aplikaciu beziacu cca na 6 pocitacoch s datami na jednom z
> nich. Pouzivam BDE (je to zastarale ale je to ntnost :(). Niekolko krat sa
> mi stalo, ze dotaz nevratil vsetky udaje, ktore mal - nejakym nahodnym
> vyberom vybral niektore a tie potom vytlacil - stalo sa to len pri tlaci.
> Nepodarilo sa mi tento stav nasimulovat, tak si myslim, ze problem je niekde
> v sieti alebo v QuickReporte. Povodne aplikacia slapala na W98 a problem sa
> nevyskytol (neznamena ze nebol) - teraz chodi na W2k a za mesiac sa to stalo
> asi dvakrat.
> V com moze byt problem.
>
> Vdaka za kazdy napad.
>
> i.
>
>
> ____________________________________________________________________________
> __
> Nov� v�n� HUGO BOSS a dal�� sv�tov� kosmetick� zna�ky v nejv�t�� �esk�
> internetov� parfumerii.
> http://www.email(tec)cz/fann
>
>
______________________________________________________________________________
Nov� v�n� HUGO BOSS a dal�� sv�tov� kosmetick� zna�ky v nejv�t�� �esk� internetov� parfumerii.
http://www.email(tec)cz/fann
Stracanie udajov
[*] Robert Suska <delphi(zv)korak.sk> - 10.10.2002 18:14:45
to neviem sorry...
R
hmmm dik, ale...
ono tie udaje sa do tabulky zapisu ale select ich nevytiahne celkom - iba
niektore :(. Pomoze to dbisavechanges aj tak, a kedy ho mam pouzit?
Vdaka.
i.
> --- P�vodn� zpr�va ---
> Od: "Robert Suska" <delphi(zv)korak.sk>
> Datum: 10.10.2002 17:53:45
>
> Ahoj!
>
> Akurat som volal kolegovi ktory to robil a vraj treba volat metodu
> dbisavechanges. Neviem ci som to napisal uplne presne ale dufam ze Ti to
> pomoze.
>
> S pozdravom,
>
> ************************************
> Robert Suska
> KORAK SLOVAKIA s.r.o.
> Horna 52
> 974 01 Banska Bystrica
> www.korak.sk robert(zv)korak.sk
> Network administrator, Delphi programmer
> ************************************
>
> Zdravim,
>
> mam databazovu aplikaciu beziacu cca na 6 pocitacoch s datami na jednom z
> nich. Pouzivam BDE (je to zastarale ale je to ntnost :(). Niekolko krat sa
> mi stalo, ze dotaz nevratil vsetky udaje, ktore mal - nejakym nahodnym
> vyberom vybral niektore a tie potom vytlacil - stalo sa to len pri tlaci.
> Nepodarilo sa mi tento stav nasimulovat, tak si myslim, ze problem je
niekde
> v sieti alebo v QuickReporte. Povodne aplikacia slapala na W98 a problem
sa
> nevyskytol (neznamena ze nebol) - teraz chodi na W2k a za mesiac sa to
stalo
> asi dvakrat.
> V com moze byt problem.
>
> Vdaka za kazdy napad.
>
> i.
>
>
____________________________________________________________________________
> __
> Nov� v�n� HUGO BOSS a dal�� sv�tov� kosmetick� zna�ky v nejv�t�� �esk�
> internetov� parfumerii.
> http://www.email(tec)cz/fann
>
>
____________________________________________________________________________
__
Nov� v�n� HUGO BOSS a dal�� sv�tov� kosmetick� zna�ky v nejv�t�� �esk�
internetov� parfumerii.
http://www.email(tec)cz/fann
Jak zjistit verzi INDEO a verzi DIV-X
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 10.10.2002 19:41:23
Odpovim si sam (poradil Emem v poradne Zive...)
Systemy NT, 2000, XP - registry
------------------------------------
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Drivers32
video kodeky zacinaji "vidc"
verze divX kodeku:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MediaResources\icm\vidc.
DIVX
Systemy 95,98,Me - system.ini
Zde bych chtel poprosit, zda by mi nejaky dobrovolnik na soukromy mail
nemohl poslat onen system.ini nebo jeho cast, abych vedel, v jake sekci a
jak jsou polozky usporadany. Mam jen win XP.
Diky moc
----- Original Message -----
From: "Vita J." <delphi(zv)obecpohori(tec)cz>
Sent: Thursday, October 10, 2002 12:04 AM
Subject: Jak zjistit verzi INDEO a verzi DIV-X
> Jak lze zjistit pritomnost kodeku DIV-X na pocitaci a jeho verzi?
> Jak lze zjistit nainstalovanou verzi kodeku Indeo?
> Netusite nekdo prosim
> Predem diky
> Vit Jurasek
Win1250 vs. ISO 8859-2
[*] Robert Suska <delphi(zv)korak.sk> - 10.10.2002 20:10:29
Ahojte!
Potrebujem poradit. Som pripojeny z Win na MySQL databazu server bezi pod
Linuxom Mandrake 8.2 a ked taham data na clienta tak sa mi zle zobrazuju
niektore znaky ako by sa to dalo osetrit.
Dakujem
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
1/sin
[*] FandaR <fandar(zv)seznam(tec)cz> - 10.10.2002 20:49:29
Jak zjistim uhel pomoci goniometricke fce 1/sin(sin na -1)???
Sdruzeni vyvojaru registrovano
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 10.10.2002 21:01:13
------- Forwarded message follows -------
From: "Ji�� Vojtek" <vojtek(zv)ticketpro(tec)cz>
Subject: Registrace
Date sent: Thu, 10 Oct 2002 16:29:27 +0200
Zdravim Vas,
tak nemozne se stalo skutecnosti. Byli jsme zaregistrovani a sdruzeni
pravne existuje. Ted jen jestli zacneme vyvijet nejakou cinnost. Kdyz
uz to stalo takovou energii byla by skoda hodit to z okna. S
pozdravem
Jiri Vojtek
------- End of forwarded message -------
S pozdravem
Zbysek Hlinka
Barva
[*] Petr Vareka <pvareka(zv)mujmejl(tec)cz> - 10.10.2002 21:51:14
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, October 10, 2002 12:19 PM
Subject: Re: Barva
> Knihovna JCL obsahuje podobne funkce, ktere by ti mohly pomoci, treba
> RGBToHSL. Unita JclGraphUtils
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 10.10.2002 delfi:
> > Hi,
> > nemate nekdo nejakou fci ktera z urcite barvy vrati odstin (0..100%)
> > fce Saturace (aBarva: TColor; aUroven: Integer): TColor;
> > Jmenuje se to spravne Saturace?
Nevim presne, co myslis pod pojmem odstin. Pokud je to to, co myslim ja, pak
bych reseni mel.
Barva je vlastne trojmistne cislo v 256-kove soustave; cifra na miste
"jednotek" koduje mix cervene barvy,
cifra na miste "desitek" mix zelene a konecne "stovky" koduji modrou. Kazda
cifra nabyva hodnot 0-255.
Tedy: Barva = B * 256^2 + G * 256 + B. (^ znaci operator
umoci. 10^2=100)
Odtud:
B = Barva DIV (256^2) , (DIV znaci
podil zaokrouhleny na cele cislo)
G = (Barva - B * 256) DIV 256
R = Barva - B * 256^2 - G * 256.
S pozdravem Petr Vareka.
WM_MOUSELEAVE
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 10.10.2002 20:53:12
Ahoj,
> milos.sula(zv)oku-su(tec)cz 10.10.02 9:15 >>>
>Nevite nekdo zda se daji messages pro VCL komponenty zachytavat i primo
>v projektu bez toho aniz bych dopisoval obsluzny event primo do te
>komponenty ? Napriklad mam na formu komponentu TImage a chci v aplikaci
>odchytit zpravu WM_MOUSELEAVE, ktera neni standartne obsluhovana
>komponentou (samozrejme po aktivaci pomoci trackmouseevent API funkci).
no nevim.....ale pro TImage asi WM_MOUSELEAVE neudelas, protoze to neni okno (nema Handle:HWND)
pokud bude na nejakem Panelu (TImage - alClient), tak potom se necha WM_MOUSELEAVE udelat na ten Panel
zkusil jsem si jen takovu zbesilost na jeden Panel, ale samozrejme je lepsi to udelat v potomku po TCustomPanel
procedure FormCreate(Sender: TObject);
private
FTME:TTRACKMOUSEEVENT;
procedure NewPanelWndProc(var AMsg:TMessage);
var
Form1: TForm1;
OldPanelWndProc:TWndMethod;
procedure TForm1.FormCreate(Sender: TObject);
begin
FTME.cbSize := sizeof(TTRACKMOUSEEVENT);
FTME.dwFlags := TME_LEAVE;
FTME.dwHoverTime := HOVER_DEFAULT;
FTME.hwndTrack := Panel1.Handle;
if not TrackMouseEvent(FTME) then
ShowMessage('Chyba');
OldPanelWndProc := Panel1.WindowProc;
Panel1.WindowProc := NewPanelWndProc;
end;
procedure TForm1.NewPanelWndProc(var AMsg:TMessage);
const TrackLeave:boolean = false;
const TrackHover:boolean = true;
begin
case AMsg.Msg of
WM_MOUSEMOVE :
begin
if not TrackLeave then
begin
TrackLeave := true;
FTME.cbSize := sizeof(TTRACKMOUSEEVENT);
FTME.dwFlags := TME_LEAVE;
FTME.dwHoverTime := HOVER_DEFAULT;
FTME.hwndTrack := Panel1.Handle;
if not TrackMouseEvent(FTME) then
ShowMessage('Chyba');
end;
if TrackHover then
begin
Panel1.Cursor := crHandPoint;
TrackHover := false;
end;
end;
WM_MOUSELEAVE :
begin
Panel1.Cursor := crDefault;
TrackLeave := false;
TrackHover := true;
end;
end;
OldPanelWndProc(AMsg);
end;
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
1/sin
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.10.2002 07:09:24
> Jak zjistim uhel pomoci goniometricke fce 1/sin(sin na -1)???
Ahoj,
no nejlepe asi jeho vypoctem. A ted vazne:
1) Nerozumim otazce. Uhlem rozumim to, co te funkci predhodim
jako argument, takze o co ma jit?
2) Jak to souvisi s Delphi?
David Lebeda
Import DBF tabulky do tabulky na MSSQL 2000
[*] Z�le��k Tom� - 11.10.2002 08:03:02
> nevite nekdo, jestli (pripadne jak) v ulozene procedure
> nacist data z DBF souboru a ulozit je do tabulky
> v databazi na MSSQL 2000? Ta DBF tabulka je pomerne
> rozsahla a nechce se mi predavat 40 - 60 parametru
> procedure, proto bych ji rad predal cestu ke dvoum
> DBF souborum, aby je naimportovala sama.
SELECT *
FROM OPENDATASOURCE(
'Microsoft.Jet.OLEDB.4.0',
'Data Source=C:\DbfPath;Extended properties=dBase 5.0'
)...[DbfFile]
C:\DbfPath - adresar, ve kterem je DBF soubor
DbfFile - jmeno DBF souboru bez pripony
Tomas Zalesak
Datab�ze v Delphi
[*] Roland Turcan <rolo(zv)sedas.sk> - 11.10.2002 08:16:28
<<< 11. 10. 2002 8:16 - krakora "krakora(zv)prvnielektro(tec)cz" >>>
k> programovani datab�zi v Delphi (zat�m pouze vr�mci BDE).
Nechod cez zahuby, BDE proste radsej NIEEEE.
--
Best regards, TRoland
Matrox VGA a nastaveni radkove a snimkove frekvenc
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 11.10.2002 08:33:00
myslim ze je to nesmyslne resit to takhle, koukni na tohle reseni:
http://www.hut.fi/Misc/Electronics/circuits/vga2tv/circuit.html
Pavel
> Nevite nekdo jak jde nastavit (presne na Hz) radkovy a snimkovy kmitocet u
> VGA - ja mam Matrox 450 DualHead), ale privitam reseni i u jakekoliv VGA.
> Potrebuju to na vystup na TV opatrenou RGB vstupem, cili kdyz tam nacpu
> spravny frekvence tak to bude OK (15,625KHz a 50Hz interlaced). PowerStrip
> mi nastavuje oba vystupy najednou (a to jeste nejak zahadne), Matrox
> PowerDesk umi rakovou jenom na cele KHz a tim dojde k "rozjeti"
> synchronizace.
ADOConnection a CommandTimeout
[*] Pavel Mattivi <pmattivi(zv)dezadata(tec)cz> - 11.10.2002 08:36:03
ahoj,
uz sem to tu psal, timeout musi byt nastaveny na connection i na datasetu,
jinak se vzdy pouzije defaultnich 30s. TADOCommand si to uvnitr mozna
nastavi na connection samo, to nevim jiste.
Pavel
ICQ 66792780
----- Original Message -----
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, October 09, 2002 7:20 PM
Subject: ADOConnection a CommandTimeout
> z aplikace spoustim pomoci TADOStoredProc proceduru na MSSQL serveru,
ktera trva neco malo pod 2 min v QA.
> Jenze pokud ji pustim z aplikace, tak se vubec nebere v potaz
CommandTimeout, vzdy to vyhodi vyjimku (EOleException - Timeout expired) po
defaultnich 30 s, i kdyz je tam nastaveno vic.
> Zkousel jsem to i pomoci TADOQuery, ale stejny efekt.
> Uz nevim co s tim......nemusi se jeste neco nastavovat u ADOConnection?
Nic jsem ale nenasel.
Import DBF tabulky do tabulky na MSSQL 2000
[*] pilifs <pilifs(zv)seznam(tec)cz> - 11.10.2002 08:43:49
Nebylo by lepsi si na to napsat rozsirenou proceduru (DLL) a tu pak treba z
SQL volat?
>bohuzel nejde o jednorazovou akci, ale o akci, ktera se bude kazdy den
>opakovat. Jedna se o tohle: kolega napsal ve Visual FoxPro program, ktery
>zpracuje nejake soubory, ktere dostaneme v noci z pobocek. Tyto soubory
>zpracuje do dvou DBF a obsah techto DBF potrebujeme dostat na server.
>Bohuzel to musi byt takhle, protoze to navazuje na jinej SW, kterej mame od
>matersky firmy a s nimz nepohneme :-((
Martin Falta
----- Original Message -----
From: "David Michal" <david.michal(zv)www-bv.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, October 10, 2002 2:09 PM
Subject: RE: Import DBF tabulky do tabulky na MSSQL 2000
> Zdravim,
> To muzete udelat primo z Enterprise Manager MSSQL serveru.
> Tedy pokud vam jde o jednorazovou akci.
> David
>
> nevite nekdo, jestli (pripadne jak) v ulozene procedure nacist data z DBF
> souboru a ulozit je do tabulky v databazi na MSSQL 2000? Ta DBF tabulka je
> pomerne rozsahla a nechce se mi predavat 40 - 60 parametru procedure,
proto
> bych ji rad predal cestu ke dvoum DBF souborum, aby je naimportovala sama.
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.394 / Virus Database: 224 - Release Date: 03/10/2002
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.399 / Virov� b�ze: 226 - datum vyd�n�: 9.10.2002
ADOConnection a CommandTimeout
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 11.10.2002 07:47:57
Ahoj,
> bdudla(zv)pikeelectronic.com 10.10.02 7:12 >>>
>TADOCommand ma vlastnost CommandTimeout jako public, ale TADOStoredProc a
>TADOQuery uz jako protected.
>Mas dve moznosti:
>1. Napsat si vlastni potomky z TADOQuery a TADOStoredProc, kde vlastnost
>CommandTimeout das do public nebo published.
ja uz vlastne potomka TADOQuery mam, takze to nebyl problem, diky...
Jen me zarazi, k cemu je potom CommandTimeout u TADOConnection?
Myslel jsem kdyz to nastavim u neho, bude to platit u vsech komponent, ktere jsou pres nej spojeny, ale zjevne to tak neni
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Vytvorenie (pretypovanie) triedy alebo typu v Runt
[*] Richard Siegl <rsiegl(zv)elas.sk> - 11.10.2002 09:02:43
Nazdar lidi
Potreboval by som takuto "zvrhlost", mam nadefinovanu triedu napr XXX
type XXX = class(TObject)
kod: integer;
meno: string;
end;
a typ napr YYY
type YYY = record
kod:integer;
meno:string[255];
end;
a potreboval by som za behu aplikacie predefinovat (zmenit) tuto triedu a
typ.
Konkretne pridat dalsiu vlastnost napr "majitel: string" je to vobec mozne a
ak ano ako ?
Rickie
----------------------
Richard Siegl
ELAS spol. s r.o.
Vinohradn�cka 6
97101 Prievidza
tel.: +421 46 5151239
Email: rsiegl(zv)elas.sk
Web: www.elas.sk
----------------------
1/sin
[*] Jan Kr�zek - 11.10.2002 09:12:51
> Jak zjistim uhel pomoci goniometricke fce 1/sin(sin na -1)???
Myslis inverzni funkci k sinus? Tak to je arcsin a je napr. v JCL v
knihovne JclMath.
Honza +
Neulozeni dat do DBF
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 11.10.2002 09:21:42
Servus vsem,
mam jisty problem, do DBF tabulky cpu data:
Table1.Append;
Table1Polozka1.Text := 'Neco';
:
:
Table1PolozkaX.Text := 'Neco';
Table1.Post;
Problem je, �e po tom Post ty data proste zmizi! Nedela to vzdy, jen nekdy
...
Poradte nekdo ...
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.393 / Virov� b�ze: 223 - datum vyd�n�: 30.9.2002
Neulozeni dat do DBF
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 11.10.2002 09:30:02
Psal jsem rychleji, nez kontroloval....
Ta data tam jsou, ale v te tabulce se objevi az po Table1.Close; Neslo to by
to nejak pomoci nejakeho update?
Rumcajs
> Servus vsem,
> mam jisty problem, do DBF tabulky cpu data:
> Table1.Append;
> Table1Polozka1.Text := 'Neco';
> :
> :
> Table1PolozkaX.Text := 'Neco';
> Table1.Post;
> Problem je, �e po tom Post ty data proste zmizi! Nedela to vzdy, jen nekdy
> ...
> Poradte nekdo ...
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.393 / Virov� b�ze: 223 - datum vyd�n�: 30.9.2002
Neulozeni dat do DBF
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 11.10.2002 09:33:58
A to se nevyvola zadna exception nebo neco podobneho? Nebijou se ti tam
nekde klice nebo nejake jine constraints?
Roman
==============================
http://kouzelne.misto(tec)cz
----- Original Message -----
From: "Rumcajs - konference" <konrum(zv)seznam(tec)cz>> Servus vsem,
> mam jisty problem, do DBF tabulky cpu data:
> Table1.Append;
> Table1Polozka1.Text := 'Neco';
> :
> :
> Table1PolozkaX.Text := 'Neco';
> Table1.Post;
> Problem je, �e po tom Post ty data proste zmizi! Nedela to vzdy, jen nekdy
Neulozeni dat do DBF
[*] Robert Suska <delphi(zv)korak.sk> - 11.10.2002 09:35:27
Ahoj !
A vloz to eventu Table OnAfterPost a OnAfterDelete. A ked nieco stratis tak
to bude iba posledny zaznam. A ten si uz vies opravit.
Save all updated records associated with hTmpHandle to disk.
This example uses the following input
fDbiSaveChanges(Table1.Handle);
The procedure is:
procedure fDbiSaveChanges(hTmpHandle:hDBICur);
begin
Check(DbiSaveChanges(hTmpHandle));
end;
Robo
--------------------------
> Servus vsem,
> mam jisty problem, do DBF tabulky cpu data:
> Table1.Append;
> Table1Polozka1.Text := 'Neco';
> :
> :
> Table1PolozkaX.Text := 'Neco';
> Table1.Post;
> Problem je, �e po tom Post ty data proste zmizi! Nedela to vzdy, jen nekdy
> ...
> Poradte nekdo ...
>
uvolnenie pamati TStrings.objects
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 11.10.2002 09:49:02
Ahojte
Potreboval bvy so poradit pisem komponentu ktora je podedena od TComboBox, pricom som nadefinoval vlastnu metodu
function TExComboBox.AddItem(ItemText: String; idKey, idValue: Integer; txValue: string): Integer;
var Index: Integer;
ItemData: TItemData;
begin
Index:= self.Items.Add(ItemText);
ItemData:= TItemData.Create;
ItemData.idkey:= idKey;
ItemData.idValue:= idValue;
ItemData.txValue:= txValue;
Items.Objects[Index]:= ItemData;
Result:= Index;
end;
ktora vytvori novy objekt TItemIdata a priradi ho do vlastnosti Objects;
Problem zacina byt ked sa v destruktore ComboBoxu snazim uvolnit vsetky objekty ktore sa pri volani metody AddItem vytvorili.
destructor TExComboBox.Destroy;
begin
for i:= 0 to self.Items.Count - 1 do
Items.Objects[Index].Free;
inherited Destroy;
end;
padne to pri zatvaranii formy s error hlaskou ''CB has no parent window"
Akym sposobom sa potom da uvolnit naalokovana pamat ktoru zaberaju objekty asociovane s jednotlivymi polozkami ComboBoxu ???
Poradte niekto, prosim,,,,Neulozeni dat do DBF
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 11.10.2002 09:59:00
Error - Delphi to nepochopil ... nema byt k tomu nejaka unita?
Rumcajs
> Ahoj !
>
> A vloz to eventu Table OnAfterPost a OnAfterDelete. A ked nieco stratis
tak
> to bude iba posledny zaznam. A ten si uz vies opravit.
>
> Save all updated records associated with hTmpHandle to disk.
>
> This example uses the following input
>
> fDbiSaveChanges(Table1.Handle);
>
> The procedure is:
>
> procedure fDbiSaveChanges(hTmpHandle:hDBICur);
> begin
> Check(DbiSaveChanges(hTmpHandle));
> end;
>
> Robo
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.393 / Virov� b�ze: 223 - datum vyd�n�: 30.9.2002
Ladeni services
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 11.10.2002 09:59:15
Ahoj jeste jednou pro jistotu,
registrace sluzby (parametr /install)
pak start sluzby v delphi,
nasledne z prikazoveho radku a rychlo odchytit v Attach to Process?
Mas Admin prava? Mam dojem ze to muze byt take duvod...
A vim ze ackoliv to v D6 jde perfekte v D5 mi to take nekdy blblo na
nejakych PC a nevim proc, registry jsem si take kontroloval...a v pohode...
mrkni se taky na tohle,jestli sis instaloval jiny vyvojovy nastroj tak by to
mohlo byt ono...premaznul sis ho a ted to blbne....
(ty tam misto bordbg60.exe budes mit asi bordbg50.exe )
kdyby jo tak si to zmen podle tohle souboru bud tak ze si to ulozis do
souboru s priponou reg a inicializujes to(zmen si bordbg60.exe podle toho co
tam mas ) nebo to rucne prepis v registrech...
debug.reg
------------------------
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug]
"Auto"="0"
"Debugger"="C:\\Program Files\\Borland\\Delphi6\\Bin\\bordbg60.exe -aeargs
%ld %ld"
"UserDebuggerHotKey"=dword:00000000
-------------------------------
Jiri Foldyna:
>s ladenim vykonneho kodu mimo service samozrejme pocitam, jde mi spis o
>odladeni udalosti sluzby. Vypisy jsou reseni, ale ten debugger Delphi to
>snad umi, kdyz to pisou v helpu, ne ? Jen nevim, kde delam chybu...
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
Aktualizace Hintu v prubehu jeho zobrazeni
[*] Jan P��ek������z?ܢw��̿ - 11.10.2002 10:00:19
Prosim o radu, jestli nekdo nevi, jak zmenit text hintu v prubehu doby jeho zobrazovani (D5).
Dekuji
Jan Pecek
1/sin
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 11.10.2002 10:08:58
Mel bys popsat presneji, o co jde, pokud o vypocet uhlu na zaklade znalosti
sinu, pak pomoci funkce arcsin, je tusim v JCL anebo lze nahlednout do
literatury a prepsat pomoci jinych cyklometrickych funkci.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: 1/sin
Jak zjistim uhel pomoci goniometricke fce 1/sin(sin na -1)???
Delphi a obrazky v Access databazi
[*] XOR <xor(zv)centrum(tec)cz> - 11.10.2002 10:20:37
Dobry den,
je schopen standardni kontrolni prvek (komponenta) DBImage
ze stranky "Data Controls" palety komponent zobrazit obrazek z tabulky
ve formatu MDB (Access 2000), kde je ulozen jako "objekt OLE" ?
Zrejme ne, hlasi mi to "bitmap image is not valid".
Nepomaha ani kdyz v Accessu provedu akci "prevest na bitmapu".
Nevi nekdo o nejake komponente, ktera je schopna obrazky z
Access databaze zobrazit?
Pripadne jiny zpusob jak to resit (jak jinak bitmapove obrazky
ulozit do MDB, nez objekt OLE, napr. jen cesty odkazujici na soubory s
obrazky ?). Nebo se snad udelat formular v Accessu a na ten si pak
sahnout do MDB a cely zobrazit na formulari v Delphi?
Diky, Xaver
D5, KaDao
--------------------
Stavebn� spo�en� krok za krokem.
http://finance.centrum(tec)cz/stavspor/uvolnenie pamati TStrings.objects
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 11.10.2002 10:37:08
Nevim to sice jiste, ale mozna, ze je na to uz pozde, i kdyz nevim, z jakych
duvodu. Zkus to upravit tak, aby se to uvolnilo jeste pred volanim
destruktoru, jestli by to pomohlo a pak se uvidi.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: uvolnenie pamati TStrings.objects
Potreboval bvy so poradit pisem komponentu ktora je podedena od TComboBox,
pricom som nadefinoval vlastnu metodu
function TExComboBox.AddItem(ItemText: String; idKey, idValue: Integer;
txValue: string): Integer;
var Index: Integer;
ItemData: TItemData;
begin
Index:= self.Items.Add(ItemText);
ItemData:= TItemData.Create;
ItemData.idkey:= idKey;
ItemData.idValue:= idValue;
ItemData.txValue:= txValue;
Items.Objects[Index]:= ItemData;
Result:= Index;
end;
ktora vytvori novy objekt TItemIdata a priradi ho do vlastnosti Objects;
Problem zacina byt ked sa v destruktore ComboBoxu snazim uvolnit vsetky
objekty ktore sa pri volani metody AddItem vytvorili.
destructor TExComboBox.Destroy;
begin
for i:= 0 to self.Items.Count - 1 do
Items.Objects[Index].Free;
inherited Destroy;
end;
padne to pri zatvaranii formy s error hlaskou ''CB has no parent window"
Prenos souboru
[*] HRABAL Otto <hrabal(zv)ans(tec)cz> - 11.10.2002 11:18:59
Vazeni, dotaz zacatecnika. Mam textovy soubor na diskete a potrebuji napsat programek, ktery tento soubor prenese do zvoleneho adresare na unixovem serveru - kudy do toho ? Diky O.
Neulozeni dat do DBF
[*] Robert Suska <delphi(zv)korak.sk> - 11.10.2002 11:20:43
Ahoj
Musis pouzit v deklaracii uses unit BDE a potom Ti to prelozi :)
R
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
> Error - Delphi to nepochopil ... nema byt k tomu nejaka unita?
> Rumcajs
>
> > Ahoj !
> >
> > A vloz to eventu Table OnAfterPost a OnAfterDelete. A ked nieco stratis
> tak
> > to bude iba posledny zaznam. A ten si uz vies opravit.
> >
> > Save all updated records associated with hTmpHandle to disk.
> >
> > This example uses the following input
> >
> > fDbiSaveChanges(Table1.Handle);
> >
> > The procedure is:
> >
> > procedure fDbiSaveChanges(hTmpHandle:hDBICur);
> > begin
> > Check(DbiSaveChanges(hTmpHandle));
> > end;
> >
> > Robo
> >
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.393 / Virov� b�ze: 223 - datum vyd�n�: 30.9.2002
Prenos souboru
[*] Robert Suska <delphi(zv)korak.sk> - 11.10.2002 11:28:20
Ahoj skus pouzit NMFTP a postav si tam ftp server
:)
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
----- Original Message -----
From: "HRABAL Otto" <hrabal(zv)ans(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 11, 2002 11:18 AM
Subject: Prenos souboru
Vazeni, dotaz zacatecnika. Mam textovy soubor na diskete a potrebuji napsat
programek, ktery tento soubor prenese do zvoleneho adresare na unixovem
serveru - kudy do toho ? Diky O.
Master-Detail
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 11.10.2002 11:33:20
Pokud to jen trochu jde doporucuji ten soucet delat na strane DB serveru (je
to rychlejsi a pro numeric pole i presnejsi).
Co je to za DB ?
Pavel
> Jak nejlepe secist detail polozky ve vazbe Master-
> Detail,aby soucet byl videt v nadrizene tabulce
>(Master).Lze pouzit >>>nejakym zpusobem i Calculated
> field, ve kterem by byl soucet pole z Detail?
> Standa Honek
Vytvorenie (pretypovanie) triedy alebo typu v Runt
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 11.10.2002 11:34:49
> Nazdar lidi
>
> Potreboval by som takuto "zvrhlost", mam nadefinovanu triedu napr XXX
>
> type XXX = class(TObject)
> kod: integer;
> meno: string;
> end;
>
> a typ napr YYY
>
> type YYY = record
> kod:integer;
> meno:string[255];
> end;
>
> a potreboval by som za behu aplikacie predefinovat (zmenit) tuto triedu a
> typ.
> Konkretne pridat dalsiu vlastnost napr "majitel: string" je to vobec mozne
a
> ak ano ako ?
>
Mozne je leccos, lze zmenit typ tridy za behu. Silne nedoporucuji. Trida na
record
nelze (alespon podle mne). Lze dokonce vytvorit typ trida za behu, take
silne
nedoporucuji. Pokud je skutecne nutne neco takoveho, jak je zde naznaceno,
potom je mozne vyuzit napr. dynamicke pole s pojmenovanymi polozkami a
pristupovat k jednotlivym polozkam prave podle jejich jmena.
Alexandr STEFEK
ADO a Prepare - jak jej vypnout???
[*] pilifs <pilifs(zv)seznam(tec)cz> - 11.10.2002 11:50:21
Zdravim,
pouzivam k pripojeni k MSSQL2000 ADO a potreboval bych aby pred provedenim
SQL dotazu nebyla na serveru provedena funkce "sp_prepare".
Myslel jsme ze tohleto ovlivnim v ConnectionStringu u TADOConnection nebo
prepinanim vlastnosti Prepare u TADODataSet. Bohuzel tohleto u mne nemelo
nejmensi vliv. Vysledovano pres profiler.
Dost nutne bych tuhletu informaci potreboval, protoze mam podezreni, ze diky
tehlete vlastnosti mi server stale alokuje vice a vice pameti, az se stane
neunosne pomaly.
Diky.
D5Ent, MSSQL2000, W2000
uvolnenie pamati TStrings.objects
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 11.10.2002 11:59:59
No skusim som to urobit na message WM_DESTROY ktory sa obsluzi skorej ako sa
zavola destruktor, ale nie som si isty ci je to spravne, ak by ste niekto
vedeli ako to spravit inak takporadte :)
dakujem
----- Original Message -----
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 11, 2002 10:37 AM
Subject: RE: uvolnenie pamati TStrings.objects
Nevim to sice jiste, ale mozna, ze je na to uz pozde, i kdyz nevim, z jakych
duvodu. Zkus to upravit tak, aby se to uvolnilo jeste pred volanim
destruktoru, jestli by to pomohlo a pak se uvidi.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: uvolnenie pamati TStrings.objects
Potreboval bvy so poradit pisem komponentu ktora je podedena od TComboBox,
pricom som nadefinoval vlastnu metodu
function TExComboBox.AddItem(ItemText: String; idKey, idValue: Integer;
txValue: string): Integer;
var Index: Integer;
ItemData: TItemData;
begin
Index:= self.Items.Add(ItemText);
ItemData:= TItemData.Create;
ItemData.idkey:= idKey;
ItemData.idValue:= idValue;
ItemData.txValue:= txValue;
Items.Objects[Index]:= ItemData;
Result:= Index;
end;
ktora vytvori novy objekt TItemIdata a priradi ho do vlastnosti Objects;
Problem zacina byt ked sa v destruktore ComboBoxu snazim uvolnit vsetky
objekty ktore sa pri volani metody AddItem vytvorili.
destructor TExComboBox.Destroy;
begin
for i:= 0 to self.Items.Count - 1 do
Items.Objects[Index].Free;
inherited Destroy;
end;
padne to pri zatvaranii formy s error hlaskou ''CB has no parent window"ListView a nelogicky pohyb sipkami
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 11.10.2002 12:08:05
Ahoj, mam ListView, v nem nejaky seznam. Nastavim ItemIndex treba na 14,
pouziju i MakeVisible() a nakonec mu nastavim Focus.
Po spusteni programu je polozka s indexem 14 spravne vybrana, ale pokud
stisknu sipku nahoru, tak stale zustava vybrana stejna polozka 14 a pokud
sipku dolu, tak se mi posune vyber na polozku s indexem 0 --- cele je to
vlastne chovani, jako by byl ItemIndex 0.
Setkal jste se s tim nekdo, resp. existuje nejake reseni? Dekuji.
Ober, D6.02PE / W98SE
Neulozeni dat do DBF
[*] Petr Hlo�ek <petr h(zv)mrp(tec)cz> - 11.10.2002 12:12:31
udelej to takto
.....
Table1.Post;
Table1.Refresh;
Petr
> Psal jsem rychleji, nez kontroloval....
> Ta data tam jsou, ale v te tabulce se objevi az po Table1.Close; Neslo to
by
> to nejak pomoci nejakeho update?
> Rumcajs
Master-Detail
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 11.10.2002 12:17:10
Odes�latel: Standa Honek <Standa.Honek(zv)quick(tec)cz>
Jak nejl�pe se��st detail polo�ky ve vazb� Master-Detail,aby sou�et byl vid�t v nad��zen� tabulce(Master).Lze pou��t n�jak�m zp�sobem i Calculated field, ve kterem by byl sou�et pole z Detail?
Nejsnadnejsi je to v TClientDataSet - Aggregate Field.
Jinak se to musi asi zprogramovat:
GetBookMark, First, while not eof ..., GotoBookMark.
Anebo jeste rafinovaneji: AfterDelete, AfterPost nacitat provedene zmeny.
Zadna legrace.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Delphi a obrazky v Access databazi
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 11.10.2002 12:19:52
> Odes�latel: XOR <xor(zv)centrum(tec)cz>
> je schopen standardni kontrolni prvek (komponenta) DBImage
> ze stranky "Data Controls" palety komponent zobrazit obrazek z tabulky
> ve formatu MDB (Access 2000), kde je ulozen jako "objekt OLE" ?
Ne. Zkus TImage.
Ten umi krome .bmp jeste dalsi formaty.
Nebo neco jineho, co ti ten "objekt OLE" zobrazi.
Musis to do nej ale "AfterScroll" nacpat.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Aktualizace Hintu v prubehu jeho zobrazeni
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 11.10.2002 12:20:52
Odes�latel: Jan P��ek <jpecek(zv)conel(tec)cz>
Prosim o radu, jestli nekdo nevi, jak zmenit text hintu v prubehu doby jeho zobrazovani (D5).
To nevim.
Zkus to treba OnEnter na dane Control.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
uvolnenie pamati TStrings.objects
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 11.10.2002 11:36:10
Ahoj,
>Potreboval bvy so poradit pisem komponentu ktora je podedena od TComboBox,
>pricom som nadefinoval vlastnu metodu
>ktora vytvori novy objekt TItemIdata a priradi ho do vlastnosti Objects;
>Problem zacina byt ked sa v destruktore ComboBoxu snazim uvolnit vsetky
>objekty ktore sa pri volani metody AddItem vytvorili.
>destructor TExComboBox.Destroy;
>begin
> for i:= 0 to self.Items.Count - 1 do
> Items.Objects[Index].Free;
> inherited Destroy;
>end;
zkusil jsem si neco podobneho a je vse v poradku
tady je prikladek
http://sweb(tec)cz/data.product/Delphi/5/TExCombo.zip
jen pozor na pouziti ExCombo.Items.Clear();
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
uvolnenie pamati TStrings.objects
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 11.10.2002 11:38:17
Ahoj,
>Potreboval bvy so poradit pisem komponentu ktora je podedena od TComboBox,
>pricom som nadefinoval vlastnu metodu
pardon trochu mi to ujelo
http://sweb(tec)cz/data.product/Delphi/5/TExCombo/TExCombo.zip
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
OT: Programovani na Pocket PC
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 11.10.2002 13:06:22
Zdravim,
mam dotaz. Muzete mi nekdo doporucit literaturu o programovani na Pocket PC
( zaklady a databaze). Vyvoj by bezel v Embedded Microsoft Visual C++.
Martin
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
Matrox VGA a nastaveni radkove a snimkove frekvenc
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 11.10.2002 13:14:41
No, podle tohoto schematu to taky resim, ele je to z roku raz-dva,
"ovladace" jen pro win98 a to ATI karty, problem je ale v tom, ze Matroxka
mi asi neumozni pixel frekvenci pod 16 MHz :-)). Mezitim mi funguje pouze
rozliseni 1024x512, coz zvedne frekvenci pixelu, ale nen� to ono (obraz je
zdeformovany a na TV je to moc). Zkusim jeste neco jineho.
----- Original Message -----
From: "Pavel Mattivi" <pmattivi(zv)dezadata(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 11, 2002 8:33 AM
Subject: Re: Matrox VGA a nastaveni radkove a snimkove frekvence
> myslim ze je to nesmyslne resit to takhle, koukni na tohle reseni:
> http://www.hut.fi/Misc/Electronics/circuits/vga2tv/circuit.html
>
> Pavel
---
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
Vytvorenie (pretypovanie) triedy alebo typu v Runt
[*] Richard Siegl <rsiegl(zv)elas.sk> - 11.10.2002 13:24:56
Asi sme sa nepochopili ... nechcem zmenit triedu na typ ale pridat do nich
za behu dalsiu vlastnost.
Rickie
----- Original Message -----
From: "Alexandr Stefek" <alex(zv)scova.vabo(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 11, 2002 11:34 AM
Subject: Re: Vytvorenie (pretypovanie) triedy alebo typu v Runtime
> Mozne je leccos, lze zmenit typ tridy za behu. Silne nedoporucuji. Trida
na
> record
> nelze (alespon podle mne). Lze dokonce vytvorit typ trida za behu, take
> silne
> nedoporucuji. Pokud je skutecne nutne neco takoveho, jak je zde naznaceno,
> potom je mozne vyuzit napr. dynamicke pole s pojmenovanymi polozkami a
> pristupovat k jednotlivym polozkam prave podle jejich jmena.
>
> Alexandr STEFEK
Neulozeni dat do DBF
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 11.10.2002 13:42:54
Nepomaha ... Ta data se v te tabulce objevi, az ten program zavru; resp. az
provedu to Close;
Rumcajs
> udelej to takto
> .....
> Table1.Post;
> Table1.Refresh;
>
> Petr
>
> > Psal jsem rychleji, nez kontroloval....
> > Ta data tam jsou, ale v te tabulce se objevi az po Table1.Close; Neslo
to
> by
> > to nejak pomoci nejakeho update?
> > Rumcajs
>
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.401 / Virov� b�ze: 226 - datum vyd�n�: 9.10.2002
prevzeti vystupu ext. aplikace
[*] Jan Benedek <jbd(zv)internet(tec)cz> - 11.10.2002 13:55:10
Nedari se mi to neikde najit. Spoustim externi program, konzolova
aplikace a potrebopval bych prevzit jeji textovy vystup pro dalsi
zpracovani.
Nedelal jste to uz nekdo ?
dik
jb
FB a bitmapy
[*] XOR <xor(zv)centrum(tec)cz> - 11.10.2002 13:56:04
TDBF ale bohuzel nepodporuje BLOB :-(, ktery nutne potrebuju
Xaver
______________________________________________________________
> Od: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Mon, 07 Oct 2002 09:34:00 +0200
> P�edm�t: Re: FB a bitmapy
>
> V pripade jednouzivatelske nesitove aplikace existuji cesty, jak krome
aplikace
> samotne nic neinstalovat. Krome jiz zmineneho FlashFileru se tu casto zminuje
> komponenta TDBF, ktera rovnez nepouziva BDE ...
--------------------
Stavebn� spo�en� tak, jak mu budete rozum�t.
http://finance.centrum(tec)cz/stavspor/Vytvorenie (pretypovanie) triedy alebo typu v Runt
[*] Lubomir Fule <fule(zv)humansoft.sk> - 11.10.2002 13:57:47
>
> Asi sme sa nepochopili ... nechcem zmenit triedu na typ ale
> pridat do nich
> za behu dalsiu vlastnost.
>
Delphi ani C++ to urcite neumoznuje... Nemozes predsa za behu zmenit
definiciu triedy, to asi neumoznuje ziadny objektovy jazyk.
prevzeti vystupu ext. aplikace
[*] tomsir1.edu(zv)mail.cez(tec)cz - 11.10.2002 14:01:22
.... delal jsem neco podobneho, presmerovaval jsem vystup z command.com
/cmd.exe/
Nasel jsem to na MSDN HOWTO: Spawn Console Processes with Redirected
Standard Handles (Q190351)
Pokud to nenajdes, mam to stazene a poslu ti to.
Radegast
Jan Benedek <jbd(zv)internet(tec)cz>(zv)clexpert(tec)cz on 11.10.2002 13:55:10
Odpov�zte pros�m - delphi-l(zv)clexpert(tec)cz
Odesl�no k�m: delphi-l-owner(zv)clexpert(tec)cz
Komu: delphi-l <delphi-l(zv)clexpert(tec)cz>
Kopie:
P�edm�t: prevzeti vystupu ext. aplikace
Nedari se mi to neikde najit. Spoustim externi program, konzolova
aplikace a potrebopval bych prevzit jeji textovy vystup pro dalsi
zpracovani.
Nedelal jste to uz nekdo ?
dik
jb
ListView a nelogicky pohyb sipkami
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 11.10.2002 14:25:00
> Nastavim ItemIndex treba na 14, pouziju i MakeVisible()
> a nakonec mu nastavim Focus. Po spusteni programu je
> polozka s indexem 14 spravne vybrana, ale pokud stisknu
S ItemIndex nemam zkusenost, ale kdyz nastavim ItemFocused
a Selected na stejny item, tak mi to funguje dobre.
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Neulozeni dat do DBF
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 11.10.2002 14:40:58
> Nepomaha ... Ta data se v te tabulce objevi, az ten program zavru; resp.
az
> provedu to Close;
> Rumcajs
> > udelej to takto
> > .....
> > Table1.Post;
> > Table1.Refresh;
Jestli je to na Paradoxu, musi byt v nastaveni BDE Local Share nastaveno na
TRUE.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
instalacia D7
[*] hlas <hlas(zv)inmail.sk> - 11.10.2002 14:45:29
prave si instalujem Delphi 7 Pro. Po instalacii mi prestanu fungovat povodne nainstalovane veci
napr. excel, nero atd... niektore. softy tam ostali, ale tie linky na ploche a na liste su uplne
zblbnute - volaju windows instaler. To po instalacii D7 si mam davat do poriadku
iny sw???? stalo sa to niekomu?
mam cerstvo nainstalovany w2k. uz mi to spravilo 2. raz po sebe.
Vytvorenie (pretypovanie) triedy alebo typu v Runt
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 11.10.2002 14:50:23
> Odes�latel: Richard Siegl <rsiegl(zv)elas.sk>
> Potreboval by som takuto "zvrhlost", mam nadefinovanu triedu napr XXX
> a potreboval by som za behu aplikacie predefinovat (zmenit) tuto triedu a
> typ.
> Konkretne pridat dalsiu vlastnost napr "majitel: string" je to vobec mozne a
> ak ano ako ?
To je opravdu zvrhlost.
Je�t� by to t�eba mohlo podporovat d�di�nost :-).
Ne, v�n�, to samoz�ejm� nejde.
Prom�nn� vlastnosti bych ale mohl zav�d�t stylem
TVarTrida = class (TStringList)
...
V.Values['Majitel']:='nejakejmeno';
To jenom jako princip, asi ne doslova.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
instalacia D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.10.2002 14:51:43
From: "hlas" <hlas(zv)inmail.sk>
> prave si instalujem Delphi 7 Pro. Po instalacii mi prestanu fungovat povodne
> nainstalovane veci napr. excel, nero atd... niektore. softy tam ostali, ale
> tie linky na ploche a na liste su uplne zblbnute - volaju windows instaler.
Udelal si hned po instalaci reboot ? MSI se obcas chova divne, me napriklad po
instalaci pomoci MSI bez nasledneho rebootu zapomene system vsechny cookies v
cache prohlizece ;-) Po restartu je to opet v poradku.
> mam cerstvo nainstalovany w2k. uz mi to spravilo 2. raz po sebe.
Kazdopadne by si mel mit i SP3.
Petr Vones
Divne chovani modify item
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 11.10.2002 15:28:37
Ahoj kluci nevite prosim v cem je problem
ModifyMenu(MainMenu_Start.Handle,MainMenu_Start.Items.Count-1,mf_ByPosition
or
MF_RIGHTJUSTIFY,MainMenu_Start.Items[MainMenu_Start.Items.Count-1].Handle,
PChar(MainMenu_Start.Items[MainMenu_Start.Items.Count-1].Caption));
Pouzivam tohle na About, mam uzivatelky prava nastaveny na na MenuItem a
kdyz zmenim nejakou polozku v menu na VISIBLE:=FALSE tak se mi potrati
zarovnani about do prava..nevite v cem je problem..? Mozna Menu Item chapu
blbe..nebo se nejam meni poradi polozek kdyz jen nejaka VISIBLE a jde na
konec
nevim... netusite nekdo v cem je zakopanej pes?
Mam XPcka v normalnim osazeni oken (modrym kravinkam jsem nejak neprisel na
chut) a D6(viz nize)
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
Setres dat ve FB
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 11.10.2002 15:28:39
Zdar hosi a IBGuruove,
Dela se nejak "setres databaze"/vycisteni u FB?
A nemeli by jste nejakou utilitku na nastavovani hesel a uzivatelu na FB?
Docela by to bodlo (i se zdrojackama?)
Nebo alespon navod na pouziti gsec nebo co se k tomu pouziva:-)))
Dekuji moc
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
http://talpa.chytrak(tec)cz/
Divne chovani modify item
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.10.2002 15:35:52
> Ahoj kluci nevite prosim v cem je problem
>
> ModifyMenu(MainMenu_Start.Handle,MainMenu_Start.Items.Count-1,mf_ByPos
> ition or
> MF_RIGHTJUSTIFY,MainMenu_Start.Items[MainMenu_Start.Items.Count-1].Han
> dle,
> PChar(MainMenu_Start.Items[MainMenu_Start.Items.Count-1].Caption));
>
> Pouzivam tohle na About, mam uzivatelky prava nastaveny na na MenuItem
> a kdyz zmenim nejakou polozku v menu na VISIBLE:=FALSE tak se mi
> potrati zarovnani about do prava..nevite v cem je problem..? Mozna
> Menu Item chapu blbe..nebo se nejam meni poradi polozek kdyz jen
> nejaka VISIBLE a jde na konec nevim...
Ahoj, ja sice netusim, kde je zakopany pes, ale pro pripad, ze by nikdo neporadil
neco konkretniho... zkusil bych se ve Watch podivat na neco jako
MainMenu_Start.Items[MainMenu_Start.Items.Count - 1].Name nebo .Caption a
uvidis, co se deje.
David Lebeda
horka klavesa v menu, rozbaleni komboboxu
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 11.10.2002 15:44:44
Zdravim,
mel bych dotazek, tusite nekdo, jak do mainmenu dostanu do casti pro
horke klavesy napriklad znak +, - * / potrebuji to v menu ani ne jako
horkou klavesu, ale jako takovou napovedu. Snazil jsem se to resit
pres vykreslovani, ale nejak se nemuzu poprat se se souradnicemi.
Jak daleko zleva atd.
A navic jeste jeden dotaz
jak programove rozbalim combobox?
zatim to delam zaslanim zpravy, neexistuje neco elegantnejsiho?
dekuji za odpoved
S pozdravem,
Martin
Divne chovani modify item
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 11.10.2002 15:47:50
> Pouzivam tohle na About, mam uzivatelky prava nastaveny na
> na MenuItem a kdyz zmenim nejakou polozku v menu
> na VISIBLE:=FALSE tak se mi potrati zarovnani about do prava
> ..nevite v cem je problem..?
Rekl bych ze ve Windows API neexistuje neco jako neviditelna
polozka v menu. Takze VCL asi pri zmene viditelnosti vytvori
cele menu znovu, a tvoje nastaveni doprava se tak zapomene ...
Budes jej asi muset nastavovat pokazde znovu ... :-(
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
kopirovani souboru
[*] Petr Kuklik <Petr.Kuklik(zv)seznam(tec)cz> - 11.10.2002 15:53:08
Dobry den,
existuje v Delphi funkce na kopirovani souboru? Neco jako
"Kopiruj(SouborA, SouborB)". At jsem hledal jak jsem hledal, tak vse
vede k tomu, aby soubor otevrel, obsah prenesl do jineho a ten jiny
ulozil.
Diky
Petr Kuklik
______________________________________________________________________
Reklama:
Nenechte si ujit novy film Woodyho Allena "Hollywood Ending" - blaznivou
komedii o tom, jak se ve tme strefit do cerneho. V kinech od 3.9.2002.
Sledujte http://www.hce(tec)cz
Neulozeni dat do DBF
[*] bleak <bleak(zv)mvesely(tec)com> - 11.10.2002 15:56:53
Table1.FlushBuffers...
----- Original Message -----
> Ta data tam jsou, ale v te tabulce se objevi az po Table1.Close; Neslo to
by
> to nejak pomoci nejakeho update?
kopirovani souboru
[*] Ludo Fulop <kexo(zv)ynet.sk> - 11.10.2002 16:17:56
The CopyFile function copies an existing file to a new file.
BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
----- Original Message -----
From: "Petr Kuklik" <Petr.Kuklik(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 11, 2002 3:53 PM
Subject: kopirovani souboru
Dobry den,
existuje v Delphi funkce na kopirovani souboru? Neco jako
"Kopiruj(SouborA, SouborB)". At jsem hledal jak jsem hledal, tak vse
vede k tomu, aby soubor otevrel, obsah prenesl do jineho a ten jiny
ulozil.
Diky
Petr Kuklik
______________________________________________________________________
Reklama:
Nenechte si ujit novy film Woodyho Allena "Hollywood Ending" - blaznivou
komedii o tom, jak se ve tme strefit do cerneho. V kinech od 3.9.2002.
Sledujte http://www.hce(tec)cz
kopirovani souboru
[*] Bohdan Dudla <bdudla(zv)pikeelectronic(tec)com> - 11.10.2002 16:21:34
Ahoj.
Existuje API funkce CopyFile[Ex].
With best regards,
Bohdan Dudla
Pike Electronic spol. s r.o.
Modrinova 2
300 00 Plzen
Czech Republic
tel: +420 19 72 40 738
fax: +420 19 74 31 738
gsm: +420 732 441 716
e-mail: bdudla(zv)pikeelectronic.com
kopirovani souboru
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 11.10.2002 16:24:28
> existuje v Delphi funkce na kopirovani souboru? Neco
> jako "Kopiruj(SouborA, SouborB)". At jsem hledal jak
> jsem hledal, tak vse vede k tomu, aby soubor otevrel,
> obsah prenesl do jineho a ten jiny ulozil.
Ve Windows API jsou funkce CopyFile a CopyFileEx.
Popis Win API je i v Delphi, ale lepsi stahnout si MS
Platform SDK.
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Rozliseni videa
[*] Lukas Vitek <max_konference(zv)post(tec)cz> - 11.10.2002 16:31:53
Potreboval bych zjistit vsechny mozne informace o videu oteverenem v MediaPlayeru v B6. Alespon pomer stran, pocet snimku za sekundu ....
Diky moc
MSSQL zapnuty/vypnuty triggery
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 11.10.2002 15:37:16
Ahoj,
dokazu si zjistit jestli na dane tabulce jsou triggery pomoci ...
exec sp_helptrigger Tabulka
a pokud jej vypnu pomoci
ALTER TABLE Tabulka DISABLE TRIGGER TR_Nazev
jak potom zjistim jestli je trigger zapnuty nebo vypnuty
MSSQL 7(SP4), 2k(SP2)
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Jak implementovat Drag&Drop
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 11.10.2002 16:40:10
Ahoj, lidi.
Poradil by mi n�kdo, jak implementovat Drag&Drop nebo kde si o tom n�co p�e��st?
Konkr�tn� pot�ebuju p�etahovat polo�ky v TreeView, pak mezi TreeView a ListView a p��p. mezi ListView a jinou Control.
Moc to podle helpu nech�pu, teprv za��n�m.
D�ky
Andreas (D4, W98)
kopirovani souboru
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 11.10.2002 16:43:03
Pro �plnost :-)
The CopyFile function copies an existing file to a new file.
BOOL CopyFile(
LPCTSTR lpExistingFileName,
// pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
Parameters
lpExistingFileName
Pointer to a null-terminated string that specifies the name of an existing
file.
lpNewFileName
Pointer to a null-terminated string that specifies the name of the new file.
bFailIfExists
Specifies how this operation is to proceed if a file of the same name as
that specified by lpNewFileName already exists. If this parameter is TRUE
and the new file already exists, the function fails. If this parameter is
FALSE and the new file already exists, the function overwrites the existing
file and succeeds.
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error
information, call GetLastError.
Remarks
Security attributes for the existing file are not copied to the new file.
File attributes for the existing file are copied to the new file. For
example, if an existing file has the FILE_ATTRIBUTE_READONLY file attribute,
a copy created through a call to CopyFile will also have the
FILE_ATTRIBUTE_READONLY file attribute.
Windows CE: If the function succeeds, the return value is TRUE. If the
function fails, the return value is FALSE. To get extended error
information, call GetLastError.
QuickInfo
Windows NT: Requires version 3.1 or later.
Windows: Requires Windows 95 or later.
Windows CE: Requires version 1.0 or later.
Header: Declared in winbase.h.
Import Library: Use kernel32.lib.
Unicode: Implemented as Unicode and ANSI versions on Windows NT.
----- Original Message -----
From: Ludo Fulop <kexo(zv)ynet.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 11, 2002 4:17 PM
Subject: Re: kopirovani souboru
> The CopyFile function copies an existing file to a new file.
>
> BOOL CopyFile(
> LPCTSTR lpExistingFileName, // pointer to name of an existing file
> LPCTSTR lpNewFileName, // pointer to filename to copy to
> BOOL bFailIfExists // flag for operation if file exists
> );
>
> ----- Original Message -----
> From: "Petr Kuklik" <Petr.Kuklik(zv)seznam(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, October 11, 2002 3:53 PM
> Subject: kopirovani souboru
>
>
> Dobry den,
> existuje v Delphi funkce na kopirovani souboru? Neco jako
> "Kopiruj(SouborA, SouborB)". At jsem hledal jak jsem hledal, tak vse
> vede k tomu, aby soubor otevrel, obsah prenesl do jineho a ten jiny
> ulozil.
>
> Diky
> Petr Kuklik
>
> ______________________________________________________________________
> Reklama:
> Nenechte si ujit novy film Woodyho Allena "Hollywood Ending" - blaznivou
> komedii o tom, jak se ve tme strefit do cerneho. V kinech od 3.9.2002.
> Sledujte http://www.hce(tec)cz
Delphi a obrazky v Access databazi
[*] XOR <xor(zv)centrum(tec)cz> - 11.10.2002 16:46:08
Diky za snahu,
ale TImage nema vlastnost DataSource a tudiz ho nelze napojit na zdroj dat.
Uz jsem zjistil, ze to co potrebuju umi KaDao DeLuxe, reso. DBImage
v nem obsazena, ale zatim se mi nepodarilo zjistit kde se to da koupit a za
kolik.
Xaver
______________________________________________________________
> Od: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> Komu: <delphi-l(zv)clexpert(tec)cz>
> CC:
> Datum: Fri, 11 Oct 2002 12:19:52 +0200
> P�edm�t: Re: Delphi a obrazky v Access databazi
> Ne. Zkus TImage.
> Ten umi krome .bmp jeste dalsi formaty.
> Nebo neco jineho, co ti ten "objekt OLE" zobrazi.
> Musis to do nej ale "AfterScroll" nacpat.
>
--------------------
Stavebn� spo�en� tak, jak mu budete rozum�t.
http://finance.centrum(tec)cz/stavspor/Divne chovani modify item
[*] Bohdan Dudla <bdudla(zv)pikeelectronic(tec)com> - 11.10.2002 17:13:11
Ahoj.
Musis pocitat s tim ze invisible MenuItem fyzicky neni v Menu.
With best regards,
Bohdan Dudla
Pike Electronic spol. s r.o.
Modrinova 2
300 00 Plzen
Czech Republic
tel: +420 19 72 40 738
fax: +420 19 74 31 738
gsm: +420 732 441 716
e-mail: bdudla(zv)pikeelectronic.com
Divne chovani modify item
[*] Bohdan Dudla <bdudla(zv)pikeelectronic(tec)com> - 11.10.2002 17:19:15
Osobne bych provedl neco podobneho
ModifyMenu(MainMenu_Start.Handle,MainMenu_Start.Items.Count-1 -
InvisibleCount,mf_ByPosition
or
MF_RIGHTJUSTIFY,MainMenu_Start.Items[MainMenu_Start.Items.Count-1].Handle,
PChar(MainMenu_Start.Items[MainMenu_Start.Items.Count-1].Caption));
Kde InvisibleCount je pocet polozek s Visible = False.
With best regards,
Bohdan Dudla
Pike Electronic spol. s r.o.
Modrinova 2
300 00 Plzen
Czech Republic
tel: +420 19 72 40 738
fax: +420 19 74 31 738
gsm: +420 732 441 716
e-mail: bdudla(zv)pikeelectronic.com
MSSQL zapnuty/vypnuty triggery
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 11.10.2002 16:27:30
Ahoj,
>Jaroslav.Blazek(zv)access-it(tec)cz
>jak potom zjistim jestli je trigger zapnuty nebo vypnuty
pokud by to nekoho zajimalo
http://forum.builder(tec)cz/read.php?f=21&i=3241&t=3240
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Divne chovani modify item
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 11.10.2002 18:29:34
jo to jsem pocital ale i kdyz jednu hodnotu uberu tak to nefachaaa.....bude
to jeste v necem...
Bohdan Dudla
Musis pocitat s tim ze invisible MenuItem fyzicky neni v Menu.
Delphi a obrazky v Access databazi
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 11.10.2002 20:38:04
Ahoj,
On 11 Oct 2002 at 16:46, XOR wrote:
> ale TImage nema vlastnost DataSource a tudiz ho nelze napojit na zdroj
> dat. Uz jsem zjistil, ze to co potrebuju umi KaDao DeLuxe, reso.
> DBImage v nem obsazena, ale zatim se mi nepodarilo zjistit kde se to
> da koupit a za kolik.
pokud potrebujes TDBImage, tak se zkus podivat tady:
rpdbimage
DBImage that supports JPEG and GIF
Compatible with any dataset engine (TDataset)
Author: Toni Martir
http://www.ibaccess.org
OpenSource license (MPL)
Jarek Uher
OT: Programovani na Pocket PC
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 11.10.2002 23:40:01
Hello Martin,
Friday, October 11, 2002, 1:06:22 PM, you wrote:
LM> Zdravim,
LM> mam dotaz. Muzete mi nekdo doporucit literaturu o programovani na Pocket PC
LM> ( zaklady a databaze). Vyvoj by bezel v Embedded Microsoft Visual C++.
LM> Martin
ja uz jsem na pocket PC vyvijel. Stacilo mi MSDN.
LM> ======================================
LM> ing. Martin Lasevic
LM> Software Specialist
LM> Tel.: +420-2-51 02 11 30, +420-602-298 904
LM> Fax: +420-2-51 02 11 23
LM> mailto:mlasevic(zv)ratiopharm(tec)cz
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
Setres dat ve FB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 12.10.2002 08:21:49
> Odes�latel: Ales Pavel <Aldik(zv)quick(tec)cz>
>
> Dela se nejak "setres databaze"/vycisteni u FB?
Backup/Restore
>
> A nemeli by jste nejakou utilitku na nastavovani hesel a uzivatelu na FB?
Ja jsem celkem s uspechem pouzil komponentu TIBSecurityService.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
OnNoActive
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 12.10.2002 08:25:57
Ako mozem vyhodnotit akciu, ze aplikacia sa stala neaktivnou? To neznamena,
ze nie je aktivny niektory z formov ale cela aplikacia.
Pytam sa preto, preto mam jeden form, ktory je nastaveny ako StayOnTop a ked
uzivatel zaktivni (prepne) inu aplikaciu tak tento form stale ostane
navrchu. Teda chcem, aby po zaktivneni inej aplikacie tento form vypol
funkciu StayOnTop
Vdaka za kazdu radu.
Jak implementovat Drag&Drop
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 12.10.2002 08:27:33
Odes�latel: Andreas Bednarek <bednarek(zv)digitus(tec)cz>
Poradil by mi n�kdo, jak implementovat Drag&Drop nebo kde si o tom n�co p�e��st?
Nejjednoduseji takto:
Na "source"
DragMode=dmAutomatic
Na "destination"
OnDragOver: nastavit Accept
OnDragDrop: naprogramovat p�enesen� dat (Source a Destination jsou parametry).
Samoz�ejm� tyto a dal�� v�ci �kol�me :-)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
instalacia D7
[*] hlas <hlas(zv)inmail.sk> - 12.10.2002 08:34:09
Uz som to neskusal, asi som to neresetoval, lebo instalacia D7 to po mne
neziadala.
Linky som si opravil rucne - netusim co to malo znamenat.
Teraz najnovsie mi nechodi BDE. Mam aplikaciu nad BDE, pri spustani
aplikacie mi to hlasi na viacerych verziach chybu - tie vsetky verzie
chodili OK.
Podla mna je nove BDE v D7 dake divne.
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, October 11, 2002 2:51 PM
Subject: Re: instalacia D7
> From: "hlas" <hlas(zv)inmail.sk>
> > prave si instalujem Delphi 7 Pro. Po instalacii mi prestanu fungovat
povodne
> > nainstalovane veci napr. excel, nero atd... niektore. softy tam ostali,
ale
> > tie linky na ploche a na liste su uplne zblbnute - volaju windows
instaler.
>
> Udelal si hned po instalaci reboot ? MSI se obcas chova divne, me
napriklad po
> instalaci pomoci MSI bez nasledneho rebootu zapomene system vsechny
cookies v
> cache prohlizece ;-) Po restartu je to opet v poradku.
>
> > mam cerstvo nainstalovany w2k. uz mi to spravilo 2. raz po sebe.
>
> Kazdopadne by si mel mit i SP3.
>
> Petr Vones
>
>
BDE v Delphi 7
[*] hlas <hlas(zv)inmail.sk> - 12.10.2002 08:37:38
Po preinstalovani Delphi na Delphi 7 Pro mi prestali chodit aplikacie - rozne verzie toho isteho
programu - databazova aplikacia nad BDE Paradox. Nemam na mysli nanovo prekompilovane
zdrojaky pod D7, ale povodne exace. Zda sa mi, ze BDE v D7 sa sprava cudne.
Nemate niekto podobne skusenosti?
Nie je implicitne nastavenie nejakych parametropv v novom BDE ine?
kopirovani souboru
[*] bleak <bleak(zv)mvesely(tec)com> - 12.10.2002 08:38:55
if (CopyFile(PChar(odkud),PChar(kam),False)=false) Then Begin
ShowMessage('P�i kop�rov�n� souboru do�lo k chyb�.');
end;
----- Original Message -----
From: "Petr Kuklik" <Petr.Kuklik(zv)seznam(tec)cz>
existuje v Delphi funkce na kopirovani souboru? Neco jako
OT: pomoc s obnovou DNS serveru Win2000
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 12.10.2002 10:30:53
Zdravim konferecni
omlouvam se adminovy za off topic ale je to docela nute.
vcera noci nam spadnul hlavni DNS server a potreboval bych to nejak
obnovit. mam zalohu system32/dns adresare ale nevim jak na to.
Nemohl by mi nekdo poradit. predem dekuji
Problemy s SQL
[*] Karel Zelnicek <zelnicek(zv)seznam(tec)cz> - 12.10.2002 14:29:17
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Mel bych dva problemy s SQL:
1) Kdyz udelam SELECT z vice nez dvou tabulek a jeden ze SELECTovanych sloupcu je MEMO, tak to memo je prazdne, i kdyz ve skutecnosti v nem neco je.
2) SQL ma vlastnost Params. Nemuzu do toho nic zapsat. V cem by mohl byt problem?
Jestli nekdo tusi, co s tim, tak so bude super.
Karel
BDE v Delphi 7
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 12.10.2002 15:06:53
Instaloval jsem Delphi7 Enterprise a nemel jsem potom zadne podobne
problemy. Vsechny aplikace vyvijene v D6 a vyzivajici BDE funguji bez
problemu. V D7 je tusim BDE stejne jako v D6 a je tam jen kvuli zpetne
kompatibilite.
Mirek Dolecek
> Po preinstalovani Delphi na Delphi 7 Pro mi prestali chodit aplikacie - rozne verzie toho isteho
> programu - databazova aplikacia nad BDE Paradox. Nemam na mysli nanovo prekompilovane
> zdrojaky pod D7, ale povodne exace. Zda sa mi, ze BDE v D7 sa sprava cudne.
> Nemate niekto podobne skusenosti?
> Nie je implicitne nastavenie nejakych parametropv v novom BDE ine?
Problemy s SQL
[*] tomsir1.edu(zv)mail.cez(tec)cz - 12.10.2002 15:16:55
ad 2/
Params se pouziva tehdy, pokud potrebujes napr. jen urcite udaje a chces
zadat kriterium trideni ... podivej se na nasl. konstrukci :
with Query do
begin
Close;
SQL.Clear;
SQL.Add('SELECT neco,este_neco_jineho,prijmeni,jmeno FROM tabulka');
SQL.Add('WHERE prijmeni=:prijmeni');
ParamByName('prijmeni').AsString := 'Novak';
try
Open;
except
on E : EDBEngineError do ...
end;
end;
Tahle konstrukce ti umozni selectovat vsechny udaje, kde prijmeni je Novak
... jeste k tomu =: ... to neni chyba v zapisu, to se takhle opravdu
pise ..
Radegast
"Karel Zelnicek" <zelnicek(zv)seznam(tec)cz>(zv)clexpert(tec)cz on 12.10.2002 14:29:17
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: Problemy s SQL
Mel bych dva problemy s SQL:
1) Kdyz udelam SELECT z vice nez dvou tabulek a jeden ze SELECTovanych
sloupcu je MEMO, tak to memo je prazdne, i kdyz ve skutecnosti� v nem neco
je.
2) SQL ma vlastnost Params. Nemuzu do toho nic zapsat. V cem by mohl byt
problem?
Jestli nekdo tusi, co s tim, tak so bude super.
Karel
WebBrowser nekorektni chovani
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 12.10.2002 15:56:42
Zdravim.
Nevite nekdo cim je zpusobeno ze :
mam-li v WebBrowser komponente nactenou stranku s formularem tak v ni
obsazeny
prvek <textarea> neakceptuje klavesu Enter pro odradkovani.
V IE tato stranka normalne funguje.
tady je kdyztak kod html:
<form method=post>
<Select name="komu">
<option value="Valik">Valik</option>
</select><br>
<b>Message:</b><br>
<textarea name="text" cols="54" rows="6"></textarea><br>
<input type=submit value="Send">
</form>
valik
BDE v Delphi 7
[*] hlas <hlas(zv)inmail.sk> - 12.10.2002 17:27:23
Uz som kusok dalej. Situacia vyzera nasledovne. Ja si robim zmeny v bde ,
napr. cez bde
administratora, zmeny sa zapamatavaju, ale iba v tom cfg subore -
idapi32.cfg ak
sa nemylim. Ale ked sa pozriem do registrov, tak tam mam povodne defaultove
hodnoty. Jednoducho zmeny cez BDE administratora nemenia hodnoty
v registroch.
----- Original Message -----
From: "Miroslav Dolecek" <dolecek(zv)informatics.muni(tec)cz>
To: "hlas" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, October 12, 2002 3:06 PM
Subject: Re: BDE v Delphi 7
> Instaloval jsem Delphi7 Enterprise a nemel jsem potom zadne podobne
> problemy. Vsechny aplikace vyvijene v D6 a vyzivajici BDE funguji bez
> problemu. V D7 je tusim BDE stejne jako v D6 a je tam jen kvuli zpetne
> kompatibilite.
>
> Mirek Dolecek
>
>
> > Po preinstalovani Delphi na Delphi 7 Pro mi prestali chodit aplikacie -
rozne verzie toho isteho
> > programu - databazova aplikacia nad BDE Paradox. Nemam na mysli nanovo
prekompilovane
> > zdrojaky pod D7, ale povodne exace. Zda sa mi, ze BDE v D7 sa sprava
cudne.
> > Nemate niekto podobne skusenosti?
> > Nie je implicitne nastavenie nejakych parametropv v novom BDE ine?
>
>
OnNoActive
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 12.10.2002 17:17:26
Ahoj,
> martinkasman(zv)centrum.sk 12.10.02 7:25 >>>
>Ako mozem vyhodnotit akciu, ze aplikacia sa stala neaktivnou? To neznamena,
>ze nie je aktivny niektory z formov ale cela aplikacia.
private
procedure WMActivateAPP(var AMsg:TMessage);message WM_ACTIVATEAPP;
procedure TForm1.WMActivateAPP(var AMsg:TMessage);
begin
if not boolean(AMsg.WParam) then
// aplikace se stala neaktivni
end;
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
OT Literatura na prodej 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 20:39:34
Ahoj,
stale mi tu zbyvaji nize uvedene dve knizky. Pokud by mel nekdo o ne zajem tak
blizsi informace na mailto:pvones(zv)mbox.vol(tec)cz
Charlie Calvert: Charlie Calvert's Delphi 4 Unleashed + CD
http://www.amazon.co.uk/exec/obidos/ASIN/0672312859/
Eric Harmon: Delphi COM Programming
http://www.amazon.co.uk/exec/obidos/ASIN/1578702216/
Petr Vones
horka klavesa v menu, rozbaleni komboboxu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 20:55:57
From: "Martin Radvansky" <delphicz(zv)stereo(tec)cz>
> mel bych dotazek, tusite nekdo, jak do mainmenu dostanu do casti pro
> horke klavesy napriklad znak +, - * / potrebuji to v menu ani ne jako
Staci jej zapsat do vlastnosti ShortCut
> jak programove rozbalim combobox?
ComboBox1.DroppedDown := True;
Petr Vones
uvolnenie pamati TStrings.objects
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 21:06:37
From: "Lubos Urban" <Lubos.Urban(zv)visicom.sk>
> Problem zacina byt ked sa v destruktore ComboBoxu snazim uvolnit vsetky
> objekty ktore sa pri volani metody AddItem vytvorili.
> padne to pri zatvaranii formy s error hlaskou ''CB has no parent window"
TComboBox uklada data do ovladaciho prvku Windows, takze je nutne aby pri
praci s daty tento prvek existoval. Uvolneni musis provest v reakci na zpravu
WM_DESTROY. Nelze pouzit metodu TWinControl.DestroyWnd protoze ta se vola
pouze v pripade ze dojde k znovuvytvoreni handle pomoci metody RecreateWnd.
Petr Vones
WM_MOUSELEAVE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 21:11:02
From: "Sula Milos" <milos.sula(zv)oku-su(tec)cz>
> Nevite nekdo zda se daji messages pro VCL komponenty zachytavat i primo
> v projektu bez toho aniz bych dopisoval obsluzny event primo do te
> komponenty ?
Pokud je formular parentem te komponety (tedy dana komponenta neni umistena
napriklad na TPanelu) tak muzes zpravy CM_MOUSELEAVE/ENTER odchytavat primo ve
formulari, LParam obsahuje instanci komponenty. Napriklad pro TButton:
TForm1 = class(TForm)
Button1: TButton;
private
protected
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.CMMouseEnter(var Message: TMessage);
begin
if TComponent(Message.LParam) = Button1 then
Button1.Font.Style := [fsBold];
end;
procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
if TComponent(Message.LParam) = Button1 then
Button1.Font.Style := [];
end;
Petr Vones
Jak pracovat s JvTranslator
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 21:14:07
From: "Jiri Betunak" <kindrik(zv)centrum(tec)cz>
> jak mam vytvorit soubor s prekladem pro JvTranslator.
Doporucuji se zeptat primo v JVCL newsech:
news://forums.talkto.net/jedi.vcl
Petr Vones
EInvalidPointer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 21:18:26
From: "Lenka Don�tov�" <lenkad(zv)nemocnice-vs(tec)cz>
> V�dy po ukon�en� programu dojde k chyb� EInvalidPointer a chyba se uk�e v
> unite Classes v procedu�e TList.SetCapacity na ��dku kde se prov�d� p��kaz
> ReallocMem. Nev�te, pros�m n�kdo co s t�m ? D�l�m v Delphi 6.
Zjevne jde o nejakou spatnou operaci s ukazateli. Muze byt zpusobena budto
vlastnim kodem nebo pridanymi komponentami. Pri trose stesti lze najit
MemProofem (http://www.automatedqa.com/downloads/memproof.asp) priblizne misto
kde chyba vznika, jinak je treba projit vsechna mista kde se provadeji operace
s TListem apod.
Petr Vones
FreeVCS & Delphi 7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 21:20:38
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> zkousel to uz nekdo? Funguje?
Pouzivam pouze FreeVCS klienta, ne OTA expert do IDE. Pokud vim, tak puvodni
autor FreeVCS na nem uz nejmene rok nepracuje protoze na to nema cas a zaroven
neni ani k zastizeni.
Petr Vones
Uprava tipu 995 z knihy 1001 tipu a triku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 21:22:06
From: "Robert Suska" <delphi(zv)korak.sk>
> Mam problem z prekreslovanim TreeView a to taky ze ten priklad co je v knihe
V jake verzi Delphi ?
Petr Vones
Vykon Paradoxu na siti.
[*] Ing. Zden�k �ezn��ek - 12.10.2002 22:59:54
Mam hotovou aplikaci v Paradoxu. Nedavno jsem ji nasadil u zakaznoka poprve na siti. Po zvladnuti problemu s NET DIREM jsem narazil na neco mnohem horsiho. Jde o velmi pomale odezvy, pokud data taham ze site. Nevite nekdo - da se s tim neco delat ? Zakaznik ma Fast Etherneti sit a vsechny karty jsou 100 MB. Nejde nejak optimalizovat BDE ?
Dik Zdenek
Vykon Paradoxu na siti.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.2002 23:02:04
From: "Ing. Zden�k �ezn��ek" <reznicek(zv)nem.pce(tec)cz>
> Nejde nejak optimalizovat BDE ?
Jde, tim ze prestanete pouzivat dale nepodporovanou technologii jako je BDE a
Paradox. Pise se rok 2002, jedinym resenim je SQL databaze. Uz se zde o tom v
konferenci pise nekolik let.
Petr Vones
Vykon Paradoxu na siti.
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 13.10.2002 07:28:17
Odes�latel: Ing. Zden�k �ezn��ek <reznicek(zv)nem.pce(tec)cz>
Mam hotovou aplikaci v Paradoxu.
velmi pomale odezvy
Nejde nejak optimalizovat BDE ?
Nasledujici odpoved povazuj prosim spise za vtip, ktery ale ve sve podstate neni daleko od pravdy.
Napis si nad tim Paradoxem aplikacni server.
(TDataBase, TQuery, TDataSetProvider, na klientovi bude TClientDataSet)
Paradox je celkem slusne stabilni a slusne rychly, pokud se pouziva lokalne a jednouzivatelsky.
Instalace a administrace BDE je neprijemna zalezitost, ale na tom jedinem pocitaci s aplikacnim serverem se to zvladne.
Navic, az te prestane bavit Paradox, jednoduse vymenis TDataBase a TQuery treba za TIBDataBase a TIBDataSet a ono to bez zasahu do klientske aplikace bude chodit pekne dal.
(Viz nas kurz Vicevrstve aplikace)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
FreeVCS & Delphi 7
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 13.10.2002 09:49:39
Zdravim,
ja pouzivam FreeVCS experta jak v Delphi 6 tak v Delphi 7 a nenarazil
jsem na zadne vetsi problemy. Jedina neprijemna vec je ze pri startu
delphi 6 i 7 to hlasi nelze ulozit soubor .bkp.
jedina vec co je potreba udelat je stejne jako do Delphi 6 rucne
zapsat experta do registru do delphi7.
Jo jeste nefunguje vypis pouzitych komponent, ten ale nefunguje i
v delphi 6
S pozdravem
Martin Radvansky
Rekurzivni select
[*] borkovec(zv)email(tec)cz - 13.10.2002 11:29:56
Prijemny vikend,
trapim se dlouho se slozenim rekurzivniho selectu na MSSQL, lze to vubec?
Konkretne:
pokud sloupce master, detail obsahuji tato data:
master detail
A B
B C
C null
D null
E C
pak pro podminku master='E' potrebuji vypsat toto:
master detail
E C
C null
Podrobneji: sloupce detail, pokud neni null, obsahuje nazev dalsiho master. Ten select by mel popsat celou vetev od prvniho master az po posledni detail = null.
Jedine reseni, ktere zatim mam je pres storedproc. Neslo by to jednim selectem?
Diky
______________________________________________________________________________
SB KOMPLET� Informa�n� ekonomick� syst�m http://www.sb-komplet(tec)cz
�um�me svoji pr�ci!
OT: RE: PHP
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 13.10.2002 11:31:37
Hi,
www.pandora(tec)cz
------ Original message ---------
Nevite prosim vas nekdo o nejake konferenci o PHP?
OT: Programovani na Pocket PC
[*] borkovec(zv)email(tec)cz - 13.10.2002 11:43:10
Veselou nedeli,
pokud me pamet neklame, pise na toto tema Kruglinsky v Programujeme v Microsoft Visual C++. Vyslo v ComputerPressu
RB
--- P�vodn� zpr�va ---
Od: "Lasevic, Martin" <MLasevic(zv)ratiopharm(tec)cz>
Datum: 11.10.2002 15:57:34
Zdravim,
mam dotaz. Muzete mi nekdo doporucit literaturu o programovani na Pocket PC
( zaklady a databaze). Vyvoj by bezel v Embedded Microsoft Visual C++.
Martin
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
______________________________________________________________________________
Nov� v�n� HUGO BOSS a dal�� sv�tov� kosmetick� zna�ky v nejv�t�� �esk� internetov� parfumerii.
http://www.email(tec)cz/fann
Uprava tipu 995 z knihy 1001 tipu a triku
[*] Robert Suska <delphi(zv)korak.sk> - 13.10.2002 12:17:37
Ahoj!
> V jake verzi Delphi ?
Delphi 6 Enterprise Update Pack #2, Windows 2000 SP3 eng.
Robo
Mazani adresaru
[*] Tomis <tomis(zv)mail(tec)cz> - 13.10.2002 12:32:13
Zdravim,
poradte prosim, jak muzu smazat neprazdny adresar?
Diky Tomis
PHP
[*] Martin Falta <martin(zv)aprog(tec)cz> - 13.10.2002 14:35:51
Hello Tom�,
Wednesday, October 13, 1999, 10:31:31 AM, you wrote:
T�> Nevite prosim vas nekdo o nejake konferenci o PHP?
www.builder(tec)cz
--
Best regards,
Martin mailto:martin(zv)aprog(tec)cz
Mazani adresaru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2002 15:17:08
From: "Tomis" <tomis(zv)mail(tec)cz>
> poradte prosim, jak muzu smazat neprazdny adresar?
Je nutne smazat vsechny soubory v nem obsazene, vcetne pripadnych podadresaru.
Lze pouzit napriklad funkce DelTree/Ex v unitu JclFileUtils z JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=100652
http://delphi-jedi.org/CODELIBJCL
Petr Vones
GetShellProcessName
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2002 15:26:32
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Preco mi stale vracia GetShellProcessName na Windows 98 explorer aj
> napriek tomu, ze som nastavil v SYSTEM.INI
>
> shell=c:\directory\program.exe
Patrne se jedna o chybu v te funkci. Na Windows NT to cte z registru, na Win9x
by to melo cist ze SYSTEM.INI. Diky za upozorneni:
http://projectjedi.sourceforge.net/mantis/view_bug_page.php?f_id=0000365
Petr Vones
WebBrowser nekorektni chovani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2002 16:42:47
From: "MUDr. Patrik VALENTA" <valentapat(zv)volny(tec)cz>
> Nevite nekdo cim je zpusobeno ze :
> mam-li v WebBrowser komponente nactenou stranku s formularem tak v ni
> obsazeny
> prvek <textarea> neakceptuje klavesu Enter pro odradkovani.
> V IE tato stranka normalne funguje.
Tento problem je popsan tady, bohuzel ten kod nejde ani prelozit:
http://community.borland.com/article/0,1410,6302,00.html
Vypada to, ze by to mohlo fungovat takto, nenasel jsem k tomu ale zadnou dalsi
dokumentaci, takze je to tvoreno spise metodou pokus-omyl upravou toho kodu z
vyse zmineneho odkazu:
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FOldBrowserWndPoc: TWndMethod;
procedure WebBrowserWndProc(var Message: TMessage);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
ActiveX;
procedure TForm1.WebBrowserWndProc(var Message: TMessage);
var
Msg: TMsg;
begin
if (Message.Msg >= CN_BASE + WM_KEYFIRST) and (Message.Msg <= CN_BASE +
WM_KEYLAST) then
begin
Msg.HWnd := WebBrowser1.Handle;
Msg.Message := Message.Msg - CN_BASE;
Msg.WParam := Message.WParam;
Msg.LParam := Message.LParam;
Msg.Time := GetMessageTime;
Msg.Pt.X := $115DE1F1;
Msg.Pt.Y := $115DE1F1;
if (Message.WParam <> VK_RETURN) and
((WebBrowser1.DefaultInterface as
IOleInPlaceActiveObject).TranslateAccelerator(Msg) = S_OK) then
Message.Result := 1
else
Message.Result := 0;
end
else
FOldBrowserWndPoc(Message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FOldBrowserWndPoc := WebBrowser1.WindowProc;
WebBrowser1.WindowProc := WebBrowserWndProc;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
WebBrowser1.WindowProc := FOldBrowserWndPoc;
end;
Petr Vones
Uprava tipu 995 z knihy 1001 tipu a triku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2002 17:24:54
From: "Robert Suska" <delphi(zv)korak.sk>
> nerekresluje dobre. Upravil som kod na moju potrebu a to tak ze potrebujem
> aby sa mi polozka na ktoru sa prave kliklo zobrazila ako fsBold a vsetko
> ostatne aby bolo normalne vykreslene. Ono by to aj chodilo keby sa mi boldom
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with TTreeView(Sender) do
begin
if cdsSelected in State then
Canvas.Font.Style:= [fsBold]
else
begin
Canvas.Font.Style:= [];
Canvas.Font.OnChange(nil); // Workaround
Canvas.Brush.Color := Color;
Canvas.FillRect(Node.DisplayRect(True));
end;
end;
end;
Petr Vones
Uprava tipu 995 z knihy 1001 tipu a triku
[*] Robert Suska <delphi(zv)korak.sk> - 13.10.2002 20:31:20
Ahoj!
Dakujem uz to funguje krasne aj ked nechapem vyznam toho kodu a uvital by
som keby si mi ho trochu objasnil konkretne tieto riadky
Canvas.Font.OnChange(nil); // Workaround - toto je co ???
Canvas.Brush.Color := Color; // a := Color; to je farba coho ? akeho objektu
Dakujem
Robert Suska
> procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
> Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
> begin
> with TTreeView(Sender) do
> begin
> if cdsSelected in State then
> Canvas.Font.Style:= [fsBold]
> else
> begin
> Canvas.Font.Style:= [];
> Canvas.Font.OnChange(nil); // Workaround
> Canvas.Brush.Color := Color;
> Canvas.FillRect(Node.DisplayRect(True));
> end;
> end;
> end;
>
> Petr Vones
Uprava tipu 995 z knihy 1001 tipu a triku
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.10.2002 20:43:10
13.10.2002 Robert Suska:
> Dakujem uz to funguje krasne aj ked nechapem vyznam toho kodu a uvital by
> som keby si mi ho trochu objasnil konkretne tieto riadky
> Canvas.Font.OnChange(nil); // Workaround - toto je co ???
Jen vyvolas obsluhu zmeny fontu.
> Canvas.Brush.Color := Color; // a := Color; to je farba coho ? akeho objektu
To je barva objektu, se kterym prave pracujes, v tomto pripade
TreeView
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Uprava tipu 995 z knihy 1001 tipu a triku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.2002 21:51:40
From: "Robert Suska" <delphi(zv)korak.sk>
> Canvas.Font.OnChange(nil); // Workaround - toto je co ???
Chyba ve VCL. Pouziti TFont neni totiz v OnCustomDrawXXX udalostech to uplne
nejstastnejsi reseni. Pokud se podivas na implementaci tak zjistis, ze na
konci obsluhy zprav VCL slouzicich pro toto vykreslovani se testuje private
promenna FCanvasChanged (TTreeView, TListView). Pri kazde zmene vlastnosti
TFont je treba aby se pres udalost TFont.OnChange nastavila tato promenna na
True. Jenze TFont je puvodne navrzen k jinemu ucelu a ma i nejake vychozi
hodnoty vlastnosti a teprve jejich zmenou dojde k vyvolani teto udalosti a
tedy i nastaveni te promenne FCanvasChanged. V tom danem pripade ale zadne
vychozi hodnoty nejsou a je treba tuto udalost vyvolat pri nastaveni jakekoli
hodnoty, tedy i te "vychozi" jako je napriklad: TFont.Style := []. Workaround
prave spociva v explicitnim vyvolani te udalosti.
> Canvas.Brush.Color := Color; // a := Color; to je farba coho ? akeho objektu
TTreeView.Color
Petr Vones
Delphi 7 - Chyba v TComboBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.2002 02:38:56
Ahoj,
ve Delphi 7 VCL je pomerne neprijemna chyba v komponente TComboBox. Pri vyberu
polozky s prazdnym retezcem dojde na nekterych verzich Windows (napriklad
Windows 2000, udajne se chyba nepojevi v XP) k AV v ntdll.dll. Mozna oprava
bez zasahu do zdrojoveho kodu VCL, fungujici tedy i pri kompilaci aplikace s
runtime balicky, je ke stazeni tady:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18872
Petr Vones
Rekurzivni select
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.10.2002 06:56:31
> Odes�latel: borkovec(zv)email(tec)cz
> trapim se dlouho se slozenim rekurzivniho selectu na MSSQL, lze to vubec?
> Jedine reseni, ktere zatim mam je pres storedproc. Neslo by to jednim selectem?
Ulozena procedura je jedine rozumne reseni.
Navic urcite nejrychlejsi.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
>
> Konkretne:
> pokud sloupce master, detail obsahuji tato data:
> master detail
> A B
> B C
> C null
> D null
> E C
>
> pak pro podminku master='E' potrebuji vypsat toto:
> master detail
> E C
> C null
>
> Podrobneji: sloupce detail, pokud neni null, obsahuje nazev dalsiho master. Ten select by mel popsat celou vetev od prvniho master az po posledni detail = null.
>
> Jedine reseni, ktere zatim mam je pres storedproc. Neslo by to jednim selectem?
>
> Diky
>
>
>
>
>
>
>
>
> ______________________________________________________________________________
> SB KOMPLET� Informa�n� ekonomick� syst�m http://www.sb-komplet(tec)cz
> ?um�me svoji pr�ci!
Jak nainstaluju JCL?
[*] Martin =?ISO-8859-2?Q?Nov=E1k ?= <mnk(zv)centrum(tec)cz> - 14.10.2002 07:08:13
Zdravim,
stahnul jsem si komponentu JCL1_21 a nevim, jak ji nainstalovat. Komponenty mi
jdou instalovat bez problemu, ale kdyz je jen jedna. Balik jsem nainstaloval
jen RX.
Prosim poradte. Mam Delphi5, WIN98SE.
Dekuji
S pozdravem Martin Novak.
--------------------
Stavebn� spo�en� tak, jak mu budete rozum�t.
http://finance.centrum(tec)cz/stavspor/Jak nainstaluju JCL?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.10.2002 07:17:51
SkNMIG5lanNvdSBrb21wb25lbnR5LiBKc291IHRvIHZldHNpbm91IGZ1bmtjZSwgcHJvY2VkdXJ5
IGEgb2JqZWt0eSwNCmt0ZXJlIHNlIHBvdXppdmFqaSB0YWssIHplIGRvIHNla2NlIFVTRVMgdXZl
ZGVzIGptZW5vIHByaXNsdXNuZSB1bml0eS4NCg0KLS0gDQppbmcuIEphbiBGaWFsYQ0KbWFpbHRv
Omphbi5maWFsYUBpb2wuY3oNCg0KMTQuMTAuMjAwMiBNYXJ0aW4gTm924Ws6DQo+IFpkcmF2aW0s
DQo+ICBzdGFobnVsIGpzZW0gc2kga29tcG9uZW50dSBKQ0wxXzIxIGEgbmV2aW0sIGphayBqaSBu
YWluc3RhbG92YXQuIEtvbXBvbmVudHkgbWkgDQo+IGpkb3UgaW5zdGFsb3ZhdCBiZXogcHJvYmxl
bXUsIGFsZSBrZHl6IGplIGplbiBqZWRuYS4gQmFsaWsganNlbSBuYWluc3RhbG92YWwgDQo+IGpl
biBSWC4NCj4gUHJvc2ltIHBvcmFkdGUuIE1hbSBEZWxwaGk1LCBXSU45OFNFLg0KDQog
Jak otevirat databaze MSACCES
[*] krakora <krakora(zv)prvnielektro(tec)cz> - 14.10.2002 07:31:47
Ahoj
Mohl by n�kdo zacatecnikovi poradit, jak v D6 otevirat datab�ze v MA
ACCES.
Diky
BDE v Delphi 7
[*] Netusil, Roman, Ing. <Netusil.Roman(zv)vspardubice(tec)cz> - 14.10.2002 07:57:29
Zkus si stahnout aktualizaci BDE, me to pomohlo:
ftp://ftpc.borland.com/pub/bde/devsupport/updates/bde511en.exe
Roman
-----Original Message-----
From: hlas [mailto:hlas(zv)inmail.sk]
Sent: Saturday, October 12, 2002 5:27 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: BDE v Delphi 7
Uz som kusok dalej. Situacia vyzera nasledovne. Ja si robim zmeny v bde ,
napr. cez bde
administratora, zmeny sa zapamatavaju, ale iba v tom cfg subore -
idapi32.cfg ak
sa nemylim. Ale ked sa pozriem do registrov, tak tam mam povodne defaultove
hodnoty. Jednoducho zmeny cez BDE administratora nemenia hodnoty
v registroch.
----- Original Message -----
From: "Miroslav Dolecek" <dolecek(zv)informatics.muni(tec)cz>
To: "hlas" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, October 12, 2002 3:06 PM
Subject: Re: BDE v Delphi 7
> Instaloval jsem Delphi7 Enterprise a nemel jsem potom zadne podobne
> problemy. Vsechny aplikace vyvijene v D6 a vyzivajici BDE funguji bez
> problemu. V D7 je tusim BDE stejne jako v D6 a je tam jen kvuli zpetne
> kompatibilite.
>
> Mirek Dolecek
>
>
> > Po preinstalovani Delphi na Delphi 7 Pro mi prestali chodit aplikacie -
rozne verzie toho isteho
> > programu - databazova aplikacia nad BDE Paradox. Nemam na mysli nanovo
prekompilovane
> > zdrojaky pod D7, ale povodne exace. Zda sa mi, ze BDE v D7 sa sprava
cudne.
> > Nemate niekto podobne skusenosti?
> > Nie je implicitne nastavenie nejakych parametropv v novom BDE ine?
>
>
Import DBF tabulky do tabulky na MSSQL 2000
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 14.10.2002 08:04:34
Onehda jsem zkousel pripojit dbf jako linkedserver a uspesne jsem zhorel.
Kdybys prisel na nejaky zpusob jak 100hoven, dej vedet. Potrebuji nacitat
data svym zpusobem online a zatim na to mam rozdelanou service.
Sroub
----- Original Message -----
From: "Martin Falta" <martin(zv)aprog(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, October 10, 2002 3:56 PM
Subject: Re: Import DBF tabulky do tabulky na MSSQL 2000
> bohuzel nejde o jednorazovou akci, ale o akci, ktera se bude kazdy den
> opakovat. Jedna se o tohle: kolega napsal ve Visual FoxPro program, ktery
> zpracuje nejake soubory, ktere dostaneme v noci z pobocek. Tyto soubory
> zpracuje do dvou DBF a obsah techto DBF potrebujeme dostat na server.
> Bohuzel to musi byt takhle, protoze to navazuje na jinej SW, kterej mame
od
> matersky firmy a s nimz nepohneme :-((
>
> Martin Falta
>
> ----- Original Message -----
> From: "David Michal" <david.michal(zv)www-bv.com>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, October 10, 2002 2:09 PM
> Subject: RE: Import DBF tabulky do tabulky na MSSQL 2000
>
>
> > Zdravim,
> > To muzete udelat primo z Enterprise Manager MSSQL serveru.
> > Tedy pokud vam jde o jednorazovou akci.
> > David
> >
> > nevite nekdo, jestli (pripadne jak) v ulozene procedure nacist data z
DBF
> > souboru a ulozit je do tabulky v databazi na MSSQL 2000? Ta DBF tabulka
je
> > pomerne rozsahla a nechce se mi predavat 40 - 60 parametru procedure,
> proto
> > bych ji rad predal cestu ke dvoum DBF souborum, aby je naimportovala
sama.
> >
> > ---
> > Outgoing mail is certified Virus Free.
> > Checked by AVG anti-virus system (http://www.grisoft.com).
> > Version: 6.0.394 / Virus Database: 224 - Release Date: 03/10/2002
> >
> >
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.399 / Virov� b�ze: 226 - datum vyd�n�: 9.10.2002
Re[2]: GetShellProcessName
[*] Roland Turcan <rolo(zv)sedas.sk> - 14.10.2002 08:09:35
Problem zo zistenim, ze ci moj program je Shell, t.j. nebezi Explorer
PV> From: "Roland Turcan" <rolo(zv)sedas.sk>
>> Preco mi stale vracia GetShellProcessName na Windows 98 explorer aj
>> napriek tomu, ze som nastavil v SYSTEM.INI
>>
>> shell=c:\directory\program.exe
<<< 14. 10. 2002 8:09 - Petr Vones "pvones(zv)mbox.vol(tec)cz" >>>
PV> Patrne se jedna o chybu v te funkci. Na Windows NT to cte z registru, na Win9x
PV> by to melo cist ze SYSTEM.INI. Diky za upozorneni:
PV> http://projectjedi.sourceforge.net/mantis/view_bug_page.php?f_id=0000365
--
Best regards, TRoland
Jak otevirat databaze MSACCES
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.10.2002 08:15:22
> Odes�latel: krakora <krakora(zv)prvnielektro(tec)cz>
> Mohl by n�kdo zacatecnikovi poradit, jak v D6 otevirat datab�ze v MA
> ACCES.
Nejlepe asi pres ADO komponenty: TADOConnection.ConnectionString
Budto pres ODBC Data Source nebo (asi lepe) pres Jet Provider.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Zmena znaku ve stringu
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 14.10.2002 08:16:49
Servus ve spolek,
je v Delphi nejaka fce pro zmenu jednoho znaku ve stringu? Neco jako
ReplaceStr(',', '.', Retezec);
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.401 / Virov� b�ze: 226 - datum vyd�n�: 9.10.2002
Zmena znaku ve stringu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.10.2002 08:24:56
Neni, ale neni problem si ji napsat
procedure ZamenZnak(var s: string; const co, cim: char);
var
i: integer;
begin
for i := 1 to length(s) do
if s[i] = co then
s[i] := cim;
end;
popr. by to slo jeste zoptimalizovat pomoci PChar, ale myslim, ze
rychlost bude dostatecna.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.10.2002 Rumcajs - konference:
> Servus ve spolek,
> je v Delphi nejaka fce pro zmenu jednoho znaku ve stringu? Neco jako
> ReplaceStr(',', '.', Retezec);
> Rumcajs
Potrebuji soubor DBReg.pas (DELPHI6)
[*] Bohdan Dudla <bdudla(zv)pikeelectronic(tec)com> - 14.10.2002 08:26:53
Ahoj.
Mam balik komponent pro DELPHI 6, ale potrebuji ho dostat do BCB 6 a on chce
soubor DBReg.pas.
Mam sice DBReg.hpp ale prepisovat bych ho nechtel.
Nemohl by mi nekdo poslat ten soubor na mail?
Predem dekuji.
With best regards,
Bohdan Dudla
Pike Electronic spol. s r.o.
Modrinova 2
300 00 Plzen
Czech Republic
tel: +420 19 72 40 738
fax: +420 19 74 31 738
gsm: +420 732 441 716
e-mail: bdudla(zv)pikeelectronic.com