Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
DrawText a ExtTextOut
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 10.10.1999 09:33:01
> DrawText obsahuje mraky moznosti (napr. zjistit velikost budouciho textu
> bez jeho zobrazeni) a dovoluje delat s textem vselijaka jina kouzla.
> ExtTextOut umi v podstate jen text oriznout. Blize viz help (pripadne
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
To je sice pravda, ale z helpu jsem nedokazal vycist, co vedlo
programatopry Borlandu k tomu, ze nevahali vykreslovani bunky
dbGridu programovat dvakrat v zavislosti na barve pozadi bunky.
To prave musi souviset s nekterou jinou vlastnosti techto fci, nez
jsou formatovaci moznosti.
Jiri Binder
> > -----P vodn� zpr�va-----
> > Od: Jiri Binder [SMTP:j.binder(zv)albacon(tec)cz]
> > dbGrid pouziva pro vypis textu bud funkci
> > Draw text nebo ExtTextOut v zavislosti na tom zda je barva pozadi v
> > systemove palete (viz fce . WriteText v dbGrids.pas). Zrejme mi neni
> > jasny nejaky rozdil ve obou API fcich. Mohl byste me prosim nekdo
> > natuknout.
> > Jiri Binder
Otoceni obrazku
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 10.10.1999 10:03:43
Ahoj lidicky,
mam takovej malej dotaz:
Lze, kdyz do TImage nactu obrazek, ho nejak otocit o 90 stupnu ?
Dik za kazdou radu
Tom
Delphi 3.02 CS, SP 4.00, W-NT 4.00
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
SQL record
[*] SICHTA Daniel <daniel.sichta(zv)za.asset.sk> - 10.10.1999 10:24:23
W98 D5
Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom je
�zaveseny� GEN_ID ?
( V informixe to bolo tusim v SQLCA recorde)
Dakujem !!
) daniel.sichta(zv)za.asset.sk Barva v TreeView
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.10.1999 10:24:03
Ahoj,
rad popostrcim, bohuzel jen v urovni uzivatelsky kresleneho ListBoxu.
Pouzivam totiz Delphi 3 a tam se owner drawn treeview udelat neda (zlate
Cecko, tam to jde jedna radost). Musis si nejprve nastavit Style na
OwnerDrawFixed (nebo Variable, pokud chces jine vysky radku nez
standardni) a pak napsat proceduru na event DrawItem:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
begin
if odSelected in State then Brush.Color:=clAqua else
Brush.Color:=clWindow; //ruzne barvy pro vybranou a nevybranou polozku
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Radek Lev� [SMTP:lev(zv)cca(tec)cz]
> Odesl�no: 10. listopadu 1999 7:55
> Komu: Konference Delphi
> P�edm�t: Fw: Barva v TreeView
>
> Hmm, to m� nic moc ne��k�. Ne�lo by je�t� drobet popostr�it ?
>
> Radek
>
> > Jestli to jde standardne, to nevim, ale pokud si udelas ten strom
> Owner
> > drawn, tak tam muzes udelat v podstate cokoli.
> >
> > **************************************************
> > Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> > obcas Delphi nebo Visual Basic
> > **************************************************
> >
> >
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Radek Lev� [SMTP:lev(zv)cca(tec)cz]
> > > Odesl�no: 9. listopadu 1999 16:18
> > > Komu: Konference Delphi
> > > P�edm�t: Barva v TreeView
> > >
> > > Jde nejak zmenit barva oznaceni (myslim barvu toho ramecku a
> vyplne
> > > kolem
> > > textu) u TreeView ? Pou��v�m pro barvu textu jinou barvu ne�
> �ernou a
> > > po
> > > ozna�en� je text t�m�� ne�iteln�.
> > >
> > > Radek
Mouse a Grid
[*] Michal Hlav�� - 10.10.1999 10:56:13
Zdravim,
poteboval by som vypnut veskery pohyb kurzora v StringGride mysou. Aby sa mi
nepresunul, ked kliknem na nejaku cell. Klavesy som odsunul tym, ze som dal
na keydown key:=0. Na Mys som skusal dat na OnMouseDown ze Button:=null;,
ale to mi nefunguje. Dik za kazdu radu.
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Form close na ESC
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 10.10.1999 11:27:19
Diky vsem za rady. Funguje to, az na to ze pri stisku ESC a uzavreni formu
pocitac beepne. Nevite nekdo jak to odstranit. (Pri uzavirani formu ma focus
TEdit).
R.
> -----Original Message-----
> From: Daniel Rott [mailto:roxton(zv)atlas(tec)cz]
> Sent: Wednesday, November 10, 1999 8:24 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Form close na ESC
>
>
> V kazdem pripade (OnKeyDown i OnKeyPress) bych po obsluzeni
> klavesu vynulovat, aby nebyla obsluzena dvakrat.
>
> if Key=#27 then begin Close;Key:=#0; end;
>
> Daniel
> SQL record
[*] SICHTA Daniel <daniel.sichta(zv)za.asset.sk> - 10.10.1999 11:35:07
W98 D5
Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
je
�zaveseny� GEN_ID ?
( V informixe to bolo tusim v SQLCA recorde)
Dakujem !!
) daniel.sichta(zv)za.asset.sk
Zabudol som napisat ze sa to tyka InterBase
DrawText a ExtTextOut
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.10.1999 11:36:39
Hm, tak to bohuzel taky netusim.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Jiri Binder [SMTP:j.binder(zv)albacon(tec)cz]
> Odesl�no: 10. listopadu 1999 9:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: DrawText a ExtTextOut
>
> > DrawText obsahuje mraky moznosti (napr. zjistit velikost budouciho
> textu
> > bez jeho zobrazeni) a dovoluje delat s textem vselijaka jina kouzla.
> > ExtTextOut umi v podstate jen text oriznout. Blize viz help
> (pripadne
> > Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
>
> To je sice pravda, ale z helpu jsem nedokazal vycist, co vedlo
> programatopry Borlandu k tomu, ze nevahali vykreslovani bunky
> dbGridu programovat dvakrat v zavislosti na barve pozadi bunky.
> To prave musi souviset s nekterou jinou vlastnosti techto fci, nez
> jsou formatovaci moznosti.
> Jiri Binder
>
> > > -----P vodn� zpr�va-----
> > > Od: Jiri Binder [SMTP:j.binder(zv)albacon(tec)cz]
> > > dbGrid pouziva pro vypis textu bud funkci
> > > Draw text nebo ExtTextOut v zavislosti na tom zda je barva pozadi
> v
> > > systemove palete (viz fce . WriteText v dbGrids.pas). Zrejme mi
> neni
> > > jasny nejaky rozdil ve obou API fcich. Mohl byste me prosim nekdo
> > > natuknout.
> > > Jiri Binder
> animovany gif
[*] Lubos <bruce(zv)pobox.sk> - 10.10.1999 11:44:46
> V RXLib je na to hotova komponenta.
>
> > Ahoj vsichni ...
> >
> > mam pocit, ze uz tady na to tema neco bylo, ale stejne ...
> >
> > prosim vas ... nakopne te me nekdo zpravnym smerem, kdyz chci ve
formu
> > zobrazit animovany gif ...
> >
> > diky Jirka ...
Ja som to vyriesil prevodom GIFu na AVI, a ten sa uz da lahko zobrazit
standardne.
Tento sa da aj pridat do resource a nemusis ho mat ako zvlast subor.
Prevod dokaze PaintShopPro 5.0 (Animator Studio) alebo Corel Draw.
Este ma napada, ze by to mohlo ist cez nejaku internetovsku komponentu.
Ta by mala vediet zobrazit gif.
/LH
--
"We are Microsoft. Resistance is futile. Open your source code and
prepare for assimilation."
Mouse a Grid
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.10.1999 12:00:15
Nevim, jestli jsem to dobre pochopil. Pokud ti jde o to, aby se s
kurzorem nedalo hybat, zkus jej zneviditelnit. Myslim, ze jde o metodu
ShowCursor.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Michal Hlav�� [SMTP:7hlavac(zv)st.fmph.uniba.sk]
> Odesl�no: 10. listopadu 1999 10:56
> Komu: Delphi F�rum
> P�edm�t: Mouse a Grid
>
> Zdravim,
> poteboval by som vypnut veskery pohyb kurzora v StringGride mysou. Aby
> sa mi
> nepresunul, ked kliknem na nejaku cell. Klavesy som odsunul tym, ze
> som dal
> na keydown key:=0. Na Mys som skusal dat na OnMouseDown ze
> Button:=null;,
> ale to mi nefunguje. Dik za kazdu radu.
>
> Michal Hlavac
> Spolocnost priatelov deti z detskych domovov
> Usmev ako dar
>
> e-mail: 7hlavac(zv)nw.fmph.uniba.sk
> web: www.usmev.sk
Retezec v SQL
[*] jan.seifert(zv)email(tec)cz - 10.10.1999 12:01:36
> Existuje nejaky prikaz v SQL na hledani retezce ?
> Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred slov.
> Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
> A tak dam hledat retezec *tat*.
> Zkratka hledani jako umi napr. Word.
>
> Na prikaz v SQL nemohu prijit, zkousel jsem
> like, ale nic.
V InterBase lze pouzit SELECT * FROM TABULKA WHERE SLOUPEC CONTAINING "cosi"
Nevim jak u jinych databazi.
Honza Seifert
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Retezec v SQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.10.1999 12:11:34
Tak tam zkus LIKE '%tat%'
Wildcarcd chars pro LIKE jsou
'%' pro skupinu znaku
'_' pro jeden znak
Jura
-----P�vodn� zpr�va-----
Od: Dan Rejchrt [mailto:rejchrt(zv)ssakhk(tec)cz]
Odesl�no: 10. listopadu 1998 11:33
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Retezec v SQL
Existuje nejaky prikaz v SQL na hledani retezce ?
Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred
slov.
Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
A tak dam hledat retezec *tat*.
Zkratka hledani jako umi napr. Word.
Na prikaz v SQL nemohu prijit, zkousel jsem
like, ale nic.
S pozdravem
Dan Rejchrt - BaldA
E-mail: rejchrt(zv)ssakh(tec)cz <mailto:rejchrt(zv)ssakh(tec)cz>
ICQ: 23131562
Internet: http://balda.web-page.net <http://balda.web-page.net>
Zakazani Win klavesy
[*] Ladislav Dolezel <dolezel(zv)scova.vabo(tec)cz> - 10.10.1999 12:28:56
Zdravim vsechny,
znovu rozpoutavam debatu, ktera zde bezela asi pred rokem a neco, ale ja
jsem se ji neucastnil a nakonec se to nevyresilo, resp. vyresilo s tim,
ze to nejde.
Dotaz zni jak softwarove zakazat **POUZE** Win klavesu(sy). Nasel jsem
na Inetu ( http://www.kurt.hu/~marczi/kr/index.html ) program, ktery
sice umi spoustu jin�ch veci, ale umi i tohle, takze to JDE a me by
strasne zajimalo jak se to dela, protoze bych to chtel v necem pouzit.
Pomoci SetWinHookEx se mi to nepodarilo, wokna to zachyti driv. Ani
pomoci RegisterHotKey, to se sice zachyti, ale neda se pak rict, ze se
to ma ignorovat. Dalsi funkce SystemParametersInfo (ted si tim nazvem
nejsem jisty) se taky nedosahlo uspokojivych vysledku, byly zakazany k
tomu totiz jeste jine potrebne klavesy (Alt-tab, Ctrl-Alt-Del), coz
nechci.
Nejaky napad ci reseni ?
Diky
-Dodo-
Retezec v SQL
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 10.10.1999 12:30:35
Pouzivej: MyTableField LIKE "%tat%"
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
-----P�vodn� zpr�va-----
Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. november 1999 12:15
P�edm�t: Retezec v SQL
Existuje nejaky prikaz v SQL na hledani retezce ?
Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred slov.
Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
A tak dam hledat retezec *tat*.
Zkratka hledani jako umi napr. Word.
Na prikaz v SQL nemohu prijit, zkousel jsem
like, ale nic.
S pozdravem
Dan Rejchrt - BaldA
E-mail: rejchrt(zv)ssakh(tec)cz
ICQ: 23131562
Internet: http://balda.web-page.net
Retezec v SQL
[*] radomir.chwalek(zv)rtscs(tec)cz - 10.10.1999 13:16:47
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.
Select jmeno from abc where jmeno like '%tat%'
Mej se Radek
-----P�vodn� zpr�va-----
Od: Dan Rejchrt [mailto:rejchrt(zv)ssakhk(tec)cz]
Odesl�no: 10. listopadu 1998 11:33
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Retezec v SQL
Existuje nejaky prikaz v SQL na hledani retezce ?
Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred
slov.
Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
A tak dam hledat retezec *tat*.
Zkratka hledani jako umi napr. Word.
Na prikaz v SQL nemohu prijit, zkousel jsem
like, ale nic.
S pozdravem
Dan Rejchrt - BaldA
E-mail: rejchrt(zv)ssakh(tec)cz <mailto:rejchrt(zv)ssakh(tec)cz>
ICQ: 23131562
Internet: http://balda.web-page.net <http://balda.web-page.net>
Retezec v SQL
[*] Jakub Mart�nek <listbox(zv)vakmb(tec)cz> - 10.10.1999 13:23:50
V MSSQL :
SELECT * FROM TABLE WHERE JMENO LIKE '%tat%'
% vsechny znaky
_ jeden znak
[a-d] nebo [acx] patri do rozsahu
[^a-d] nebo [^acx] nepatri do rozsahu
Jakub Martinek
jmartinek(zv)vakmb(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Dan
Rejchrt
Sent: Tuesday, November 10, 1998 11:33 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Retezec v SQL
Existuje nejaky prikaz v SQL na hledani retezce ?
Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky
uprostred slov.
Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise
Mattatco.
A tak dam hledat retezec *tat*.
Zkratka hledani jako umi napr. Word.
Na prikaz v SQL nemohu prijit, zkousel jsem
like, ale nic.
S pozdravem
Dan Rejchrt - BaldA
E-mail: rejchrt(zv)ssakh(tec)cz
ICQ: 23131562
Internet: http://balda.web-page.net
algoritmus na piskvorky
[*] Standa Kunc <obkstan(zv)obaka-karvina(tec)cz> - 10.10.1999 13:36:47
Zdravim,
na poslednim Chipu je hra piskvorky, ktera nejde porazit. Nevite nekdo
nahodou, jak by to slo udelat? Alespon ten princip.
Predem dekuji S. Kunc
Retezec v SQL
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 10.10.1999 14:09:01
nevim, jestli to funguje vsude, ale na Oracle lze v pohode pouzit
select * from NECO where JMENO like '%tat%';
jeste lepe:
select * from NECO where UPPER(JMENO) like '%TAT%';
-- Jan Tomsa (Tomy) tomsa(zv)notia(tec)cz
-- Notia Informacni Systemy s.r.o., V Olsinach 709/45, 100 00 Praha
-- TEL +42-02-67313764 FAX +42-02-67313752 http://www.notia(tec)cz
-----P�vodn� zpr�va-----
Od: Dan Rejchrt [mailto:rejchrt(zv)ssakhk(tec)cz]
Odesl�no: 10. listopadu 1998 11:33
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Retezec v SQL
Existuje nejaky prikaz v SQL na hledani retezce ?
Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred
slov.
Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
A tak dam hledat retezec *tat*.
Zkratka hledani jako umi napr. Word.
Na prikaz v SQL nemohu prijit, zkousel jsem
like, ale nic.
S pozdravem
Dan Rejchrt - BaldA
E-mail: rejchrt(zv)ssakh(tec)cz
ICQ: 23131562
Internet: http://balda.web-page.net
Popum menu
[*] Tibor Galik <tgalik(zv)vsz.sk> - 10.10.1999 14:13:54
Ako mam naprogramovat Button aby sa spraval ako tlacitko s otaznikom? Ked definujem pre TForm BorderIcons=[biMaximize,biMinimize] nefunguje biHelp. Ale chcel by som to urobit na tlacitko. Co sa generuje pri stlaceni biHelp.
dakujem
tg
S pozravom/Regards
Tibor Galik
tgalik(zv)vsz.sk
Retezec v SQL
[*] Michal Hlav�� - 10.10.1999 14:32:17
Co tak skusit slovicko LIKE
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
-----P�vodn� zpr�va-----
Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. november 1999 12:29
P�edm�t: Retezec v SQL
Existuje nejaky prikaz v SQL na hledani retezce ?
Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred slov.
Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
A tak dam hledat retezec *tat*.
Zkratka hledani jako umi napr. Word.
Na prikaz v SQL nemohu prijit, zkousel jsem
like, ale nic.
S pozdravem
Dan Rejchrt - BaldA
E-mail: rejchrt(zv)ssakh(tec)cz
ICQ: 23131562
Internet: http://balda.web-page.net
Form close na ESC
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 10.10.1999 14:37:06
Asi si necetl puvodni zpravu, viz dole ...
Daniel
> Radek Pospisil napsal
> Diky vsem za rady. Funguje to, az na to ze pri stisku ESC a uzavreni formu
> pocitac beepne. Nevite nekdo jak to odstranit. (Pri uzavirani formu ma focus
> TEdit).
>
> R.
>
> > -----Original Message-----
> > From: Daniel Rott [mailto:roxton(zv)atlas(tec)cz]
> > Sent: Wednesday, November 10, 1999 8:24 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Form close na ESC
> >
> >
> > V kazdem pripade (OnKeyDown i OnKeyPress) bych po obsluzeni
> > klavesu vynulovat, aby nebyla obsluzena dvakrat.
> >
> > if Key=#27 then begin Close;Key:=#0; end;
> >
> > Daniel
> >
>
Nedostupny "zdrojak" formulara
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 10.10.1999 14:40:15
Ahojte !
Mam v jednom projekte (D3) datovy modul.
Ked si ho chcem pozriet vo forme zdrojoveho
textu (Alt+F12), delphi vypisu hlasku:
"Module 'nnn.pas' has open decendants
or liked modules. Cannot close"
Neviete co je to za chyba ?
Predtym mi ale fungovalo.
Peter
mocnina cisla
[*] H�gr Ond�ej <hegro2(zv)senat(tec)cz> - 10.10.1999 14:44:08
Jen si dovolim doplnit vzorecek ...
x^y = exp (y*Ln (x))
----------
Ondrej Hegr
e-mail: HEGRO(zv)volny(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.87 / Virov� b�ze: 47 - datum vyd�n�: 1.11.1999
Mouse a Grid
[*] Michal Hlav�� - 10.10.1999 14:45:16
Nie. Potrebujem si nadefinovat iny pohyb korzora. Proste tak, aby sa mi
kurzor presunul na kliknutu cell len vtedy, ak boli splnene nejake kriteria.
DIk, Miso
-----P�vodn� zpr�va-----
Od: Petr Brant <p.brant(zv)samo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. november 1999 13:41
P�edm�t: RE: Mouse a Grid
Nevim, jestli jsem to dobre pochopil. Pokud ti jde o to, aby se s
kurzorem nedalo hybat, zkus jej zneviditelnit. Myslim, ze jde o metodu
ShowCursor.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Michal Hlav�� [SMTP:7hlavac(zv)st.fmph.uniba.sk]
> Odesl�no: 10. listopadu 1999 10:56
> Komu: Delphi F�rum
> P�edm�t: Mouse a Grid
>
> Zdravim,
> poteboval by som vypnut veskery pohyb kurzora v StringGride mysou. Aby
> sa mi
> nepresunul, ked kliknem na nejaku cell. Klavesy som odsunul tym, ze
> som dal
> na keydown key:=0. Na Mys som skusal dat na OnMouseDown ze
> Button:=null;,
> ale to mi nefunguje. Dik za kazdu radu.
>
> Michal Hlavac
> Spolocnost priatelov deti z detskych domovov
> Usmev ako dar
>
> e-mail: 7hlavac(zv)nw.fmph.uniba.sk
> web: www.usmev.sk
Retezec v SQL
[*] Ji�� Kr�l jr. - 10.10.1999 14:48:06
nebudu kecat uvedu priklad:
SELECT *
FROM "zakaznik.db" z
WHERE upper(z.nazev) like upper(:n)
todle ti najde vsechno co kdekoliv obsahuje obsah parametru :n:string;
to upper() resi ignorovani MaLyCH a vElKych pismen
Jirka Kral
algoritmus na piskvorky
[*] Ladislav Dolezel <dolezel(zv)scova.vabo(tec)cz> - 10.10.1999 14:55:29
No chlapce, budes muset trenovat :-)
Pustil jsem si to a napoprve jsem ho porazil.....
Ale jsou celkem dobry. Bohuzel alogoritmus nemam .....
Standa Kunc wrote:
> Zdravim,
> na poslednim Chipu je hra piskvorky, ktera nejde porazit. Nevite nekdo
> nahodou, jak by to slo udelat? Alespon ten princip.
>
> Predem dekuji S. Kunc
algoritmus na piskvorky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.10.1999 15:05:37
> -----P�vodn� zpr�va-----
> Od: Standa Kunc [mailto:obkstan(zv)obaka-karvina(tec)cz]
> Odesl�no: 10. listopadu 1999 13:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: algoritmus na piskvorky
>
>
> Zdravim,
> na poslednim Chipu je hra piskvorky, ktera nejde porazit. Nevite nekdo
> nahodou, jak by to slo udelat? Alespon ten princip.
>
Treba minimaxovou procedurou.
To te asi neuspokoji, ze? :-)
To jsou teorie her a prohledavani stavovych prostoru
Princip spociva v tom, ze se prohledava stavovy prostor dane hry.
To je mnozina vsech moznych kombinaci hraci plochy.
Tedy napriklad pro piskvorky na sachovnici 10*10 existuje 3^100 (3 na stou)
stavu (na kazdem poli je krizek, kolecko nebo nic). Z toho ale nektere stavy
jsou nesmyslne
}obsahujici sesti- a vice-tice znacek anebo vice nez jednu petici (pjetici)
stejnych znacek.
Nesmyslne jsou take stavy, kde je rozdil poctu krizku a kolecek vetsi nez 1,
atd...
Ty stavy, ktere nejsou nesmyslnymi stavy, jsou stavy hry piskvorky.
Existuje pocatecni stav (prazdna sachovnice)
Existuje mnozina koncovych stavu (vsechny stavy obsahujici pet stejnych
znacek vedle sebe, nad sebou
anebo v diagonale, anebo stav, na kterem uz zadna vitezna pjetice nemuze
vzniknout).
Z pocatecniho stavu lze dojit ke konecnemu stavu pres konecnou posloupnost
stavu lisicich se v tom,
ze byl pridan jeden symbol (pokazde jiny).
Od pocatecniho stavu se hra vyviji pres konecnou posloupnost stavu az ke
konci hry.
Tah hrace tedy znamena, ze si vybere jeden z mnoziny n stavu, do nichz je
mozno prejit
pridanim jeho znacky.
A uz se dostavame k minimaxve procedure:
Zakladem je nejaka ohodnocovaci funkce stavu. Mela by byt jednoducha (tzn.
rychle spocitatelna),
je urcena k tomu, aby rekla, jakou sanci maji oba hraci na vyhru.
Cim vyssi hodnota, tim lepe pro mne.
Zaroven je urcena minimalni a maximalni hodnota uzlu, coz jsou
hodnoty reprezentujici prohru a vyhru. (odtud nazev minimaxova).
Cinnost algoritmu:
algoritmus se diva n tahu dopredu. Tzn. diva se do vsech stavu, do kterych
muze prejit,
dale do dalsich vsech tahu, do nichz muze prejit potom souper, ....
Vsechny tahy v n-te urovni se ohodnoti nami pripravenou funkci.
Stav v (n - 1) urovni se ohodnoti podle hodnot stavu, ktere z nej mohly
vzniknout v urovni n.
Pokud si stav v n-te urovni vybira souper, zvolime minimum z jejich hodnot,
pokud vybiram
ja vyberu si maximum. (predpokladame, ze souper neni blb a vybere si pro
sebe nejlepsi variantu).
d�le opakuji pro nizsi a nizsi urovne, az se dostanu ke stavu, ve kterem mam
nyni
tahnout. Co si vyberu? Tah vedouci k uzlu s nejvyssim ohodnocenim.
To je asi tak vsechno k principu. Samozrejme implementace tohoto algoritmu
prinasi jista uskali:
Stavovy prostor pro hru muze byt prilis velky, existuje mnoho moznych tahu -
tzn. pri
snaze o kvalitnejsi hru (divani se na vice tahu dopredu), roste mnozstvi
prohledavanych
stavu mocninnou radou. Existuji ruzne metody optimalizace algoritmu, nemusi
byt vsechny
cesty prohledavany do stejne hloubky atp., ale princip je vzdy v
prohledavani stavoveho prostoru.
Jura
Zamceni stanice jako ve WinNT
[*] martin.falta(zv)obi(tec)cz - 10.10.1999 15:28:25
Hi all,
mam nasledujici problem.
Ve Win9x bych potreboval udelat zamceni stanice (neco, jako je ve WinNT).
Bohuzel, vubec nevim, jak na to.
Diky za kazdou radu.
Martin
Retezec v SQL
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 10.10.1999 15:44:57
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.
Pokud pouzivas nejaky SQL server (dokonce i Paradox), tak by Ti like melo
chodit.
Ale hledany retezec bude '%tat%' (% libovolny pocet znaku , _ jeden znak).
V Informixu existuje i matches, kde se potom pouzivaji * a ? jak jsi zvykly,
ale
ten like by Ti mel chodit vsude.
Takze ten SQL prikaz bude vypadat:
SELECT * FROM tabulka WHERE sloupec LIKE '%tat%'+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Dan Rejchrt [mailto:rejchrt(zv)ssakhk(tec)cz]
Sent: Tuesday, November 10, 1998 11:33 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Retezec v SQL
Existuje nejaky prikaz v SQL na hledani retezce ?
Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred
slov.
Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
A tak dam hledat retezec *tat*.
Zkratka hledani jako umi napr. Word.
Na prikaz v SQL nemohu prijit, zkousel jsem
like, ale nic.
S pozdravem
Dan Rejchrt - BaldA
E-mail: rejchrt(zv)ssakh(tec)cz
ICQ: 23131562
Internet: http://balda.web-page.net
Form close na ESC
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 10.10.1999 16:07:00
Mam tam toto (OnKeyDown):
if Key = VK_ESCAPE then
begin
Key := 0;
self.Close;
end;
a stejne to pipa ...
(D5, NT4SP3)
R.
> -----Original Message-----
> From: Daniel Rott [mailto:roxton(zv)atlas(tec)cz]
> Sent: Wednesday, November 10, 1999 2:37 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Form close na ESC
>
>
> Asi si necetl puvodni zpravu, viz dole ...
>
> Daniel
>
> > Radek Pospisil napsal
> > Diky vsem za rady. Funguje to, az na to ze pri stisku ESC a
> uzavreni formu
> > pocitac beepne. Nevite nekdo jak to odstranit. (Pri
> uzavirani formu ma focus
> > TEdit).
> >
> > R.
> >
> > > -----Original Message-----
> > > From: Daniel Rott [mailto:roxton(zv)atlas(tec)cz]
> > > Sent: Wednesday, November 10, 1999 8:24 AM
> > > To: delphi-l(zv)fwd(tec)cz
> > > Subject: Re: Form close na ESC
> > >
> > >
> > > V kazdem pripade (OnKeyDown i OnKeyPress) bych po obsluzeni
> > > klavesu vynulovat, aby nebyla obsluzena dvakrat.
> > >
> > > if Key=#27 then begin Close;Key:=#0; end;
> > >
> > > Daniel
> > >
> >
>
> FastReport a Velka pisma
[*] vach1 <vach1(zv)yahoo(tec)com> - 10.10.1999 16:42:52
Ahojte,
mam FastReport 2.2 a D5 Standard.
Problem nastava akonahle ma Windowze nastaveny (Large font (Velka pisma)) v setupu obrazovky.
Reporty su rozbite a programy krachuju s hlaskou "Stack overflow".
Mate s tym niekto skusenost ?
Vopred dakujem.
VACHI
vach1(zv)yahoo.com
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com
TRXDBLookupCombobox
[*] Tomas Holy <thom(zv)comberg(tec)cz> - 10.10.1999 17:27:47
ahoj,
ma nekdo zkusenosti se %SUBJ%
v manualu se pise:
TRxDBLookupCombo provides an incremental search through lookup list by
directly typing into the combo control while the lookup list is
displayed, LookupSource can refer to TTable, TQuery, TRxQuery or
TQBEQuery. It even incrementally searches on the query results and
much more...
ale kde nic tu nic.
uz jsem prolezl vsechno, diky za radu
(To jeste nikdo proboha nepotreboval v Delphi normalne funkci combobox, nebo
vsichni delaji v accessu ?)
Tom� Hol�
Comberg s.r.o.
B�lehradsk� 76 / 443
+420-2-900 55 462
GSM:+420-603 43 32 31
FastReport a (Velka pisma)
[*] vach1 <vach1(zv)yahoo(tec)com> - 10.10.1999 17:28:23
Ahojte,
mam FastReport 2.2 a D5 Standard.
Problem nastava akonahle ma Windowze nastaveny (Large font (Velka pisma)) v setupu obrazovky.
Reporty su rozbite a programy krachuju s hlaskou "Stack overflow".
Mate s tym niekto skusenost ?
Vopred dakujem.
VACHI
vach1(zv)yahoo.com
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com
ADO a Paradox
[*] Erik Salaj <winsoft(zv)napri.sk> - 10.10.1999 18:47:35
> chcem sa spytat, ako je mozne pripojit sa cez ADO na databazy PARADOX.
Asi
> mi chyba ten spravny provider, a kedze som zaciatocnik, aky je teda
spravny
> postup?
Najvhodnejsi by bol nativny provider pre Paradox, ale Borland zatial taky
nema
a ina firma to nemoze napisat. Asi najvyhodnejsie bude pouzit Jet 4.0
provider,
ktory pomocou ISAM drivera pre Paradox podporuje Paradox 3.X, Paradox 4.X,
Paradox 5.X a Paradox 7.X (viz Adonis FAQ
na http://www.cybermagic.co.nz/winsoft/adofaq.htm ). Pouziva sa BDE, takze
BDE musi byt nainstalovane na pocitaci.
Tu je priklad:
ADODataSet.DatabaseProvider := 'Microsoft.Jet.OLEDB.4.0';
ADODataSet.DatabaseConnect := 'Data Source=C:\PxFiles;Extended
Properties="Paradox 7.X;"';
Erik Salaj
ADO a Paradox
[*] Erik Salaj <winsoft(zv)napri.sk> - 10.10.1999 18:55:06
> Autor se zrejme chtel vyhnout jak BDE tak i ODBC.
>
> Rad bych vedel, zda to s providery pro ADO bude stejne jako u ODBC -
jakakoliv nova verze providera bude mit sve vlastni konfiguracni retezce a
po preinstalaci nahradi puvodniho providera.
Ja by som zase rad vedel, ci Borland vobec urobi pre Paradox provider,
problemy
s konfiguracnym retazcom mozu byt neprijemne ale snad sa to da v programe
osetrit.
Ide o to aby bolo vobec co konfigurovat.
Erik Salaj
Nezastavitelne shozeni systemu
[*] Martin Pesek <pesek.martin(zv)telecom(tec)cz> - 10.10.1999 20:14:11
Zdravim !!!
> 1. Daji se z programu napsanem v Delphi ukoncit Windows? Je na to nejaka
> procedura?
Mno, na i-netu jsem nasel tohle:
procedure TForm1.Button1Click(Sender: TObject);
var a : cardinal;
begin
ExitWindowsEx(EWX_SHUTDOWN,a); // vypnut� poc�tace
end;
procedure TForm1.Button2Click(Sender: TObject);
var a : cardinal;
begin
ExitWindowsEx(EWX_REBOOT,a); // restart poc�tace
end;
> 2. Jak to udelat, aby se program nedal ukoncit ani Alt-F4 ani nijak jinak
> (nebo jedine po zadani hesla).
Vim jak vypnout tyto klavesy - Ctrl+Alt+Del, Alt+Tab (na Alt+F4 to
nefunguje)
Na Alt+F4 by jsi mohl dat do udalost Formu udalost OnCloseQuery:
CanClose := false;
Pokud by jsi vsak chtel potom program ukoncit, coz urcite ano, tak by jsi si
to musel nejak osetrit (nejakou podminkou - treba si tam muzes vrazit dialog
na heslo).
// vypnuti klaves
procedure TForm1.Button1Click(Sender: TObject);
var
Dummy: Integer;
begin
SystemParametersInfo(97,Word(True),(zv)Dummy,0);
end;
// vypnuti klaves
procedure TForm1.Button2Click(Sender: TObject);
var
Dummy: Integer;
begin
SystemParametersInfo(97,Word(False),(zv)Dummy,0);
end;
Se zbytkem dotazu ti bohuzel nepomuzu, protoze o nich nic nevim :( Jinak
doufam, ze jsem ti aspon nejak pomohl.
Martin Pesek
E-Mail:
pesek.martin(zv)mymail(tec)cz
Retezec v SQL
[*] Ing. Jaroslav �ke��k - 10.10.1999 20:53:14
SELECT * FROM Tabulka WHERE polozka LIKE "%tat%"
V Delphi to muzes zajistit treba takto:
Query1.SQL.Clear;
Query1.SQL.Add(Format('SELECT * FROM Tabulka WHERE polozka LIKE "%s"
','%'+Edit1.Text+'%'));
Query1.Open;
Vybere vsechny radky, kere uvnitr sloupce polozka obsahuji retezec
znakuzadany v Edit1.Text
% znamena libovolny pocet libovolnych znaku a _ (podtrzitko) jeden ibovolny
znak
Jaro
>
> Existuje nejaky prikaz v SQL na hledani retezce ?
> Potrebuju zobrazit jenom zaznamy, ktere obsahuji urcite znaky uprostred
> slov.
> Napr. chci hledat jmeno Matatko, ale nevim, jestli se nepise Mattatco.
> A tak dam hledat retezec *tat*.
> Zkratka hledani jako umi napr. Word.
>
> Na prikaz v SQL nemohu prijit, zkousel jsem
> like, ale nic.
>
> S pozdravem
>
> Dan Rejchrt - BaldA
> E-mail: rejchrt(zv)ssakh(tec)cz
> ICQ: 23131562
> Internet: http://balda.web-page.net
SQL record
[*] Ing. Jaroslav �ke��k - 10.10.1999 20:57:44
Zkus Refresch.
Jaro
>
> W98 D5
>
> Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
> je
> �zaveseny� GEN_ID ?
> ( V informixe to bolo tusim v SQLCA recorde)
> Dakujem !!
>
> ) daniel.sichta(zv)za.asset.sk
>
> Zabudol som napisat ze sa to tyka InterBase
>OpenGL
[*] Radim Hol�� - 10.10.1999 22:24:47
no nejake mam :)
priklady jsou na www.opengl(tec)cz
--------------------------------------------
NEVER NA ZAZRAKY - SPOLEHEJ NA NE!
Radim Hol��
email: radim.holan(zv)seznam(tec)cz
www: http://www.stud.fee.vutbr(tec)cz/~xholan00
mobil: 0604/748216 (paegas)
sms: +420604748216(zv)sms.paegas(tec)cz
\\|||//
(o o)
--------ooooO--(_)--Ooooo---------
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jan Sereda
Sent: Saturday, November 06, 1999 12:23 PM
To: delphi-l(zv)fwd(tec)cz
Subject: OpenGL
Ahoj,
nemate nekdo zkusenosti s OpenGL v Delphi
Honza
Dos - spustit a ukoncit
[*] Burger, Tomas <tomas.burger(zv)sap(tec)com> - 10.10.1999 22:52:12
> -----Original Message-----
> From: Jirka Virt [mailto:virt(zv)volny(tec)cz]
> neporadite mi nekdo, co mam strcit do CreateProcess za parametr,
> aby se mi dosovy program (okno) po ukonceni zavrel??
Staci misto "program.exe" spustit "command.com /c program.exe"...
Tomas
Spatne uvolnovani resourcu ve W9x (TBitBtn a TSpee
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 10.10.1999 22:54:27
Pred casem tu na tohle tema probehla debata a Petr Vones publikoval reseni
pro D5.
Zajimalo by me, zda je k dispozici reseni pro D4CS, popripade zda je mozno
zverejnit reseni problemu (alespon cast zdrojaku nebo nakopnuti jak to
resit).Mouse a Grid
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 10.10.1999 22:58:26
----- P�vodn� zpr�va -----
Od: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>
Komu: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Odesl�no: 10. listopadu 1999 10:56
P�edm�t: Mouse a Grid
> Zdravim,
> poteboval by som vypnut veskery pohyb kurzora v StringGride mysou. Aby sa
mi
> nepresunul, ked kliknem na nejaku cell. Klavesy som odsunul tym, ze som
dal
> na keydown key:=0. Na Mys som skusal dat na OnMouseDown ze Button:=null;,
> ale to mi nefunguje. Dik za kazdu radu.
Ahoj,
mozna by's mohl pouzit event OnSelectCell
kde mas moznost nastavit CanSelect. Kdyz
ho nastavis na False, tak policko nebude mozne
vybrat ani klavesami ani mysakem.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
Mouse a Grid
[*] Libor V�trovec <vetrak(zv)hotmail(tec)com> - 11.10.1999 04:29:57 pst
Kde najdu RXComponenty.
Dekuji
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
ADO a Paradox
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.10.1999 06:32:28
Od: Erik Salaj <winsoft(zv)napri.sk>> Ja by som zase rad vedel, ci Borland vobec urobi pre Paradox provider,
> problemy
> s konfiguracnym retazcom mozu byt neprijemne ale snad sa to da v programe
> osetrit.
> Ide o to aby bolo vobec co konfigurovat.
Problem je v tom, ze se odvolavas na jmeno providera, ktere se ti muze s kazdou dalsi verzi zmenit, napr. z "Foxpro tables" mas "Visual FoxPro" s uplne jinym konfiguracnim retezcem. Osetrit to samozrejme jde .... :-(
===============================
ing. Jan Fiala jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================algoritmus na piskvorky
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 11.10.1999 07:11:19
> > P edm t: algoritmus na piskvorky
> >
> >
> > Zdravim,
> > na poslednim Chipu je hra piskvorky, ktera nejde porazit. Nevite nekdo
> > nahodou, jak by to slo udelat? Alespon ten princip.
> >
>
> Treba minimaxovou procedurou.
> To jsou teorie her a prohledavani stavovych prostoru
>
. Samozrejme implementace tohoto algoritmu
> prinasi jista uskali:
> Stavovy prostor pro hru muze byt prilis velky, existuje mnoho moznych tahu -
> tzn. pri
> snaze o kvalitnejsi hru (divani se na vice tahu dopredu), roste mnozstvi
> prohledavanych
> stavu mocninnou radou. Existuji ruzne metody optimalizace algoritmu, nemusi
> byt vsechny
> cesty prohledavany do stejne hloubky atp., ale princip je vzdy v
> prohledavani stavoveho prostoru.
>
> Jura
Zdravim,
pokud opravdu chces udelat piskvorky, tak to co tady Jura
zminoval najdes v knize (s pribliznym nazvme :-() Sachy na PC od
UNISYSU (???) (Ted uz to dokonce je s velkou slevou). Je jasny ze
sachy maji jina pravidla, ale struktura "piskvorkoveho enginu" je v
zasade stejna jako "sachoveho enginu", tedy poplatne "teorii her".
Z toho, co vim o sachu, bych si dovolil tvrdit, ze naprogramovat
piskvorky je relativne "naprosta pohoda".
Herni kvalita (jak dobre hraje) takoveho programu, je zalozena na
hrube sile, tedy kolik pozic (stavu) staci za jednotku casu
prozkoumat, jak dobre program ohodnoti pozici - tedy spravny
vyber kriterii. Ale to uze je naplni ted knihy.
V te knize jsou popsany ruzna "uskali", vcetne "minimaxu" a jeho
rozsireni ci zlepseni, a je vcetne CD (v nemcine).
Petr Motlicek
Retezec v SQL
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 11.10.1999 07:43:20
Pouzij i LIKE " .... WHERE Jmeno LIKE %tat%.
To funguje i u PARADOXU, Interbase a snad i Foxky.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================> V InterBase lze pouzit SELECT * FROM TABULKA WHERE SLOUPEC CONTAINING "cosi"
> Nevim jak u jinych databazi.
>
> Honza Seifert
>
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
>
>
> Chyba pri instalaci aplikace v D1
[*] Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 11.10.1999 07:49:54
Neni D1, pod Win 3.11 ? Mozna se pletu, ale pokud ano, tak to bude
mit problem dostat to na masiny s Win95/W98 .
Jak jsi instalaci presne delal ?
Co treba pouzit IS ?
Dan Rejchrt - BaldA
E-mail: rejcrht(zv)ssakhk(tec)cz
ICQ: 23131562
Internet: http://balda.web-page.net
> Na dvou strojich z nekolika set mi pri instalaci
> (instalak je muj vlastni, zadny IS) aplikace v D1
> dojde k chybe : EResNotFound. Resource
> TForm0 not found. Dochazi k tomu na dvou
> strojich teto konfigurace.
Control.OnExit pri close
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 11.10.1999 07:55:07
Pri vytvoreni formulare:
FormCreate - FormShow - FormActive - Edit1Enter
Pri pohybu mezi controly na formulari:
Edit1Exit - Edit2Enter
Pri ukonceni formulare:
FormCloseQuery - FormClose - FormHide - FormDestroy
Tzn. pri vytvoreni control dostane Enter, ale pred zavrenim ne.
Jak resite tuto asymetricnost. Stava se mi totiz ze potrebuju
pri OnExit ukladat prevedene zmeny. Pouzivam 2 reseni.
a) do FormClose pridam
ListBox1.SetFocus
b) do FormClose pridam
if ActiveControl<>Nil then
SendMessage(ActiveControl.Handle,CM_EXIT,0,0);
Jake reseni pouzivate vy ?
Daniel
algoritmus na piskvorky
[*] Petr Kundrata <pksoft(zv)atlas(tec)cz> - 11.10.1999 08:06:57
Standa Kunc wrote:
>
> Zdravim,
> na poslednim Chipu je hra piskvorky, ktera nejde porazit. Nevite nekdo
> nahodou, jak by to slo udelat? Alespon ten princip.
>
> Predem dekuji S. Kunc
Kdysi jsem delal neco podobneho, protoze mne nebavilo porad
prohravat (People2People).
Jeste jsem nad tim nevyhral, zkusenejsi hrac ale vyhral na
poprve.
http://www.volny(tec)cz/pksoft/index.html#My_Software
Je to v Turbo C 2.0 a je tam exe i zdroje.
Petr Kundrata
algoritmus na piskvorky
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 11.10.1999 08:11:00
Jestli zacinas, tak ho porazit MUSIS. Viktor
----- Original Message -----
From: Standa Kunc <obkstan(zv)obaka-karvina(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, November 10, 1999 1:36 PM
Subject: algoritmus na piskvorky
> Zdravim,
> na poslednim Chipu je hra piskvorky, ktera nejde porazit. Nevite nekdo
> nahodou, jak by to slo udelat? Alespon ten princip.
>
> Predem dekuji S. Kunc
> Otoceni obrazku
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 11.10.1999 08:31:16
Brabec Tom� wrote:
>
> Ahoj lidicky,
> mam takovej malej dotaz:
> Lze, kdyz do TImage nactu obrazek, ho nejak otocit o 90 stupnu ?
> Dik za kazdou radu
> Tom
Nevim, zda na to existuje komponenta, ale je bych to udelal takto.
Vytvorim si virtualni bitmapu a na jeji canvas prevedu "otocene" Pixels
obrazku v TImage.
Pak vytvorenou bitmapu priradim do TImage a je to.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* private: cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************OT: databaze anglickych slovicek
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 11.10.1999 08:36:32
Ahoj chlapci a devcata,
omluvam se za OT ale neda mi to.
Shanim databazi anglickych slovicek (nejlepe s vyslovnosti), ale vytvorenou
podle ucebnic pro jazykove skoly (takova ta modra) a jeste k tomu s cisly lekce
u kazdeho slova
K cemu mi to bude. Hodlam si udelat programek, ktery bude testovat podle
zadaneho rozsahu lekci (tzn. to co je probrane), nebude nijak hodnotit ale co
je hlavni, tak by mohl take bezet na pozadi a po nastavene dobe se probudit,
zepat se na par slovicek a pak zase klidek. Dokonce v ramci drsne vyuky by mohl
i v pripade spatnych odpovedi zustavat tvrde na popredi nebo shodit wokna.
Diky za cas straveny ctenim tohoto OT
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne, neco
dela a je zcela zdarma :-)
Zamceni stanice jako ve WinNT
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.10.1999 08:42:10
Nejjednosussi je spustit setric obrazovky
s nastavenym heslem (vytvor si nekde zastupce,
prirad mu klavesovou zkratku a je to :-)
Nebo napsat vlastni program na tomto principu.
(SetSystemParametersInfo & SPI_SCREENSAVERRRUNNING
a pod...)
Dobra.
> ----------
> Ve Win9x bych potreboval udelat zamceni stanice (neco, jako je ve
> WinNT).
> Bohuzel, vubec nevim, jak na to.
>
> SQL record
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 11.10.1999 07:49:17 -0000
Z vaseho dotazu usuzuji na Interbase Server.
Tato informace neexistuje, Gen_ID neni specialne pro sloupce,
je to obecny generator, ktery je mozno pouzit pro slopce.
Zpravidla vsak bude "povesen" na PK (Primary Key).
Nejjednodussi je zobrazit si triggry before insert.
Slavek
W98 D5
Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom je
?zaveseny? GEN_ID ?
( V informixe to bolo tusim v SQLCA recorde)
Dakujem !!
) daniel.sichta(zv)za.asset.sk Delphi + Btrieve
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 11.10.1999 09:09:46
-----P�vodn� zpr�va-----
Od: Vaclav Krmela <krmela(zv)pecomp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. listopadu 1999 1:09
P�edm�t: Re: Delphi + Btrieve
>Nakonec jsem zustal u pristupu na nejnizsi urovni, tak jak jsem byl zvykly
>z DOSu. Pres knihovnu WBTRCALL.DLL volam primo funkci BTRV.
>Pokusil jsem se udelat i nejake pomocne komponenty usite na moji potrebu.
>
Ta posledni veta mne zaujala. Byl bys ochoten poskytnout interface teto
knihovny, pokud mozno v pascalovske syntaxi ?
-----------
Ing. Martin Dupal
address: Hodolanska 35
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
ICQ 29031832
Form close na ESC
[*] Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz> - 11.10.1999 09:11:26
Slab�, Petr (Pilsen), 11.11.1999 08:39:42
Ahoj,
obdobne problemy resim spinavym trikem. Do menu formulare, nebo do popup menu dam polozku menu, ktera ma pozadovany shortcut a nastavim ji jako hidden.
Best regards,
PS.
Radek Pospisil wrote:
> Mam tam toto (OnKeyDown):
>
> if Key = VK_ESCAPE then
> begin
> Key := 0;
> self.Close;
> end;Form close na ESC
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.10.1999 09:16:48
Zkus to dat do OnKeyPress
if Key=#27 then
begin
Key:=#0;
Self.Close;
end;
> ----------
> Mam tam toto (OnKeyDown):
>
> if Key = VK_ESCAPE then
> begin
> Key := 0;
> self.Close;
> end;
>
> a stejne to pipa ...
>
> Form close na ESC
[*] Tom� Br�dle������i�^����? - 11.10.1999 09:33:51
Zdravim,
toto mi pipa:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
begin
close;
end;
end;
a toto ne:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
begin
key:=#0;
close;
end;
end;
zato vsak funguje.
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 10. listopadu 1999 16:33
P�edm�t: RE: Form close na ESC
>Mam tam toto (OnKeyDown):
>
> if Key = VK_ESCAPE then
> begin
> Key := 0;
> self.Close;
> end;
>
>a stejne to pipa ...
>
>(D5, NT4SP3)
>
>R.
>
TRXDBLookupCombobox
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.10.1999 09:37:30
Me to funguje...
Zmacknu "D" a v rozbalenem listu to preskoci
na prvni zaznam zacinajici pismenem "D",
zmacknu "E" a v rozbalenem listu to preskoci
na prvni zaznam zacinajici pismeny "DE",
zmacknu "L" a v rozbalenem listu to preskoci
na prvni zaznam zacinajici pismeny "DEL",
zmacknu "P" a dal uz to vsichni znate...
Tohle jsi myslel ?
Dobra.> -----Tom� Hol� napsal :-----
> ma nekdo zkusenosti se %SUBJ%
>
> v manualu se pise:
>
> TRxDBLookupCombo provides an incremental search through lookup list
> by
> directly typing into the combo control while the lookup list is
> displayed, LookupSource can refer to TTable, TQuery, TRxQuery or
> TQBEQuery. It even incrementally searches on the query results and
> much more...
>
> ale kde nic tu nic.
>
> uz jsem prolezl vsechno, diky za radu
>
> (To jeste nikdo proboha nepotreboval v Delphi normalne funkci
> combobox, nebo
> vsichni delaji v accessu ?)
>
>
> rozne komponenty ADO
[*] Zak Robert <nrsys(zv)psn.sk> - 11.10.1999 10:03:01
Zdravim,
Mam zaujem o kupu ADO komponentov a chcem sa spytat, kedze som pocul ze
ich nedodava iba Borland, kto este dodava ine ADO komponenty a ake su ich
pripadne vyhody ci nevyhody.
Dakujem
R.Zak
Mouse a Grid
[*] Michal Hlav�� - 11.10.1999 10:08:12
Ok. asi som to nevysvetlil celkom dobre. Ja si potrebujem v stringgride
nadefinovat vlastny pohyb. To znamena, ze v evente OnKeyDown mam napriklad
taketo nieco:
Case key of
40: Dole;
37: Vpravo;
....
end;
Key:=0;
No a to key mi vypne standardny pohyb v stringgride a pohybujem sa iba podla
kriterii v Case. No a ja si chcem tak isto nadefinovat pohyb misou. Vypnut
standard.
PS: Ked Nastavim v evente OnSelectCell CanSelect:=false, tak mi nejde ziadny
pohyb.
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
-----P�vodn� zpr�va-----
Od: Pavel Malinsk� <spiderland(zv)seznam(tec)cz>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 11. november 1999 0:28
P�edm�t: Re: Mouse a Grid
----- P�vodn� zpr�va -----
Od: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>
Komu: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Odesl�no: 10. listopadu 1999 10:56
P�edm�t: Mouse a Grid
> Zdravim,
> poteboval by som vypnut veskery pohyb kurzora v StringGride mysou. Aby sa
mi
> nepresunul, ked kliknem na nejaku cell. Klavesy som odsunul tym, ze som
dal
> na keydown key:=0. Na Mys som skusal dat na OnMouseDown ze Button:=null;,
> ale to mi nefunguje. Dik za kazdu radu.
Ahoj,
mozna by's mohl pouzit event OnSelectCell
kde mas moznost nastavit CanSelect. Kdyz
ho nastavis na False, tak policko nebude mozne
vybrat ani klavesami ani mysakem.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
posielanie kodu klavesy a shift
[*] Igor Klepoch <klepoch(zv)ba.sknet.sk> - 11.10.1999 10:26:53
Ahoj Delphisti,
chcem sa spytat, ci nieko nevie ako poslat kod klavesy spolu so Shiftom, konkretne Shift+Tab.
Posielam to TEdit komponente.
Bez problemov ide Tab bez Shift : Perform (CM_DialogKey, VK_TAB, 0)
Chcem tym zabezpecit, aby na kurzorove klavesy hore a dolu bolo mozne chodit po formulari.
Skusal som pouzit aj ComponentIndex, ale dostaval som cislo > ako ComponentCount.
dik
Je to v Delphi 5.0, Win 98
----------------------------------
Igor Klepoch
SQL record
[*] SICHTA Daniel <daniel.sichta(zv)za.asset.sk> - 11.10.1999 10:50:43
Je to InterBase server, ale asi som sa zle vyjadril. Vsetko co
ste napisali je pravda. Ja vsak potrebujem ihned po inserte zistit cislo
ktore mi GEN_ID vygeneroval pre danny stlpec.
Ak som na Informixe urobil insert do tabulky v ktorej bol jeden
stlpec typu SERIAL tak som to vygenerovane cislo zistil cez SQLCA
record.
Moja otazka znie - ako to zistim v InterBase?
Dakujem Z vaseho dotazu usuzuji na Interbase Server.
Tato informace neexistuje, Gen_ID neni specialne pro sloupce,
je to obecny generator, ktery je mozno pouzit pro slopce.
Zpravidla vsak bude "povesen" na PK (Primary Key).
Nejjednodussi je zobrazit si triggry before insert.
Slavek
W98 D5
Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
je
"zaveseny" GEN_ID ?
( V informixe to bolo tusim v SQLCA recorde)
Dakujem !!
) daniel.sichta(zv)za.asset.sk rozne komponenty ADO
[*] Bohumil Micka <bmicka(zv)writeme(tec)com> - 11.10.1999 10:58:12
Zopar je ich tu:
http://delphi.miningco.com/compute/programming/delphi/librar
y/weekly/aa081799.htm?iam=mt
---
11.11.1999 o 10:03 Zak Robert pise:>Zdravim,
>
> Mam zaujem o kupu ADO komponentov a chcem sa spytat,
kedze som pocul ze
>ich nedodava iba Borland, kto este dodava ine ADO
komponenty a ake su ich
>pripadne vyhody ci nevyhody.
>
>
>Dakujem
>
>R.Zak
Pocitace na siti a tak trochu Winsock...
[*] Vladimir Ponechal <vladimirp(zv)seznam(tec)cz> - 11.10.1999 12:05:54
Mam Delphi Profesional 3.
Omlouvam se za stupidni vstup, ale mel bych nasledujici otazku(y). Prosim Vas, nejak jsem nepochopil "vec" s nazvem winsock. Koukal jsem se take do historie konference(a malem jsem podlehl histerii:-) ), ale moc jsem z toho chytrej nebyl, asi jsem natvrdlej. Jedine, co jsem pochopil je fakt, ze winsock slouzi na network veci a nejake veci kolem. Nemohl by mi nekdo treba poslat nejakej primitivni priklad jak se treba pripojim k pocitaci, jak z nej stahnu informace ohledne ja nevim treba nastaveni...
Ja totiz nutne potrebuji udelat jednu vec. Udelal jsem si utilitku, ktera mi zjistuje zda je pocitac UP nebo down (pouzil jsem FPiette utility). Jenze k tomu potrebuji jeste pridat informaci o nazvu pocitace (ta co je v nastaveni site) a MAC addressu sitove karty. Potrebuji tyto informace porovnavat tak, abych mel neustale pod kontrolou pocitace na siti. Pripadne bych potreboval stahnout s pocitace i jine informace, treba konfigurace site. No a v tuto chvili nevim jak na to....
Diky moc........
Vlada
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
D5 - komp. Servers-WordApp.
[*] tomas.mazurek(zv)vitkovice(tec)cz - 11.10.1999 10:09:32
Hello,
pouzivate jiz nekdo komp. Servers z D5? Jde i napr. o
WordApplication.
Mam nasledujici kod:
var
DocName: OleVariant;
Pole: OleVariant;
begin
WordApplication.Connect;
WordApplication.Visible := True;
DocName := 'c:\working\pokus1.doc';
WordApplication.Documents.Open(DocName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam);
ShowMessage(WordApplication.ActiveDocument.Name);
Showmessage(IntTostr(WordApplication.ActiveDocument.FormFields.Count));
Jde mi o posledni prikaz. Ackoliv mam na dokumentu nekolik ovl. prvku
jako napr. textova pole, tlacitka, checkboxy apod., D5 mi stale hlasi
ze FormFields.Count = 0. Pak samozrejme nevim, jak se na jednotlive
prvky dostat a ovlivnovat jejich vlastnosti z Delphi.
Pokud nekdo zna, predem dik
TM
Delphi + Btrieve
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 11.10.1999 11:30:56
Na tom neni nic tajneho. Poslu to primo na osobni mail.
S temi komponentami to je slozitejsi v tom, ze nejsou zdokumentovane.
Mam je ale pouzite v "zive" aplikaci, tak bych tomu mohl jeste nejaky cas
venovat, ucesat, zdokumentovat a nabidnout. Jsou to komponenty:
TBtrTable - nadefinuje se struktura a je mozne pristupovat k jednotlivym
polozkam
TBtrTableGrig, TBtrvScrollBar - grid bez moznosti editace, jenom zobrazeni
TBtrTableEdit, TBtrTableCombo, TBtrTableMemo - editacni komponenty
TSestavaB - upraveny generator tiskovych sestav Sinea
K provozu neni potreba ani BDE ani ODBC.
Vaclav Krmela
>
> >Nakonec jsem zustal u pristupu na nejnizsi urovni, tak jak jsem byl
zvykly
> >z DOSu. Pres knihovnu WBTRCALL.DLL volam primo funkci BTRV.
> >Pokusil jsem se udelat i nejake pomocne komponenty usite na moji potrebu.
> >
>
> Ta posledni veta mne zaujala. Byl bys ochoten poskytnout interface teto
> knihovny, pokud mozno v pascalovske syntaxi ?
> -----------
>
> Ing. Martin Dupal
> address: Hodolanska 35
> 77200 Olomouc
> Czech Republic
> tel.: +420/68/5313130
> fax.: +420/68/5313132
> http://www.vision(tec)cz
> mailto:mdupal(zv)vision(tec)cz
> ICQ 29031832
>
>Monitoring systemovych zdrojov
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 11.10.1999 11:32:03
Ahojte !
Aky prostriedk by ste mi doporucili k sledovaniu zataze
systemovych zdrojov, s ktorym by som mohol optimalne otestovat
svojho program, ci alokovane zdroje tiez spravne uvolnuje ?
Skusal som "merac prostredku" z Win95, ale jeho hodnoty su
pomerne hrube a zatazovanie zdrojov mojim programom sa pocas
jeho behu premieta len velmi nahrubo.
Peter
BDE a Office2000
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 11.10.1999 11:44:31
Mam BDE 5.10 (to znamena posledni verzi) i nejnovejsi verzi ODBC driveru pro Access (4.00.4202.00).
Bohuzel nemuzu pracovat s MDB tabulkou, ktera je ulozena ve formatu Accessu z Office 2000.
Nenarazili jste uz nekdo na tento problem a nevite nahodou jak to resit?
================================
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
================================Otoceni obrazku
[*] Jan Bartu�ek <jan.bartusek(zv)spojprojekt(tec)cz> - 11.10.1999 11:47:30
Zdravim,
posilam kus zdrojaku ktery toto dela, vypreparuj si potrebne. (Otaci se
obrazek v DImage, B je pomocna bitmapa).
****************************************************************************
*****************
var Column,Row,Pix:longint;
I,J:integer;
B:TBitmap;
begin
DGrid.MouseToCell(X,Y,Column,Row)
{---------------------------------------------------------------------------
----------}
if PaintMode=[PRotateRight] then {otoceni o 90 stupnu doprava}
BEGIN
Screen.Cursor:=crHourGlass;
PaintMode:=[PNone];
B:=TBitmap.Create;
B.Width:=DImage.Height;
B.Height:=DImage.Width;
for I:=0 to (DImage.Width-1) do
for J:=0 to (DImage.Height-1) do
B.Canvas.Pixels[DImage.Height-J-1,I]:=DImage.Canvas.Pixels[I,J];
DImage.Width:=B.Width;
DImage.Height:=B.Height;
DImage.Picture.Assign(B);
DGrid.ColCount:=DImage.Width;
DGrid.RowCount:=DImage.Height;
B.Free;
Screen.Cursor:=crDefault;
END;
{---------------------------------------------------------------------------
----------}
if PaintMode=[PRotateLeft] then {otoceni o 90 stupnu doleva}
BEGIN
Screen.Cursor:=crHourGlass;
PaintMode:=[PNone];
B:=TBitmap.Create;
B.Width:=DImage.Height;
B.Height:=DImage.Width;
for I:=0 to (DImage.Width-1) do
for J:=0 to (DImage.Height-1) do
B.Canvas.Pixels[J,DImage.Width-I-1]:=DImage.Canvas.Pixels[I,J];
DImage.Width:=B.Width;
DImage.Height:=B.Height;
DImage.Picture.Assign(B);
DGrid.ColCount:=DImage.Width;
DGrid.RowCount:=DImage.Height;
B.Free;
Screen.Cursor:=crDefault;
END;
****************************************************************************
***
Jan Bartu�ek
jan.bartusek(zv)spojprojekt(tec)cz
st�edisko 350 - radiokomunikace
Spojprojekt Praha a.s.
www.spojprojekt(tec)cz
Protokol IPX
[*] Martin Galik <m_g_66(zv)hotmail(tec)com> - 11.10.1999 10:48:08 pst
Ahoj.
Potreboval by som naprogramovat socketovu aplikaciu s vyuzitim IPX
protokolu, zatial sa mi podarilo v Delphi najst len podporu pre TCP/IP
protokol. Da sa to vobec cez delphi naprogramovat.
Vdaka za kazdu odpoved.
Ing. Martin Galik
R.B. spol. s r.o.
Bratislava
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
databaze anglickych slovicek
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.10.1999 11:59:00
Od: Richard Valny <richard.valny(zv)oku-st(tec)cz>> Ahoj chlapci a devcata,
> omluvam se za OT ale neda mi to.
> Shanim databazi anglickych slovicek (nejlepe s vyslovnosti), ale vytvorenou
> podle ucebnic pro jazykove skoly (takova ta modra) a jeste k tomu s cisly lekce
> u kazdeho slova
>
> K cemu mi to bude. Hodlam si udelat programek, ktery bude testovat podle
> zadaneho rozsahu lekci (tzn. to co je probrane), nebude nijak hodnotit ale co
> je hlavni, tak by mohl take bezet na pozadi a po nastavene dobe se probudit,
> zepat se na par slovicek a pak zase klidek. Dokonce v ramci drsne vyuky by mohl
> i v pripade spatnych odpovedi zustavat tvrde na popredi nebo shodit wokna.
>
> Diky za cas straveny ctenim tohoto OT
Pred davnou dobou jsem delal jako prvni vec v Delphi zkouseni slovicek. Mam k tomu k dispozici asi 11000 slovicek vcetne nepravidelnych sloves. Jednotlive lekce jsou v samostatnych textovych souborech, na radku je to cesky, anglicky a vyslovnost.
I s programem na zkouseni to ma 382 kB. Pokud bys mel zajem, muzu poslat.
===============================
ing. Jan Fiala jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Word v MDI
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 11.10.1999 12:11:19
Nazdarek,
zkousim to jeste jednou, copak se to nikomu nestalo?? Kdyz si otevru Word v MDI aplikaci, tak se mi neukaze wordovske menu soubor. Word oteviram pomoci OleContaineru. A me zajima, jak tam dostat to menu soubor, a nebo jak obslouzit ty metody, ktere menu soubor obsahuje??
Miroslav Mares
D3 Prof, W95 osr2, Word 97
Form close na ESC
[*] Ji�� Kr�l jr. - 11.10.1999 12:16:16
pokud je ten form volany showmodalem, zkus onkeydown nastavit
modalresult:=mrNeco;
JK
SQL record
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 11.10.1999 12:25:22
Ja to riesim takto:
Mam strored proceduru, ktora zvysuje ID o jeden a vrati hodnotu.
Pred insertom zavolan stored proceduru a ID ulozim do premennej.
Potom zavola Insert. (v insert trigri uz nezvysujem ID)
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
-----P�vodn� zpr�va-----
Od: SICHTA Daniel <daniel.sichta(zv)za.asset.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 11. november 1999 11:38
P�edm�t: RE: SQL record
> Je to InterBase server, ale asi som sa zle vyjadril. Vsetko co
>ste napisali je pravda. Ja vsak potrebujem ihned po inserte zistit cislo
>ktore mi GEN_ID vygeneroval pre danny stlpec.
> Ak som na Informixe urobil insert do tabulky v ktorej bol jeden
>stlpec typu SERIAL tak som to vygenerovane cislo zistil cez SQLCA
>record.
> Moja otazka znie - ako to zistim v InterBase?
>
> Dakujem
>
>
> Z vaseho dotazu usuzuji na Interbase Server.
> Tato informace neexistuje, Gen_ID neni specialne pro sloupce,
> je to obecny generator, ktery je mozno pouzit pro slopce.
> Zpravidla vsak bude "povesen" na PK (Primary Key).
> Nejjednodussi je zobrazit si triggry before insert.
>
> Slavek
>
> W98 D5
>
> Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
>je
> "zaveseny" GEN_ID ?
> ( V informixe to bolo tusim v SQLCA recorde)
> Dakujem !!
>
> ) daniel.sichta(zv)za.asset.sk
>Monitoring systemovych zdrojov
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 11.10.1999 13:06:12
U nas pouzivame BoundsChecker, daji se tam nastavit ruzne stupne
sledovani (dokonce odhali i chyby v MFC), odhali memory leakes, zapis do
nepovolene oblasti pameti, pouziti nespravnych poiteru apod. Vse pro
MSVC++, ale pri instalaci se nabizely take Delphi 3.0. S Delphi jsem to
ale nezkousel.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************> Aky prostriedk by ste mi doporucili k sledovaniu zataze
> systemovych zdrojov, s ktorym by som mohol optimalne otestovat
> svojho program, ci alokovane zdroje tiez spravne uvolnuje ?
> posielanie kodu klavesy a shift
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.10.1999 13:13:18
Neni nic jednodussiho :-)))
Udelej to napriklad takto :
procedure TForm1.EditsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Shift=[] then
case Key of
VK_UP : SelectNext((Sender as TWinControl), false, true);
VK_DOWN : SelectNext((Sender as TWinControl), true, true);
end;
end;
> ----------
> Chcem tym zabezpecit, aby na kurzorove klavesy hore a dolu bolo mozne
> chodit po formulari.
> Skusal som pouzit aj ComponentIndex, ale dostaval som cislo > ako
> ComponentCount.
>
> Otoceni obrazku
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 11.10.1999 13:40:11
Brabec Tom� <brabec(zv)nym.pvt(tec)cz> wrote:
> Lze, kdyz do TImage nactu obrazek,
> ho nejak otocit o 90 stupnu ?
> Dik za kazdou radu
Kdysi v D1 jsem psal viewer na faxy, ktery umi otacet obraz vsemi smery. Pozdeji byl prenesen pod Win32. Z duvodu pametove narocnosti algoritmu jsem otacel obraz po pasech, ktere byly predstavovany tridou, ktera je potomkem tList: {-------------------------------------------------------------------}
{M}{----} constructor tBandList.Create {*}
{*} (aNum,aByteWdt:integer); {*}
{-------------------------------------------------------------------}
var
Idx: integer;
Buf: pBytes;
begin
inherited Create;
FByteWdt := aByteWdt;
for Idx:=0 to aNum-1 do
begin
GetMem(Buf,FByteWdt);
Add(Buf);
end;
end;
{-------------------------------------------------------------------}
{M}{----} destructor tBandList.Destroy; {*}
{-------------------------------------------------------------------}
var
Idx: integer;
begin
for Idx:=0 to Count-1 do
if Items[Idx]<>nil then
FreeMem(Items[Idx],FByteWdt);
inherited Destroy;
end;
{-------------------------------------------------------------------}
{M}{x---} procedure tBandList.Save {*}
{*} (aHandle:HFILE); {*}
{-------------------------------------------------------------------}
var
Idx: integer;
begin
for Idx:=0 to Count-1 do
if WriteToHandle(aHandle,Items[Idx],FByteWdt) then
Abort;
end;
{-------------------------------------------------------------------}
{M}{----} procedure tBandList.RotateLeft {*}
{*} (aBuf:pBytes; aLng,aSize,aBWdt,aBIdx:word); {*}
{-------------------------------------------------------------------}
var
SrcIdx: integer;
DstIdx: integer;
B: byte;
begin
DstIdx := 0;
for SrcIdx:=aBWdt*8-1 downto 0 do
begin
asm
push ebx
push edi
push esi
movzx edi,[aBWdt]
mov esi,[SrcIdx]
shr esi,3
mov ebx,[aBuf]
mov edx,ebx
movzx eax,[aLng]
add edx,eax
xor al,al
(zv)1:
cmp ebx,edx
jae (zv)2
ror byte ptr [ebx+esi],1
rcl al,1
add ebx,edi
jmp (zv)1
(zv)2:
mov [B],al
pop esi
pop edi
pop ebx
end;
pBytes(Items[DstIdx])^[aBIdx] := B;
inc(DstIdx);
end;
end;
{-------------------------------------------------------------------}
{M}{----} procedure tBandList.RotateRight {*}
{*} (aBuf:pBytes; aLng,aSize,aBWdt,aBIdx:word); {*}
{-------------------------------------------------------------------}
var
Idx: integer;
B: byte;
begin
for Idx:=0 to aBWdt*8-1 do
begin
asm
push ebx
push edi
push esi
mov esi,[Idx]
shr esi,3
mov ebx,[aBuf]
mov edx,ebx
movzx ecx,[aSize]
add ebx,ecx
movzx eax,[aLng]
add edx,eax
movzx edi,[aBWdt]
sub edx,edi
xor al,al
(zv)1:
sub ecx,edi
jb (zv)3
sub ebx,edi
cmp ebx,edx
ja (zv)2
rol byte ptr [ebx+esi],1
(zv)2:
rcl al,1
jmp (zv)1
(zv)3:
mov [B],al
pop esi
pop edi
pop ebx
end;
pBytes(Items[Idx])^[aBIdx] := B;
end;
end;
bye pf, Petr.Fejfar(zv)callnet(tec)cz
Instalace komponent bez zdrojaku a balicku pod D4
[*] Vladimir Sladky <info(zv)euromont(tec)cz> - 11.10.1999 13:42:48
Poradi prosim nekdo, jak se daji nainstalovat pod Delphi4 komponenty,
od kterych jsou jen zkompilovane unity (chybi i soubory balicku) ?
Delphi se po instalaci mnou vytvoreneho balicku stale snazi hledat
zdrojaky komponent a kompilovat je ... :-(SQL record
[*] Ing. Jaroslav �ke��k - 11.10.1999 13:48:05
V D5 se do TIBTable ta ID polozka dotahne automaticky po Post.
Jinak to delam tak, ze generator volam pomoci ulozene procedury a ID
ziskam navratovou hodnotou. Na trigger generator davam
jen v pripadech, kdy nepotrebuju hodnotu ID znat.
Jaro
----- Original Message -----
From: SICHTA Daniel <daniel.sichta(zv)za.asset.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 10:50 AM
Subject: RE: SQL record
> Je to InterBase server, ale asi som sa zle vyjadril. Vsetko co
> ste napisali je pravda. Ja vsak potrebujem ihned po inserte zistit cislo
> ktore mi GEN_ID vygeneroval pre danny stlpec.
> Ak som na Informixe urobil insert do tabulky v ktorej bol jeden
> stlpec typu SERIAL tak som to vygenerovane cislo zistil cez SQLCA
> record.
> Moja otazka znie - ako to zistim v InterBase?
>
> Dakujem
>
>
> Z vaseho dotazu usuzuji na Interbase Server.
> Tato informace neexistuje, Gen_ID neni specialne pro sloupce,
> je to obecny generator, ktery je mozno pouzit pro slopce.
> Zpravidla vsak bude "povesen" na PK (Primary Key).
> Nejjednodussi je zobrazit si triggry before insert.
>
> Slavek
>
> W98 D5
>
> Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
> je
> "zaveseny" GEN_ID ?
> ( V informixe to bolo tusim v SQLCA recorde)
> Dakujem !!
>
> ) daniel.sichta(zv)za.asset.sk
Linkovani *.OBJ z Delphi 4.0 s *.OBJ MS Visual C++
[*] Vladimir Sladky <info(zv)euromont(tec)cz> - 11.10.1999 13:53:04
Poradi prosim nekdo, jak slinkovat *.OBJ z Delphi 4.0 s *.OBJ MS Visual C++ 5.0,
kdyz nechci pouzivat *.DLL, ale vytvorit radeji jeden *.EXE ?
*.OBJ z Borland C++ se da slinkovat s Delphi *.OBJ bez problemu vlozenim
{$L Nazev.OBJ} do zdrojaku, ale *.OBJ z VC ma bohuzel jiny format ...
Neexistuje neco, co by umelo treba z *.DLL udelat znovu *.OBJ linkovatelny
s Delphi ?Otoceni obrazku
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 11.10.1999 13:54:04
neni to priserne pomaly ?
> -----P�vodn� zpr�va-----
> Od: Jan Bartu�ek [mailto:jan.bartusek(zv)spojprojekt(tec)cz]
> P�edm�t: Re: Otoceni obrazku
>
> Zdravim,
> posilam kus zdrojaku ktery toto dela, vypreparuj si potrebne.
> (Otaci se
> obrazek v DImage, B je pomocna bitmapa).Formatovani diskety
[*] Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz> - 11.10.1999 13:57:33
Zdravim,
chtel bych se zeptat, zda-li nekdo nevi jak v D4 pomoci API nebo
neceho formatovat disketu. Opravdu to nemuzu nikde najit.
Dekuji za odpoved.
LK
algoritmus na piskvorky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 11.10.1999 13:59:18
> -----P�vodn� zpr�va-----
> Od: Petr.Motlicek(zv)bcbrno(tec)cz [mailto:Petr.Motlicek(zv)bcbrno(tec)cz]
> Odesl�no: 11. listopadu 1999 7:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: algoritmus na piskvorky
>
> pokud opravdu chces udelat piskvorky, tak to co tady Jura
> zminoval najdes v knize (s pribliznym nazvme :-() Sachy na PC od
> UNISYSU (???) (Ted uz to dokonce je s velkou slevou). Je jasny ze
> sachy maji jina pravidla, ale struktura "piskvorkoveho enginu" je v
> zasade stejna jako "sachoveho enginu", tedy poplatne "teorii her".
> Z toho, co vim o sachu, bych si dovolil tvrdit, ze naprogramovat
> piskvorky je relativne "naprosta pohoda".
Dovolil bych si toto tvrzeni jeste zesilit - myslim, ze
jediny rozdil je v ohodnoceni pozice. A to je taky podle me nejvetsi
problem. Nejsem v teto oblasti expertem - delal jsem pouze jednu
tupouckou hru jako zapoctak. Pro ilustraci - dva souperi meli
figurky, ukolem bylo obsadit urcite pole na sachovnici
(na polovine soupere). Uprostred sachovnice byla prekazka a souperi
se navzajem take mohli blokovat. Rikal jsem si kriterium bude celkem
jednoduche - soucet vzdalenosti mych figurek od meho cile
minus soucet vzdalenosti souperovych figurek od jeho cile.
Dodelal jsem k te funkci zbytek hry (interface, hledani, atd...)
a zjistil, ze je to uplne spatne. pri prohlizeni tri tahu dopredu
se klidne figurka nejbliz cili zastavila a zacala se priblizovat
ta nejvzdalenejsi. Human (to jako ja) celkem bez problemu
dojel do cile prvni.
Takze ohodnocovaci funkce je vec, na niz je kvalita hry velmi
zavisla. A je dost obtizne ji vytvorit, i kdyz jde o relativne
jednoduchou hru. Nakonec to dopadlo tak, ze jsem mel hotovou hru
a nakonec jsem ladil tu funkci.
BTW - piskvorky bych mozna zvladl, ale nedokazu si predstavit,
jak bych hodnotil pozici sachu. Myslim, ze je to dost obtizny problem,
predevsim proto, ze tam jsou velmi rychle zvraty - jednim tahem lze
hodne ziskat i ztratit. Pri vyuce stavovych prostoru nam navic rikali,
ze treba GO je hra velmi hnusna (z pohledu umele inteligence).
Videli jste nekdo kvalitni program pro GO?
Jura
Monitoring systemovych zdrojov
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 11.10.1999 14:12:17
Mne se libi MemProof od Atanas Stoyanov.
Stahnul jsem to nekde tady odtud:
www.poboxes.com/astoyanov
Vaclav Krmela
----- Original Message -----
From: Peter Vlkovic <vlkovic(zv)minv.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 11:32 AM
Subject: Monitoring systemovych zdrojov
> Aky prostriedk by ste mi doporucili k sledovaniu zataze
> systemovych zdrojov, s ktorym by som mohol optimalne otestovat
> svojho program, ci alokovane zdroje tiez spravne uvolnuje ?
>
> Peter
Instalace komponent bez zdrojaku a balicku pod D4
[*] Ladislav Dolezel <dolezel(zv)scova.vabo(tec)cz> - 11.10.1999 14:23:05
Pokud jsou zkompilovany ve stejne verzi Delphi, jakou pouzivas ty, melo
byt to jet. Jinak ne.
-Dodo-
Vladimir Sladky wrote:
> Poradi prosim nekdo, jak se daji nainstalovat pod Delphi4 komponenty,
> od kterych jsou jen zkompilovane unity (chybi i soubory balicku) ?
>
> Delphi se po instalaci mnou vytvoreneho balicku stale snazi hledat
> zdrojaky komponent a kompilovat je ... :-(Monitor sitoveho provozu
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 11.10.1999 13:34:16 -0000
Pomoci SNMP protokolu lze monitorovat libovolne pocitace (nejen PC),
Doma mam malou sit, tam je Linux, ne nem bezi soft co to stahuje k sobe,
a pak se to da prohlizet pomoci WWW. Urcite bude neco i pod Win.
Je treba jen nainstalovat na sledovane PC SNMP a potom to monitorovat,
nebo pouzit na monitorovani nejaky router (pokud te zajimaji prenosy
mezi castmi site) a nejjednodusseji taky pomoci SNMP.
Pokud chcete soft pro Linex, mohu ho poslat (pokud si spomenu)
Slavek
-----P�vodn� zpr�va-----
Od: Petr Kro�a [SMTP:mrp.konference(zv)compact(tec)cz]
Odesl�no: 6. listopadu 1999 12:57
Komu: Delphi KONFERENCE
P�edm�t: Off: Monitor sitoveho provozu
Ahoj vsichni,
moc se omlouvam za off-dotaz, tykajici se WinNT, nikoliv Delphi.
Existuje nejaky soft na sledovani provozu site, tedy abych videl, z jake IP
na jakou odeslo kolik bytes, kolik bylo prijato atd ? Potrebuji to pro
statisticke ucely ve firme.
Diky
PK
Problem pri kopirovani suborov
[*] NEVESELY Lubos <lubos.nevesely(zv)za.asset.sk> - 11.10.1999 14:40:10
Mam nasledujuci problem pri kopirovani suborov. Ak by niekto
vedel poradit, bol by som mu vdacny.
Prepacte za OT, ale mozno sa niekto stretol s podobnym
problemom.
Ked kopirujem subor.exe zo stanice na server, vsetko
prebehne bez problemov, ale ked potom spustam
subor.exe zo servera, nesprava sa tak, ako ked ho spustam
zo stanice. (Subor sposobil neplatnu operaciu...).
Po opatovnom prekopirovani suboru sa chyba vyskytuje
na uplne inom mieste, pripadne sa uz nevyskytuje.
Vyzera to tak, ako keby subor bol prekopirovany chybne,
aj ked vsetko sedi (datum, cas, aj velkost a pri kopirovani
nehlasi ziadnu chybu). Okrem toho sa subor sprava rovnako
na kazdej stanici, takze chyba nenastava pri citani suboru
zo servera. Vsimol som si, ze ak sa pri kopirovani suboru
na server progress bar na malu chvilku zastavi (na pol sekundy)
a pokracuje po tomto 'zaseknuti', je skopirovany subor chybny.
Ak progress bar bezi hladko a plynule bez zastavenia, je
subor v poriadku.
Stanica - Windows 98
Server - NT Server 4.0
Diky.
Lubos
Formatovani diskety
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 11.10.1999 14:55:12
nasel jsem priklad formatovani, ale nezkousel :
Formatting a drive under Win32
Question:
How can I format a drive under Win32?
Answer:
You can use the ShellAPI funciton ShFormatDrive().
Example:
const SHFMT_DRV_A = 0;
const SHFMT_DRV_B = 1;
const SHFMT_ID_DEFAULT = $FFFF;
const SHFMT_OPT_QUICKFORMAT = 0;
const SHFMT_OPT_FULLFORMAT = 1;
const SHFMT_OPT_SYSONLY = 2;
const SHFMT_ERROR = -1;
const SHFMT_CANCEL = -2;
const SHFMT_NOFORMAT = -3;
function SHFormatDrive(hWnd : HWND;
Drive : Word;
fmtID : Word;
Options : Word) : Longint
stdcall; external 'Shell32.dll' name 'SHFormatDrive';
procedure TForm1.Button1Click(Sender: TObject);
var
FmtRes : longint;
begin
try
FmtRes:= ShFormatDrive(Handle,
SHFMT_DRV_A,
SHFMT_ID_DEFAULT,
SHFMT_OPT_QUICKFORMAT);
case FmtRes of
SHFMT_ERROR : ShowMessage('Error formatting the drive');
SHFMT_CANCEL :
ShowMessage('User canceled formatting the drive');
SHFMT_NOFORMAT : ShowMessage('No Format')
else
ShowMessage('Disk has been formatted');
end;
except
end;
end;
> -----P�vodn� zpr�va-----
> Od: Libor Klicnik [SMTP:libor_klicnik(zv)aisoft(tec)cz]
> Odesl�no: 11.11.1999 13:58
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Formatovani diskety
>
> Zdravim,
>
> chtel bych se zeptat, zda-li nekdo nevi jak v D4 pomoci API nebo
> neceho formatovat disketu. Opravdu to nemuzu nikde najit.
> Dekuji za odpoved.
>
> LK
>
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
SQL record
[*] SICHTA Daniel <daniel.sichta(zv)za.asset.sk> - 11.10.1999 15:01:50
To je pekne ale co v pripade ak medzi tym ako mi storovana
procedura vrati ID mi niekto druhy insertne riadok ? Ja to riesim takto:
Mam strored proceduru, ktora zvysuje ID o jeden a vrati hodnotu.
Pred insertom zavolan stored proceduru a ID ulozim do premennej.
Potom zavola Insert. (v insert trigri uz nezvysujem ID)
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
-----P�vodn� zpr�va-----
Od: SICHTA Daniel <daniel.sichta(zv)za.asset.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 11. november 1999 11:38
P�edm�t: RE: SQL record
> Je to InterBase server, ale asi som sa zle vyjadril. Vsetko co
>ste napisali je pravda. Ja vsak potrebujem ihned po inserte
zistit cislo
>ktore mi GEN_ID vygeneroval pre danny stlpec.
> Ak som na Informixe urobil insert do tabulky v ktorej bol
jeden
>stlpec typu SERIAL tak som to vygenerovane cislo zistil cez
SQLCA
>record.
> Moja otazka znie - ako to zistim v InterBase?
>
> Dakujem
>
>
> Z vaseho dotazu usuzuji na Interbase Server.
> Tato informace neexistuje, Gen_ID neni specialne pro sloupce,
> je to obecny generator, ktery je mozno pouzit pro slopce.
> Zpravidla vsak bude "povesen" na PK (Primary Key).
> Nejjednodussi je zobrazit si triggry before insert.
>
> Slavek
>
> W98 D5
>
> Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
>je
> "zaveseny" GEN_ID ?
> ( V informixe to bolo tusim v SQLCA recorde)
> Dakujem !!
>
> ) daniel.sichta(zv)za.asset.sk
>Monitoring systemovych zdrojov
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 11.10.1999 15:03:21
> -----P�vodn� zpr�va-----
> Od: Petr Brant [mailto:p.brant(zv)samo(tec)cz]
> P�edm�t: RE: Monitoring systemovych zdrojov
>
>
> U nas pouzivame BoundsChecker, daji se tam nastavit ruzne stupne
a kde se to da sehnat?
mozno nekde stahnout, nebo draze zaplatit,
kdo to vyrabi?
> sledovani (dokonce odhali i chyby v MFC), odhali memory
> leakes, zapis do
> nepovolene oblasti pameti, pouziti nespravnych poiteru apod. Vse pro
> MSVC++, ale pri instalaci se nabizely take Delphi 3.0. S
> Delphi jsem to
> ale nezkousel. Word v MDI
[*] Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz> - 11.10.1999 15:44:00
Slab�, Petr (Pilsen), 11.11.1999 15:37:17
Miroslav Mares wrote:
> Nazdarek,
>
> zkousim to jeste jednou, copak se to nikomu nestalo?? Kdyz si otevru
> Word v MDI aplikaci, tak se mi neukaze wordovske menu soubor. Word
> oteviram pomoci OleContaineru. A me zajima, jak tam dostat to menu
> soubor, a nebo jak obslouzit ty metody, ktere menu soubor obsahuje??
Ahoj,
podle OLE specifikace musi menu File poskytovat container, tedy v tomto pripade ty.
Otevrit a ulozit soubor je primo v komponente TOleContainer (CreateObjectFromFile a SaveAsDocument), trochu problem je s print a print preview. Da se udelat nampriklad takto (ole server musi podporovat IOleCommandTarget, coz ale winword dela). Preview se mi ale bohuzel nepodarilo rozchodit. Jestli se vzpominam, tak word tvrdil, ze ho podporuje ale pak nic nezobrazil. Kdyby se to nekomu povedlo, dejte mi vedet.
Best regards,
PS.
///////// Print:
procedure TfrmTBOle.mniFilePrintClick(Sender: TObject);
var xExInf: TShellExecuteInfo;
vi, vo: OleVariant;
xTg: IOleCommandTarget;
xCmd: array [0..1] of TOleCmd;
hRes: hResult;
bPrinted: Boolean;
begin
bPrinted := false;
if xOleCont.OleObjectInterface = nil then exit;
xOleCont.OleObjectInterface.QueryInterface(IOleCommandTarget, xTg);
if xTg <> nil then
begin
xCmd[0].cmdID := OLECMDID_PRINT;
xTg.QueryStatus(nil, 1, (zv)xCmd[0], nil);
if (xCmd[0].cmdf and OLECMDF_SUPPORTED) > 0 then begin
vi := 0; vo := 0;
hRes := xTg.Exec(nil, OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vi, vo);
if hRes = OLECMDERR_E_CANCELED then exit; {User canceled printing}
if hRes = S_OK then bPrinted := True;
end;
end;
end;//////// Test jestli je mozno delat preview a page setup
procedure TfrmTBOle.File1Click(Sender: TObject);
var (*bSupported, bEnabled: Boolean;*)
xTg: IOleCommandTarget;
xCmd: array [0..1] of TOleCmd;
begin
{Find out whether page setup and print preview is supported}
xTg := nil;
if xOleCont.OleObjectInterface <> nil then
xOleCont.OleObjectInterface.QueryInterface(IOleCommandTarget, xTg);
xCmd[0].cmdf := 0;
xCmd[1].cmdf := 0;
if xTg <> nil then
begin
xCmd[0].cmdID := OLECMDID_PAGESETUP;
xCmd[1].cmdID := OLECMDID_PRINTPREVIEW;
xTg.QueryStatus(nil, 1, (zv)xCmd[0], nil);
xTg.QueryStatus(nil, 1, (zv)xCmd[1], nil);
end;
mniPageSetup.Visible := (xCmd[0].cmdf and OLECMDF_SUPPORTED) > 0;
if mniPageSetup.Visible then mniPageSetup.Enabled := (xCmd[0].cmdf and OLECMDF_ENABLED) > 0
else mniPageSetup.Enabled := False;
(xCmd[1].cmdf and OLECMDF_SUPPORTED) > 0; {???? Does not work somehow}
if mniPrintPreview.Visible then mniPrintPreview.Enabled := (xCmd[1].cmdf and OLECMDF_ENABLED) > 0
else mniPrintPreview.Enabled := False;
end;
/////////////////// Preview
{ Print preview - enabled only if supported by the server }
procedure TfrmTBOle.mniPrintPreviewClick(Sender: TObject);
var xTg: IOleCommandTarget;
vi, vo: OleVariant;
begin
xOleCont.OleObjectInterface.QueryInterface(IOleCommandTarget, xTg);
if xTg <> nil then
begin
vi := 0; vo := 0;
OleCheck(xTg.Exec(nil, OLECMDID_PRINTPREVIEW, 0, vi, vo));
end;
end;
Formatovani diskety
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 11.10.1999 15:59:17
At 13:57 11.11.1999 +0100, you wrote:
>Zdravim,
>
>chtel bych se zeptat, zda-li nekdo nevi jak v D4 pomoci API nebo
>neceho formatovat disketu. Opravdu to nemuzu nikde najit.
>Dekuji za odpoved.
>
> LK
procedure Formatdiskety(Sender: TObject);
var
FmtRes: longint;
begin
try
FmtRes:=ShFormatDrive(Handle,0,$FFFF,0);
case FmtRes of
-1: Application.MessageBox('Chyba p�i form�tov�n�
diskety','Varov�n�',MB_RIGHT+MB_ICONWARNING);
-2: Application.MessageBox('Form�tov�n� diskety zru�eno
u�ivatelem','Varov�n�',MB_RIGHT+MB_ICONWARNING);
-3:
Application.MessageBox('Nenaform�tov�no','Varov�n�',MB_RIGHT+MB_ICONWARNING)
else Application.MessageBox('Disketa
naform�tov�na','Informace',MB_RIGHT+MB_ICONWARNING);
end;
except
end;
end;
pri pouziti
function SHFormatDrive(hWnd: HWND; Drive:Word; fmtID: Word; Options: Word):
longint;
stdcall; external 'Shell32.dll' name 'SHFormatDrive';
Petr Klinger
****************************************************
* SIT & KHASO v.o.s. *
* Politickych veznu 9 *
* 111 21 PRAHA 1 *
* Ceska republika *
* *
* Ekonomicky software VABANK *
* Celni programy JCD&TCP *
* *
* Tel.: +42-2-24211287 *
* Fax.: +42-2-24236658 *
* BBS : +42-2-24237372 *
* *
* WWW : http://www.sitkhaso(tec)cz *
* Mail: sitkhaso(zv)sitkhaso(tec)cz *
**************************************************** SQL record
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 11.10.1999 16:19:53
A kde je problem? Jemu sa zvysi ID tiez o jeden.
Predsa princip generatora spociva v tom, ze sa nemoze nastat aby dvaja
dostali stejne cislo.
Mozno si nevsimol, ze v storovanom procedure zvysujem ID cez generator.
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
-----P�vodn� zpr�va-----
Od: SICHTA Daniel <daniel.sichta(zv)za.asset.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 11. november 1999 15:51
P�edm�t: RE: SQL record
> To je pekne ale co v pripade ak medzi tym ako mi storovana
>procedura vrati ID mi niekto druhy insertne riadok ?
>
> Ja to riesim takto:
>
> Mam strored proceduru, ktora zvysuje ID o jeden a vrati hodnotu.
> Pred insertom zavolan stored proceduru a ID ulozim do premennej.
> Potom zavola Insert. (v insert trigri uz nezvysujem ID)
>
> TUNGLI J�nos
> EMail: jan.tungli(zv)seznam(tec)cz
> My Home Page: http://free.netlap.hu/4321/
> or: http://freeweb.coco(tec)cz/tungli/
>
> -----P�vodn� zpr�va-----
> Od: SICHTA Daniel <daniel.sichta(zv)za.asset.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 11. november 1999 11:38
> P�edm�t: RE: SQL record
>
>
> > Je to InterBase server, ale asi som sa zle vyjadril. Vsetko co
> >ste napisali je pravda. Ja vsak potrebujem ihned po inserte
>zistit cislo
> >ktore mi GEN_ID vygeneroval pre danny stlpec.
> > Ak som na Informixe urobil insert do tabulky v ktorej bol
>jeden
> >stlpec typu SERIAL tak som to vygenerovane cislo zistil cez
>SQLCA
> >record.
> > Moja otazka znie - ako to zistim v InterBase?
> >
> > Dakujem
> >
> >
> > Z vaseho dotazu usuzuji na Interbase Server.
> > Tato informace neexistuje, Gen_ID neni specialne pro sloupce,
> > je to obecny generator, ktery je mozno pouzit pro slopce.
> > Zpravidla vsak bude "povesen" na PK (Primary Key).
> > Nejjednodussi je zobrazit si triggry before insert.
> >
> > Slavek
> >
> > W98 D5
> >
> > Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
> >je
> > "zaveseny" GEN_ID ?
> > ( V informixe to bolo tusim v SQLCA recorde)
> > Dakujem !!
> >
> > ) daniel.sichta(zv)za.asset.sk
> >
>TRXDBLookupCombobox
[*] Tomas Holy <thom(zv)comberg(tec)cz> - 11.10.1999 16:20:18
mohl bych poprosit o zaslani jednoduchockeho prikladu, me to proste nejde,
asi jsem totalni blb, ale nejde
diky moc TH
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Mal� Dobromil
Sent: Thursday, November 11, 1999 9:38 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: TRXDBLookupCombobox
Me to funguje...
Zmacknu "D" a v rozbalenem listu to preskoci
na prvni zaznam zacinajici pismenem "D",
zmacknu "E" a v rozbalenem listu to preskoci
na prvni zaznam zacinajici pismeny "DE",
zmacknu "L" a v rozbalenem listu to preskoci
na prvni zaznam zacinajici pismeny "DEL",
zmacknu "P" a dal uz to vsichni znate...
Tohle jsi myslel ?
Dobra.> -----Tom� Hol� napsal :-----
> ma nekdo zkusenosti se %SUBJ%
>
> v manualu se pise:
>
> TRxDBLookupCombo provides an incremental search through lookup list
> by
> directly typing into the combo control while the lookup list is
> displayed, LookupSource can refer to TTable, TQuery, TRxQuery or
> TQBEQuery. It even incrementally searches on the query results and
> much more...
>
> ale kde nic tu nic.
>
> uz jsem prolezl vsechno, diky za radu
>
> (To jeste nikdo proboha nepotreboval v Delphi normalne funkci
> combobox, nebo
> vsichni delaji v accessu ?)
>
>Problem pri kopirovani suborov
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 11.10.1999 16:25:48
Ja by som hladal chybu v programe. Vyzera to na pointrovu chybu.
Ale pre bezpecnost urob "scan disk" na staniciach.
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
-----P�vodn� zpr�va-----
Od: NEVESELY Lubos <lubos.nevesely(zv)za.asset.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 11. november 1999 15:21
P�edm�t: Problem pri kopirovani suborov
>Mam nasledujuci problem pri kopirovani suborov. Ak by niekto
>vedel poradit, bol by som mu vdacny.
>Prepacte za OT, ale mozno sa niekto stretol s podobnym
>problemom.
>
>Ked kopirujem subor.exe zo stanice na server, vsetko
>prebehne bez problemov, ale ked potom spustam
>subor.exe zo servera, nesprava sa tak, ako ked ho spustam
>zo stanice. (Subor sposobil neplatnu operaciu...).
>Po opatovnom prekopirovani suboru sa chyba vyskytuje
>na uplne inom mieste, pripadne sa uz nevyskytuje.
>Vyzera to tak, ako keby subor bol prekopirovany chybne,
>aj ked vsetko sedi (datum, cas, aj velkost a pri kopirovani
>nehlasi ziadnu chybu). Okrem toho sa subor sprava rovnako
>na kazdej stanici, takze chyba nenastava pri citani suboru
>zo servera. Vsimol som si, ze ak sa pri kopirovani suboru
>na server progress bar na malu chvilku zastavi (na pol sekundy)
>a pokracuje po tomto 'zaseknuti', je skopirovany subor chybny.
>Ak progress bar bezi hladko a plynule bez zastavenia, je
>subor v poriadku.
>
>Stanica - Windows 98
>Server - NT Server 4.0
>
>Diky.
>
>Lubos
>
>Formatovani diskety
[*] Jakub Mart�nek <listbox(zv)vakmb(tec)cz> - 11.10.1999 16:27:24
Podivej se do WIN32 API na "DeviceIoControl".
Nebo skus tohle
implementation
{$R *.DFM}
const
SHFMT_ID_DEFAULT = $FFFF;
// Formating options
SHFMT_OPT_QUICKFORMAT = $0000;
SHFMT_OPT_FULL = $0001;
SHFMT_OPT_SYSONLY = $0002;
// Error codes
SHFMT_ERROR = $FFFFFFFF;
SHFMT_CANCEL = $FFFFFFFE;
SHFMT_NOFORMAT = $FFFFFFFD;
function SHFormatDrive(Handle: HWND; Drive, ID, Options: Word): LongInt;
stdcall; external 'shell32.dll' name 'SHFormatDrive'
procedure TForm1.Button1Click(Sender: TObject);
var ReturnCode: LongInt;
begin
ReturnCode:= SHFormatDrive(Handle, 0,
SHFMT_ID_DEFAULT,SHFMT_OPT_QUICKFORMAT);
if retCode < 0 then
ShowMessage('Nic nebylo formatovano');
end;
end.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Libor Klicnik
> Sent: Thursday, November 11, 1999 1:58 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Formatovani diskety
>
>
> Zdravim,
>
> chtel bych se zeptat, zda-li nekdo nevi jak v D4 pomoci API nebo
> neceho formatovat disketu. Opravdu to nemuzu nikde najit.
> Dekuji za odpoved.
>
> LK
>
>
>
Formatovani diskety
[*] Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz> - 11.10.1999 16:35:13
"Fryz, Zdenek" wrote:
> nasel jsem priklad formatovani, ale nezkousel :
>
Jo to je presne ono. Chodi to bezvadne. Dekuji.
Instalace komponent bez zdrojaku a balicku pod D4
[*] "Jitka �t�p�nkov�" <step(zv)odp(tec)cz> - 11.10.1999 16:44:48
Mozna by vas zajimalo, co jsem se docetla v Mistrovstvi v Delphi 3.
Cituji:
Jestlize pri distribuci jednotek Delphi ve forme souboru .dcu nedavate k dispozici odpovidajici zdrojove soubory .pas, nezapomente jednotky zkompilovat s direktivou $D- , aby se do nich NEVKLADALY ladici informace. Jestlize se totiz uzivatel pri ladeni aplikace, ktera jednotku vyuziva, pokusi do teto jednotky provest krokovani, ohlasi debugger chybu, protoze chybi odpovidajici soubor .pas. Programovy kod v jednotkach, ktere ladici informace neobsahuji, debugger automaticky preskakuje (krokuje bez vnoreni), takze uzivateli se zadna neprijemna chybova zprava nezobrazi.
Konec citatu.
Domnivam se, ze to bude platit pro vsechny zname verze Delphi.*********** REPLY SEPARATOR ***********
On 11.11.1999, at 14:23, Ladislav Dolezel wrote:
>Pokud jsou zkompilovany ve stejne verzi Delphi, jakou pouzivas ty, melo
>byt to jet. Jinak ne.
>-Dodo-
>
>Vladimir Sladky wrote:
>
>> Poradi prosim nekdo, jak se daji nainstalovat pod Delphi4 komponenty,
>> od kterych jsou jen zkompilovane unity (chybi i soubory balicku) ?
>>
>> Delphi se po instalaci mnou vytvoreneho balicku stale snazi hledat
>> zdrojaky komponent a kompilovat je ... :-(
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Jitka Stepankova
ODP-software spol. s r. o.
tel.: (068) 5725 216
e-mail step(zv)odp(tec)cz
xxxxxxxxxxxxxxxxxxxxxxxxxxx
adresa sitove karty
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 11.10.1999 17:13:52
Doller.Jozef(zv)zsr.sk wrote:
>
> Ak myslis MAC adresu (fyzicku) tak je to prikaz
>nbtstat -A xxx.xxx.xxx.xxx
>nbtstat -A meno_pc
spravne nbtstat -a meno_pc
Vaclav Sazima
rozne komponenty ADO
[*] Richard Sladek <richard_sladek(zv)hotmail(tec)com> - 11.10.1999 16:22:01 cet
Ja mozem odporucat komponenty ADONIS, pouzivam ich uz dlhsiu dobu a mam s
nimi velmi dobre skusenosti.
Viac informacii na http://www.cybermagic.co.nz/adonis/
Zdravi
Richard Sladek
>From: "Zak Robert" <nrsys(zv)psn.sk>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: <delphi-l(zv)fwd(tec)cz>
>Subject: rozne komponenty ADO
>Date: Thu, 11 Nov 1999 10:03:01 +0100
>
>Zdravim,
>
> Mam zaujem o kupu ADO komponentov a chcem sa spytat, kedze som pocul ze
>ich nedodava iba Borland, kto este dodava ine ADO komponenty a ake su ich
>pripadne vyhody ci nevyhody.
>
>
>Dakujem
>
>R.Zak
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
N�hrada TTabbedNotebook za TPageControl
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.10.1999 17:55:19
Ahoj
nahrazuji TTabbedNotebook za TPageControl a mam problem pri prevodu funkci
povesenych na onChange funkcemi onChange a onChanging, predevsim, jak urcim
cilovou (NewTab) zalozku? viz procedure TForm1.TabbedNotebook1Change(Sender:
TObject; NewTab: Integer; var AllowChange: Boolean); NewTab tam chybi (nebo
je potreba nejaka funkce?)
Diky za jakoukoliv radu
Jaro B.Linkovani *.OBJ z Delphi 4.0 s *.OBJ MS Visual C++
[*] Jirka Majvald <majvald(zv)email(tec)cz> - 11.10.1999 17:00:03 -0000
Bohuzel te musim zklamat ale ja jsem se o to taky pokousel a bezuspesne.
Dokonce jsem pak nekde na inetu nasel ze to opravdu nejde ....
----- Original Message -----
From: Vladimir Sladky <info(zv)euromont(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 12:53 PM
Subject: Linkovani *.OBJ z Delphi 4.0 s *.OBJ MS Visual C++ 5.0
> Poradi prosim nekdo, jak slinkovat *.OBJ z Delphi 4.0 s *.OBJ MS Visual
C++ 5.0,
> kdyz nechci pouzivat *.DLL, ale vytvorit radeji jeden *.EXE ?
>
> *.OBJ z Borland C++ se da slinkovat s Delphi *.OBJ bez problemu vlozenim
> {$L Nazev.OBJ} do zdrojaku, ale *.OBJ z VC ma bohuzel jiny format ...
>
> Neexistuje neco, co by umelo treba z *.DLL udelat znovu *.OBJ linkovatelny
> s Delphi ?
>
>
>
>
algoritmus na piskvorky
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 11.10.1999 18:21:49
Ale ten program v CHIPe je slaby
nemal som s nim problemy
olej
p.s. A este ked zacinas tak si to mozes vychutnat ;o)> -----Original Message-----
> From: Petr Kundrata
> Sent: 11. november 1999 8:07
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: algoritmus na piskvorky
>
> Standa Kunc wrote:
> >
> > Zdravim,
> > na poslednim Chipu je hra piskvorky, ktera nejde porazit. Nevite nekdo
> > nahodou, jak by to slo udelat? Alespon ten princip.
> >
> > Predem dekuji S. Kunc
>
> Kdysi jsem delal neco podobneho, protoze mne nebavilo porad
> prohravat (People2People).
> Jeste jsem nad tim nevyhral, zkusenejsi hrac ale vyhral na
> poprve.
> http://www.volny(tec)cz/pksoft/index.html#My_Software
> Je to v Turbo C 2.0 a je tam exe i zdroje.
>
> Petr Kundrata
Testovani stringu
[*] Lukas Suchanek <lukas.suchanek(zv)lerach(tec)cz> - 11.10.1999 18:58:40
Ave,
> Mam textovy soubor. Z� toho nactu 2-4 (tedy 3 znaky) znak do promene. V�
> pripade, ze je toto cislo 0-999, tak pracuji s� timto radkem dal. Jinak
> testuji dal�� radek. Existuje nejake elegantni reseni, kterym zjistim, ze
> je toto cislo 0-999? Ono to toti� nemusi byt cislo, ale t�eba 'XYX'. Kdy�
> prevedu tento string na INT, tak mi to hodi pokazde, kdy� je tam n�co
> jineho nez cislo, nulu a to ja nepotrebuju. Slo by testovat znak po znaku,
> ale to je docela zdlouhave...Nedelam to v� delphim ani v� packalu, proto
> bych uvital nejaky obecnejsi algoritmus. Snad jsem to vysvetlil
> srozumitelne. Thx a lot.
Asi bych to resil tak, ze pro nacteny retezec 's' bych zkusil
if (s>='000') and (s<='999') Then CoUznasZaVhodne
else NecoJineho
/ Lukas Suchanek
--- Lukas Suchanek -------- 0602 / 844 355 ---
---------- lukas.suchanek(zv)lerach(tec)cz ----------
SQL record
[*] Ing. Jaroslav �ke��k - 11.10.1999 19:09:07
To prece nicemu nevadi, protoze ten druhy take pouzije generator
a on obdrzi nove vyssi cislo. Generator pri kazdem zavolani
zvysi cislo, takze duplicita je vyloucena. Jakmile ti generator jednou
prideli ID, tak uz ti ho nikdo nemuze obsadit, i kdyz te muze predbehnout.
Pokud by nekdo pri Insert nahodou nezavolal generator,
tak by jeho ID bylo neobsazene a zaznam by nesel ulozit,
protoze ID by melo byt zaroven primarnim klicem
nebo by melo byt alespon NOT NULL.
Vyhoda takoveho (dopredneho) volani generatoru spociva napr.
pri tvorbe master-detail, kdy musis vsechny detaily ocislovat hodnotou
ID - master a pritom master se ulozi az se vsemi detaily najednou.
Jaro
> To je pekne ale co v pripade ak medzi tym ako mi storovana
> procedura vrati ID mi niekto druhy insertne riadok ?
>
>
> Ja to riesim takto:
>
> Mam strored proceduru, ktora zvysuje ID o jeden a vrati hodnotu.
> Pred insertom zavolan stored proceduru a ID ulozim do premennej.
> Potom zavola Insert. (v insert trigri uz nezvysujem ID)
>
> TUNGLI Janos
> EMail: jan.tungli(zv)seznam(tec)cz
> My Home Page: http://free.netlap.hu/4321/
> or: http://freeweb.coco(tec)cz/tungli/
>
> -----Puvodni zprava-----
> Od: SICHTA Daniel <daniel.sichta(zv)za.asset.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Datum: 11. november 1999 11:38
> Predmet: RE: SQL record
>
>
> > Je to InterBase server, ale asi som sa zle vyjadril. Vsetko co
> >ste napisali je pravda. Ja vsak potrebujem ihned po inserte
> zistit cislo
> >ktore mi GEN_ID vygeneroval pre danny stlpec.
> > Ak som na Informixe urobil insert do tabulky v ktorej bol
> jeden
> >stlpec typu SERIAL tak som to vygenerovane cislo zistil cez
> SQLCA
> >record.
> > Moja otazka znie - ako to zistim v InterBase?
> >
> > Dakujem
> >
> >
> > Z vaseho dotazu usuzuji na Interbase Server.
> > Tato informace neexistuje, Gen_ID neni specialne pro sloupce,
> > je to obecny generator, ktery je mozno pouzit pro slopce.
> > Zpravidla vsak bude "povesen" na PK (Primary Key).
> > Nejjednodussi je zobrazit si triggry before insert.
> >
> > Slavek
> >
> > W98 D5
> >
> > Ako dostanem (po inserte do tabulky) hodnotu stlpca, na ktorom
> >je
> > "zaveseny" GEN_ID ?
> > ( V informixe to bolo tusim v SQLCA recorde)
> > Dakujem !!
> >
> > ) daniel.sichta(zv)za.asset.sk
> zmena rozliseni
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 11.10.1999 20:01:15
Zdravim,
Nevedel by nekdo prosim jakym prikazem lze zmenit rozliseni
N�hrada TTabbedNotebook za TPageControl
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 11.10.1999 20:14:09
From: Bene Jaroslav <JBenes(zv)cpoj(tec)cz>
To: delphi-l(zv)fwd(tec)cz
Subject: N�hrada TTabbedNotebook za TPageControl
Date sent: Thu, 11 Nov 1999 17:55:19 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> nahrazuji TTabbedNotebook za TPageControl a mam problem pri prevodu funkci
> povesenych na onChange funkcemi onChange a onChanging, predevsim, jak urcim
> cilovou (NewTab) zalozku? viz procedure TForm1.TabbedNotebook1Change(Sender:
> TObject; NewTab: Integer; var AllowChange: Boolean); NewTab tam chybi (nebo
> je potreba nejaka funkce?)
Ahoj,
TPageControl ma dve udalosti pri zmene stranky: OnChanging a
OnChange. OnChanging je vyvolana pred zmenou stranky tedy
ActivePage je stara stranka, OnChange je vyvolana po zmene, tedy
ActivePage je nova stranka.
Petr Motlicek
Move window + Mouse down
[*] Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz> - 11.10.1999 20:55:20
Zdravim
jeste mam na vecer dve otazky
1. Jak zajistit zakaz presunu okna. Nasel jsem v API zpravu typu
WM_WINDOWPOSCHANGING a
k tomu jeste strukturu WINDOWPOS s SWP_NOMOVE , ale jak to pouzit - z
toho mam dost zamotanou hlavu.
Nebo se to da udelat nejak jednoduseji ??
2. Potrebuji odchytit MouseDown v objektu TForm - to funguje normalne.
Ale jakmile mam aktivni nejaky jiny
control napr. TEdit, TMemo apod., udalost na formulari nenastane.
Klavesy lze odchytit pres KeyPreview ale s
mysi jsem zase narazil. Jde to nejak preposlat formulari ? Jde mi o to,
ze udalost OnMouseDown na ostatnich
objektech nelze pouzit (v mem pripade) a musi to zpracovat az formular
samotny.
Dekuji za odpoved LK
Chyba pri instalaci aplikace v D1
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 11.10.1999 21:49:51
----- P�vodn� zpr�va -----
Od: Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 11. listopadu 1999 7:49
P�edm�t: Re: Chyba pri instalaci aplikace v D1
> Neni D1, pod Win 3.11 ? Mozna se pletu, ale pokud ano, tak to bude
> mit problem dostat to na masiny s Win95/W98 .
Ahoj,
to se teda pletes:-). Je to jako
kazda jina 16bit aplikace ve 32bit
OS.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
> Jak jsi instalaci presne delal ?
> Co treba pouzit IS ?
>
> Dan Rejchrt - BaldA
> E-mail: rejcrht(zv)ssakhk(tec)cz
> ICQ: 23131562
> Internet: http://balda.web-page.net
>
> > Na dvou strojich z nekolika set mi pri instalaci
> > (instalak je muj vlastni, zadny IS) aplikace v D1
> > dojde k chybe : EResNotFound. Resource
> > TForm0 not found. Dochazi k tomu na dvou
> > strojich teto konfigurace.
>
>algoritmus na piskvorky
[*] Erik Salaj <winsoft(zv)napri.sk> - 11.10.1999 22:25:27
> Jestli zacinas, tak ho porazit MUSIS. Viktor
Ako si na to prisiel?
Erik Salaj
Move window + Mouse down
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 12.10.1999 00:07:55
Jedno, ne zrovna elegantni reseni, by mohlo byt:
Form ma potrebnou udalost FormMouseDown.
Na vsechny v uvahu prichazejici komponenty se navesi procedura
procedure TForm1.ControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var P: TPoint;
begin
P := Point(X, Y);
P := (Sender as TControl).ClientToScreen(P);
P := Form1.ScreenToClient(P);
FormMouseDown(Sender, Button, Shift, P.X, P.Y);
end;
Provede se prepocet souradnic mysi a zavola se obsluha FormMouseDown.
Vaclav Krmela
----- Original Message -----
From: Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 8:55 PM
Subject: Move window + Mouse down
> 2. Potrebuji odchytit MouseDown v objektu TForm - to funguje normalne.
> Ale jakmile mam aktivni nejaky jiny
> control napr. TEdit, TMemo apod., udalost na formulari nenastane.
> Klavesy lze odchytit pres KeyPreview ale s
> mysi jsem zase narazil. Jde to nejak preposlat formulari ? Jde mi o to,
> ze udalost OnMouseDown na ostatnich
> objektech nelze pouzit (v mem pripade) a musi to zpracovat az formular
> samotny.
>
> Dekuji za odpoved LK
>
> Move window + Mouse down
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 12.10.1999 00:26:00
Do formu staci dodelat privatni proceduru:
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging);
message
WM_WINDOWPOSCHANGING;
a jeji implementaci:
procedure TForm1.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
with Message.WindowPos^ do flags := flags or SWP_NOMOVE;
inherited;
end;
Vaclav Krmela
----- Original Message -----
From: Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 8:55 PM
Subject: Move window + Mouse down
> 1. Jak zajistit zakaz presunu okna. Nasel jsem v API zpravu typu
> WM_WINDOWPOSCHANGING a
> k tomu jeste strukturu WINDOWPOS s SWP_NOMOVE , ale jak to pouzit - z
> toho mam dost zamotanou hlavu.
> Nebo se to da udelat nejak jednoduseji ??
>
> Dekuji za odpoved LK
>
>databaze slovicek
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.10.1999 05:54:04
Vsem, kteri mi posilaji zadosti o zaslani programu. Poslu jej vsem, je to freeware, jen pockam asi do uterka, abych to nemusel posilat 10x, protoze zadosti se mnozi. Zdrojaky bych vam klidne poslal taky, ale jak jsem psal, delal jsem to hodne, hodne davno a prisel jsem o ne.
===============================
ing. Jan Fiala jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================N�hrada TTabbedNotebook za TPageControl
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.10.1999 06:11:31
Dekuji, to je zrejme to, co jsem potreboval
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr.Motlicek(zv)bcbrno(tec)cz [SMTP:Petr.Motlicek(zv)bcbrno(tec)cz]
> Odesl�no: 11. listopadu 1999 20:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: N hrada TTabbedNotebook za TPageControl
>
> From: Bene Jaroslav <JBenes(zv)cpoj(tec)cz>
> To: delphi-l(zv)fwd(tec)cz
> Subject: N hrada TTabbedNotebook za TPageControl
> Date sent: Thu, 11 Nov 1999 17:55:19 +0100
> Send reply to: delphi-l(zv)fwd(tec)cz
>
> > nahrazuji TTabbedNotebook za TPageControl a mam problem pri prevodu
> funkci
> > povesenych na onChange funkcemi onChange a onChanging, predevsim, jak
> urcim
> > cilovou (NewTab) zalozku? viz procedure
> TForm1.TabbedNotebook1Change(Sender:
> > TObject; NewTab: Integer; var AllowChange: Boolean); NewTab tam chybi
> (nebo
> > je potreba nejaka funkce?)
>
> Ahoj,
>
> TPageControl ma dve udalosti pri zmene stranky: OnChanging a
> OnChange. OnChanging je vyvolana pred zmenou stranky tedy
> ActivePage je stara stranka, OnChange je vyvolana po zmene, tedy
> ActivePage je nova stranka.
>
> Petr Motlicek
> Monitoring systemovych zdrojov
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 12.10.1999 06:34:29
Podivej se na stranku http://www.numega.com/products/aed/del.shtml, kde
se pise o BC pro Delphi. Jinak o zpusobu nakupu ani cene nevim bohuzel
nic :-(((.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Jan Tomsa [SMTP:tomsa(zv)NOTIA.CZ]
> Odesl�no: 11. listopadu 1999 15:03
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Monitoring systemovych zdrojov
>
> > -----P�vodn� zpr�va-----
> > Od: Petr Brant [mailto:p.brant(zv)samo(tec)cz]
> > P�edm�t: RE: Monitoring systemovych zdrojov
> >
> >
> > U nas pouzivame BoundsChecker, daji se tam nastavit ruzne stupne
>
> a kde se to da sehnat?
>
> Otoceni obrazku
[*] Jan Bartu�ek <jan.bartusek(zv)spojprojekt(tec)cz> - 12.10.1999 07:08:49
> neni to priserne pomaly ?
Asi je, ale pro male obrazky (v mem pripade 64x64) rychle dost.
--------------------------------------------------------------------------
Jan Bartu�ek
jan.bartusek(zv)spojprojekt(tec)cz
st�edisko 350 - radiokomunikace
Spojprojekt Praha a.s.
www.spojprojekt(tec)cz
Problem pri kopirovani suborov
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 12.10.1999 07:25:11
> -----P�vodn� zpr�va-----
> Od: NEVESELY Lubos [mailto:lubos.nevesely(zv)za.asset.sk]
> Odesl�no: 11. listopadu 1999 14:40
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Problem pri kopirovani suborov
>
> aj ked vsetko sedi (datum, cas, aj velkost a pri kopirovani
> nehlasi ziadnu chybu).
Datum a cas je nezajimavy. Provedls binarni porovnani?
Jestli ne, zkus prikaz (DOS):
fc /b soubor1 soubor2
a uvidis, jestli jsou stejne
Jura
Databaze slovicek
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 12.10.1999 07:29:32
Pro vsechny zajemce o databazi slovicek. Uz je vas prilis mnoho, tak jsem to umistil na www.volny(tec)cz/jan.fiala
Neni tam nic jineho nez 2 zazipovane soubory :
DATA.ZIP asi 180 kB - pouze soubory se slovicky
SLOVICKA.ZIP asi 380 kB - slovicka vcetne programu na zkouseni
Pokud to chce nekdo vyslovene poslat e-Mailem, napiste na nize uvedenou adresu (ne do konference). Jinak budu predpokladat, ze si to vsichni stahli.
===============================
ing. Jan Fiala jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Pocitace na siti...
[*] Vladimir Ponechal <vladimirp(zv)seznam(tec)cz> - 12.10.1999 08:46:06
Prosim, nakopne me nekdo, jak muzu vytahnout z pocitacu na siti informace jako MAC adresu a nazev pocitace????
Dekuji moc...
VP.
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Problem pri kopirovani suborov
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 12.10.1999 07:47:17
Ahoj,
s takovym problemem jsem zapasil zrovna minuly tyden. Moje reseni
problemu :
W98 si pri instalaci najdo sitovou kartu, ktera neodpovida te v
pocitaci (nebo ji nainstaluji spatne drivery). Reseni je stahnout si
drivery od vyrobce karty a nainstalovat si je sam.
Vaclav Sazima
NEVESELY Lubos wrote:
>
> Mam nasledujuci problem pri kopirovani suborov. Ak by niekto
> vedel poradit, bol by som mu vdacny.
> Prepacte za OT, ale mozno sa niekto stretol s podobnym
> problemom.
>
> Ked kopirujem subor.exe zo stanice na server, vsetko
> prebehne bez problemov, ale ked potom spustam
> subor.exe zo servera, nesprava sa tak, ako ked ho spustam
> zo stanice. (Subor sposobil neplatnu operaciu...).
> Po opatovnom prekopirovani suboru sa chyba vyskytuje
> na uplne inom mieste, pripadne sa uz nevyskytuje.
> Vyzera to tak, ako keby subor bol prekopirovany chybne,
> aj ked vsetko sedi (datum, cas, aj velkost a pri kopirovani
> nehlasi ziadnu chybu). Okrem toho sa subor sprava rovnako
> na kazdej stanici, takze chyba nenastava pri citani suboru
> zo servera. Vsimol som si, ze ak sa pri kopirovani suboru
> na server progress bar na malu chvilku zastavi (na pol sekundy)
> a pokracuje po tomto 'zaseknuti', je skopirovany subor chybny.
> Ak progress bar bezi hladko a plynule bez zastavenia, je
> subor v poriadku.
>
> Stanica - Windows 98
> Server - NT Server 4.0
>
> Diky.
>
> Lubos
PopupMenu
[*] Tibor Galik <tgalik(zv)vsz.sk> - 12.10.1999 08:14:53
Ahoj,
pred dvoma dnami som pisal tento mail. Urcite to niekto z Vas ma vyriesene, v aplikaciach som to videl. Pokusal som sa odchytat Msg pomocou WinSight, ale nepomohlo mi to. Nie som este v tom zbehli.
Moj problem:
Ako mam naprogramovat Button aby sa spraval ako tlacitko s otaznikom? Ked definujem pre TForm BorderIcons=[biMaximize,biMinimize] nefunguje biHelp. Ale chcel by som to urobit na tlacitko. Co sa generuje pri stlaceni biHelp.
dakujem
tg
S pozdravom/Regards
Tibor Galik
tgalik(zv)vsz.sk
Delphi + Btrieve
[*] sup(zv)svitap(tec)cz - 12.10.1999 8:15:52
>Na tom neni nic tajneho. Poslu to primo na osobni mail.
>S temi komponentami to je slozitejsi v tom, ze nejsou zdokumentovane.
>Mam je ale pouzite v "zive" aplikaci, tak bych tomu mohl jeste nejaky cas
>venovat, ucesat, zdokumentovat a nabidnout. Jsou to komponenty:
>TBtrTable - nadefinuje se struktura a je mozne pristupovat k jednotlivym
> polozkam
>TBtrTableGrig, TBtrvScrollBar - grid bez moznosti editace, jenom zobrazeni
>TBtrTableEdit, TBtrTableCombo, TBtrTableMemo - editacni komponenty
>TSestavaB - upraveny generator tiskovych sestav Sinea
>K provozu neni potreba ani BDE ani ODBC.
>
>Vaclav Krmela
>
V tom pripade bych mel zajem i ja.... (NoBDE aplication)
Diky predem
>>
>> >Nakonec jsem zustal u pristupu na nejnizsi urovni, tak jak jsem byl
>zvykly
>> >z DOSu. Pres knihovnu WBTRCALL.DLL volam primo funkci BTRV.
>> >Pokusil jsem se udelat i nejake pomocne komponenty usite na moji
potrebu.
>> >
>>
> Ta posledni veta mne zaujala. Byl bys ochoten poskytnout interface teto
> knihovny, pokud mozno v pascalovske syntaxi ?
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
algoritmus na piskvorky
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 12.10.1999 08:22:08
Tedy teoreticky. V piskvorkach (nekde jsem to cetl) pri idealni hre musi
vzdycky vyhrat ten co zacina. Viktor
----- Original Message -----
From: Erik Salaj <winsoft(zv)napri.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 10:25 PM
Subject: Re: algoritmus na piskvorky
> > Jestli zacinas, tak ho porazit MUSIS. Viktor
>
> Ako si na to prisiel?
>
> Erik Salaj
>
>PopupMenu
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 12.10.1999 08:30:47
Ve WndProc si odchyt message WM_HELP a tam si dopis reakci.
> -----P�vodn� zpr�va-----
> Od: Tibor Galik
> Odesl�no: 12. listopadu 1999 8:15
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: PopupMenu
>
> Ahoj,
> pred dvoma dnami som pisal tento mail. Urcite to niekto z Vas ma
vyriesene, v aplikaciach som to videl. Pokusal som sa odchytat Msg pomocou
WinSight, ale nepomohlo mi to. Nie som este v tom zbehli.
> Moj problem:
> Ako mam naprogramovat Button aby sa spraval ako tlacitko s otaznikom? Ked
definujem pre TForm BorderIcons=[biMaximize,biMinimize] nefunguje biHelp.
Ale chcel by som to urobit na tlacitko. Co sa generuje pri stlaceni biHelp.
>
> dakujem
>
> tg
>
>
> S pozdravom/Regards
>
> Tibor Galik
> tgalik(zv)vsz.sk
>
> Dotaz na diskuzni skupinu o C++ Builder
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 12.10.1999 08:34:07
Nevi nekdo, jestli v Cesku existuje diskuzni skupina o C++ Builderu?
Pokud ano muzete mi zaslat kontakt na ni?
Josef Zvonicek
PROSOFT Kromeriz s.r.o.
Soudni 1293
KROMERIZ 767 01
Czech Republic
tel/fax 0420 (0)634 333545
GSM: 0420 (0)602 305919
GSM 0420 (0)602 305920
e-mail: prosoft(zv)prosoft(tec)cz
TRXDBLookupCombobox
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 12.10.1999 08:45:20
Ahoj Thome,
ja vim co mas na mysli a RxDbLookupCombo ti nepomuze, vcera jsem to zkousel,
ten umi vyhledavat psanim v existujici zdrojove tabulce, ale neumi zadat
novou hodnotu a je to docela logicky, protoze muze zobrazovat jinou hodnotu
nez pres kterou je spojenej s tou tabulkou do ktery zapisujes. Takze si ani
nedokazu predstavit jak by si zadal tu hodnotu.
Pr.
Kdyz mas ciselnik leku se suklem a jmenem tak strkas do ostatnich tabulek
jenom sukl a pokud to delas prees LookupCombo tak zobrazujes jmeno a ve
chvili kdy by si chtel zadta jmeno, ktery neexistuje tak by si do cisleniku
musel pridat record a dat tam to jmeno, ale jak by si tam dal ten sukl ?
Marek Soukup
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Tomas Holy
> Odesl�no: 11. listopadu 1999 16:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TRXDBLookupCombobox
>
>
> mohl bych poprosit o zaslani jednoduchockeho prikladu, me to proste nejde,
> asi jsem totalni blb, ale nejde
>
> diky moc TH
>
Otoceni obrazku
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 12.10.1999 09:44:40
> neni to priserne pomaly ?
Je ... :-)
Hledej ve Win32 pod heslem Bitmap Rotation a nejdes odkaz
na funkci PlgBlt ...
Daniel
Windows provides a function to copy a bitmap into a parallelogram; this function, PlgBlt, performs a bit-block transfer from a
rectangle in a source device context into a parallelogram in a destination device context. In order to rotate the bitmap, an
application must provide the coordinates, in world units, to be used for the corners of the parallelogram. (For more information
about rotation and world units, see Coordinate Spaces and Transformations.)
----- P�vodn� zpr�va -----
Od: Jan Tomsa <tomsa(zv)NOTIA.CZ>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 11. listopadu 1999 13:54
P�edm�t: RE: Otoceni obrazku
> neni to priserne pomaly ?
>
referencia
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 12.10.1999 10:17:46
Ako je mozne zistit referencny model nejakej databazy? Ktora tabulka na ktore sa odkazuje.
Viete nieco?
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
TPage Control, vlastn� vykreslen� ou�ka a zobrazen
[*] Pavel Bl�hovec <blahovec(zv)stapro(tec)cz> - 12.10.1999 10:44:55
M�m probl�m. Pot�ebuji m�t vlastn� barvu formul��e a komponent. U TPageControl jsem narazil na probl�m, �e u ou�ka nedok�u zm�nit barvu pozad�. V�echno ostatn� m� spr�vnou barvu. Abych si obarvil i ou�ko, nastavil jsem OwnerDraw na True a do ud�losti ondrawtab napsal vlastn� vykreslen�. V�e je ok, ale chyb� mi tam zobrazen� hotkey. Jak udelam aby mi fungovalo takov�to "Se&znam", aby "z" bylo podtr�en�.
Pro tisk textu pou��v�m PageControl.Canvas.TextOut('Seznam');
D�ky moc za ka�dou radu
Pavel Bl�hovec
Jak ru�n� vyvol�m se�azen� u TListView
[*] Pavel Bl�hovec <blahovec(zv)stapro(tec)cz> - 12.10.1999 10:48:40
M�m komponentu TListView a naplnenou v nekolika sloupcich daty. Kdyz kliknu na zahlavi sloupce, seradi se mi polozky podle toho na ktere zahlavi jsem kliknul. Lze nejak rucne zavolat toto serazeni?
Procetl jsem manual, ale na nic jsem nanarazil.
D�ky moc za ka�dou radu
Pavel Bl�hovec
OKI FAX 4100
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 12.10.1999 10:49:04
Mame problemy s tiskem na tiskarnu OKI FAX 4100 z Delphi 4, QR 3.0. Neresil jste to nekdy nekdo? neni treba nejaky novy driver?
J. N�dhera
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
Presne ulozen� sirky sloupce v TDBGrid
[*] Pavel Bl�hovec <blahovec(zv)stapro(tec)cz> - 12.10.1999 10:52:01
Uzivatele pozaduji, aby si tabulka DBGrid pamatovala posledni nastaveni sirky sloupce.
Udelal jsem to tak, ze si ukladam ze zobrazenych fieldu (TStringField, TFlatField) polozku DisplayWidth. Spravne se mi ulozi, spravne se mi i nacte. Problem je vsak v tom, ze sirka sloupce neni identicka s sirkou, ktera byla predtim, i kdyz polozka DisplayWidth je stejna.
Setkal se nekdo s timto problem a neznate na nej nekdo reseni?
D�ky moc za ka�dou radu
Pavel Bl�hovec
algoritmus na piskvorky
[*] Erik Salaj <winsoft(zv)napri.sk> - 12.10.1999 11:30:50
> Tedy teoreticky. V piskvorkach (nekde jsem to cetl) pri idealni hre musi
> vzdycky vyhrat ten co zacina. Viktor
Urcitu vyhodu zacinajuci ma, ale nepovedal by som, ze musi vyhrat. Skor by
som povedal, ze hra by skoncila remizou (je to len moj nazor, ale viz napr.
hru Tic-Tac-Toe, co je nieco podobne ale obmedzene na 3*3 policka).
Prakticky ale idealne tahy nevies zistit, takze vyhra ten lepsi, sikovnejsi,
pripadne ten, kto ma viac stastia ;-).
Erik
Oracle 8.1.5. a Delphi 4
[*] Jan Fryscak <fryscak(zv)scio(tec)cz> - 12.10.1999 11:43:50
Nemate nekdo zkusenosti s nativnim spojenim Delphi 4 (5) a Oracle 8.1.5?
Hlavne me zazjima, zda to vubec jde.
Diky
Honza
Win 3.11 + ComputerName
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 12.10.1999 11:50:43
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.
Da se nejak zjistit v D1 (na Win 3.11 a Win NT) jmeno pocitace?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
Presne =?iso-8859-2?Q?ulozen=ED?= sirky sloupce v
[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 12.10.1999 11:56:23
> Pavel Bl�hovec wrote:
>
> Uzivatele pozaduji, aby si tabulka DBGrid pamatovala posledni
> nastaveni sirky sloupce.
> Udelal jsem to tak, ze si ukladam ze zobrazenych fieldu (TStringField,
> TFlatField) polozku DisplayWidth. Spravne se mi ulozi, spravne se mi i
> nacte. Problem je vsak v tom, ze sirka sloupce neni identicka s
> sirkou, ktera byla predtim, i kdyz polozka DisplayWidth je stejna.
>
> Setkal se nekdo s timto problem a neznate na nej nekdo reseni?
Ja pouzivam TRxDBGrid z Rx library a funguje to dobre, tak to zkus
pouzit, nebo se podivej do zdrojaku, navic si to pamatuje i poradi
sloupcu, pokud si ho uzivatle zmeni.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 2 6447184, +420 603 300093
ICQ: 10840067
TRXDBLookupCombobox
[*] Tomas Holy <thom(zv)comberg(tec)cz> - 12.10.1999 12:01:34
Hellou Marku
dobre, nechci provokovat, ale v accessu existuje krasna property
OnNotInList ...
tam to fuguje tak, ze kdyz napises text, tak on zobrazi normalne tu cast,
ktera matchuje s necim v lookup listu, a zbytek zobrazi inverzne.
kdyz pridas pismenu, zmeni stav podle stejnych pravidel.
takze tam muzes napsat cokoliv, a kdyz nastane OnExit, tak se teprve resi,
co se bude dit.
pokud nastane ze chces pridat novou kolonku, tak musis uz sam zobrazit
dialog, na zadany zbylych hodnot, nebo tam strcit nahodne texty, apod.
ale to bych asi chtel moc, snad delphi 8.0b buld 1458
snad se nekdy dockame.
P.S. stejne me stve, ze se nekteri lide zneuzivaji verejnou konferenci k
osobno komunikaci
TH
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Marek Soukup
Sent: Friday, November 12, 1999 8:45 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: TRXDBLookupCombobox
Ahoj Thome,
ja vim co mas na mysli a RxDbLookupCombo ti nepomuze, vcera jsem to zkousel,
ten umi vyhledavat psanim v existujici zdrojove tabulce, ale neumi zadat
novou hodnotu a je to docela logicky, protoze muze zobrazovat jinou hodnotu
nez pres kterou je spojenej s tou tabulkou do ktery zapisujes. Takze si ani
nedokazu predstavit jak by si zadal tu hodnotu.
Pr.
Kdyz mas ciselnik leku se suklem a jmenem tak strkas do ostatnich tabulek
jenom sukl a pokud to delas prees LookupCombo tak zobrazujes jmeno a ve
chvili kdy by si chtel zadta jmeno, ktery neexistuje tak by si do cisleniku
musel pridat record a dat tam to jmeno, ale jak by si tam dal ten sukl ?
Marek Soukup
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Tomas Holy
> Odesl�no: 11. listopadu 1999 16:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TRXDBLookupCombobox
>
>
> mohl bych poprosit o zaslani jednoduchockeho prikladu, me to proste nejde,
> asi jsem totalni blb, ale nejde
>
> diky moc TH
>algoritmus na piskvorky
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 12.10.1999 12:04:24
Piskvorky su kompletne preskumana hra
je prejdeny cely podstatny strom moznosti
a neviem ci je dokazane, ze ten co zacina
musi vyhrat
niekde na Internete som nasiel dobry
material aj s matematickym podchytenim
ale adresu mam doma
najlepsie hrajuce piskvorky na internete co som
videl su WinFive
lenze su dost stare ( 1996-1997) a akosi som ich v posledom
case nemohol stiahnut a este k tomu je to shareware
olej
> -----Original Message-----
> From: Viktor.Lostak(zv)chmi(tec)cz
> Sent: 12. november 1999 8:22
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: algoritmus na piskvorky
>
> Tedy teoreticky. V piskvorkach (nekde jsem to cetl) pri idealni hre musi
> vzdycky vyhrat ten co zacina. Viktor
>
> ----- Original Message -----
> From: Erik Salaj <winsoft(zv)napri.sk>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, November 11, 1999 10:25 PM
> Subject: Re: algoritmus na piskvorky
>
>
> > > Jestli zacinas, tak ho porazit MUSIS. Viktor
> >
> > Ako si na to prisiel?
> >
> > Erik Salaj
> >
> >TPage Control, vlastn� vykreslen� ou�ka a zobr
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 12.10.1999 12:05:56
Pouzij funkci DrawText (viz help k API), tam se to da nastavit. Viktor
----- Original Message -----
From: Pavel Bl�hovec
To: Delphi
Cc: Black
Sent: Friday, November 12, 1999 10:44 AM
Subject: TPage Control, vlastn� vykreslen� ou�ka a zobrazen� hot key
M�m probl�m. Pot�ebuji m�t vlastn� barvu formul��e a komponent. U TPageControl jsem narazil na probl�m, �e u ou�ka nedok�u zm�nit barvu pozad�. V�echno ostatn� m� spr�vnou barvu. Abych si obarvil i ou�ko, nastavil jsem OwnerDraw na True a do ud�losti ondrawtab napsal vlastn� vykreslen�. V�e je ok, ale chyb� mi tam zobrazen� hotkey. Jak udelam aby mi fungovalo takov�to "Se&znam", aby "z" bylo podtr�en�.
Pro tisk textu pou��v�m PageControl.Canvas.TextOut('Seznam');
D�ky moc za ka�dou radu
Pavel Bl�hovec
Presne ulozen� sirky sloupce v TDBGrid
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 12.10.1999 12:08:28
Nevim jak u DBGridu, ale u DrawGridu ukladam ColWidths a funguje to.
Daniel
----- Puvodni zprava -----
Od: Pavel Bl�hovec
Komu: Delphi
Odeslano: 12. listopadu 1999 10:52
Predmet: Presne ulozeni sirky sloupce v TDBGrid
Uzivatele pozaduji, aby si tabulka DBGrid pamatovala posledni nastaveni sirky sloupce.
Udelal jsem to tak, ze si ukladam ze zobrazenych fieldu (TStringField, TFlatField) polozku DisplayWidth. Spravne se mi ulozi,
spravne se mi i nacte. Problem je vsak v tom, ze sirka sloupce neni identicka s sirkou, ktera byla predtim, i kdyz polozka
DisplayWidth je stejna.
Setkal se nekdo s timto problem a neznate na nej nekdo reseni?
D�ky moc za kazdou radu
Pavel Blahovec
Referiencia
[*] Hole�ek Radek <holecek.radek(zv)seznam(tec)cz> - 12.10.1999 12:36:46
KEYWORD : reference, Oracle, referecni integrita
>Ako je mozne zistit referencny model nejakej databazy? Ktora tabulka na
ktore sa odkazuje
Pro Oracle jsou napr: tyto tabulky
ALL_CONSTRAINTS - informace o integritnich omezenich databaze
ALL_CONS_COLUMNS - informace o sloupcich, ktere podlehaji nekteremu
integritnimu omezeni.
--
Zaslal : Radek Hole�ek
e-mail : holecek.radek(zv)seznam(tec)cz
ICQ : 45610992
Telefon : 0658 / 412 213
TPage Control, vlastni vykresleni ouska a zobrazen
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 12.10.1999 13:09:33
Pouzij primo API funkci DrawText a jukni se
na parametr DT_NOPREFIX
Daniel
----- Puvodni zprava -----
Od: Pavel Blahovec
Komu: Delphi
Kopie: Black
Odeslano: 12. listopadu 1999 10:44
Predmet: TPage Control, vlastn� vykreslen� ou�ka a zobrazen� hot key
M�m probl�m. Pot�ebuji m�t vlastn� barvu formul��e a komponent. U TPageControl jsem narazil na probl�m, �e u ou�ka nedok�zu zm�nit
barvu pozad�. Vsechno ostatn� m� spr�vnou barvu. Abych si obarvil i ousko, nastavil jsem OwnerDraw na True a do ud�losti ondrawtab
napsal vlastn� vykreslen�. Vse je ok, ale chyb� mi tam zobrazen� hotkey. Jak udelam aby mi fungovalo takov�to "Se&znam", aby "z"
bylo podtr�en�.
Pro tisk textu pouz�v�m PageControl.Canvas.TextOut('Seznam');
D�ky moc za kazdou radu
Pavel Bl�hovec
Protokol IPX
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 12.10.1999 13:21:01
[P��loha v souboru: IPX32.zip]
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.
> Potreboval by som naprogramovat socketovu aplikaciu s vyuzitim IPX
> protokolu, zatial sa mi podarilo v Delphi najst len podporu
> pre TCP/IP
> protokol. Da sa to vobec cez delphi naprogramovat.
Ahoj,
predem se omlouvam za poruseni pravidel konference, ale priloha ma jen 6 kB.
Prikladam zdrojak unity, kterou jsem nasel na siti (bohuzel uz nevim kde), a
upravil tak, aby mi fungovala pod W/NT. Je to hodne syrove, potreboval jsem
to jen na overeni, ale komunikovat se s tim da.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Polozka v komponente TreeView
[*] Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 12.10.1999 13:24:45
Ahoj,
mam komponentu TreeView a v n� n�jaky strom, potrebuji zjistit, ktera polozka je prave aktivni, ale s celou cestou tj. vcetne nadrazenych korenu
napr. "Knika\Vyklad\Slova" a ne jen "Slova"
Vim, ze u komponenty OutLine to lze pomoci metody FullPath, ale jak to udelat u TreeView to nevim.
Delphi 4 Standart, Win98
Predem diky
Jindrich Nikodem
Mouse a Grid
[*] Michal Hlav�� - 12.10.1999 13:25:13
Skusim to este raz. V OnMouseDown Mam taketo nieco:
procedure TMainForm.GridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var Acol, ARow:integer;
begin
grid.MouseToCell(x,y,ACol,ARow);
If (ACol=grid.Col)and(ARow=Grid.Row+1)and(Button=mbLeft) then Dole;
If (ACol=grid.Col)and(ARow=Grid.Row-1)and(Button=mbLeft) then Dole;
If (ACol=grid.Col+1)and(ARow=Grid.Row)and(Button=mbLeft) then Vpravo;
If (ACol=grid.Col-1)and(ARow=Grid.Row)and(Button=mbLeft) then Vlavo;
end;
No a chcem aby sa mi pohyb starali procedure Hore, dole, Vpravo a Vlavo; Oni
uz presne vedia co maju robit, a ako maju posunut kurzor. A ine posuvanie
kurzora chcem vypnut. Totiz podla toho sa kurzor moze posuvat iba o jedno
policko na vsetky strany. Ale vsetok pohyb je definovany v tych procedurach
hore, ... atd.
Dik moc, Miso
referencia
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 12.10.1999 12:28:15 -0000
Podle Vzdalenych klicu, nebo trigru, rika se tomu reverse engeneering, zkuste treba rksoft data designer,
ten by to mel umet i v demo verzi (akorat to pak nejde ulozit). www.rksoft(tec)cz
Jaka je to DB ?
-----P�vodn� zpr�va-----
Od: TUNGLI Jan [SMTP:tungli(zv)pvt.sk]
Odesl�no: 12. listopadu 1999 9:18
Komu: Panda; DELPHI Distribution List
P�edm�t: referencia
Ako je mozne zistit referencny model nejakej databazy? Ktora tabulka na ktore sa odkazuje.
Viete nieco?
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
<<Soubor: ATT00002.html>>
referencia
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 12.10.1999 13:32:23
1. Bud budes primo cist systemove tabulky te ktere databaze.
Ale kazda databaze je uplne jina, budes si muset procist dokumentaci
prislusne databaze, pro kazdou databazi napsat uplne jinou verzi
programu.
2. Nebo treba pouzijes sluzeb ODBC, ktere umi vytahnout strukturu
databaze v nejake unifikovane forme. Jenze v ovladacich ODBC je
neuveritelny bordel, kazdy se chova uplne jinak, ja sam jsem to vzdal.
3. Myslim ze to umi i ADO, ale nezkousel jsem to.
Radim Kunz
-----Original Message-----
From: TUNGLI Jan <tungli(zv)pvt.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 12. listopadu 1999 11:47
Subject: Re: referencia
Ako je mozne zistit referencny model nejakej databazy? Ktora tabulka na ktore sa odkazuje.
Potrebujem to zistit v programe ( in run time).
Viete nieco?
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: Panda <delphin(zv)pandora(tec)cz>; DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 12. november 1999 11:09
P�edm�t: referencia
Ako je mozne zistit referencny model nejakej databazy? Ktora tabulka na ktore sa odkazuje.
Viete nieco?
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/algoritmus na piskvorky
[*] Santik <santik(zv)pronetix.sk> - 12.10.1999 04:44:23 -0800
----- Original Message -----
From: "Polak Jiri" <Jiri.Polak(zv)tconsult(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 4:59 AM
Subject: RE: algoritmus na piskvorky
>
> BTW - piskvorky bych mozna zvladl, ale nedokazu si predstavit,
> jak bych hodnotil pozici sachu. Myslim, ze je to dost obtizny problem,
> predevsim proto, ze tam jsou velmi rychle zvraty - jednim tahem lze
> hodne ziskat i ztratit. Pri vyuce stavovych prostoru nam navic rikali,
> ze treba GO je hra velmi hnusna (z pohledu umele inteligence).
> Videli jste nekdo kvalitni program pro GO?
Ahoj,
k tomu sachu - cudoval by si sa, aku jednoduchu ohodnocovaciu funkciu
pouziva vacsina
sachovych programov - primarnym faktorom je jednoduche spocitanie materialu
za oboch hracov na sachovnici
( podla klasickej sachovej umery, pripadne vynasobene 100 - napr. dama =
900, veza = 500, strelec = jazdec = 300, pesiak = 100 ), ostatne faktory
pozicie ako pesiakove slabiny, daleko postupivsi pesiaci, centralizacia a
pod
sa potom pripocitaju k vysledku. Dolezite je samozrejme urobit ten vypocet v
tzv. "quiescent" pozicii - teda nie uprostred zlozitej vymeny figur - na to
sa aj pouziva tzv. "quiescence" search - po dopocitany metodou alpha-beta do
stanovenej hlbky sa este pomocou tohto hladania pozicia ukludni, t.j.
nechaju sa "dobehnut" vsetky takcticky zalozene tahy ( sach, branie figur,
... ).
Uz s takouto jednoduchou ohodnocovacou funkciou a prehladavanim do hlbky 5
poltahov to bez problemov
porazi vacsinu sviatocnych sachistov.
K tomu GO - hlavnym problemom je faktor vetvenia. V sachu je priemerny pocet
tahov v danej pozicii tusim 36,
v GO uz (ak si to dobre pametam ) cca 300.
Bye
Santik
TRXDBLookupCombobox
[*] Tomas Holy <thom(zv)comberg(tec)cz> - 12.10.1999 13:53:20
Hellou Marku
dobre, nechci provokovat, ale v accessu existuje krasna property
OnNotInList ...
tam to fuguje tak, ze kdyz napises text, tak on zobrazi normalne tu cast,
ktera matchuje s necim v lookup listu, a zbytek zobrazi inverzne.
kdyz pridas pismenu, zmeni stav podle stejnych pravidel.
takze tam muzes napsat cokoliv, a kdyz nastane OnExit, tak se teprve resi,
co se bude dit.
pokud nastane ze chces pridat novou kolonku, tak musis uz sam zobrazit
dialog, na zadany zbylych hodnot, nebo tam strcit nahodne texty, apod.
ale to bych asi chtel moc, snad delphi 8.0b buld 1458
snad se nekdy dockame.
P.S. stejne me stve, ze se nekteri lide zneuzivaji verejnou konferenci k
osobno komunikaci
TH
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Marek Soukup
Sent: Friday, November 12, 1999 8:45 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: TRXDBLookupCombobox
Ahoj Thome,
ja vim co mas na mysli a RxDbLookupCombo ti nepomuze, vcera jsem to zkousel,
ten umi vyhledavat psanim v existujici zdrojove tabulce, ale neumi zadat
novou hodnotu a je to docela logicky, protoze muze zobrazovat jinou hodnotu
nez pres kterou je spojenej s tou tabulkou do ktery zapisujes. Takze si ani
nedokazu predstavit jak by si zadal tu hodnotu.
Pr.
Kdyz mas ciselnik leku se suklem a jmenem tak strkas do ostatnich tabulek
jenom sukl a pokud to delas prees LookupCombo tak zobrazujes jmeno a ve
chvili kdy by si chtel zadta jmeno, ktery neexistuje tak by si do cisleniku
musel pridat record a dat tam to jmeno, ale jak by si tam dal ten sukl ?
Marek Soukup
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Tomas Holy
> Odesl�no: 11. listopadu 1999 16:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TRXDBLookupCombobox
>
>
> mohl bych poprosit o zaslani jednoduchockeho prikladu, me to proste nejde,
> asi jsem totalni blb, ale nejde
>
> diky moc TH
>