Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Palety v Delphi II
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 9.2.2000 09:54:09
Zdravim,
zmena barvy buttonu najdes zde
pavel
http://www.kopr(tec)cz/delphi/k-delphi.htm
> From: Petr Va���ek <czechitout(zv)email(tec)cz>
> > Mam takovy problem a byl bych strasne vdecny, kdyby mi s nim nekdo
pomohl.
> > Potreboval bych vedet, jak v Delphi u nejakeho Projectu muzu menit
napriklad
> > barvu Menu, Buttonu apod. Vim, ze normalne je to zavisle na nastaveni
> > Windows, ale muzu si nejak nastavit v mem Projectu, aby napriklad barva
menu
> > byla clNavy a text v menu clWhite?
>
> Ahoj,
>
> Ohledne menu to lze udelat pro jednotlive polozky, ale jeho oramovani
zustane
> vykresleno puvodni barvou, coz ti asi nebude vyhovovat. U Buttonu by pak
bylo
> nutne si odvodit novou komponentu (uz to tu tusim probehlo, hledej v
archivu
> ColorBtn nebo tak).
>
> Petr Vones, amatersky programator
>
>BDE a PARADOX
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 9.2.2000 10:19:57
> > vedel by mi niekto poradit co potrebujem z BDE ked chcem v programe
vyuziv
> at
>
Asi najjednoduchsia cesta (a mala by byt
aj najbezpecnejsia) instalacie BDE
je rozbalit bdeinst.cab. Tam sa nachadza
len BdeInst.dll. Ten treba zaregistrovat:
regsvr32 BdeInst.dll
Ci je mozne distribuovat BdeInst.dll,
to neviem.
forgo
DebugHook
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.2.2000 10:22:26
>
>Co vse je tedy potrebne, kdybych chtel zmenit System.pas?
pro vlastni preklad je nutny TASM32 (nemusi byt nejnovejsi verze).
Provadene zmeny by nemely system unit modifikovat, tak aby se zmenilo
chovani exportovanych funkci. Pri zasahu do startup a exit kodu bych byl
taky dost opatrny :-). Pri modifikaci ASM kodu je treba si poradne rozmyslet
co je ve kterem registru, aby nedoslo k poskozeni vstupnich/vystupnich
parametru, atd.
Tusim, ze v dobach Borland Pascalu byl v manualech nejaky popis ceho se
vyvarovat pri odifikaci system.pas...
V kazdym pripade bych si nejdriv zazalohoval vsechny RTL zdrojaky ...
Zdravi
D> Toman
UNC cesta
[*] Tom� Andra�ko - 9.2.2000 09:27:29 -0000
Vazeni pratele,
mam "maly" problem, mozna to tu bylo, ale v archivu jsem nenasel. Potreboval
bych dialog pro vyber adresare ve formatu UNC (1), ale s tim, ze pokud mu
takovou UNC cestu predam, aby se po Execute (...) na tuto cestu nastavil(2).
Prozatim jsem nasel komponentu, ktera splnuje prvni podminku, ale ne druhou.
Pripadne by mi stacila i prevodni funkce, ktere predam napr.
"c:\data\mojedata" a ta mi vrati "\\server1\sharedata\mojedata".
Vite nekdo, co s tim. Budu velice nadsen a predem dekuji za odpoved
Tomas ANDRASKO
A.S.E.I. spol. s r.o.
email : tomas.andrasko(zv)asei(tec)cz
tel. : 069 / 6607 291
INTERBASE - Help me please.
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 9.2.2000 10:42:28
-----P�vodn� zpr�va-----
Od: Roland Tur�an (RoTurSoft) [SMTP:rotursoft(zv)nextra.sk]
Odesl�no: 8. �nora 2000 22:47
Komu: Delphi CZ konferencia
P�edm�t: INTERBASE - Help me please.
Zdravim, pomozte mi pliz.
Potrebujem vediet
1. Ako dosiahnem zotriedenie podla nasej platnej abecedy.
[Slavomir Skopalik] Kicove slovo COLATE, nebo tak nejak viz dokumentace
2. Ako dosiahnem ekvivalent AutoInc field Paradoxu v INTERBASE.
[Slavomir Skopalik] Bylo ta tady nedavno, generator + ulozna procedura, nebo select.
3. Este pred Commit Transaction je uz mozne na sieti vydiet zmenu v
databazach ?
[Slavomir Skopalik] Ano (za urcitych podminek), ale neni to bezne
4. Aku literaturu by ste mi odporucili na Interbase a kde ju dostat ?
[Slavomir Skopalik] Je na CD k Delphi a IB
Tenk j� veri ma�.
H�j. Roland Tur�an
Datum na string
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 9.2.2000 10:43:05
Ahoj Delphici,
mam takovy problemek. Mam datum a cas v sesti bajtech (v jednom rok, ve
druhem mesic,..., v sestem sekundy) a potrebuji toto prevest na format
TDateTime. Chtel jsem pouzit Format() a nasledne StrToDateTime() ale problem
je v tom, ze postup musi fungovat v ceske i anglicke verzi W95/98/NT a tudiz
musi rozlisovat vsechny datove formaty (dd.mm.rr, mm/dd/rr, mm/dd/rrrr,
...). Nemate nekdo namet na nejaky efektivni postup, ktery by rozlisil jaky
datovy format je momentalne pouzivan a taky akceptoval Y2K?
Dik. Jara
Delphi 5 & W200
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 9.2.2000 10:54:21
Ano, jestli se nemylim, prave to by mel byt ten PUpg
(Product Upgrade) a mel by byt drazsi nez VUpg :-(
Ale nezapominejte, ze plati jeste technologicka
zaruka na nedavno zakoupene WNT4! Tam by mel byt
upgrade na W2k je za tzv. manipulacni poplatek,
radove stovky Kc.
### Petr Vones napsal dne 8 Feb 00, v 23:00 :
> From: vp <vpetr(zv)bigfoot.com>
> > mluvime o licencnim, nebo fyzickem upgradu? Ten prvni je IMO podivne (z
> > RCx
>
> Ahoj,
>
> o licencnim, alespon z toho clanku jsem pochopil, ze bude mozne upgradovat
> z Win9x. Microsoft to asi s W2000 mysli vazne.
>
> Petr Vones, amatersky programator
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
Delphi 5 nechodi a nechodi
[*] bures <bures(zv)ssakhk(tec)cz> - 9.2.2000 10:58:41
Ahoj ja jsem mel dva kompy na obou graficke karty s3. Na jdenom s3 trio32 a
na druhem s3 virge gx2 a na obou dvou se mi nechteli fungovat delphi, zrejme
na problemu delphi vs s3 neco bude ...
Vlada
----- Original Message -----
From: Lubos Hubka <hubka(zv)trenkwalder.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 09, 2000 9:15 AM
Subject: Re: Delphi 5 nechodi a nechodi
> > >Mam NT4, SP5 (a nechodilo to ani na SP3-4) a Delphi 5 Enterprise se po
> > >nainstalovani ani nespusti. Objevi se uvodni Logo obrazovka, ktera bez
> > chyby
> > >zmizi a Delphi se ukonci. Nestane se proste NIC. Nevim ani, kde mam
hledat
> > >chybu a co zkouset.
>
> Ja som mal podobny problem s CB4.0 a W98.
> Problem bola graficka karta - S3.
> Ked som zmenil gr. kartu, vsetko krasne slapalo.
> Neviem ci to pomoze., mne to pomohlo.
> --
> \LH
>
>TreeView
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.2.2000 11:15:00
Martin Lasevic <vyvoj(zv)atlascon(tec)cz> wrote:
> 1) Tabulku vypsat serazene podle ID nadrizeneho
> a osobniho ID. Tim dostanes seznam lidi,
> seskupenych podle nadrizenych.
> 2) Zaloz si TreeView a zacni prvnim pracovnikem.
> Prochazej tabulky tak dlouho, az se
> zmeni ID nadrizeneho. To je signal pro zalozeni
> dalsiho TreeNode na koreni TreeView.
> atd...
No nevim, jestli by ses timto postupem dostal k organizacni strukture v podobe stromu.
Ono hodne zalezi na rozsahu vstupnich dat a moznosti pristupu k nim. Pro rozumne mnozstvi, ktere lze nacist do pameti, bych to resil nejspis rekurzi nejak takto:
procedure AddImmediateInferiors(aBoss:TEmployee);
var
Inferior:TEmployee;
begin
Inferior := SearchForFirstInferior(aBoss);
while Assigned(Inferior) do
begin
AddChild(aBoss,Inferior);
AddImmediateInferiors(Inferior);
Inferior := SearchForNextInferior(aBoss);
end;
end;
Cele by to zacinalo volanim AddImmediateInferiors(nil) - predpokladam, ze by generalni reditel nemel v dane organizacni strukture nadrizeneho.
bye pf, Petr.Fejfar(zv)callnet(tec)cz
QReport a HPLJ1100
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 9.2.2000 11:22:06
> Ja mohu rict jen, ze chyba nastane i na Win98. Driver ma zrejme nejakou
> tezkou nestandardnost, na ktere si QR vylame zuby.
>
> > Ma nekdo zkusenost s W95 s nainstalovanou HPLJ1100 nastavenou ja vychozi
a
> > D4 QuickReportem?
> >
> > Pri pridani komponenty QuickRep na formular Delphi zkolabuji na chybe
> > 'delphi 32 v programu doslo k chybe ... zavrit ... ignorovat'
Je treba si stahnout z http://www.hp(tec)cz (nebo tak nejak) novou verzi driveru
pro LJ 1100. Ten dodavany s tiskarnou ma chyby.
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
----- Original Message -----
From: Martin Dupal <mdupal(zv)vision(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 09, 2000 9:00 AM
Subject: Re: QReport a HPLJ1100
>
>
>Datum na string
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.2.2000 11:43:07
Podivej se do helpu na funkce DecodeDate, DecodeTime. je tam i priklad.
Jan Fiala
----- Original Message -----
From: SPELZA s.r.o. <spelza(zv)spelza(tec)cz>> Ahoj Delphici,
> mam takovy problemek. Mam datum a cas v sesti bajtech (v jednom rok, ve
> druhem mesic,..., v sestem sekundy) a potrebuji toto prevest na format
> TDateTime. Chtel jsem pouzit Format() a nasledne StrToDateTime() ale problem
> je v tom, ze postup musi fungovat v ceske i anglicke verzi W95/98/NT a tudiz
> musi rozlisovat vsechny datove formaty (dd.mm.rr, mm/dd/rr, mm/dd/rrrr,
> ...). Nemate nekdo namet na nejaky efektivni postup, ktery by rozlisil jaky
> datovy format je momentalne pouzivan a taky akceptoval Y2K?
>
> Dik. Jara
> Datum na string
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 9.2.2000 11:43:35
> From: SPELZA s.r.o. [SMTP:spelza(zv)spelza(tec)cz]
> Mam datum a cas v sesti bajtech (v jednom rok, ve
> druhem mesic,..., v sestem sekundy) a potrebuji toto prevest na format
> TDateTime. Chtel jsem pouzit Format() a nasledne StrToDateTime() ale
> problem
> je v tom, ze postup musi fungovat v ceske i anglicke verzi W95/98/NT a
> tudiz
> musi rozlisovat vsechny datove formaty (dd.mm.rr, mm/dd/rr, mm/dd/rrrr,
> ...). Nemate nekdo namet na nejaky efektivni postup, ktery by rozlisil
> jaky
> datovy format je momentalne pouzivan a taky akceptoval Y2K?
>
Pozri si v helpe
DateSeparator
ShortDateFormat
LongTimeFormat
at�
JJ
Prace s BLOB v procedure na IB
[*] Pavel Bare� <Atoll(zv)telecom(tec)cz> - 9.2.2000 11:58:38
Prosim o jakoukoliv radu, nebo odkaz na dokumentaci jak pracovat s BLOB polem (text) .
Staci insert,update,delete.
To co je v manualu k IB jsem nedokazal pouzit.
dekuji
Pavel Bare�
Atoll s.r.o.
Soubezne pripojeni pres ODBC a API fce
[*] Milos Dvorak <xdvom16(zv)vse(tec)cz> - 9.2.2000 12:03:18
Ahoj,
nevedel by nekdo, jak se muzu jednim klientem pripojit na server pres ODBC a zaroven primo, abych mohl pouzivat API funkce. Ja se tam sice pripojim zaroven, ale na serveru vystupuji jako dva klienti (pripojen stejny uzivatel dvakrat), coz mi nevyhovuje. Jedna se o server WinBase602 SQL. Dekuji za kazdou radu.
Milos Dvorak
TreeView
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.2.2000 12:05:33
Jasne, ze je to jen obecny nastin. U slozitejsich struktur jeto slozitejsi. Chtelo byto neco jako TDBTreeView :-))
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://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================>
> > 1) Tabulku vypsat serazene podle ID nadrizeneho
> > a osobniho ID. Tim dostanes seznam lidi,
> > seskupenych podle nadrizenych.
> > 2) Zaloz si TreeView a zacni prvnim pracovnikem.
> > Prochazej tabulky tak dlouho, az se
> > zmeni ID nadrizeneho. To je signal pro zalozeni
> > dalsiho TreeNode na koreni TreeView.
> > atd...
> Datum na string
[*] psojka(zv)els.ln.skoda(tec)cz - 9.2.2000 12:09:03
> Ahoj Delphici,
Nazdarek.
> mam takovy problemek. Mam datum a cas v sesti bajtech (v jednom rok, ve
> druhem mesic,..., v sestem sekundy) a potrebuji toto prevest na format
> TDateTime. Chtel jsem pouzit Format() a nasledne StrToDateTime() ale
problem
> je v tom, ze postup musi fungovat v ceske i anglicke verzi W95/98/NT a
tudiz
> musi rozlisovat vsechny datove formaty (dd.mm.rr, mm/dd/rr, mm/dd/rrrr,
> ...). Nemate nekdo namet na nejaky efektivni postup, ktery by rozlisil
jaky
> datovy format je momentalne pouzivan a taky akceptoval Y2K?
>
> Dik. Jara
Co treba takhle:
DateTimeCislo =
EncodeDate(Byte1,Byte2,Byte3)+EncodeTime(Byte4,Byte5,Byte6,0);
>>Jackal<<
Datum na string
[*] Martin Koller <koller(zv)gema(tec)cz> - 09.2.2000 12:11:22
Koukni se na funkce EncodeDate a EncodeTime.
Marty.INTERBASE - Help me please.
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 9.2.2000 12:20:45
ad 1) Jde to snadno. Musi definovat znakova polozka v prislusne znakove sade
a s prislusnym tridenim (napr :KOD CHAR(3) CHARACTER SET DOS852 COLLATE
DB_CSY, uklada data v kodovani Latin 2 s ceskym tridenim)
ad 2)
Muzu toho dosahnout pomoci tzv. Generatoru a funkce GEN_ID() v kombinaci s
TRIGGEREM.
Je to popsano celkem dobre v helpu nebo v manualu.
ad 4) Zadnou jinou literaturu sice neznam, ale dobrym zdrojem informaci jsou
manualy a helpy k InterBase. Mohly by byt dostupne i ve formatu pdf nekde na
siti. Informaci o tom kde jsem cetl nekde v konferenci.
-----Original Message-----
From: Roland Tur�an (RoTurSoft) [mailto:rotursoft(zv)nextra.sk]
Sent: Tuesday, February 08, 2000 10:47 PM
To: Delphi CZ konferencia
Subject: INTERBASE - Help me please.
Zdravim, pomozte mi pliz.
Potrebujem vediet
1. Ako dosiahnem zotriedenie podla nasej platnej abecedy.
2. Ako dosiahnem ekvivalent AutoInc field Paradoxu v INTERBASE.
3. Este pred Commit Transaction je uz mozne na sieti vydiet zmenu v
databazach ?
4. Aku literaturu by ste mi odporucili na Interbase a kde ju dostat ?
Tenk j� veri ma�.
H�j. Roland Tur�an
Datum na string
[*] Martin Kriz <m_kriz(zv)del(tec)cz> - 9.2.2000 12:28:48
Zkus pouzit, nasledujici fce
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
function EncodeDate(Year, Month, Day: Word): TDateTime;
pro prevod opacnym smerem je mozne vyuzit
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
Ahoj Martin
----- Original Message -----
From: SPELZA s.r.o. <spelza(zv)spelza(tec)cz>
To: DELPHI <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 09, 2000 10:43 AM
Subject: Datum na string
> Ahoj Delphici,
> mam takovy problemek. Mam datum a cas v sesti bajtech (v jednom rok, ve
> druhem mesic,..., v sestem sekundy) a potrebuji toto prevest na format
> TDateTime. Chtel jsem pouzit Format() a nasledne StrToDateTime() ale
problem
> je v tom, ze postup musi fungovat v ceske i anglicke verzi W95/98/NT a
tudiz
> musi rozlisovat vsechny datove formaty (dd.mm.rr, mm/dd/rr, mm/dd/rrrr,
> ...). Nemate nekdo namet na nejaky efektivni postup, ktery by rozlisil
jaky
> datovy format je momentalne pouzivan a taky akceptoval Y2K?
>
> Dik. Jara
>Joinovani DB s MEMO
[*] Filip Kinsky <delphi007(zv)angelfire(tec)com> - 09.2.2000 03:32:56 -0800
Zdar!
Mam spis takovou zajimavost, kterou se mi stejne podarilo obejit, ale zajimalo by me, jestli se s tim uz nekdo z vas setkal.
Jde o JOINovani Paradoxovejch databazi - pri joinovani vic jak dvou databazi s fieldama typu memo mi to nejak "samo" ty mema vymazne, lepe erceno je proste jen odmita zobrazit.
---
Filip Kinsky, student, amateur programmer :-))
Angelfire for your free web-based e-mail. http://www.angelfire.com
PaintTo
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 9.2.2000 12:53:39
Ale presne toto mi nefunguje (teda konkretne s DrawGrid som to neskusal, ale
s kopou inych ano).Do bitmapy sa vykresli iba ramcek TWinControl, ale obsah
je vzdy prazdny. Skusal som aj mnozstvo inych sposobov (posielanie spravy
WM_PAINT, priame volanie metody WmPaint v odvodenom Control-e, kopirovanie z
Canvasu formularu, kopirovanie z HDC, ...) ale k uspechu som sa
nedopracoval. Jediny sposob, ktory v podstate fungoval bolo kopirovanie z
Canvasu formularu, ale to len za predpokladu, ze je formular viditelny a
neprekryty inym oknom, co samozrejme nedokazem zabezpecit (pretoze to chcem
vykonavat bez toho aby to uzivatel videl).
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 08, 2000 11:00 PM
Subject: Re: PaintTo
> From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> > Mohol by mi niekto poradit, akym sposobom by bolo mozne na pozadi
zobrazit
> > nejaky TWinControl do bitmapy.
>
> Ahoj,
>
> napriklad takhle:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> with Image1.Picture.Bitmap do
> begin
> Width := DrawGrid1.Width;
> Height := DrawGrid1.Width;
> DrawGrid1.PaintTo(Canvas.Handle, 0, 0);
> end;
> end;
>
> Petr Vones, amatersky programator
>
>
>TreeView
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 9.2.2000 13:26:10
A ne�lo by zkusit pou��t t�eba vgDBTreeView z vgLib
(http://www.tsinet.ru/~vg/)?
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Martin Lasevic [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 9. �nora 2000 12:06
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: TreeView
>
> Jasne, ze je to jen obecny nastin. U slozitejsich struktur jeto
> slozitejsi. Chtelo byto neco jako TDBTreeView :-))
>
> 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://www.volny(tec)cz/ml_software
> Miror : http://freeweb.coco(tec)cz/ml_software
> ====================================
>
>
> >
> > > 1) Tabulku vypsat serazene podle ID nadrizeneho
> > > a osobniho ID. Tim dostanes seznam lidi,
> > > seskupenych podle nadrizenych.
> > > 2) Zaloz si TreeView a zacni prvnim pracovnikem.
> > > Prochazej tabulky tak dlouho, az se
> > > zmeni ID nadrizeneho. To je signal pro zalozeni
> > > dalsiho TreeNode na koreni TreeView.
> > > atd...
> > TreeView
[*] David Adamec <adamecd(zv)volny(tec)cz> - 9.2.2000 13:51:19
Ahoj,
nevite jak zjistit vsechny soubory, ktere otevru v opendialog (mam
samozrejme povoleno ofAllowMultiSelect). FileName zjisti pouze posledni
vybrany soubor
diky
DA
TreeView
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.2.2000 13:59:49
Ale vgDBTreeView preci existuje...
vgLib - "nadstavba" nad rxLib
D.
> ----------
> Od: Martin Lasevic[SMTP:vyvoj(zv)atlascon(tec)cz]
>
> Jasne, ze je to jen obecny nastin. U slozitejsich struktur jeto slozitejsi. Chtelo byto neco jako TDBTreeView :-))
>
> Ziskanie ikony suboru
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 9.2.2000 14:23:26
Akym sposobom je mozne ziskat ikonu, ktoru pouzije napriklad Windows Explorer pri zobrazeni zoznamu suborov ?Editor komponent
[*] Tomas Peroutka <tperoutka(zv)drusoft(tec)cz> - 9.2.2000 14:53:09
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.
Ahoj,
zkousel jsem vytvorit Collection. Mam komponentu, ktera uchovava
v potomku tridy TCollection (TMyCollection) objekty tridy
potomka TCollectionItem (TMyCollectionItem).
Kdyz do kolece pridavam polozky z programu, tak to funguje. Ale
kdyz chci zobrazit editor, tak se mi sice zobrazi (jsou tam videt
i polozky pridane programove), ale po vypsani hlasky:
Invalid selection: "TMyCollection" has no owner.
Nevite nekdo kde je chyba?
Dik
Tomas Peroutka
tperoutka(zv)dursoft(tec)cz
TreeView
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 9.2.2000 15:26:07
A ne�lo by zkusit pou��t t�eba vgDBTreeView z vgLib
(http://www.tsinet.ru/~vg/)?
Tak zrovna ten jsem vcera zkousel pouzit, ale asi jsem nepochopil podstatu. Zkousel jsem to na podobnem priklade jako chce kolega, ale zobrazilo se mi absolutely nothing.
Jinak netusite nekdo, zda lze treba na RXDBGrid nebo vgDBGrid pouzit "TitleButtons" na trideni polozek v gridu ? Jestli to tam je, ja to nenasel. Ale mozna jsem spatne hledal .... :-(
S pozdravem a pranim hezkeho dne
Milan Schembera
mailto:spravce(zv)spektrum(tec)cz
mailto:milan(zv)missoftware(tec)cz
SaveDialog a OpenDialog
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 9.2.2000 15:43:54
>
> Ahoj,
>
> odchytit to muzes v udalosti OnTypeChange, pripona je dana vlastnosti
> DefaultExt.
>
> Petr Vones, amatersky programator
>
To uz jsem zkousel, dokonce si dokazu vyextrahovat i priponu, ale jak zajistit, aby se mi
pri zmene filtru zmenila i pripona toho souboru ( priklad z pokus.rtf pri zmene filtru na txt
se musi zmenit na pokus.txt. Uz jsem z toho srnka. Jo a ma D3 Profi.
Jo a zmena property FileName nezabira.
Martin
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://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================D5 Ent. - Karta Servers
[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 9.2.2000 16:11:27
Zdravim !!!
Nevite nekdo jak se pracuje s komponentama z karty Servers ? A jak hodne podporuji Office ?
Predem dik a cau.
Martin Pesek, zakladatel tymu Gamemaker
P.S.: V helpu jsem nic nenasel a zadny demo projekty u Delphi nejsou :(Delphi 5 & W200
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 9.2.2000 16:55:02
Pouzivam W2000 RC2 a parkrat mi to spadlo, ale na stejnem PC mam W95 a ty nejedou vubec. Proto W2000 chvalim.
-----P�vodn� zpr�va-----
Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
Odesl�no: 8. �nora 2000 8:36
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Delphi 5 & W200
> TO JARO:
> Prece si nedam na takovej stroj W2000 RC2 (mam 4GB s ATA33) a nebo snad jo?
>
> M. Jirman
A proc ne?
Min pozadavky jsou: P166, 32 MB RAM, asi 800 MB volneho prostoru. Doporuceno je
64 MB RAM. Adresar WinNT (opravdu se to instaluje do WinNT a ne do Win2000)
zabere kolem 500 MB.
Ja mam Celeron 466 pretakt. na 525, 14 GB HDD UATA 66 7200 ot. a 128 MB RAM.
To je vic nez dostacujici. Mimochodem dnes se to da poridit za mrzky peniz.
Ovsem zkousel jsem to i na podstatne slabsich strojich (P200 s 64 MB RAM)
a chodilo to take slusne. W200 nejsou pomalejsi nez W98. Ta tvoje masinka P233,
100 MB RAM na to staci.
Na webu MS se da stahnout testovaci programek, ktery zjisti, zda je tvuj
hardware
W200 ready. W200 provadeji duslednejsi kontrolu pri instalaci. Myslenka je asi
takovato: budto si to se zelezem bude rozumet a pak to nesmi padat a nebo se to
tam nema co instalovat. Ten programek je podobny testovacimu, ktery se spousti
pri instalaci a navic sepise mozna problemova zarizeni.
Trochu neprijemne muze byt vsak to, ze za par dnu (17. unora) konci licence na
pouzivani RC2 a ostra verze bude stat o dost vice nez W98. Slysel jsem ale, ze
ti, kdoz si opatrili verzi RC1 nebo RC2 legalne, tj. maji licencni ujednani
(jako treba ja) budou moci pozadat o upgrade. To nema chybu - protoze ja uz bych
se k W9x nevratil i kdyby me mucili. Za dobu, co RC1 a RC2 pouzivam mi to
nespadlo ani jednou.
Takze jestli je to pravda a chces usetrit za upgrade, tak mas nejvyssi cas.
Jaro
INTERBASE - Help me please.
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.2.2000 08:13:39 -0800
> 1. Ako dosiahnem zotriedenie podla nasej platnej abecedy.
Pri definici pole pouzijes klauzuli COLLATE
Ja pouzivam COLLATE PXW_CSY (pri pouziti WIN1250)
> 2. Ako dosiahnem ekvivalent AutoInc field Paradoxu v INTERBASE.
K tomu v Interbase slouzi tzv. Generatory
CREATE GENERATOR GEN_JMENO1; // vytvori generator
SET GENERATOR GEN_JMENO1 TO 0; // nastavi pocatecni hodnotu
Potom muzes v triggeru, ulozene procedure nebo i z programu Delphi
volat funkci gen_id. V pripade triggeru je to napr. takto:
create trigger trigger_name for table_name active before insert position 0
as
begin
NEW.ID_AutoIncr_pole_name = gen_id(GEN_JMENO1, 1);
end
Hodnota 1 udava krok.
Funkci lze volat i s hodnotou 0. Potom pouze vrati aktualni (nejvy���)
hodnotu pole.
Jaro
Editor komponent
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 9.2.2000 17:33:00
> Ahoj,
> zkousel jsem vytvorit Collection. Mam komponentu, ktera uchovava
> v potomku tridy TCollection (TMyCollection) objekty tridy
> potomka TCollectionItem (TMyCollectionItem).
> Kdyz do kolece pridavam polozky z programu, tak to funguje. Ale
> kdyz chci zobrazit editor, tak se mi sice zobrazi (jsou tam videt
> i polozky pridane programove), ale po vypsani hlasky:
> Invalid selection: "TMyCollection" has no owner.
> Nevite nekdo kde je chyba?
>
> Dik
> Tomas Peroutka
>
TMyCollection musi mit predefinovanu metodu GetOwner,
treba takto:
TMyCollection = class(TCollection)
private
FOwner: TPersistent;
protected
function GetOwner: TPersistent; override;
public
constructor Create(Owner: TPersistent);
........
constructor TMyCollection.Create(Owner: TPersistent);
begin
FOwner := Owner;
inherited Create(TMyCollectionItem);
end;
function TMyCollection.GetOwner: TPersistent;
begin
Result := FOwner;
end;
Vaclav Krmela
Borland & Corel
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.2.2000 08:40:09 -0800
Budeme Delphi kupovat od Corelu?
Ctete http://www.zive(tec)cz/r-art.asp/id=9906
Jaro
---------------------------------------------
SINEA software, Ing Jaroslav Skerik, ZAMBERK
e-mail: jaro(zv)sinea(tec)cz http://www.sinea(tec)cz
phone: 0446 612468, mobile phone: 0602 581255
---------------------------------------------
QReport a HPLJ1100
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 9.2.2000 17:59:32
Ahoj,
Mam uplne stejny problem i konkurencni generator SINEA
napise nakej error v tiskacim butonu a v navrhu, ale ta
je lepsi v tom ze z nahledu to vytiskne i na ten spatny driver z diskety.
Reseni: stahnout novy ovladac www.hp.com
M. Jirman
----- Original Message -----
From: karel BRKL <karel_brkl(zv)hotmail.com>
To: Delphi - konference <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 09, 2000 8:22 AM
Subject: QReport a HPLJ1100
> Ma nekdo zkusenost s W95 s nainstalovanou HPLJ1100 nastavenou ja vychozi a
> D4 QuickReportem?
>
> Pri pridani komponenty QuickRep na formular Delphi zkolabuji na chybe
> 'delphi 32 v programu doslo k chybe ... zavrit ... ignorovat'
>
> K. Brkl
>
Registry - LoadKey
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 9.2.2000 18:03:08
Je tu take moznost vyzkouset TRegIniFile (je podobna TRegistry)
----- Original Message -----
From: bures
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 08, 2000 11:28 PM
Subject: Re: Registry - LoadKey
Toto jsem jiz zkousel, vytvoreni klice a otevreni klice je v poradku ale funkce LoadKey stale nechce fungovat a vraci navratovou hodnotu - false
Vlada
----- Original Message -----
From: p. Jirman
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 08, 2000 10:23 PM
Subject: Re: Registry - LoadKey
Ahoj,
pri zapisu souboru do registru je to podle helpu takto:
reg.CreateKey('\dlazdice'),
reg.OpenKey('\dlazdice', true),
reg.LoadKey('\dlazdice','c:\moje.pok')
reg.free
M.Jirman
----- Original Message -----
From: bures
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, February 08, 2000 7:02 PM
Subject: Registry - LoadKey
Ahoj mam tokovy maly problem kdyz ulozim par klicu a subklicu sys. registru do souboru pomoci
reg.RootKey := HKEY LOCAL MACHINE;
reg.SaveKey('\Software\dlazdice','c:\moje.pok');
a pote ho chci spatky nahrat z souboru do registru pomoci -
reg.CreateKey('\dlazdice'),
reg.LoadKey('\dlazdice','c:\moje.pok')
tak se nic nestane v helpu mi radi ze mam v rootkey vytvorit nejdrive klic a pote to do nej nahrat,
coz mi nejak nefunguje. Toto jsem zkousel v Delphi 5. ve Win98 cz.
Mocrkrat dekuji za radu, Vlada
Delphi 5 nechodi a nechodi
[*] Anton�n Blatn� - 9.2.2000 20:51:24
Jen pro uplnost. Moje graficka karta je z rady ATI. Delphi 3 mi chodi
naprosto bez problemu, ale nemohu prijit na to, zda je problem D5 vs. ATI,
nebo je ten pes zakopan jeste nekde jinde. Vsechny rady, ktere se tu
objevily, jsem bez uspechu vyzkousel. Ale stale se nehodlam smirit s tim, ze
musim "zkysnout" u trojek.
T.
----- Original Message -----
From: bures <bures(zv)ssakhk(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 09, 2000 11:58 AM
Subject: Re: Delphi 5 nechodi a nechodi
> Ahoj ja jsem mel dva kompy na obou graficke karty s3. Na jdenom s3 trio32
a
> na druhem s3 virge gx2 a na obou dvou se mi nechteli fungovat delphi,
zrejme
> na problemu delphi vs s3 neco bude ...
>
> Vlada
>
> ----- Original Message -----
> From: Lubos Hubka <hubka(zv)trenkwalder.sk>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, February 09, 2000 9:15 AM
> Subject: Re: Delphi 5 nechodi a nechodi
>
>
> > > >Mam NT4, SP5 (a nechodilo to ani na SP3-4) a Delphi 5 Enterprise se
po
> > > >nainstalovani ani nespusti. Objevi se uvodni Logo obrazovka, ktera
bez
> > > chyby
> > > >zmizi a Delphi se ukonci. Nestane se proste NIC. Nevim ani, kde mam
> hledat
> > > >chybu a co zkouset.
> >
> > Ja som mal podobny problem s CB4.0 a W98.
> > Problem bola graficka karta - S3.
> > Ked som zmenil gr. kartu, vsetko krasne slapalo.
> > Neviem ci to pomoze., mne to pomohlo.
> > --
> > \LH
> >
> >
>SaveDialog a OpenDialog (oba)
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 9.2.2000 19:54:19
No a v tom co ti to vrati zjistis pomoci FilterIndex viz D5 HELP, kterej
filtr (v tech "|") to je
M. Jirman
--
property FilterIndex: Integer;
Description
FilterIndex determines which of the file types in Filter is selected by
default when the dialog opens.
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
> > zmenu filtru odchytis pomoci TOpenDilalog.Ontypechange
> > prvni filtr nastavis pomoci OpenDialog1.FilterIndex:=0;
> > a jmeno zjistit pomoci TOpenDialog.Filter
>
> OpenDialog1.Filter mi vrati cely nastaveny filtr (napr. "All files
> (*.*)|*.*|GIF files (*.gif)|*.gif"
>
>ISAPI filtry
[*] V�clav Muchna <apscomp(zv)seznam(tec)cz> - 09.2.2000 20:32:50
Ahoj
zabyvali jste se nekdo nekdy tvorbou ISAPI filtru v Delphinech?
Koukal jsem na MSDNko, jak to udelat, jenze oni to tam popisujou
pouze pro svoje MSVC, a to ma jiz preddefinovany jako projekt a
tudiz i vytvoreny ty spec. vstupni body atd.
Pravdou je, ze jsem zcela bezpecne zjistil, jak zaregistruju novy
filtr do systemu, ale to je asi tak vsechno. Coz neni mnoho ;)
Takze pokud jste se tim nekdo nekdy nekde nejak zabyval, ci znate
nejaky linky, dejte vedet.
Zdravi a co nejmene trapeni s M$* preje
Neo
--
Vaclav Muchna
verejny pgp klic: http://www.apscomputer(tec)cz/vasek/pubring.html
Hra mravec
[*] 7hlavac(zv)st.fmph.uniba.sk - 9.2.2000 21:44:42
Zdravim vsetkych,
na adrese www.usmev.sk/mravec/mravec.zip si mozete stiahnut hru
Mravec.
Malickost ale mozno potesi.
S pozdravom
Michal Hlavac
Spolocnost priatelov deti z detskych domovov
Usmev ako dar
e-mail: 7hlavac(zv)nw.fmph.uniba.sk
web: www.usmev.sk
Ziskanie ikony suboru
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 9.2.2000 20:48:14
> Akym sposobom je mozne ziskat ikonu, ktoru pouzije napriklad Windows
> Explorer pri zobrazeni zoznamu suborov ?
Napriklad takto:
EXE:
Image1.Picture.Icon.Handle :=
ExtractIcon(Form1.handle,PChar(pr.Cesta),0);
Associated:
Image1.Picture.Icon.Handle :=
ExtractAssociatedIcon(Form1.handle,PChar(pr.Cesta),w);
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
BDE a PARADOX
[*] Lauko �tefan <lauko(zv)salamon.sk> - 9.2.2000 21:54:05
>
>> > vedel by mi niekto poradit co potrebujem z BDE ked chcem v programe
>vyuziv
>> at
>>
>
>
>Asi najjednoduchsia cesta (a mala by byt
>aj najbezpecnejsia) instalacie BDE
>je rozbalit bdeinst.cab. Tam sa nachadza
>len BdeInst.dll. Ten treba zaregistrovat:
>
>regsvr32 BdeInst.dll
>
>Ci je mozne distribuovat BdeInst.dll,
>to neviem.
>
>forgo
Dakujem pomohlo mi to.
regsvr32 BdeInst.dll - toto som nevedel.
Je potom potrebne spustit proceduru v BDEInst.DLL .
Bud takto:
program Project1;
Procedure DLLRegisterServer; external 'BDEInst.DLL' name
'DllRegisterServer';
begin
DLLRegisterServer;
end.
Alebo staci aj toto:
regsvr32 BdeInst.dll
RUNDLL32 BdeInst.dll,DllRegisterServer
SaveDialog a OpenDialog
[*] Lud�k ZITA - 9.2.2000 21:56:29
From: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 09, 2000 3:43 PM
Subject: RE: SaveDialog a OpenDialog
> pri zmene filtru zmenila i pripona toho souboru ( priklad z pokus.rtf pri
zmene filtru na txt
> se musi zmenit na pokus.txt. Uz jsem z toho srnka. Jo a ma D3 Profi.
>
Ja nastavuju DefaultExt na '*'.
Potom pokud zadam pouze nazev pred priponou, vrati mi dialog soubor se
spravnou priponou podle vyberu. Ovsem pokud uz vyberu nebo napisu nejakou
priponu nema pozdejsi zmena filtru zadny vliv.
Myslel jsem si, ze koncovku zmenim v OnTypeChange ale to nejde a help k tomu
rika :
Programmatic changes to FileName have no effect while the dialog is active.
V tomto pripade je holt standardni Windowsacky dialog odflaknuty a asi bude
potreba napsat vlastni.
Mimochodem mate nekdo zkusenost s vlastnosti Template (TCommonDialog)
Points to a custom template for the dialog.
property Template: PChar;
Description
Template points to a resource identifier (a null-terminated string or an
integer created with MAKEINTRESOURCE) that identifies a Windows dialog
resource in the current HInstance module. The Execute method uses this
resource to customize the appearance of the dialog.
For example, if 123 is an integer identifier in the resource file MYDLG.RES,
the following code could be used customize OpenDialog1.
{$R Mydlg.res}
OpenDialog1.Template := MakeIntResource(123);
If DialogA is a string identifier in MYDLG.RES, then the following code
could be used customize PrintDialog1.
{$R Mydlg.res}
PrintDialog1.Template := 'DialogA';
Ludek ZITA
DAO 3.6 ISAM FoxPro
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 9.2.2000 22:21:52
Zdravim,
presel jsem z DAO 3.5(Access97) na DAO 3.6(Access2000) a mam pocit, ze krome instalace, ktera mi u DAO 3.5 zabrala dve diskety a nyni je na CD se nic prevratneho nezmenilo. Jen uz se nemohu nakonektovat na FoxPro tabulky prez ISAM driver. Drive stacilo zaregistrovat msxbse35 DLL knihovnu, ale ted uz mam utrum. Nevim jak se na FoxPro z DAO 3.6 dostanu ?!
Diky za pripadnou napovedu
Vlada Cadsky
D5 Ent. - Karta Servers
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 9.2.2000 22:35:47
Nejake demo jsem nasel v adresari delphi\demos\activex\oleauto
Me se v praxi ale vice osvedcilo exportovat z me aplikace vlastni format dat do souboru a napsat kod ve VB, ktery soubor prelouska a udela co je treba.
Vlada Cadsky
----- Original Message -----
From: Martin Pe�ek
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, February 09, 2000 4:11 PM
Subject: D5 Ent. - Karta Servers
Zdravim !!!
Nevite nekdo jak se pracuje s komponentama z karty Servers ? A jak hodne podporuji Office ?
Predem dik a cau.
Martin Pesek, zakladatel tymu Gamemaker
P.S.: V helpu jsem nic nenasel a zadny demo projekty u Delphi nejsou :(Delphi 5 nechodi a nechodi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:06:09
From: Anton�n Blatn� <tonyk(zv)atlas(tec)cz>
> Jen pro uplnost. Moje graficka karta je z rady ATI. Delphi 3 mi chodi
> naprosto bez problemu, ale nemohu prijit na to, zda je problem D5 vs. ATI,
> nebo je ten pes zakopan jeste nekde jinde. Vsechny rady, ktere se tu
> objevily, jsem bez uspechu vyzkousel. Ale stale se nehodlam smirit s tim, ze
> musim "zkysnout" u trojek.
Ahoj,
A mas nainstalovany alespon IE4.01 ?
Petr Vones, amatersky programator
File cache u Win9x (Was: Delphi 5 & W2000)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:06:56
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> Pouzil jsem utilitku CacheMan (byla popsana nekde v Computeru, mam
> W95,IE5,64MB RWM a 1.6GB HD) a Windows mi uz na disk tolik nestracha (daji
> se tam nastavit i nejake profily - typicky uzivatel, hry, DB aj.) ale ...
Ahoj,
nespociva ta utilita jen v nastaveni min a max velikosti diskove cache ?
To lze udelat zapsanim nasledujici sekce do SYSTEM.INI (hodnoty jsou v MB):
[vcache]
MinFileCache=4096
MaxFileCache=24576
Maximalni hodnota se udajne doporucuje nastavit na cca 1/4 velikosti
fyzicke RAM (alespon tak to pouzivam).
Petr Vones, amatersky programator
PaintTo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:06:50
From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> Ale presne toto mi nefunguje (teda konkretne s DrawGrid som to neskusal, ale
> s kopou inych ano).Do bitmapy sa vykresli iba ramcek TWinControl, ale obsah
Ahoj,
Mas pravdu, to jsou ty zaludnosti VCL. Je treba zavolat Lock/Unlock canvasu
bitmapy (viz metoda FreeMemoryContexts v Graphics.pas):
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Picture.Bitmap do
begin
Width := Edit1.Width;
Height := Edit1.Height;
Canvas.Lock;
Edit1.PaintTo(Canvas.Handle, 0, 0);
Canvas.Unlock;
end;
end;
Petr Vones, amatersky programator
Komponenta zdedena z TToolBar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:06:36
From: Radek KALA <Kala(zv)atlas(tec)cz>
> mam maly problem, potrebuji si napsat vizualni komponentu, a
> mam problem, Komponenta je potomek TToolBar a na ni chci mit
> TEdit a nekolik tlacitek. Jak to mam vytvorit.
> At delam co delam, tak bud neni Edit videt, nebo to zhazuje
Ahoj,
Pokud nema delat nic jineho nez obsahovat vyse uvedena tlacitka a TEdit, tak
asi nejjednodussi cesta je si ji na formulari takto navhrnout a pak ulozit
jako component template. To lze provest z menu Component | Create Component
Template pro prave vybranou/vybrane komponenty. Takto si muzes z existujicich
komponent vizualne vytvaret znovupouzitelne celky ci jen komponenty s odlisnym
vychozim nastavenim nekterych vlastnosti.
Petr Vones, amatersky programator
SaveDialog a OpenDialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:06:15
From: Lud�k ZITA <konference(zv)sales(tec)cz>
> Mimochodem mate nekdo zkusenost s vlastnosti Template (TCommonDialog)
Ahoj,
Tady najdes priklad z DelphiDays'99 na vyuziti .RC souboru v Delphi. Jedna se
prave o rozsireni standartnich Windows dialogu. Casem bych to tema treba vice
rozsiril.
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Api/DelphiDays99_DialogTemplate.zip
Petr Vones, amatersky programator
SaveDialog a OpenDialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:06:21
From: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
> To uz jsem zkousel, dokonce si dokazu vyextrahovat i priponu, ale jak zajistit,
> aby se mi pri zmene filtru zmenila i pripona toho souboru ( priklad z pokus.rtf
> pri zmene filtru na txt se musi zmenit na pokus.txt. Uz jsem z toho srnka. Jo a
> ma D3 Profi.
Ahoj,
To je trosku problem, pokud jsem si vsiml tak to ve vetsine aplikaci nefunguje,
tedy se pripona po zmene filtru uz nezmeni.
Petr Vones, amatersky programator
DebugHook
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:07:23
From: Jezek Petr, Ing. <PETR(zv)sevis.sk>
> Proto, kdyz pustim program s EHS v IDE, tak vse funguje presne jak
> potrebujeme.
> Ale mimo IDE, dokazu zacytit jen vznik vyjimky. Jen pokud spustim i nas
> pseudo
> debug program a nastavim DebugHook na 0, tak se vse znovu funguje.
Ahoj,
A to ti tedy nestaci ? Neni lepsi pustit aplikaci v pseudo debuggeru nez se
rypat v system unitu.
Jinak mas jeste dalsi moznosti, napriklad lze modifikovat puvodni kod RTL az
za behu aplikace. Je to sice trochu silenost (stejne jako upravy v RTL :-),
ale pri trose trpelivosti to take funguje.
Napriklad odchyceni interni funkce _HandleFinally. Prvni problem je ziskat
jeji adresu, to lze zjistit z vygenerovaneho MAP file. Dale viz priklad:// procedure _HandleFinally;
// MOV EAX,[ESP+4] - 4 Byte
// MOV EDX,[ESP+8] - 4 Byte
// TEST [EAX].TExceptionRecord.ExceptionFlags,cUnwindInProgress
uses
ImageHlp;
var
HandleFinallyAddr, HandleFinallyRetAddr, MyProcStartCodeAddr: PChar;
function BaseCodeAddress: PChar;
var
LI: LoadedImage;
begin
if MapAndLoad(PChar(Application.ExeName), nil, (zv)LI, True, True) then
begin
with LI.FileHeader^.OptionalHeader do
Result := Pointer(ImageBase + BaseOfCode);
UnMapAndLoad((zv)LI);
end else Result := nil;
end;
procedure MyHandleFinally; assembler;
asm
// volani nejakeho vlastniho kodu pri _HandleFinally
PUSH 0
CALL MessageBeep
// volani instrukci ktere jsme v pudovnim kodu prepsali
MOV EAX,[ESP+4]
MOV EDX,[ESP+8]
JMP [HandleFinallyRetAddr]
end;
procedure MyProcStartCode; assembler;
asm // Timto nahradime prvni dve MOV instrukce z _HandleFinally
JMP [MyProcStartCodeAddr]
end;
procedure TForm1.Button1Click(Sender: TObject);
const
BlockSize = 8; // Delka prvnich dvou nahrazenych MOV instrukci
var
SaveProtect, OldProtect: DWORD;
begin
HandleFinallyAddr := BaseCodeAddress + $00002CD8; // MAP File
HandleFinallyRetAddr := HandleFinallyAddr + BlockSize;
MyProcStartCodeAddr := (zv)MyHandleFinally;
Win32Check(VirtualProtect(HandleFinallyAddr, BlockSize, PAGE_READWRITE, (zv)SaveProtect));
CopyMemory(HandleFinallyAddr, (zv)MyProcStartCode, BlockSize);
Win32Check(VirtualProtect(HandleFinallyAddr, BlockSize, SaveProtect, (zv)OldProtect));
Win32Check(FlushInstructionCache(GetCurrentProcess, HandleFinallyAddr, BlockSize));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
raise EAbort.Create('');
finally
end;
end;
Petr Vones, amatersky programator
D5 Ent. - Karta Servers
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.2.2000 23:07:06
From: Martin Pe�ek <pesek.martin(zv)mymail(tec)cz>
> Nevite nekdo jak se pracuje s komponentama z karty Servers ? A jak hodne podporuji
> Office ?
Ahoj,
Komponenty v palete Servers jsou vlastne COM servery jako komponenty. Office
podporuji na 100% :-) Takto si muzes naimportovat i jine COM servery, ve
Windows ci v jinych aplikacich jich mas desitky. Jejich pouziti pak musis
hledat v prislusne dokumentaci (tedy napriklad pro Office). Ze strany Delphi
hledej v helpu TOleServer. Urcitou pomuckou ti muze byt Code Insight kde tak
ziskas seznam metod a vlastnosti, pak muzes volat treba:
WordApplication1.Visible := True;
Petr Vones, amatersky programator
DAO 3.6 ISAM FoxPro
[*] Erik Salaj <winsoft(zv)napri.sk> - 10.2.2000 00:26:14
stacilo zaregistrovat msxbse35 DLL knihovnu, ale ted uz mam utrum. Nevim jak se na FoxPro z DAO 3.6 dostanu ?!
Len cez ODBC.
Erik Salaj
CaseInsensitive and Unique index on InterBase.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 10.2.2000 00:52:03
Zdravim.
toto som vykonal
Create Unique Index Priez on Skuska (Priezvisko)
ale toto nie je riesenie pre CaseInsensitive ?
Ako vytvorim jedinecny index ale aby nerozlisoval velke a male ?
Tenk j� veri ma�.
H�j. Roland Tur�an
SaveDialog a OpenDialog
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.2.2000 06:21:24
> To je trosku problem, pokud jsem si vsiml tak to ve vetsine
> aplikaci nefunguje,
> tedy se pripona po zmene filtru uz nezmeni.
Treba takovy Word, nebo PaintShopPro to umi.Komponenta Query, aneb co delam spatne
[*] Petr Ku�era <kucera(zv)vri(tec)cz> - 10.2.2000 07:52:49
Dobry den,
prosim vas, mohli byste mi nekdo rici, co delam spatne, kdyz do
zdrojoveho kodu dam:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN )
VALUES ( "Ferdinand", "Mravenec", "7711110000", "-" )');
ExecSQL;
Open;
end;
end;
tak po stisknuti BitBtn1 se mi vypise nasledujici hlaska:
"Project Dat1.exe raised exception class ENoResultSet with message
'Error creating cursor handle'. Process stopped. Use step or Run to
continue."
Mohli byste mi poradit, jak to odstranit?
Dekuji.
S pozdravem Petr Kucera.Komponenta Query, aneb co delam spatne
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 10.2.2000 08:13:51
Je to INSERT SQL prikaz, takze volani Open po ExecSql nema smysl.
Petr
-----Original Message-----
From: Petr Ku�era [mailto:kucera(zv)vri(tec)cz]
Sent: Thursday, February 10, 2000 7:53 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Komponenta Query, aneb co delam spatne
Dobry den,
prosim vas, mohli byste mi nekdo rici, co delam spatne, kdyz do
zdrojoveho kodu dam:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN )
VALUES ( "Ferdinand", "Mravenec", "7711110000", "-" )');
ExecSQL;
Open;
end;
end;
tak po stisknuti BitBtn1 se mi vypise nasledujici hlaska:
"Project Dat1.exe raised exception class ENoResultSet with message
'Error creating cursor handle'. Process stopped. Use step or Run to
continue."
Mohli byste mi poradit, jak to odstranit?
Dekuji.
S pozdravem Petr Kucera.ISAPI filtry
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 10.2.2000 08:30:08
> zabyvali jste se nekdo nekdy tvorbou ISAPI filtru v Delphinech?
> Koukal jsem na MSDNko, jak to udelat, jenze oni to tam popisujou
> pouze pro svoje MSVC, a to ma jiz preddefinovany jako projekt a
> tudiz i vytvoreny ty spec. vstupni body atd.
>
> Pravdou je, ze jsem zcela bezpecne zjistil, jak zaregistruju novy
> filtr do systemu, ale to je asi tak vsechno. Coz neni mnoho ;)
>
> Takze pokud jste se tim nekdo nekdy nekde nejak zabyval, ci znate
> nejaky linky, dejte vedet.
Borland/Inprise as Corel sice tvrdi, ze podporuji cele ISAPI (vcetne
filtru), ale ve skutecnosti je v Delphi docela dobra podpora ISAPI extenzi,
ale vytvoreni filtru se bude muset udelat API funkcemi (viz. help Win32 Dev.
z D5 Pro).
Stastnou cestu
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: +420 69 661 33 33
* fax : +420 69 661 33 30
* cellular : +420 604 23 83 29
* e-mail : cerny(zv)atlascon(tec)cz
* private : cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
Komponenta Query, aneb co delam spatne
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 10.2.2000 08:41:02
Ak chces iba vykonat SQL prikaz cez Query, tak nepouzivaj Close a Open, ale
iba ExecSQL. To znamena, ze vysledny kod by mal tvar
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN ) VALUES
"Ferdinand", "Mravenec", "7711110000", "-" )');
ExecSQL;
end;
end;
Open pouzi zase vtedy, ak by si chcel robit SELECT (ale vtedy tam zase nema
co robit ExecSQL).
----- Original Message -----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, February 10, 2000 7:52 AM
Subject: Komponenta Query, aneb co delam spatne
> Dobry den,
>
> prosim vas, mohli byste mi nekdo rici, co delam spatne, kdyz do
> zdrojoveho kodu dam:
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
> with Query1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN )
> VALUES ( "Ferdinand", "Mravenec", "7711110000", "-" )');
> ExecSQL;
> Open;
> end;
> end;
>
> tak po stisknuti BitBtn1 se mi vypise nasledujici hlaska:
>
> "Project Dat1.exe raised exception class ENoResultSet with message
> 'Error creating cursor handle'. Process stopped. Use step or Run to
> continue."
>
> Mohli byste mi poradit, jak to odstranit?
>
> Dekuji.
>
> S pozdravem Petr Kucera.
>Komponenta Query, aneb co delam spatne
[*] radomir.chwalek(zv)rtscs(tec)cz - 10.2.2000 08:49:31
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
> with Query1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN )
> VALUES ( "Ferdinand", "Mravenec", "7711110000", "-" )');
> ExecSQL;
toto open by tady nemelo byt. Open se pouziva pouze pokud je v
Query.SQL.Add prikaz SELECT ...., Po INSERT se pouziva pouze ExecSQL
> Open;
S pozdravem
Radek
-----------------------------------------
Ing. Radom�r Chwalek
radomir.chwalek(zv)rtscs(tec)cz
radomir.chwalek(zv)seznam(tec)cz
www.rtscs(tec)cz Ziskanie ikony suboru
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 10.2.2000 08:50:51
Diky za radu, medzitym som na sposob prisiel sam, je vsak trochu iny.
procedure TFrmHlavny.VytvorPreview(Subor: String; Bmp: TBitmap);
var
info: SHFILEINFO;
begin
SHGetFileInfo(PChar(Subor), 0, info, SizeOf(info), SHGFI_ICON);
DrawIcon(Bmp.Canvas.Handle, 0, 0, info.hIcon);
end;
----- Original Message -----
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, February 09, 2000 8:48 PM
Subject: Re: Ziskanie ikony suboru
> > Akym sposobom je mozne ziskat ikonu, ktoru pouzije napriklad Windows
> > Explorer pri zobrazeni zoznamu suborov ?
>
> Napriklad takto:
>
> EXE:
>
> Image1.Picture.Icon.Handle :=
> ExtractIcon(Form1.handle,PChar(pr.Cesta),0);
>
> Associated:
>
> Image1.Picture.Icon.Handle :=
> ExtractAssociatedIcon(Form1.handle,PChar(pr.Cesta),w);
>
>
> Slavek
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
> Komponenta Query, aneb co delam spatne
[*] Lauko �tefan <lauko(zv)salamon.sk> - 10.2.2000 09:06:24
Dobry den,
prosim vas, mohli byste mi nekdo rici, co delam spatne, kdyz do
zdrojoveho kodu dam:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN )
VALUES ( "Ferdinand", "Mravenec", "7711110000", "-" )');
ExecSQL;
Open;
end;
end;
tak po stisknuti BitBtn1 se mi vypise nasledujici hlaska:
"Project Dat1.exe raised exception class ENoResultSet with message
'Error creating cursor handle'. Process stopped. Use step or Run to
continue."
Mohli byste mi poradit, jak to odstranit?
Dekuji.
S pozdravem Petr Kucera."Open" tam uz nedavaj...
Komponenta Query, aneb co delam spatne
[*] Milan Kotaska <mkotaska(zv)atlas(tec)cz> - 10.2.2000 09:13:25
Ahoj,
odstran volani metody Open.
V pripade, ze se pouzije metoda ExecSQL neni vytvoren zadny dataset (je to
napsano v chybovem hlaseni), tudiz ho neni mozny otevrit.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
----- Original Message -----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, February 10, 2000 7:52 AM
Subject: Komponenta Query, aneb co delam spatne
> Dobry den,
>
> prosim vas, mohli byste mi nekdo rici, co delam spatne, kdyz do
> zdrojoveho kodu dam:
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
> with Query1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN )
> VALUES ( "Ferdinand", "Mravenec", "7711110000", "-" )');
> ExecSQL;
> Open;
> end;
> end;
>
> tak po stisknuti BitBtn1 se mi vypise nasledujici hlaska:
>
> "Project Dat1.exe raised exception class ENoResultSet with message
> 'Error creating cursor handle'. Process stopped. Use step or Run to
> continue."
>
> Mohli byste mi poradit, jak to odstranit?
>
> Dekuji.
>
> S pozdravem Petr Kucera.Komponenta Query, aneb co delam spatne
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.2.2000 09:24:40
> Je to INSERT SQL prikaz, takze volani Open po ExecSql nema smysl.
Jen doplnim pro informaci:
- pokud vysledkem dotazu v Query ma byt vracena mnozina dat,
pouziva se k vykonani dotazu Open (bez ExecSQL). Situace
nastane obvykle pri dotazech typu SELECT
- pokud operace v Query nevraci data (insert, update, delete apod.),
vola se jen ExecSQL (bez Open)
David
Corel koupil Borland
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 10.2.2000 09:27:01
Kouknete na
http://www.wired.com/news/business/0,1367,34181,00.html
Petr
DAO 3.6 ISAM FoxPro
[*] Vladislav Cadsky <cadskyk1(zv)atlas(tec)cz> - 10.2.2000 09:59:39
Diky za odpoved.
No to jsem tusil, jestli se nemylim, tak to bude pomalejsi.
Vlada
----- Original Message -----
From: Erik Salaj
To: delphi-l(zv)fwd(tec)cz
Sent: Thursday, February 10, 2000 12:26 AM
Subject: Re: DAO 3.6 ISAM FoxPro
stacilo zaregistrovat msxbse35 DLL knihovnu, ale ted uz mam utrum. Nevim jak se na FoxPro z DAO 3.6 dostanu ?!
Len cez ODBC.
Erik Salaj
Autoincrement & DBF
[*] Milan Kotaska <mkotaska(zv)atlas(tec)cz> - 10.2.2000 10:34:24
Ahoj.
Prosim o radu, jak nejlepe vytvaret jedinecnou polozku databaze (DBF).
Jde o to, ze v urcitem sloupecku tabulky (napr. ID) chci mit jedinecnou
hodnotu.
Jedna se o tabulku dBase, ktera nema typ sloupce autoincrement. Tzn.
vlastne, jak vytvorit autoincrement.
K tabulce muze pristupovat vice uzivatelu na siti.
Dekuji za kazky namet.
Milan Kotaska
mkotaska(zv)atlas.cy
W2000 a D5
[*] Martin <geoplan(zv)pp.sinet.sk> - 10.2.2000 10:39:29
Staci pre Win 2000 a D5 nasled. harware ?
Pentium Pro 200 MHz
64 MB EDO
4 GB HD
Diamond Stealh 3D 3000(cip S3 Virge VX),
alebo radsej WinNT 4 +D5 ?
Martin
Komponenta zdedena z TToolBar
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 10.2.2000 10:49:31
To je moc pekny. Pouziji to na mnoho krasnych veci, ale neresi to
muj problem. Ja potrebuji samozrejme napsat obsluhu tech tlacitek
a nechci aby se to nakopirovalo to kodu, potrebuji to menit a vyvijet.
Problem je v tom, ze kdyz polozim toolbar a na nej edit, nebo
panel atd. tak je vse OK, ale jakmile udelam komponentu a snazim
se na ni vytvorit ten edit tak to zhazuje delphi, nejruznejsima
chybama, zalezi na tom jestli to vytvareni dam do constructoru,
nebo do loaded a jestli tam dam insertControl, nebo nastavim
parent, vzdy to dopadne blbe. Pokud udelam jen create tak to
nespadne, ale taky se to nevykresli. Komponenty uz jsem psal,
takze nejake zaklady uz vim, bohuzel zatim vsechny byly
nevizualni.
> From: Radek KALA <Kala(zv)atlas(tec)cz>
> > mam maly problem, potrebuji si napsat vizualni komponentu, a
> > mam problem, Komponenta je potomek TToolBar a na ni chci mit
> > TEdit a nekolik tlacitek. Jak to mam vytvorit.
> > At delam co delam, tak bud neni Edit videt, nebo to zhazuje
>
> Ahoj,
>
> Pokud nema delat nic jineho nez obsahovat vyse uvedena tlacitka a TEdit, tak
> asi nejjednodussi cesta je si ji na formulari takto navhrnout a pak ulozit
> jako component template. To lze provest z menu Component | Create Component
> Template pro prave vybranou/vybrane komponenty. Takto si muzes z existujicich
> komponent vizualne vytvaret znovupouzitelne celky ci jen komponenty s odlisnym
> vychozim nastavenim nekterych vlastnosti.
>
> Petr Vones, amatersky programator
>
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Jak TIBDataSet.ModifySQL
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 10.2.2000 11:16:45
Hi,
Pozivam IBDataSet a mam v nem
select c.cislo,c.nazev,c.dodavatel,k.nazev
from seznam c, adresar k
where
c.dodavate=k.dodavatel
jak mam napsat modify SQL aby sel menit i nazev odberatele.
Nebo kvuli tomu musim delat View. ( to v tomto pripade nemuzu,
protoze je tam jeste parametr ( ve Where je vice podminek ). S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Fonty na NT serveru
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 10.2.2000 11:40:44
Dobry den,
mam aplikaci vytvorenou v D3, ve ktere pouzivam systemovy font, ale na Win
NT 4 Serveru se mi spatne zobrazuje cestina. Lze to opravit nastavenim NT
Serveru? A jak?
Predem diky Petr Riedel
Frames
[*] Ing. Keder Vladim�r <keder(zv)columbex.sk> - 10.2.2000 11:40:47
Diky za radu. Funguje to. Este by som sa chcel opytat : Na tych Framoch mam
TEdit komponenty. Ako sa mam pocas behu programu odvolavat na nich? Ked som
mal frame staticky ulozeny na formulary, bolo to jednoduce
frmSkrinka.eVyska.Text (frmSkrinka: TFrame1). V Tvojom priklade
nedefinujes ziadne meno Frame. Pokial som vo vnutri with je vsetko OK ako
ked je frame umiestneny staticky na formulary a teda mam pristup aj k
jednotlivym TEditom. Ked ho ukoncim, neviem ako sa mam na tie komponenty
dostat, ako testovat ci uz frame je vytvoreny a ako ho uzavriet.
Vyskusal som to takto
var frmSkrinka: TFrame;
begin
frmSkrinka:=TFrame1.Create(Self); {resp. vytvorene na Panel1}
frmSkrinka.Parent:=Self;
...
end;
ked zatvaram formular nacitavam hodnoty z TEdit ulozenych na konkretnom
frame
Nazov:= TEdit(frmSkrinka.FindComponent('eNazov')).Text; {ak je TEditov
viac cas na prehladavanie sa bude umerne zvysovat poctu TEdit-ov}
...
frmSkrinka.Free
Vsetko bezi spravne, ale Tvoja konstrukcia je lepsia a teda si myslim, ze aj
z hladiska cistoty programovania efektivnejsia
Diky Vlado
----- Original Message -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Odoslan�: 7. febru�r 2000 23:12
Predmet: Re: Frames
From: Ing. Keder Vladim�r <keder(zv)columbex.sk>
> Mam D5 a zacal som pouzivat Frames. Vytvoril som si rozne ramce a
> potrebujem ich zobrazovat na zaklade uzivatelovho vyberu. Skusal som ho
> vytvarat dynamicky ako formulare, ale ramec sa mi nezobrazi
Ahoj,
Musis jeste priradit Parent framu, napriklad:
procedure TForm1.FormCreate(Sender: TObject);
begin
with TFrame2.Create(Self) do
begin
SetBounds(10, 10, Width, Height);
Parent := Self;
end;
end;
Petr Vones, amatersky programator
Pocet otvorenych suborov
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 10.2.2000 11:50:09
Peter Vlkovic <vlkovic(zv)minv.sk> wrote:
>Inak Ralf Brownov list som preliezol, ale nejaky
>navod resp. trik, ako osetrit "too many file open"
>som tam nenasiel. TechHelp mam z 89-teho, momentalne
>som sa pokusal najst na Inete novsiu verziu (zatial
>bez uspechu).
My jsme za bolsevika jako zakladni zdroj know-how o MS-DOS
cerpali z vynikajici knihy, ktera se jmenovala nejak takto:
"Waite Group's MS-DOS Develepor's Guide", kterou napsala parta lidi,
ktera disassemblovala MS-DOS 3.2 a pak o tom napsala podrobnou knihu
o vice nez 700 stranach.
bye pf, Petr.Fejfar(zv)callnet(tec)cz
Path pre IB-server
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 10.2.2000 12:11:23
D3,W98,IB5
Zdravim,
chcem sa opytat ci existuje moznost prevodu sietovej cesty k suboru (napr: \\server\shared\data.gdb) na lokalny tvar z pohladu servera (napr: c:\data\ib\data.gdb, kde cesta c:\data\ib je zdielana ako shared).
Je to kvoli IB-serveru, ktory ocakava cestu k databaze vo svojej lokalnej forme, ale ako klient na sieti nemusim poznat skutocnu strukturu adresarov servera a napriek tomu sa potrebujem pripojit na verejne viditelnu databazu.
Pavol Stolc
pstolc(zv)sc.sknet.sk
OLE Excel citanie...
[*] Martin VELGOS <mato(zv)sct.sk> - 10.2.2000 13:26:20
Mam takyto kod...:
procedure TForm1.Button1Click(Sender: TObject);
var excelole:variant;
begin
try
excelole := GetActiveOleObject('Excel.Application');
except
excelole := CreateOleObject('Excel.Application');
end;
OpenDialog1.Title := 'N�jdi excelovsk� s�bor';
if OpenDialog1.Execute then
begin
excelole.Workbooks.Open(OpenDialog1.FileName);
StringGrid1.Cells[0,0] := excelole.ActiveWorkbook.Name;
StringGrid1.Cells[1,0] := excelole.ActiveWorkbook.Sheets(1).Name;
end;
end;
excelole.ActiveWorkbook.Name
mi vrati spravne meno .xls suboru, ale
excelole.ActiveWorkbook.Sheets(1).Name
skonci s chybou EOleSysError "Clen nebyl nalezen"
mam zisnstaleny Excel z Office2000
nevie niekto poradit co s tym,
respektive by som potreboval vycitat obsah buniek z excelu do StringGrid
komponenty
toto je len taky pokus zistit info o .xls subore a aj to uz pada na
zobacik...
MATO
Rozpoznani HW
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 10.2.2000 13:32:58
Cauec fseci,
krom reseni programatorskych fint odboceni.
Vi nekdo, jak na rozpoznani HW ? Registry mi taky vsechno nereknou. Vo co gou.
Nekteri zakaznici chteji od nas neco, na co potrebuju vedet, jak na tom jsou s HW. Kolik maji v masine ISA a PCI slotu, ktere jsou obsazene treba sitovkou nebo zvukovkou, a taky (o coz mi jde hlavne), kolik jich maji volnych. Podle poctu volnych slotu jim musim navrhnout jaky karty jim dame (ISA / PCI), zdali budou potrebovat vymenit starou sitovku na ISA za PCI atd. Dale jestli maji treba interni nebo externi modem.
Zkratka bych rad nejak ziskal prehled a programove primo na masine by videli, na cem jsou. At koukam do registru jak chci, nejak jsem na nic neprisel.
Je mi jasny, ze nejjednodussi je otevrit kisnu a podivat se, ale jezdit od Domazlic az po Ostravu taky neni nic prijemnyho. A podle zkusenosti, ktere nekteri z vas maji se zakazniky, vite, ze se po telefonu dopatrat konfigurace taky neni mozny.
Nechci rovnou zdrojak, i kdyz by jiste potesil a usetril par mozkovych zavitu, ale staci i princip, jak na to (hlavne ty prazdny sloty).
Uz jsem toho napsal dost.
Mejte se podle svych predstav.
Bye Ludan
Autoincrement & DBF
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.2.2000 13:39:28
Napriklad RRRRMMDDHHmmSSss[GGGG]
kde RRRR je rok, MM mesic, ... ulozeni vety,
GGGG muze byt nejake nahodne cislo
nebo ID uzivatele, ...
Dobra.
> ----------
> Od: Milan Kotaska[SMTP:mkotaska(zv)atlas(tec)cz]
>
> Prosim o radu, jak nejlepe vytvaret jedinecnou polozku databaze (DBF).
> Jde o to, ze v urcitem sloupecku tabulky (napr. ID) chci mit jedinecnou
> hodnotu.
> Jedna se o tabulku dBase, ktera nema typ sloupce autoincrement. Tzn.
> vlastne, jak vytvorit autoincrement.
> TreeView
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.2.2000 13:52:06
Abych se priznal, tak jsem vgDBTreeView jeste nezkousel,
ale zkusim to co nejdrive a poslu sem vysledky sveho
snazeni.
Ad 2 : Nejlepsi je to v kombinaci s rxQuery...
Nastav si rxDBGrid1.TitleButtons na true a v udalosti
a) OnTitleBtnClick zjistis, ktery sloupecek/field to byl a
muzes potom menit poradi v ORDER BY prislusneho Query.SQL
b) OnGetBtnParams muzes prostrednictvim SortMarker-u
kreslit ten trojuhelnicek :
procedure TForm1.RxDBGrid1GetBtnParams(Sender: TObject;
Field: TField; AFont: TFont; var Background: TColor;
var SortMarker: TSortMarker; IsDown: Boolean);
Mrkni se ne ten jejich priklad (rxDemo)...
Dobra.
> ----------
> Od: spravce(zv)spektrum(tec)cz[SMTP:spravce(zv)spektrum(tec)cz] za Milan Schembera[SMTP:spravce(zv)spektrum(tec)cz]
>
>A ne�lo by zkusit pou��t t�eba vgDBTreeView z vgLib
> >(http://www.tsinet.ru/~vg/)?
>
> Tak zrovna ten jsem vcera zkousel pouzit, ale asi jsem nepochopil podstatu. Zkousel jsem to na podobnem priklade jako chce kolega, ale zobrazilo se mi absolutely nothing.
>
> Jinak netusite nekdo, zda lze treba na RXDBGrid nebo vgDBGrid pouzit "TitleButtons" na trideni polozek v gridu ? Jestli to tam je, ja to nenasel. Ale mozna jsem spatne hledal .... :-(
>
> Email
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.2.2000 14:01:50
Pouzivam komponentu EMAIL pro odesilani e-mailu pres MAPI. Ovsem nikde jsem
nenasel jak nastavit, aby se odeslana zprava neukladala ve slozce ODESLANA
POSTA.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Find v Db 2
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 10.2.2000 15:26:11
Zdravim,
Chcem sa spytat, ze ako by som urobil prehladavanie v akejkovek casti pola.
Fnc-e Locate obsahuje premennu LocateOption, ale ma len dve moznosti:
loCaseInsensitive, loPartialKey. prva zabezpeci nerozlisovanie malych a
velkych pismenok, a ta druha skoro podobna ako to co chcem, len hlada
partition v poli od zaciatku. Ja by som potreboval vratit true, ked hladany
text je Ulicny z pola Peter Ulicny.
Vdaka Miso.Kde vzit ADO komponenty?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 10.2.2000 15:48:45
Ahojte lidicky,
rad bych se seznamil s pristupem k MS SQL serveru 7 pres ADO.
Muzete mi prosim poradit, kde se daji stahnout nejake
komponenty? Na Adonis kontakt mam, rad bych pro srovnani
zkusil i neco jineho. Nemusi jit o freeware (ale nevadil by).
Popr. zda existuji nejake zname problemy pri praci s MSSQL 7
pres ADO. Procetl jsem archiv a narazil jsem jen na problem s
parametry. Co jsem ovsem nenasel je odkaz na komponenty jine
nez od Adonisu.
Dekuji predem a zdravim
David
jak vyuzit RES
[*] Jan Wieser <wcspider(zv)centrum(tec)cz> - 10.2.2000 16:03:03
Zdravim kazdeho kdo tohle cte. Jsem v Delphi novy a v teto konferenci
take. Potreboval bych radu. Vim jak udelat res soubor, jak do nej dat nektera data, jak
je nacist a jak ho zkompilovat do exe souboru. Potreboval bych ale vedet, jak mit res
soubor (pokud to jde, nevadi mi kdyz to bude jiny nez res, jen kdyz mi napisete, jak se
vytvari) mimo exe a pritom z nej nacitat data. Nechci totiz mit tak velke exe soubory.
Dekuji.
Objevujte Internet s http://www.centrum(tec)cz
Zalozte si svuj mail na http://mail.centrum(tec)cz
OLE Excel citanie...
[*] Martin VELGOS <mato(zv)sct.sk> - 10.2.2000 17:04:29
Uz som na to prisiel..
Sam si odpovedam, ale mozno to pomoze niekomu dalsiemu keby robil cosi
podobne...
pri volani funkcii a properties z visual basicu v Exceli je potrebne davat
hranate zatvorky []
a nie ( ) ako je to vo vsetkych priruckach...:)
potom to funguje..
taze napr. takto:
StringGrid1.Cells[1,0] := excelole.ActiveWorkbook.Sheets[1].Name;
este ukazka kodu, ktory nacita nieco z excelu do StringGrid:
procedure TForm1.Button1Click(Sender: TObject);
var excelole:variant;
i, s, r:integer;
begin
try
excelole := GetActiveOleObject('Excel.Application');
except
excelole := CreateOleObject('Excel.Application');
end;
OpenDialog1.Title := 'N�jdi excelovsk� s�bor';
if OpenDialog1.Execute then
begin
Subor := OpenDialog1.FileName;
excelole.Workbooks.Open(Subor);
end;
StringGrid1.colCount := 30;
StringGrid1.RowCount := excelole.ActiveWorkbook.Sheets.Count*60;
for i := 1 to excelole.ActiveWorkbook.Sheets.Count do
begin
for r := 1 to 60 do
for s := 1 to 30 do
StringGrid1.Cells[s-1, ((i-1)*60)+ r-1] :=
excelole.ActiveWorkbook.Sheets[i].Cells[r,s].Value;
end;
excelole.ActiveWorkbook.Saved := True;
excelole.ActiveWorkbook.Close;
end;
prejde postupne vsetkymi harkami excelu a vycita obsah jednotlivych buniek
..
MATO
Degradacia rychlosti
[*] J�n Grman�������e���zW��ۛg�$ - 10.2.2000 17:09:58
Delphi zdar. D5 Enterprise, BDE 5.01, MS SQL 7.0.
Mam databazu ktorej hlavna tabulka ma 150 000 zaznamov, pricom kazdy zaznam obsahuje MEMO pole v ktorom su udaje s priemernou dlzkou 900 bajtov.
Po vytvoreni databazy a naimportovani dat z isteho starsieho systemu je asi tyzden vsetko v poriadku.
Potom sa pristup k udajom tabulky spomaly priemerne 5 az 10 krat.
(operacia ktora sa spomali pouziva jediny select = select * from tabulka where id = cislo zaznamu)
V obdobi toho tyzdna sa do tabulky vkladaju nove udaje. Avsak zanedbatelne mnozstvo (tak do 100 zaznamov).
Predpokladam, ze databaza v tomto obdobi nebola nijak optimalizovana, tj:
- nebola zalohovana
- nebol zalohovany transakcny log
- neboli optimalizovane indexy
Co je ale zaujimave, je ze odozva SQL pri pouziti ISQL je pri rovnakom dotaze (select * from tabulka where id = cislo zaznamu) rychla !?!
Brzdi sa to niekde na ceste:
SQL server - aplikacny server programu (TQuery) - client programu (ziska udaje cez DCOM ako zakodovany retazec)
Este je nutne dodat, ze ked vytvorim novu databazu a naimportujem tie iste data do nej a spustim klientov pre kazdu databazu naraz, v povodnej to ide stale pomaly, v novej to ide rychlo (zasa nejaky cas....)
Nestretol sa s tym niekto 20
Myslite ze pomoze zalohovanie, mazanie transakcneho logu alebo ina operacia ? (ten problem mam totiz u zakaznika a uz 2 dni ho nadialku presviedcam - lebo teraz sa tam cez celu republiku nedostanem - aby urobili optimalizaciu, ale odpoved som este nedostal a dost ma ten problem trapi...)
Vdaka za kazdu pomoc.
JaNo.Query & Thread
[*] Jirka Virt <virt(zv)volny(tec)cz> - 10.2.2000 18:24:39
Ahoj,
problem je v tom, ze kdyz udelam komponentu podle tohodle navrhu musim
dotaz zpoustet
BackgroundQuery, ale ja bych ho chtel pres Active:=True nebo Open, tak by se
vlastne ta nova komponenta
tvarila stejne jako ze zalozky Data Access.A toho nemuzu docilit.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, February 08, 2000 10:57 PM
Subject: Re: Query & Thread
> From: Jirka Virt <virt(zv)volny(tec)cz>
> > Snazil jsem se udelat TQuery na vlastnim Threadu (prikladem mi bylo CD
> > Delphi5 ...\BKQuery) , ale to porad neni ono.
> >
> > Ja proste nemohu docilit toho, aby komponenta pracovala pri
> > Active := True,Open a ExecSql.
>
> Ahoj,
>
> A v cem je problem, v tom prikladu je to popsano docela dobre.
>
> Petr Vones, amatersky programator
>
>
>Table a fields
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 10.2.2000 19:19:55
Zdravim,
donedavna som mal vsetko ok. Az ked som si chcem nadefinovat Mask DBedit.
Robil osm to takto:
2x klik na table
vlozil polia
nadefinoval masku.
Lenze po tomto ukone mi v table.fields[i].asInteger da prazdnu hodnotu.V
podstate mi to naburalo cely program.
Co s tym.
Dik Miso
OT: Aktualizovane verze generatoru tiskovych sesta
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.2.2000 10:21:24 -0800
Dnes byly na web strankach www.sinea(tec)cz umisteny nove
(aktualizovane) verze generatoru tiskovych sestav x.39q
pro Delphi 3, 4 a 5 Podrobne informace ziskate v casti
"aktuality".
Pro majitele vsech verzi zakoupenych (vcetne upgrade)
v roce 1999 a 2000 je prechod na novou verzi bezplatny.
Bezplatne tyto verze tez poskytneme ucastnikum seminare
Delphi 2000
Jaro
---------------------------------------------
SINEA software, Ing Jaroslav Skerik, ZAMBERK
e-mail: jaro(zv)sinea(tec)cz http://www.sinea(tec)cz
phone: 0446 612468, mobile phone: 0602 581255
---------------------------------------------
W2000 a D5
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 10.2.2000 19:37:50
No, spusti to pujde, ale...
Tech 200MHz bude asi DOST malo, tam by chtelo
pridat, a potom mozna jeste trochu RAM :-)<FontFamily><param>Times New Roman</param><bigger>### Martin napsal dne 10 Feb 00, v 10:39 :
<smaller>Staci pre Win 2000 a D5 nasled. harware ?<bigger>
<smaller>Pentium Pro 200 MHz<bigger>
<smaller>64 MB EDO<bigger>
<smaller>4 GB HD<bigger>
<smaller>Diamond Stealh 3D 3000(cip S3 Virge VX),<bigger>
<smaller>aleboradsej WinNT 4 +D5 ?<bigger>
<smaller>Martin<bigger>
<nofill>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
Delphi 5 nechodi a nechodi
[*] Anton�n Blatn� - 10.2.2000 21:00:27
Mam nainstalovany IE5 cesky, stejne jako ceska NT4 SP5
> A mas nainstalovany alespon IE4.01 ?
>
> Petr Vones, amatersky programator
>
>
>
> Autorun jinak!
[*] Roman Fiser <rfiser(zv)leknet(tec)cz> - 10.2.2000 21:15:57
> Ve Win95 a vyssich existuje uz davno prikaz START.
> Takze spravne to bude takhle:
>
> [autorun]
> OPEN=start app.htm
> ICON=IKONA.ICO
Takovy NTcka se s tim ale nevyrovnaj. Lepsi je napsat si nejakej malej
programek, kterej by proved ShellExecute toho souboru.konferencia
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 10.2.2000 21:37:55
Mam jednu prosbu.
Mohol by mi niekto poslat maily z konferencie zo stvrtka 10.2.2000. Asi sa
nieco stalo so serverom. No ono nie vsetky maily.
Zacalo to od : Martin Cajbik (Marcant) Subject: Re: Ziskanie ikony suboru
time: 8:34
vypadok servera
Rozbehlo sa to od: Maly Dobromil Subject: TreeView time: 16:16
Dakujem velmi pekne.
Miso
None
[*] Lud�k ZITA - 10.2.2000 21:45:48
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> David Adamec
> nevite jak zjistit vsechny soubory, ktere otevru v opendialog (mam
> samozrejme povoleno ofAllowMultiSelect). FileName zjisti pouze posledni
> vybrany soubor
Priklad z helpu :
procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
F: TextFile;
FirstLine: string;
begin
OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
OpenDialog1.FilterIndex := 2; { start the dialog showing all files }
if OpenDialog1.Execute then
with OpenDialog1.Files do
for I := 0 to Count - 1 do
begin
AssignFile(F, Strings[I]); { next file in Files property }
Reset(F);
Readln(F, FirstLine); { Read the first line out of the file }
Memo1.Lines.Append(FirstLine); { Add the line to the memo }
CloseFile(F);
end;
end;Corel koupil Borland
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.2.2000 14:06:05 -0800
No ja uz o tom sem psal prede dvema dny, ale nebyla zadna reakce.
Jakoby Delphiny nezajimalo, jak� bude budoucnost Delphi.
Myslim, ze o takovych "drobnostech" by nam do konference nejakou
informaci mohli poslat zastupci naseho Borlandu.
Jaro
>
> Kouknete na
> http://www.wired.com/news/business/0,1367,34181,00.html
>
> Petr
konferencia
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 10.2.2000 23:32:22
Ale ani ja nemam, ci v tom rozmedzi. Moj ISP je Nextra s.r.o., aj ty mas ?
Hi. Rolo.
----- Original Message -----
From: Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk>
To: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, February 10, 2000 9:37 PM
Subject: konferencia
> Mam jednu prosbu.
>
> Mohol by mi niekto poslat maily z konferencie zo stvrtka 10.2.2000. Asi sa
> nieco stalo so serverom. No ono nie vsetky maily.
>
> Zacalo to od : Martin Cajbik (Marcant) Subject: Re: Ziskanie ikony
suboru
> time: 8:34
>
> vypadok servera
>
> Rozbehlo sa to od: Maly Dobromil Subject: TreeView time: 16:16
>
>
> Dakujem velmi pekne.
>
> Miso
>
>Connecting to Interbase data to server.
[*] Roland Tur�an (RoTurSoft) <rotursoft(zv)nextra.sk> - 11.2.2000 00:35:10
Zdravim.
Mam server s Win98 s protokolom NetBEUI. Docital som sa v help k IB ze pre
protokol NetBEUI musi byt server s WinNT. Je to pravda, lebo neviem sa
pripojit z Win98 na Win98 s IB5.
Tenk j� veri ma�.
H�j. Roland Tur�an
Ziskanie ikony suboru
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.2.2000 05:59:00
Zkus se podivat v Delphi demech na VirtualListView. asi to bude to, co zrovna
tvoris.
Jan Fiala
----- Original Message -----
From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>> Diky za radu, medzitym som na sposob prisiel sam, je vsak trochu iny.
>
> procedure TFrmHlavny.VytvorPreview(Subor: String; Bmp: TBitmap);
> var
> info: SHFILEINFO;
> begin
> SHGetFileInfo(PChar(Subor), 0, info, SizeOf(info), SHGFI_ICON);
> DrawIcon(Bmp.Canvas.Handle, 0, 0, info.hIcon);
> end;
W2000 a D5
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.2.2000 21:02:51 -0800
>Staci pre Win 2000 a D5 nasled. harware ?
>Pentium Pro 200 MHz
>64 MB EDO
>4 GB HD
>Diamond Stealh 3D 3000(cip S3 Virge VX),
>alebo radsej WinNT 4 +D5 ?
>Martin
Staci. Krome toho HW naroky Win2000 se od Win NT
v podstate nelisi.
Atazka je, zda na Inetu sezenes ovladac graficke karty
pro W2000. Pro nektere akceleratory jsou jiz ovladace
k dispozici a pro nektere funguji ovladace z WinNT4
Jaro
Delay v Delphi
[*] Petr Ku�era <kucera(zv)vri(tec)cz> - 11.2.2000 06:35:19
Dobry den,
prosim vas, existuje v Delphi nejaka procedura jako v Pascalu,
ktera by delala to co dela delay?
Dekuji.
Petr Kucera
Delay v Delphi
[*] voltrr1.epr(zv)mail.cez(tec)cz - 11.2.2000 06:42:39
WaitForSingleObject(GetCurrentProcess,Delay);
Delay je v 1000nach sekundy.
Radek
Komponenta Query, aneb co delam spatne
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 11.2.2000 06:46:32
Delas spatne to, ze po EXECSQL volas Open. Tam to hacne ne prdel.
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://www.volny(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Petr Ku�era [SMTP:kucera(zv)vri(tec)cz]
> Odesl�no: 10. �nora 2000 7:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Komponenta Query, aneb co delam spatne
>
> Dobry den,
>
> prosim vas, mohli byste mi nekdo rici, co delam spatne, kdyz do
> zdrojoveho kodu dam:
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
> with Query1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('INSERT INTO DATABAZE ( JMENO, PRIJMENI, RC, POZN )
> VALUES ( "Ferdinand", "Mravenec", "7711110000", "-" )');
> ExecSQL;
> Open;
> end;
> end;
>
> tak po stisknuti BitBtn1 se mi vypise nasledujici hlaska:
>
> "Project Dat1.exe raised exception class ENoResultSet with message
> 'Error creating cursor handle'. Process stopped. Use step or Run to
> continue."
>
> Mohli byste mi poradit, jak to odstranit?
>
> Dekuji.
>
> S pozdravem Petr Kucera.
>
> Degradacia rychlosti
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 11.2.2000 06:58:13
Tenhle problem muze byt zpusoben nekolika vecmi nebo jejich kombinacemi:
1. v databazi je(jsou) jeste jine tabulky (treba i docasne) v nichz je
pohyb podstatne vetsi a ovlivnuji tak tuto tabulku (fragmentace)
[resenim je presun teto tabulky do jineho tabulkoveho prostoru,
kteru muze byt pokud je to potrebne i na jinem disku]
2. na tabulce neni index
[vytvorit index]
3. index je ovlivnovan pohyben dat v jinych tabulkach nebo i indexech
[stejne tak jako tabulku je potrebne vytvorit index v jinem
tabulkovem prostoru]
4. databazovy stroj bezi kontinualne cely cas => cteni z tabulky je dost
caste a dojde k zaplneni cache alokovane pro tuto databazi a dochazi k
castemu swapovani => narust IO operaci s diskem (da se zkontrolovat)
5. je nespravne nastavena velikost stranky v databazi ( neni jednoznacny
postup jak zvolit optimum )
6. na databazovem stroji bezi jiny software, ktery silne fragmentuje
disk
[software an tomto stroji nespoustet a casteji defragmentovat]
7. na databazovem stroji bezi aplikace velmi narocna na spotrebu RAM
8. virtualni pamet WIN je nastavena na defaultni
[virtualni pamet nastavit na fixni min. 100MB max. 200MB => znacne
snizeni fragmentace disku a poctu otevrenych souboru]
Rady:
zadna uzivatelska data namaji co delat v tabulkovem prostoru SYSTEM
uzivatelska data v samostatnem tabulkovem prostoru
indexy v samostatnem tabulkovem prostoru
docasne (temporary) a pomocne tabulky zasadne v samostatnem tabulkovem
prostoru
pokud existuje na tabulku index a sklada se ze tri sloupcu (a,b,c) a v
selectu se pouzije odkaz pouze na jeden neb dva z nich index se nikdy
nepouzije !!! => je lepsi pokud je velka variabilita selektu vytvaret indexy
na kazdy sloupec zvlast
Ing. Pavel SPEJTEK
e-mail: bosnis(zv)okfas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele J�n
Grman
Odesl�no: 10. �nora 2000 17:10
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Degradacia rychlosti
Delphi zdar. D5 Enterprise, BDE 5.01, MS SQL 7.0.
Mam databazu ktorej hlavna tabulka ma 150 000 zaznamov, pricom kazdy
zaznam obsahuje MEMO pole v ktorom su udaje s priemernou dlzkou 900 bajtov.
Po vytvoreni databazy a naimportovani dat z isteho starsieho systemu je
asi tyzden vsetko v poriadku.
Potom sa pristup k udajom tabulky spomaly priemerne 5 az 10 krat.
(operacia ktora sa spomali pouziva jediny select = select * from tabulka
where id = cislo_zaznamu)
V obdobi toho tyzdna sa do tabulky vkladaju nove udaje. Avsak
zanedbatelne mnozstvo (tak do 100 zaznamov).
Predpokladam, ze databaza v tomto obdobi nebola nijak optimalizovana,
tj:
- nebola zalohovana
- nebol zalohovany transakcny log
- neboli optimalizovane indexy
Co je ale zaujimave, je ze odozva SQL pri pouziti ISQL je pri rovnakom
dotaze (select * from tabulka where id = cislo_zaznamu) rychla !?!
Brzdi sa to niekde na ceste:
SQL server - aplikacny server programu (TQuery) - client programu
(ziska udaje cez DCOM ako zakodovany retazec)
Este je nutne dodat, ze ked vytvorim novu databazu a naimportujem tie
iste data do nej a spustim klientov pre kazdu databazu naraz, v povodnej to
ide stale pomaly, v novej to ide rychlo (zasa nejaky cas....)
Nestretol sa s tym niekto ?
Myslite ze pomoze zalohovanie, mazanie transakcneho logu alebo ina
operacia ? (ten problem mam totiz u zakaznika a uz 2 dni ho nadialku
presviedcam - lebo teraz sa tam cez celu republiku nedostanem - aby urobili
optimalizaciu, ale odpoved som este nedostal a dost ma ten problem trapi...)
Vdaka za kazdu pomoc.
JaNo.
Delay v Delphi
[*] Radim Ludv�k <radiml(zv)bnsoft(tec)cz> - 11.2.2000 07:11:50
Mysl�m, ze je to Sleep.
S pozdravem
Radim LUDV�K
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
----- Original Message -----
From: Petr Ku�era <kucera(zv)vri(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 11, 2000 6:35 AM
Subject: Delay v Delphi
> Dobry den,
>
> prosim vas, existuje v Delphi nejaka procedura jako v Pascalu,
> ktera by delala to co dela delay?
>
> Dekuji.
>
> Petr Kucera
Delay v Delphi
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 11.2.2000 07:20:03
prosim vas, existuje v Delphi nejaka procedura jako v Pascalu,
ktera by delala to co dela delay?
Sleep(n) n....pocet milisekund.....
S pozdravem a pranim hezkeho dne
Milan Schembera
mailto:spravce(zv)spektrum(tec)cz
mailto:milan(zv)missoftware(tec)cz
Delay v Delphi
[*] Such�nek Luk� <Lukas.Suchanek(zv)merlin(tec)cz> - 11.2.2000 07:32:34
Ave,
> prosim vas, existuje v Delphi nejaka procedura jako v Pascalu,
> ktera by delala to co dela delay?
Jo, jmenuje se sleep(cas_v_ms_pokud_se_dobre_pamatuju) a je jeste o
neco lepsi nez delay - process se na tu dobu "uspi" a nezere cas procesoru.
/ Lukas Suchanek
Omezeni zmenseni okna
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 11.2.2000 08:04:08
>Uz mockrat jsem potreboval nastavit minimalni rozmery
>okna apl. tedy nastavit omezeni pri zmensovani okna tak,
>jako to obcas delaji jine apl. ale dosud se mi nepodarilo
>zjistit jak na to.
Pouzij touhle tu procedurku, mezni hodnoty si napis
do Constraints (D4> ?) a prepis si zpracovani zpravy
VM_SIZING.
Ahoj
Daniel
type TMujForm=class(TForm)
protected
procedure WMSizing(var Msg:TMessage); message WM_SIZING;
procedure TMujForm.WMSizing(var Msg:TMessage);
begin
WMSizingConstraints(Msg,Constraints);
end;
procedure WMSizingConstraints(var Msg:TMessage;sc:TSizeConstraints);
var r:PRect;
wi,he:Integer;
begin
r:=Pointer(Msg.lParam);
wi:=r^.Right-r^.Left;
he:=r^.Bottom-r^.Top;
if (sc.MinWidth>0) and (wi<sc.MinWidth) then wi:=sc.MinWidth
else if (sc.MaxWidth>0) and (wi>sc.MaxWidth) then wi:=sc.MaxWidth;
if (sc.MinHeight>0) and (he<sc.MinHeight) then he:=sc.MinHeight
else if (sc.MaxHeight>0) and (wi>sc.MaxHeight) then wi:=sc.MaxHeight;
if Msg.wParam in [WMSZ_LEFT,WMSZ_TOPLEFT,WMSZ_BOTTOMLEFT] then begin
r^.Left:=r^.Right-wi;
end else begin
r^.Right:=r^.Left+wi;
end;
if Msg.wParam in [WMSZ_TOP,WMSZ_TOPLEFT,WMSZ_TOPRIGHT] then begin
r^.Top:=r^.Bottom-he;
end else begin
r^.Bottom:=r^.Top+he;
end;
Msg.Result:=1;
end;
Delay v Delphi
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 11.2.2000 08:04:37
Ve Windows se da pouzit volani API funkce Sleep(ms) kde ms je cas v
milisekundach.
viz Help k WIN32 API.
Jaromir Cermak
-----Original Message-----
From: Petr Ku�era [mailto:kucera(zv)vri(tec)cz]
Sent: Friday, February 11, 2000 6:35 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Delay v Delphi
Dobry den,
prosim vas, existuje v Delphi nejaka procedura jako v Pascalu,
ktera by delala to co dela delay?
Dekuji.
Petr Kucera
Autorun jinak!
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 11.2.2000 08:07:39
A proc se s tim nevyrovnaj ?
Prikaz "start" umi samozrejme taky ...
dokonce by melo stacit:
OPEN=app.htm
je ale treba, aby byla koncovka asociovana s defaultnim prohlizecem.
Keep mailing :-)
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Roman Fiser
> Sent: Thursday, February 10, 2000 9:16 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Autorun jinak!
>
> > Ve Win95 a vyssich existuje uz davno prikaz START.
> > Takze spravne to bude takhle:
> >
> > [autorun]
> > OPEN=start app.htm
> > ICON=IKONA.ICO
>
> Takovy NTcka se s tim ale nevyrovnaj. Lepsi je napsat si nejakej malej
> programek, kterej by proved ShellExecute toho souboru.
>
> ---
> P��choz� 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
>
---
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
P�id�n� z�lo�ky
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.2.2000 08:10:30
Ahoj,
potreboval bych poradit...
Momentalne W98 a D2 :-(
V programu mam pouzity page control a par stranek. Potreboval bych ho ale
rozsirovat, pridavat zalozky, ale tak, aby kazda nova stranka byla v
oddelenem DLL (zrejme nejak registrovanem). Komunikace by sla pres spolecnou
strukturu. Je to mozne? A nevedel by, prosim, nekdo o funkcnim prikladu?
Dekuji
Jaro B.Omezeni zmenseni okna
[*] �ejka Pavel <cejka(zv)proteco(tec)cz> - 11.2.2000 08:13:29
var
procedure VelikostOkna(var Msg : TWMGetMinMaxInfo);
message wm GetMinMaxInfo;
implementation
{$R *.DFM}{ Hlidani zmenseni okna }
procedure TF Graf.VelikostOkna(var Msg : TWMGetMinMaxInfo);
begin
with Msg.MinMaxInfo^ do
begin
ptMinTrackSize.X := MinimumX;
ptMinTrackSize.Y := MinimumY;
ptMaxTrackSize.X := MaximumX;
ptMaxTrackSize.Y :=MaximumY;
end;
end;
end.
Ahoj Pavel
----------
Od: Lumir Karas[SMTP:lumir.delphi(zv)post(tec)cz]
Odesl�no: 11. �nora 2000 9:14
Komu: Konference Delphi
P�edm�t: Omezeni zmenseni okna
Ahoj,
Uz mockrat jsem potreboval nastavit minimalni rozmery okna apl. tedy nastavit omezeni pri zmensovani okna tak, jako to obcas delaji jine apl. ale dosud se mi nepodarilo zjistit jak na to. Zatim pouzivam proceduru viz. nize, ale ta ma nedobre vypadajici vedlejsi efekt. Neexistuje na to nejaka procedura nebo neni na to nejaky jednoduchy kod?
Za vsechny namety predem dekuji. Lumir.Prevod QR
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.2.2000 08:17:04
Ahoj,
prevadel jsem QR formular (prevni z mnoha) z D2 do D3 (prevod do D5 primo
nejde, formular se mi smrsknul do uzke nudle siroke 5 bodu a dlouhe asi
1000). Mam na nem pouzito asi 200 QRShape. Texty i ostatni veci se prevedly
OK, ale QRShape se smrskly na jednotny rozmer. A opravovat je zpetne na
puvodni rozmery (a temer kazdy je jiny) je ukrutna prace. Nemate, prosim,
nekdo zkusenosti s prevodem? Nedokazu nijak konverzi ovlivnit.
Dekuji
Jaro B.DBGrid - ENTER, Color Line
[*] karel BRKL <karel_brkl(zv)hotmail(tec)com> - 11.2.2000 08:28:11
Mam mozna 2 trivialni dotazy, za jejichz zodpovezeni bude vdecen.
1. Jak v D4 donutit DBGrid, abych pri editaci po stlaceni ENTER presel IHNED
na dalsi sloupec?
Zkousel jsem jiz cokoliv vcetne osetreni runych eventu, avask
bezvysledne.
Komponenta DBGridSinea ma zabudovanou Properties EntersTab, avsak ta
nesplnuje muj pozadavek (Enter se musi stlacit 2 x)
2. Jak v D4 v DBGrid obarvit aktualni radek, ve kterem jsem nastaven ?
Obe tyto funkce splnovala v D1 komponenta DBGridN od ing.Petra Gibise
(Eventy EntersTab, CursorColor, CursorColorText, CursorLineColor,
CursorLineColorText).
Nevi nekdo o teto komponente pro D4 ??
Dekuji za kazdou radu.
K.Brkl
Vytvereni tabulky pres ADO
[*] DELPHI <DELPHI(zv)dingo(tec)cz> - 11.2.2000 07:50:33 gmt
Ahojte,
nevite, jestli se da a jak vytvorit tabulka pres ADO
treba komponentani Adonis, ale bez pouziti SQL prikazu.
Nejak pres Fields.
Me se to zatim nepovedlo, nevim jak na to.
Poradite?
Dekuji
Bob
SaveDialog a OpenDialog
[*] Milan Vorisek <vorisek(zv)igtt(tec)cz> - 11.2.2000 08:53:55
> From: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
> To uz jsem zkousel, dokonce si dokazu vyextrahovat i priponu, ale jak
zajistit,
> aby se mi pri zmene filtru zmenila i pripona toho souboru ( priklad z
pokus.rtf
> pri zmene filtru na txt se musi zmenit na pokus.txt. Uz jsem z toho
srnka. Jo a
> ma D3 Profi.
Ahoj,
predpokladam, ze ti jde o zmenu textu v editoru.
Slo by to takto:
procedure TForm1.OpenDialog1TypeChange(Sender: TObject);
var c:array[0..255] of char;
HndPom:thandle;
const NewText='novy.abc';
begin
HndPom := FindWindowEx(GetParent(opendialog1.handle), 0, 'Edit', nil);
GetWindowText(HndPom,c,SizeOf(c)-1);{tim se ziska puvodni text}
{tady si ho zmenis} StrPCopy((zv)c,NewText);
SetWindowText(HndPom,c);
end;
M.Vorisek
Corel koupil Borland
[*] Karel Kral <kral(zv)purus(tec)cz> - 11.2.2000 08:54:33
Ja jsem tedy o tom precetl vsechno, co jsem nasel, a podle mne to je
dobre. Vyrazne se zrychli vyvoj Delphi pro linux, Borland bude mit dost
penez... (doufam).
Jaro wrote:
>
> No ja uz o tom sem psal prede dvema dny, ale nebyla zadna reakce.
> Jakoby Delphiny nezajimalo, jak� bude budoucnost Delphi.
>
> Myslim, ze o takovych "drobnostech" by nam do konference nejakou
> informaci mohli poslat zastupci naseho Borlandu.
>
> Jaro
>
> >
> > Kouknete na
> > http://www.wired.com/news/business/0,1367,34181,00.html
> >
> > Petr
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Omezeni zmenseni okna
[*] garalda <garalda(zv)mail(tec)cz> - 11.2.2000 08:56:15
Od Delphi 4 je to standardne zabudovano ve formulari (property Constraints)
V D3 jsem to resil takhle:
const
iMinWidth = 250; // Specifies the minimum tracking width of the window.
iMinHeight = 150; // Specifies the minimum tracking height of the window.
iMaxWidth = 640; // Specifies the maximum tracking width of the window.
iMaxHeight = 480; // Specifies the maximum tracking height of the window.
type
PMINMAXINFO = ^TMINMAXINFO;
TMINMAXINFO = record
ptReserved, // Reserved; do not use.
ptMaxSize, // Specifies the maximized width (point.x) and the maximized height (point.y) of the window.
ptMaxPosition, // Specifies the position of the left and top side of the maximized window.
ptMinTrackSize, // Specifies the minimum tracking width (point.x) and the minimum tracking height (point.y) of the window.
ptMaxTrackSize : TPoint; // Specifies the maximum tracking width (point.x) and the maximum tracking height (point.y) of the window.
end;
TForm1= class(TForm)
�
private
�
protected
procedure WndProc(var Message: TMessage); override;
�
public
�
end;
�
procedure TForm1.WndProc(var Message: TMessage);
begin
if Message.Msg = WM GETMINMAXINFO then
begin
PMinMaxInfo(Message.LParam).ptMaxSize.x := Screen.Width;
PMinMaxInfo(Message.LParam).ptMaxSize.y := Screen.Height;
PMinMaxInfo(Message.LParam).ptMaxPosition.x := 0;
PMinMaxInfo(Message.LParam).ptMaxPosition.y := 0;
PMinMaxInfo(Message.LParam).ptMinTrackSize.x := iMinWidth;
PMinMaxInfo(Message.LParam).ptMinTrackSize.y := iMinHeight;
PMinMaxInfo(Message.LParam).ptMaxTrackSize.x := iMaxWidth;
PMinMaxInfo(Message.LParam).ptMaxTrackSize.y := iMaxHeight;
Message.Result := 0;
exit;
end;
inherited;
end;
Uz mockrat jsem potreboval nastavit minimalni rozmery okna apl. tedy nastavit omezeni pri zmensovani okna tak, jako to obcas delaji jine apl. ale dosud se mi nepodarilo zjistit jak na to. Zatim pouzivam proceduru viz. nize, ale ta ma nedobre vypadajici vedlejsi efekt. Neexistuje na to nejaka procedura nebo neni na to nejaky jednoduchy kod?
Za vsechny namety predem dekuji. Lumir.
procedure TForm1.FormResize(Sender: TObject);
begin
If ClientWidth<300 then ClientWidth:=300;
If ClientHeight<200 then ClientHeight:=200;
end;
Omezeni zmenseni okna
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.2.2000 09:07:46
V RXLibrary existuje komponent TFormPlacement (a TFormStorage), ktery
umoznuje nastavit minimalni vychozi velikosti okna a hlidat je.
Jaro B.Debug konflikt CrashGuard
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.2.2000 09:12:01
Ahoj,
Po instalaci D5 mi odstrelily NortonCrashGuard kvuli konfliktu s debugem D5.
Proc nemuze bezet soucasne D5 a CrashGuard? Stalo se to uz nekomu?
Diky
Jaro B.Omezeni zmenseni okna
[*] Lumir Karas <lumir.delphi(zv)post(tec)cz> - 11.2.2000 00:14:53 -0800
Ahoj,
Uz mockrat jsem potreboval nastavit minimalni rozmery okna apl. tedy nastavit omezeni pri zmensovani okna tak, jako to obcas delaji jine apl. ale dosud se mi nepodarilo zjistit jak na to. Zatim pouzivam proceduru viz. nize, ale ta ma nedobre vypadajici vedlejsi efekt. Neexistuje na to nejaka procedura nebo neni na to nejaky jednoduchy kod?
Za vsechny namety predem dekuji. Lumir.
procedure TForm1.FormResize(Sender: TObject);
begin
If ClientWidth<300 then ClientWidth:=300;
If ClientHeight<200 then ClientHeight:=200;
end;Omezeni zmenseni okna
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 11.2.2000 08:28:24 met-1
> Uz mockrat jsem potreboval nastavit minimalni rozmery okna apl. tedy =
> nastavit omezeni pri zmensovani okna tak, jako to obcas delaji jine apl. =
> ale dosud se mi nepodarilo zjistit jak na to. Zatim pouzivam proceduru =
> viz. nize, ale ta ma nedobre vypadajici vedlejsi efekt. Neexistuje na to =
> nejaka procedura nebo neni na to nejaky jednoduchy kod?
Ja to delam takhle:
v private sekci prislusneho formu mam
procedure GetMinMax(var MinMaxMessage:TWMGetMinMaxInfo);
message wm_GetMinMaxInfo;
a tato procedura je pak definovana takto:
procedure TForm1.GetMinMax(varMinMaxMessage:TWMGetMinMaxInfo);
begin
with MinMaxMessage.MinMaxInfo^ do begin
ptMinTrackSize.x := ...
ptMinTrackSize.y := ...
ptMaxTrackSize.x := ...
ptMaxTrackSize.y := ...
end;
end;
Kdyz pak mysi zmensujes/zvetsujes plochu formu, tak se ti to vzdy
zarazi na tech hranicnich hodnotach a niz/vys uz jit nemuzes.
Takze jak vidis, muzes si omezit nejen minimalni, ale i maximalni
velikost okna.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Omezeni zmenseni okna
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 11.2.2000 10:15:10
Ahoj,
Bene� Jaroslav wrote:
> V RXLibrary existuje komponent TFormPlacement (a TFormStorage), ktery
> umoznuje nastavit minimalni vychozi velikosti okna a hlidat je.
> Jaro B.
to si nikdo nevsiml vlastnosti Constraints ? nebo mi neco uslo ?
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
DBGrid - ENTER, Color Line
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 11.2.2000 10:16:40
From: karel BRKL <karel_brkl(zv)hotmail.com>> Mam mozna 2 trivialni dotazy, za jejichz zodpovezeni bude vdecen.
>
> 1. Jak v D4 donutit DBGrid, abych pri editaci po stlaceni ENTER presel
IHNED
> na dalsi sloupec?
> Zkousel jsem jiz cokoliv vcetne osetreni runych eventu, avask
> bezvysledne.
> Komponenta DBGridSinea ma zabudovanou Properties EntersTab, avsak ta
> nesplnuje muj pozadavek (Enter se musi stlacit 2 x)
>
Problem je v tom, ze pokud je grid v editacnim modu,
obsluhuje klavesy InplaceEdit, a ten posila svemu Parentovi
Gridu jen nektere klavesy, napriklad klavesy Tab, PgXx a Esc.
Bohuzel, stisk klavesy Enter si nechava sam pro sebe.> 2. Jak v D4 v DBGrid obarvit aktualni radek, ve kterem jsem nastaven ?
>
Barvit radky je mozne bez problemu i v originalnim DBGridu.
Slouzi k tomu udalosti OnDrawColumnCell a OnDrawDataCell.
Na to neni potreba shanet nejakou extra komponentu.> Obe tyto funkce splnovala v D1 komponenta DBGridN od ing.Petra Gibise
> (Eventy EntersTab, CursorColor, CursorColorText, CursorLineColor,
> CursorLineColorText).
> Nevi nekdo o teto komponente pro D4 ??
>
Komponenta DBGridN byla udelana tak, ze byl vzat kompletni
zdrojovy text DBGrid komponenty a byly prepsany privatni
funkce originalni komponenty.
Tento postup nepovazujeme za spravny a soucasna
rada komponent Sinea se striktne drzi principu
dedicnosti. Prinasi to ale radu omezeni, zejmena
v tom, ze nektere velmi potrebne metody jsou deklarovany
v sekci private a nelze je prekryt. Diskuze na toto tema
tu byla nedavno a nechtel bych ji znovu vyvolavat.
Staci se podivat do archivu konference.
Ostatne zdrojovy text komponenty DBGridN byl kdysi
k dispozici, tak si ji pod D4 preloz :-))).
Jedno sice ne zrovna moc elegantni, zato plne funkcni
reseni problemu dvojiteho Enter jsem nedavno videl
od Petra Klingera. Treba se s nami podeli.
Vaclav Krmela
Asynchronni SQL + ADO + MSAccess
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 11.2.2000 10:26:53
Potreboval bych vedet, jak zobrazovat % uz hotoveho SQL SELECT prikazu
v ADOQuery (na MS Access). Pokud pouziju vzorovy kod z helpu pro
OnFetchProgress, tak hodnoty promennych Progress je vzdy 0 a MaxProgress =
1.
Petr
ComboBox
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 11.2.2000 10:42:57
Nevite nekdo o komponente, ktera by fungovala jako ComboBox, a mela dva
seznamy textu, jeden pro nabidku, druhy pro odpovidajici kody, a umoznoval
vybirat, nejlepe zaskrtnutim vice radku. Vyslednym textem by pak byl radek
kodu na zaskrtnutych radcich oddeleny oddelovacem.
Diky
Jaromir Cermak
OT: Podpora dlhe nazvov v DOS programe.
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 11.2.2000 10:44:30
Sorry za OT, ale momentalne potrebujem v TP rozchodit
podporu dlhych nazvov. Sluzby DOS-u to poskytuju u funkcii 71h.
Mne sa nedari rozchodit subfunkciu 4Eh (find first file).
Ozve sa mi niekto ? (napriklad Dalibor Toman).
Peter
Jak TIBDataSet.ModifySQL
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 11.2.2000 10:49:35
Ak na to chces pouzit ModifySQL tak si musis zadefinovat stored proceduru,
ktorej predas vsetky parametre.
priklad:
create procedure (cislo ..., nazev ..., dodavatel ..., knazev ...) as
begin
update seznam set
nazev=:nazev,
dodavatel=:dodavatel
where
cislo=old_cislo; /* cislo sa needituje */
update adresar set
nazev=:knazev
where
dodavatel=:dodavatel;
end
SelectSQL=select c.cislo,c.nazev,c.dodavatel,k.nazev as knazev from seznam
c, adresar k where c.dodavatel=k.dodavatel
ModifySQL=execute procedure (?cislo, ?nazev, ?dodavatel, ?knazev)
Pavol Stolc
pstolc(zv)sc.sknet.sk
Debug konflikt CrashGuard
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 11.2.2000 10:51:06
Nejsem si tim uplne jisty, ale mam pocit, ze oba programy funguji na stejnem
principu. Tj.
Debugger dodavany s Delphi odchytava tytez chybove udalosti, jako CrashGuard
a osetruje si je po svem. Vzhledem k tomu, ze umoznuje i ladeni jinych
programu, nez tech ktere jsou spusteny z Delphi, osetri i jejich chybove
stavy po svem a na Crash Guard se uz nedostane.
Jaromir Cermak
-----Original Message-----
From: Bene� Jaroslav [mailto:JBenes(zv)cpoj(tec)cz]
Sent: Friday, February 11, 2000 9:12 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Debug konflikt CrashGuard
Ahoj,
Po instalaci D5 mi odstrelily NortonCrashGuard kvuli konfliktu s debugem D5.
Proc nemuze bezet soucasne D5 a CrashGuard? Stalo se to uz nekomu?
Diky
Jaro B.Debug konflikt CrashGuard
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.2.2000 10:52:57
NortonCrashGuard je vlastne taky debuger. Oba dva nahrazuji (rozsiruji) moznosti
standardniho debugeru Windows.
Jan Fiala
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>> Ahoj,
>
> Po instalaci D5 mi odstrelily NortonCrashGuard kvuli konfliktu s debugem D5.
> Proc nemuze bezet soucasne D5 a CrashGuard? Stalo se to uz nekomu?
>
> Diky
>
> Jaro B.
>OLE DB Provider + Informix
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 11.2.2000 10:53:48
Existuje OLE DB Provider pro databazi Informix 5.0.x na UNIXU?
Petr
W2000 a D5
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 11.2.2000 10:55:33
Hi,
no byt Tebou, tak si radsi nainstaluju ty NTka, a ani pak nepocitej s
nejakou zavratnou rychlosti. Delphi3+NT4.0 jsem na Pentiu Pro 233Mhz/128MB
provozoval asi 2 roky. Jenze D5 je kapku pomalejsi, tady v praci mam
Celeron 360Mhz/128 a je to dost pomaly(na vetsi projekty) i pod Win98
Doma jsem zkousel Win2K professional na Celeron 450/128MB a zdalo se mi to
taky malo prakticky pouzitelny (Win2K profi ti zaberou kolem 60MB Ramky),
chtelo by to alespon tech 256MB RAM a asi spis cisty Pentium II nebo PIII
heretic
DBgridN v D4 pro p. Krmelu
[*] karel BRKL <karel_brkl(zv)hotmail(tec)com> - 11.2.2000 11:28:16
Pri prelkadu DBGridN v D4 vyzaduje unit RegVclSi kterou balik neobsahuje.
Nevite, kde je mozno tuto unit sehnat??
Dekuji Vam za ochotu.
K.Brkl
DBGrid a aktualni radka
[*] Martin Koller <koller(zv)gema(tec)cz> - 11.2.2000 11:50:56
Ahoj
Mam problem
Pot�ebuji udelat aby se mi nad jednim konkretnim sloupcem v dbgridu
zobrazoval hint podle polozky nad kterou jsem zrovna mysi aniz bych na
grid musel kliknout.
Zjistim ktery radek to je od prvniho zobrazeneho na strance ale nevim
jak zjistit jaky je to radek od zacatku databaze.
Pouzivam RXDBGrid.
Diky za jakoukoli pomoc.
Marty
Find v Db 2
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 11.2.2000 12:15:29
Zdravim,
Chcem sa spytat, ze ako by som urobil prehladavanie v akejkovek casti pola.
Fnc-e Locate obsahuje premennu LocateOption, ale ma len dve moznosti:
loCaseInsensitive, loPartialKey. prva zabezpeci nerozlisovanie malych a
velkych pismenok, a ta druha skoro podobna ako to co chcem, len hlada
partition v poli od zaciatku. Ja by som potreboval vratit true, ked hladany
text je Ulicny z pola Peter Ulicny.
Vdaka Miso.
Degradacia rychlosti
[*] J�n Grman�������e���zW��ۛg�$ - 11.2.2000 12:27:20
D5 Enterprise, MS SQL 7.0, BDE 5.01, multitier aplication
(aplication server DCOM je vytvoreny - TComponentFactory.Create(ComServer, NIECO DataServer, Class NIECO DataServer, ciMultiInstance, tmFree);)
Vdaka za odpoved. Mam len par poznamok a jednu zaujimavost mojho problemu na uvod:
Zaujimave je TOTO:
kanal: MS SQL - BDE - aplikacny server(TQUERY) - klient (TClientDataSet) bezi normalne (pri "velkom" aj "malom" selekte nad vsetkymi tabulkami...)
zda sa akoby problemom bolo ziskanie dat jedneho riadku ktore realizujem kanalom (hlavne z dovodu problemov s MEMO v TClientDataset):
MS SQL - BDE - aplikacny server(TQuery) - klient (vystup funkcie DCOM volania)
Ing. Pavel SPEJTEK napisal:
1. v databazi je(jsou) jeste jine tabulky (treba i docasne) v nichz je pohyb podstatne vetsi a ovlivnuji tak tuto tabulku (fragmentace)
[resenim je presun teto tabulky do jineho tabulkoveho prostoru, kteru muze byt pokud je to potrebne i na jinem disku]
3. index je ovlivnovan pohyben dat v jinych tabulkach nebo i indexech
[stejne tak jako tabulku je potrebne vytvorit index v jinem tabulkovem prostoru]
Najvacsi pohyb je prave v dvoch najvacsich tabulkach. Tabulka1 ma teraz cca 150 000 zaznamov a Tabulka2 ma 250 000 zaznamov.
Tabulka1 obsahuje to spominane MEMO pole. Tabulka2 obsahuje len nejake identifikacne retazce a kazdy zaznam odkazuje na nejaky zaznam v tabulke1.
Teda kazdy zaznam tabulky1 ma v tabulke2 - 0 az n naviazenych zaznamov.
POJEM TABULKOVEHO PRIESTORU ja vsak v MS SQL nepoznam. Bolo by mozne to nejak doplnit ?
DOCASNE TABULKY PRIAMO NEVYTVARAM (teda nieco ako CREATE TEMPORARY TABLE...), ina je otazka docasnych tabuliek vytvaranych pouzivanym selektov nad tabulkou1 a tabulkou2...
2. na tabulce neni index
[vytvorit index]
V tomto pripade ide selekt cez ID tabulky na ktore je dokonca UNIQUE INDEX.
4. databazovy stroj bezi kontinualne cely cas => cteni z tabulky je dost caste a dojde k zaplneni cache alokovane pro tuto databazi a dochazi k castemu swapovani => narust IO operaci s diskem (da se zkontrolovat)
Aj po uplnom restartovani pocitaca je vsetko uplne rovnake.
5. je nespravne nastavena velikost stranky v databazi ( neni jednoznacny postup jak zvolit optimum )
6. na databazovem stroji bezi jiny software, ktery silne fragmentuje disk
[software an tomto stroji nespoustet a casteji defragmentovat]
Moze fragmentacia diskoveho priestoru tak silne ovplyvnit vykon? Ak by islo o postupne spomalenie chapem, ale takto?
7. na databazovem stroji bezi aplikace velmi narocna na spotrebu RAM
Okrem toho ze sa tam asi obcas spusti klient nasej aplikacie nic ine tam nebezi. Ten nejak extremne narocny na RAM nie je. Stoj ma osadene 256MB RAM.
8. virtualni pamet WIN je nastavena na defaultni
[virtualni pamet nastavit na fixni min. 100MB max. 200MB => znacne snizeni fragmentace disku a poctu otevrenych souboru]
Rady:
zadna uzivatelska data namaji co delat v tabulkovem prostoru SYSTEM
docasne (temporary) a pomocne tabulky zasadne v samostatnem tabulkovem prostoru
Tomuto dost dobre nerozumiem. Do priestoru MASTER, TEMPDB a PUBS samozrejme priamo nijak nepristupujem (o systemove info. sa stara MS SQL samo, dufam).
pokud existuje na tabulku index a sklada se ze tri sloupcu (a,b,c) a v selectu se pouzije odkaz pouze na jeden neb dva z nich index se nikdy nepouzije !!! => je lepsi pokud je velka variabilita selektu vytvaret indexy na kazdy sloupec zvlast
O to sa snazim. Dokonca som teraz zacal pouzivat funkciu na analyzu INDEXOV pre beh daneho SQL dotazu. Par dotazov som zoptimalizoval.
Skratka sa to sprava dost nelogicky a vzhladom na rozsah systemu a rozne prostiedky ktore na to muzu mat vplyv neviem kam z konopi...
Vdaka za odpoved a pripadne dalsie napady...
Mgr. Jan Grman
janog(zv)pluto.elf.stuba.sk
W2000 a D5
[*] Hynek Svatos <svatos(zv)kam(tec)czu(tec)cz> - 11.2.2000 12:28:23
Nesouhlasim.
Doma mam staricke Pentium na 75 a NT a neni to zase az tak hrozna zalezitost
(Na programovani to ale neni).
V praci provozuji oboji jak NT tak i 2000 na stroji PIII 450 a 128 RAM a
musim konstatovat, ze W2000 jsou sviznejsi.
Byl jsem prekvapen, i aplikace, ktera mi komunikuje s MSSQL 7 pres ADO, je
citelne sviznejsi.
A co se tyce zabrani pameti: podivej se po nastartovani systemu, kolik ti
zaberou NT - je to to same.
Zaberou si pamet pro cache a co ja vim pro co vsechno, ale v pripade potreby
ji uvolnuji.
Mam zkusenost, ze po te, co jsem si spustil ladeni programu z Delphi a celou
MS Office, mel jsem stale cca 20-30 MB FYZICKE RAM volne.
Takze vyuziti pameti bych se mebal. Fakt je ten, ze 128MB RAM je pro
rozumnou praci minimalni optimum :-).
Keep mailing :-)
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Radoslav Krehl�k
> Sent: Friday, February 11, 2000 10:56 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: W2000 a D5
>
>
> Hi,
>
> no byt Tebou, tak si radsi nainstaluju ty NTka, a ani pak nepocitej s
> nejakou zavratnou rychlosti. Delphi3+NT4.0 jsem na Pentiu Pro
> 233Mhz/128MB
> provozoval asi 2 roky. Jenze D5 je kapku pomalejsi, tady v praci mam
> Celeron 360Mhz/128 a je to dost pomaly(na vetsi projekty) i pod Win98
> Doma jsem zkousel Win2K professional na Celeron 450/128MB a zdalo
> se mi to
> taky malo prakticky pouzitelny (Win2K profi ti zaberou kolem 60MB Ramky),
> chtelo by to alespon tech 256MB RAM a asi spis cisty Pentium II nebo PIII
>
>
> heretic
>
>
> ---
> P��choz� 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
>
---
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
W2000 a D5
[*] Hynek Svatos <svatos(zv)kam(tec)czu(tec)cz> - 11.2.2000 12:37:15
Jeste jednou:
Kamarad ma stroj P166 a vyzkousel vsechny systemy od MS a prohlasuje, ze
W200 jsou rychlejsi nez NT na tomto "stroji" a zhruba stejne vykone jako
W98.
Ja bych osobne sahnul po W200. Co bych dokoupil (kdyz uz nic jineho) je RAM,
te neni nikdy nazbyt.
Keep mailing :-)
=========================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=========================
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Zdenek Drvota
Sent: Thursday, February 10, 2000 7:38 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: W2000 a D5
No, spusti to pujde, ale...
Tech 200MHz bude asi DOST malo, tam by chtelo
pridat, a potom mozna jeste trochu RAM :-)
### Martin napsal dne 10 Feb 00, v 10:39 :
Staci pre Win 2000 a D5 nasled. harware ?
Pentium Pro 200 MHz
64 MB EDO
4 GB HD
Diamond Stealh 3D 3000(cip S3 Virge VX),
aleboradsej WinNT 4 +D5 ?
Martin
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
---
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
DBgridN v D4 pro p. Krmelu
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 11.2.2000 12:42:27
From: karel BRKL <karel_brkl(zv)hotmail.com>> Pri prelkadu DBGridN v D4 vyzaduje unit RegVclSi kterou balik neobsahuje.
>
> Nevite, kde je mozno tuto unit sehnat??
>
> Dekuji Vam za ochotu.
>
> K.Brkl
>
V takovem unitu nemohlo byt nic jineho, nez pouha procedura
register komponenty.
Na http://www.sinea(tec)cz
jsou v sekci Download balicky Sinea1.zip a Sinea2.zip
obsahujici komponentu DBGridN vcetne vsech potrebnych
registracnich unitu. Z toho se da vychazet.
Vaclav Krmela
Find v Db 2
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 11.2.2000 13:09:32
Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> wrote:
>Chcem sa spytat, ze ako by som urobil prehladavanie v akejkovek casti pola.
>Fnc-e Locate obsahuje premennu LocateOption, ale ma len dve moznosti:
>loCaseInsensitive, loPartialKey. prva zabezpeci nerozlisovanie malych a
>velkych pismenok, a ta druha skoro podobna ako to co chcem, len hlada
>partition v poli od zaciatku. Ja by som potreboval vratit true, ked hladany
>text je Ulicny z pola Peter Ulicny.
A je nutne pouzivat funkci Locate? My jsme pouzivaly u DB/2 select s podminkou: ... like %<pattern>%. Ta splnuje oba pozadavky. A to Locate() pak muzes pouzit na primarni klic.
bye pf, Petr.Fejfar(zv)callnet(tec)cz
Pouzivani Mutexu x CriticalSections
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 11.2.2000 13:18:47
Hi all,
Prave tady predelavam thready do nezavislych knihovnich modulu, takze nahrazuji pouzivani CriticalSections mutexy. V te souvislosti me napadlo, ze si neumim odpovedet na otazku, proc bych mel vubec pouzivat CriticalSections, kdyz jsou mene obecne?
Napadaji me 2 duvody:
1. mohlo by to byt trochu rychlejsi, protoze Gates nemusi dohledavat
k handleru descriptor
2. mimo pameti pro tRTLCriticalSection to necerpa dalsi zdroje
Nevi o tom nekdo neco?
Thanx pf, Petr.Fejfar(zv)callnet(tec)cz
W2000 a D5
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 11.2.2000 13:26:34
>Nesouhlasim.
No podle toho co si napsal v podstate souhlasis :P :)
Je fakt, ze ja to posuzoval podle sebe, pri bezne praci mam pustenych mnoho
aplikaci (Word, Excell, Delphi, par blbosti k SQL serveru, neco na ladeni a
monitoring a taky pri tom jsem na inetu, takze nejaky ten mail client a
MSIE.) a taky obcas posloucham mp3 ....je jasny, ze pokud nekdo pusti na
ocesanym stroji bez site jen samotny Delphi, tak nepotrebuje tak nadupanej
stroj....
Myslim ze PII-450/255 jako zakladni konfigurace pro programovani ve
Win2000Prof. je adekvatni.
hx
Delphi 5 nechodi a nechodi
[*] Jaroslav ��pek - 11.2.2000 13:30:31
Ahoj,
ja mam ATI 3D Xpression+, pouzivam ovladac z WIN98 SE a Delphi 5 Prof
pouzivam bez problemu.
Jaroslav Sipek
e-mail: jaroslav.sipek(zv)idea(tec)cz
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Anton�n Blatn�
> Odesl�no: 9. �nora 2000 19:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Delphi 5 nechodi a nechodi
>
>
> Jen pro uplnost. Moje graficka karta je z rady ATI. Delphi 3 mi chodi
> naprosto bez problemu, ale nemohu prijit na to, zda je
> problem D5 vs. ATI,
> nebo je ten pes zakopan jeste nekde jinde. Vsechny rady, ktere se tu
> objevily, jsem bez uspechu vyzkousel. Ale stale se nehodlam
> smirit s tim, ze
> musim "zkysnout" u trojek.
>
> T.
>
Pouzivani Mutexu x CriticalSections
[*] Karel Kral <kral(zv)purus(tec)cz> - 11.2.2000 14:17:20
Ja tomu moc nerozumim, ale v Delphi 4 - prirucka vyvojare (Unis) psali,
ze kriticke sekce jsou vyrazne rychlejsi.
Petr Fejfar wrote:
>
> Hi all,
>
> Prave tady predelavam thready do nezavislych knihovnich modulu, takze nahrazuji pouzivani CriticalSections mutexy. V te souvislosti me napadlo, ze si neumim odpovedet na otazku, proc bych mel vubec pouzivat CriticalSections, kdyz jsou mene obecne?
>
> Napadaji me 2 duvody:
>
> 1. mohlo by to byt trochu rychlejsi, protoze Gates nemusi dohledavat
> k handleru descriptor
> 2. mimo pameti pro tRTLCriticalSection to necerpa dalsi zdroje
>
> Nevi o tom nekdo neco?
>
> Thanx pf, Petr.Fejfar(zv)callnet(tec)cz
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Pouzivani Mutexu x CriticalSections
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 11.2.2000 14:19:03
Vsechny synchronizacni objekty ve Windows stoji na kritickych sekcich, ale ja myslim, ze bys mel pouzivat to, co ti vyhovuje.
----- Original Message -----
From: Petr Fejfar <callnet(zv)telecom(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, February 11, 2000 1:18 PM
Subject: Pouzivani Mutexu x CriticalSections
> Hi all,
>
> Prave tady predelavam thready do nezavislych knihovnich modulu, takze nahrazuji pouzivani CriticalSections mutexy. V te souvislosti me napadlo, ze si neumim odpovedet na otazku, proc bych mel vubec pouzivat CriticalSections, kdyz jsou mene obecne?
>
> Napadaji me 2 duvody:
>
> 1. mohlo by to byt trochu rychlejsi, protoze Gates nemusi dohledavat
> k handleru descriptor
> 2. mimo pameti pro tRTLCriticalSection to necerpa dalsi zdroje
>
> Nevi o tom nekdo neco?
>
>
> Thanx pf, Petr.Fejfar(zv)callnet(tec)cz
>
> Neodchyceni Exceptions pri prechodu z D3 na D5
[*] Roman LISZKA <liszak(zv)usa(tec)net> - 11.2.2000 14:30:37
Po prevodu projektu z D3 do D5 nyni dochazi pri chybach k hlaseni
Windows :Vypadek stranky v .... apod. a nasledne k ukonceni aplikace. K
tomuto dochazi ale pouze pri spusteni bez DELPHI, pri ladeni v DELPHI
danou exception DELPHI zachyti a zachyti jej i blok try except v
programu a nasledne se zpracuje programem. Ale bez DELPHI tvrdy pad na
hubu.
Projevuje se to v Win95 i 98 ale ne v NT4, asi pri operacich nad
tabulkama (Paradox pres BDE), ktere nemaji neco v poradku (chybi
sloupec) a sam program si jej pres restrukturalizaci opravil, ale tak
spadne hned pri otevreni tabulky. Nezajimaji mne rady, jak otestovat
pred otevrenim tabulky, zda je vse tak jak ma byt, chtel bych poradit,
cim to muze byt, ze pri spusteni z DELPHI to funguje, pri primem
spusteni nikoli?
A jeste jedna otazka, kdyz v D3 doslo k zmenam v Compiler Directive
(napr. Optimalizace), doslo k zmene velikosti vysledneho exe souboru,
nyni v D5 je vysledny exe stale stejne veliky. Proc?
--
Ing. Roman LISZKA
Autoincrement & DBF
[*] Michal �viga <info(zv)cd-amper(tec)cz> - 11.2.2000 16:02:31
Ja to delam tak, ze vlozim procedury do udalosti pred pridanim BeforeInsert
a po pridani polozky AfterInsert.
Setridim data podle ID najdu posledni, ten si ulozim a zvetsim a po vlozeni
ulozim do ID ten zvetseny o 1.
Jestli nekdo znate nejakou lepsi metodu, rad se poucim.
S pozdravem
Michal �viga (Sviga)
=============================[PROTON]====
CROSS MEDIA SERVIS - CD KATALOG AMPER
http://www.cd-amper(tec)cz mailto:info(zv)cd-amper(tec)cz
tel.,fax: +420 2 72 76 98 48 mobil: 0602/ 207 557
DAMA.CZ - Internetovy casopis pro vsechny zeny
http://www.dama(tec)cz mailto:reklama(zv)dama(tec)cz
======ICQ: 57557677 =======================
----- Original Message -----
From: Milan Kotaska <mkotaska(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, February 10, 2000 10:34 AM
Subject: Autoincrement & DBF
> Ahoj.
> Prosim o radu, jak nejlepe vytvaret jedinecnou polozku databaze (DBF).
> Jde o to, ze v urcitem sloupecku tabulky (napr. ID) chci mit jedinecnou
> hodnotu.
> Jedna se o tabulku dBase, ktera nema typ sloupce autoincrement. Tzn.
> vlastne, jak vytvorit autoincrement.
> K tabulce muze pristupovat vice uzivatelu na siti.
>
> Dekuji za kazky namet.
>
> Milan Kotaska
> mkotaska(zv)atlas.cy
>
>
Pouzivani Mutexu x CriticalSections
[*] Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> - 11.2.2000 15:56:19 -0000
Ahoj vespolek!
Kriticke sekce budou zcela urcite rychlejsi a pametove mene narocnejsi
(je otazkou jestli vyznamne), protoze Mutexy poskytuji dalsi schopnosti.
Citace - Delphi pruvodce vyvojare kniha IV str. 85:
"Mutexy pracuji velmi podobne jako kriticke sekce s vyjimkou dvou
klicovych rozdilu. Zaprve lze mutexy pouzit pro synchronizaci v ruznych
procesech. Za druhe mohou byt mutexy pojmenovane a k existujicimu mutexu
lze pak vytvorit vytvorit prostrednictvim jeho jmena dalsi handly." k.c.
Handle k jiz existujicimu pojmenovanemu mutexu lze ziskat pomoci
OpenMutex.
S toho usuzuji ze mutex je slozitejsi a tedy i narocnejsi nez kriticka
sekce,
kdyz umoznuje synchronizaci pres hranici procesu.
Ve zminene publikaci je take prikladek na spousteni pouze jedne instance
aplikace pomoci mutexu...
Pak taky existuji jeste semafory u kterych oproti mutexum pribyva jeste
pocitani pristupu a uvolneni, takze dovoli treba peti vlaknum delat neco
a seste uz ma smulu.
Takze: pokud by mi postacovaly kr.sekce zustal bych u nich a teprve
kdyz bych si s nima nevystacil presel bych k mutexum. A k semaforum
bych opet presel az kdybych si nevystacil s mutexy. Bylo by asi zbytecne
pouzivat neco narocnejsiho jenom proto, ze to existuje.
Zdravi
Tomas Bihary
PS: proc jezdi Bavorakem, kdyz mi staci Trabos, ze? :)
> Ja tomu moc nerozumim, ale v Delphi 4 - prirucka vyvojare (Unis) psali,
> ze kriticke sekce jsou vyrazne rychlejsi.
>
> Petr Fejfar wrote:
> >
> > Hi all,
> >
> > Prave tady predelavam thready do nezavislych knihovnich modulu, takze
nahrazuji pouzivani CriticalSections mutexy. V te souvislosti me napadlo, ze
si neumim odpovedet na otazku, proc bych mel vubec pouzivat
CriticalSections, kdyz jsou mene obecne?
...Pouzivani Mutexu x CriticalSections
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 11.2.2000 17:57:35
Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> wrote:>Takze: pokud by mi postacovaly kr.sekce zustal bych u nich a teprve
>kdyz bych si s nima nevystacil presel bych k mutexum.
No, to je prave to: ja jsem napsal pomerne velkou aplikaci pomoci CriticalSections, ale ted potrebuji z nekterych threadu udelat obecne knihovni moduly, ktere by se daly pouzivat i v rezimu synchronizace mezi ruznymi procesy.
Takze jsem to musel vsechno nahradit mutexy a to je docela zbytecna prace.
Takze kdyby mutexy nebyly vyrazne pomalejsi, tak bych je pouzil uplne vsude a na CriticalSection bych se klidne vybod, protoze z pohled reusebility kodu bych v tomto smeru mel vystarano.
Nemam ale cas na to, abych si napsal nejaky stress counter, ktery by mi to zmeril. Takze jsem se zeptal, jestli nema nekdo potrebne know-how.>A k semaforum bych opet presel az kdybych si nevystacil s mutexy.
Semafory bych sem nepletl, protoze ty slouzi k jinym synchronizacnim uloham.
bye pf, Petr.Fejfar(zv)callnet(tec)cz
DAO 3.6 ISAM FoxPro
[*] Erik Salaj <winsoft(zv)napri.sk> - 11.2.2000 18:08:07
stacilo zaregistrovat msxbse35 DLL knihovnu, ale ted uz mam utrum. Nevim jak se na FoxPro z DAO 3.6 dostanu ?!
Len cez ODBC.
No to jsem tusil, jestli se nemylim, tak to bude pomalejsi.
Asi ano. Povedal by som, ze to odraza nezaujem MS o Fox-ku a preferovanie
Accessu a najme MSDE.
Erik Salaj
OT: Rozpakovanie instalacnych suborov
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 11.2.2000 18:36:54
Nevie niekto poradit, ci existuje nejaka utilitka
na rozbalovanie datovych instalacnych suborov
s priponou .Z ?
Peter
SaveDialog a OpenDialog
[*] Tomas Bihary <tomas.bihary(zv)vslib(tec)cz> - 11.2.2000 18:19:38 -0000
Ahoj!
Je to fakt dost nazornej priklad. Chvili jsem si s tim hral,
trochu hledal v napovede, ale nepovedlo se mi napriklad
rozsirit OpenDialog ne smerem dolu ale doprava.
Taky by me zajimalo jak odhytnu kliknuti na pridane tlacitko?
Muzu posunovat standartnimi ovl.prvku na dialogu?
Muzu udelat cely dialog sizeablovaci?
Pak me taky prekvapilo, ze pozice a velikost urciteho prvku
nezavisi jenom na ciselne zvolene pozici ale i na fontu:
#define DIALOG_1 1
#define IDC_EDIT1 101
PREVIEWDLGTEMPLATE DIALOG 0, 0, 240, 99
STYLE WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | DS_CONTROL
CAPTION "DIALOG_1"
FONT 8, "Courier New"
{
EDITTEXT IDC_EDIT1, 3, 3, 235, 92, ES_MULTILINE | WS_BORDER | WS_VSCROLL |
WS_HSCROLL | WS_TABSTOP
}
Dialog vypada trochu jinak nez kdyz pouziju:
FONT 8, "MS Sans Serif"
misto
FONT 8, "Courier New"
Za veskere zkusenosti vrely dik
Ahoj
Tomas Bihary
----- P�vodn� zpr�va -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. �nora 2000 22:06
P�edm�t: Re: SaveDialog a OpenDialog
From: Lud�k ZITA <konference(zv)sales(tec)cz>
> Mimochodem mate nekdo zkusenost s vlastnosti Template (TCommonDialog)
Ahoj,
Tady najdes priklad z DelphiDays'99 na vyuziti .RC souboru v Delphi. Jedna
se
prave o rozsireni standartnich Windows dialogu. Casem bych to tema treba
vice
rozsiril.
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Api/DelphiDays99_DialogTempla
te.zip
Petr Vones, amatersky programator
Corel koupil Borland
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.2.2000 19:47:03
From: Karel Kral <kral(zv)purus(tec)cz>
> Ja jsem tedy o tom precetl vsechno, co jsem nasel, a podle mne to je
> dobre. Vyrazne se zrychli vyvoj Delphi pro linux, Borland bude mit dost
> penez... (doufam).
a take se bude opet jmenovat Borland. Znacka Inprise je jiz na prodej :-)
http://cgi.ebay.com/aw-cgi/eBayISAPI.dll?ViewItem&item=257963195
Petr Vones, amatersky programator