Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Chyba v grid.pas?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.9.1999 12:42:02
>Uz ma dlhsi cas trapi tato chyba, ovsem
>tvoj riadok (kde je chyba) nenasiel som v Grid.pas
>Mam D2 a D3.
>Ak mi mozes poradit ako to odstanit budem dacny.
>TUNGLI J�nos
Pravda v D3 se to take projevuje,
ale vzhledem k tomu, ze sloupecky zde nemaji property visible
a chyba se projevi pri nastaveni sirky sloupce
na zapornou hodnotu.
Musis tam tedy mit sirky sloupce -1 a mene.
Je-li to opravdu tak, tak proc, kdyz
sloupec stejne nezmizi a grid se pak blbe vykresluje?
Rob
Chyby v D5
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.9.1999 12:42:06
> > me se dost casto stava, ze kdyz vytvorim nejakou metodu
> > poklepanim na ovladaci prvek (treba tlacitko, ktere vygeneruje
> > OnClick), tak mi Delfinci telo vygeneruji mezi e a nd zaverecneho
> > endu (end.). Vyjimka byla, kdyz to udelali mezi en a d. :-) Ale s
> > touto chybkou jsem se setkaval i v D4SP3, tak nevim.. :-( Staci
> > odklepnout chybovou hlasku, pak to upravit rucne ve zdrojaku a je
> > klid.
> Klasika, tohle uz se deje tusim od Delphi 2 :-) Nejhorsi je, ze se mi
zatim
> nepodarilo najit situaci kdy to udela vzdycky, chova se to dost nahodile.
Zajimave,
v Delphi 3.02 se mi to NIKDY (cca 2 roky) nestalo.
Rob
Petr Vones a listbox na DD99
[*] mdvorak(zv)csas(tec)cz - 22.9.1999 12:48:47
Pouzij metodu OnDrawItem a tam si otestuj, zda je polozka, ktera se ma
vykresklit sirsi nez ramecek ListBoxu. Pokud ano, zavolej
SendMessage(Handle,LB_SETHORIZONTALEXTENT,sirka,0) s velikosti odpovidajici
sirce polozky.
M. Dvorak
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r [mailto:kuchar(zv)tuke.sk]
Odesl�no: 22. z��� 1999 8:14
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Petr Vones a listbox na DD99
takto som to vedel aj ja, ale povedzme ze ziadne slovo nieje dlhsie ako
sirka listboxu, ale tento prikaz aj tak tam prida posuvnu listu, ja by som
potreboval, ale vediet taky prikaz, ktory tam tu listu da iba ked je sirka
slova vacsia ako sirka listboxu
-----P�vodn� zpr�va-----
Od: Daniel Resler - ATC Group < daniel_resler(zv)atcgroup(tec)cz
<mailto:daniel_resler(zv)atcgroup(tec)cz> >
Komu: delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz> < delphi-l(zv)fwd(tec)cz
<mailto:delphi-l(zv)fwd(tec)cz> >
Datum: 20. september 1999 15:57
P�edm�t: Re: Petr Vones a listbox na DD99
No musi se zavolat jedna funkce:
ListBox1.Perform(LB_SETHORIZONTALEXTENT,sirka,0);
Tato metoda posila zpravu ListBoxu Windows. Treti parametr 0 je nepouzity
parametr ! Jinak doporucuji zjistit delku nejvetsiho retezce v bodech a to
funkci ListBox1.Canvas.TextWidth(Items[i]) treba v cyklu for !
Daniel Resler
----- Original Message -----
From: Ing. J <mailto:kuchar(zv)tuke.sk> �n Kuch�r
To: Delphi <mailto:delphi-l(zv)fwd(tec)cz> konferencia
Sent: Monday, September 20, 1999 9:24 AM
Subject: Petr Vones a listbox na DD99
Cau
mohol by si mi este raz zopakovat ako sa prida do listboxu horizontalny
posuvnik, (ukazoval si to na prezentacii )
dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk> Problem s DecisionCube
[*] Mgr. Fojtik Daniel <xfojtik(zv)albert.osu(tec)cz> - 22.9.1999 13:02:01
Rad bych vas pozadal, pokud by vas to neobtezovalo, o nejaky jednoduchy priklad pro praci s DC. P�i vyexportovani do excelu pomoci batchmove jsem postavil DC nad primarnimi ID (tedy integer hodnotami) jako dimenzemi a nakonec to zacalo vypadat, ze to funguje. Ov�em az do okamziku kdy jsem takhle vyexportoval "vetsi" mnozstvi zaznamu (cca 50 a vice). Pak se obet obevila chybova hlaska "Index is out of range".
Diky za jakoukoliv odpoved
Daniel Fojtik
P.S.: Specialne by me zajimalo jak zajistit vykreslovani stringu v DC m�sto integer hodnoty.
-----P�vodn� zpr�va-----
Od: Pavel Fiser [SMTP:fiser(zv)mefisto(tec)cz]
Odesl�no: 21. z��� 1999 10:00
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Problem s DecisionCube
Me zdlouhave pokusy vedly ke zjisteni, ze DC neumi bezproblemove grupovat/zobrazovat dimenze typu string. Po pouziti smallintu a nasledne vlastniho vykreslovani
stringu v DecGridu to chodi dobre. Ja pouzivam (spis z historickych duvodu) pro DC pdox-temp-tabulku vytvorenou pomoci BatchMove z TQuery napojeneho na Interbase
- na velkych datech pak chodi docela dobre i prepocitavani DecCube. Ale myslim, ze bez tech stringu by to chodilo i primo napojene na IB. Hodne uspechu preje
Pavel Fiser
"Mgr. Fojtik Daniel" wrote:
> Ahoj,
> Chtel bych se zeptat na jeden problem:
> Podarilo se nekomu rozhybat desicionCube v Delphi3 nebo Delphi4 ? Ja kdy� tuto komponentu napojim na Interbase databazi tak mam velke problemy to zprovoznit.
> Obvykle kdy� nastavim pouze 2 dimenze, tak to po odklepani cca 2-5 chyb funguje, ale p�i vetsi dimenzi to proste nebezi.
> Chybove hlasky jsou povetsinou typu "Index is out of bounds"
>
> Diky za odpoved
>
> Daniel Fojtik
Chyba v grid.pas?
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 22.9.1999 13:19:24
Haj hou!
From: Robert Kindl <rob(zv)exec(tec)cz>
> Bohuzel ani jednu z oprav nelze provest bez zasahu do
> originalniho grids.pas nebo bez uplne kopie teto
> a nekolika dalsich unit coz ne vzdy bude vyhovovat.
>
> BTW: Myslim, ze na tomto priklade by nam
> Pavel Cisar mohl ukazat jak to myslel,
> kdyz v hadce s Erikem Salajem rikal,
> ze vzdy najde nejake reseni jak opravu provest
> i kdyz je metoda staticka a nejlepe private.
Mno, odpovedel jsi si sam :-) Lze prekopirovat prislusne unity a upravit dle
sveho. Ostatne gridy jsou previti odjakziva, a prakticky neni "dobreho
gridu". Pro "vaznou" praci doporucuji poridit jiny grid (napr.
ExpressQuantumGrid) nebo si napsat vlastni. Na bezne veci ovsem standardni
Delphi grid postaci.
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
Threads - planovani zateze na zaklade vyuziti CPU
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 22.9.1999 13:20:17
Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> wrote:> reg.RootKey:=HKEY_DYN_DATA;
> reg.OpenKey('\PerfStats\StatData',false);
> reg.ReadBinaryData('KERNEL\CPUUSAGE',b,sizeof(b));
Diky za radu, zkousel jsem to pod W98 a vskutku to meri. Mam jeste jeden dotaz, protoze se mi nechce jezdit do kancelare: bude to pod WNT v registry na stejnem miste?
> Ale dej pozor, at tvoje aplikace nedela nic jineho nez prepina
> prioritu vlaken. CPU zere malo -> zvysime prioritu -> CPU zere
Tomu nerozumim, proc by nemohla delat neco jineho. Muzes to nejak rozvest?
BTW, pro zmenu priority zpravidla pouzivame zpetnou vazbu, ktera hlida, jestli thread stiha nebo ne provadet zadanou ulohu bez ohledu na zatez CPU.
Me ta zatez CPU zajima spis pro potreby planovani, zda mam vubec nejaky thread vytvorit a nebo s tim jeste pockat a kolik mu toho mam nalozit.
bye pf, callnet(zv)telecom(tec)cz
FindFirst
[*] Tibor Galik <tgalik(zv)vsz.sk> - 22.9.1999 13:25:13
Hi,
prosim Vas uz druhy den sedim nad tym:
SearchRec: TSearchRec;
FfileList: TStrings;
begin
FfileList:=TStringList.Create;
FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
repeat
FfileList.Append(SearchRec.Name);
until not (FindNext(SearchRec) = 0);
FindClose(SearchRec);
...
Watch okno pre SearchRec.Name mi dava '..'
Za FromDirName+'\*.*' som pisal aj 'c\*.*'
nefunguje mi to a neviem prist na to, kde robim chybu.
diky
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
Chybne predavani PCHar ?
[*] Santik <santik(zv)pronetix.sk> - 22.9.1999 13:26:13
> predanym retezcem se zachazi vice ci mene brutalne, protoze se jeho
> obsah pozmenuje (funkce strtok z neho vyzobava jednotlive polozky).
> Vsechno chodi v pohode az na jednu vec: Beda, kdyz se tataz funkce
> zavola podruhe, protoze se nepredava ten puvodni retezec, ALE TEN
> POZMENENY ! Resim to tak, ze si v te DLL udelam kopii toho predavaneho
> retezce a s ni pak pracuji. Ale stejne me zajima, jak je to mozne.
Pozri si predchadzajuce dva odstavce - sam si si odpovedal - strtok
modifikuje zdroj.
Bye
Santik
OFF: Nutnost papirovych sestav
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 22.9.1999 13:26:02
> rad bych slysel od nekoho kdo s tim ma zkusenosti, ktere sestavy MUSI BYT k
> dispozici V PAPIROVE FORME pro danovou kontrolu event. audit.
> Mame takovy maly vnitrofiremni spor, ja si myslim, ze staci mit k dispozici
> elektronicky archiv sestav a ostatni tvrdi, ze vse musi byt na papire
Bohuzel Te musime zklamat, nebot ma draha chot (jinak to clenka kontrolniho oddeleni mistniho financniho uradu) tvrdi ze:
na papire nutne:
zaverka (mesicni, rocni), obratova hlavni kniha, prvotni doklady
Pri kontrole moznost vytisknout polozky obratu na jednotlivych uctech za kontrolovane obdobi
Nevim, zda jsem nejaky pojem nezkomolil a vse se tyka podvojneho ucetnictvi. U jednoducheho je to analogicke.
Za nejdulezitejsi se povazuji prvotni doklady (jejich ztrata se tresta)
Podle zeny se muze stat to, ze se pozadavky jednotlivych uradu budou mirne lisit, ale mistni urednice chteji to co jsem uvedl vyse.
S pozdravem
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne, neco dela a je zcela zdarma :-)--- SQL --- !!!!!!!!!!!
[*] Radim Tich� (VAIPE) <tichyr(zv)vaipe(tec)cz> - 22.9.1999 13:29:31
Diky v�em za postu ohledne SQL dokumentace.
:-(
Mam vsak jeste jeden problem. A nehnu s nim. Safra.
Pomuze mi nekdo ???
potrebuji udelat UPDATE (nebo i neco jineho) nasledujici :
priklad:
Tabulka1 : Rodne cislo, Jmeno, Prijmeni, Bydliste
Tabulka2 : Rodne cislo, Jmeno
Tabulka3 : Rodne cislo, Prijmeni
Tabulka4 : Rodne cislo, Bydliste
a ted : tabulka1 ma vyplneno pouze RC, ostat. pole jsou prazdna
tabulka2 ma RC i jmeno a tab3 a 4 jsou taky vyplneny.
Udaje z tab 2,3,4 potrebuju podle RC v tab1 aktualizovat.
Ale jak ?
zkousel jsem INSERT, ale to mi vyhodilo pouze radky, ktere mely RC stejne ve
vsech databazich.
zkousel jsem UPDATE pomoci vnoreneho selectu, ale to jsem se temer nedockal
vysledku (takulka je totiz strasne velika) ((ono to jede strasne pomalu i u
malych tabulek)) :-)
nejlepe vypadal a nejrychlejsi byl SELECT, ktery fungoval bezvadne, ale
nemohl jsem dostat data do nejake docasne tabulky abych mohl nasledne udelat
nejaky INSERT nebo ADD.
zkousel jsem delat i update postupne na jednotliva pole, ale to vzhledem k
rychlosti zavrhuji.
Jak to mam udelat ???
Ahoj Radim
Chybne predavani PCHar ?
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 22.9.1999 13:29:15
Petr Brant <p.brant(zv)samo(tec)cz> wrote:
>Vsechno chodi v pohode az na jednu vec: Beda, kdyz se tataz funkce
>zavola podruhe, protoze se nepredava ten puvodni retezec, ALE TEN
>POZMENENY ! Resim to tak, ze si v te DLL udelam kopii toho predavaneho
Co je na tom divneho? Do DLL predavas pointer na array of char a kdyz pomoci dereference toho pointeru zapises neco do toho pole, tak to tam zustane.
bye pf, callnet(zv)telecom(tec)cz
Delphi 5 - ze by dalsi bug?
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 22.9.1999 13:42:59
Zajimave... udelal jsem ve VC++ neco velmi podobneho, taky bez radky
pridavneho kodu a co bys rekl? Nefunguje. Tedy ono se to zobrazi, tak trochu
to i neco dela, ale kazdou chvili to ztuhne, aniz bych tusil proc. Taky se
to spatne prekresluje a vubec. Jako by s mnohonasobne vlozenymi ActiveXy
byly nejake vrozene problemy nebo co. Kazdopadne az na to prijdes, tak to
posli do konference nebo aspon mi. Ale myslim si, ze na to neprijdes. Bill
to ma urcite dobre ukryte.
Viktor
----- Original Message -----
From: Linhart Petr <Petr(zv)manwe.mius(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 22, 1999 12:06 PM
Subject: Delphi 5 - ze by dalsi bug?> Zdravim,
>
> Skusil jsem v Trial verzi D5 jednu vec, ktera me trapi v D3 a jake bylo
moje
> rozcarovani:
>
> Vytvoril jsem ActiveX Library, ActiveX componentu od TEdit. Zkompilova,
> zaregistroval a pridal jako komponentu na panel...
> Vytvoril jsem dalsi ActiveX library a do ni ActiveForm. Do nej jsem dal
muj
> EditX. Zkomiloval, zaregistroval a pridal do palety....
>
> Vytvoril jsem novy projek a na formular vrznul muj activeform zkompioval a
> spustil....:(((
>
> Aplikace nelze spustit, ze pry property ParentFont neexistuje a Delphi se
mi
> zblazni.. Pokud na ActiveForm dam obycejny edit, tak je to ok..
>
> Vse je bez jedine radky pridavneho kodu..
--- SQL --- !!!!!!!!!!!
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 22.9.1999 14:09:25
Tak to uz je ine. Syntax pre lokalne SQL nad Paradoxom, ktore je simulovane
borlandovskym BDE, najdes v helpe "Local SQL Guide" k BDE.
sup(zv)svitap(tec)cz wrote:
> >SQL v Delphi neexistuje. SQL je jazyk databazovych strojov a Delphi len
> tupo
> >posialaju stringy databazovemu stroju. Takze nehladaj "SQL v Delphi 4", ale
> "SQL
> >pre [Interbase, Oracle, Sybase at�]". Delphi ziadne prikazy SQL
> nepodporuju.
> >
>
> Dobre. A kde zjistim spravnou syntaxi pro SQL nad lokalno databazi, napr.
> Paradox? To neni zadny SQL Server, a presto to jede...
>
> >"Radim Tich� (VAIPE)" wrote:
> >
> >> Ahoj vsichni !
> >>
> >> Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe) o
> >> "SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
> >> prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu je
> Jaroslav Weiss
> odd. informatiky
>
> SVITAP J.H.J. s.r.o.
> Kijevska 6-8
> SVITAVY
> 568 02
>
> tel: ++420-461-568 202
> fax: ++420-461-568 300
> E-mail: sup(zv)svitap(tec)cz
> URL: www.svitap(tec)cz
> FTP: ftp.svitap(tec)cz
--- SQL --- !!!!!!!!!!!
[*] Jan Uhlir <jan.uhlir(zv)lf1.cuni(tec)cz> - 22.9.1999 14:15:22
Jede to, protoze rovnez posilas SQL prikazy databazovemu stroji a to BDE,
ktery SQL umi. Ten Paradox tu predstavuje jen format tabulky - souboru. A
spravnou syntaxi, jak uz ti tady nekdo radil, zjistis, pokud si otevres
soubor napovedy localsql.hlp, ktery je v adresari, kde mas nainstalovan BDE.
Honza
----- Original Message -----
From: <sup(zv)svitap(tec)cz>
Sent: Wednesday, September 22, 1999 12:30 PM
> Dobre. A kde zjistim spravnou syntaxi pro SQL nad lokalno databazi, napr.
> Paradox? To neni zadny SQL Server, a presto to jede...
>
> >"Radim Tich� (VAIPE)" wrote:
> >> Ahoj vsichni !
> >>
> >> Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe)
o
> >> "SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
> >> prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu
je
Delphi 5 - ze by dalsi bug?
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 22.9.1999 14:26:49
Ja uz to ale jednou do konference posilal, kdosi to zkousel v D4 a tam to
udajne slapalo...
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
-----P�vodn� zpr�va-----
Od: Viktor.Lostak(zv)chmi(tec)cz [mailto:Viktor.Lostak(zv)chmi(tec)cz]
Odesl�no: 22. z��� 1999 13:43
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Delphi 5 - ze by dalsi bug?
Zajimave... udelal jsem ve VC++ neco velmi podobneho, taky bez radky
pridavneho kodu a co bys rekl? Nefunguje. Tedy ono se to zobrazi, tak trochu
to i neco dela, ale kazdou chvili to ztuhne, aniz bych tusil proc. Taky se
to spatne prekresluje a vubec. Jako by s mnohonasobne vlozenymi ActiveXy
byly nejake vrozene problemy nebo co. Kazdopadne az na to prijdes, tak to
posli do konference nebo aspon mi. Ale myslim si, ze na to neprijdes. Bill
to ma urcite dobre ukryte.
Viktor
----- Original Message -----
From: Linhart Petr <Petr(zv)manwe.mius(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 22, 1999 12:06 PM
Subject: Delphi 5 - ze by dalsi bug?> Zdravim,
>
> Skusil jsem v Trial verzi D5 jednu vec, ktera me trapi v D3 a jake bylo
moje
> rozcarovani:
>
> Vytvoril jsem ActiveX Library, ActiveX componentu od TEdit. Zkompilova,
> zaregistroval a pridal jako komponentu na panel...
> Vytvoril jsem dalsi ActiveX library a do ni ActiveForm. Do nej jsem dal
muj
> EditX. Zkomiloval, zaregistroval a pridal do palety....
>
> Vytvoril jsem novy projek a na formular vrznul muj activeform zkompioval a
> spustil....:(((
>
> Aplikace nelze spustit, ze pry property ParentFont neexistuje a Delphi se
mi
> zblazni.. Pokud na ActiveForm dam obycejny edit, tak je to ok..
>
> Vse je bez jedine radky pridavneho kodu..FindFirst
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 22.9.1999 14:36:11
> Watch okno pre SearchRec.Name mi dava '..'
> Za FromDirName+'\*.*' som pisal aj 'c\*.*'
Tak nedavej faAnyFile, ale faAnyFile-faDirectory
Daniel
Memo
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 22.9.1999 14:54:06
Pouzivam Informix Link + D4.
Narazil jsem na tento problem:
Updatuju pres query memo polozku: UPDATE table SET poznamka =
:sPoznamka WHERE ...
Nastavim ParamByName('sPoznamka').AsMemo := Memo1.Text
a dam ExecSql;
Po znovunacteni dat je vysledek velmi zajimavy:
- kdyz je delka poznamky 3 znaky, tak obsah je jeden (nejaky znak)
- pokud je 7 tak obsah je prvnich 4 znaky + libovolny ...
- (nekdy) pokud je delka 9,10,11 tak vysledek je prvnich 8 + lib.znak
Zkousel jsem i
ParamByName('sPoznamka').Assign(Memo1.Lines) a vysledek byl stejny.
Nevite kde by mohl byt problem nebo nejaky jiny zpusob na update mema?
Zkousel updatovat poznamku v SQl exploreru a tam vse beha bez problemu.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+sirka textu II.
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 22.9.1999 15:02:03
----- Original Message -----
From: Petrik <petrik(zv)geocities.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 22, 1999 9:34 AM
Subject: sirka textu II.> Cauves
>
> koukam, samy chytry hlavy ...
> a jakpak ziskam sirku textu na NE-TCANVASU,
> neboli na device contextu.
> Jedina funkce, kterou sem na to nasel je :
>
> GetTextExtentPoint32(hdc,(zv)stringicek,length(stringicek),pom);
> sirkatextu:=pom.cx; //// kde VAR pom:SIZE;
>
> chodi hezky, jenze POUZE na Fixed-width fonty (Fixedsys, Courier,..)
>
> pokud pouziju (=SelectObject(hcd,myfont);)
> proporcionalni
> (= myfont:=CreateFont(16,0,0,0,FW_NORMAL,0,0,0,
> EASTEUROPE_CHARSET,OUT_DEFAULT_PRECIS,
> CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,
> DEFAULT_PITCH,PChar('Arial')); )
> font tak to spocte jako kdyby byl fixed. Zjistil jsem
> ze pouzije prumernou delku znaku a tu vynasobi delkou stringu.
> A to jeste nekdy vypocte pokazdy jinak. Takze to dopadne tak, ze
> '....' je DELSI nez 'WWW', ackoli je to presne obracene.
>
> Ale tohle delat NEMA (dle Win32.hlp).
Tak to je nejaky omyl. My pouzivame GetTextExtentPoint v nasich programech
uz dlouho, a to 100% chodi se vsemi TTF i pro 'iiiiiiiiii' nebo 'WWWWWW'.
Doporucoval bych proverit predavane parametry (napr. aby hdc byl opravdu hdc
a ne nejaky jiny handle).
S pozdravem
Pavel Kriz
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel.: 02/ 6891 444
http://www.tds-technik(tec)cz
D5+QRDesign+TeeChart
[*] Miloslav Sk�cel <kastner(zv)infos(tec)cz> - 22.9.1999 15:34:27
Ahoj,
podarilo se nekomu rozchodit %subj%?
D5+QRDesign je bez zavaznejsich problemu.
Jak k tomu doinstalovat TeeChart (verze pro D5 bez zdrojaku +
SourceQRTee.zip)?
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
www.stereo(tec)cz
TFormStorage
[*] Michal Hlav�� - 22.9.1999 15:50:01
Zdravim,
mam fsMDIForm a MDIChild a na MDIChild chcem pouzit TFormStorage z
RXComponents a neviem ako.
Vdaka
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Chyba v grid.pas?
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 22.9.1999 16:05:21
> BTW: Myslim, ze na tomto priklade by nam
> Pavel Cisar mohl ukazat jak to myslel,
> kdyz v hadce s Erikem Salajem rikal,
> ze vzdy najde nejake reseni jak opravu provest
> i kdyz je metoda staticka a nejlepe private.
>
> Na druhou stranu by Erik mohl naznacit co delat
> kdyz by nemel ani tu moznost zasahu do zdrojoveho
> kodu, protoze konstatovani, ze grid za urcitych
> okolnosti spatne prekresluje a hlaseni Inprise,
> doufaje ze to tento opravi je temer marne.
> Ten totiz na chyby prdi a tak se fatalni chyby tahnou
> od Delphi 2,3,4 pres vsechny servis packy az po 5.
> S kazdou verzi se pak programatori modli,
> aby byla nejakym zazrakem opravena
> prave ta jejich chyba.
> Vetsinou jsou ale zklamani :-(
Tak tato slova by mela byt do kamene vytesana.
S pozdravem
Pavel Kriz
P.S.: Ja bych Borlandum uplne zakazal pouzivat klicove slovo "private" a
jako
nahradu by meli povinne pouzivat "protected".Delphi + HTML help
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 22.9.1999 16:20:17
Zkousim delat HTML help, ale nejak nemuzu prijit na to
jak jej z Delhpi volat. Nevite nekdo jak na to ?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+FindFirst
[*] supervisor(zv)unicontrols(tec)cz - 22.9.1999 14:21:31
Ahoj
Ja to resim nejak takto, asi to neni zrovna ale fungujeto
{hledana cesta}
*****************
procedure TF_Start.DirD(m_Path: string);
var
m_Exist: integer;
m_RecTyp: TSearchRec;
begin
try
m_Exist := FindFirst(m_Path+'*.*',faAnyFile,m_RecTyp);
while (m_Exist = 0) do begin
if ((m_RecTyp.Name <> '..') and (m_RecTyp.Name <> '.')) then begin
if (DirectoryExists(m_Path + m_RecTyp.Name+'\')) then begin
DirF(m_Path + m_RecTyp.Name+'\');
DirD(m_Path + m_RecTyp.Name+'\');
StatusBar2.Panels[0].Text := 'Proch�z�m adres�� - '+m_Path +
m_RecTyp.Name;
end;
end;
m_Exist := FindNext(m_RecTyp);
Application.ProcessMessages;
end;
finally
FindClose(m_RecTyp);
end;
end;
{prochazim soubory v adresarich}
************************************
procedure TF_Start.DirF(m_Path: string);
var
m_Exist: integer;
m_RecTyp: TSearchRec;
begin
try
m_Exist := FindFirst(m_Path+'*.*',faAnyFile,m_RecTyp);
while (m_Exist = 0) do begin
if (FileExists(m_Path + m_RecTyp.Name)) then
StatusBar1.Panels[0].Text := 'Zapisuji soubor - '+ m_RecTyp.Name;
m_Exist := FindNext(m_RecTyp);
end;
finally
FindClose(m_RecTyp);
end;
end;
-----------------------------
- Vojtech Albrecht -
- supervisor(zv)unicontrols(tec)cz -
- ICQ 33995541 -
-----------------------------
--- SQL --- !!!!!!!!!!!
[*] Radim Tich� (VAIPE) <tichyr(zv)vaipe(tec)cz> - 22.9.1999 16:22:45
To je pravda, ze si syntax najdu v local SQL helpu. Udelal jsem to. Ale
nasel jsem "jenom" celkem slusny popis jednotlivych prikazu. Ale co kdyz je
chci dat dohromady (nejak je spojit) ? To uz tam tak hezky popsane neni.
Metoda pokus omyl vsak obcas prinasi vysledky.
Avsak na tento problemek jsem asi kratky. Nevim jak vhodne poskladat
SELECTY, UPDATY a LINKY tak aby to fungovalo.
Proto posilam svuj predchozi dotaz :
potrebuji udelat UPDATE (nebo i neco jineho) nasledujici :
napriklad:
Tabulka1 : Rodne cislo, Jmeno, Prijmeni, Bydliste
Tabulka2 : Rodne cislo, Jmeno
Tabulka3 : Rodne cislo, Prijmeni
Tabulka4 : Rodne cislo, Bydliste
a ted : tabulka1 ma vyplneno pouze RC, ostat. pole jsou prazdna
tabulka2 ma RC i jmeno a tab3 a 4 jsou taky vyplneny.
Udaje z tab 2,3,4 potrebuju podle RC v tab1 aktualizovat.
Ale jak ?
zkousel jsem INSERT, ale to mi vyhodilo pouze radky, ktere mely RC stejne ve
vsech databazich.
zkousel jsem UPDATE pomoci vnoreneho selectu, ale to jsem se temer nedockal
vysledku (takulka je totiz strasne velika) ((ono to jede strasne pomalu i u
malych tabulek)) :-)
nejlepe vypadal a nejrychlejsi byl SELECT, ktery fungoval bezvadne, ale
nemohl jsem dostat data do nejake docasne tabulky abych mohl nasledne udelat
nejaky INSERT nebo ADD.
zkousel jsem delat i update postupne na jednotliva pole, ale to vzhledem k
rychlosti zavrhuji.
Jak to mam udelat ???
Ahoj Radim
FindFirst
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 22.9.1999 16:30:04
>Hi,
>prosim Vas uz druhy den sedim nad tym:
>
> SearchRec: TSearchRec;
> FfileList: TStrings;
>begin
> FfileList:=TStringList.Create;
> FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
> repeat
> FfileList.Append(SearchRec.Name);
> until not (FindNext(SearchRec) = 0);
> FindClose(SearchRec);
>...
Mas tu 2 chyby
1. I kdyz je adresar prazdny, tvuj program se dostane do cyklu,
a do fFileList prida prazdny retezec. Nepouzivej repeat-unitl,
ale while-do
treba takhle:
x := FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
while x = 0 do
begin
FfileList.Append(SearchRec.Name);
x := FindNext(SearchRec)
end;
Findclose(SearchRec)
2. Veterani z dob MS Dosu vedi, ze . a .. jsou adresare.
Napis to treba takhle :
x := FindFirst(FromDirName+'\*.*', faAnyFile-faDirectory, SearchRec);
Radim Kunz
>
>Watch okno pre SearchRec.Name mi dava '..'
>Za FromDirName+'\*.*' som pisal aj 'c\*.*'
>
>nefunguje mi to a neviem prist na to, kde robim chybu.
>
>diky
>
>tg
>
>
>Zdravim Vas/Regards
>
>Tibor Galik
>tgali(zv)vsz.sk
>FindFirst
[*] Petr Kandera <p_kandera(zv)tanger(tec)cz> - 22.9.1999 16:32:40
> Hi,
> prosim Vas uz druhy den sedim nad tym:
>
> SearchRec: TSearchRec;
> FfileList: TStrings;
> begin
> FfileList:=TStringList.Create;
> FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
> repeat
> FfileList.Append(SearchRec.Name);
> until not (FindNext(SearchRec) = 0);
> FindClose(SearchRec);
> ...
Jestli to ma hledat soubory, pak misto faAnyFile pouzij faArchive. A druha
vec - Tva konstrukce ma
chybku - pokud se nic nenajde pre FindFirst, pak ti to do StringListu prida
nesmysl. Doporucuji treba tohle:
SearchRec: TSearchRec;
FfileList: TStrings;
res: Integer;
begin
FfileList:=TStringList.Create;
res:=FindFirst(FromDirName+'\*.*',faArchive,SearchRec);
while (res=0) do
begin
FfileList.Append(SearchRec.Name);
res:=FindNext(SearchRec);
end;
FindClose(SearchRec);
...
Takto je navic ulozen v res stav posledni akce a da se to pouzit k
detekci chyby...
S pozdravem
Petr Kandera
<pkandera(zv)tanger(tec)cz>
FindFirst
[*] Libor Lev <levl(zv)oku-dc(tec)cz> - 22.9.1999 14:40:08
> Hi,
> prosim Vas uz druhy den sedim nad tym:
>
> SearchRec: TSearchRec;
> FfileList: TStrings;
> begin
> FfileList:=TStringList.Create;
> FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
> repeat
> FfileList.Append(SearchRec.Name);
> until not (FindNext(SearchRec) = 0);
> FindClose(SearchRec);
> ...
>
> Watch okno pre SearchRec.Name mi dava '..'
> Za FromDirName+'\*.*' som pisal aj 'c\*.*'
>
> nefunguje mi to a neviem prist na to, kde robim chybu.
>
> diky
>
> tg
>
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
>
A: Musite vyloucit aktualni a nadrazeny adresar tj. '.' a '..'. To by
slo napriklad umistenim nasledujiciho kodu za FindFirst:
while ((SearchRec.Attr and faDirectory) = faDirectory) and
(SearchRec.Name[1]='.') do FindNext(SearchRec);
Libor Lev
levl(zv)oku-dc(tec)cz
Chyba v grid.pas?
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 22.9.1999 16:40:19
From: "Robert Kindl" <rob(zv)exec(tec)cz>
> Je to chyba, ale neni to dobre opravene.
>
> Cela chyba je v chybnem vypoctu LastFullVisibleCell, ktera
> neuvazuje neviditelne sloupce se sirkou -1 (nebo v
> chybnem pouziti teto hodnoty).
> Klidne pak je LastFullVisibleCell rovna sloupci ktery neni visible!
To bude opravdu to, kde je jadro chyby. To cim jsem to opravil ja
byla vlastne zaplata o kousek dal ale neresila to tam kde to
vzniklo. Diky za pomoc a info.
Ono vubec reseni viditelnosti sloupcu nastavenim na sirku -1 je
sice jednoduche, ale podle me zavani vedlejsimi efekty a koleduje
si o podobne problemy.
> Bohuzel ani jednu z oprav nelze provest bez zasahu do
> originalniho grids.pas nebo bez uplne kopie teto
S tim nedela zadne velke strafy. Proste opravim grid.pas a hotovo.
Z techto duvodu pouzovam cokoliv k cemu nemam zdrojaky jen v
pripade opravdu krajni nouze (az na Delphi ovsem -:)).
Jiri Binder
--- SQL --- !!!!!!!!!!!
[*] Michal Hlav�� - 22.9.1999 16:45:55
Zdravim,
a neviete, kde by som zohnat nieco ohladom SQL Sybase. Najlepsie v CZ alebo
v SK.
Dik
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
-----P�vodn� zpr�va-----
Od: Zdeno Jasek <zdeno.jasek(zv)corinex.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. september 1999 12:14
P�edm�t: Re: --- SQL --- !!!!!!!!!!!
SQL v Delphi neexistuje. SQL je jazyk databazovych strojov a Delphi len tupo
posialaju stringy databazovemu stroju. Takze nehladaj "SQL v Delphi 4", ale
"SQL
pre [Interbase, Oracle, Sybase at�]". Delphi ziadne prikazy SQL nepodporuju.
Memo
[*] J�n Grman�������e���zW��ۛg�$ - 22.9.1999 17:02:58
Ahoj. Mal som rovnaky problem a mozem poradit len jedno riesenie a toto
riesenie chodi uplne so vsetkymi SQL servrami co som pouzival:
with Query do begin
SQL.Clear;
SQL.Add('update table set poznamka = "'); // na konci retazca je dvojity
apostrof (v niektorych SQL to moze byt iny znak)
SQL.Add(Memo1.Text); // tu by bolo potrebne napriklad urobit aj volanie
funkcie ktora zdvoji vsetky " na "" !
SQL.Add(' "'); // opat dvojity apostrof
ExecSQL;
end;
To AsMemo a Assign pre Memo je nejake divne.
JaNo:-)
-----Original Message-----
From: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 22. september 1999 16:46
Subject: Memo
>Pouzivam Informix Link + D4.
>
>Narazil jsem na tento problem:
>Updatuju pres query memo polozku: UPDATE table SET poznamka =
>:sPoznamka WHERE ...
>Nastavim ParamByName('sPoznamka').AsMemo := Memo1.Text
>a dam ExecSql;
>Po znovunacteni dat je vysledek velmi zajimavy:
>- kdyz je delka poznamky 3 znaky, tak obsah je jeden (nejaky znak)
>- pokud je 7 tak obsah je prvnich 4 znaky + libovolny ...
>- (nekdy) pokud je delka 9,10,11 tak vysledek je prvnich 8 + lib.znak
>Zkousel jsem i
>ParamByName('sPoznamka').Assign(Memo1.Lines) a vysledek byl stejny.
>
>Nevite kde by mohl byt problem nebo nejaky jiny zpusob na update mema?
>Zkousel updatovat poznamku v SQl exploreru a tam vse beha bez problemu.
>
>+------------------------+
>| Ing. Petr Jezek |
>| Kuzmanyho 8 |
>| 010 01 Zilina |
>| Slovakia |
>| mailto://petr(zv)sevis.sk |
>+------------------------+
>
>--- SQL --- !!!!!!!!!!!
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 22.9.1999 17:12:08
Tak teda oprava:
Takze nehladaj "SQL v Delphi 4", ale "SQL pre [ ___BDE___, Interbase, Oracle,
Sybase atd]". Delphi ziadne prikazy SQL nepodporuju. Na BDE sa mozme s trochou
fantazie a hlavne drzosti pozerat aj ako na SQL server.
Teraz je to snad presne.
Ing. Jaroslav �ke��k wrote:
> No ja bych to takto nerekl. Delphi ma svou implementaci SQL v BDE.
> Nestaci pouze, aby to bylo podporovano urcitym serverem, musi to jeste
> podporovat BDE. Ne vsechno, co umi nektere servery lze zajistit
> pre BDE napojeni.
> SQL pro lokalni tabulky je take veci BDE.
> Kdyz se pripojujes na server pres TTable, tak je tu zase BDE,
> ktere to prevede na SQL.
> Jaro
>
> > >SQL v Delphi neexistuje. SQL je jazyk databazovych strojov a Delphi len
> > tupo
> > >posialaju stringy databazovemu stroju. Takze nehladaj "SQL v Delphi 4",
> ale
> > "SQL
> > >pre [Interbase, Oracle, Sybase atd]". Delphi ziadne prikazy SQL
> > nepodporuju.
> > >
> >
> > Dobre. A kde zjistim spravnou syntaxi pro SQL nad lokalno databazi, napr.
> > Paradox? To neni zadny SQL Server, a presto to jede...
> >
> >
> >
> > >"Radim Tichy (VAIPE)" wrote:
> > >
> > >> Ahoj vsichni !
> > >>
> > >> Nemate nekdo prosim nejakou dokumentaci (nejlepe v elektronicke podobe)
> o
> > >> "SQL v DELPHI 4" ? Ja mam spoustu materialu, ale za nic na svete nemuzu
> > >> prijit na to, ktere prikazy DELPHI podporuje a hlavne v jakem formatu
> je
> > Jaroslav Weiss
> > odd. informatiky
> >
> > SVITAP J.H.J. s.r.o.
> > Kijevska 6-8
> > SVITAVY
> > 568 02
> >
> > tel: ++420-461-568 202
> > fax: ++420-461-568 300
> > E-mail: sup(zv)svitap(tec)cz
> > URL: www.svitap(tec)cz
> > FTP: ftp.svitap(tec)cz
> >--- SQL --- !!!!!!!!!!!
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 22.9.1999 17:19:44
-----P�vodn� zpr�va-----
>Avsak na tento problemek jsem asi kratky. Nevim jak vhodne poskladat
>SELECTY, UPDATY a LINKY tak aby to fungovalo.
>
>Proto posilam svuj predchozi dotaz :
>
>potrebuji udelat UPDATE (nebo i neco jineho) nasledujici :
>
>napriklad:
>Tabulka1 : Rodne cislo, Jmeno, Prijmeni, Bydliste
>Tabulka2 : Rodne cislo, Jmeno
>Tabulka3 : Rodne cislo, Prijmeni
>Tabulka4 : Rodne cislo, Bydliste
>
>a ted : tabulka1 ma vyplneno pouze RC, ostat. pole jsou prazdna
>tabulka2 ma RC i jmeno a tab3 a 4 jsou taky vyplneny.
>
>Udaje z tab 2,3,4 potrebuju podle RC v tab1 aktualizovat.
>Ale jak ?
>
>zkousel jsem INSERT, ale to mi vyhodilo pouze radky, ktere mely RC
stejne ve
>vsech databazich.
>zkousel jsem UPDATE pomoci vnoreneho selectu, ale to jsem se temer
nedockal
>vysledku (takulka je totiz strasne velika) ((ono to jede strasne
pomalu i u
>malych tabulek)) :-)
>nejlepe vypadal a nejrychlejsi byl SELECT, ktery fungoval bezvadne,
ale
>nemohl jsem dostat data do nejake docasne tabulky abych mohl nasledne
udelat
>nejaky INSERT nebo ADD.
>zkousel jsem delat i update postupne na jednotliva pole, ale to
vzhledem k
>rychlosti zavrhuji.
>
>Jak to mam udelat ???
Zkus
INSERT INTO Tabulka1
SELECT a.RodneCislo, a.Jmeno, b.Prijmeni, c.Bydliste FROM Tabulka2
a, Tabulka3 b, Tabulka4 c
WHERE b.RodneCislo=a.RodneCislo and
c.RodneCislo=a.RodneCislo
Pokud chces do vysledku zahrnout i vety, kde neexistuje napr. Prijmeni
v Tabulce3 tak k tomu selectu
pridej klauzulu UNION, napr.
SELECT a.RodneCislo, a.Jmeno, b.Prijmeni, c.Bydliste FROM Tabulka2
a, Tabulka3 b, Tabulka4 c
WHERE b.RodneCislo=a.RodneCislo and
c.RodneCislo=a.RodneCislo
UNION
SELECT a.RodneCislo, a.Jmeno, NULL, c.Bydliste FROM Tabulka2 a,
Tabulka4 c
WHERE c.RodneCislo=a.RodneCislo and NOT EXISTS (SELECT b.*
FROM Tabulka3 WHERE b.RodneCislo=a.RodneCislo)
techto unionu muzes poskladat vice do jednoho dotazu, ale nevim,
nevim, jak to bude s rychlosti.
Jinak, pokud delas SQL na tabulkach DBASE nebo Paradox, tak se ti
vysledky selectu ukladaji do souboru :PRIV:ANSWER.DB a odtud si to
muzes nacist. Alespon si myslim, ze by to tak melo byt.
Jirka
--- SQL --- !!!!!!!!!!!
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 22.9.1999 17:26:03
Myslim, ze tento priklad nie je zlozity a zrejme ides na to dobre, ale asi ti
chyba index (najlepsie unique clustered - ak to podmienky umoznuju) na pole
rodne cislo vo vsetkych tabulkach. Inak by to nemal byt problem cez UDPATE a
selecty.
Ide aj o to, nad akym strojom robis. Niektore SQL servre umoznuju vytvarat
docasne subory z SQL prikazov (Informix: Select * from tab1 into tab2) apod."Radim Tich� (VAIPE)" wrote:
> Diky v�em za postu ohledne SQL dokumentace.
>
> :-(
> Mam vsak jeste jeden problem. A nehnu s nim. Safra.
> Pomuze mi nekdo ???
>
> potrebuji udelat UPDATE (nebo i neco jineho) nasledujici :
>
> priklad:
> Tabulka1 : Rodne cislo, Jmeno, Prijmeni, Bydliste
> Tabulka2 : Rodne cislo, Jmeno
> Tabulka3 : Rodne cislo, Prijmeni
> Tabulka4 : Rodne cislo, Bydliste
>
> a ted : tabulka1 ma vyplneno pouze RC, ostat. pole jsou prazdna
> tabulka2 ma RC i jmeno a tab3 a 4 jsou taky vyplneny.
>
> Udaje z tab 2,3,4 potrebuju podle RC v tab1 aktualizovat.
> Ale jak ?
>
> zkousel jsem INSERT, ale to mi vyhodilo pouze radky, ktere mely RC stejne ve
> vsech databazich.
> zkousel jsem UPDATE pomoci vnoreneho selectu, ale to jsem se temer nedockal
> vysledku (takulka je totiz strasne velika) ((ono to jede strasne pomalu i u
> malych tabulek)) :-)
> nejlepe vypadal a nejrychlejsi byl SELECT, ktery fungoval bezvadne, ale
> nemohl jsem dostat data do nejake docasne tabulky abych mohl nasledne udelat
> nejaky INSERT nebo ADD.
> zkousel jsem delat i update postupne na jednotliva pole, ale to vzhledem k
> rychlosti zavrhuji.
>
> Jak to mam udelat ???
>
> Ahoj Radim
Chyba v grid.pas?
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 22.9.1999 17:30:24
Jazyk, ktory umoznuje pouzivat slovo "Private", nie je objektovy.
Myslim, ze praotec objektovych jazykov (SmallTalk), velmi dlho zil bez a
mozno este aj zije bez "private" a programatori v SmallTalku su na to hrdi,
minimalne to nikomu nechyba. Osobne "private" nepouzivam, lebo je to
pseudoobjektove.
"Kriz Pavel, TDS" wrote:
> > BTW: Myslim, ze na tomto priklade by nam
> > Pavel Cisar mohl ukazat jak to myslel,
> > kdyz v hadce s Erikem Salajem rikal,
> > ze vzdy najde nejake reseni jak opravu provest
> > i kdyz je metoda staticka a nejlepe private.
> >
> > Na druhou stranu by Erik mohl naznacit co delat
> > kdyz by nemel ani tu moznost zasahu do zdrojoveho
> > kodu, protoze konstatovani, ze grid za urcitych
> > okolnosti spatne prekresluje a hlaseni Inprise,
> > doufaje ze to tento opravi je temer marne.
> > Ten totiz na chyby prdi a tak se fatalni chyby tahnou
> > od Delphi 2,3,4 pres vsechny servis packy az po 5.
> > S kazdou verzi se pak programatori modli,
> > aby byla nejakym zazrakem opravena
> > prave ta jejich chyba.
> > Vetsinou jsou ale zklamani :-(
>
> Tak tato slova by mela byt do kamene vytesana.
>
> S pozdravem
>
> Pavel Kriz
>
> P.S.: Ja bych Borlandum uplne zakazal pouzivat klicove slovo "private" a
> jako
> nahradu by meli povinne pouzivat "protected".Petr Vones a listbox na DD99
[*] Daniel Resler - ATC Group <daniel_resler(zv)atcgroup(tec)cz> - 22.9.1999 17:30:58
No to je take jasne. Proste se zjisti, treba v nejakem cyklu, jak dlouhy je nejdelsi retezec v listboxu funkce Canvas.TextWidth a tu delku porovnam s delkou listboxu a pokud je text delsi, tak to pridam a pokud ne tak to pridavat nebudu !
----- Original Message -----
From: Ing. J�n Kuch�r
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, September 22, 1999 8:13 AM
Subject: Re: Petr Vones a listbox na DD99
takto som to vedel aj ja, ale povedzme ze ziadne slovo nieje dlhsie ako sirka listboxu, ale tento prikaz aj tak tam prida posuvnu listu, ja by som potreboval, ale vediet taky prikaz, ktory tam tu listu da iba ked je sirka slova vacsia ako sirka listboxu
-----P�vodn� zpr�va-----
Od: Daniel Resler - ATC Group <daniel resler(zv)atcgroup(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. september 1999 15:57
P�edm�t: Re: Petr Vones a listbox na DD99
No musi se zavolat jedna funkce:
ListBox1.Perform(LB SETHORIZONTALEXTENT,sirka,0);
Tato metoda posila zpravu ListBoxu Windows. Treti parametr 0 je nepouzity parametr ! Jinak doporucuji zjistit delku nejvetsiho retezce v bodech a to funkci ListBox1.Canvas.TextWidth(Items[i]) treba v cyklu for ! Daniel Resler
----- Original Message -----
From: Ing. J�n Kuch�r
To: Delphi konferencia
Sent: Monday, September 20, 1999 9:24 AM
Subject: Petr Vones a listbox na DD99
Cau
mohol by si mi este raz zopakovat ako sa prida do listboxu horizontalny posuvnik, (ukazoval si to na prezentacii )
dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
tel. : 095 / 602 2589, e-mail : kuchar(zv)tuke.sk --- SQL --- !!!!!!!!!!!
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.1999 17:05:10
Puvodni zprava, kterou napsal Michal Hlav�� dne 22 Sep 99,:
> a neviete, kde by som zohnat nieco ohladom SQL Sybase. Najlepsie v CZ
> alebo v SK.
Ja mam k Sybase SQL Serveru dve tluste knizky, ktere jsem k tomu
dostal, a tam je to vsechno podrobne popsane, vsechny priklady.
Jinak take v helpech.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
ShellExecute a mailto
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 22.9.1999 18:40:15
On to "odeslat -> prijemce posty" dela nejak trochu jinak. Ve slozce
windows/SentTo tomu odpovida nejaky soubor .MAPIMail. Kdyz se na tuto
priponu podivas pres registr (HKCR/.MAPIMail) je tam misto spusteni programu
program odkaz na nejaky CLSID ukazujici na C:\Windows\System\SendMail.dll.
Pokud mas M$ Outlok z M$ Office 97 (mozna i starsi, ale u nich jsem to
nezkousel), tak jse pouzit C:\Program Files\Microsoft
Office\Office\SENDFILE.EXE kteremu jako parametr das soubor, ktery chces
pribalit - teto akci odpovida "odeslat -> Prijemce posty pomoci Microsoft
Outlook", ktery je o mnoho solidnejsi (nerikam ze rychlejsi, ale nepouziva
(asi) nedokumentovane vlastnosti Windows).
Krystof
PS.
Nevi nekdo jak pracuji ty ShellExtensions (obecne - napr. knihovna na
pridani tlacitek do pruzkumnika, atp...)?
----- Original Message -----
From: Jan Naiser <tua(zv)ltm(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 20, 1999 2:54 PM
Subject: Re: ShellExecute a mailto
> Ahoj,
>
> D4.03S, W98
>
> ...
> nedostal. Ohledne toho mailto - dostal jsem se asi tak daleko, jak
> popisuje kolega nize, ale attachment pripojit nedokazu. Ale vrta mi to
> hlavou, protoze kdyz das treba nad ikonou na desktopu pravy click mysi
> a odeslat - prijemce posty, tak se v pohode attachment pripoji v
> Outlooku 5. Nejak to jit tedy musi.
> ...
> Ahoj, Honza.
>
>OFF: Nutnost papirovych sestav
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 22.9.1999 18:02:06
Jak se to vezme...
Nemusite mit na papiru TED nic, ale kdyz prijde kontrola
a vyzada si nejake vykazy, musite je predlozit.
Je na kontrolnim organu, jestli mu to bude stacit
na monitoru, nebo bude chtit papir.
(muze chtit prakticky cokoliv, na vas je dokladat
a dokladat a dokladat...)
Takze bych to definoval jako ON-DEMAND :-)
Podobne dotazy muzete smerovat na naseho danoveho poradce
drvotova(zv)zds(tec)cz
### Leos Urban napsal dne 22 Sep 99, v 10:58 :
> rad bych slysel od nekoho kdo s tim ma zkusenosti, ktere sestavy MUSI BYT
> k dispozici V PAPIROVE FORME pro danovou kontrolu event. audit. Mame
> takovy maly vnitrofiremni spor, ja si myslim, ze staci mit k dispozici
> elektronicky archiv sestav a ostatni tvrdi, ze vse musi byt na papire.
>
> Dik a sorry za OFF TOPIC.
> Leos
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Prace se soubory pomoci asembleru
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 22.9.1999 19:13:12
Je mozne pristupovat ve Win9x k disku pomoci preruseni asembleru?
V 16bit aplikacich (i v Delphi 1) to slo. Ale ve vysich mi to uz nejak
nejde. Bude to asi proto, ze podle dokumentace k prerusenim co mam se zadava
adresa v pameti segment:offset, ale 32bit Delphi uz segment:offset neznaji -
maji 32bit pointery (seg:ofs jsou sice dohromady taky 32bit - 16b:16b, ale
nejsou kompatibilni). Priklad:
Manual rika:
INT 13,2 - Read Disk Sectors
AH = 02
AL = number of sectors to read (1-128 dec.)
CH = track/cylinder number (0-1023 dec., see below)
CL = sector number (1-17 dec.)
DH = head number (0-15 dec.)
DL = drive number (0=A:, 1=2nd floppy, 80h=drive 0, 81h=drive 1)
ES:BX = pointer to buffer
Na poslednim radku je ten vyse zmineny problem.
Ptam se proto, ze pristup k disku pres API funkce lze nadherne sledovat - v
programu zmenim vsechny odkazy na kernel32.dll treba na kernel33.dll a
vytvorim si vlastni knihovnu Kernel33.dll exportujici vsechny funkce, ktere
sledovany program importoval z kernel32. Kernel33 bude volat funkce z
kernel32, ale nez zavola funkci CreateFile, ukaze treba messageBox. Bude to
vypadat treba takto:
library Kernel33;
uses Windows;
function CreateFileA(lpFileName: PAnsiChar; dwDesiredAccess, dwShareMode:
DWORD;
lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition,
dwFlagsAndAttributes: DWORD;
hTemplateFile: THandle): THandle; stdcall;
var
f:TextFile;
begin
messageBox(0,PChar('Otevren soubor '+StrPas(lpFileName)),'',0);
result:=windows.CreateFileA(lpFileName, dwDesiredAccess, dwShareMode,
lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes,
hTemplateFile);
end;
exports
CreateFileA,
...
begin
end.
U normalnich akci toto sledovani samozrejme nevadi, ale pokud si chci
zkontrolovat, zda nevyprsela zkusebni doba, tak je to cracknutelne temer
kazdym.
Thanks for help.
Krystof
Lokalizace Interbase
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.9.1999 19:24:34
Linhart Petr wrote:
> myslim, ze to tady uz jednou bylo, ale v archivu jsem nic nenasel.
> Nevite nekdo o moznosti lokalizovat soubor Interbase.MSG
Na tohle jsem uz kdysi nekomu odpovidal...
Problem je v tom, ze Interbase.msg ma svuj vlastni format.
Vypada to zrejme takto: prvnich 24 bajtu je hlavicka. Potom
nasleduji 4 bajty s poradovym cislem textu, dale 4 bajty s delkou
textu a potom text dorovnany na 4 bajty nulami. Jenze na konci
jsou patrne nejake indexy, jejichz format mi neni na prvni pohled
zrejmy.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
sirka textu II.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.9.1999 19:24:33
Petrik wrote:
> koukam, samy chytry hlavy ...
> a jakpak ziskam sirku textu na NE-TCANVASU,
> neboli na device contextu.
> Jedina funkce, kterou sem na to nasel je :
>
> GetTextExtentPoint32(hdc,(zv)stringicek,length(stringicek),pom);
> sirkatextu:=pom.cx; //// kde VAR pom:SIZE;
Hdc je handle na prostor, kam chces malovat. Takze treba zrovna
Canvas.Handle, ve kterem mas nastaveny font atp.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
D5 a barvy
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.9.1999 19:24:33
Jiri Binder wrote:
> > Aha, uz jsem na to prisel. Tyhle barvy se tam snazi nahrat
> > Orpheus, ale nejak se to Delpham 5 nelibi.
>
> Orpheus nemam a dela me to taky.
> Mam tomu rozumet tak, ze by to mohl byt stav po instalaci
> nekterych dalsich komponent? Jakou cestou by k tomu doslo?
Aha, takze D5 je asi vic alergicke na cizi komponenty... :-)) To by
vysvetlovalo i problem s lokalizacemi pomoci Translation Manageru.
Nebo tam neco zmenili, na coz nejsou komponenty pripravene. Ted
jen prijit na to, co.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Z C do Pascalu a zpet do C s Pascalem a LPSTR k to
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.9.1999 19:31:07
Preji vsem pekneho dne,
asi jsem prepracovany z velkeho mnozstvi jakzyku, ktere jsem
nucen pouzivat, a nejsem sto v teto pozdni hodince rozchodit
nasledujici problem:
Mam DLL napsanou v C, kde jedna fce je nasledujici:
BOOL GetError(UINT ErrCode, LPSTR pstext, UINT
cbText);
do Delphi si to prepisi takto:
function StkGetErrorText (ErrCode: UINT; psText:
LPSTR; cbText: UINT): BOOL; far; cdecl; external
'OTASSDLL.DLL';
A nyni chci udelat ryze pascalskou fci:
function GetErrorText (ErrCode: LongWord; var
Text: string): Boolean;
Ktera bude volat predchozi, exportovanou.
Jak tech par radek napsat?
Diky vsem za radu
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Nutnost papirovych sestav
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 22.9.1999 19:44:52
Nevim presne, jak pro audity, ale napr. ve zdravotnictvi musi byt on-line
vedena dokumentace jak v PC, tak i papirove ( tam je to striktne takhle
stanoveno).
Pouze si nejsem jisty, jestli to nahodou opravdu neplati i obecne dle nejake
vyhlasky ci narizeni.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Leos Urban [SMTP:Leos.Urban(zv)aitix(tec)cz]
> Odesl�no: 22. z��� 1999 10:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OFF: Nutnost papirovych sestav
>
> Ahoj,
> rad bych slysel od nekoho kdo s tim ma zkusenosti, ktere sestavy MUSI BYT k
> dispozici V PAPIROVE FORME pro danovou kontrolu event. audit.
> Mame takovy maly vnitrofiremni spor, ja si myslim, ze staci mit k dispozici
> elektronicky archiv sestav a ostatni tvrdi, ze vse musi byt na papire.
>
> Dik a sorry za OFF TOPIC.
> Leos
>
>
>
> Halcyon BDE replacement - ceske trideni
[*] Libor Kucera <libor(zv)mikroservis(tec)cz> - 22.9.1999 20:24:32
Vazeni pratele,
pouziva nekdo z Vas databazovou nadstavbu Halcyon 6.05 ? Tento produkt se mi
docela libi, bohuzel se mi vsak nedari ho prinutit k ceskemu trideni. Ma s
tim nekdo zkusenosti?
Kontaktujte mne prosim primo na moji e-mailove adrese.
Predem dekuji za odpoved.
Libor(zv)mikroservis(tec)cz
OT - PJL manual
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 22.9.1999 21:01:31
Nevite nahodou nekdo, zda je nekde na stazeni
PJL Reference Manual.
patral jsem u HP a po siti ale neuspesne.
Za jakoukoliv pomoc dekuji. Jiri Binder
Nutnost papirovych sestav
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 21:08:42
----------
Od: Leos Urban
rad bych slysel od nekoho kdo s tim ma zkusenosti, ktere sestavy MUSI BYT k
dispozici V PAPIROVE FORME pro danovou kontrolu event. audit.
Mame takovy maly vnitrofiremni spor, ja si myslim, ze staci mit k dispozici
elektronicky archiv sestav a ostatni tvrdi, ze vse musi byt na papire.
1) Nejsem ekonom, ale videl sem to v zakonu o ucetnictvi, v kapitole pouzivani softwaru. Presne to budou vedet na servru Hospodarskych Novin http://www.weboffice(tec)cz.
2) Podobny problem maji mikrobiologicke laboratore, ktere musi mit v papirove podobe tzv. denni knihu, coz je vykaz o vsem co delali, body pro ZP, atp. Tahle sestava muze vylezt ze softwaru, ale musi byt kdykoli k dispozici jako papir pro jejich kontrolni organ. V praxi vznikne za rok nekolika metrovy stos papiru, ktery se nekolik let skladuje a pak se vyhodi.
3) elektronicka faktura (napr. faxovana,e-mailova) neni podle zakona ucetni doklad.Nutnost papirovych sestav
[*] Ing. Jaroslav �ke��k - 22.9.1999 21:13:23
Tak to je pro mne velice zajimava novina. Na to se schvalne mrknu.
Pri kontrole ucetnictvi me zdejsi urednice neoblibeneho uradu
donutila podepsat dokonce i vsechny vlastni kopie na miste pred ni,
jinak, ze mi udela zapis.
Jaro
> Puvodni zprava, kterou napsal Ing. Jaroslav �ke��k dne 21 Sep 99,:
>
> > Na papire musi byt pouze veskere dokumenty vyzadujici podpis, tj
smlouvy,
> > objednavky, danove doklady, dodaci listy inventurni sestavy, ktere
>
> Danovy doklad nemusi byt podepsany, neni to predepsano zakonem.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> Autorizovany dealer TurboPower Software... knihovny pro Delphi
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> === mobilni telefon GSM (hotline): 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================
> ICQ: 21215917, PGP vitano
>Nutnost papirovych sestav
[*] Ing. Jaroslav Ske��k - 22.9.1999 21:15:51
> Nevim presne, jak pro audity, ale napr. ve zdravotnictvi musi byt on-line
> vedena dokumentace jak v PC, tak i papirove ( tam je to striktne takhle
> stanoveno).
To je nesmysl! Jaky zakon nebo ministerske narizeni uvadi povinnost dvoji
evidence? Ve zdejsich zdravotnickych zarizenich se napr. vykazovani
vykonu porizuje i odevzdava
pouze v elektronicke podobe uz hezkych par let.
Napr. chorobopis musi mit papirovou formu, ale jak ho poridi do pocitace
lekar, ktery pocitac nevlastni ... to je mi opravdu zahadou.
>Pouze si nejsem jisty, jestli to nahodou opravdu neplati i obecne dle
nejake
>vyhlasky ci narizeni.
No "probuh" to snad ne, to by nam tak jeste schazelo!
Jaro
Chyby v D5
[*] Ing. Jaroslav Ske��k - 22.9.1999 21:19:20
> Chces rici ze v D5 neni mozne inheritovat jeden form od druheho.
> Tomu neverim a nebo at se nechat u Inprisu vysetrit!
Ja nevim jak komu, ale me tohle fnguje.
Jaro
Can't load package po rozsireni objektu
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 21:45:10
Nazdar,
Pribeh 1)
Spratelena firma nam dodava DPL moduly (dale X). My k nim pridavame svoji aplikaci a distribujeme. Po jedne modernizaci nasi aplikace a pridavnych DPL uz X nesly zavest. Prekompilovat vsechny X je nerealne. Pri porovnani import/export v hlavicce PE se objevily male poruchy typu:
export: StdLink.TStdLink(zv)A2994752
import: StdLink.TStdLink(zv)31961C76
ukazalo se, ze staci binarne nahradit vyskyt exportu v DPL a DCP za pozadovany import a vsechno jede.
Dotaz: co znamenaji cisla za (zv) ?
Pribeh 2)
Mam tridu A, potomka B. A zije v ADPL, B zije BDPL a CEXE pouziva instanci B. Chci rozsirit schopnosti objektu A a tim i vsech jeho potomku, ale nemuzu zmenit BDPL. Rekneme, ze poruchy importu/exportu spravim jako v pribehu 1.
Dotaz 1: muzu z CEXE volat nove staticke metody tridy A ? ( asi jo ).
Dotaz 2: muzu pridat nove fields do A ?
Dotaz 3: kdyz do A pridam virtualni metody, muzu je volat krz instance B ? tj. jak se vlastne skladaji VirtualMethodTable ?
Diky za kazde nove rano...FindFirst
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 21:55:06
Od: Tibor Galik
SearchRec: TSearchRec;
FfileList: TStrings;
begin
FfileList:=TStringList.Create;
FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
repeat
FfileList.Append(SearchRec.Name);
until not (FindNext(SearchRec) = 0);
FindClose(SearchRec);
...
Watch okno pre SearchRec.Name mi dava '..'
1) if Name[1]<>'.' then FfileList...
2) if (SearchRec.Attr and faDirectory)=0 then FfileList...
..Vicenasobne volani stejneho okna s ruznymi daty
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 22:25:27
Od: Petr Gaiourek
Z hlavniho okna jsem otevrel nekolik oken (Create, Show), jedno okno uzavru
(neni AutoCreateForms a OnClose - Action:=caFree) a ted potrebuji do
hlavniho okna predat zmenene parametry, ktere v nem ukladam. Zatim to resim
pres soubory na disku (kazde okno ma vlastni soubor), ktere pri aktivovani
hlavniho okna nacitam a ukladam.
V ramci jednoho procesu (adresoveho prostoru) pouzivat komunikacni soubory ? V ramci jednoho pocitace se pouziva:
{ CreateFileMapping, when called with $FFFFFFFF for the hanlde value,
creates a region of shared memory }
FHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,
Size, PChar(Name));
{ We still need to map a pointer to the handle of the shared memory region }
FBuffer := MapViewOfFile(FHandle, FILE_MAP_WRITE, 0, 0, Size);
Co treba domluvene komunikacni buffery, nebo nasat data pred zavrenim:
1) pri vytvareni
dite:=TDite.Create(...)
dite.OnDestroy:=Umiracek;
...
2)
procedure TMainForm.Uniracek(Sender:TObject);
var
dite:TDite absolute Sender;
begin
dite.DejSemVysledky
end;
// nebo
procedure TMainForm.Umiracek(Sender:TObject);
begin
if Sender is TDite1 then
Vysledek1:=TDite1(Sender).Label1.Caption
else if Sender is TDite2 then
Vysledek2:=...
end;Delphi 5 - ze by dalsi bug?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:27:34
Linhart Petr wrote:
>
> Zdravim,
>
> Skusil jsem v Trial verzi D5 jednu vec, ktera me trapi v D3 a jake bylo moje
> rozcarovani:
Ahoj,
Tohle uz se tu tusim kdysi resilo pro D4, mimochodem jaky build je ta D5
trail verze ?
> V D3 tento postup fungoval, ale v EditX neslo pouzivat sipky <- a -> vyhodi
> to Stack overflow...
Me se to v D5 chova naprosto stejne jako tobe v D3, vcetne toho Stack o'flow
:-) Pokud na ten formular kam pak vkladas ActiveForm s EditXem pridas jeste
nejakou dalsi komponentu, tak to po stisku tech sipek uz funguje, ale misto
posunu kurzoru v editu to udela focus na dalsi komponentu, coz je zvlastni.
Kdyztak ti to muzu vcetne tech OCX poslat mailem...
--
Petr Vones, amatersky programator
Language Driver
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:28:33
> Bednar��k Dalibor wrote:
> Mam takovej dotaz.
> Jak se resi pristup k databazim s ruznym kodovanim cestiny ale stejnym
> typem.
> Priklad:
>
> Dejme tomu, ze mam na serveru dva adresare se soubory DBF(FOXPRO), ale
> jeden je v 852 a druhy ve 1250.
Ahoj,
Kodovani tabulky je v ni ulozeno a BDE to pak prevadi (teda, melo by :-)
tak aby to bylo citelne.
--
Petr Vones, amatersky programator
TThread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:28:52
Martin Galik wrote:
>
> Zdar.
Ahoj,
> No tie rychlosti budu 9600 a viac.
Tak to neni zadna velka rychlost
> Chcel by som to vyriesit nejakym jednoduchym sposobom, ale ako vidim to asi
> nepojde. Asi to spravym ako dva nezavysle exe programi s tym, ze informacie
> si budu predavat bud pomocou message -sov, alebo cez nejaky subor.
No, to me prijde dost sileny reseni. Samozrejme ze to nikdy nebude kazdy
znak v pomeru 1:1 (to snad ani neni potreba), ale priblizne stejne by to
zobrazovat melo. Posilam ti maly priklad ...
--
Petr Vones, amatersky programator
Cestina v Paradoxich tabulkach
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 22.9.1999 22:28:44
Ahoj
Potrebuji programove zmenit aktualni konfiguraci BDE pouze pro svuj
program.
Konkretne LangDriver z 'ascii'ANSI na ceske anczechw.
(Kodovani jiz vytvorenych tabulek jsem zmenil podle nalezeneho
prikladu od Petra Vonese, ale jak zmenim to nastaveni aby tabulky,
ktere vytvarim za behu uz mely toto kodovani (nebo jazyk nebo co to
je) nastavene na anczechw a aby to samozrejme bylo jen pro tento
program.
Koukal jsem se do archivu i do helpu a vypada to na objekt Session
nebo neco podobneho, ale jak konkretne to provedu porad jeste
netusim, nejaky jednoduchy prikladek by mi moc pomohl.
Diky predem.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - Vymena D4 <-> D5 (Was: None)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:29:58
Petr Ga�ourek wrote:
>
> Ahoj,
>
> mohl by nekdo z vas,kdo pouziva Delphi 5, sdelit, zda ma smysl vym�nit D4
> Standart za D5 Standart. Jde mi hlavne navaznost na Win2000. Nebude do
> budoucna problem s programy v D4 ve Win2000?
Ahoj,
I pres nektere chyby ktere se zde probiraji je podle me D5 rozhodne lepsi
nez D4. Pozor ale na jednu vec, D5 Standard je jeste vice ocesane nez D4
Std, napriklad nema vubec zadnou podporu pro databaze (ani BDE na Paradox).
Podivej se radsi nejdriv do tabulky vlastnosti jednotlivych verzi D5, aby
jsi pak nebyl prekvapen.
--
Petr Vones, amatersky programator
Hlaseni chyb
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:29:26
Robert Kindl wrote:
>
> > Ahoj,
> > Dobra pripominka, uz jsem je na to upozornil :-)
> > Petr Vones, amatersky programator
>
> Jak?
Ahoj,
V tomhle pripade se jednalo o problem na Borland Community webu. Borland
provozuje jiz nejakou dobu vlastni newsy kde mas plno ruznych diskuznich
skupin, jako prave napriklad borland.public.community. Tam jsem prave na
tohle dostal odpoved.
http://www.borland.com/newsgroups/
> To uz existuje nejaky zpusob jak Inprisum
> hlasit problemy, ktery se docka odpovedi?
Na 100% se odpovedi samozrejme nedockas, ale jedna moznost jsou prave ty
newsy, druha pak na Community webu -> Bug Tracking (ktery je ted ale asi
porad jeste ve zkusebnim provozu ?)
http://community.borland.com/
--
Petr Vones, amatersky programator
Thread a modalni okno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:30:04
Tom� Br�dle wrote:
> Problem je v tom ze zavolane modalni okno vubec neni modalni k tomu formu,
> ale objevi se mi na taskbaru dalsi tlacitko, jakoby se melo jednat o dalsi
> aplikaci. Chci se tedy zeptat, jestli nedelam neco spatne, jak by se dalo
Ahoj,
A volas to pomoci metody TThread.Synchronize ?
--
Petr Vones, amatersky programator
D5+Asi se jim nelibim
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:30:11
Matula M wrote:
>
> Mam projekt, ten v Delphi5 otevru a Delphi ukoncim.
>
> Pripoustim, ze chyba je u mne, ale stejne by to nemelo skoncit takhle.(Nekdy
> uplne zablokuji okna).
Ahoj,
A pouzivas nejake dalsi komponety krome tech co jsou v Delphi ?
--
Petr Vones, amatersky programator
D5 a barvy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:30:22
Zbysek Hlinka wrote:
> Aha, takze D5 je asi vic alergicke na cizi komponenty... :-)) To by
> vysvetlovalo i problem s lokalizacemi pomoci Translation Manageru.
>
> Nebo tam neco zmenili, na coz nejsou komponenty pripravene. Ted
> jen prijit na to, co.
Ahoj,
Chyba by mohla byt napriklad v kodu ruznych pridanych property editoru,
coz dela treba RxLib (pod D5 jsem ji zatim nezkousel).
--
Petr Vones, amatersky programator
sirka textu II.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:30:46
Petrik wrote:
> Jedina funkce, kterou sem na to nasel je :
>
> GetTextExtentPoint32(hdc,(zv)stringicek,length(stringicek),pom);
> sirkatextu:=pom.cx; //// kde VAR pom:SIZE;
>
> chodi hezky, jenze POUZE na Fixed-width fonty (Fixedsys, Courier,..)
Ahoj,
To je zvlastni, me to funguje spravne:
procedure TForm1.Button1Click(Sender: TObject);
var
Font: TFont;
Size1, Size2: TSize;
DC: HDC;
OldFont: HFONT;
S: String;
begin
Font := TFont.Create;
Font.Name := 'Arial';
DC := GetDC(0);
OldFont := SelectObject(DC, Font.Handle);
S := '...';
GetTextExtentPoint32(DC, PChar(S), Length(S), Size1);
S := 'WWW';
GetTextExtentPoint32(DC, PChar(S), Length(S), Size2);
SelectObject(DC, OldFont);
ReleaseDC(0, DC);
Font.Free;
ShowMessageFmt('"...": %d "WWW": %d', [Size1.cx, Size2.cx]);
end;
> Ps. jeste jste mi neodpovedeli proc HBRUSH je jen 8x8 na Win95/98
> (tak ma bejt), ale na Win98OSR2 je velikej podle bitmapy (je
> to hezky, ale nema bejt). A tim padem, nemate napad jak RYCHLE
> nakreslit velkou bitmapu do device contextu i na Win95/98?
> A to sem se jeste nezminil, ze na Win95OSR2-CZ mi HBRUSH nefunguje
> VUBEC !!! (???????????)
Ve Win95 OSR2 to funguje spravne, pouzije 8x8 bodu z bitmapy, ve Win98
a W2000 by to melo dle MSDN fungovat neomezene. Pokud to chces udelat
univerzalne, tak si to budes muset postupne kopirovat do toho rozmeru
sam.
procedure TForm1.FormPaint(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('abort.bmp');
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(ClientRect);
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;
--
Petr Vones, amatersky programator
Install packages v D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.9.1999 22:31:09
Pavel Cisar wrote:
> > vyskusajte, prosim, ci sa da v D5 odinstalovat packages. Skusal som to v
> D5
> > Enterprise Trial a vzdy, ked som odinstaloval niekolko balickov, Delphi
> padli
> > (raz som musel pocitac resetovat tlacidlom, lebo stuhol uplne (Win95) a
> raz mi
> > Trial verzia ohlasila, ze uz expirovala...). Ak takto veselo pada aj ostra
> > verzia, oplati sa ostat pri D3.
>
> Trial nam to nedelala a ani ostra D5 Pro to nedela.
Ahoj,
Mam stejny zkusenosti, balicky jsem bez problemu ruzne pridaval a ubiral
(D5 Build 5.62, Win95 OSR2)
--
Petr Vones, amatersky programator
Jazyk ktory umoznuje pouzivat slovo PRIVATE nie je
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 22:35:36
Od: Zdeno Jasek
Jazyk, ktory umoznuje pouzivat slovo "Private", nie je objektovy.
Myslim, ze praotec objektovych jazykov (SmallTalk), velmi dlho zil bez a
mozno este aj zije bez "private" a programatori v SmallTalku su na to hrdi,
minimalne to nikomu nechyba. Osobne "private" nepouzivam, lebo je to
pseudoobjektove.
> Pavel Kriz
>
> P.S.: Ja bych Borlandum uplne zakazal pouzivat klicove slovo "private" a
> jako
> nahradu by meli povinne pouzivat "protected".
bezpecnost v SmallTalku by zkomplikovala cely stroj asi tak, jako je NT jine nez W95. V knihovnach Dolphin SmallTalku byla spousta kodu okomentarovana jako "private" ...asi jde o <reusability><levels of detail><transparency><distributed component object model>... ?sirka textu II.
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 22:45:34
Od: Zbysek Hlinka
Petrik wrote:
> koukam, samy chytry hlavy ...
> a jakpak ziskam sirku textu na NE-TCANVASU,
> neboli na device contextu.
> Jedina funkce, kterou sem na to nasel je :
>
> GetTextExtentPoint32(hdc,(zv)stringicek,length(stringicek),pom);
> sirkatextu:=pom.cx; //// kde VAR pom:SIZE;
Hdc je handle na prostor, kam chces malovat. Takze treba zrovna
Canvas.Handle, ve kterem mas nastaveny font atp.
(zv)stringicek->PChar(stringicek)
Hdc je handle na PROSTOR zavani spis tajemnou oblasti WinNT API:
"...SetWorldTransform function sets a two-dimensional linear transformation between world space and page space for the specified device context..."
"...ModifyWorldTransform function will fail unless graphics mode for the specified device context has been set to GM_ADVANCED..."
OpenGL, Fahrenheit, Taligent... ?Archiv zpr�v
[*] Ale� Bolha - 22.9.1999 23:07:13
Nest�v� se V�m n�komu stejn� jako m�, �e m� v po�tovn�m klientovi 10.000 zpr�v ??? M��ete mi pros�m n�kdo poradit jak archivujete zpr�vy ?? M�m stra�n� m�lo �asu jsem podnikatel a nem�m �as v�echnu po�tu ��st a hned si ji t��dit. Nep�em��leli jste n�kdo o n�jak� speci�ln� aplikaci, kter� by umo��ovala nejenom zpr�vy archivovat, ale i ji odes�lat s t�m, �e by zpr�vy byly um�st�ny v n�jak�ch skupin�ch. J� s�m bych r�d p�isp�l n�komu na tento v�voj.
Ale� Bolha, ONYX Computer
Dvo��kova 16, �atec 43801
Tel.,fax 0397/711763
MOBIL: 0602 429 424
e-mail: onyx bolha(zv)iol(tec)cz
Z C do Pascalu a zpet do C s Pascalem a LPSTR k to
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 23:10:31
Od: Slavek Rydval
Mam DLL napsanou v C, kde jedna fce je nasledujici:
BOOL GetError(UINT ErrCode, LPSTR pstext, UINT
cbText);
do Delphi si to prepisi takto:
function StkGetErrorText (ErrCode: UINT; psText:
LPSTR; cbText: UINT): BOOL; far; cdecl; external
'OTASSDLL.DLL';
A nyni chci udelat ryze pascalskou fci:
function GetErrorText (ErrCode: LongWord; var
Text: string): Boolean;
Ktera bude volat predchozi, exportovanou.
Jak tech par radek napsat?
-------------------
Jestli jeto C, tak pridej external 'OTASSDLL.DLL' name '_GetText';
Uvnitr GetErrorText:
{$IFDEF WIN32}
Result:=StkGetErrorText(ErrCode,PChar(Text),length(Text));
{$ELSE}
Text:=Text+#0;
Result:=StkGetErrorText(ErrCode,(zv)Text[1],High(Text) { ShortString ma 0 byte delku });
Text[0]:=chr(StrLen((zv)Text[1]));
{$ENDIF}
pro Win32 by bylo lepsi vytvorit dostatecne velky buffer, do neho Text nakopirovat, zavolat a zkopirovat ho zpatky, protoze stringy od D3 nahoru jsou huge a maji naalokovano kolik zrovna potrebuji, pry se na nich dokonce dela garbage-collection.FindFirst
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 22.9.1999 23:13:17
On Wed, 22 Sep 1999, Mojmir Nimeeek wrote:
> Od: Tibor Galik
>
> SearchRec: TSearchRec;
> FfileList: TStrings;
> begin
> FfileList:=TStringList.Create;
> FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
> repeat
> FfileList.Append(SearchRec.Name);
> until not (FindNext(SearchRec) = 0);
> FindClose(SearchRec);
> ...
>
> Watch okno pre SearchRec.Name mi dava '..'
> 1) if Name[1]<>'.' then FfileList...
> 2) if (SearchRec.Attr and faDirectory)=0 then FfileList...
> ..
Clovece, prosim te, quotuj. Jak mam poznat, co jsi napsal ty a co Tibor?
To Admin: mozna, ze jsem spatne cetl, ale v pravidlech konference jsem
nenasel, ze by se melo quotovat. Myslim, ze to je dost dulezita vec...
ahoj
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Prace se soubory pomoci asembleru
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 23:24:52
Od: Kry?tof Hoder
Je mozne pristupovat ve Win9x k disku pomoci preruseni asembleru?
V 16bit aplikacich (i v Delphi 1) to slo.
.....
Ptam se proto, ze pristup k disku pres API funkce lze nadherne sledovat - v
programu zmenim vsechny odkazy na kernel32.dll treba na kernel33.dll
------------
nebo CreateProcess(..DEBUG_PROCESS..)
------------
...
U normalnich akci toto sledovani samozrejme nevadi, ale pokud si chci
zkontrolovat, zda nevyprsela zkusebni doba, tak je to cracknutelne temer
kazdym.
-----------
mozna by to slo pres 32bit DPMI sluzby.
Uplne nejhorsi by bylo VXD, ktere je soucasti systemu a muze pracovat na bezpecnostnim okruhu kde vidi vsechno tak, jak to doopravdy je. Aplikace by mohla byt navazana na jeho existenci napr. tak, ze by jeji EXE VXD dekodovalo pred zavedenim do pameti. O VXD nic nevim, nez ze DeviceDriverKit od Microsoftu se prodaval s Watcom C. Taky s tim sly delat NetwareLoadableModules, BTW: Co sem nakouk, tak je NovellNetware uvnitr taky paradni organismus.Thread a modalni okno
[*] Tom� Br�dle������i�^����? - 22.9.1999 23:43:12
>Tom� Br�dle wrote:
>
>> Problem je v tom ze zavolane modalni okno vubec neni modalni k tomu
formu,
>> ale objevi se mi na taskbaru dalsi tlacitko, jakoby se melo jednat o
dalsi
>> aplikaci. Chci se tedy zeptat, jestli nedelam neco spatne, jak by se dalo
>
>Ahoj,
>
>A volas to pomoci metody TThread.Synchronize ?
>
>--
>
> Petr Vones, amatersky programator
>
ne pomoci SendMessage(Handle, ... kde Handle je handle toho zakladniho
formu, synchronize to dela podobne, akorat na to ma extra vytvoreny okno.
A v tom formu je obsluha ty zpravy pomoci metody s direktivou message.
To by pro serializaci melo stacit, nechapu spis, ze mi to vygeneruje dalsi
tlacitko na taksbaru jakoby slo o jinou ulohu a tim padem je ten
"modalni formular" zcela nemodalni a formular, ktery ho zavolal jde
aktivovat.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
ShellExecute a mailto
[*] Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> - 22.9.1999 23:50:15
Na posilani posty pouzivam freeware komponentu TEmail ( nasel sem to nekde u Torryho ). .."Simple MAPI" services via MAPI(32).DLL... je fajn a ma za sebou nejaky zivot:
Original version 1.00.00: Keith Darragh (c) SWIFTsoft 1995
Danny Heijl
Rudi Claasen
Stefan Hoffmeister
Ismail Esmail
Roman Popov
Steve Pinneo
Nikolai Soumarokov
Michael Wilcox
Ulrik Schoth
Michael Kennedy
Daniel Easton
Ken Clark
Gerald Patel
-> version 2.10.0 1998
--------
Nevi nekdo jak pracuji ty ShellExtensions (obecne - napr. knihovna na
pridani tlacitek do pruzkumnika, atp...)?
--------
Zacni u IShellFolder, dostanes se k NameSpace - hierarchie cehokoliv na ktere je postaveny cely shell. Souborovy system je jenom jednou ze soucasti NameSpace. Architektura dovoluje vytvaret vlastni rozsireni prostoru ( viz. WWW folders v MSOffice ), ale aby se to povedlo potrebujes dodrzet par prisnych protokolu ITohle a ITamto.., ktere jsou dokumentovane MB textu a par priklady, ktere moc nefungujou...
Jednoducha rozsireni jako vlastni operace na vlastnich typech souboru se delaji zapisem do registru, rozsireni kontextovych nabidek shellu je v Delphi\Demos\ShellExt, dal uz je to neco o COMech a jak spolu staveji mesto...TThread
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 22.9.1999 22:06:24 pdt
Zdar.
Vdaka za pomoc, ja mam s tym este trochu problemy.
Vcera sa mi to podarilo mierne odstranit tym, ze na port poslem len jednu
ziadost a potom cvylu cakam - tymto sposobom sa mi dostal k slovu aj ten
druhy port.
Este raz vdaka.
Martin Galik.
>Ahoj,
>
>Tady to posilam. Zkousel jsem to proti jednomu zasmyckovanemu portu a
>modemu, data jsou vysilany najednou, aby se to co nejvic priblizilo
>realnymu provozu. Rozhodne se to nechovalo tak, ze by se vypsaly data
>z jednoho portu (cely blok) a teprve az pak cely blok z druhyho.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Nutnost papirovych sestav
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.1999 23:23:16
Puvodni zprava, kterou napsal Ing. Jaroslav �ke��k dne 21 Sep 99,:
> Na papire musi byt pouze veskere dokumenty vyzadujici podpis, tj smlouvy,
> objednavky, danove doklady, dodaci listy inventurni sestavy, ktere
Danovy doklad nemusi byt podepsany, neni to predepsano zakonem.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
OFF: Nutnost papirovych sestav
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.1999 23:35:37
Puvodni zprava, kterou napsal Richard Valny dne 22 Sep 99,:
> na papire nutne:
> zaverka (mesicni, rocni), obratova hlavni kniha, prvotni doklady
Nemohu souhlasit. Prvotni doklady samozrejme ano, to je jasne.
Zrovna tak by mely byt zalozene a podepsane napr. prijmove
pokladni doklady a vydajove pokladni doklady. Na druhou stranu
mesicni zaverka vubec neni povinna, rocni zaverka se da v klidu
vytisknout z pocitace, zrovna tak hlavni kniha, ucetni denik
ci v jednoduchem ucetnictvi penezni denik. Toto jsou prave
sestavy, ktere lze archivovat na pocitacovem mediu, protoze
nevyzaduji podpis. Zrovna jako vystavene faktury - danove
doklady, ty take neni nutno mit vytistene. Neni zadny problem
je na pozadani vytisknout a predvest, nicmene nevyzaduji podpis
podle zakona.
> prvotni doklady (jejich ztrata se tresta) Podle zeny se muze stat to, ze
> se pozadavky jednotlivych uradu budou mirne lisit, ale mistni urednice
> chteji to co jsem uvedl vyse.
Ano, tohle je naprosta pravda a NENI TO V PORADKU. Jen to ukazuje
na skutecnost, ze urad je stat ve state. Nicmene zakon tu mame
jen jeden stejny pro vsechny lidi zijici v teto zemi, ktery plati
stejne tak pro me jako pro nekoho na druhe strane republiky
a zrovna pro kterehokoliv urednika. Ze si mnozi urednici (ted se
opravdu nechci dotknout Tve zeny nebo Vaseho financniho uradu,
protoze je vubec neznam) vykladaji zakon po svem, to je BOHUZEL
pravda a rekl bych i tragedie. Notabene, kdyz si je platime ze
svych dani...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Archiv zpr�v
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.1999 23:44:58
Puvodni zprava, kterou napsal Ale� Bolha dne 22 Sep 99,:
> Nest�v� se V�m n�komu stejn� jako m�, �e m� v po�tovn�m klientovi 10.000
> zpr�v ??? M��ete mi pros�m n�kdo poradit jak archivujete zpr�vy ?? M�m
> stra�n� m�lo �asu jsem podnikatel a nem�m �as v�echnu po�tu ��st a hned si
> ji t��dit. Nep�em��leli jste n�kdo o n�jak� speci�ln� aplikaci, kter� by
> umo��ovala nejenom zpr�vy archivovat, ale i ji odes�lat s t�m, �e by
> zpr�vy byly um�st�ny v n�jak�ch skupin�ch. J� s�m bych r�d p�isp�l n�komu
> na tento v�voj.
Ja mam v postovnim klientovi alespon 100.000 zprav, pouzivam Pegasus Mail
a ten mi zpravy sam tridi do slozek podle toho, o co se jedna. Pro kazdou
konferenci mam zvlasti slozku, pak mam ruzne slozky pro ruzne typy zprav
(informacni maily od mych dodavatelu, maily od zakazniku, maily pro
zakazniky apod.). No a v pohode. Nicmene to nema s Delphi nic moc
spolecneho, dnes umi slozky a trideni snad kazdy mailer, ne?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Threads - planovani pod NT
[*] Mojmir Nemecek <xmojmr(zv)volny(tec)cz> - 23.9.1999 02:24:43
Problematika sledovani zateze vlaken pod Windows NT je resena na http://www.jgsoftware.com/files/ntperf.zip
Thread a modalni okno
[*] Mojmir Nemecek <xmojmr(zv)volny(tec)cz> - 23.9.1999 02:42:41
Tomas Brandle pise
> nechapu spis, ze mi to vygeneruje dalsi tlacitko na taksbaru jakoby slo o jinou ulohu a tim padem je ten "modalni formular" zcela nemodalni a formular, ktery ho zavolal jde aktivovat.
TMujFormular.Create(nil);
vytvori okno bez vlastnika, coz muze byt pricina. TMujFormular.Create(Application) to obejde.
jiny zpusob jak dostat okno na taskbar je nastavit oknu v ExStyle priznak WS_EX_APPWINDOW. Priznak se tam dostane bud v TWinControl.CreateParams, nebo pres API SetWindowLong(handle,GWL_EXSTYLE,priznaky) kdykoliv pozdeji.
BTW: pouzivam SetWindowLong() pro vypnuti/zapnuti efektu BorderStyle=bsNone bez toho, aby se Delphi odpojovalo od Windows a pak vytvarelo vsechny okna znovu ( viz TWinControl.RecreateWnd )Definice Eventu v DLL
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 23.9.1999 03:02:36
Cauec,
mam jednoduchou DLL, ve ktere mam pouze komponentu pro seriovy port.
Inicializace portu je v pohode, ale chtel bych priradit nektere procedure
rizeni pri Eventu napr. OnOpen.
Kdybych pouzil formular, tak je to v pohode, ale tady nevim. Poradte please,
jak na to.
Dik Bye Ludan
{$F+}
Library MyDLL;
{$R *.RES}
uses
Classes,
Comms; // s�riov� port
var ComPort: TComPort;
function MyFunc: integer; cdecl; stdcall; export;
begin
Result := 0;
end;
function PortOpen: integer; cdecl; stdcall; export;
begin
// cinnost pri otevreni portu
Result := 0;
end;
exports
MyFunc,
PortOpen;
begin
ComPort := TComPort.Create(NIL); // inicializace
ComPort.OnOpen := ?? // Co sem, aby se
provedla funkce PortOpen ?
end.
V komponente je definovano
property OnOpen: TNotifyEvent;CHECKBOXY v DBGRIDU
[*] Bednar��k Dalibor - 23.9.1999 07:01:53
Ahoj ...
Zkouseli jste nekdo dostat CHECKBOX do DBGRIDU, kde je BOOLEANOVSKE POLE?
Celkem by se me to i hodilo...
predem dik
Dalibor
Language Driver
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 23.9.1999 07:45:30
Jo, to ma Petr pravdu. U t��dy TField exituje property Transliterate (
boolean), kterou si nastavis, zda ten ci onen field chces konvertovat do
dane tridy.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
> Kodovani tabulky je v ni ulozeno a BDE to pak prevadi (teda, melo by :-)
> tak aby to bylo citelne.
>
Chyby v D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.9.1999 07:49:26
Robert Kindl wrote:
> 1) Prepare project
> - create new form
> - place DBGrid on it (grdTest)
> - save (fmRepTest.pas)
> - add fmRepTest to Repository
> - Create new Application
> - save project (RepositoryError.dpr)
> - save main form (fmMain.pas)
> - create datemodule
> - place query (qryTest)
> - place datasource (dstTest)
> - assign dstTest.DataSet to qryTest
> - save (dmTest.pas)
> - create new form as inherited!!! from fmRepTest
Zde jsem skoncil, protoze v nabidce bylo pouze Copy...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Chyba v grid.pas?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.9.1999 07:49:26
Kriz Pavel, TDS wrote:
> P.S.: Ja bych Borlandum uplne zakazal pouzivat klicove slovo "private"
> a jako nahradu by meli povinne pouzivat "protected".
:-))) Presne tak. Ale nechal bych to tam pro pouziti na vlastni
odpovednost programatoru.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi + HTML help
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 23.9.1999 06:50:16
Ahoj,
melo by to jit pres ShellExecute, pokud je pripona CHM asociovana s
prohlizecem.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Odesl�no: 22. z��� 1999 16:20
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Delphi + HTML help
>
> Zkousim delat HTML help, ale nejak nemuzu prijit na to
> jak jej z Delhpi volat. Nevite nekdo jak na to ?
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+Archiv zpr�v
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 23.9.1999 07:51:44
> (informacni maily od mych dodavatelu, maily od zakazniku, maily pro
> zakazniky apod.). No a v pohode. Nicmene to nema s Delphi nic moc
> spolecneho, dnes umi slozky a trideni snad kazdy mailer, ne?
>
Omyl, MS Office 97 to neumi ( alespon ne samo - pouze ve spolupraci s MS Exchange Serverem).
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
==================================== Archiv zpr�v
[*] Pavel Junek <junek(zv)hrk.pvtnet(tec)cz> - 23.9.1999 07:54:31
Ahoj,
ja puzivam MS Outlook a v nem mam pridane Rules Wizard (Jde to pouzit i s
Dorucenou postou, ktera je ve Win standardne). Slozky jdou udelat normalne
a Rules Wizard umi rozdelovat postu podle mnoha kriterii, preposilat postu
jinam, preposilat kopii zprav jinam,... Doporucuji.
Urcite se daji najit nekde na www.microsoft.com.
Pavel
-----P�vodn� zpr�va-----
Od: Ale� Bolha [SMTP:onyx_bolha(zv)iol(tec)cz]
Odesl�no: 22. z��� 1999 23:07
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Archiv zpr�v
Nest�v� se V�m n�komu stejn� jako m�, �e m� v po�tovn�m klientovi 10.000
zpr�v ??? M��ete mi pros�m n�kdo poradit jak archivujete zpr�vy ?? M�m
stra�n� m�lo �asu jsem podnikatel a nem�m �as v�echnu po�tu ��st a hned si
ji t��dit. Nep�em��leli jste n�kdo o n�jak� speci�ln� aplikaci, kter� by
umo��ovala nejenom zpr�vy archivovat, ale i ji odes�lat s t�m, �e by zpr�vy
byly um�st�ny v n�jak�ch skupin�ch. J� s�m bych r�d p�isp�l n�komu na tento
v�voj.
Ale� Bolha, ONYX Computer
Dvo��kova 16, �atec 43801
Tel.,fax 0397/711763
MOBIL: 0602 429 424
e-mail: onyx_bolha(zv)iol(tec)cz
<<Soubor: ATT00001.html>> CHECKBOXY v DBGRIDU
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 23.9.1999 07:56:39
Zkus neco z Rx Library.
Pokud by tam nic nebylo, tak to lze obejit tak, ze ve fieldu je potreba
nasat metodu na udalost onGetText. Ja takhle menim interpretaci
hodnoty boolean nekde na ANO/NE jinde na zatrzitka atp.-
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Bednar��k Dalibor [SMTP:d.bednarcik(zv)vpfm(tec)cz]
> Odesl�no: 23. z��� 1999 7:02
> Komu: forum
> P�edm�t: CHECKBOXY v DBGRIDU
>
>
>
> Ahoj ...
>
> Zkouseli jste nekdo dostat CHECKBOX do DBGRIDU, kde je BOOLEANOVSKE POLE?
> Celkem by se me to i hodilo...
>
> predem dik
>
> Dalibor
>
> <<Soubor: ATT00003.htm>> Jeste jednou Archiv zprav
[*] Ale� Bolha - 23.9.1999 08:00:14
Nevim jestli jsem se vyjadril dost srozumitelne, ale pravidlo, ktere by mi
roztridilo zpravy jsem zvladl asi pred rokem a myslim, ze to sem vubec
nepatri. Takze nyni mam vsechny zpravy z teto konference v jedne slozce. Nic
mene to nemeni nic na tom ze jich tam je 10.000 a pokazde kdyz tam najedu
trva asi "sto let" nez tu slozku nacte.. Co se trideni tyce jsem myslel
tematicke =>> WINAPI, KOMPONENTY, ...
Ales Bolha, ONYX Computer
Dvorakova 16, Zatec 43801
Tel.,fax 0397/711763
MOBIL: 0602 429 424
e-mail: onyx_bolha(zv)iol(tec)cz
Can't load package po rozsireni objektu
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 23.9.1999 08:19:27
Haj hou!
From: Mojmir Nimeeek <xmojmr(zv)volny(tec)cz>
> export: StdLink.TStdLink(zv)A2994752
> import: StdLink.TStdLink(zv)31961C76
>
> Dotaz: co znamenaji cisla za (zv) ?
Kontrolni soucet metadat.
> Pribeh 2)
> Mam tridu A, potomka B. A zije v ADPL, B zije BDPL a CEXE pouziva instanci
B. Chci rozsirit schopnosti objektu A a tim i vsech jeho potomku, ale nemuzu
zmenit BDPL. Rekneme, ze poruchy importu/exportu spravim jako v pribehu 1.
>
> Dotaz 1: muzu z CEXE volat nove staticke metody tridy A ? ( asi jo ).
> Dotaz 2: muzu pridat nove fields do A ?
> Dotaz 3: kdyz do A pridam virtualni metody, muzu je volat krz instance B ?
tj. jak se vlastne skladaji VirtualMethodTable ?
Zasadni problem je ten, ze pokud potomek zije ve vlastnim balicku, je nutne
tento balicek rovnez prekompilovat, aby znal zmeny z predka. VMT se totiz
generuje behem kompilace (pouhe rozsireni A bez opetovneho prekladu B tedy
neni mozne). Diky tomu jsou odpovedi na tve otazky irelevantni a vsechny
zneji NE. Pokud by slo B prekompilovat, pak by znely ANO.
Opravy importu/export (jak krasny eufemismus :) ti nepomohou a pokud se ti s
jejich pomoci podari aplikaci "rozchodit", pak bude tezce nestabilni.
Hodne zdaru
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
CHECKBOXY v DBGRIDU
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 23.9.1999 08:24:38
Haj hou!
From: Bednar��k Dalibor
Zkouseli jste nekdo dostat CHECKBOX do DBGRIDU, kde je BOOLEANOVSKE POLE?
Celkem by se me to i hodilo...
Tohle tusim umi TGxDBGrid na http://www.gexperts.com/
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
OFF: Nutnost papirovych sestav
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 23.9.1999 08:25:51
> O prvotnich dokladech neni sporu, ale penezni denik si vytisknu az pri
> kontrole.
> Jedine co mi zakon krome radne evidence prvotnich dokladu narizuje,
> je "prukazne vedeni ucetnictvi" dle zakona o ucetnictvi.
> Podstatne jsou nalezitosti dane timto zakonem, ale formu si muzu zvolit..
> Vse co je "prukazne" je pouzitelne.
> U sestav (dokumentu) u nichz neni rozhodujici datum
> vzniku, u nichz neni nutny original (zejmena z duvodu podpisu)
> a daji se tisknout opakovane neexistuje jediny duvod, proc by se nemohly
> vytisknout az na pozadani.
> Zeptej se svoji manzelky, co by mi asi tak mohla namitnout, kdyz mesicni
> uzaverku vytisknu pre ni. Povinnost prukazne evidence jsem splnil.
Konecne jsem se dostal k poradnemu rozhovoru s zenou (vcera jen po telefonu
s vyrizovanim ostatnich veci)
1. skutecne ji nevadi, jsou-li tyto sestavy pouze v pocitaci, ale musi je
byt mozno vytisknout (pri hloubkove kontrole na ne (pripadne jejich kopii)
si zapisuji poznamky pripadne fajfky (videla prvotni doklad - nevidela))
2. problem je v tom, ze jiz videla "ucetni program" ktery pry nedokazal
tisknout hlavni knihy za uzavrene roky (kontrola se provadi) Otazka je, zda
ji tenkrat majitel firmy (nebo kdo u PC sedel) nekecal.
3. U vetsiny rozpoctovych organizaci (a bohuzel i u okresnich uradu) plati
narizeni ministerstva financi povinosti uchovani vsech techto sestav i v
papirove forme
Shrnu-li to, tak si sypu polel na hlavu za vcerejsi nespravnou prezentaci
myslenek me lepsi poloviny :-)) a mate-li dobry ucetni program, tak
skutecne neni nutne mit sestavy na papire, jste-li je schopni kdykoli (i po
letech) vytisknout.
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne, neco
dela a je zcela zdarma :-)Delphi + HTML help
[*] Bednar��k Dalibor - 23.9.1999 08:25:35
Podle meho se CHM spousti pres soubor HH.exe + Jmeno_CHM_souboru, ktery se
instaluje spolecne s IE, ale nevim v jake verzi presne je...
Myslim, ze ho davaj od IE5...
-----P�vodn� zpr�va-----
Od: p.brant(zv)samo(tec)cz <p.brant(zv)samo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 23. z��� 1999 9:05
P�edm�t: RE: Delphi + HTML help
>
>
>
>Ahoj,
>
>
>melo by to jit pres ShellExecute, pokud je pripona CHM asociovana s
>prohlizecem.
>
>
>**************************************************
>Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
>obcas Delphi nebo Visual Basic
>**************************************************
>
>
>
>
>
>> -----P?vodn� zpr�va-----
>> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
>> Odesl�no: 22. z�?� 1999 16:20
>> Komu: 'delphi-l(zv)fwd(tec)cz'
>> P?edm?t: Delphi + HTML help
>>
>> Zkousim delat HTML help, ale nejak nemuzu prijit na to
>> jak jej z Delhpi volat. Nevite nekdo jak na to ?
>>
>> +------------------------+
>> | Ing. Petr Jezek |
>> | Kuzmanyho 8 |
>> | 010 01 Zilina |
>> | Slovakia |
>> | mailto://petr(zv)sevis.sk |
>> +------------------------+
>FindFirst
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 23.9.1999 08:29:11
Ale ono to prece funguje. Pri prochazeni to vrati nejdriv ".", tj. tento
adresar, pak "..", tj. nadrazeny adresar a potom teprve nazvy adresary a
souboru.
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 22, 1999 1:25 PM
Subject: FindFirst
> Hi,
> prosim Vas uz druhy den sedim nad tym:
>
> SearchRec: TSearchRec;
> FfileList: TStrings;
> begin
> FfileList:=TStringList.Create;
> FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
> repeat
> FfileList.Append(SearchRec.Name);
> until not (FindNext(SearchRec) = 0);
> FindClose(SearchRec);
> ...
dosenv v NT
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 23.9.1999 08:38:16
Ahoj lidi,
nevite nekdo jak v NT nastavit promennou dosu (z prikazoveho radku se to
nastavuje set neco=neco) v D3 tak aby se to projevilo ve vsech dosovych
oknech ?
M.
--- SQL --- !!!!!!!!!!!
[*] Radim Tich� (VAIPE) <tichyr(zv)vaipe(tec)cz> - 23.9.1999 08:48:05
Udelal jsem to nasledovne a jede to perfektne (velmi rychle)
SELECT RodneCislo, T2.Jmeno, T3.Prijmeni, T4.Bydliste
FROM tabulka1 T1
LEFT OUTER JOIN tabulka2 T2
ON (T1.RodneCislo = T2.RodneCislo)
LEFT OUTER JOIN tabulka3 T3
ON (T1.RodneCislo = T3.RodneCislo)
LEFT OUTER JOIN tabulka2 T4
ON (T1.RodneCislo = T4.RodneCislo)
Timto zpusobem se vyberou i vety z T1, kde RC neni v ostatnich (nebo je
nektere) tabulkach.
Je to dobre.
INSERT s takovym SELECTEM jak jsem zde napsal se mi nepodarilo udelat. Asi
to nejde. ?!?!? :-(
S tim UNION to je dobry napad, ale s rychlosti to bude asi trosku horsi.
Jeste vyzkousim udelat par modifikaci toho co jste mi napsali. :-))))))
Diky.
Uz jsem z toho jelen.
moznost zapsat SELECT * FROM table INTO othertable
v local SQL v Database Desktop ani Delphi TQuery komponente neexistuje.
To, ze se vysledek dotazu uklada do tabulky :PRIV:ANSWER.DB vim (plati to
jen pri spusteni z Database Desktop), pri spusteni SQL z komponenty TQuery
pri behu programu se vysledek dotazu uklada do jakesi docasne tabulky :
_sql####.db (#### je nejake cislo), ktera se po ukonceni (nebo co ja vim
kdy) programu smaze. Je mozne zjistit jmeno teto tabulky po provedeni TQuery
? Potom by to byla velmi jednoduche.
Ahoj Radim
Jazyk ktory umoznuje pouzivat slovo PRIVATE nie je
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 23.9.1999 08:50:06
Ono to s tim Smalltalkem neni tak jednoduche. Ja sam mam tenhle jazyk velmi
rad a dlouho jsem v nem pracoval, ale musim rict, ze prave takove veci jako
absence "private" jej dneska dost vzdaluji modernim pristupum k objektovemu
programovani. Ve Smalltalku neexistuje zadna standardni moznost, jak
zjistit, ktere metody objektu patri k "verejnemu rozhrani", tedy muzu je
ocekavat u vsech dalsich modifikaci a verzi tridy a ktere metody se muzou
casem zmenit. Kdyz pracuju na jednom projektu sam nebo maly tym, tak to neni
zvlastni problem, ale jak sestavovat projekt z mnoha ruznych trid od ruznych
vyvojovych tymu, a jak treba potom takovy projekt udrzovat, to je ve
Smalltalku dost problematicke a vyplyva to prave z toho, ze odevsad lze
volat vsechno.
V tom se mi zda CORBA, COM nebo JAVA podstatne lepsi.
Viktor
----- Original Message -----
From: Mojmir Nimeeek <xmojmr(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 23, 1999 2:35 AM
Subject: RE: Jazyk ktory umoznuje pouzivat slovo PRIVATE nie je objektovy
> Od: Zdeno Jasek
> Jazyk, ktory umoznuje pouzivat slovo "Private", nie je objektovy.
>
> Myslim, ze praotec objektovych jazykov (SmallTalk), velmi dlho zil bez a
> mozno este aj zije bez "private" a programatori v SmallTalku su na to
hrdi,
> minimalne to nikomu nechyba. Osobne "private" nepouzivam, lebo je to
> pseudoobjektove.
> > Pavel Kriz
TTabbedNotebook Component
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 23.9.1999 09:04:13
Ahoj,
nevite, prosim, nekdo jak sdilet jednu stranku z TTabbedNotebook komponentu
ve dvou zaroven? Stranku mam kompletne navrzenou v jednom TabbedNotebooku a
druhy mam prazdny. Vsechno bych chtel na jednom formu a pokud mozno za behu.
Dekuji za jakoukoliv radu
Jaro B.Jeste jednou Archiv zprav
[*] Lubos <bruce(zv)pobox.sk> - 23.9.1999 09:16:11
> trva asi "sto let" nez tu slozku nacte.. Co se trideni tyce jsem myslel
> tematicke =>> WINAPI, KOMPONENTY, ...
Teoreticky je vsetko mozne. Ale treba mat nieco, podla coho by sa to dalo
triedit - napr klucove slovo v subj.
Toto by vyzadovalo zmenu pravidiel konferencie v takom zmysle, ze
kazdy prispievatel by musel napisat do subj. klucove slovo na triedenie.
To by vyzadovalo zadefinovat tieto klucove slova a kazdy by to musel dodrziavat.
Ako poznam ludi tak je to prakticky nemozne.
/LH
--
"We are Microsoft. Resistance is futile. Open your source code and prepare for
assimilation."
paleta barev bitmapy...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 23.9.1999 09:19:17
Ahoj
vi nekdo jak nacist jednotlive barvy z palety barev bitmapy ( TBitmap ) ?
diky
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Delphi + HTML help
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 23.9.1999 09:23:51
A jaka je syntax pro vyvolani urciteho Topicu nebo hned dialog Hledat
....
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Bednare�k Dalibor [mailto:d.bednarcik(zv)vpfm(tec)cz]
Sent: Thursday, September 23, 1999 8:26 AM
To: p.brant(zv)samo(tec)cz; delphi-l(zv)fwd(tec)cz
Subject: Re: Delphi + HTML help
Podle meho se CHM spousti pres soubor HH.exe + Jmeno_CHM_souboru, ktery
se
instaluje spolecne s IE, ale nevim v jake verzi presne je...
Myslim, ze ho davaj od IE5...
-----Puvodn� zpr�va-----
Od: p.brant(zv)samo(tec)cz <p.brant(zv)samo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 23. z�r� 1999 9:05
Predmet: RE: Delphi + HTML help
>
>
>
>Ahoj,
>
>
>melo by to jit pres ShellExecute, pokud je pripona CHM asociovana s
>prohlizecem.
>
>
>**************************************************
>Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
>obcas Delphi nebo Visual Basic
>**************************************************
>
>
>
>
>
>> -----P?vodn� zpr�va-----
>> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
>> Odesl�no: 22. z�?� 1999 16:20
>> Komu: 'delphi-l(zv)fwd(tec)cz'
>> P?edm?t: Delphi + HTML help
>>
>> Zkousim delat HTML help, ale nejak nemuzu prijit na to
>> jak jej z Delhpi volat. Nevite nekdo jak na to ?
>>
>> +------------------------+
>> | Ing. Petr Jezek |
>> | Kuzmanyho 8 |
>> | 010 01 Zilina |
>> | Slovakia |
>> | mailto://petr(zv)sevis.sk |
>> +------------------------+
>OT - PJL manual
[*] Lubos <bruce(zv)pobox.sk> - 23.9.1999 09:31:50
> Nevite nahodou nekdo, zda je nekde na stazeni
> PJL Reference Manual.
> patral jsem u HP a po siti ale neuspesne.
www.prohelp(tec)cz - je tam wizard na generovanie prikazov. Popis som nikde
nenasiel.
/LH
/--
"We are Microsoft. Resistance is futile. Open your source code and
prepare for assimilation."
Chyba v grid.pas?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 23.9.1999 09:47:35
> P.S.: Ja bych Borlandum uplne zakazal pouzivat klicove slovo "private" a
> jako
> nahradu by meli povinne pouzivat "protected".
Bohuzel ani to casto neni reseni. Stale jeste by jsi musel mit metody
virtual nebo dynamic.
Ale to by jsi asi nechtel nebot VMT tabulka by byla obrovska a uz slysim to
remcani
na velikost souboru a na pametove naroky.
Ono totiz zadne poradne reseni neni.
Jediny zpusob je totiz caste zaplatovani a hlavne ochota opravit alespon ty
nejocividnejsi chyby?
A opakuji: Ta bohuzel ze strany Inprise zcela chybi!!!
Rob
Chyba v grid.pas?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 23.9.1999 09:49:12
> > Bohuzel ani jednu z oprav nelze provest bez zasahu do
> > originalniho grids.pas nebo bez uplne kopie teto
> > a nekolika dalsich unit coz ne vzdy bude vyhovovat.
> >
> > BTW: Myslim, ze na tomto priklade by nam
> > Pavel Cisar mohl ukazat jak to myslel,
> > kdyz v hadce s Erikem Salajem rikal,
> > ze vzdy najde nejake reseni jak opravu provest
> > i kdyz je metoda staticka a nejlepe private.
> Mno, odpovedel jsi si sam :-) Lze prekopirovat prislusne unity a upravit
dle
> sveho. Ostatne gridy jsou previti odjakziva, a prakticky neni "dobreho
> gridu". Pro "vaznou" praci doporucuji poridit jiny grid (napr.
> ExpressQuantumGrid) nebo si napsat vlastni. Na bezne veci ovsem standardni
> Delphi grid postaci.
> Pavel Cisar <pcisar(zv)atlas(tec)cz>
Ja vim. To je prece to jadro problemu.
1) Kompletni kopie NENI reseni. Kdo by to delal? Jak to budu udrzovat? Co
chci pouzivat
treba komercni grid, ale postaveny na TCustomGridem - budu kopirovat i ten?
Nebo jen obecejnou RXLib? A co pouziti balicku?
2) Napsat si vlastni grid NENI reseni. Alespon ne pro kazdeho. Ja to udelal,
ale DBGrid
mi v zasade staci. Az na nektere neopravitelne chyby v TCustomGrid :-(
3) A kupovat komercni balik kvuli hloupe chybe?
Takze stale nevim jak vyresit problem kdyz je metoda staticka a nejlepe
private :-(
Ono to totiz podle mne nejde.
Rob
off topic yamahaCRW
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 23.9.1999 09:54:28
Spr�va vo form�te MIME rozdelen� na viac �ast�.
pardon za off topic, ale nema niekto z Vas napalovacku YAMAHA CRW 4001t ?4x CDR,2x RW. Mam nejake problemy pri napalovani audiu cd. kamaratovy to zacalo robit tiez, odislo mu servo a daju sa napalovat iba datove CD audio nechce ist. Nestretli ste sa z niecim takym ?
martin
Chyba v grid.pas?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 23.9.1999 09:56:36
> Jazyk, ktory umoznuje pouzivat slovo "Private", nie je objektovy.
>
> Myslim, ze praotec objektovych jazykov (SmallTalk), velmi dlho zil bez a
> mozno este aj zije bez "private" a programatori v SmallTalku su na to
hrdi,
> minimalne to nikomu nechyba. Osobne "private" nepouzivam, lebo je to
> pseudoobjektove.
To je ale blbost.
Definice objektu je prece takova, ze k jeho datovym struktram nemuzes
jinak nez pomoci metod. Datove struktry jsou tedy private at chces nebo ne.
Konkretni implementace v Delphi je pak jina vec, ale OOP je v Delphi
zcela vporadku. Chyby na ktere tady vsichni nadavame jsou
preci az v konkretni implementaci neceho. No a pokud je ta chyba
private (neboli soucasti encapsulovanych datovych struktur) tak
se neda nic delat at v Delphi nebo ve Smalltalku! Jedina pomoc
je prinutit autora aby to opravil.
Rob
TreeView oprava MoveTo
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 23.9.1999 10:00:19
Ako som zistil TTreeNode.MoveTo metoda nefunguje dobre, ak je volano anAddChild mode.
Posielam opravenu metodu:
procedure TF Grammar.MyMove(pTarget,pSelect:TTreeNode);
var i,id:integer;
tx:string;
mTarget,mChildTarget,mItem : TTreeNode;
begin
if (pTarget=nil) or (pSelect=nil) then exit;
if pTarget.HasAsParent(pSelect) then exit;
id:=integer(pSelect.Data);
tx:=pSelect.Text;
mTarget := TreeView1.Items.AddChildObject(pTarget,tx,pointer(id));
for i:=0 to pSelect.Count -1 do begin
mItem:=pSelect.Item[i];
id:=integer(mItem.Data);
tx:=mItem.Text;
mChildTarget := TreeView1.Items.AddChildObject(mTarget,tx,pointer(id));
if mItem.GetFirstChild<>nil then
MyMove(mChildTarget,mItem.GetFirstChild); // rekurzia
end;
pSelect.Delete;
end;
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
Sirka textu III.
[*] Petrik <petrik(zv)geocities(tec)com> - 23.9.1999 10:14:05
PV> To je zvlastni, me to funguje spravne:
PV> S := '...';
PV> GetTextExtentPoint32(DC, PChar(S), Length(S), Size1);
^^^^^^^^
PV> S := 'WWW';
PV> GetTextExtentPoint32(DC, PChar(S), Length(S), Size2);
^^^^^^^^
1)
A to ti slo zkompilovat ?
Mne teda ne ...
na oznacenej radcich - "Invalid typecast"
takze sem musel nahradit PChar(S) nahradit (zv)S , pak to slo
a za S jsem pro jistotu pridal chr(0)
2)
program mi na Arial vrati : "..."=17, "WWW"=38,
[bez toho chr(0) je to : "..."=14 a "WWW"=28].
Nevim jak u tebe, ale 17 a 38 jsou naprosto nesmyslna cisla,
jelikoz ty tri tecky v Arialu jsou jeste kratsi nez JEDNO
to W, takze polovicni velikost je proste nesmysl. Ma to bejt
"..."=9 a "WWW"=39 (dle pixelu).
Takze to presne dela to co to delalo - KECA TO ! ;)))
Jsou 2 reseni:
1) mam v haji Wokna a proste vsem to chodi, jen me ne;
2) je chyba v tom predavani : Pchar(S) asi neni to samy jako (zv)S+#0
Jeste jeden postreh - kdyz je to s tim #0 tak ten prece neni
dlouhej nijak, vlastne se ani nezobrazuje, tak jakto, ze se
ta delka zmeni.
Cus,
Petrik mailto:petrik(zv)geocities.com
Chyby v D5
[*] Robert Kindl <rob(zv)exec(tec)cz> - 23.9.1999 10:19:00
> > 1) Prepare project
> > - create new form
> > - place DBGrid on it (grdTest)
> > - save (fmRepTest.pas)
> > - add fmRepTest to Repository
> > - Create new Application
> > - save project (RepositoryError.dpr)
> > - save main form (fmMain.pas)
> > - create datemodule
> > - place query (qryTest)
> > - place datasource (dstTest)
> > - assign dstTest.DataSet to qryTest
> > - save (dmTest.pas)
> > - create new form as inherited!!! from fmRepTest
>
> Zde jsem skoncil, protoze v nabidce bylo pouze Copy...
Chces rici ze v D5 neni mozne inheritovat jeden form od druheho.
Tomu neverim a nebo at se nechat u Inprisu vysetrit!
Dal jsi ten fmRepTest do repository? Do stranky Forms?
Nedal jsi ho do stranky Projects? Tam odtud je mozne jen copy.
Rob
Archiv zpr�v
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 23.9.1999 10:22:55
Cesky se to jmenovalo Pomocnik na dorucenou postu (IE3 a IE4),
nyni Pravidla pro zpravy (IE5). Archivovani to vsak neresi.
Posloupnosti dotazu a odpovedi, popr. rozdeleni temat take ne.
Daniel
----- P�vodn� zpr�va -----
Od: Pavel Junek <junek(zv)hrk.pvtnet(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 23. z��� 1999 7:54
P�edm�t: RE: Archiv zpr�v
>
> ja puzivam MS Outlook a v nem mam pridane Rules Wizard (Jde to pouzit i s
> Dorucenou postou, ktera je ve Win standardne). Slozky jdou udelat normalne
> a Rules Wizard umi rozdelovat postu podle mnoha kriterii, preposilat postu
> jinam, preposilat kopii zprav jinam,... Doporucuji.
>
> Urcite se daji najit nekde na www.microsoft.com.
>
Ctrl + Tab
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 23.9.1999 10:31:09
Kombinaci klaves Ctrl+Tab lze preskakovat na dalsi
resp. predchozi (+shift) stranku TabControl a PageControl.
Kdyz je ale tento Control na MDIChildForm okne tak
klavesa Ctrl+Tab zpusobi prepinani mezi okny.
Nevi nekdo jak toto potlacit, a vratit puvodni funkci
teto klavesove zkratky ?
Predem diky
Daniel
Delphi + HTML help
[*] Juraj.Talaba(zv)nup.sk - 23.9.1999 09:33:41
[P��loha v souboru: Mdurllabel.ZIP]
skus to cez tuto komponentu. vyvolava url adresy. zadas nazov a cestu a
automaticky spusta webbrowser.
(See attached file: Mdurllabel.ZIP)
Juro
"Jezek Petr, Ing. (DELVINA)" <PETR(zv)sevis.sk> na 22.09.99 15:20:17
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
Kopie: (Na v�dom�: Juraj Talaba/0099/ba/nup/sk)
P�edm�t: Delphi + HTML help
Zkousim delat HTML help, ale nejak nemuzu prijit na to
jak jej z Delhpi volat. Nevite nekdo jak na to ?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
TTabbedNotebook Component
[*] Konference DELPHI <vyvoj(zv)atlascon(tec)cz> - 23.9.1999 10:39:17
Ahoj,
> nevite, prosim, nekdo jak sdilet jednu stranku z TTabbedNotebook
komponentu
> ve dvou zaroven? Stranku mam kompletne navrzenou v jednom TabbedNotebooku
a
> druhy mam prazdny. Vsechno bych chtel na jednom formu a pokud mozno za
behu.
>
TabbedNotebook nepouzivam, ale nebude mit komponenta na urcite strance neco
jako Parent tu prislusnou page? Aspon u TPageControl to takhle funguje.
Takze nastavenim Parent na prislusnou page to prehodis.
M.
---
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)
Z C do Pascalu a zpet do C s Pascalem a LPSTR k to
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 23.9.1999 10:48:54
Mojmir Nimeeek <xmojmr(zv)volny(tec)cz> wrote:
> {$IFDEF WIN32}
> Result:=StkGetErrorText(ErrCode,PChar(Text),length(Text));
Tak tohle by IHMO nepracovalo ze dvou duvodu:
1. Pokud jsem spravne pochopil vyznam argumentu, tak se psText pouziva jako buffer o max. velikosti cbText pro nejaky vysledek. V takovem pripade by Text musel byt vzdy delsi nez predavany vysledek.
2. Pokud volana funkce nakopiruje nejaky ASCIIZ string na adresu Text, tak porusi obsah ANSIstringu, ktery si kvuli rychlosti explicitne uklada delku textu.
Spravne by to melo vypadat nejak takto:
function GetErrorText (ErrCode: LongWord; var Text: string): Boolean;
const
maxErrMsgLength = 512;
begin
SetLength(Text,maxErrMsgLength);
Result := StkGetError(ErrCode,pChar(Text),length(Text));
if Result then
SetLength(Text,strlen(pChar(Text)));
else
Text := '';
end;
bye pf, callnet(zv)telecom(tec)cz
Thread a modalni okno
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 23.9.1999 10:55:52
Tom� Br�dle <t.bradle(zv)pvtnet(tec)cz> wrote:> ne pomoci SendMessage(Handle, ... kde Handle
> je handle toho zakladniho
Zkus to pomoci PostMessage(), aby se to neprovedlo hned v ramci volani SendMessage(), ale az si to hlavni thread odebere z message queue.
Ono nejspis hraje roli, ktery thread si ktere okno vytvoril.
bye pf, callnet(zv)telecom(tec)cz
Jazyk ktory umoznuje pouzivat slovo PRIVATE nie je
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 23.9.1999 11:04:28
Problem je odhadnut, ktore metody maju byt private o ktore nie. Pascal navyse
ponuka moznost definovat proceduru vnutri metody, takze tie procedury, ktore su
volane z jednej metody a su dost privatne, nebudu viditelne dokonca ani z inych
metod toho isteho objektu. Ak vsak nejaku metodu vola viacero inych metod daneho
objektu, kde je zaruka, ze to nebudu chciet robit aj jeho potomkovia? Preto je
private velmi osemetne.
Ako problem uvadzas, ze pri nevyuzivani "private" nevies, ktore metody patria k
"verejnemu rozhraniu" a ktore nie. Cela tato diskusia vsak bola vyvolana ovela
neprijemnejsim problemom - potreba predefinovat metody oznacene ako "private".
Toto su dve negativa dvoch rozdielnych pristupov, avsak nutnost zasahovat do
cudzich zdrojakov pokladam osobne za ovela vacsi problem (najme, ked tie
zdrojaky nemas).
Viktor Lostak wrote:
> Ono to s tim Smalltalkem neni tak jednoduche. Ja sam mam tenhle jazyk velmi
> rad a dlouho jsem v nem pracoval, ale musim rict, ze prave takove veci jako
> absence "private" jej dneska dost vzdaluji modernim pristupum k objektovemu
> programovani. Ve Smalltalku neexistuje zadna standardni moznost, jak
> zjistit, ktere metody objektu patri k "verejnemu rozhrani", tedy muzu je
> ocekavat u vsech dalsich modifikaci a verzi tridy a ktere metody se muzou
> casem zmenit. Kdyz pracuju na jednom projektu sam nebo maly tym, tak to neni
> zvlastni problem, ale jak sestavovat projekt z mnoha ruznych trid od ruznych
> vyvojovych tymu, a jak treba potom takovy projekt udrzovat, to je ve
> Smalltalku dost problematicke a vyplyva to prave z toho, ze odevsad lze
> volat vsechno.
>
> V tom se mi zda CORBA, COM nebo JAVA podstatne lepsi.
>
> Viktor
>
> ----- Original Message -----
> From: Mojmir Nimeeek <xmojmr(zv)volny(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, September 23, 1999 2:35 AM
> Subject: RE: Jazyk ktory umoznuje pouzivat slovo PRIVATE nie je objektovy
>
> > Od: Zdeno Jasek
> > Jazyk, ktory umoznuje pouzivat slovo "Private", nie je objektovy.
> >
> > Myslim, ze praotec objektovych jazykov (SmallTalk), velmi dlho zil bez a
> > mozno este aj zije bez "private" a programatori v SmallTalku su na to
> hrdi,
> > minimalne to nikomu nechyba. Osobne "private" nepouzivam, lebo je to
> > pseudoobjektove.
> > > Pavel Kriz
CHECKBOXY v DBGRIDU
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 23.9.1999 11:05:53
A co takle zkusit DBCtrlGrid, tam si muzes dat, co chces, pro Tebe asi bude
vhodne tam nacpat DBCheckBox.
-----P�vodn� zpr�va-----
Od: Bednar��k Dalibor [mailto:d.bednarcik(zv)vpfm(tec)cz]
Ahoj ...
Zkouseli jste nekdo dostat CHECKBOX do DBGRIDU, kde je BOOLEANOVSKE POLE?
Celkem by se me to i hodilo...
predem dik
Dalibor
Copy souboru do Windows\System
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 23.9.1999 11:06:44
Nevite proc mi nejde kopirovat do GetSystemDir() adresare ?
Win98, D4 prof.
nefunguje:
----------
b:= CopyFile( PChar('c:\pokus.dll'), PChar('c:\Windows\System\pokus.dll'),
true);
v pohode:
---------
b:= CopyFile( PChar('c:\pokus.dll'), PChar('c:\temp\pokus.dll'), true);
Jaroslav KULHEIM
kulheim(zv)fitness(tec)cz
Sirka textu III.
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 23.9.1999 11:16:09
Petrik <petrik(zv)geocities.com> wrote:
>1) mam v haji Wokna a proste vsem to chodi, jen me ne;
>2) je chyba v tom predavani : Pchar(S) asi neni to samy jako (zv)S+#0
Hele, a nemas v projektu nastaveno, ze String=ShortString? To by ledacoc vysvetlovalo, mj. i to zmenu hodnoty pri pripojeni #0 :-))
bye pf, callnet(zv)telecom(tec)cz
TFormStorage
[*] Michal Hlav�� - 23.9.1999 11:23:22
Zdravim,
mam fsMDIForm a MDIChild a na MDIChild chcem pouzit TFormStorage z
RXComponents a neviem ako.
Vdaka
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Okno na taskbaru
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 23.9.1999 11:40:10
Mam aplikaci v Delphi 1, ktera vsak bezi jak na Win3.11, tak in na Win
NT.
Mam hlavni okno (nonMDI) a z nej otviram dalsi okna. Jak se da zamezit,
aby v NT tyto dalsi okna meli vlastni button na taskbaru.
Da se to sice pres odstraneni biSystemMenu z BordersIcon daneho formu,
ale
to pak formular nema ani ikonu a tlacitko X pro zavreni formulare je
zakazane.
Nevite nekdo radu?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+Archiv zpr�v
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 23.9.1999 11:41:48
----- P�vodn� zpr�va -----
Od: Daniel Rott <roxton(zv)atlas(tec)cz>> Cesky se to jmenovalo Pomocnik na dorucenou postu (IE3 a IE4),
> nyni Pravidla pro zpravy (IE5). Archivovani to vsak neresi.
> Posloupnosti dotazu a odpovedi, popr. rozdeleni temat take ne.
>
Pokud jde o posloupnost zprav, to resi OE5 v Zobrazit / aktualni zobrazeni / seskupit podle konverzace
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
BringProcessToFront ?
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 23.9.1999 12:13:54
Spoustim jine aplikace pres CreateProcess a ponechavam si
ProcessInformation, pomoci kterych si zjistuju zda spustena
aplikace jeste bezi, nebo jiz skoncila. Vim ze muzu aplikaci
ukoncit pomoci:
PostThreadMessage(ProcessInfo.dwThreadId,WM_QUIT,0,0);
a pokud by snat nechtela brat QUIT na vedomi, tak muzu
udelat TerminateProcess(appProcessInfo.hProcess,1);
Jak ale udelat prepnuti aplikace do popredi ?
Mohl bych pouzit funkci SetForegroundWindow, ale k te
bych potreboval znat handle aplikace (mam pouze handle
procesu a hlavniho threadu). Jak jej ziskat ?
Vim ze pod Win98 a Win2000 se aplikace do popredi
neprepne, ale pouze vyznaci na liste.
Priklad: Uzivatel si z me aplikace pusti napr. editor a pokud
si jej bude chtit pustit znovu, tak ja vim ze ten prvni jeste
nezavrel a chtel bych nespoustet dalsi, ale aktivovat puvodni.
Diky za namety
Daniel
pristup k DBF souboru
[*] Petr Kro�a ml. <mrp.konference(zv)compact(tec)cz> - 23.9.1999 12:15:56
Zdravim vsechny a mam jednoduchy dotaz:
Jak se da z Delphi 3 jednoduse pristupovat k souboru *.DBF ? Jake komponenty
pouzit ? Zkousel jsem si nadefinovat ODBC zdroj, ale dal uz nevim jak se na
nej dostat. Tak kdyby mel nekdo nejaky priklad, byl bych vdecen.
Diky
PK
Cteni registru Windows
[*] Jan Skvor Ing. K337 <SKVORJAN(zv)feld.cvut(tec)cz> - 23.9.1999 10:27:05 met-1mest
Nevite nekdo jak cist obsah systemoveho registru - soubory user.dat a
system.dat), ktere se nachazi na jinem disku nez ze ktereho se zavadi
Windows. Neco jako RegistryConnect pro sitove pocitace ale na lokale.
Diky
Honza
----------------------------------------------------------------------
>>> Ing. Jan Skvor skvorjan(zv)feld.cvut(tec)cz <<<
----------------------------------------------------------------------
rychle pisanie zdrojakov
[*] Igor Klepoch <klepoch(zv)ba.sknet.sk> - 23.9.1999 12:36:07
Mam taku malu otazku :
neviete niekto poradit, ako je mozne zaznamenat si makro - postupnost klavesovych skratiek
a nasledne ho spustit v editore delphi ?
Foxka to vedela a velmi rychlo sa dali pisat riadky kodu pre niekolko premennych.
Napr. obsluha pre udalost : z ciselnika zakaznikov si jedneho vyberiete a nasledne kopirujete adresu, ico atd.
do tabulky faktur (predpoklada sa, ze polia sa volaju samozrejme rovnako).
Vo Foxke sa to dalo spravit tak, ze sa vytlacila struktura DBF do textaku, zmazali sa nepotrebne riadky,
a makrom sa nasledne zrusili nadbytocne udaje v riadku (typ, rozsah, ..) spravilo sa neake
kopirovane (Ctrl+C, Ctrl+V) nazvu premennej a dopisal sa text priradenia a nazvu aliasu druhej
databazy. Do makra sa zaznamenala postupnost stlacania klaves.
Takto vytvorene makro sa aplikovalo stlacenim kombinacie klaves na dalsie riadky
a kus zivotaschopneho kodu bol na svete.
Myslim, ze stare Win 3.1 nieco podobne mali - fungovalo to univerzalne pre lubovolny program vo Win.
Je nieco aj vo Win98 ? Alebo neaka utilita co to vie ?
----------------------------------
Igor Klepoch
Nutnost papirovych sestav
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 23.9.1999 12:45:13
Martin Lasevic napsal(a) toto:
> Nevim presne, jak pro audity, ale napr. ve zdravotnictvi musi byt on-line
> vedena dokumentace jak v PC, tak i papirove ( tam je to striktne takhle
> stanoveno).
Zdravim, Martine.
Musim ti odporovat, tvoje formulace je nepresna. Ve zdravotnictvi MUSI byt
vsechno NA PAPIRE (respektive zdravotnicka dokumentace). Jestli je to
zaroven i nekde jinde (porizovano do pocitace a pak tisteno, nebo jen
psano na stroji) je vec druha. Co se tyce uctovani vykonu apod. ty uz se
na ty papiry psat nemusi (u nas se to pise jen do chorobopisu u
hospitalizaci), jen je nutne, aby pro kazdy vykazany vykon existovala
zdravotnicka dokumentace (na papire), ktera odduvodnuje vykazani toho
vykonu.
Vetsina lekaru ma pocitac jen proto, ze pojistovny uz nechteji brat
doklady na papirech, ale jen na disketach (ani se jim nedivim, kdo by to
tam prepisoval). Ale vetsina z nich do pocitace porizuje jen vykony, a
dokumentaci porad pisou na stroji, a v pocitaci ji vubec nemaji.
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
Obrazok v MDI formulari
[*] suvak(zv)pbko.sk - 23.9.1999 11:51:42
Ahojte,
mam MDI aplikaciu. Do hlavneho formulara (FormStyle = fsMDIForm)
potrebujem umiestni� obrazok (TImage). Mam smolu, nechce sa zobrazit.
Pritom ak je FormStyle = fsNormal, vsetko je OK. Bohuzial, aplikacia
musi byt typu MDI. Nepomaha vlozit TPanel a kreslit nanho, obrazok
sa sice zobrazi, ale presvita spod Child okna.
Vie niekto, ako na to?
(Delphi 4.0 C/S, sp3, Win98)
Dakujem.
=============================================================
Ing. Peter Suvak, veduci oddelenia spravy systemov
Priemyselna banka, a.s. Kosice
Sturova 27
040 01 Kosice
tel: 095 / 6804 282
fax: 095 / 6804 510
mobil: 0903 610 901
=============================================================
pristup k DBF souboru
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 23.9.1999 12:58:36
Bud standardne pre BDE nebo pouzit komponenty pro pristup mimo BDE ( ty jsou i free a byly tady nabizeny - podivej se do archivu).
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Petr Kro�a ml. [SMTP:mrp.konference(zv)compact(tec)cz]
> Odesl�no: 23. z��� 1999 12:16
> Komu: DELPHI Konference
> P�edm�t: pristup k DBF souboru
>
> Zdravim vsechny a mam jednoduchy dotaz:
>
> Jak se da z Delphi 3 jednoduse pristupovat k souboru *.DBF ? Jake komponenty
> pouzit ? Zkousel jsem si nadefinovat ODBC zdroj, ale dal uz nevim jak se na
> nej dostat. Tak kdyby mel nekdo nejaky priklad, byl bych vdecen.
>
> Diky
> PK
> pristup k DBF souboru
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 23.9.1999 13:01:10
----- P�vodn� zpr�va -----
Od: Petr Kro�a ml. <mrp.konference(zv)compact(tec)cz>> Zdravim vsechny a mam jednoduchy dotaz:
>
> Jak se da z Delphi 3 jednoduse pristupovat k souboru *.DBF ? Jake komponenty
> pouzit ? Zkousel jsem si nadefinovat ODBC zdroj, ale dal uz nevim jak se na
> nej dostat. Tak kdyby mel nekdo nejaky priklad, byl bych vdecen.
Nejjednodussi pristup :
1. Komponenta TTable
2. Do Table.TableName dat jmeno tabulky i s cestou
3. Table.TableType nastavit na dBase
4. Table.Active := True; a mas otevrenou tabulku
Pokud ji chces zobrazit v Gridu, potrebujes jeste TDataSource, ve kterem nastavis odkaz na tabulku a v Gridu odkaz na DataSource.
V BDE administratoru v nativnich ovladacich u dBase je treba nastavit kodovou stranku (pokud se ti zobrazuje chybne cestina). Pokud jsou tabulky typu FoxPro, doporucuji upgrade BDE min. na verzi 5.01.
Pro slozitejsi aplikace (vice tabulek, dotazy) je vhodnejsi pouzit DataModule (na ktery umistis vsechny komponenty pro pristup k tabulkam) a TDatabase, ktera ti mimo jine urcuje v pripade dBase tabulek adresar s tabulkami, odpada pouziti ALIAS apod.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Chyba v grid.pas?
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 23.9.1999 13:05:06
S virtual by to malo byt ako v Jave: predpokladat direktivu "virtual" ako
default
a programator nech uvadza klucove slovo (napr. "final") k metodam, ktore
sa v potomkovi objektu predefinovat nedaju. Istotne, znizi to rychlost volania
metod, ale databazove aplikacie vacsinu casu stravia cakanim na vstup
uzivatela, na odpoved z databazoveho servera a na ukoncenia volania Windows
API.
A co sa tyka tych pametovych narokov - optimalizovaneho softveru sa uzivatel
vzda
v okamihu nainstalovania Windows :-).
Robert Kindl wrote:
> > P.S.: Ja bych Borlandum uplne zakazal pouzivat klicove slovo "private" a
> > jako
> > nahradu by meli povinne pouzivat "protected".
>
> Bohuzel ani to casto neni reseni. Stale jeste by jsi musel mit metody
> virtual nebo dynamic.
> Ale to by jsi asi nechtel nebot VMT tabulka by byla obrovska a uz slysim to
> remcani
> na velikost souboru a na pametove naroky.
> Ono totiz zadne poradne reseni neni.
> Jediny zpusob je totiz caste zaplatovani a hlavne ochota opravit alespon ty
> nejocividnejsi chyby?
> A opakuji: Ta bohuzel ze strany Inprise zcela chybi!!!
>
> Rob
try ... except ... finally (teorie)
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 23.9.1999 13:16:39
Preji vsem hezku den,
Mohl by mi nekdo vysvelit, jaky je duvod proto, aby byly bloky except a
finally oddelene ? Me totiz pripada logictejsi aby slo psat neco jako
try
...
finally
....
except
...
end;
Jednotlive bloky by mohy byt prazdne. Jediny duvod ktery me napada, je ze je
to kvuli kompilatoru. Konkretne mi na tom vadi to, ze muzu napsat jen blok
except, a pokud v jeho try nastane vyjimka, tak kod pokracuje nadrazenym
blokem finally (ktery je na uplne jinem miste programu) a v nem se muzou
napr. rusit objekty vyuzivane ve zpracovani vyjimky.
pr:
function Sum(a,b:string): integer;
begin
try
Result := StrToInt(a) + StrToInt(b);
except
on EConvertError do Log.Add('Chyba');
end;
end;
{ Hromada kodu }
var Log:TLogFile;
begin
Log := TLogFile.Create;
try
Sum('12', '2s');
finally
Log.Free;
end;
end;
R.Pospisil
Obrazok v MDI formulari
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 23.9.1999 13:16:10
Do MDIForm nejde jen tak kreslit, ale existuje na to jeden figl:
Tfrm_Main=class(TForm)
private
FOldClientProc:TFarProc;
FNewClientProc:TFarProc;
procedure ClientWndProc(var Msg:TMessage);
protected
procedure CreateWnd; override;
end;
procedure Tfrm_Main.CreateWnd;
begin
inherited CreateWnd;
FNewClientProc:=MakeObjectInstance(ClientWndProc);
FOldClientProc:=Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
SetWindowLong(ClientHandle,GWL_WNDPROC,LongInt(FNewClientProc));
end;
procedure Tfrm_Main.ClientWndProc(var Msg:TMessage);
var rc:TRect;
cnv:TCanvas;
begin
case Msg.Msg of
WM_ERASEBKGND:begin
CallWindowProc(FOldClientProc,ClientHandle,
Msg.Msg,Msg.wParam,Msg.lParam);
GetWindowRect(ClientHandle,rc);
Dec(rc.Right,rc.Left);
Dec(rc.Bottom,rc.Top);
rc.Left:=0;
rc.Top:=0;
cnv:=TCanvas.Create;
try
cnv.Handle:=TWMEraseBkGnd(Msg).DC;
// tady muzes dat svoje vykresleni
cnv.Brush.Color:=Color;
cnv.Font.Assign(Font);
DrawText(cnv.Handle,PChar(Hint),-1,rc,DT_CENTER);
finally
cnv.Free;
end;
Msg.Result:=1;
end;
else begin
Msg.Result:=CallWindowProc(FOldClientProc,ClientHandle,
Msg.Msg,Msg.wParam,Msg.lParam);
end;
end;
end;
-----------------------------
Tohle napriklad vypisuje do MDIForm okna obsah property Hint
Daniel
----- P�vodn� zpr�va -----
Od: <suvak(zv)pbko.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 23. z��� 1999 12:51
P�edm�t: Obrazok v MDI formulari
>
> Ahojte,
>
> mam MDI aplikaciu. Do hlavneho formulara (FormStyle = fsMDIForm)
> potrebujem umiestni� obrazok (TImage). Mam smolu, nechce sa zobrazit.
> Pritom ak je FormStyle = fsNormal, vsetko je OK. Bohuzial, aplikacia
> musi byt typu MDI. Nepomaha vlozit TPanel a kreslit nanho, obrazok
> sa sice zobrazi, ale presvita spod Child okna.
> Vie niekto, ako na to?
> (Delphi 4.0 C/S, sp3, Win98)
>
> Dakujem.
>
> =============================================================
> Ing. Peter Suvak, veduci oddelenia spravy systemov
> Priemyselna banka, a.s. Kosice
> Sturova 27
> 040 01 Kosice
>
> tel: 095 / 6804 282
> fax: 095 / 6804 510
> mobil: 0903 610 901
> =============================================================
>
>
WINSOCK120 - TTCPClient
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 23.9.1999 13:17:47
Ahojte.
Chtel bych se zeptat, na jednu vec v pouzivani komponenty TCPClient z baliku
WINSOCK120.
Nevim, jak provest, aby se daly data posilat z jednoho klienta na druheho.
Mam jeden TCPServer a x klientu.
Mezi klientem a serverem a opacne chodi data v pohode.
Myslel jsem, ze toho dosahnu kdyz pridam IP adresu klienta prijemce na
klientu odesilateli do property PeerAddress, ale ta je jenom pro cteni.
Takze me napada jedina vec:
data pro jineho klienta posilat serveru s tim ze nekde v datech bude urcen
klient-prijemce a server si precte z dat IP adresu a data posle
klientu-prijemci.
Jde to nejak naprimo klient1 ->klient2 ?
Diky.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
D4 C/S SP3, W98
P.S. Kde bych nasel nejnovejsi verzi komponent WINSOCK120 ?
TFormStorage
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 23.9.1999 13:24:15
Ak si dobre spominam, je to komponent na ukladanie vlastnosti TFormu do
INI suboru. Ja som ho v aplikacii pouzil a nemal som ziadne problemy
(mam aj child - formy).
Treba to hodit na formular ako komponent, dvakrat na to kliknut, on sa
ta spyta, ktore vlastnosti chces ukladat a potom uz len specifikujes
nazov INI suboru.
Takze - kde je problem?
Michal Hlav�� wrote:
> Zdravim,
>
> mam fsMDIForm a MDIChild a na MDIChild chcem pouzit TFormStorage z
> RXComponents a neviem ako.
>
> Vdaka
>
> Michal Hlavac
> Spolocnost priatelov deti z detskych domovov
> Usmev ako dar
>
> e-mail: 7hlavac(zv)nw.fmph.uniba.sk
> web: www.usmev.sk
pristup k DBF souboru
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 23.9.1999 13:32:32
> Jak se da z Delphi 3 jednoduse pristupovat k souboru *.DBF ? Jake komponenty
> pouzit ? Zkousel jsem si nadefinovat ODBC zdroj, ale dal uz nevim jak se na
> nej dostat. Tak kdyby mel nekdo nejaky priklad, byl bych vdecen.
Daji se pouzit databazove komponenty pouzivajici BDE rozhrani, ale v takovem
pripade nestaci na pocitac, kde nejsou Delphi pouze programove soubory, ale take
nainstalovat BDE a s tim jsou jenom problemy a problemy. ODBC rozhrani se da
pouzit taky, ale to mi pripada s kanonem na vrabce.
Soubory *.DBF maji jednoduchou a prehlednou strukturu. Na zacatku jsou informace
o strukture dat, nazvy polozek, velikosti apod. Pak za touto hlavickou, ktera je
ukoncena znakem $0D jsou za sebe naskladane jednotlive zaznamy. Lze tedy pouzit
binarniho pristupu k souboru. Tuto variantu doporucuji pro jeji bezproblemovost.
Pro tento zpusob pristupu existuje na internetu spousta unit. Pripadne mohu take
nejakou poslouzit.
Mejte se fajn ...
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* private: peppa(zv)post(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************Obrazok v MDI formulari
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 23.9.1999 13:50:30
> Ahojte,
>
> mam MDI aplikaciu. Do hlavneho formulara (FormStyle = fsMDIForm)
> potrebujem umiestni� obrazok (TImage). Mam smolu, nechce sa zobrazit.
> Pritom ak je FormStyle = fsNormal, vsetko je OK. Bohuzial, aplikacia
> musi byt typu MDI. Nepomaha vlozit TPanel a kreslit nanho, obrazok
> sa sice zobrazi, ale presvita spod Child okna.
> Vie niekto, ako na to?
> (Delphi 4.0 C/S, sp3, Win98)
>
> Dakujem.
>
Pokud nastavis napr.:
Panel1.Align:= alLeft; {panel pro obrazek}
ukroji si panel z plochy pro formulare fsMDIChild, ty pak nebudou pod
panelem.
Petr Smol�k
psmolik(zv)fides(tec)cz
ICQ: 37413592
Tel.:0604 837652
Sdileni
[*] Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz> - 23.9.1999 14:16:26
Poradite mi prosim.
Pouzivam knihovny :
SvrApi95.pas - translation of svrapi.h
LmErr.pas - NetError constants
LmErrText.pas - NetError text messages
Na vytvareni sdileni ve Win95. Vytvarim to procedurou dole, vytvori to
sdileni naprosto v pohode,
ale po restartu to sdileni zmizi.
Nevite nahodou proc mizi a jak by se to dalo odstranit.
procedure TFmKnih_Inst.CreateShare95(qJm_Sdileni,
qCesta : string);
var
wRemark : PChar;
wShareInfo : Tshare_info_50;
begin
ZeroMemory((zv)wShareInfo, Sizeof(wShareInfo));
with wShareInfo do
begin
StrPCopy(shi50_netname, qJm_Sdileni);
shi50_type := STYPE_DISKTREE;
shi50_flags := SHI50F_PERSIST or SHI50F_FULL;
shi50_remark := nil;
shi50_path := PChar(qCesta);
shi50_rw_password := #0; {no password}
shi50_ro_password := #0; {no password}
end;
{end with}
USvrApi95.NetShareDel(nil, wShareInfo.shi50_netname, 0); // needed for
edit
// (nil - lokal. pocitac)
CheckNetError(USvrApi95.NetShareAdd(nil, 50, (zv)wShareInfo,
Sizeof(wShareInfo)));
end;
Diky za odpoved.
ing. Libor Fuka
AISoft, s. r. o.
Sumavska 31
612 00 Brno
Czech Republic
Tel: 05/413 211 01/731
www: http://www.aisoft(tec)cz
e-mail: Libor_Fuka(zv)aisoft(tec)cz
Jazyk ktory umoznuje pouzivat slovo PRIVATE nie je
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 23.9.1999 14:17:38
> -----P�vodn� zpr�va-----
> Od: Zdeno Jasek [mailto:zdeno.jasek(zv)corinex.sk]
> Odeslano: 23. z��� 1999 11:04
> Komu: delphi-l(zv)fwd(tec)cz
> Predmet: Re: Jazyk ktory umoznuje pouzivat slovo PRIVATE nie je
> objektovy
>
Proc autor puvodniho prispevku napsal do subjectu lez?
>
> Problem je odhadnut, ktore metody maju byt private o ktore
> nie. Pascal navyse
> ponuka moznost definovat proceduru vnutri metody, takze tie
> procedury, ktore su
> volane z jednej metody a su dost privatne, nebudu viditelne
> dokonca ani z inych
> metod toho isteho objektu. Ak vsak nejaku metodu vola viacero
> inych metod daneho
> objektu, kde je zaruka, ze to nebudu chciet robit aj jeho
> potomkovia? Preto je
> private velmi osemetne.
Ono by se stacilo naucit se programovat skutecne objektove,
ne bezhlave placat metody a jeste bezhlaveji je volat.
Nebo Ty, Zdeno, kdybys byl objektem, chtel bys, aby vsechny
Tve metody byly verejne? Ja myslim, ze ne. Mozna bys zverejnil
metody UsmivamSe, Zpivam, ale urcite bys napr. metody
PotrebujiPujcitPenize, Kradu, atp. nechal protected,
a metody Vymesuji, JeMiBlbe apod bys dokonce dal private.
>
> Ako problem uvadzas, ze pri nevyuzivani "private" nevies,
> ktore metody patria k
> "verejnemu rozhraniu" a ktore nie. Cela tato diskusia vsak
> bola vyvolana ovela
> neprijemnejsim problemom - potreba predefinovat metody
> oznacene ako "private".
:-)
Prave proto jsou ty metody private, aby nesly prepsat.
Jura
Nutnost papirovych sestav
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 23.9.1999 14:23:42
Cau Pavle,
beru to, ja uz v tom skoro 2 roky nedelam. Ale stejne Ti vypadl jeden duvod, proc doktori
jeste pisou na stroji - CLINICOM :-)))
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
====================================
Skusenosti s LOCAL SHARE
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 23.9.1999 13:28:34
Testovano s V5, po POSTu tam data nebyla (i s TRUE), po FlushBuffers tam byla, zkus si udelat share test (jinou nonBDE aplikaci
pravidelne cist data z PSD tabulky a uvidis (testoval jsem jen BDE32)). Resil jsem pro jednoho myho kolegu, ktery nepretrzite
logoval data a chtel, aby po padu systemu tam byla (BDE nejak nevyprazdnovalo CACHE).
Slavek
-----P�vodn� zpr�va-----
Od: Zdeno Jasek [SMTP:zdeno.jasek(zv)corinex.sk]
Odesl�no: 21. z��� 1999 12:35
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Skusenosti s LOCAL SHARE
Ja som skusil zapisat par viet v aplikacii v Delphach do Paradoxovskej tabulky, vypol som pocitac a ked som ho zapol, tie vety
tam boli (pri LOCAL SHARE=TRUE, BDE 4.5). Odvtedy nerobim zapis cez FlushBuffers, iba nastavujem LOCAL SHARE=TRUE, ale neviem,
ake sprievodne ucinky to este ma, pretoze v helpe sa o takomto fungovani nepise. Na akej verzii BDE si to skusal? Mozno ze na
starsich verziach BDE to nefungovalo - neviem...
Slavomir Skopalik wrote:
> Nedavno jsem to zkousel (pro jednu aplikaci, data se stratila vzdy!), jedinny zpusob jak zapsat data na disk je FlushBuffers,
> testoval jsem to takto: Pradox V3, delphi zapisovali a ja cetl pres nc5 (dbview). Data se tam neulozili.
> Pripoustim, ze to muze mit nekdy vliv, ale spolehat se na to neda.
> Local Shere slouzi pro sdileni DB mezi vice aplikaci (mezi BDE a nonBDE).
>
> Slavomir Skopalik
>
> -----P�vodn� zpr�va-----
> Od: Zdeno Jasek [SMTP:zdeno.jasek(zv)corinex.sk]
> Odesl�no: 21. z��� 1999 7:47
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Skusenosti s LOCAL SHARE
>
> Slavomir Skopalik wrote:
>
> > Na ukladani dat nema LOCAL SHARE vliv, pro ukladani dat slouzi metoda FlusBuffers.
> >
> > Slavomir Skopalik
> >
>
> Tak to sa mylis - skus nastavit LOCAL SHARE na FALSE, zadat par riadkov v aplikacii a
> resetnut pocitac. Potom to skus s nastavenim na TRUE. LOCAL SHARE ma zasadny vplyv na
> ukladanie dat a sice ten, ze pri FALSE sa zmeny priamo na disk nezapisuju (po resete
> sa stratia vsetky riadky zapisane metodou POST).
>
> ------------------------------------------------------------------------
>
> Part 1.2 Type: application/ms-tnef
> Encoding: base64
FindFirst
[*] Tibor Galik <tgalik(zv)vsz.sk> - 23.9.1999 14:55:42
Diky,
neuvedomil som si, ze AnyFile su aj Directory.
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> "Daniel Rott" <roxton(zv)atlas(tec)cz> 09/22 2:36 odp. >>>
> Watch okno pre SearchRec.Name mi dava '..'
> Za FromDirName+'\*.*' som pisal aj 'c\*.*'
Tak nedavej faAnyFile, ale faAnyFile-faDirectory
Daniel
FindFirst
[*] Tibor Galik <tgalik(zv)vsz.sk> - 23.9.1999 14:57:50
Diky,
na zaklade jednej odpovede na moj problem som dal faAnyFile-faDirectory a vyriesilo mito bez pgm kodu.
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> "Libor Lev" <levl(zv)oku-dc(tec)cz> 09/22 4:39 odp. >>>
> Hi,
> prosim Vas uz druhy den sedim nad tym:
>
> SearchRec: TSearchRec;
> FfileList: TStrings;
> begin
> FfileList:=TStringList.Create;
> FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
> repeat
> FfileList.Append(SearchRec.Name);
> until not (FindNext(SearchRec) = 0);
> FindClose(SearchRec);
> ...
>
> Watch okno pre SearchRec.Name mi dava '..'
> Za FromDirName+'\*.*' som pisal aj 'c\*.*'
>
> nefunguje mi to a neviem prist na to, kde robim chybu.
>
> diky
>
> tg
>
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
>
A: Musite vyloucit aktualni a nadrazeny adresar tj. '.' a '..'. To by
slo napriklad umistenim nasledujiciho kodu za FindFirst:
while ((SearchRec.Attr and faDirectory) = faDirectory) and
(SearchRec.Name[1]='.') do FindNext(SearchRec);
Libor Lev
levl(zv)oku-dc(tec)cz
Win95
[*] Tibor Galik <tgalik(zv)vsz.sk> - 23.9.1999 15:11:32
Diky,
pocul som vsak aj o OSR2.5
nevies nieco o tom.
Preco sa vlastne pytam ? Nainstaloval som W95 a tvrdili mi ze jeto OSR 2.5. Ale odvtedy mam problemy s QuickReportom. Predtym mi vsetlo fungovalo a teraz ked otvorim Frm s QuickReportom a umiestnim tam nejaku jeho komponentu padne mi to na chybe (pisem to s prace takze sa ospravedlnujem ale nepamatam si znennie) a chce Zavrit alebo Ignorovat. Niekolko krat stlacim Ignorovat a mozem robit. O chvilu je tam zase chyba, niekolkokrat ignore....Uz ma to prestava bavit.
Inac mam nainstalovane vsetky servispacky pre Delphi4 a pre QuickReport.
cau
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> "Zdenek Drvota" <drvota(zv)zds(tec)cz> 09/21 6:41 odp. >>>
jestli se nemylim, je to podle konce oznaceni verze:
.950
.950a
.950b (FAT32) = OSR2
.950b + USB support = OSR2.1
### Tibor Galik napsal dne 21 Sep 99, v 11:01 :
> viem, je to trochu mimo, ale ako zistim OSR verziu WIN95?
> Viem, ze vo vlastnostiach systemu za cislom verzie B-cko znamena OSR2.X,
> ale ake X to je to neviem. V MSDOS prompte na prikaz Ver dostanem verziu
> 4.00.1111, da sa to zistit z toho? A ked, tak ako?
>
> diky
>
> tg
>
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
FindFirst
[*] Tibor Galik <tgalik(zv)vsz.sk> - 23.9.1999 15:21:49
Ano, funguje to.
Avsak ked som to kontroloval cez Watch okno, tak mi to prechadzalo n-krat a vzdy davalo hodnotu '..'. Keby to bolo raz tak dobre, ale niekolko krat. Alebo som dostaval vo Watch okne vsetky subora zacinajuce 'A'. Cyklus pokracoval dalej avsak v SearchRec.Name sa mi zacali striedat posledny 2 subory. Z toho som vyvodil, ze robim nejaku chybu. Nepisal som pgm kod dalej. Keby som ho napisal, tak by som zistil, ze vo Watch okne som mal 'blbe' hodnoty (aspon si to myslim).
Mal uz niekto taky pripad? Da sa vzdy spolahnut na Watch okno?
Vlastne co chcem, ked sa niekedy nemozem spolahnut ani sam na seba ;-)))))
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
>>> Viktor Lostak <Viktor.Lostak(zv)chmi(tec)cz> 09/23 8:29 dop. >>>
Ale ono to prece funguje. Pri prochazeni to vrati nejdriv ".", tj. tento
adresar, pak "..", tj. nadrazeny adresar a potom teprve nazvy adresary a
souboru.
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 22, 1999 1:25 PM
Subject: FindFirst
> Hi,
> prosim Vas uz druhy den sedim nad tym:
>
> SearchRec: TSearchRec;
> FfileList: TStrings;
> begin
> FfileList:=TStringList.Create;
> FindFirst(FromDirName+'\*.*', faAnyFile, SearchRec);
> repeat
> FfileList.Append(SearchRec.Name);
> until not (FindNext(SearchRec) = 0);
> FindClose(SearchRec);
> ...
ShellExecute a mailto
[*] J�n Grman�������e���zW��ۛg�$ - 23.9.1999 15:21:09
Mam podobny problem.
Viem poslat postu tymto sposobom:
pomocou ShellExecute spustim:
mailto:[adresa]?Subject=[subject]&cc=[adresa]&bcc=[adresa]
Malo by to fungovat na vsetkych rozumnejsich mail programoch a skoro to
postacuje, ale....
..neviem vsak ako k takejto sprave pridat nejaky (pripadne viac) napr.
binarny subor. Vie niekto poradit?
Dokonca by ma zaujimala moznost ako hned pridat do spravy aj nejaky text.
Napr. "V prilohe Vam posielam pozadovanu fakturu ako HTML subor !"
Vdaka. JaNo:-)
PS: Ahoj Mojmir Nimeeek. Ak ten TEmail mas a nie je to problem. Posli mi ho
prosim priamo na moju adresu.
-----Original Message-----
From: Mojmir Nimeeek <xmojmr(zv)volny(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 23. september 1999 0:53
Subject: RE: ShellExecute a mailto
>Na posilani posty pouzivam freeware komponentu TEmail ( nasel sem to nekde
u Torryho ). .."Simple MAPI" services via MAPI(32).DLL... je fajn a ma za
sebou nejaky zivot
WINSOCK120 - TTCPClient
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 23.9.1999 15:41:37
Opravdu se moc omlouv�m, ale m�m tady m���c pr�ce, tak�e jen heslovit�.
Nov� verze nen�. D�lal to n�jak� student, a ten uz dostudoval. Ale m� to
takhle vyhovuje. Je tam n�jak� chyba?
Je takov� probl�m d�t si na klienta je�t� jeden socket, tedy server a
pak po n�m pos�lat data?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Sadovsky [SMTP:petr(zv)slunce(tec)cz]
> Odesl�no: 23. z��� 1999 13:18
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: WINSOCK120 - TTCPClient
>
> Ahojte.
>
> Chtel bych se zeptat, na jednu vec v pouzivani komponenty TCPClient z
> baliku
> WINSOCK120.
> Nevim, jak provest, aby se daly data posilat z jednoho klienta na
> druheho.
> Mam jeden TCPServer a x klientu.
> Mezi klientem a serverem a opacne chodi data v pohode.
>
> Myslel jsem, ze toho dosahnu kdyz pridam IP adresu klienta prijemce na
> klientu odesilateli do property PeerAddress, ale ta je jenom pro
> cteni.
>
> Takze me napada jedina vec:
> data pro jineho klienta posilat serveru s tim ze nekde v datech bude
> urcen
> klient-prijemce a server si precte z dat IP adresu a data posle
> klientu-prijemci.
>
> Jde to nejak naprimo klient1 ->klient2 ?
>
> Diky.
>
> Petr Sadovsk�
> p.sadovsky(zv)atlas(tec)cz
> ICQ 37042001
> D4 C/S SP3, W98
>
> P.S. Kde bych nasel nejnovejsi verzi komponent WINSOCK120 ?
> try ... except ... finally (teorie)
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 23.9.1999 15:42:22
A co takto:
var Log:TLogFile;
begin
Log := TLogFile.Create;
try
Result := StrToInt(a) + StrToInt(b);
except
on EConvertError do Log.Add('Chyba');
end;
Log.Free;
end;
Vyznam je ten isty - Log.Free sa vykona, aj ked scitanie spadne.
Ale inak je tvoja poznamka v poriadku, osobne by som tiez viacej
preferoval:
try
Result := StrToInt(a) + StrToInt(b);
except
on EConvertError do Log.Add('Chyba');
finally
Log.Free;
end;
a to kvoli lepsej citatelnosti, akurat ze to Delphi nevedia.
Radek Pospisil wrote:
> Preji vsem hezku den,
>
> Mohl by mi nekdo vysvelit, jaky je duvod proto, aby byly bloky except a
> finally oddelene ? Me totiz pripada logictejsi aby slo psat neco jako
>
> try
> ...
> finally
> ....
> except
> ...
> end;
>
> Jednotlive bloky by mohy byt prazdne. Jediny duvod ktery me napada, je ze je
> to kvuli kompilatoru. Konkretne mi na tom vadi to, ze muzu napsat jen blok
> except, a pokud v jeho try nastane vyjimka, tak kod pokracuje nadrazenym
> blokem finally (ktery je na uplne jinem miste programu) a v nem se muzou
> napr. rusit objekty vyuzivane ve zpracovani vyjimky.
>
> pr:
>
> function Sum(a,b:string): integer;
> begin
> try
> Result := StrToInt(a) + StrToInt(b);
> except
> on EConvertError do Log.Add('Chyba');
> end;
> end;
>
> { Hromada kodu }
>
> var Log:TLogFile;
>
> begin
> Log := TLogFile.Create;
> try
> Sum('12', '2s');
> finally
> Log.Free;
> end;
> end;
>
> R.Pospisil
Okno na taskbaru
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 23.9.1999 15:59:25
Ahoj,
lze to udelat v DPR souboru:
Program XYZ;
Uses Forms, WinTypes,WinProcs;
Var wStyle:LongInt;
Begin
wStyle:=GetWindowLong(Application.Handle, GWL_STYLE);
wStyle:=wStyle Or ws_Caption; {tady zmena-ale je komb, mozna to jeste neco
potrebuje???}
SetWindowsLong(Application.Handle, GWL_STYLE, wStyle);
....
Application.....;
Application.Run;
End.
Stava se mi vsak, ze mi zmizi ikonka na tlacitku na taskbaru a je nahrazena
defaultni z tlacitka Start (Nevite nekdo, prosim, proc se to tak deje?).
Teprve po minimalizaci a obnoveni se ukaze ta spravna ikonka. Mozna to jeste
chce neco nastavit pro ExStyle myslim ze ws_EX_APPWINDOW nebo tak nejak, ale
nezkousel jsem v Delphi 1 a tak nevim zda to vubec funguje.
Jaro B.> -----P�vodn� zpr�va-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Odesl�no: 23. z��� 1999 11:40
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Okno na taskbaru
>
> Mam aplikaci v Delphi 1, ktera vsak bezi jak na Win3.11, tak in na Win
> NT.
> Mam hlavni okno (nonMDI) a z nej otviram dalsi okna. Jak se da zamezit,
> aby v NT tyto dalsi okna meli vlastni button na taskbaru.
> Da se to sice pres odstraneni biSystemMenu z BordersIcon daneho formu,
> ale
> to pak formular nema ani ikonu a tlacitko X pro zavreni formulare je
> zakazane.
> Nevite nekdo radu?
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+ShellExecute a mailto
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 23.9.1999 16:15:31
Uz se to tady probiralo. Vyplnit i text jde jednoduse,
ale pripojit text asi nepujde ...
Mailto Protocol
--------------------------------------------------------------------------------
Opens a client's e-mail system.
Syntax
mailto:sAddress[;sMoreAddresses][&sSubject][&sBody][&sCC][&sBCC]
Possible Values
sAddress Required. Specifies one or more valid e-mail addresses separated by a semicolon. You must use Internet-safe characters.
Use %20 for the space character.
sSubject Optional. Specifies the text to appear in the subject line of the message.
sBody Optional. Specifies the body of the message.
sCC Optional. Specifies the addresses to be included in the "cc" (carbon copy) section of the message.
sBCC Optional. Specifies the addresses to be included in the "bcc" (blind carbon copy) section of the message.
Remarks
Available as of Microsoft� Internet Explorer 3.0 or later.
----- P�vodn� zpr�va -----
Od: J�n Grman <janog(zv)pluto.elf.stuba.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 23. z��� 1999 15:21
P�edm�t: Re: ShellExecute a mailto
> Mam podobny problem.
>
> Viem poslat postu tymto sposobom:
> pomocou ShellExecute spustim:
> mailto:[adresa]?Subject=[subject]&cc=[adresa]&bcc=[adresa]
> Malo by to fungovat na vsetkych rozumnejsich mail programoch a skoro to
> postacuje, ale....
>
> ..neviem vsak ako k takejto sprave pridat nejaky (pripadne viac) napr.
> binarny subor. Vie niekto poradit?
> Dokonca by ma zaujimala moznost ako hned pridat do spravy aj nejaky text.
> Napr. "V prilohe Vam posielam pozadovanu fakturu ako HTML subor !"
>
> Vdaka. JaNo:-)
>
> PS: Ahoj Mojmir Nimeeek. Ak ten TEmail mas a nie je to problem. Posli mi ho
> prosim priamo na moju adresu.
>
> -----Original Message-----
> From: Mojmir Nimeeek <xmojmr(zv)volny(tec)cz>
> To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Date: 23. september 1999 0:53
> Subject: RE: ShellExecute a mailto
>
>
> >Na posilani posty pouzivam freeware komponentu TEmail ( nasel sem to nekde
> u Torryho ). .."Simple MAPI" services via MAPI(32).DLL... je fajn a ma za
> sebou nejaky zivot
>
Problem s Beep (W98 a D3)
[*] Martin Kucera <mk(zv)paegas.vol(tec)cz> - 23.9.1999 16:18:10
P��jemn� den,
nevite, prosim, nekdo, jak primet pipnout systemovy reproduktor? Nic
jednodussiho snad neexistuje, ale nic neni slyset (vraci True)
Diky
Martin Ku�era