Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Processy
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 09.9.1999 18:09:44
ave Vsem !
bezel tu dotaz o zjistovani procesu a pak take o jejich ukoncovani.
Narazil jsem na zajimavou vec ze pokud je spusten MS Internet Explorer,
tak ho v tech vyse zminenych resenich nechytnete a tim padem ani
neukoncite. Nevi nekdo jak na to ?
diky
Pavel
Delphi - VB
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.1999 18:18:08
Hynek Svatos wrote:
> > Vzhledem k tomu, ze Delphi ma dnes dobry optimalizovany
> > prekladac a k tomu, jak pracuje VB (hromada externich ActiveX),
> > predpokladam, ze uz z podstaty bude nativni kod VB pomalejsi.
> > Myslim, ze testy to jen potvdi, je jen otazka, jak velky rozdil to
> > bude.
>
> No ja nevim ale ja bych zase na borlandi kompilatory nepel takovou
> slavu. Moje skusenosti jsou nyni spise horsi. Jednak mi pripada, ze
> Delfi kod neni zase takovy rychlik, programy jsou velke a co se tyce
> chybovosti kompilatoru (a celych Delf), o te tu jiz par prispevku taky
> padlo. Napriklad se mi dost casto stava, ze mi program nelze
> zkompilovat, hazi to jakesi SYS chyby kompilaoru v System.pas atd. -
> po restartu Delphi je to ok.To ani nemluvim o tom ze ukoncit Delphi
> bez Acces violation je uz jen me zbozne prani, to je ale zase jina
> kapitola ...
:-) Jakou betu pouzivas? Patrne mas neco chybne nainstalovane.
Tohle se mi nestava (tedy nijak casto) ani u stare padave bety k
verzi 5, kterou ted ze cvicnych duvodu prohanim jak nadmutou
kozu, cekaje na objednanou ostrou verzi.
> Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
> do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se
> vsemi jeho vyhodami. Takze vysledny kod je stejne rychly jako program
> z VC++ (tj. rychlejsi nez Delphi), zpomaleni celeho programu zpusobuji
> jen natahovani ActiveX. Nevim, mozna ze moc ctu ... :-)
Vlastni kod muze byt rychly, ale psal jsem, ze jako nejvetsi brzdu
ocekavam komunikaci s hromadami externich ActiveX.
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
Your Loc30fen
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.1999 18:18:08
Ahoj,
mozna by tyto stranky mohly nekoho zajimat.
------- Forwarded message follows -------
Date sent: Wed, 08 Sep 1999 10:05:26 +0000 (PM)
From: Peter Tiemann <peter(zv)delphifaq.com>
Subject: Your Loc30fen
To: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Send reply to: Peter Tiemann <peter(zv)delphifaq.com>
Dear Delphi programmer fellow,
I am in the process of opening a new Delphi site which will
contain a searchable database of tips and a catalog of components/
tools. The unique thing will be that it allows users to add reviews
for components. You, the author will instantly be notified when
someone writes a review and you can email if you think the review
is
not ok, we will settle it somehow- in worst case remove the review.
The site is in some sort of beta phase now, I have only a few
submitted components yet because I have not published the url
anywhere. I just invited a few authors I knew and now ask you to
submit your Loc30fen to my site.
The url is http://www.delphifaq.com
I would also be glad if you could give me advice what I should add.
E.g. what criteria is also relevant? What should be added to the
reviews? (look at the review for mwEdit which I wrote personally)
Below you find the general introduction copied from the website.
Thank you for your attention
Peter Tiemann (peter(zv)delphifaq.com)
P.S.: Do not worry, I will not write you again except if you submit
and if someone writes a review for your Loc30fen
----------------------------------------------------------------------
-
Objective:
This website is a new sort of component resource for all Delphi
programmers, it shall not be another place to download
components and
it does not try to set a new record in terms of listed components.
The objective is rather to provide a standardized description for each
submission and to allow users to query the database and get the
results in a nice table.
Additionally it will be possible to write reviews for components/
tools/ sources.
Please understand that while using the search engine can be done
anonymously, submissions must be made by the author and
reviews have
to be written with giving the name and email address as well.
I hope this service will be successful and help people find the
component/ tool/.. that serves their needs best.
Peter Tiemann
operator of www.delphifaq.com
------- End of forwarded message -------
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
MSDE
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.1999 18:18:08
delphi(zv)dingo(tec)cz wrote:
> z diskuze v konferenci jsem ohledne MSDE pochopil, ze je MSDE FREE,
> zdarma. Jal jsem se to prozkoumat, protoze se me to zda jako rozumne
> reseni. Jak rika Zbysek, nebyla by potreba lokalnich tabulek.
>
> Je to Free, ale prvotni investice vyjde vyvojare cca na 20.000 Kc,
> protze si musi koupit bud Office 2000 Developer, nebo Visual Studio.
> Pak uz to muze sirit se svymi aplikacemi, jak se mu zachce.
>
> Pochopil jsem to dobre?
Presne tak.
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
MessageDlg
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 9.9.1999 18:46:52
Popisky tlacitek jsou ulozeny (aspon v Delphi 4) v unite consts jako
SMsgDlg*. Tady je nejspis pujde take upravit.
Jinak jde take pouzit API funkci MessageBox (viz WinAPI help), ktera
popisuje tlacitka jazykem pouzitym ve windows.
Krystof
----- Original Message -----
From: <olej.jozef(zv)slsp.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, September 08, 1999 5:52 PM
Subject: MessageDlg
> Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
> vyznam
> / napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo ANO,
> NIE/
> Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
> SysUtils,Dialogs
> vypise mi ze nepozna mrYes pri teste vysledku.
>
> Dakujem Jozef
>
>IP adresa pocitace
[*] CHeckBow <checkbow(zv)mail(tec)cz> - 9.9.1999 10:20:06 -0700
Zdravicko,
mam takovy maly problem, delam programek, ktery hlida, kdo pracuje s mymi sdilenymi disky [sit s tcp/ip], umim v pohode zjitit nazev jeho pc, ale potreboval bych vedet jake ma IP ? CHeckbow
Zpozdeni dbGrid
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.9.1999 20:53:04
Ahoj, zkouseli jste pouzit property EnableControls?
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
> -----Puvodni zprava-----
> Od: Ing. Jaroslav ?keoik [SMTP:jaro(zv)sinea(tec)cz]
> Odeslano: 8. zaoi 1999 9:05
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: RE: Zpozdeni dbGrid
>
> Ja bych to radeji udelal tak, ze na OnKeyDown odpojim RichEdit a na OnKeyUp
> jej opet pripojim. Tim se to nebude pri scrolovani obnovovat vubec a prestan
> e to zadrhavat. Stejne to asi tezko nekdo stiha cist. Jde jenom o efekt. Tak
> e by to slo udelat parametricky pri rozliseni pomalych a rychlejsich PC.
> Jaro
>
>
> Petr Vaclavek wrote:
> >
> > Ahoj
> >
> > Mam D4 a nasledujici problem:
> > DBGrid napojeny na DBRichEdit, takze kdyz se pohybuju v tom gridu,
> > tak se mi zobrazuje text prislusneho atributu v tom RichEditu. Ale
> > kdyz se pohybuji rychleji tak se ty zaznamy v gridu nestihaji
> > prekreslovat, zatimco v tom RichEditu ano a vypada to pekne blbe.
> > Takze bych potreboval nastavit neco jako je ChangeDelay v TreeView.
>
> Ahoj,
>
> Zpozdene zobrazovani v TDBRichEdit by sice slo, ale ne uplne jednoduse.
> Ono to obnovovani DBGridu bude zalezet na vykonnosti pocitace, zkus to
> resit naopak tak, ze si po kazdem posunuti v tabulce explicitne pozadas
> o preklesleni gridu. Z eventu TTable.AfterScroll zavolej DBGrid.Repaint
>
> --
>
> Petr Vones, amatersky programator
>
>
>
> MessageDlg
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.9.1999 21:06:20
Nekdy davno jsem uz s tim trochu cvicil . Zkus pouzit API funkci MessageBoxEx
a pouzit nejaky parametr wLanguageId. ( vice ve WIN32.HLP).
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
> -----Puvodni zprava-----
> Od: Ing. Ludek Florian [SMTP:ludan(zv)bluerose(tec)cz]
> Odeslano: 8. zaoi 1999 22:08
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Re: MessageDlg
>
> Cauec,
>
>
>
> >Je mozne zadefinovat aby tlacitdla vo funkcii MessageDlg mali slovensky
> >vyznam
> >/ napr, o:=MessageDlg(s2,mtConfirmation,[mbYes, mbNo],0); by vypisalo ANO,
> >NIE/
>
>
> Taky jsem to uz hledal, ale nezadarilo se. Takze bych rekl bych ze ne,
> protoze i v nekterych anglickych programech se mi objevuji tlacitka Ano, Ne,
> takze to vypada na Windows.
>
> >Mam este jeden problem ak pouzijem funkciu v unite kde su len unity
> >SysUtils,Dialogs
> >vypise mi ze nepozna mrYes pri teste vysledku.
>
>
> V unite Controls je definovano mrYes = IDYES
> a v unite Windows IDYES = 6 a ID_YES = IDYES
>
> takze staci doplnit hodnotu 6..
>
>
> Bye Ludan
>
> FileListBox
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.9.1999 21:07:19
Tak si ji vem celou a pouzij ExtractFileName.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
> -----Puvodni zprava-----
> Od: Dan Rejchrt [SMTP:rejchrt(zv)ssakhk(tec)cz]
> Odeslano: 8. zaoi 1999 23:22
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: FileListBox
>
> Jak mam z FileListBoxu zjisti pouze jmeno souboru ? Vzdy me to napise celou
> adresu. Ale to ja nechci.
>
> Diky
>
> Dan Rejchrt
> rejchrt(zv)ssakhk(tec)cz
>
> DBGrid
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.9.1999 21:30:27
Zkus Torry nebo DSP.
Martin
> Diky,
> kde sa dostanem ku RX kniznici?
>
Mask + bitmap
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 9.9.1999 21:34:30
Funkci na to neznam, ale na mujweb(tec)cz/www/hoder mam unitu s komponentou
TFastBitmap, do ktere lze assignovat bitmapu, projet ji po pixelech a
assignovat zpet do bitmapy. Je to docale rychle (objekt leze primo do
pameti) a funkce by to asi nezvladla rychleji.
----- Original Message -----
From: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 07, 1999 6:39 PM
Subject: Mask + bitmap
> Potreboval bych z bitmapy odstranit jednu barvu a nahradit ji jinou.
> Nevite nekdo jak se to dela? Zkousel jsem Bitmap.Mask metodu,
> ale ta ostatni barvy zmeni na cernou.
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+
>
Fields
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.9.1999 21:45:14
Primo v SQL treba takhle :
SELECT Modul, (Modul + Nazev) as Soucet FROM Table1
nebo taky tak, ze zaktivnis property AutoCalcField a nadefinuje si pomoci funkce
New Field field ( na pravy click na TQuery), ktery nadefinujes typ Calculated.
No a pak na udalost OnCalcFields povesis metodu, ve ktere si nadefinujes hodnotu toho pocitaneho fieldu.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
> -----Puvodni zprava-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Odeslano: 8. zaoi 1999 14:20
> Komu: 'delphi-l(zv)fwd(tec)cz'
> Poedmit: Fields
>
> Delphi 1:
>
> Mam Query. Do toho prirazuju v programu SQL prikaz. A ted potrebuju,
> aby se vytvorily vsechny fieldy z vyberu (coz se deje automaticky)
> a dale abych vytvoril nekolik Calculated fieldu (ktere se budou take
> zobrazovat).
> Zkousel jsem vsechno mozne, ale nedari se mi ty calculated fieldy
> vytvorit
> tak, aby se staly soucasti toho Query objektu a ja je tak mohl zobrazit.
>
> Nevite nekdo pomoc.
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+
> Blokace drag&drop operaci v aplikaci
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 9.9.1999 22:00:29
Ahoj,
> Jaroslav Uher wrote:
> > mam Win95, D4St.
> >
> > Lze zablokovat drag&drop operace v cele aplikaci, resp. v
> > OpenDialogu ?
>
Petr Vones wrote:
> Ahoj,
>
> A k cemu by to melo byt ? To je preci standartni chovani techto dialogu.
>
> --
>
> Petr Vones, amatersky programator
Stalo se mi v me vlastni aplikaci (takovy obycejny prohlizec
databazi), ze jsem se s i c e snazil najit nejaky soubor a otevrit jej
a misto toho jsem o m y l e m !!! cely adresar presunul jinam. Ke
vsemu to byl navic ten, ve ktere mam vsechny sve projekty (dalsi
cleneni na podadreasare ap.).
V prvni fazi jsem navic myslel, ze jsem to vse smazal a kos byl
prazdny ! Takze na infarkt. Uz, uz jsem se to chystal zalohovat, ale
prece jen jsem si chtel jeste neco odzkouset. :-)))
Nebudu to dramatizovat..., nakonec jsem vse nasel a dal do
puvodniho stavu.
Na svoji obhajobu chci jen uvest, ze MYS neni muj kamarad,
bohuzel ve WIN to jinak nejde.
V Delphi mam nastaven IDE classic !!! Nekamenujte mne, prosim.
Ale uvedomil jsem si, ze neco podobneho se muze klidne stat i
uzivatelum mych programu. Nakonec kazdy z nas by mohl vypravet
pekne storky..
A protoze pouzivam Servant Salamader jiz vice nez dva roky -
neplacena reklama - ale autori si ji plne zaslouzi, vim ze se to da
'nejak' nastavit.
Budu-li vedet jak drag&drop operace 'potlacit', klidne v "Nastaveni"
necham volbu 'na vlastni nebezpeci'. Jsem demokrat.
Jarek Uher
Vypisov�ni
[*] Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 9.9.1999 22:29:43
M�m nekolik formu, a jeden datamodule. Pokud pracuji s kterymkoli formem, musim stale vypisovat DataModule2.Query1. atd... Nejde nejak jednoduse nastavit, aby se ke vsem formum priradil
DataModule2 (zkratka, aby ho znali ) a ja mohl psat jenom Query1 ?
Doufam, ze jsem to dobre formuloval :-)
S pozdravem
Dan Rejchrt
rejchrt(zv)ssakhk(tec)cz
Duplicita mailu
[*] ing.Pavel Cabalka <pavel_cabalka(zv)vcshk(tec)cz> - 9.9.1999 22:33:28
Taky tim mnozstvim duplicit nejsem nadseny, ale vsiml jsem si, ze nektere duplicitni prispevky maji ruznou velikost, ackoliv vizualne vypadaji naprosto stejne ! ? ! (alespon Outlook Express v.5 rozdilnou velikost udava)
tot vse
bye PavelC
====================================================================================
----- Original Message -----
From: Libor Valka <valka(zv)brno.cas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 2:23 PM
Subject: RE: Duplicita mailu
> Ahoj,
>
> taky me to zacina lezt na nervy...
> 90% dnesnich mailu uz prislo podruhe, nektere dokonce prisly 4x.
>
> S pozdravem
>
> Libor Valka
> mailto:valka(zv)brno.cas(tec)cz
> mailto:valka(zv)ipm(tec)cz
>
>
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Ing.
> Ludek Florian
> Sent: Thursday, September 09, 1999 12:49 PM
> To: Konference Delphi
> Subject: Duplicita mailu
>
>
> Cauec,
>
> zacina mi to pomalu vadit. Uz mi prislo (a ostatnim urcite taky) kolem 70 ma
> ilu, co jsem uz dostal...
>
> Bye Ludan
Index is read only
[*] Luk� Gallina - 9.9.1999 22:36:10
Aha, to by mohlo byt ono.....zkusim to.....
..... jo, bylo to ono. Dik.
Luk� Gallina (Lukas Gallina)
racek(zv)devacomm(tec)cz
Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
> Pokud jsi ten soubor vytvarel pres Database Desktop (jinde to asi bude
velmi
> podobne), napoprve jsi nezaskrkl zadnou polozku jako Key. Potom se vsechny
> indexy staly readonly. Pokud je Key nekde zaskrknuto, nesmi existovat dva
> zaznamy, ktere by mely vsechny Key polozky stejne, ale zato je tabulka
plne
> read-write. Nevim cim to, ale tak to funguje. (M$ Access tusim dokonce
> vyzaduje definovani nejake polozky jako klicove.)
>
> Krystof
>
Blokace drag&drop operaci v aplikaci
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 9.9.1999 23:14:15
Primo v Delphi je jedno demo "Delphi CopyHook Shell Extension", ktere se
navesi do Windows tak, ze pri Drag&Drop adresare (lepe receno pri zakladani
a ruseni adresaru) se pokazde dotazuje, jestli ano nebo ne.
Vetsinou je to otrava to odtukavat, ale take se mi parkrat stalo, ze jsem si
rikal, "jeste ze to tam mam"
S pozdravem
Pavel Kriz
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel.: 02/ 6891 444
http://www.tds-technik(tec)cz
----- Original Message -----
From: Jaroslav Uher <moravia(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 09, 1999 10:00 PM
Subject: Re: Blokace drag&drop operaci v aplikaci
> Ahoj,
>
> > Jaroslav Uher wrote:
> > > mam Win95, D4St.
> > >
> > > Lze zablokovat drag&drop operace v cele aplikaci, resp. v
> > > OpenDialogu ?
> >
> Petr Vones wrote:
> > Ahoj,
> >
> > A k cemu by to melo byt ? To je preci standartni chovani techto dialogu.
> >
> > --
> >
> > Petr Vones, amatersky programator
>
> Stalo se mi v me vlastni aplikaci (takovy obycejny prohlizec
> databazi), ze jsem se s i c e snazil najit nejaky soubor a otevrit jej
> a misto toho jsem o m y l e m !!! cely adresar presunul jinam. Ke
> vsemu to byl navic ten, ve ktere mam vsechny sve projekty (dalsi
> cleneni na podadreasare ap.).
> V prvni fazi jsem navic myslel, ze jsem to vse smazal a kos byl
> prazdny ! Takze na infarkt. Uz, uz jsem se to chystal zalohovat, ale
> prece jen jsem si chtel jeste neco odzkouset. :-)))
> Nebudu to dramatizovat..., nakonec jsem vse nasel a dal do
> puvodniho stavu.
> Na svoji obhajobu chci jen uvest, ze MYS neni muj kamarad,
> bohuzel ve WIN to jinak nejde.
> V Delphi mam nastaven IDE classic !!! Nekamenujte mne, prosim.
>
> Ale uvedomil jsem si, ze neco podobneho se muze klidne stat i
> uzivatelum mych programu. Nakonec kazdy z nas by mohl vypravet
> pekne storky..
> A protoze pouzivam Servant Salamader jiz vice nez dva roky -
> neplacena reklama - ale autori si ji plne zaslouzi, vim ze se to da
> 'nejak' nastavit.
> Budu-li vedet jak drag&drop operace 'potlacit', klidne v "Nastaveni"
> necham volbu 'na vlastni nebezpeci'. Jsem demokrat.
>
> Jarek Uher
>
>QuickReport a preview
[*] Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 9.9.1999 23:24:28
Jak si mohu vytvorit vlastni preview ve QuickReportu ? Je tam dan jako procedura uz vytvorena, ale jsou tam zbytecne veci jako napr. otevreni a ulozeni souboru atd... To nechci. Bud jestli to jde jenom nejak smazat ci upravit, nebo jestli ji nutne vytvorit nove - jak.
S podzravem
Dan Rejchrt
rejchrt(zv)ssakhk(tec)cz
stringgrid a listbox
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 09.9.1999 21:57:35 pdt
>STRINGGRID
>V programe je vlozena tabulka STRINGGRID, ktorej pocet riadkov nieje pevne
>stanoveny ale sa meni, preto by som potreboval vediet ci existuje nejaky
>prikaz, alebo nejaky jednoduchy sposob, ako vycistit vsetky bunky
Ahoj.
Pred casom som potreboval nieco podobne, ale ziadny jednoduchy prikaz som na
to nenasiel (aspon v D3). Bol som nuteny na to vytvorit vlastnu proceduru s
ktorou som to mazal rucne (ma to vsak jednu nevyhodu, chvylku to trva).
Martin Galik
Programator - zaciatocnik.
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Presmerovani con do Streamu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1999 00:00:30
Kry�tof Hoder wrote:
>
> Nevi nekdo, jak presmerovat vystup z programu do streamu?
> Mam program, ktery spousti jiny (consolovy) program a potrebuje dostat jeho
> vystup pro dalsi zpracovani v idealnim pripade do streamu, ale klidne i
> nekam do pameti, kde by se na to mohl podivat.
Ahoj,
Pokud jde o Win32 konzolovou aplikaci, tak treba tady:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\feb\02\dlfaaaci.htm
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1998\jan\06\dlfaaaaj.htm
--
Petr Vones, amatersky programator
Voice modem library
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1999 00:02:32
Viliam Mlich wrote:
> Kludne si ho urobim sam, ale voice komponenty AsyncPro mi na moj voice
> modem SupraExpres 336i PnP Voice (F) hlasia, ze nie je voice. Este som
> nasiel toto:
Ahoj,
To je zvlastni, ja podobny modem kdysi mel (336i Sp) a tam ty voice funkce
fungovaly. Zkousel jsi to s nejakym hotovym programem ? Neni to spis tim,
ze je ten modem nejak spatne naistalovany. Pokud mas W95 tam tam je potreba
provest upgrade unimodem driveru.
--
Petr Vones, amatersky programator
Delphi - VB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1999 00:02:11
Hynek Svatos wrote:
> No ja nevim ale ja bych zase na borlandi kompilatory nepel takovou slavu.
> Moje skusenosti jsou nyni spise horsi. Jednak mi pripada, ze Delfi kod neni
> zase takovy rychlik, programy jsou velke a co se tyce chybovosti kompilatoru
Ahoj,
Tak to teda ne :-) Delphi *kompilator* je myslim velmi dobry, to o cem
mluvis, nadstavbe - tedy VCL, tam uz je situace malinko jina a lze tam
mit opravnene vyhrady. S temi srovnanimi je to vzdy tezke, casto se jen
vybere uloha kde ten ci jiny prekladac zrovna vynikne nebo propadne, asi
jediny rozumny zpusob je vzit par uloh a ukazat prelozeny asm kod. Ale
kdo ti tohle v dnesni dobe udela ... :-)) Nedavno jsem nekde narazil na
clanek, kde srovnavali rychlost kodu z Delphi a C++ Builderu, udajne(?)
vychazel ObjectPascal nekdy i lip.
> (a celych Delf), o te tu jiz par prispevku taky padlo. Napriklad se mi dost
> casto stava, ze mi program nelze zkompilovat, hazi to jakesi SYS chyby
> kompilaoru v System.pas atd. - po restartu Delphi je to ok.To ani nemluvim
> o tom ze ukoncit Delphi bez Acces violation je uz jen me zbozne prani, to je
> ale zase jina kapitola ...
Patrne mas D4 bez update packu, tam se jim ta stabilita opravdu trochu
vymkla, coz ale neni IMHO chyba kompilatoru, ale kodu v nem prelozenem.
Samozrejme neexistuje prekladac ktery by byl uplne bez chyb.
> Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
> do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
> jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++ (tj.
> rychlejsi nez Delphi),
Mno, to by se samozrejme muselo zkusit, ale jistou barierou VB bude i
definice jazyka a to uz asi ani sebelepsi prekladac nezachrani. Jde spis
o to, ze VB byl driv jen cisty interpreter a Microsoftu se asi prekladac
psat nechtelo, tak pouzil uz to co mel hotove. Koneckoncu nektere casti
prekladace jsou u Delphi a BCB take udajne shodne. Navic vysledny beh
aplikace uz dnes zdaleka neovlivnuje jen rychlost kodu vlastniho jazyka,
protoze je zde ve hre i komunikace s operacnim systemem. A kdyz potrebujes
opravdu maximalne efektivni blok kodu, sahnes po assembleru. I kdyz OP
kod je casto paradoxne temer stejne dobry, jako kdyby jsi jej psal primo
v asm.
--
Petr Vones, amatersky programator
Beh dvoh procesov sucasne.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1999 00:10:06
Martin Galik wrote:
>
> Ahoj.
> Neviem si rady z jednym malym problemom.
> Potrebujem aby mi bezali dva procesi sucastne(citanie a zapis na dva COM
> porty) a ani za svet mi to nechce ist.
> Skusal som to tak, ze som si vytvoril dva child formulare kde v jednom som
> zadefinoval COM1 a v druhom COM2 ale dokazal som maximalne spravyt to, ze mi
> isli za sebou (jeden skoncil, druhy zacal).
Ahoj,
Pokud ti jde o seriovou komunikaci, tak zkus treba tohle:
http://delphree.clexpert.com/pages/projects/asyncfree/default.htm
--
Petr Vones, amatersky programator
Konverzia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1999 00:12:11
Tibor Galik wrote:
>
> Ahoj,
>
> Chcel by som niekoho poprosit o pomoc. Potrebujem programovo osetrit prevod code page z PC852 do Win 1250. Zatial to robim v Exceli pri prevode txt filu. Oznacim ho ako "DOS, OS/2 (PC-8)" a potom mam diakritiku v poriadku.
> Urcite existuje nejaky pgm, ktory robi prevod.
> Alebo vie niekto kniznicu dll v exceli, ktora to robi a syntax ako urobit prevod?
Ahoj,
Muzes pouzit treba toto:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/other/CharSetConv.zip
--
Petr Vones, amatersky programator
QuickReport a preview
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1999 00:13:42
> Dan Rejchrt wrote:
>
> Jak si mohu vytvorit vlastni preview ve QuickReportu ? Je tam dan jako
> procedura uz vytvorena, ale jsou tam zbytecne veci jako napr. otevreni a
> ulozeni souboru atd... To nechci. Bud jestli to jde jenom nejak smazat ci
> upravit, nebo jestli ji nutne vytvorit nove - jak.
Ahoj,
Nejlepsi mas se podivat primo na stranky QuSoftu, tam mas volne ke stazeni
par prikladu:
http://www.qusoft.no/scripts/download.dll
--
Petr Vones, amatersky programator
stringgrid a listbox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1999 00:21:53
> Ing. J�n Kuch�r wrote:
> STRINGGRID
> V programe je vlozena tabulka STRINGGRID, ktorej pocet riadkov nieje pevne
> stanoveny ale sa meni, preto by som potreboval vediet ci existuje nejaky
> prikaz, alebo nejaky jednoduchy sposob, ako vycistit vsetky bunky
Ahoj,
Jednoduchy ne, musis bud projit vsechny radky nebo sloupce a data vymazat
metodou Clear. Navic komponenta TStringGrid me neprijde moc stastna, lepsi
je pouzit TDrawGrid a data si ukladat sam.
> LISTBOX
> potrboval by som vediet ci sa da v listboxe zarovnavat text do stlpcov,
> ked ano tak ako,malo by to vyzerat asi nejak takto
> asasasa sasasasa
> asas adddsdssdsdsd
> wewew wewewewew
Listbox ma tabstops, umi pouzivat tabulatory a predas mu pouze pole pozic
kde maji byt nastaveny. Tuhle moznost pred tebou VCL uzkostne taji, takze
je treba ji doplnit primo. Jeste musis u Listboxu v OI nastavit vlastnost
TabWidth na nejakou nenulovou hodnotu aby byl pouzit styl LBS_USETABSTOPS.
procedure TForm1.Form1Create(Sender: TObject);
var
TabStops: array[1..3] of Integer;
begin
TabStops[1] := 50;
TabStops[2] := 100;
TabStops[3] := 120;
SendMessage(ListBox1.Handle, LB_SETTABSTOPS, High(TabStops), LPARAM((zv)TabStops));
with ListBox1.Items do
begin
Add('111'#9'222'#9'333');
Add('AAAAAA'#9'B'#9'CCCC');
end;
end;
--
Petr Vones, amatersky programator
Beh dvoch procesov sucastne (po druhe).
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 10.9.1999 01:24:49 pdt
Ahoj.
Ten TThread je pekna vec ale akosi mi to cez neho nejde.
Potrebujem toto:
Predstav si, ze su dva programi (samostatne a samostatne spustene), jeden
komunikuje s portom Com1 a druhy s Com2 a to sucastne v tom istom case(toto
mi funguje).
No a toto iste potrebujem spravit tak, ze dva Form child-y sa budu spravat
tak ako tie dva programi z predchadzajucej predstavy.
Childy vytvaram v runtime lebo im konfigurujem premenne - toto je nutne
(preto to nechcem spravyt ako volenie exe programu).
A toto sa mi nedary ani s tthread ( zakazdym caka jeden na druheho).
Vdaka za vsetky rady a napady.
Martin Galik
Programator - zaciatocnik.
RB s r.o.
Bratislava
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Vypisov�ni
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.9.1999 07:05:20
-----Original Message-----
From: Dan Rejchrt [mailto:rejchrt(zv)ssakhk(tec)cz]
Sent: Thursday, September 09, 1999 10:30 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Vypisov�ni
M�m nekolik formu, a jeden datamodule. Pokud pracuji s kterymkoli formem,
musim stale vypisovat DataModule2.Query1. atd... Nejde nejak jednoduse
nastavit, aby se ke vsem formum priradil
DataModule2 (zkratka, aby ho znali )
[Polak Jiri]
To je spatne formulovana otazka. Nevim, jak se da formu priradit
datamodule - leda odkazem na datamodule v promenne.
Za druhe, form musi datamodule znat, aby ses mohl
odkazovat na DataModule1.Query1.
a ja mohl psat jenom Query1 ?
[Polak Jiri]
1) Jedina moznost jak to zajistit je udelat si globalni promennou,
a do ni si priradit DataModule2.Query1.
Anebo promennou do kazdeho Formu, to ale asi nechces.
2) v ramci jedne procedury (funkce) muzes pouzit prikaz
with DataModule1 do
a zde se muzes take odvolavat pouze na Query1 toho DataModule.
Jiri Polak
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http//: <file://:> freeweb.coco(tec)cz/jpolak/cernalistina/Ivanovi - Zmena vlastnosti komponenty...
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 10.9.1999 07:26:08
Ahoj Ivane,
potrebuji menit pouze vlastnost False za True u komponenty, kde je vlastnost
published. Protoze pouzivam komponentu, ktera mi umoznuje na zaklade
vlastnosti
False zajistit , ze aplikace je casove omezena a pri vlastnosti True je
aplikace bez
jakehokoliv omezeni . Vlastnost se meni z False na True pri zadani spravneho
instalacniho kodu.Proto se mi nehodi, aby se zmena vlastnosti ukladala do
jakehokoliv
souboru, protoze i kdyz tento soubor zasifruji tak staci, aby si
potencionalni
zakazn�ci zjistili, ktery soubor se pri zadani spravneho instalacniho cisla
zmeni
a pak si tento soubor proste budou prekopirovavat a nemusi nijak desifrovat
zakodovane hodnoty.
Predem diky za jakekoliv napady.
Milan Blazek
mbsint(zv)telecom(tec)cz
-----P�vodn� zpr�va-----
Od: Ivan Zernovac <ivan(zv)gratis.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. z��� 1999 10:50
P�edm�t: Re: Zmena vlastnosti komponenty...>Hi,
>
>ano da sa vytvorit vlastny binarny format, ale to je podla ma zbytocne
>zlozite. Ake udaje ukladas? Ak su to povedzme cisla, a ty potrebujes
>ulozit
>cislo 100, odcitaj z neho povedzme 50 - primitivne sifrovanie. (V subore
>teda bude 50).
>Ked potom hodnotu 50 nacitas, pridaj k nej zase 50 a budes mat 100.
>Alebo
>XORuj.
>Ked sa Ti niekto bude vrtat v subore, hodnoty sice bude viediet zmenit,
>ale
>narobi tam pekny chaos. Ak robis s retazcami, mozes pouzit ten sifrovaci
>komponent. Alebo ich proste zakoduj Base64.
>
>
>Ivan
>
>
>Zbysek Hlinka wrote:
>
>> Milan Bla ek wrote:
>>
>> > Ivane diky, ale neslo !
>> > Protoze nechci, aby se zmenena hodnota vlastnosti dala
>> > modifikovat z vnesku napr. v .INI souboru. Pokud mas jiny napad tak Ti
>> > predem dekuji.
>>
>> Vzdyt data nemusi byt v INI, muzes si vyrobit vlastni format
>> binarniho souboru, kam to budes ukladat. A pro jistotu si to muzes
>> i zasifrovat, na Delphree je sifrovaci utilita Cast. :-)
>>
>> 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
>HideApp pri Alt+Tab
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 10.9.1999 07:50:53
----- P�vodn� zpr�va -----
Od: Petrik <petrik(zv)geocities.com>
Komu: delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. z��� 1999 13:06
P�edm�t: Re: HideApp pri Alt+Tab
> Nazdarek,
>
> tak me to funguje takhle:
> na formular dam tu komponentu Stealth :
...
> (jedna z mala moznosti, jak ho shodit, je WinSightem ho aktivovat
> a pak do slepa zmacknout ALT-F4)
Pokud budes mit v OnCloseQuery formulare nastaveno natvrdo CanClose :=
false, tak ne :-))
Mira
Vypisov�ni
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 10.9.1999 07:56:39
Mozna existuje elegantnejsi reseni, ale co pouzit WITH ?
with DataModule2 do
begin
------
end;
----- P�vodn� zpr�va -----
Od: Dan Rejchrt
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 9. z��� 1999 22:29
P�edm�t: Vypisov�ni
M�m nekolik formu, a jeden datamodule. Pokud pracuji s kterymkoli
formem, musim stale vypisovat DataModule2.Query1. atd... Nejde nejak
jednoduse nastavit, aby se ke vsem formum priradil
DataModule2 (zkratka, aby ho znali ) a ja mohl psat jenom Query1 ?
currency a table (3)
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 10.9.1999 08:02:54
Zbynek Ceska napsal(a) toto:
> Mam databasi dbf ( dBase ), Delphi 4.
> Uz jsem si s tim uzil dost a vyzkousel jsem snad vse. Momentalni
> stav je ze se porad FIELD nastaveny jako ttCurrency nezobrazuje ve
> formatu, ktery je v Ovladacim panelu ve Windows. Ale pokud si necham
> vypsat CurrencyFormat promenne, tak ty maji hodnotu nastaveni z WINDOWS.
> Ale v Table a V DBGRidu se nic takoveho neobjevuje. Tam jsou stale cisla :
> 15,245; 14; ( podotykam, ze ta carka tam opravdu je ); a ne ni tam jak
> bych potreboval : 15,25; 14,00 a pododbne.
Tak jsem se schvalne podival. na projekt, ktery pouziva Currency.
Takze mas ten field zavedeny i v Delphi jako typ TCurrencyField? Pokud
ano, pak je dalsi otazka, jestli mas v jeho vlastnostech Currency
nastaveno na True a DisplayFormat na prazdny retezec.
S takovym resenim mi to funguje.
Pak je moznost, ze DBase nepodporuje filedy typu Currency a tim padem
muzes mit problem rict Delphi, ze to Currency je, kdyz dBase tvrdi neco
jineho. Ale ten se da vyresit tak, ze vlastnost Displayformat nastavis na
neco jako '# ##0.00" Kc";-# ##0.00" Kc";0.00" Kc"'. Presne to musis
doladit.
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
DBGrid
[*] Tibor Galik <tgalik(zv)vsz.sk> - 10.9.1999 08:13:25
Ahoj,
Rad by som rozputal este jednu debatu o farebne inom zobrazeni jedneho alebo viacerych riadkov v
DBGride. Hned na uvod sa chcem ospravedlnit za dlzku svojho mailu.
Pri vytvarani DBGridu som hned na zaciatku nastavil DBGrid.DefaultDrawing=false, tak ako si mi poradil.
Tvoj kod:
>>> "marcant" <marcant(zv)sct.sk> 09/09 10:09 dop. >>>
>Spravny kod vyzera trochu inak:
> procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
> DBGrid1.Canvas.Color:= clred;
> else
> DBGrid1.Canvas.Color:= clInfoBk;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end;
>
>teda aspon predpokladam, ze chces cely riadok inou farbou (ak by si chcel
>inou farbou iba niektory stlpec tak si to uz iste upravis sam)
Dakujem, tento kod ma naviedol, ale su v nom male chyby. Vyriesil som to pokusom a omylom[alebo dufam, ze intuicou ;-)) ], ale nerozumiem preco to tak funguje. Rad by som to pochopil.
Takze:
1. Mala chybicka v syntaxi [compilator sa zasa nedal oklamat ;-)) ]. Ma byt DBGrid1.Canvas.Brush.Color
2. Tento kod mi spravil, ze vzdy posledny zaznam bol bez textu.
3. Inspirovala ma Tvoja poznamka o stlpci. Tak som tam dopisal
if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
begin
DBGrid1.Canvas.Color:= clred;
Column.Color:=clIBlue;
end
else
DBGrid1.Canvas.Color:= clInfoBk;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
Teraz aj posledny zaznam mal viditelny text a vsetky stlpce boli modre. A co je zaujimave fungovalo mi to
aj ked som Column.Color:=clIBlue dal pred if a aj ked som odstranil DBGrid1.Canvas.Color:= clInfoBk;
Konecny kod vyzera takto:
if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
DBGrid1.Canvas.Color:= clred;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
a funguje to. Riadok, ktory vyhovuje podmienke je cerveny. A nasledujuce riadky nevyhovujuce podmienke maju zase povodnu podkladovu farbu. PRECO????????? Cakal som ze teraz vsetky nasledujuce budu cervene.
Otazky:
1.Aky je vztah medzi Column.Color a Canvas.BrushColor?(tych Color je v Delphi akosi moc)
2.Co je potom ten Canvas ked existuje Column.Color? (Cital som to v helpe, ale z tohto prikladu som uplne domotany)
3.Kazda bunka v Gride je potom Control prvok?
4. Kde sa mi teraz podkladova farba resetuje
Dakujem vsetkym ktori to docitali az tu.
tg
Zdravim Vas/Regards
Tibor Galik
tgali(zv)vsz.sk
TRichEdit a transparentnost
[*] Luk� Gallina - 10.9.1999 08:20:08
Zdravim vsechny!
Potreboval bych udelat RichEdit transparentni, nebo mu alespon vnutit jiny odstin zlute. Zluta, ktera tam jest (clYellow) je moc zluta... nevite nekdo co s tim?
Mam Delphi 4, WinNT 4 WorkStation
Luk� Gallina (Lukas Gallina)
racek(zv)devacomm(tec)cz
Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
Jak lze pracovat s promenyma v SQL...
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.9.1999 08:29:37
> -----Original Message-----
> From: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
> Sent: Thursday, September 09, 1999 1:15 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Jak lze pracovat s promenyma v SQL...
>
>
> Ahoj Mirune,
>
> diky Ti za konkretni odpoved, vse je mi vcelku jiz jasne akorat
> vsak kdyz chci zadat primo do komponenty QUERY parametry ve
> vlastnosti
> Params, tak se mi otevre sice editor, ale nemohu v nem nic
> zapisovat -
> proc?.
a mas nadefinovany ty parametry v SQL? tzn. dvojteckaanazev?
> Jsou tam sice najake ikony - Toolbar , ale ty jsou disabled.
> Omlouvam se za tak trivialni dotaz, ale zatim si zvykam na
> SQL v Delphi,
> kter� ma jiste odlisnosti od jinych produktu.
??A jake??
To neni SQL Delphi, To je SQL konkretni databaze.
Pokud mluvis o LocalSQL pro Paradox,
tak tam nejsou odlisnosti. je tam podmnozina standardu
specifikace SQL-92.
Jiri Polak
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/stringgrid a listbox
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.9.1999 08:16:02
Hm, ale to bude vypadat k necemu, pokud se pouzije neproporcionalni
font, kde jsou vsechny znaky stejne siroke. Kdyz se pouzije font
proporcionalni, je 'mmm' nekolikrat sirsi nez 'iii' a bude to "jak kdyz
pejsek cura". Pouzivam owner draw listbox a napriklad nasledujici kod:
procedure TForm1.ListBox9DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
(***********************************************************************
*******
U�ivatelsk� vykreslov�n� ListBox�
************************************************************************
******)
var i,p:integer;
words:array[1..10] of string;
function CutWords(s:string; var Wcount:integer):string;
var i:integer;
begin
Wcount:=1;
for i:=1 to Length(s) do
begin
if s[i]<>#9 then words[Wcount]:=words[Wcount]+s[i] else
inc(WCount);
end;
end;
begin
CutWords((Control as TListBox).Items[Index],p);
with (Control as TListBox).Canvas do
begin
FillRect(Rect);{ clear the rectangle }
for i:=1 to p do //pro vsechna dilci slova
if i=1 then TextOut(Rect.Left, Rect.Top,words[i]) else
TextOut(Rect.Left+30*i, Rect.Top,words[i]);
end;
end;
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************> -----P�vodn� zpr�va-----
> Od: Petr Sadovsky [SMTP:petr(zv)slunce(tec)cz]
> Odesl�no: 9. z��� 1999 12:39
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: stringgrid a listbox
>
> �
>
> ----- P�vodn� zpr�va -----
> Od: Ing. J�n Kuch�r <mailto:kuchar(zv)tuke.sk>
> Komu: Delphi konferencia <mailto:delphi-l(zv)fwd(tec)cz>
> �
> LISTBOX
> potrboval by som vediet ci sa da v listboxe zarovnavat text do
> stlpcov, ked ano tak ako,malo by to vyzerat asi nejak takto
> ������� asasasa����������� sasasasa
> ������� asas���������������� adddsdssdsdsd
> ������� wewew������������� wewewewew�
> �
> Tak nejak jsem to delal. pisu z hlavy.
> �
> procedure TMainForm.UpravListBox;
> var Pom,Pom1,S:String;
> begin
> � for i:=0 to ListBox1.Items.Count-1 do
> � begin
> �� Pom:=ListBox1.Items[I];
> �� S:=' ';
> �� while Length(Pom1)>0 do
> �� begin
> ��� Pom1:=Copy(Pom,1,Pos('� ',Pom)-1);
> ��� Delete(Pom,1,Pos('� ',Pom)-1);
> ��� S:=S+Copy('���������������� ',1,10-Length(Pom1))+Pom1;�����
> // cislo 10 urcuje na kolikatem sloupecku od pozice predchoziho
> sloupecku zacne nasledujici sloupec)
> �� end;
> �� ListBox1.Items[I]:=S;
> � end;
> end;
> �
> �
>
> ��� Petr Sadovsk�
> p.sadovsky(zv)atlas(tec)cz <mailto:p.sadovsky(zv)atlas(tec)cz>
> ��� ICQ 37042001
> MSDE a dodavany SQL Server
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 10.9.1999 09:16:31
Ahoj,
chtel bych poprosit, jestli-by nekdo mohl shrnout moznost pouziti SQL
serveru MSDE.
Pokud jsem to dobre pochopil, s Office 2000 Developer nebo s Visual C++
Professional je dodavan SQL server kompatibilni s Microsoft SQLServerem 7.
Umoznuje praci az 5 uzivatelu. Muze se sirit s aplikacemi vytvorenymi v
prislusnem vyvojovem prostredi. Tj. pokud dodam jednu malinkou aplikaci v
Cecku (treba prehled prihlasenych uzivatelu) a informacni system v Delphi je
to licencne v poradku?
Kdysi tady padla zminka, ze SQL server 7 bude do 2GB dat zdarma - co je na
tom pravda?
Diky.
Leos
TRichEdit a transparentnost
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.9.1999 09:19:03
Ahoj
a coz tam dat misto clYellow treba $E0F0F0 ?
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Luk� Gallina [SMTP:johndelphi(zv)atlas(tec)cz]
> Odesl�no: 10. z��� 1999 8:20
> Komu: Delphi konference
> P�edm�t: TRichEdit a transparentnost
>
> Zdravim vsechny!
> Potreboval bych udelat RichEdit transparentni, nebo mu alespon vnutit jiny
> odstin zlute. Zluta, ktera tam jest (clYellow) je moc zluta... nevite
> nekdo co s tim?
>
> Mam Delphi 4, WinNT 4 WorkStation
>
> Luk� Gallina (Lukas Gallina)
> racek(zv)devacomm(tec)cz <mailto:racek(zv)devacomm(tec)cz>
>
> Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
> Jak ziskat SQL prikazy z TQuery
[*] Ivo.Herles(zv)pvt(tec)cz - 10.9.1999 09:20:36
Asi bych to resil pomoci BDECallbacku priblizne takto:
type
TCallObject = class (TObject)
function CallBack(ACBInfo: Pointer): CBRType;
end;
procedure GetTraceMode(AHandle: HDBIDB; ATM: Word);
var
Length: Word;
begin
DbiGetProp(hDBIObj(AHandle), dbTraceMode, (zv)ATM, SizeOf(ATM), Length);
end;
procedure SetTraceMode(AHandle: HDBIDB; ATM: Word);
begin
DbiSetProp(hDBIObj(AHandle), dbTraceMode, Integer(Word(ATM)));
end;
function TCallObject.CallBack(ACBInfo: Pointer): CBRType;
begin
// tady odchytat co potrebuji
if (TRACEDesc(ACBInfo^).eTraceCat and (traceERROR or traceStmt)>0) then
begin
// osetreni konkretnich veci
end;
end;
var
CallBack: TBDECallback;
TD: ^TRACEDesc;
CO: TCallObject;
TM: Word;
begin
GetTraceMode(Database.Handle, TM);
GetMem(TD, SizeOf(TRACEDesc)+DBIMAXTRACELEN);
try
CO:=TCallObject.Create;
try
CallBack:=TBDECallback.Create(Query, nil, cbTRACE, TD,
SizeOf(TRACEDesc)+DBIMAXTRACELEN, CO.CallBack, True);
try
SetTraceMode(Database.Handle, TM or traceERROR or traceSTMT);
// tady udelat co potrebuji
finally
SetTraceMode(Database.Handle, TM);
CallBack.Free;
end;
finally
CO.Free;
end;
finally
FreeMem(TD, SizeOf(TRACEDesc)+DBIMAXTRACELEN);
end;
end;
Je to jen hruba kostra. Pro konkretni pouziti se to musi asi jeste trochu
dodelat.
Delphi 3 C/S, Win NT 4.0 SP5, Informix DS 7.3
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: +42(0396)619216
> -----P�vodn� zpr�va-----
> Od: eL [mailto:eL_z_Prahy(zv)seznam(tec)cz]
> Odesl�no: 9. z��� 1999 16:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Jak ziskat SQL prikazy z TQuery
>
>
> environment:Win98/95 CZ,Delphi STANDART 4.0 (Build 5.104)Update Pack 2
> RxLib 2.60
> keywords:SQL,TQuery
>
>
> Zdravim.
> q:Poradte zda a jak by bylo mozne pri pouziti TQuery v modu
> RequestLive=True nejak odchytavat a ukladat odesilane SQL prikazy do
> souboru a vytvorit jakysi protokol o provedenych zmenach v databazi.
>
> Predem dik.
>
> eL..
> zobrazenie html
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.9.1999 08:29:33
Ahoj,
my na to mame koupenou komponentu (www.pbear.com) a chodi to bezvadne.
Autor za to chce $129.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************> -----P�vodn� zpr�va-----
> Od: Juraj.Talaba(zv)nup.sk [SMTP:Juraj.Talaba(zv)nup.sk]
> Odesl�no: 9. z��� 1999 15:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: zobrazenie html
>
>
>
> caute vsetci!
> som zaciatocnik a uz nejaku dobu sa morim s problemom ako zobrazim kod
> html?
> potrebujem si urobit co najjednoduchsi prehliadac HTML. aby sa mi to
> nenatahovalo hodinu.
>
> mam D3 client/server. su tam nejake podpory pre internet ale akosi to
> neviem pouzit. nejako som to este nepochopil celkom. moze mi to niekto
> aspon zhruba popisat alebo vysvetlit?
>
> alebo neexistuje na to nejaka komponenta?
>
> vopred dakujem za vsetky tipy. �.
>
> - RebEl -
> Konverzia
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 10.9.1999 09:53:29
> Ahoj,
>
> Muzes pouzit treba toto:
>
> ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D4/other/CharSetConv.zip
>
> --
>
> Petr Vones, amatersky programator
Dival jsem se na to, ale zjistil jsem chybu v unite PvCharsetConv,
tabulka Xlat_1250_ASCII.
Projevuje se pri prevodu CharsetConv(Text, ch1250, chAscii) tak, ze
se "dlouhe Ypsilon" prevede na "T" (misto $54 ma byt $59)
S pozdravem
Pavel Kriz
P.S.: oprava:
Xlat_1250_ASCII: TPvCharsetTable = (
... puvodni hodnoty
$44,$4E,$4E,$4F,$4F,$4F,$4F,$D7,$52,$55,$55,$55,$55,$59{<- tady byla
chyba},$54,$DF,
$72,$61,$61,$61,$61,$6C,$63,$63,$63,$65,$65,$65,$65,$69,$69,$64,
$64,$6E,$6E,$6F,$6F,$6F,$6F,$F7,$72,$75,$75,$75,$75,$79,$74,$FF
);
TDS - Technicky a databazovy software
Praha 8, Palaskova 1107/2
tel.: 02/ 6891 444
http://www.tds-technik(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 10, 1999 12:12 AM
Subject: Re: Konverzia
Hinty
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 10.9.1999 09:59:12
Mam vlastni metodu na vykreslovani Hintu: Application.OnShowHint :=
MyShowHint;
procedure TForm1.MyShowHint( var HintStr: string;
var CanShow:
Boolean;
var HintInfo:
THintInfo);
var
i : integer;
begin
for i := 0 to Application.ComponentCount - 1 do
if Application.Components[i] is THintWindow then
with THintWindow(Application.Components[i]).Canvas do begin
Font.Name := 'MS Sans Serif';
Font.Color := clRed;
Font.Size := 14;
Font.Style := [fsBold];
with HintInfo do begin
HintColor := clYellow;
HideTimeout := csHintHideTimeout;
end; { WITH }
end;
end;
Zajimalo by me, proc nereaguje na zmenu barvy fontu - je stale cerny,
pozadi hintu se chova tak jak ma. Druha vec, ktera by me zajimala je,
zda jsem v teto metode schopen zjistit, nad kterym objektem se menu
zobrazuje.
Dalsi ciste teoreticka otazka je, zda jsem schopen vyvolat (vynutit)
objeveni se hintu nad urcitym objektem bez toho, abych nad nej presouval
kursor mysi. Zkousel jsem HintMouseMessage, ale fungoval jen v metode
OnMouseMove daneho objektu, jen pro nej a jeste navic jsem nebyl schopen
donutit ho, aby zustal zobrazen (i kdyz metoda probehla pouze 1x.
Diky
Mira
OFF: HTML Reader
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 10.9.1999 10:11:51
Omlouvam se za lehky Off Topic:
Neznate nekdo software, ktery prohlizi HTML dokumenty a nemusi se
instalovat?
Proste aby byl na cedecku, spustil se s parametrem a nic se nezapisovalo na
disk.
Diky
Leos
PS: Ten offtopic je jenom lehky protoze jde o prezentaci k Delphi produktu
:-))MSDE
[*] Jaroslav N�dhera <nadhera(zv)csh(tec)cz> - 10.9.1999 10:13:01
Dokaze mi nekdo vysvetlit vyhody MSDE pred BDE a jestli je mozne pouzivat
MSDE v Delphi?
J. Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz
WWW: http://www.csh(tec)cz
ICQ: 42714585
Click
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.9.1999 10:20:37
Zkuse treba poslat broadcast nebo message WM_MOUSEDOWM ( viz WIN32.HLP) a tam nastavit parametry, ktere simuluji click.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
> -----Puvodni zprava-----
> Od: Petr Vobornik [SMTP:vobornik(zv)ssakhk(tec)cz]
> Odeslano: 9. zaoi 1997 9:39
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Click
>
> Nevite nekdo, jakym prikazem primeju windows, aby si myslel, ze nekdo kliknul mysi?
>
> Pitr - Petr Vobornik
> MIKMIK company
> vobornik(zv)ssakhk(tec)cz
> ICQ# 23132120
> www.ssakhk(tec)cz/home/vobornik/
> <<Soubor: ATT00000.htm>> Konverzia
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.9.1999 10:47:07
> Chcel by som niekoho poprosit o pomoc. Potrebujem programovo
> osetrit prevod
> code page z PC852 do Win 1250. Zatial to robim v Exceli pri
> prevode txt
> fileu. Oznacim ho ako "DOS, OS/2 (PC-8)" a potom mam
> diakritiku v poriadku.
> Urcite existuje nejaky pgm, ktory robi prevod.
Mrkni se na http://webhost(tec)cz/elka. V sekci PROGRAMOVANI najdes program
KONVERT, ktery se da poustet i z prikazove radky s parametry.Hinty
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.9.1999 10:55:32
Ahoj,
pokud objekt ma povolene zobrazovani hintu, pak muzes objekty v teto
procedure filtrovat a povolovat/zakazovat jejich zobrazovani, pokud kurzor
mysi stoji v RECT daneho control. Kdybys ho chtel vyvolat jinak, tak bys asi
musel nastavit kurzor mysi nad ovladac a pro trvale zobrazeni prodlouzit
pauzu k zhasnuti. Prochazeni vsech komponent je v tomto pripade neefektivni.
priklad:
If HintInfo.HintControl =SpeedButton1 {nebo is TSpeedButton pro celou tridu}
Then With HintInfo Do Begin
CanShow := True;
HintColor := clAqua;
HintMaxWidth := 120;
Inc(HintPos.X,SpeedButton1.Width)
End
Else
CanShow:=False;
Jaro B.> -----P�vodn� zpr�va-----
> Od: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o.
> [SMTP:bonnel(zv)telecom(tec)cz]
> Odesl�no: 10. z��� 1999 9:59
> Komu: Delphi konference
> P�edm�t: Hinty
>
> Mam vlastni metodu na vykreslovani Hintu: Application.OnShowHint :=
> MyShowHint;
>
> procedure TForm1.MyShowHint( var HintStr: string;
> var CanShow:
> Boolean;
> var HintInfo:
> THintInfo);
> var
> i : integer;
> begin
> for i := 0 to Application.ComponentCount - 1 do
> if Application.Components[i] is THintWindow then
> with THintWindow(Application.Components[i]).Canvas do begin
>
> Font.Name := 'MS Sans Serif';
> Font.Color := clRed;
> Font.Size := 14;
> Font.Style := [fsBold];
> with HintInfo do begin
> HintColor := clYellow;
> HideTimeout := csHintHideTimeout;
> end; { WITH }
> end;
> end;
>
>
> Zajimalo by me, proc nereaguje na zmenu barvy fontu - je stale cerny,
> pozadi hintu se chova tak jak ma. Druha vec, ktera by me zajimala je,
> zda jsem v teto metode schopen zjistit, nad kterym objektem se menu
> zobrazuje.
>
> Dalsi ciste teoreticka otazka je, zda jsem schopen vyvolat (vynutit)
> objeveni se hintu nad urcitym objektem bez toho, abych nad nej presouval
> kursor mysi. Zkousel jsem HintMouseMessage, ale fungoval jen v metode
> OnMouseMove daneho objektu, jen pro nej a jeste navic jsem nebyl schopen
> donutit ho, aby zustal zobrazen (i kdyz metoda probehla pouze 1x.
>
> Diky
>
> Mira
> Jak lze pracovat s promenyma v SQL...
[*] Mirun <forcom(zv)telecom(tec)cz> - 10.9.1999 10:58:09
----- P�vodn� zpr�va -----
Od: Milan Bla�ek <mbsint(zv)telecom(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. z��� 1999 13:15
P�edm�t: Re: Jak lze pracovat s promenyma v SQL...>Ahoj Mirune,
>diky Ti za konkretni odpoved, vse je mi vcelku jiz jasne akorat
>vsak kdyz chci zadat primo do komponenty QUERY parametry ve vlastnosti
>Params, tak se mi otevre sice editor, ale nemohu v nem nic zapisovat -
>proc?.
Protoze musis nejdrive vyplnit vlastnost SQL, Delphi si to po zadani
projedou, zjistej ktery parametry se tam vyskytuji a pak teprve ti je
nabidnou v editoru Params.
Kdyz zadas do SQL 'Select * from "custdata.db" tak ti v Params nic
nenabidne, protoze tam zadnej parametr neni. Kdyz tam napises 'Select * from
"custdata.db" where Firstname= :Krestni and LastName= :Prijmeni' tak budes
mit v editoru 2 parametry Krestni a Prijmeni.
Cili : Parametry jsou zjistovany z aktualniho SQL, nelze je zadat nejdriv
(kdyz se nad tim zamyslis, uvidis, ze to ma sve opodstatneni).
>Jsou tam sice najake ikony - Toolbar , ale ty jsou disabled.
>Omlouvam se za tak trivialni dotaz, ale zatim si zvykam na SQL v Delphi,
>kter� ma jiste odlisnosti od jinych produktu.
Delphi nema SQL, pokud jsi delal drive v nejakem jinem jazyku, ten mozna mel
vlastni "pseudoimplementaci" ovsem u Delphi je to trosku jine :
TQuery samo o sobe pouze vezme tebou zadany prikaz a poskytne jej BDE.
BDE si zjisti, zda se jedna o operaci s lokalnimi tabulkami (pdox,dbase) a
nebo o operaci kterou ma provadet SQL server. V prvnim pripade jej vyhodnoti
sam, v druhem pripade jej posle na server. Zpet pak do TQuery vraci
vyhodnoceni ve forme seznamu zaznamu odpovidajicich danemu vyberu nebo vraci
data ze serveru.
Z toho vyplyva, ze aby jsi konkretne zvladl "Delphi" SQL, musis znat SQL
cile (pokud se jedna o SQL nad tabulkami pdox, dbase je to popsano v helpu,
pokud se jedna o server, musis mit dokumentaci serveru, na kterem to ma
bezet). Pokud se jedna o trivialni dotazy, tak ty se vsude pisou stejne.
Pokud budes psat slozitejsi konstrukce, uz tam jsou obcas rozdily ale na ty
v praxi narazis...
Mirun
>Diky moc
>Milan Blazek
-----P�vodn� zpr�va-----
Od: Mirun <forcom(zv)telecom(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. z��� 1999 9:26
P�edm�t: Re: Jak lze pracovat s promenyma v SQL...
----- P�vodn� zpr�va -----
Od: Milan Bla�ek
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 8. z��� 1999 22:54
P�edm�t: Jak lze pracovat s promenyma v SQL...>Nevite nekdo jak mohu v SQL vyuzit hodnoty z promenych. Jedna se mi hlavne
o to, ze chci v dotazu >SQL misto primeho zadani
>datumu zadat pouze promenou,ktera bude postupne nacitat ruzne hodnoty, ale
nevim jak - asi nejak >pres prarametry? (jedna se pouze o lokani pristup).
napr.
kdyz Query1.SQL je treba 'Select * from "objednavky.db" where datum =
:datum'
musis v Query1 definovat v ObjectInspectoru ve vlastnosti Params potrebny
typ parametru (ftDateTime)
a hodnotu pak nastavujes treba takto:
Query1.Close;
Query1.ParamByName('datum').AsDateTime := Now; {nebo lib.jina promenna typu
TDateTime}
Query1.Open;
cili - parametr je vzdy v dotazu dvojtecka + symbolicke jmeno, ke kteremu
pak pristupujes pres ParamByName(jmeno bez dvojtecky) nebo Params[Poradove
cislo parametru]
>Nemuzete nekdo poslat priklad. A jeste jeden dotaz, kdyz zadavam v jedom
Query select na nekolik poli >s podminkou na pole ruznych tabulek, tak
>jsem to drive( ne v Delphi ) zapisoval napr.:
>Select * from Table1, Table2
>Where Table1.Mesto = Table2.Obec
>Ale D4 mi nejak pole s tabulkama nechce brat, bez tabulek ano - proc?
zkus to takhle
Select * from "adresa1.db" T1, "adresy2.db" T2 where T1.Mesto = T2.Obec
(nesmis mixovat nazvy Table1,Table2 z Delphi do SQL, leda napr. takhle:
Query1.SQL.Clear;
Query1.SQL.Add(Format('Select * from "%s" t1, "%s" t2 where t1.Mesto =
t2.Obec',[Table1.TableName,Table2.TableName]);
ovsem kdyz pouzivas SQL neni potreba vubec pouzivat TTable, je lepsi
pouzivat Query.
Mirun
MSDE a dodavany SQL Server
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 10.9.1999 11:01:47
>Pokud jsem to dobre pochopil, s Office 2000 Developer nebo s Visual C++
>Professional je dodavan SQL server kompatibilni s Microsoft SQLServerem 7.
je to v podstate OCESANY SQL7 server, ktery je pojmenovany MSDE (dalo by se
to taky nazvat MS SQL7 LITE), ale v podstate na disku lze najit temer do
same jako u SQL7, akorat tam spousta veci chybi, zejmena pro spravu.
Vlastni MSDE server je limitovany velikosti databaze max 2GB, pocet
uzivatelu je snad mozny i vice nez 5 (Microsoft pouze zarucuje svizny
provoz pro 5 uzivatelu , ale neni to omezeni), take neumi distrobuovat
transakce, ale umi je od plne verze MSSQL7 prijimat.
Pokud to clovek shrne, da se rict, ze napriklad za cenu MSOffice 2K DE,
muze ziskat volne distribuovatelny SQL7 server. Microsoft pravdepodobne
pocita s tim, ze 2GB a omezeni transakci mezi vzdalenymi sitemi je
dostatecne omezeni, ktere firmy stejne prinuti koupit alespon 1 SQL7 server
napriklad do centra. Jde o to, ze neni treba kupovat plnou verzei SQL7
serveru na kazdou malou pobocku se 2 pocitaci a prave od toho tady je MSDE.
Heretic
Heretic-X, SOFTWARE specialist,<www.nt(tec)cz>Processy
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 10.9.1999 10:19:08
Napada mne projit ne procesy, ale okna a podle
titulku okna potom prislusny proces odstrelit.
Jestli se nemylim dava MSIE svuj "podpis" do
kazdeho zobrazeneho okna.
### kInKy aL!GaT(zv)r napsal dne 9 Sep 99, v 18:09 :
> ave Vsem !
>
> bezel tu dotaz o zjistovani procesu a pak take o jejich ukoncovani.
> Narazil jsem na zajimavou vec ze pokud je spusten MS Internet Explorer,
> tak ho v tech vyse zminenych resenich nechytnete a tim padem ani
> neukoncite. Nevi nekdo jak na to ?
-----------------------------------------------
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
Click
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.9.1999 10:46:17
Ale jo - staci poslat message WM_LBUTTONDOWN nebo podobne.
SendMessage(Handle_okna, kod_zpravy, wparam, lparam).
Posilam kus helpu (je to sice z C++, ale parametry jsou totozne):
The WM_LBUTTONDOWN message is posted when the user presses the left
mouse button while the cursor is in the client area of a window. If the
mouse is not captured, the message is posted to the window beneath the
cursor. Otherwise, the message is posted to the window that has captured
the mouse.
WM_LBUTTONDOWN
fwKeys = wParam; // key flags
xPos = LOWORD(lParam); // horizontal position of cursor
yPos = HIWORD(lParam); // vertical position of cursor
Parameters
fwKeys
Value of wParam. Indicates whether various virtual keys are
down. This parameter can be any combination of the following values:
Value Description
MK_CONTROL Set if the ctrl key is down.
MK_LBUTTON Set if the left mouse button is down.
MK_MBUTTON Set if the middle mouse button is down.
MK_RBUTTON Set if the right mouse button is down.
MK_SHIFT Set if the shift key is down.
xPos
Value of the low-order word of lParam. Specifies the
x-coordinate of the cursor. The coordinate is relative to the upper-left
corner of the client area.
yPos
Value of the high-order word of lParam. Specifies the
y-coordinate of the cursor. The coordinate is relative to the upper-left
corner of the client area.
Preji peknou zabavu.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Petr Voborn�k [SMTP:vobornik(zv)ssakhk(tec)cz]
> Odesl�no: 9. z��� 1997 9:39
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Click
>
> Nevite nekdo, jakym prikazem primeju windows, aby si myslel, ze nekdo
> kliknul mysi?
> �
> Pitr - Petr Vobornik
> MIKMIK company
> vobornik(zv)ssakhk(tec)cz <mailto:vobornik(zv)ssakhk(tec)cz>
> ICQ# 23132120
> www.ssakhk(tec)cz/home/vobornik/ <http://www.ssakhk(tec)cz/home/vobornik/>QuickReport a preview
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 10.9.1999 11:58:41
Podivej se do "Mistrovstvi v Delphi 3", kapitola "Rychle sestavy QuickReport", strana 444, odstavec "Vytvareni uzivatelskych nahledu".
Dulezite je, ze do OnPreview musis zapsat:
Form2.QRPreview1.QRPrinter := TQRprinter(Sender);
Bez toho ti to nepojede. V knize je i na CD vzorovy priklad.
S pozdravem
Ing. Petr Svejda, software specialist
|
| Neolit system, software developer
| Stankova 215, Telc, tel: (066) 724 39 34
| mobil: 0603 214 901, fax: 0603 214 902
| lingvista(zv)lingvista(tec)cz, http://www.lingvista(tec)cz/
|
----- P�vodn� zpr�va -----
Od: Dan Rejchrt
Komu: delphi-l(zv)fwd(tec)cz
Odesl�no: 9. z��� 1999 23:24
P�edm�t: QuickReport a preview
Jak si mohu vytvorit vlastni preview ve QuickReportu ? Je tam dan jako procedura uz vytvorena, ale jsou tam zbytecne veci jako napr. otevreni a ulozeni souboru atd... To nechci. Bud jestli to jde jenom nejak smazat ci upravit, nebo jestli ji nutne vytvorit nove - jak.
S podzravem
Dan Rejchrt
rejchrt(zv)ssakhk(tec)cz
Delphi - VB
[*] Hynek Svato� <svatos(zv)af(tec)czu(tec)cz> - 10.9.1999 12:11:41
> Hynek Svatos wrote:
>
> > No ja nevim ale ja bych zase na borlandi kompilatory nepel takovou
slavu.
> > Moje skusenosti jsou nyni spise horsi. Jednak mi pripada, ze Delfi kod
neni
> > zase takovy rychlik, programy jsou velke a co se tyce chybovosti
kompilatoru
>
> Ahoj,
>
> Tak to teda ne :-) Delphi *kompilator* je myslim velmi dobry, to o cem
> mluvis, nadstavbe - tedy VCL, tam uz je situace malinko jina a lze tam
> mit opravnene vyhrady. S temi srovnanimi je to vzdy tezke, casto se jen
> vybere uloha kde ten ci jiny prekladac zrovna vynikne nebo propadne, asi
> jediny rozumny zpusob je vzit par uloh a ukazat prelozeny asm kod. Ale
> kdo ti tohle v dnesni dobe udela ... :-)) Nedavno jsem nekde narazil na
> clanek, kde srovnavali rychlost kodu z Delphi a C++ Builderu, udajne(?)
> vychazel ObjectPascal nekdy i lip.
>
> > (a celych Delf), o te tu jiz par prispevku taky padlo. Napriklad se mi
dost
> > casto stava, ze mi program nelze zkompilovat, hazi to jakesi SYS chyby
> > kompilaoru v System.pas atd. - po restartu Delphi je to ok.To ani
nemluvim
> > o tom ze ukoncit Delphi bez Acces violation je uz jen me zbozne prani,
to je
> > ale zase jina kapitola ...
>
> Patrne mas D4 bez update packu, tam se jim ta stabilita opravdu trochu
> vymkla, coz ale neni IMHO chyba kompilatoru, ale kodu v nem prelozenem.
> Samozrejme neexistuje prekladac ktery by byl uplne bez chyb.
Pracuju v D4 Service Pack 3, fakt je ten, ze takovato chyba se nevyskytne
kazdodene, ale uz sem se s ni parkrat setkal a to me trochu znervoznuje ...==== Hynek Svato� ====
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
===================HTML Reader
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.9.1999 11:31:15
Mame koupeny HTMLViewer od Dave Baldwina a chodi v pohode. Aplikace
vytvorena s touto komponentou se neinstaluje, potrebuje jen jednu DLL na
zobrazeni grafiky a to jeste snad jen na jine formaty nez BMP. Nevim,
jestli by to neznamenalo poruseni licencnich podminek, kdybych pro tebe
udelal jednoduche okynko, ve kterem by byl zobrazeny ten HTML dokument s
tim, ze bych za to nic nechtel? Vyjadrete se prosim nekdo k tomu.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Leos Urban [SMTP:Leos.Urban(zv)aitix(tec)cz]
> Odesl�no: 10. z��� 1999 10:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OFF: HTML Reader
>
> Omlouvam se za lehky Off Topic:
>
> Neznate nekdo software, ktery prohlizi HTML dokumenty a nemusi se
> instalovat?
> Proste aby byl na cedecku, spustil se s parametrem a nic se
> nezapisovalo na
> disk.
>
> Diky
> Leos
>
> PS: Ten offtopic je jenom lehky protoze jde o prezentaci k Delphi
> produktu
> :-))MSDE vs SQL 7.0
[*] delphi(zv)dingo(tec)cz - 10.9.1999 10:37:46 gmt
Zdar!!
Uz jsem se jednou ptal, zkusim to jeste jednou.
M�m datab�zi v MS SQL 7.0 a z pochopiteln�ch d�vod� ji pot�ebuji
p�est�hovat do MSDE, ale i se v�emi daty, viewi a loginy.
Jde to? Jak?
Diky moc.
Bob
Click
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.9.1999 12:45:00
Ahoj
myslim ze u TControl je metoda Click (TBitBtn, TButton, TMenuItem,
TSpeedButton) ktera simuluje stisknuti
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Tomas Michal�k [SMTP:michalik(zv)proca(tec)cz]
> Odesl�no: 10. z��� 1999 12:57
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Click
>
> Ahoj,
>
> na tohle se ma pouzivat spise API mouse_event.
>
> Martin Lasevic wrote:
>
> > Zkuse treba poslat broadcast nebo message WM_MOUSEDOWM ( viz WIN32.HLP)
> a tam nastavit parametry, ktere simuluji click.
>
> --
> =================================
>
> Tomas Michalik
> ProCA, s. r. o.
> V Luzich 818, Praha 4
> Czech Republic
>
> e-mail: michalik(zv)proca(tec)cz
> tel: +420 2 67283446
> Click
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.9.1999 12:46:22
Chapu, ja to strelil tak od boku.
Martens
> -----Puvodni zprava-----
> Od: Tomas Michalik [SMTP:michalik(zv)proca(tec)cz]
> Odeslano: 10. zaoi 1999 12:57
> Komu: delphi-l(zv)fwd(tec)cz
> Poedmit: Re: Click
>
> Ahoj,
>
> na tohle se ma pouzivat spise API mouse_event.
>
> Martin Lasevic wrote:
>
> > Zkuse treba poslat broadcast nebo message WM_MOUSEDOWM ( viz WIN32.HLP) a tam nastavit parametry, ktere simuluji click.
>
> --
> =================================
>
> Tomas Michalik
> ProCA, s. r. o.
> V Luzich 818, Praha 4
> Czech Republic
>
> e-mail: michalik(zv)proca(tec)cz
> tel: +420 2 67283446
>
>
>
> Click
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 10.9.1999 11:56:31
Ahoj,
na tohle se ma pouzivat spise API mouse_event.
Martin Lasevic wrote:
> Zkuse treba poslat broadcast nebo message WM_MOUSEDOWM ( viz WIN32.HLP) a tam nastavit parametry, ktere simuluji click.
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Delphi 5, MS SQL 7 a varchar(2000)
[*] mbartone(zv)Synthesia(tec)cz - 10.9.1999 12:57:47
Ahoj
mam Delphi 3 a MS SQL 7
nemuzu pouzit varchar(2000) protoze je omezeni bud v BDE nebo v Delphi na
varchar(255).
Nevite nekdo jak to je v Delphi 5 ?
Milan
HTML Reader
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 10.9.1999 13:02:09
mozna te bude zajimat freeThtmlLite HTML Viewer Component:
http://www.pbear.com/htmlviewers.html
M.
----- P�vodn� zpr�va -----
Od: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 10. z��� 1999 10:11
P�edm�t: OFF: HTML Reader
> Omlouvam se za lehky Off Topic:
>
> Neznate nekdo software, ktery prohlizi HTML dokumenty a nemusi se
> instalovat?
> Proste aby byl na cedecku, spustil se s parametrem a nic se nezapisovalo
na
> disk.
>
> Diky
> Leos
>
> PS: Ten offtopic je jenom lehky protoze jde o prezentaci k Delphi produktu
> :-))
>
Prohlizec konference (konferenci)
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 10.9.1999 13:05:05
Ahoj
Prave jsem dodelal dalsi verzi prohlizece konferenci <B>KonfView</B>
Ke stazeni je na adrese:
http://atrey.karlin.mff.cuni(tec)cz/~bla/konfview.shtml
Na teze strance je i jednoduchy navod a popis co noveho je v teto
verzi implementovano + co bude v dalsi(ch) verzi(ch).
Pripadne komentare posilejte na moji adresu
bla(zv)atrey.karlin.mff.cuni(tec)cz
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - MSDE a dodavany SQL Server
[*] Zden�k B�hm - 10.9.1999 13:14:55
Ahoj,
tu informaci o MS SQL do 2GB dat zdarma, jsem vykopl ja. Prisel s tim muj
drahy nadrizeny po konzultaci s Martinem Ciglerem. Pry soucasti Win 2000
bude MS SQL Server do 2GB dat. Je to neoficialni informace, kterou nikdo
verejne neuvedl, ale protoze Cigler ted zacina troubit s Microsoftem, tak
bych tomu zkusil verit.
Zdenek
----- Original Message -----
From: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 10, 1999 9:16 AM
Subject: MSDE a dodavany SQL Server
Ahoj,
chtel bych poprosit, jestli-by nekdo mohl shrnout moznost pouziti SQL
serveru MSDE.
Pokud jsem to dobre pochopil, s Office 2000 Developer nebo s Visual C++
Professional je dodavan SQL server kompatibilni s Microsoft SQLServerem 7.
Umoznuje praci az 5 uzivatelu. Muze se sirit s aplikacemi vytvorenymi v
prislusnem vyvojovem prostredi. Tj. pokud dodam jednu malinkou aplikaci v
Cecku (treba prehled prihlasenych uzivatelu) a informacni system v Delphi je
to licencne v poradku?
Kdysi tady padla zminka, ze SQL server 7 bude do 2GB dat zdarma - co je na
tom pravda?
Diky.
Leos
MSDE vs SQL 7.0
[*] Hynek Svato� <svatos(zv)af(tec)czu(tec)cz> - 10.9.1999 13:35:25
Zkusim:
1) V SQL 7 provest kompletni zalohu
2) V MSDE provest restore
==== Hynek Svato� ====
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
===================
----- Original Message -----
From: <delphi(zv)dingo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 10, 1999 12:37 PM
Subject: MSDE vs SQL 7.0
Zdar!!
Uz jsem se jednou ptal, zkusim to jeste jednou.
M�m datab�zi v MS SQL 7.0 a z pochopiteln�ch d�vod� ji pot�ebuji
p�est�hovat do MSDE, ale i se v�emi daty, viewi a loginy.
Jde to? Jak?
Diky moc.
Bob
Hinty
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 10.9.1999 13:47:39
Diky, to cos napsal pomohlo k tomu, co jsem potreboval, tj. k rozliseni
objektu nad kterym se Hint zobrazi. Porad mam ale problem s barvou
fontu:
if Application.Components[i] is THintWindow then
with THintWindow(Application.Components[i]).Canvas do begin
if HintInfo.HintControl is TImage then
begin
Font.Name := 'MS Sans Serif';
Font.Color := clRed;
Ackoliv ostatni vlastnosti fontu (velikost, style ) lze nastavit, nazve
fontu a barva nikoliv - je to principialne problem ve Windows (95OSR2)
nebo delam neco spatne ?
Diky
Mira
----- P�vodn� zpr�va -----
Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 10. z��� 1999 10:55
P�edm�t: RE: Hinty
Ahoj,
pokud objekt ma povolene zobrazovani hintu, pak muzes objekty v teto
procedure filtrovat a povolovat/zakazovat jejich zobrazovani, pokud
kurzor
mysi stoji v RECT daneho control. Kdybys ho chtel vyvolat jinak, tak bys
asi
musel nastavit kurzor mysi nad ovladac a pro trvale zobrazeni prodlouzit
pauzu k zhasnuti. Prochazeni vsech komponent je v tomto pripade
neefektivni.
priklad:
If HintInfo.HintControl =SpeedButton1 {nebo is TSpeedButton pro celou
tridu}
Then With HintInfo Do Begin
CanShow := True;
HintColor := clAqua;
HintMaxWidth := 120;
Inc(HintPos.X,SpeedButton1.Width)
End
Else
CanShow:=False;
Jaro B.
query
[*] olej.jozef(zv)slsp.sk - 10.9.1999 14:09:40
Chcel by som sa opytat ci nema niekto skusenosti ako je mozne co
najrychlejsie prebehnut cez vysledok selectu ktory ide:
Query->DataSource->DBGrid
ak pouzijem :
procedure spracuj_tr;
BEGIN
Screen.Cursor:=crHourGlass;
WITH Form1.Query4 DO BEGIN
first;
while NOT EOF do begin
s1:=Fields[3].AsString;
next;
end;
end;
Screen.Cursor:=crDefault;
end;
tak to bezi aj na obrazovke a je to dost pomale?
A este jedna otazka: Je mozne nejak zistit pocet vratenych riadkov zo
selectu?
Dakujem
Jozef
TToolBar a Focus
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 10.9.1999 14:34:32
Preji pekneho dne,
D4.03S
Mam na TToolBaru umisteny nejake buttony a DBNavigator. Na formu je
panel s nekolika DBEdit a dalsi panel s DBGridem. Pokud kliknu na
button pro Insert record a ToolBar je v Docku, probehne vse vporadku.
Pokud ovsem vytahnu ToolBar "ven" - do okna - po insert record si
ponecha zaostreni a ja musim manualne prejit na editovanou polozku.
Nepomuze ani programove nastavit Focus na pozadovany DBEdit v udalosti
AfterInsert DataSetu. ToolBar si vzdy znovu Focus provlastni.
Pokud pouziju podobnou komponentu z TToolbar97 od J. Russela, vse se
deje spravne. Zde se ToolBar tvari, jako by byl porad zaostreny (je
vybarven modre), ale nekrade zaostreni ostatnim komponentam. Chtel
bych pouzit standartni TToolBar z Delphi. Nevite nekdo, jak je to s
tim Focusem u TToolBaru, jestlize je vytazen z docku do okna nastroju
a pripadne, jak se to da obejit?
Za pripadne namety predem dekuji.
Jan Naiser.query
[*] petr.fischer.prg(zv)email(tec)cz - 10.9.1999 14:37:39
olej.jozef(zv)slsp.sk napsal:
Cau,
pred tim cyklem dej Query4.DisableControls a po cyklu
Query4.EnableControls.
Pocet radku v query zjistis pomoci RecordCount (ale musi byt samozrejme
otevrena).
>Chcel by som sa opytat ci nema niekto skusenosti ako je mozne co
>najrychlejsie prebehnut cez vysledok selectu ktory ide:
>Query->DataSource->DBGrid
>
>ak pouzijem :
>
>procedure spracuj_tr;
>BEGIN
> Screen.Cursor:=crHourGlass;
> WITH Form1.Query4 DO BEGIN
> first;
> while NOT EOF do begin
> s1:=Fields[3].AsString;
> next;
> end;
> end;
> Screen.Cursor:=crDefault;
>end;
>
>tak to bezi aj na obrazovke a je to dost pomale?
>
>A este jedna otazka: Je mozne nejak zistit pocet vratenych riadkov zo
>selectu?
>
>Dakujem
>
>Jozef
>
>
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
query
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 10.9.1999 14:44:09
Ahoj,
do kodu bych vlozil nasledujici:
procedure spracuj_tr;
BEGIN
Screen.Cursor:=crHourGlass;
WITH Form1.Query4 DO BEGIN
DisableControls; // tim se ti prestanou vykreslovat sdruzene
komponenty s Query
first;
while NOT EOF do begin
s1:=Fields[3].AsString;
next;
end;
EnableControls; // timto se to obnovi
end;
Screen.Cursor:=crDefault;
end;
-------------
Vse by bylo dobre udelat v bloku try...except, aby ti nezustaly
komponenty zakazane pri nejake vyjimce a nezustal ti v tom pripade
kursor HourGlass
Co se tyka poctu vracenych vet v datasetu, potom Query.RecordCount -
viz. HElp
Ahoj, Honza Naiser.
----- P�vodn� zpr�va -----
Od: <olej.jozef(zv)slsp.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 10. z��� 1999 14:09
P�edm�t: query
> Chcel by som sa opytat ci nema niekto skusenosti ako je mozne co
> najrychlejsie prebehnut cez vysledok selectu ktory ide:
> Query->DataSource->DBGrid
>
> ak pouzijem :
>
> procedure spracuj_tr;
> BEGIN
> Screen.Cursor:=crHourGlass;
> WITH Form1.Query4 DO BEGIN
> first;
> while NOT EOF do begin
> s1:=Fields[3].AsString;
> next;
> end;
> end;
> Screen.Cursor:=crDefault;
> end;
>
> tak to bezi aj na obrazovke a je to dost pomale?
>
> A este jedna otazka: Je mozne nejak zistit pocet vratenych riadkov
zo
> selectu?
>
> Dakujem
>
> Jozef
D5 a TeamSource
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 10.9.1999 14:52:16
Ma uz nekdo nejake zkusenosti s novym spravcem verzi od Borlandu? Nejak se
nam nedari propojit D5 a TeamSource.
David Vodi�ka
N-ty riadok v stringu
[*] SICHTA Daniel <Sichta(zv)za.asset.sk> - 10.9.1999 14:56:32
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
(W98, D3 C/S)
Mam string ktory obsahuje N riadkov to znamena N-1 znakov CR+LF.
Neviete niekto najjednoduchsi sposob ako 'vybrat' z tohoto stringu iba
konkretny riadok20
) <mailto:sichta%40za.asset.sk> sichta(zv)za.asset.sk
TRichEdit a transparentnost
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 10.9.1999 15:09:11
Barvy jsme si upravovali nejak takto
clLightYellow {: longint }= clYellow + 8388608; {sv�tl� �lut�}
clLightCyan {: longint }= clAqua + 128; {sv�tl� modr�}
clLightGreen {: longint }= clGreen + 16711935; {sv�tl� zelen�}
-----P�vodn� zpr�va-----
Od: Luk� Gallina [SMTP:johndelphi(zv)atlas(tec)cz]
Odesl�no: 10. z��� 1999 8:20
Komu: Delphi konference
P�edm�t: TRichEdit a transparentnost
Zdravim vsechny!
Potreboval bych udelat RichEdit transparentni, nebo mu alespon vnutit jiny
odstin zlute. Zluta, ktera tam jest (clYellow) je moc zluta... nevite nekdo
co s tim?
Mam Delphi 4, WinNT 4 WorkStation
Luk� Gallina (Lukas Gallina)
racek(zv)devacomm(tec)cz
Hledejte mimozemstany, jsou zde.....http://setiathome.ssl.berkeley.edu
<<Soubor: ATT00007.htm>>
Delphi 5, MS SQL 7 a varchar(2000)
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 10.9.1999 15:15:09
To neni omezeni Delphi ani BDE, o je omezeni MS native driveru. Jedine
reseni je opustit BDE (ktere vyuziva MS native driver) a prejit na neco
jineho (ODEDB, ADO, ODBC ...).
-----P�vodn� zpr�va-----
Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
Odesl�no: 10. z��� 1999 12:58
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Delphi 5, MS SQL 7 a varchar(2000)
Ahoj
mam Delphi 3 a MS SQL 7
nemuzu pouzit varchar(2000) protoze je omezeni bud v BDE nebo v Delphi na
varchar(255).
Nevite nekdo jak to je v Delphi 5 ?
Milan
query
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 10.9.1999 15:52:44
1. Form1.Query.DisableControls / EnableControls
2. select count(*) from ... je myslim jedina moznost na zistenie poctu
riadkov v selecte.
olej.jozef(zv)slsp.sk wrote:
> Chcel by som sa opytat ci nema niekto skusenosti ako je mozne co
> najrychlejsie prebehnut cez vysledok selectu ktory ide:
> Query->DataSource->DBGrid
>
> ak pouzijem :
>
> procedure spracuj_tr;
> BEGIN
> Screen.Cursor:=crHourGlass;
> WITH Form1.Query4 DO BEGIN
> first;
> while NOT EOF do begin
> s1:=Fields[3].AsString;
> next;
> end;
> end;
> Screen.Cursor:=crDefault;
> end;
>
> tak to bezi aj na obrazovke a je to dost pomale?
>
> A este jedna otazka: Je mozne nejak zistit pocet vratenych riadkov zo
> selectu?
>
> Dakujem
>
> Jozef
vlozeni IE do programu; html prilikovane do progra
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 10.9.1999 17:00:29
Mam dva dotazy:
1) Nevi nekdo, jak vlozit IE do jineho programu jako komponentu? Asi to bude
pres ActiveX, ale jak presne, to nev�m. Vsiml jsem si, ze WinAmp 2.23 neco
takoveho dela (MiniBrowser).
2) Jak prilinkovat html kod jako zdroj k programu? Byl by to idealni zpusob
jak pribalit help - siril by se pouze jeden soubor. IE k takto prilinkovanym
souborum pristupuje pres res://<jmeno programu>/<jmeno zdroje se souboren>
(takto IE ma ulozeny treba chybove hlasky).
Thanks for help.
Krystof
MSDE
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.9.1999 17:28:27
Jaroslav N�dhera wrote:
> Dokaze mi nekdo vysvetlit vyhody MSDE pred BDE a jestli je mozne
> pouzivat MSDE v Delphi?
MSDE je orezany MS SQL Server 7, tedy bez administracnich
nastroju, vyladeny pro maly pocet uzivatelu a omezeny shora na
velikost databaze. BDE je stroj pro pristup k databazim. Vyhoda
MSDE je tedy v tom, ze se do nej daji, narozdil od BDE, ukladat
data. :-)
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
Control '' has no parent window
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 10.9.1999 17:28:22
Tvorim komponentu, odvozenou od TEdit, ktera ma obsahovat TButton. Tento tam
umistim v constructoru. Kdyz se snazim komponenu dat na formular obdrzim
chybu %subj%. Constructor a metoda CreateParams vypadaji takto:
constructor TFileNameEdit.Create(AOwner: TComponent);
begin
inherited;
BrowseBut:=TButton.Create(Self);
BrowseBut.Name:='BrowseBut';
BrowseBut.Height:=ClientHeight;
BrowseBut.Width:=ClientHeight;
BrowseBut.Caption:='...';
BrowseBut.left:=ClientWidth-BrowseBut.width;
BrowseBut.visible:=true;
end;
procedure TFileNameEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or ES_MULTILINE or WS_CLIPCHILDREN;
end;
Thanks for help.
Krystof
N-ty riadok v stringu
[*] Michel Rabadi <michel(zv)asex(tec)cz> - 10.9.1999 18:07:05
>(W98, D3 C/S)
>Mam string ktory obsahuje N riadkov to znamena N-1 znakov CR+LF.
> >Neviete niekto najjednoduchsi sposob ako 'vybrat' z tohoto stringu
> iba konkretny riadok?
>) sichta(zv)za.asset.sk <mailto:sichta%40za.asset.sk>
zdravim
jde to treba takto:
...
sl:= TStringList.Create;
...
sl.Text:= tvuj_string;
jeden_radek:= sl.Strings[cislo_hledaneho_radku];
...
michel
N-ty riadok v stringu
[*] Kovac <kovac(zv)pvt.sk> - 10.9.1999 18:23:19
N-ty riadok v stringuvar
L:TStringList;
i:Integer;
begin
try
L:=TStringList.Create;
L.Text:=StringObsahujuciCrLf ;
...
teraz L[i] je riadok cislo i
...
finally
L.Free
end;
end;
-----Original Message-----
From: SICHTA Daniel <Sichta(zv)za.asset.sk>
To: 'Delphi Konferencia' <delphi-l(zv)fwd(tec)cz>
Date: 10. september 1999 15:36
Subject: N-ty riadok v stringu
(W98, D3 C/S)
Mam string ktory obsahuje N riadkov to znamena N-1 znakov CR+LF.
Neviete niekto najjednoduchsi sposob ako �vybrat� z tohoto stringu iba konkretny riadok20
) sichta(zv)za.asset.sk
Doporu�te knihu
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 10.9.1999 18:23:44
Mastering of Delphi 4, M.Cantu
Dokonce by se ted mela objevit i 5
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: DJsoft - Ing. Jan Votava [mailto:djsoft(zv)top(tec)cz]
Sent: Wednesday, September 08, 1999 5:20 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Doporu�te knihu
Doporu�te, pros�m dobrou knihu o Delphi 4.
D�ky, Honza
MSDE vs SQL 7.0
[*] Michel Rabadi <michel(zv)asex(tec)cz> - 10.9.1999 18:28:53
>Zdar!!
>Uz jsem se jednou ptal, zkusim to jeste jednou.
>M�m datab�zi v MS SQL 7.0 a z pochopiteln�ch d�vod� ji pot�ebuji
>p�est�hovat do MSDE, ale i se v�emi daty, viewi a loginy.
>Jde to? Jak?
Zdravim
melo by to jit pomoci Data Transformation Services (spusti se z ikony
Import and Export data ve skupine Microsoft SQL Server 7.0) a to tak,
ze provedes export z MSSQL 7.0(Server) na MSSQL 7.0(MSDE). Predpokladem
je sitove propojeni obou PC.
michel
Doporu�te knihu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.9.1999 18:57:23
> Doporu�te, pros�m dobrou knihu o Delphi 4.
****Tom Swan: MS v D4. Docela se mi zamlouva (ale pozor, ma to
pomalejsi styl vykladu).
Slavek
> D�ky, Honza
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Kde sehnat komponentu s adresarovym stromem z pruz
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 10.9.1999 19:10:56
Netusi nekdo, jak ziskat komponentu s adresarovym stromem tak, jak je
zobrazen v pruzkumniku nebo v SHBrowseForFolder? Nejak to urcite pujde,
protoze treba Winzip 7 ji na 100% pouziva (kdyz date extract, tak ji nekde
uprostred okna uvidite). Ze by pres ActiveX?
Thanks for help.
Krystof
Doporu�te knihu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.9.1999 19:49:08
> pro zacatek je prima tohle:
> Todd Miller, David Powell: Mastering Delphi 3 (je i v cestine: Mistrovstvi
> v Delphi 3)
****V tom se s Tebou neshodnu. Ta kniha je dle meho nazoru pro
vice pokrocile programatory, navic je psana dost (reknem) zvlastnim stylem.
Osobne bych ji nikomu nedoporucoval, prijde mi spatna. :-( Ale
kazdemu prijde vhod neco jineho.
Slavek
> Ing. Martin Dupal
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Vypisov�ni
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.9.1999 21:31:57
Ahoj,
Neexistuje zatim zadna me znama moznost, jak to udelat.
Kazdopadne bude rychlejsi, kdyz si ten datovy modul pojmenujes
jinak, nez DataModule2, coz je dost dlouhe a nic nerikajici.
take existuje klicove slovo with.
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Zmena vlastnosti komponenty...
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 10.9.1999 21:44:12
Ahoj,
uloz si to treba do INI souboru.
Slavek
> Ahoj,
> nemuze mi nekdo poradit jak mohu za behu programu zmenit udaj vlastnosti
> (property) komponenty tak, aby zmeneny udaj vlastnosti byl platny jiz
> behem nasledujiciho startu propgramu (myslim tim platnost noveho udaje
> vlastnosti jiz pri vytvareni hlavniho formulare).
>
> Predem diky vsem za odpoved
> Milan Blazek
>
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
prevod aplikace z D1 na D3
[*] Ing. Marian Winkler <ag.art(zv)iol(tec)cz> - 11.9.1999 00:53:41
Ahoj,
prosim o "know-how". Hodlam prevest docela velkou aplikaci (cca 900k) z D1
na D3 Standard.
Nicim po mne, prosim, nehazte -> malo penez,
nic lepsiho si zatim dovolit nemuzu.
Aplikace ma standardni komponenty + gen. sestav Sinea.
Jaka je nejjednodussi cesta a na co si mam dat pozor?
Delam to prvne (a doufam ze naposled).
Marian Winkler
e-mail: ag.art(zv)iol(tec)cz
seznam a ttable
[*] Jenik <velky(zv)broucek(tec)cz> - 11.9.1999 04:40:04
zdravim vsechen lid
muze mi prosim nekdo poradit jak nejlepe ulozit do jedne
polozky v *.db souboru seznam asi 7 souboru na disku, treba jestli
jde do jedne polozky ulozit listbox apod. ?
dik moc Jenik
Delphi 5, MS SQL 7 a varchar(2000)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.9.1999 08:13:14
mbartone(zv)Synthesia(tec)cz wrote:
> mam Delphi 3 a MS SQL 7
> nemuzu pouzit varchar(2000) protoze je omezeni bud v BDE nebo v Delphi
> na varchar(255).
To je omezeni DBLib, nad kterym je BDE postaveno.
> Nevite nekdo jak to je v Delphi 5 ?
BDE to neresi ani resit nebude, pokud bude setrvavat nad DBLib.
Zbyva jedine moznost prejit na ADO nebo OLE DB. Nebo udelat
vlastni nativni komponenty. :-)
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
zobrazenie html
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 11.9.1999 08:20:03
>Ahoj,
>
>my na to mame koupenou komponentu (www.pbear.com) a chodi to bezvadne.
>Autor za to chce $129.
>
>**************************************************
>Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
>obcas Delphi nebo Visual Basic
>**************************************************
to je podle me zbytecny ... neco kupovat ... ja pouzivam komponentu ActiveX
...TWebBrowser_V1 ... je z knihovny M$ Internet controls (v. 1.1) a je to na
kazdym pocitaci (s W95 a vyssi ... ) ...
Jirka ..stringgrid a listbox
[*] Jan Najvarek <najvarek(zv)seznam(tec)cz> - 11.9.1999 03:42:30 -0400
Dobre je behem tohoto u gridu vypnout Visible (nebo jinou property se
stejnym ucinkem), aby se potlacilo prekreslovani.
Honza Najvarek
>
> >STRINGGRID
> >V programe je vlozena tabulka STRINGGRID, ktorej pocet riadkov nieje
pevne
> >stanoveny ale sa meni, preto by som potreboval vediet ci existuje nejaky
> >prikaz, alebo nejaky jednoduchy sposob, ako vycistit vsetky bunky
>
> Ahoj.
> Pred casom som potreboval nieco podobne, ale ziadny jednoduchy prikaz som
na
> to nenasiel (aspon v D3). Bol som nuteny na to vytvorit vlastnu proceduru
s
> ktorou som to mazal rucne (ma to vsak jednu nevyhodu, chvylku to trva).
>
> Martin Galik
> Programator - zaciatocnik.
>
Presmerovani con do Streamu
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 11.9.1999 11:19:21
Nemuzu si pomoct, ale ty stranky se zdaji nejak nedostupne (asi
neexistujici) - aspon IE 5 mi rika, ze stranka neni k dispozici.
Ale i tak diky
Krystof
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 10, 1999 12:00 AM
Subject: Re: Presmerovani con do Streamu
> Kry�tof Hoder wrote:
> >
> > Nevi nekdo, jak presmerovat vystup z programu do streamu?
> > Mam program, ktery spousti jiny (consolovy) program a potrebuje dostat
jeho
> > vystup pro dalsi zpracovani v idealnim pripade do streamu, ale klidne i
> > nekam do pameti, kde by se na to mohl podivat.
>
> Ahoj,
>
> Pokud jde o Win32 konzolovou aplikaci, tak treba tady:
>
> http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\feb\02\dlfaaaci.htm
>
> http://www.delphi(tec)cz/soubor.asp?path=\archiv\1998\jan\06\dlfaaaaj.htm
>
>
> --
>
> Petr Vones, amatersky programator
>
>
>Kde sehnat komponentu s adresarovym stromem z pruz
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.1999 11:35:59
> Netusi nekdo, jak ziskat komponentu s adresarovym stromem tak, jak je
> zobrazen v pruzkumniku nebo v SHBrowseForFolder? Nejak to urcite pujde,
> protoze treba Winzip 7 ji na 100% pouziva (kdyz date extract, tak ji nekde
> uprostred okna uvidite). Ze by pres ActiveX?
****Je to normalni TreeView, ktere bys mel najit na palete Win32.
Akorat si tam ty adresare musis doprogramovat sam.
Slavek
> Krystof
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Control '' has no parent window
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.1999 11:40:40
> Tvorim komponentu, odvozenou od TEdit, ktera ma obsahovat TButton. Tento
> tam umistim v constructoru. Kdyz se snazim komponenu dat na formular
> obdrzim chybu %subj%.
****Nekde si musis nastavit parenta od toho buttona.
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Zmena vlastnosti komponenty...
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 5.10.1999 08:56:11
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
nemuze mi nekdo poradit jak mohu za behu programu zmenit udaj vlastnosti (property) komponenty
tak, aby zmeneny udaj vlastnosti byl platny jiz behem nasledujiciho startu propgramu
(myslim tim platnost noveho udaje vlastnosti jiz pri vytvareni hlavniho formulare).
Predem diky vsem za odpoved
Milan Blazek
Form - prosba o upresneni
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 5.10.1999 18:37:40
Ahoj,
nebylo by mozne nam mene zkusenym uvest konkretni priklad pro Available
Form.
Popsanou funkci jsem se pokousel vyzkouset, ale nejak mi to neslo, protoze
jsem presne nevedel jak presne zapsat proceduru a kam do Projectu nebo do
Formu.
Predem diky za odpoved
Milan Blazek
-----P�vodn� zpr�va-----
Od: Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. srpna 1999 19:02
P�edm�t: Re: Form
>> Mam dojem, ze se zde o tom uz psalo, ale presto bych potreboval vysvetlit
>> jaky je rozdil, kdyz mam form umisten v kategorii AUTO-CREATE FORMS nebo
v
>> AVAILABLE FORMS. Kdy je vhodne pouzit ten, ktery zpusob.
>
>
>Auto-Create Forms neznamena nic jineho, nez ze v Project.dpr se uvadi
> Application.CreateForm(Trida, Promenna)
>pro vsechny takove dialogy, coz znamena, ze pak mohu delat
>Promenna.ShowModal apod. kdykoliv potrebuji.
>
>Prusvih je v tom, za takovym zpusobem se zejmena ve Windows 95 velmi plytva
>zdroji (resources), takze staci i kdyz mam treba 128MB pameti RAM, staci
>spustit treba tri takove aplikace a system zahltim.
>
>Dalsim efektem je to, ze cim vice je Auto-create forms, tim se aplikace
>startuje dele.
>Takze doporuji potreba dodrzovat tento zpusob
> - hlavni okna inicializovat v Auto-create forms
> - pro ostatni okna si udelat takovou funkci:
>
>function MujDlg: boolean;
>begin
> with TMujDialog.Create(Application) do
> try
> Result := (ShowModal=mrOK);
> finally
> Free;
> end;
>end;
>
>
>Pokud vsak jsou okna, se kterymi se pracuje casto, byva vyhodne obetovat
>pamet, a kdyz vytvaret je vzdy pri prvnim pouziti:
>
>const
> MujDialog: TMujDialog = nil;
>
>function MujDlg: boolean;
>begin
> if not Assigned(MujDialog) then MujDialog.Create(Application);
> Result := (MujDialog.ShowModal=mrOK);
>end;
Nacteni serioveho cisla HDD
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 5.10.1999 18:43:42
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Prosim nevite nekdo jak se da nacist seriove cislo HDD ve Win95/98..
Zrejme to bude pomoci API, ale presny zapis neznam.
Diky vsem za odpoved
Milan Blazek
Off topic
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 7.12.1999 09:33:06
Nevite, prosim, nekdo o aktivni konferenci na tema tvorba WWW stranek a HTML
vubec ?
Diky, Martin
-----------
Ing. Martin Dupal
address: Geislerova 6
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
OnMove - obracene
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 1.1.2000 03:34:03
No akorat to funguje jen s oknem. Panel i VSECHNY ostatni komponenty (ktere si
sezerou mys) se musi presvecit, ze mys nechcou.
tj. panel tam nestrkat (usetris si praci) a do EDITu prece chces kliknout ne?
:-)
procedure TForm1.WMNCHitTest(var M: TMessage);
var z,x,y:integer;
begin
inherited;
x:=loword(m.lparam); {kde zrovna klika mys}
y:=hiword(m.lparam);
if (M.Result = htClient) then
begin
M.Result := htCaption;
end
end;
Mti.
-----P�vodn� zpr�va-----
>ja jsem narazil presne na ten problem, ktaery je popsan nize.
>
>Potrebuji "chytnout" formular na kteremkoliv miste a posunout
>oknem.
>Formular je cely zakryty komponentou TPanel.
>
>Vsechno funguje "skvele", az na to odporne blikani pri
>posouvani okna.
>
>Oknem pohybuji v ramci udalosti OnMouseMove, pomoci nastaveni
>left a top formulare.
>
>Muzete mi nekdo pomoci ?
>
>Karel Vlcek
>vlcekk(zv)hotmail.com
>>procedure TForm1.WMNCHitTest(var M: TMessage);
>>var z,x,y:integer;
>>begin
>> inherited; {hehe}
>> if (M.Result = htcaption) then {kliknul na caption}
>> begin
>> M.Result := htClient; {ikdyc kliknul - budeme
>tvrdit, ze ne
>>:-) }
>> end
>>end;
Systemovy cas
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 20.3.2000 03:17:03
Ja bych na to sel pres cteni CMOS, kde ten Real Time je (viz. Tech
Help pro DOS) a pak bych zavolal settime. Protoze se to pritom zapise
zase do CMOS, chtelo by to nejakou synchronizaci se zmenou sekund.
Vaclav SAzima
Radek KALA wrote:
>
> Hi,
>
> V PC Existuje cas, ktery bezi v Real Time obvodu na MB a pri
> zapnuti se zkopiruje do pameti a bezi tam. On se ale rozchazi a
> nekdy dost. Potreboval bych jednou za nejaky rozumny cas
> provest synchonizaci a ne restartem pocitace. Vi nekdo jak na to.
>
> Diky
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Mostecka 15, 614 00
> tlf. : + 420 5 4555 1269
> fax : + 420 5 4521 1501
> GSM : + 420 603 85 75 15
FlashFiler - zkusenosti ?
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 24.6.2000 12:43:01
Kdyz uz tak hrozne propagujes DBISAM - nebylo to tu receno naplno - je
nebo neni DBISAM plnohodnotne CLIENT/SERVER reseni ? Protoze jestli mas
proti FF jen tu dvoji kompilaci, tak je to opravdu sranda. Nehlede na
to, ze muzes dat KAZDEMU zakaznikovi CLIENT/SERVER verzi (pokud to
nerozlisujes z obchodnich - a tedy financinich - duvodu). Ten Server
program je totiz velmi kratky. Nezij ve vidine mnohaMB instalace.
Mira
----- P�vodn� zpr�va -----
Od: Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 24. �ervna 1999 12:22
P�edm�t: Re: FlashFiler - zkusenosti ?
> To je prave ten problem, ze pozadavky na tvuj program se meni od
uzivatele k
> uzivateli (a podle zakona schvalnosti kazdeho pul roku), coz te donuti
> vytvaret a distribuovat tvou aplikaci ve 2 verzich. Takze shrnuto a
> podtrzeno, pokud nechcete vytvaret kazdy program 2x a otravovat sebe i
> uzivatele, radeji misto FlashFileru pouzijte DBISAM.
>
> M.
IntelliMouse v Delphi
[*] Jan Macej <jasencak(zv)ssl.sk> - 27.10.2000 08:18:50
Ano je to tak, stiahol som a funguje.
Dakujem vsetkym
Jan
----------
> Odes�latel: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: IntelliMouse v Delphi
> Datum: 24. okt�ber 1998 19:00
>
> > Kdyz se nainstaluje nova verze ovladace IntelliMouse tak to kolecko funguje
> > uz u vsech aplikaci, nejen u tech co s nim uz pocitaji. Stahuje se z
> > Microsoftu ma asi 1.2 mega.
>
> Ano, to je pravda, to jsem si vlastne neuvedomil, kdyz jsem
> odpovidal na ten dotaz. Vzdyt ja uz ten novy driver mam
> take nekolik mesicu na instalovany...
>
> 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
> Tvorba menu za behu programu
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 10.8.2001 02:00:34
Ahojte
V programu vytvarim cast menu a predem nevim jak bude vypadat.
Dokazu zavolat metodu OnClick spolecnou pro vsechny nove vytvorene
polozky menu. Problem mam se zjistenim, ktera polozka byla vybrana.
V knize "Mistrovstvi v Delphi 2" je napsano, ze mam pouzit parametr
Sender, bohuzel nevim jak.
Poradte, diky
Standa C.
Tvorba menu za behu programu
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 10.8.2001 23:01:15
Dekuji Vam
Nakonec jsem pouzil toto jednoduche reseni a funguje to perfektne.
Standa C.
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 10. srpna 1998 9:33
P�edm�t: Re: Tvorba menu za behu programu
Zajimave reseni, ale treba bude stacit toto
procedure TForm1.MenuItemClick(Sender: TObject);
var MenuItem: TMenuItem;
begin
if Sender is TMenuItem then // zjisteni, zda Sender je typu
TMenuItem
begin
MenuItem := TMenuItem(Sender); // pretypovani na TMenuItem
{ rozliseni podle nazvu }
if MenuItem = NejakeMenuItem then
.... zpracovani pro konkretni polozku menu
{ nebo rozliseni treba podle caption }
if MenuItem.Caption = 'Soubor...' then
... zpracovani pro polozku menu Soubor
end;
end;
prkotina s komponentou TEDIT
[*] J�n Kuch�r <kuchar(zv)tuke.sk> - 1.4.2003 14:06:22
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute,
mam celkom maly problem. Vec sa ma nasledovne. V nejakom programe stlacim
komponentu TBUTTON a potrebujem, aby sa mi kurzor umiestnil do mnou urcenej
komponenty TEDIT. Ako to urobit pri starte programu to viem ( vo vlastnostiach
komponenty nastavim TabOrder=0), ale ako to urobit pocas behu programu to uz
neviem.
Diky
Index of column name
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.5.1998 11:22:29
Prajem prijemny den.
Nevie niekto poradit, ako v D3 zistit podla titulku stlpca DBGRID-u
index ("poradove cislo") prislusneho stlpca ?
O co ide:
Mam string obsahujuci titulok niektoreho zo stlpcov.
Chcem zistit, ktory stlpec to je a nastavit mu nejake property.
Nieco ako "FieldByName" pre DBGrid.
Vdaka.
Peter
Neviditelny HandPoint cursor nad Image objektom.
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.5.1998 16:35:44
V D3 mam TImage objekt umiestneny na TPanel.
Ak nastavim Cursor property na crHandPoint, kurzor nevidno.
(viditelne su iba niektore typy kurzorov).
Je jedno, ci property nastavujem v TImage alebo TPanel.
Neviete, nahodou, kde by mohol byt zakopany pes?
Vdaka.
Peter
Miznuci kurzor nad TImage objektom.
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 16.5.1998 22:30:29
Uz som sa raz pytal, ale asi to zapadlo.
Chcem mat nad TImage objektom kurzor typu
cr HandPoint. Ked vsak objektu tuto property
nastavim, kurzor nad nim zmizne. Uz som skusal
vsetko mozne.
Nevie niekto poradit?
Peter
Delphi 4.0 & MS SQL 7.0
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 14.9.1998 07:16:11
Hladam informacie o spolupraci %subj% inak povedane How To Start. Najlepsie niekde na Webe.
Diky
Problem s proxy
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 30.9.1998 19:21:32
Skus
FTP.HostName := proxy
FTP.Port := teraz neviem ci tam ide 21 alebo port proxy
FTP.Username:= user(zv)server
FTP.Password:= password
kde
proxy je adresa proxy servera
user je login name na ftp serveri
server je adresa ftp servera
password je heslo na ftp serveri
problem nastane ak proxy nepovoluje pristup touto metodou (je odskusana a
chodi) inac moznych sposobov prechodu cez proxy je aspon podla mojho odhadu
asi tak 9
----- Original Message -----
From: Petr Slovak <petr(zv)trilog(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, September 30, 1999 9:36 AM
Subject: Problem s proxy
> Pro pristup k FTP pouzivam FTP komponentu z baliku Internet Component
Suite od F.Pietta. Mam Delphi 2.
> Normalne mi program funguje, ale mam problemy s pripojenim pres proxy.
> V baliku je HTTP komponenta, ktera ma property proxy, proxyport. Kdyz to
nastavim, tak HTTP krasne funguje pres proxy, ale u FTP komponenty nic
takoveho neni a nepodarilo se mi to nijak rozchodit.
> Jde to nejak jednoduse s timto balikem komponent?
> Nebo uvitam i doporuceni jine FTP komponenty, ktera to bude umet.
>
> Diky
>
> ==============================
> Ing. Petr Slovak
> e-mail: petr(zv)trilog(tec)cz
> url: http://www.trilog(tec)cz
> tel: 0603 / 501 642
> SMS: +420603501642(zv)sms.paegas(tec)cz
> ==============================
>TLabel.OnMouseOver
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 30.9.1998 20:08:55
Chcem aby pri najazde kurzoru zmenil TLabel farbu fontu a pri odjazde kurzoru vratil povodnu. akurat ze TLabel ma iba onMouseOver. Ako na to (co najjednoduchsie plz)
Dik
Kazdy formular jinak
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.5.1999 22:45:33
Slavek Rydval wrote:
>
> Ahoj,
>
> > http://www.borland.com/devsupport/delphi/downloads/index.html
> >
> > V tom prikladu (on je puvodne pro D3) si pak uprav priponu balicku na
> > *.bpl
> Vyzkousel jsem to, ale nejak jsem to nerozdychal. Neustale me to
> obtezuje errorem: ,,Can't load package Addin. Byl ucinen pokus
> nacist program nespravneho formatu.`` Prejmenovani nepomohlo,
> kdyz to natahnu do Delphi, pak dostanu zminovanou hlasku.
>
> Co je spatne?
Ahoj,
Podle toho popisu to vypada, ze jsi pouzil ten prelozeny balicek z
toho prikladu v jine verzi Delphi. Musis znovu prelozit i addin.dpk
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Problem s BlockWrite
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 2.6.1999 16:04:48
Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> wrote:
>> 5 = ACCESS_DENIED
> ****Kde mam najit tyto vysvetleni?
Napr. v SDK Win32 v prilohach "Numerical List of Error Codes" a
"Alphabetical List of Error Codes", ale pro zakladni orientaci by Ti stacilo
nahlednout napr. do zdrojovky unit WINDOWS.PAS a vyhledat v ni definice
konstant s prefixem ERROR_xxxxxxxx, napr. ERROR_ACCESS_DENIED.
Bye, pf
Screensaver
[*] Josef ��P����*?j�Z��3 - 11.9.1999 12:08:40
Chtel bych se zeptat kde se do registru
ukladaji informaci o screensaveru.
Jedine co jsem nasel bylo v system.ini jmeno setrice.
Ale ja bych potreboval i cas a nastaveni vlastnosti setrice
Diky za odpoved.Kde sehnat komponentu s adresarovym stromem z pruz
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 11.9.1999 12:22:09
Ahoj,
kdysi jsem to taky potreboval a Petr Vones mi odpovedel. Tady jsou
adresy, kde to najdes.
-------------------------
Existuji na to ale jiz hotove komponenty:
http://www.gexperts.com/GXExplorer/
http://www.plasmatech.com/shellctl.htm
--
Honza Naiser.
----- P�vodn� zpr�va -----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 11. z��� 1999 11:35
P�edm�t: Re: Kde sehnat komponentu s adresarovym stromem z
pruzkumnika?> > Netusi nekdo, jak ziskat komponentu s adresarovym stromem tak, jak
je
> > zobrazen v pruzkumniku nebo v SHBrowseForFolder? Nejak to urcite
pujde,
> > protoze treba Winzip 7 ji na 100% pouziva (kdyz date extract, tak
ji nekde
> > uprostred okna uvidite). Ze by pres ActiveX?
> ****Je to normalni TreeView, ktere bys mel najit na palete Win32.
> Akorat si tam ty adresare musis doprogramovat sam.
>
> Slavek
>
> > Krystof
>
>
> ----------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------
Doporu�te knihu
[*] Martin Pesek <pesek.martin(zv)telecom(tec)cz> - 11.9.1999 12:35:50
Zdravim !!!
> > pro zacatek je prima tohle:
> > Todd Miller, David Powell: Mastering Delphi 3 (je i v cestine:
Mistrovstvi
> > v Delphi 3)
> ****V tom se s Tebou neshodnu. Ta kniha je dle meho nazoru pro
> vice pokrocile programatory, navic je psana dost (reknem) zvlastnim
stylem.
> Osobne bych ji nikomu nedoporucoval, prijde mi spatna. :-( Ale
> kazdemu prijde vhod neco jineho.
A v tomhle se s Vama budu hadat. Podle me je ta kniha velmi dobre napsana.
Jsem zacatecnik a kniha mi velmi pomoha ve vsech smerech !!! Ja bych ji teda
doporucil uplne vsem lidem.
Martin Pesek, 15-ti lety amatersky programator
E-Mail:
pesek.martin(zv)telecom(tec)cz
TImage - blikani
[*] Martin Pe�ek <pesek.martin(zv)telecom(tec)cz> - 11.9.1999 13:19:14
Zdravim !!!
Mam problem (kdo taky ne, ze ;)) s komponentou TImage. Mam par obrazku ve formatu BMP, ktere po urcitem intervalu postupne zobrazuji (tak aby vznikla animace). Kdyz je nastaven TRANSPARENT na FALSE, tak je vse v poradku a prehravani je bez blikani. Kdyz vsak nastavim TRANSPARENT na TRUE, tak to pri prehravani blika. Nevi nekdo jak se mam toho zbavit ??? Predem dekuji.
Martin Pesek, 15-ti lety amatersky programator
E-Mail:
pesek.martin(zv)telecom(tec)cz
Doporu�te knihu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.9.1999 17:10:56
Slavek Rydval wrote:
> > Doporu�te, pros�m dobrou knihu o Delphi 4.
> ****Tom Swan: MS v D4. Docela se mi zamlouva (ale pozor, ma to
> pomalejsi styl vykladu).
A obcas keca...
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
Doporu�te knihu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.1999 17:32:52
> > > Doporu�te, pros�m dobrou knihu o Delphi 4.
> > ****Tom Swan: MS v D4. Docela se mi zamlouva (ale pozor, ma to
> > pomalejsi styl vykladu).
>
> A obcas keca...
****Tak to snad kazdy autor -- v kazde knize se najdou chyby nebo
veci, ktere lze udelat jinak. Zatim (!) jsem ale nenasel zadnou
vylozene brutalni chybu.
Kdyz jsme u tech knih, mam jednu perlicku. Delal jsem recenzi na
Delphi 4 - Kompletni kapesni pruvodce (jedna z nejhorsich knih, co
jsem kdy cetl) a tam je uvedeno, ze nelze prelozit (samozrejme
v D4) datovou strukturu vetsi nez 64 kilo. Za tohle by mela Grada
zakaznikum vracet penize.
Slavek
> Zbysek Hlinka
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Vsechny prispevky z teto konference pro KonfView
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.1999 17:59:02
Preji vsem pekneho dne,
pred par dny tu bezela diskuse o archivu konference a o prohlizeni
off-line. S prvnim vysledkem prisel Petr Vaclavek a uvolnil pro
pouzivani prihlizec a dokonce fulltextovy vyhledavac (booleovsky
model) s nazvem KonfView
(http://atrey.karlin.mff.cuni(tec)cz/~bla/konfview.sh
tml). Ackoliv ma jeste par chyb, necha se na prohlizeni a
vyhledavani pouzivat.
Ja jsem (konecne) vysosal vsechna data, co z teto konference
mam (28 741 prispevek), prevedl je v KonfView do databaze (aby
ste to nemuseli delat vsici, je to na dlouho) a umistil na ftp teto
konference (ftp.mlp(tec)cz) s nazvem DataProKonfView.zip. Ma to
kolem 24 MB. Staci archiv stahnout, rozbalit a zacit pouzivat.
Pokud se najde dost lidi (aspon 10), kteri mi SOUKROME napisi,
ze chteji dostavat archiv za kazdy dalsi mesic, budu tam umistovat
vzdy zacatkem mesice TXT soubor (v ZIPu) za uplynuly mesic,
ktery si pak jiz kazdy snadno v KonfView prevede. Tedy treba
zacatkem rijna tam dam prispevky za zari (krome tech, ktere jsou
tam jiz ted, soubor jsem generoval dnes dopoledne).
Jakekoliv dotazy ohledne archivu zodpovim, dotazy ohledne
KonfView smerujte na Petra Vaclavka.
Preji prijemne pouzivani a vyhledavani.
Slavek
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
QuickReport a QRExpr
[*] Jirka Virt <virt(zv)volny(tec)cz> - 11.9.1999 18:31:21
Ahoj,
resim problem pri tisku z QReportu.
Potreboval bych do reportu v polozce QRExpr.Expression zadat tuto podminku:
IF((Query1.cislo > 30) AND (Query1.cislo < 120),castka,0)
tzn: je-li cislo v rozmezi 31..119 vytiskni castku, jinak tiskni nulu.
Vubec mi to nepocita.Treba je chyba v "notovem zaznamu"?
Staci, kdyz dam:
IF(Query1.cislo < 120,castka,0)
a funguje to dobre, akorat v celem rozsahu.
Neresil jste nekdo neco podobneho? V napovede nic nepisou.
Diky za jakoukoli odpoved
Jirka Virt
email: virt(zv)volny(tec)cz
Ako sa da odhlasit z tejto konferencie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.9.1999 19:31:27
Miro Mrazik wrote:
>
> Zdravim vas,
>
> mam prosbu trochu mimo. Potrebujem tuto adresu na ine ucely a chcem sa
> odhlasit z tejto diskusnej skupiny a potom sa do nej prihlasit z inej
> E-mailovej adresy mozte mi pomoc ako na to?
Ahoj,
Nejjednodussi to mas pres http://www.delphi(tec)cz (ktery ted ovsem zrovna
nejde :-) a tam najdes formular na prihlaseni/odhlaseni.
--
Petr Vones, amatersky programator
Doporucte knihu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.9.1999 19:33:13
Zbysek Hlinka wrote:
>
> Slavek Rydval wrote:
>
> > > Doporu�te, pros�m dobrou knihu o Delphi 4.
> > ****Tom Swan: MS v D4. Docela se mi zamlouva (ale pozor, ma to
> > pomalejsi styl vykladu).
>
> A obcas keca...
Ahoj,
Dobra je "Delphi 4 Unleashed" (pokud ti nevadi anglictina) od Ch.Calverta,
samozrejme i tam jsou drobne chybicky. Co do obsahu, je uz spis pro mirne
pokrocile. Ono je vubec nutny pocitat s tim, ze v cestine bude literatury
malo. Na cteni tehle knizek neni treba umet anglicky jak Dana Habova :-),
vystacis si s podstatne jednodussim slovnikem ...
Z ceskych temer zadnou detailne neznam, pro zacatecniky byvaji dobre ty od
Marca Cantu. Problemem taky nekdy byva kvalita prekladu. Ted jeste vychazi
v nekolika dilech na pokracovani preklad nejake knihy, na nazev si ale
nevzpomenu. Preklada ji ale tusim Vlada Bodecek, takze v tomto pripade by
to melo byt dobre.
BTW:
Jeste k tem prekladum. V jedne knize je kapitola prelozena jako "Naockovani
knihovny pomoci zavesu oken". Zkuste tuhle vetu rict nekomu, kdo nevi temer
nic o pocitacich ... :-))
nebo SHLoadInProc: "Vytvori instanci specifikovane tridy zevnitr kontextu
procesu prostredi." Ono je to sice prelozeno vecne spravne, ale zni to
strasne vedecky ...
--
Petr Vones, amatersky programator
vlozeni IE do programu; html prilikovane do progra
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 11.9.1999 21:16:48
ave Krystofe !
K dotazu jedna, pokud mas D4 pak v menu [Component], je [Import ActiveX
Control] a
v ni si pak vyberes [Microsoft Internet Controls] a zmacknes [Install]
do zalozky ActiveX
se ti vlozi komponety WebBrowser.
K dotazu dva nevim, a nejsem si jist jestli Exploreri res:// znamena
resource,
tak jak ho zname mi Dlphisti.
bye
Pavel
> Mam dva dotazy:
> 1) Nevi nekdo, jak vlozit IE do jineho programu jako komponentu? Asi to bude
> pres ActiveX, ale jak presne, to nev�m. Vsiml jsem si, ze WinAmp 2.23 neco
> takoveho dela (MiniBrowser).
> 2) Jak prilinkovat html kod jako zdroj k programu? Byl by to idealni zpusob
> jak pribalit help - siril by se pouze jeden soubor. IE k takto prilinkovanym
> souborum pristupuje pres res://<jmeno programu>/<jmeno zdroje se souboren>
> (takto IE ma ulozeny treba chybove hlasky).
>
> Thanks for help.
> Krystof
Voice modem library
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 11.9.1999 21:42:06
Hello Petr!
>> Kludne si ho urobim sam, ale voice komponenty AsyncPro mi na moj voice
>> modem SupraExpres 336i PnP Voice (F) hlasia, ze nie je voice.
> To je zvlastni, ja podobny modem kdysi mel (336i Sp) a tam
> ty voice funkce fungovaly. Zkousel jsi to s nejakym hotovym
> programem ?
Iba s \AsyncPro\Examples\Delphi\ExRecord.dpr
Dokonca som kvoli tomu vymenil modem, teraz mam Rockwell HCF 56k
SpeakerPhone PCI Modem a hlasi to presne to iste: raised exception class
ETapiVoiceNotSupported.
> Neni to spis tim, ze je ten modem nejak spatne naistalovany?
Vsetko ostatne funguje.
> Pokud mas W95 tam tam je potreba
> provest upgrade unimodem driveru.
To sa robi ako?
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Doporu�te knihu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 11.9.1999 22:05:55
Ahoj,
> A v tomhle se s Vama budu hadat. Podle me je ta kniha velmi dobre napsana.
> Jsem zacatecnik a kniha mi velmi pomoha ve vsech smerech !!! Ja bych ji
> teda doporucil uplne vsem lidem.
****Nejsme tu od toho, abysme se hadali. Kazdy rikame svuj nazor
a ten, kdo si ji (ne)chce koupit, si muze udelat o te knize nejaky
obrazek. Ja osobne bych tu knihu s necistym svedomim doporucil
mirne pokrocilemu delphistovi bez znalosti anglictiny. Ale jak
rikam, kazdy mame svuj nazor a nema cenu si je tady vyvracet. :-)
Pokud Ti poslouzila, jsem rad.
Slavek
> Martin Pesek, 15-ti lety amatersky programator
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
Voice modem library
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.9.1999 01:57:56
Puvodni zprava, kterou napsal Viliam Mlich dne 8 Sep 99,:
> Kludne si ho urobim sam, ale voice komponenty AsyncPro mi na moj voice
> modem SupraExpres 336i PnP Voice (F) hlasia, ze nie je voice. Este som
Async Professional umi pracovat voice, ale jen pres TAPI. Pokud modem
podporuje TAPI, musis mit nainstalovany ovladac TAPI, pak to bude
chodit.
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
vlozeni IE do programu; html prilikovane do progra
[*] Hynek Svato� <svatos(zv)af(tec)czu(tec)cz> - 12.9.1999 09:15:57
> K dotazu dva nevim, a nejsem si jist jestli Exploreri res:// znamena
> resource,
> tak jak ho zname mi Dlphisti.
Myslim ze ano, protoze napr. VC++ 6.0 ma primo zabudovanou podporu HTML ve
zdrojich RES.
==== Hynek Svato� ====
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
===================Kde sehnat komponentu s adresarovym stromem z pruz
[*] Krystof Hoder <hoder(zv)seznam(tec)cz> - 12.9.1999 11:10:11
Pryve ty adresare jsou to co shanim. Ale i tak dik.
Krystof
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 11, 1999 11:35 AM
Subject: Re: Kde sehnat komponentu s adresarovym stromem z pruzkumnika?> > Netusi nekdo, jak ziskat komponentu s adresarovym stromem tak, jak je
> > zobrazen v pruzkumniku nebo v SHBrowseForFolder? Nejak to urcite pujde,
> > protoze treba Winzip 7 ji na 100% pouziva (kdyz date extract, tak ji
nekde
> > uprostred okna uvidite). Ze by pres ActiveX?
> ****Je to normalni TreeView, ktere bys mel najit na palete Win32.
> Akorat si tam ty adresare musis doprogramovat sam.
>
> Slavek
>
> > Krystof
>
>
> ----------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------
>TImage - blikani
[*] Kry�tof Hoder <hoder(zv)seznam(tec)cz> - 12.9.1999 11:32:15
Blikani je zpusobeno potrebou vykreslit pod obr�zkem pozad� - toho ve v TImage asi nezbavis. Bud to kresli primo pres canvas nebo si napis vlastni image, kteri si pred vykreslenim nekam ulozi pozadi a obrazek vlozi na pozadi jeste predtim, nez jej vykresli na obrazovku.
Asi takto:
var
tmp:TBitmap
begin
tmp:=TBitmap.Create;
tmp.width:=sirka;
tmp.height:=vyska;
tmp.canvas.draw(0,0,pozadi);
tmp.canvas.draw(0,0,obrazek);
canvas.draw(0,0,tmp);
end
----- Original Message -----
From: Martin Pe�ek
To: delphi-l(zv)fwd(tec)cz
Sent: Saturday, September 11, 1999 1:19 PM
Subject: TImage - blikani
Zdravim !!!
Mam problem (kdo taky ne, ze ;)) s komponentou TImage. Mam par obrazku ve formatu BMP, ktere po urcitem intervalu postupne zobrazuji (tak aby vznikla animace). Kdyz je nastaven TRANSPARENT na FALSE, tak je vse v poradku a prehravani je bez blikani. Kdyz vsak nastavim TRANSPARENT na TRUE, tak to pri prehravani blika. Nevi nekdo jak se mam toho zbavit ??? Predem dekuji.
Martin Pesek, 15-ti lety amatersky programator
E-Mail:
pesek.martin(zv)telecom(tec)cz
Doporu�te knihu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.9.1999 12:08:32
Slavek Rydval wrote:
> > > > Doporu�te, pros�m dobrou knihu o Delphi 4.
> > > ****Tom Swan: MS v D4. Docela se mi zamlouva (ale pozor, ma to
> > > pomalejsi styl vykladu).
> >
> > A obcas keca...
> ****Tak to snad kazdy autor -- v kazde knize se najdou chyby nebo
> veci, ktere lze udelat jinak. Zatim (!) jsem ale nenasel zadnou
> vylozene brutalni chybu.
Az tak detailne jsem to necetl, ale vylozenou blbost jsem take
nenasel. Nicmene me zarazil vyzdvihovanim DDE a naprostym
mlcenim kolem COM, CORBA, MIDAS. Ale pro zacatecniky je to
myslim dobre, pokud si budou davat pozor na to, co ctou.
> Kdyz jsme u tech knih, mam jednu perlicku. Delal jsem recenzi na
> Delphi 4 - Kompletni kapesni pruvodce (jedna z nejhorsich knih, co
> jsem kdy cetl) a tam je uvedeno, ze nelze prelozit (samozrejme v D4)
> datovou strukturu vetsi nez 64 kilo. Za tohle by mela Grada zakaznikum
> vracet penize.
Mno, on Swan take tvrdi, ze na Delphi 4 staci 386. :-)))) Strana X,
Pozadovane vybaveni.
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
ACCESS a obrazky
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:14:36
Ahoy,
mozno to bude zniet cudne, ale nebolo by jednoduchsie chovat obrazky v
zvlast
adresari, takze by neboli v databaze? Bol by tam iba odkaz na subor.
Ivan
suvak(zv)pbko.sk wrote:
> Ahojte,
>
> Do accesovskej databazy ukladam obrazky bmp a jpeg. Pri ich zobrazovani
> vsak nastava problem. Spravne sa zobrazi len horna tretina obrazku (velkost
> spravne zobrazenej plochy zavisi od velkosti ulozeneho obrazku. Uplne male
> obrazky sa zobrazuju korektne). Zvysok obsahuje zvisle pasy (dovolim si
> prilozit vzorku, viem, ze sa to v konferencii nesmie, bohuzial, neviem to
> vsak inac
> popisat a prilozeny obrazok je iba 13 KB velky, dufam, ze mi odpustite). Na
> ich
> zobrazenie pouzivam TImage, do ktoreho to priradujem cez .Picture.Assign,
> ak
> to vyvola vynimku, predpokladam ze ide o jpeg a nahravam to cez stream.
> Na pripojenie pouzivam ODBC, pretoze aplikacia bude bezat na pocitacoch,
> kde nie je instalovany ACCESS. Mam Delphi 4CS sp.3, BDE v. 5.01,
> ODBC Microsoft Access Driver (*mdb) v. 4.00.3711.08.
> Podotykam, ze obrazky su v databaze ulozene spravne, v SQL Exploreri
> cez
> BLOB viewer su zobrazene spravne. Takisto som cez DataPump prekonvertoval
> databazu do Paradoxu, a na zobrazenie pouzil ten isty algoritmus a bolo to
> OK.
>
> Pomozte prosim!!!
>
> =============================================================
> 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
> =============================================================
>
> (See attached file: Obrazok.jpg)
>
> ------------------------------------------------------------------------
> Name: Obrazok.jpg
> Obrazok.jpg Type: JPEG Image (image/jpeg)
> Encoding: base64
> Description: JPEG File Interchange
Click
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:14:45
Ahoy,
da sa to s pouzitim API mouse_event.
Ivan
Petr Voborn�k wrote:
> Nevite nekdo, jakym prikazem primeju windows, aby si myslel, ze nekdo
> kliknul mysi? Pitr - Petr Vobornik
> MIKMIK company
> vobornik(zv)ssakhk(tec)cz
> ICQ# 23132120
> www.ssakhk(tec)cz/home/vobornik/DBGrid
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:14:50
Ahoy,
v RX Library je Grid, ktory prave toto umoznuje.
Ivan
Tibor Galik wrote:
> Ahoj,
>
> Rad by som niekoho poziadal o pomoc.
>
> Potreboval by som v DBGride na zaklade urcitej podmienky vykreslit 1 alebo vaic riadkov inou podkladovou farbou. Urobil som to pri udalosti OnDrawColumnCell takto:
>
> procedure TDlgObjenavky.DBGrid1DrawColumnCell(Sender: TObject;
> const Rect: TRect; DataCol: Integer; Column: TColumn;
> State: TGridDrawState);
> begin
> if DBGrid1.DataSource.DataSet.FieldValues['Stav objedn�vky']=5 then
> begin
> DBGrid1.DefaultDrawing:=false;
> column.color:=clred;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> else
> begin
> DBGrid1.DefaultDrawing:=true;
> column.color:=clInfoBk;
> DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
> end
> end;
>
> Vysledok? Zaznam, ktory vyhovuje sa prekresli (vlastne ten nasledujuci ), ale cely grid s obsahom preblikuje. Ked vsak sa presuniem na miesto, kde taky zaznam neexistuje blikanie zmizne.
>
> Nemusim to riesit prave tak. Ak ma niekto iny napad ako zvyraznit ten ktory zaznam bol by som rad, keby sa onho podelil.
>
> Diky
>
> tg
>
> Zdravim Vas/Regards
>
> Tibor Galik
> tgali(zv)vsz.sk
Delphi - VB
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:14:54
Ahoy,
>Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
>do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
>jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++ (tj.
>rychlejsi nez Delphi),
Ten pseudo kod, to bude zrejme OBJ, lebo iba ten vedia zlinkovat ine
linkery.
Ale to by potom vedel zlinkovat napriklad aj Turbo Link. Ale preco by
potom
Microsoft nedodal vlastny linker?
Okrem toho sa mi nezda, ze by optimalizacia prebiehala na urovni OBJ. VB
bol
navrhnuty tak, aby bol jednoduchy. Zial, jednoduchost a rychlost sa v
pripade
programovacich jazykov vylucuju.
Ivan
Hynek Svatos wrote:
> > Vzhledem k tomu, ze Delphi ma dnes dobry optimalizovany
> > prekladac a k tomu, jak pracuje VB (hromada externich ActiveX),
> > predpokladam, ze uz z podstaty bude nativni kod VB pomalejsi.
> > Myslim, ze testy to jen potvdi, je jen otazka, jak velky rozdil to
> > bude.
>
> No ja nevim ale ja bych zase na borlandi kompilatory nepel takovou slavu.
> Moje skusenosti jsou nyni spise horsi. Jednak mi pripada, ze Delfi kod neni
> zase takovy rychlik, programy jsou velke a co se tyce chybovosti kompilatoru
> (a celych Delf), o te tu jiz par prispevku taky padlo. Napriklad se mi dost
> casto stava, ze mi program nelze zkompilovat, hazi to jakesi SYS chyby
> kompilaoru v System.pas atd. - po restartu Delphi je to ok.To ani nemluvim
> o tom ze ukoncit Delphi bez Acces violation je uz jen me zbozne prani, to je
> ale zase jina kapitola ...
>
> Nekde jsem cetl, ze kompilace VB prochazi dvema fazema a to kompilace
> do jakehosi pseudo kodu, na ktery se potom postve C++ compiler se vsemi
> jeho vyhodami. Takze vysledny kod je stejne rychly jako program z VC++ (tj.
> rychlejsi nez Delphi),
> zpomaleni celeho programu zpusobuji jen natahovani ActiveX.
> Nevim, mozna ze moc ctu ... :-)
>
> ==== Hynek Svatos ====
> svatos(zv)kam(tec)czu(tec)cz
> svatos(zv)af(tec)czu(tec)cz
> ===================
>
> > Mam vsak jeste jednu dalsi pripominku k VB - programy v nem
> > napsane nelze rozumne lokalizovat. Formulare z VB se kompiluji
> > primo do kodu, takze z tohoto bince nelze vytahnout texty, prelozit
> > je a vratit zpet. Tohle by nemuselo vadit, pokud program pobezi
> > vyhradne v jednojazycnem prostredi. Ale staci par zakazniku ze
> > Slovenska, napriklad, a problemy se ihned projevi - lokalizace je
> > nutne udrzovat budto primo v programu, nebo je porad tahat zvenci
> > z nejakeho souboru (a tam je pracne udrzovat). Dalsi problem
> > nastane s prvky ActiveX. Tam mohou byt nejake texty, ktere se
> > objevi v puvodnim jazyce. Pokud je navic takovyto modul napsany
> > prasacky, s texty primo v kodu, tak bez zdrojaku s tim nikdo
> > nehne. A i kdyby byly texty v resourcech, je to houby platne,
> > protoze zpravidla by bylo nutne nacpat preklady primo do nej, coz
> > zase obvykle nelze z hlediska autorske ochrany a kompatibility.
> > Pro tyto pripady mi pripada Delphi (a C++ Builder) idealni, protoze
> > se standardne rozhlizi kolem sebe po externich souborech s
> > preklady. Takze lze vyrobit preklad i k cizimu programu, aniz bych
> > porusil autorska prava.
> >
> >
> > 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
E-mai z programu - D3, D4
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:15:04
Ahoy,
v Delphi 3 su nejake dema na POP3 a SMTP, ved tam predsa je paleta
Internet.
Musis ale dat pozor, lebo to robia ActiveX komponenty a tie musis u
koncoveho
pouzivatela nainstalovat a zaregistrovat.
Ivan
Honza Jochman wrote:
> Zdravim vsechny Delphiny,
>
> potrebuji aby program umel posilat a prijimat E-maily. Nikdy jsem nic
> takovyho nedelal. Existuji nejake levne komponenty ( nejlepe free... - je to
> pro nekomercni ucely ), ktere by to resily ?
>
> Diky Honza Jochman
OFT: Scanovani formulare
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:15:32
Ahoy,
ja by som sa najprv na ten formular pozrel s WinSightom alebo MS Spy++.
Je mozne, ze jednotlive objekty su typu podobnemu Static, maju handle a
potom ich obsah precitas lahko.
Ivan
Pavel Junek wrote:
> Zdravicko vsem,
>
> nemate tu nekdo zkusenosti se scanovanim formularu. Jde o to , ze je
> potreba z predem definovaneho formulare vyzobat data (hlavne cisla) a
> ulozit je do nejake datove struktury pro dalsi zpracovani.
>
> Neumi neco takoveho nektery z OCR programu?
>
> Dekuji za kazdy tip.
>
> Pavel
Milanovi - Zmena vlastnosti komponenty...
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:15:22
Ahoy,
Urob ti takto: musis mat niekde rutinu, ktora Ti zisti, ci zakaznik
zadal
spravne instalacne cislo. Cislo niekam zasifruj a uloz. Pri starte
programu
potom toto cislo nacitaj a skontroluj svojou rutinou. Bohuzial, tak ci
tak si
ten subor niekto bude vediet skopirovat.
>Proto se mi nehodi, aby se zmena vlastnosti ukladala do
>jakehokoliv souboru, protoze i kdyz tento soubor zasifruji tak staci, aby si
>potencionalni zakazn�ci zjistili, ktery soubor se pri zadani spravneho
instalacniho cisla
>zmeni
Ano, to je jasna vec. Aj seriove cisla sa daju nelegalne sirit.
Najistejsie
bude, ak sa u kazdeho zakaznika vygenerujes jedno nahodne cislo. To Ti
potom
zakaznik posle, Ty to cislo zasifrujes podla nejakeho hesla a posles
jeho
zasifrovanu podobu zakaznikovi. Zakaznik toto cislo vlozi do programu..
V tvojom
programe bude rutina, ktora urobi to iste: zoberie si nahodne cislo,
zasifruje
ho tym istym heslom (ako si ho sifroval Ty u seba) a vysledok porovna.
Ak sa
oba retazce zhoduju, tak bolo zadane korektne seriove cislo.
Poviem Ti rovno, nie je to moc jednoduche, budes sa s tym musiet pohrat.
Ja som
take sice robil, ale to bolo uz davno a nepamatam si celkom dobre, ako
som to
robil. Treba tiez pripomenut, ze variant s nahodnym cislom je technicky
dost
narocny. Ak urobis chybu, nebude to poriadne fungovat ani u zakaznika,
ktory si
program legalne kupil. A bud si isty, ze sa poriadne nastve. Ja osobne
by som
pouzil system a la RAR: meno uzivatela a serial no. Ak totiz budes
pouzivat
variant s nahodnymi cislami, po kazdej reinstalacii systemu si od Teba
bude
musiet zakaznik vypytat nove cislo. A co ked budes prave vtedy chory,
alebo na
dovolenke?
Aky program robis? Bude to share? Ak nie, mozno by bolo lepsie pouzit HW
kluc...
Milan Bla�ek wrote:
> Ahoj Ivane,
>
> potrebuji menit pouze vlastnost False za True u komponenty, kde je vlastnost
> published. Protoze pouzivam komponentu, ktera mi umoznuje na zaklade
> vlastnosti
> False zajistit , ze aplikace je casove omezena a pri vlastnosti True je
> aplikace bez
> jakehokoliv omezeni . Vlastnost se meni z False na True pri zadani spravneho
> instalacniho kodu.Proto se mi nehodi, aby se zmena vlastnosti ukladala do
> jakehokoliv
> souboru, protoze i kdyz tento soubor zasifruji tak staci, aby si
> potencionalni
> zakazn�ci zjistili, ktery soubor se pri zadani spravneho instalacniho cisla
> zmeni
> a pak si tento soubor proste budou prekopirovavat a nemusi nijak desifrovat
> zakodovane hodnoty.
>
> Predem diky za jakekoliv napady.
>
> Milan Blazek
> mbsint(zv)telecom(tec)cz
>
> -----P�vodn� zpr�va-----
> Od: Ivan Zernovac <ivan(zv)gratis.sk>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 9. z��� 1999 10:50
> P�edm�t: Re: Zmena vlastnosti komponenty...
>
> >Hi,
> >
> >ano da sa vytvorit vlastny binarny format, ale to je podla ma zbytocne
> >zlozite. Ake udaje ukladas? Ak su to povedzme cisla, a ty potrebujes
> >ulozit
> >cislo 100, odcitaj z neho povedzme 50 - primitivne sifrovanie. (V subore
> >teda bude 50).
> >Ked potom hodnotu 50 nacitas, pridaj k nej zase 50 a budes mat 100.
> >Alebo
> >XORuj.
> >Ked sa Ti niekto bude vrtat v subore, hodnoty sice bude viediet zmenit,
> >ale
> >narobi tam pekny chaos. Ak robis s retazcami, mozes pouzit ten sifrovaci
> >komponent. Alebo ich proste zakoduj Base64.
> >
> >
> >Ivan
> >
> >
> >Zbysek Hlinka wrote:
> >
> >> Milan Bla ek wrote:
> >>
> >> > Ivane diky, ale neslo !
> >> > Protoze nechci, aby se zmenena hodnota vlastnosti dala
> >> > modifikovat z vnesku napr. v .INI souboru. Pokud mas jiny napad tak Ti
> >> > predem dekuji.
> >>
> >> Vzdyt data nemusi byt v INI, muzes si vyrobit vlastni format
> >> binarniho souboru, kam to budes ukladat. A pro jistotu si to muzes
> >> i zasifrovat, na Delphree je sifrovaci utilita Cast. :-)
> >>
> >> 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
> >Mozno sa bude hodit..
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:15:27
Ahoy,
citam tu teraz, ze mnohi sa zaoberaju emailami a tak. V niektorych
pripadoch by mozno nebolo treba robit nic, iba vyvolat postoveho
klienta:
ShellExecute(handle,'open','mailto:
scully(zv)xfiles.org',nil,nil,SW_ShowNormal);
Ja viem, ze toto 99,999% z vas pozna, ale mozno o tom este niekto
nevie...
Ivan
Email&OLE
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:15:10
Ahoy,
videl som prerfektny priklad na pouzitie Outlooku od pana Polaka. Rad by
som vedel, kde najst zoznam OLE funkcii, ktore Outlook exportuje.
Ivan
TImage - blikani
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:16:35
Ahoy,
nie su tie bitmapy moc velke? Mohol by si pripadne skusit nastavit
pozadie bitmapy tak, aby malo rovnaku farbu ako pozadie formulara. Potom
nikto nezbada, ze tam je pozadie.
Mozes pripadne vyrobit rutinu, ktora Ti prejde cele pozadie tvojho
obrazka este predty, ako sa vykresli a nahradi farbu pozadia takou
farbou, aku ma formular.
Alebo este mozes vyskusat double buffering.
Ivan
Martin Pe�ek wrote:
> Zdravim !!!Mam problem (kdo taky ne, ze ;)) s komponentou TImage. Mam
> par obrazku ve formatu BMP, ktere po urcitem intervalu postupne
> zobrazuji (tak aby vznikla animace). Kdyz je nastaven TRANSPARENT na
> FALSE, tak je vse v poradku a prehravani je bez blikani. Kdyz vsak
> nastavim TRANSPARENT na TRUE, tak to pri prehravani blika. Nevi nekdo
> jak se mam toho zbavit ??? Predem dekuji. Martin Pesek, 15-ti lety
> amatersky programator E-Mail:pesek.martin(zv)telecom(tec)cz
prevod aplikace z D1 na D3
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:16:30
Ahoy,
moc skusenosti s tym nemam, ale nieco predsa: priprav sa, ze Ti zrejme
kompilator bude ofrflavat niektore zapisy v USES klauzulach.
Ivan
"Ing. Marian Winkler" wrote:
> Ahoj,
>
> prosim o "know-how". Hodlam prevest docela velkou aplikaci (cca 900k) z D1
> na D3 Standard.
> Nicim po mne, prosim, nehazte -> malo penez,
> nic lepsiho si zatim dovolit nemuzu.
> Aplikace ma standardni komponenty + gen. sestav Sinea.
> Jaka je nejjednodussi cesta a na co si mam dat pozor?
> Delam to prvne (a doufam ze naposled).
>
> Marian Winkler
> e-mail: ag.art(zv)iol(tec)cz
zobrazenie html
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:16:40
Ahoy,
v Delphi 3 je HTML komponenta od NetManage; je tam aj demo. Ale pozor,
je
to ActiveX komponent, ak to chces davat dalej, musis skopirovat aj
zaregistrovat prislusne OCX-k�. Aby si videl, ktory OCX pouziva ake
dalsie
OCX, zozen si Dependency walker.
Ivan
Juraj.Talaba(zv)nup.sk wrote:
> caute vsetci!
> som zaciatocnik a uz nejaku dobu sa morim s problemom ako zobrazim kod
> html?
> potrebujem si urobit co najjednoduchsi prehliadac HTML. aby sa mi to
> nenatahovalo hodinu.
>
> mam D3 client/server. su tam nejake podpory pre internet ale akosi to
> neviem pouzit. nejako som to este nepochopil celkom. moze mi to niekto
> aspon zhruba popisat alebo vysvetlit?
>
> alebo neexistuje na to nejaka komponenta?
>
> vopred dakujem za vsetky tipy. �.
>
> - RebEl -
Kde sehnat komponentu s adresarovym stromem z pruz
[*] ivan(zv)gratis.sk (Ivan Zernovac) - 12.9.1999 16:19:51
Ahoy,
nieco by malo byt tu:
http://volftp.tin.it/IT/IT/COLLABORAZIONI/LANZA/amlsoft/index.htm
Krystof Hoder wrote:
> Pryve ty adresare jsou to co shanim. Ale i tak dik.
>
> Krystof
> ----- Original Message -----
> From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Saturday, September 11, 1999 11:35 AM
> Subject: Re: Kde sehnat komponentu s adresarovym stromem z pruzkumnika?
>
> > > Netusi nekdo, jak ziskat komponentu s adresarovym stromem tak, jak je
> > > zobrazen v pruzkumniku nebo v SHBrowseForFolder? Nejak to urcite pujde,
> > > protoze treba Winzip 7 ji na 100% pouziva (kdyz date extract, tak ji
> nekde
> > > uprostred okna uvidite). Ze by pres ActiveX?
> > ****Je to normalni TreeView, ktere bys mel najit na palete Win32.
> > Akorat si tam ty adresare musis doprogramovat sam.
> >
> >
> > Slavek
> >
> > > Krystof
> >
> >
> > ----------------------------------------------
> > http://atrey.karlin.mff.cuni(tec)cz/~rk
> > ----------------------------------------------
> >Email&OLE
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.9.1999 19:47:59
Otevri si v Delphi 3 (nebo vyssim) soubor
\Program Files\Microsoft Office\Office\MSOutl8.olb
Tomas Matousek
matousek(zv)havit(tec)cz
>Ahoy,
>
>videl som prerfektny priklad na pouzitie Outlooku od pana Polaka. Rad by
>som vedel, kde najst zoznam OLE funkcii, ktore Outlook exportuje.
>
>Ivan
>TImage - blikani
[*] Martin Pesek <pesek.martin(zv)telecom(tec)cz> - 12.9.1999 19:47:39
Zdravim !!!
>Mohol by si pripadne skusit nastavit
>pozadie bitmapy tak, aby malo rovnaku farbu ako pozadie formulara. Potom
>nikto nezbada, ze tam je pozadie.
No, on tam ma bejt statickej obrazek, takze to asi nepujde !!!
>Alebo este mozes vyskusat double buffering.
Nevim jak :-(((
>Ivan
Martin Pesek, 15-ti lety amatersky programator
Pr�ce s komponentou STORED PROC
[*] Ing. Jaroslav �ke��k - 12.9.1999 20:47:16
A v cem je problem ... je to celkem snadny
1.
Nejdrive musis mit tu proceduru s deklaraci vstupnich a vystupnich parametru
2.
Jakmile pripojis tuto proceduru na objekt: StoredProc1.StoredProcName,
objevi se ti seznam vsech parametru v tabulce Params.
Ty pak muzes zapnovat a cist. Spusteni procedury se zajisti metodou
ExecProc. Pritom se predaji naplnene vstupni parametry a procedura
ihned naplni vystupni parametry.
Zde je priklad funkce pro naplneni parametru procedury, ktera vlozi nebo
nebo zmeni radek ciselniku sklady. Vtip spociva v hodnote predaneho
parametru ID,
kdyz je -1, pak se provadi INSER, kdyz > 0, pak je to ID hodnota zaznamu,
pro ktery se provede UPDATE
function Parametry(ID: integer): Integer;
begin
Result := 1;
with FormCiselnikEdit1 do
try
StoredProc1.ParamByName('OLD_IDSSKLADY').AsInteger := ID
StoredProc1.ParamByName('NAZEV').AsString :=
QueryCiselnik1.FieldByName('NAZEV').AsString;
StoredProc1.ParamByName('ODPOVIDA').AsString :=
QueryCiselnik1.FieldByName('ODPOVIDA').AsString;
StoredProc1.ParamByName('ZRUSEN').AsString :=
QueryCiselnik1.FieldByName('ZRUSEN').AsString;
if QueryCiselnik1.FieldByName('SKLAD').IsNull then
StoredProc1.ParamByName('SKLAD').Clear
else
StoredProc1.ParamByName('SKLAD').AsInteger :=
QueryCiselnik1.FieldByName('SKLAD').AsInteger;
if QueryCiselnik1.FieldByName('POZNAMKA').IsNull then
StoredProc1.ParamByName('POZNAMKA').Clear
else
StoredProc1.ParamByName('POZNAMKA').Value :=
QueryCiselnik1.FieldByName('POZNAMKA').Value;
except
Result := -1;
end;
end;
Procedura napsana pro Interbazi vypada pak takto:
---------------
create procedure iu_sklady (OLD_IDSSKLADY integer, SKLAD integer, NAZEV
varchar(40),
ODPOVIDA varchar(50), POZNAMKA blob, ZRUSEN char(1))
returns (R_IDSSKLADY integer)
as
BEGIN
/* update
IF (OLD_IDSSKLADY > 0) THEN BEGIN
UPDATE SSKLADY
SET
SKLAD = :SKLAD,
NAZEV = :NAZEV,
ODPOVIDA = :ODPOVIDA,
POZNAMKA = :POZNAMKA,
ZRUSEN = :ZRUSEN
WHERE
IDSSKLADY = :OLD_IDSSKLADY ;
R_IDSSKLADY = :OLD_IDSSKLADY ;
END
/* insert: R_IDSSKLADY je vystupni parametr
IF (OLD_IDSSKLADY = -1) THEN BEGIN
R_IDSSKLADY = gen_id(GEN_IDSSKLADY,1) ;
INSERT INTO SSKLADY
(IDSSKLADY,
SKLAD,
NAZEV,
ODPOVIDA,
POZNAMKA,
ZRUSEN)
VALUES
(:R_IDSSKLADY,
:SKLAD,
:NAZEV,
:ODPOVIDA,
:POZNAMKA,
:ZRUSEN) ;
END
END
---------------
A takhle nejak muze vypadat volani procedury:
// nacteni parametru
if QueryCiselnik1.State = dsInsert then begin
QueryCiselnik1.Post;
if Parametry(-1) < 0 then begin
Application.MessageBox('Chyba nacitani parametru!', 'Varovani ...',
MB_RIGHT + MB_ICONWARNING);
Exit;
end;
end else
if QueryCiselnik1.State = dsEdit then begin
QueryCiselnik1.Post;
if Parametry(QueryCiselnik1.FieldByName('IDSSKLADY').AsInteger < 0
then begin
Application.MessageBox('Chyba nacitani parametru!', 'Varovani ...',
MB_RIGHT + MB_ICONWARNING);
Exit;
end;
// zahajeni transakce
Database.StartTransaction;
try
// start procedury
StoredProc1.ExecProc;
Database.Commit;
except
Database.Rollback;
Application.MessageBox(' Nepodarilo se dokoncit operaci!', 'Informace
...',
MB_OK + MB_ICONINFORMATION);
end;
FormCiselnik1.QueryCiselnik1.Tag :=
StoredProc1.ParamByName('R_IDSSKLADY').AsInteger;
Jaro
> Ahoj,
>
> muzete mi prosim nekdo obecne poradit neco kolem komponenty STORED PROC ?
> Mam dtb. stroj Oracle a chtel bych spoustet ulz. procedury. Nak se ale
nechytam
> ...
>
> Kdyby byl nejaky priklad, bylo by to super.
>
> Diky moc
>
> Vasek
TImage - blikani
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.9.1999 21:01:49
> >Alebo este mozes vyskusat double buffering.
> Nevim jak :-(((
****Form1.DoubleBuffered := True;
Slavek
> Martin Pesek, 15-ti lety amatersky programator
----------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------
query
[*] Ing. Jaroslav �ke��k - 12.9.1999 21:13:12
jojo ...DisableControls ... jojo, ale ten RecordCount je taky pomalej,
protoze to je vlastne metoda, ktera to projde jeste jednou a znova ty radky
secte.
Kdyz uz to musis dataset stejne prochazet, tak udelej "pocitadlo" i := i +1
nebo muzes udelat Select Count(*) - to je pro vetsi mnozstvi
radku rychlejsi.
Jaro
> pred tim cyklem dej Query4.DisableControls a po cyklu
> Query4.EnableControls.
> Pocet radku v query zjistis pomoci RecordCount (ale musi byt samozrejme
> otevrena).
>
> >Chcel by som sa opytat ci nema niekto skusenosti ako je mozne co
> >najrychlejsie prebehnut cez vysledok selectu ktory ide:
> >Query->DataSource->DBGrid
> >
> >ak pouzijem :
> >
> >procedure spracuj_tr;
> >BEGIN
> > Screen.Cursor:=crHourGlass;
> > WITH Form1.Query4 DO BEGIN
> > first;
> > while NOT EOF do begin
> > s1:=Fields[3].AsString;
> > next;
> > end;
> > end;
> > Screen.Cursor:=crDefault;
> >end;
> >
> >tak to bezi aj na obrazovke a je to dost pomale?
> >
> >A este jedna otazka: Je mozne nejak zistit pocet vratenych riadkov zo
> >selectu?
> >
> >Dakujem
> >
> >Jozef
> >
> >
>
>
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
>Voice modem library
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 12.9.1999 22:09:47
Hello Petr!
> Async Professional umi pracovat voice, ale jen pres TAPI. Pokud modem
> podporuje TAPI, musis mit nainstalovany ovladac TAPI, pak to bude
> chodit.
Ten ovladac TAPI najdem niekde v AsyncPro?
Po vlozeni modemu a zapnuti windows vypisali, ze nasli novy modem a chceli
disketu, z nej si zobrali, co potrebovali a vsetko funguje. Okrem AsyncPro.
Nainstalovalo to:
turbovcd.vxd
turbovbf.vxd
hcfcsa32.dll
hcfcsa.dll
rokv42.vxd
rokkmosd.vxd
Win95AC.vxd
dpal.vxd
a ked dam hladat TAPI*.*, vidim napriklad tapi.dll a tapi32.dll vo
Windows\system ale napriklad aj TAPI.HLP ale v nom, som nenasiel zmienku o
nejakom extra ovladaci.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
monitor programu WIN95
[*] ing. Ale� Da�a - 12.9.1999 23:45:44
Hi
dotaz trochu z jineho soudku. Nevite nekdo o nejakem programu, ktery
monitoruje spoustene programy na odrude Win 95. Diky za namety. Ales Dana
C.I.S. s.r.o.
Doln� n�m�st� 309
755 01 Vset�n
e-mail: cis(zv)atlas(tec)cz
tel.: 0603 457 024