Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
tvar okna aplikace
[*] hynek.los.fei(zv)vsb(tec)cz - 12.4.1999 07:36:55
NEvite nekdo jak pomoci~ api dosahnout -jineho tvaru nez je
obdelnik?(resp. nejaka jeho varianta) Memo + Paradox
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 12.4.1999 08:42:17
Mam v D1 aplikaci s pristupem na paradox.
Jak mam nastavit parametr do SQL prikazu,
kdyz dany field je typ Memo
(Query.FieldByName('poznamka').?) ?
Daji se v paradoxu pouzivat transakce?
Myslim si, ze ne, ale kdo vi.
A jeste: Da se nejak programove zjistit verze BDE?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+Funkce Round
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.4.1999 09:26:31
Porad mi to vrtalo hlavou, a taxem se to jal hledat a hle, mylil jsem se
:-)
Cituji z knihy Mistrovstvi v Delphi 3 od T.Millera a D.Powella :
(strana 77)
Round(x) - Cele cislo, ktere je nejblize cislu x. ...bla bla bla...
Delphi ponechava rozhodnuti na zaokrouhleni techto hodnot na operacnim
systemu(!) Obvykle chovani procesoru Intel je pritom v souladu s
doporucenim
institutu IEEE* "zaokrouhlit na nejblizsi sude cele cislo". Tomuto se
nekdy
take rika "bankerovo zaokrouhlovani".
*) Institute of Electrical and Electronic Engineers
Dobra.> ----------
> Od: Mal� Dobromil[SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 9. dubna 1999 15:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Funkce Round
>
> My jsme petku zaokrouhlovali nahoru vzdy.
> (nemylim-li se :-)
> D.
>
>
> ---Puvodni zprava---
>
> > Vite nekdo o tom, ze funkce Round (v Delphi i Borland Pascalu)
> > nepracuje
> > podle pravidla, ze "petka se vzdy zaokrouhluje nahoru", ale ze zde
> > plat�, ze
> > o tom, zda se zaokrouhl� nahoru resp. dol� rozhoduje lichost, resp.
> > sudost
> > cislice pred petkou ?
> > Znam jednoho, kdo tvrdi, ze toto pravidlo zna z obecne skoly (zatim
> > jen
> > jednoho).
> >
> Diakritika
[*] david.krajicek(zv)bmt(tec)cz - 12.4.1999 08:28:10
Mam program pro konverzi mezi vsemi strankami. Je to v dosu, ale umi to
konvertovat nasledujici stranky:
Kamenik -> Bez
-> Latin 2
-> Win1250
Latin 2 -> Bez
-> Kamenik
-> Win1250
Win1250 -> Bez
-> Kamenik
-> Latin 2
Kdo ma zajem, zaslu e-mailem.
David Krajicek
E-Mail: david.krajicek(zv)bmt(tec)cz
URL: http://www.geocities.com/Colosseum/Park/3485/
Problem s WM_GETMINMAXINFO
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 12.4.1999 09:41:56
Caute,
mam problem. Nas program je navrzen tak, ze ma hlavni listu (EXE) a
jednotlive moduly (DLL). Tyto moduly se otviraji jako nemodalni okna.
Pokud je chci otevrit maximalizovane, musim brat v uvahu tu hlavni listu
programu (je ne hornim okraji obrazovky). Problem je, ze pri pouziti
WM_GETMINMAXINFO to dela nasledujici divnou vec: pri spusteni vice oken
tehoz modulu a jejich prepinani zpusobuje pri kazdem prepnuti z okna na
okna (jedna se o tytez moduly) zmenseni velikosti toho focusnuteho okna.
Toto se deje pouze pokud je to okno maximalizovane.
WM_GETMINMAXINFO pouzivam nasledovne:
______________________________________________________________________
procedure TBaseForm.WndProc(var Message: TMessage);
var tmp: integer;
begin
// Message PreProcessing
case Message.Msg of
WM_SYSCOMMAND:
with TWMSysCommand(Message) do
begin
...
end {WM_SYSCOMMAND};
end {case Message.Msg};
// Message Processing
inherited;
// Messages PostProcessing
case Message.Msg of
WM_SYSCOMMAND:
with TWMSysCommand(Message) do
begin
...
end {WM_SYSCOMMAND};
WM_GETMINMAXINFO:
with TWMGetMinMaxInfo(Message) do
begin
if Opt.FullScreen then tmp := 0 else tmp := AppForm.Height;
MinMaxInfo^.ptMaxPosition.X := -BorderLeft;
MinMaxInfo^.ptMaxPosition.Y := tmp - BorderTop;
if not UseStoredHeight then TmpHeight := MinMaxInfo^.ptMaxSize.Y
- tmp - BorderLeft
else TmpHeight := MaxHeight;
MinMaxInfo^.ptMaxSize.Y := TmpHeight;
UseStoredHeight := false;
end {WM_GETMINMAXINFO};
WM_NCACTIVATE:
if boolean(Message.wParam) then
begin
...
end else
begin
...
end {WM_NCACTIVATE};
end {case Message.Msg};
end {TBaseForm.WndProc};
______________________________________________________________________
V cem muze byt zakopane psisko?
Neznate nekdo jinou moznost, jak donutit okno v modulu, aby si myslelo,
ze je screen mensi a ze zacina vice dole?
Predem diky!
Martin
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Query - RequestLive
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 12.4.1999 09:48:34
Ak pouzivanm Query v RequestLive=true, tak je mozne priamo editovat vety v DBGride. Ak chcem pridat vetu , to je sice tiez mozne ale stane sa, ze po pridani vety
jedna veta sa zmizne z DBGrid-u ( iba vizualne). Ako je mozne napravit DBGrid ? Opet zatvorit a otvorit Query moc nechcem a ani neviem pri akej udalosti by to bolo mozne.
TUNGLI Jan
tungli(zv)pvt.sk
Prikaz DIR
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.4.1999 09:50:11
v jednotce ShellAPI je prikaz WinExec a ShellExecute
taky muzes pouzit CreateProcess (nebo tak nejak :-)
(nezapomen, ze DIR je interni prikaz shell-u !, takze
command /c dir *.* )
D.> ----------
> Od: Mat�� Kiczko[SMTP:4kiczko(zv)gmet.schools.sk]
> Odesl�no: 12. dubna 1999 0:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Prikaz DIR
>
> Zdravim,
> potrebujem poradit ako "spustit" standardny prikaz DOSu, napr. DIR *.*
> z
> aplikacie Delphi.
> Dakujem.
> Matus.
> SpeedButton - Co vy NATO?
[*] delphi(zv)alf.dingo(tec)cz - 12.4.1999 08:30:41 gmt
Zdravim vsechny,
takovy maly dotaz.
Mam nejakou cizi aplikaci, ktera ma Toolpanel a tam je tlacitko,
ktere je zakazane. Dalo by se nejak udelat povolit z jine aplikace?
Mozna dotaz blbej, ale prece...
S pozdravem DELPHINUM zdar
Bob
Platebni karty a jine systemy
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.1999 10:43:02
>> jak to ze jeste z nikoho nevypadla informace o tom, kteryze ustav mu
>> umoznuje prijimat platby kreditkou od zakazniku?
>Tak asi velmi spatne ctes tuto konferenci, pac jsem to psal
>napriklad 9.4.1999 tesne po pulnoci, zde je cas forwardu:
aha, omlouvam se ..
D. Toman
Prikaz DIR
[*] david.krajicek(zv)bmt(tec)cz - 12.4.1999 09:48:38
Je to jednoduche.
napises prikaz Exec ('parametr1', 'parametr2')
parametr1 - jmeno souboru v tvem pripade DIR s uplnou cestou
parametr2 - vlastni parametry tohoto programu.
jeste muzes pred i za Exec napsat SwapVectors pro ulozeni swapovacich
vektoru, ale neni to podminkou. Ja to osobne pouzivam. Dulezite je kde se
nachazi program, ktery spoustis. Je potreba bud ho mit v adresari ve kterem
se spousti program nebo ho zadat s uplnou cestou.
hynek.los.fei(zv)vsb(tec)cz na 12.04.99 07:33:11
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: David Krajicek/Bmt/CZ)
P�edm�t: Re: Prikaz DIR
>potrebujem poradit ako "spustit" standardny prikaz DOSu, napr. DIR
z
RE : myslim ze je na to prikaz Exec
vyvolani defaultniho PropertyEditoru TCollection
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 12.4.1999 11:07:03
>procedure TDemoComponentEditor.ExecuteVerb(Index: Integer);
>var
> CompList: TComponentList;
>begin
> if Index < FTableEditor.GetVerbCount then
> FTableEditor.ExecuteVerb(Index)
> else
> begin
> CompList := TComponentList.Create;
> try
> CompList.Add(Component);
> GetComponentProperties(CompList, [tkClass], Designer,
EnumPropEditors);
> finally
> CompList.Free;
> end;
> end;
>end;
Alespon tohle jde prece jednoduseji:
procedure TDemoComponentEditor.ExecuteVerb(Index: Integer);
begin
if Index < FTableEditor.GetVerbCount then
FTableEditor.ExecuteVerb(Index)
else
ShowCollectionEditor(Designer, Component,
TDemoComponent(Component).Items, 'Items');
{nebo ShowCollectionEditorClass(Designer, TItemsCollectionEditor,
Component, TDemoComponent(Component).Items, 'Items');}
end;
Rob
Default hodnoty pri instalaci BDE
[*] Jaroslav N�dhera <csh(zv)czn(tec)cz> - 12.4.1999 11:24:08
Nektere hodnoty nastaveni BDE jsou ulozeny v registru. Ja to resim tak, ze
instalacni program zapise tyto udaje primo do registru (co tam zapsat jsem
odkoukal od toho, co tam bylo zapsano po mem nastaveni).
J. Nadhera
-----P�vodn� zpr�va-----
Od: Jiri Binder <jiri.binder(zv)pedf.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. dubna 1999 20:29
P�edm�t: Default hodnoty pri instalaci BDE
Pro pripravu instalace pouzivam InstalShield dodavany s D4. Chtel
jsem, aby se pri instalaci nastavily nektere parametry (napr. lang.
driver, format data a casu pro Pdox). Myslel jsem, ze napr. by si
mohl za default idapi32.cfg vzit ten co ma u sebe v adresari redist
nebo hexa editorem upraveny idapi.cnf tamtez. Neuspel jsem.
Nemate to nekdo vyreseno?
Jiri Binder
Obcas nefunkcna instalacia
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 12.4.1999 11:49:32
Co poviem asi nebude to prave, ale ja by som prekontroloval odlisnosti v registroch.
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Trhlik Jaroslav <aatsoft(zv)databanka.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. apr�l 1999 11:29
P�edm�t: Obcas nefunkcna instalacia
Zdravim skusenych delphinistov. Potrebujem radu.
Uz 2 roky distribuujeme nasu aplikaciu, napisanu v Delphi2, vyuzivajucu dBase tabulky. Instaluje sa pomocou InstallShieldu z CD.
Koncom vlanajsieho roka sa zacalo objavovat a teraz je coraz castejsie, ze po instalacii a spusteni sa objavi chybova hlaska "Exception EDBEngineError in module WINDFS.EXE at 0004d408. Invalid File Name" a aplikacia nefunguje. Nefunkcnost je pravdepodobnejsia na novsich pocitacoch a pod W98, ale ani P100 s W95 nie je 100% ist�. Na nasich pocitacoch ani pod W95 ani pod W98 sa tuto chybu nepodarilo vyvolat.
Jeden konkretny pripad: zakaznik, u ktoreho nasa aplikacia fungovala, inovoval hardware (naformatoval a pridal HDD), rein�taloval W95 a aplikacie (nema ziadnu inu pouzivajucu BDE) a nasa aplikacia sa stala nefunkcnou. Na prvy pohlad vsetko okolo BDE vyzera byt nastavene spravne, ale ked som z original instalacneho CD nainstaloval DELPHI 2 a sk�sil spustit DEMO priklad CTRLGRID, tak takisto skoncil chybou "Invalid File Name".
Som zufaly, lebo odporucanie "skuste na inom pocitaci" je nedostojne a zobrat pocitac od zakaznika a ist s nim do Inprise tiez nie je mozne.
Pozna niekto pricinu resp. opatrenia, ako vzniku tejto chyby predist?
Jaroslav Trhlik, A&T Software, Rybarska 1, 91501 Nove Mesto n/Vah., SR tel. +421-834-712441, e-mail: aatsoft(zv)databanka.sk
Pocet stran v QuickReportu
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 12.4.1999 12:06:01
Potrebuji zjistit kolik stran bude potreba na vytisteni celeho reportu.
Pokud dam QuickRep1.QRPrinter.Prepare;// a pak
a := QuickRep1.QRPrinter.PageCount;
tak dostanu nejake hausnumero, ktere vubec neodpovida poctu skutecne
potrebnych stran ... ziskanych napriklad z preview. Nevite co s tim ?
Diky.Hlasitost + citlivost mikrofonu
[*] Ing. Jaroslav K�e�ek - 12.4.1999 12:17:16
Dobry den
Nedari se mi najit funkce na nastaveni citlivosti mikrofonu a na nastaveni
hlasitosti.
Presneji bych potreboval funkce zapnout/vypnout mikrofon a funkce
zapnout/vypnout vystupni hlasitost. (Aby ve fazi nahravani nebylo nic
slyset.)
Nevite nekdo jak na to?
Dekuji
Jaroslav Krecek
**********************************************
Ing. Jaroslav K�e�ek
-------------------------------------------------------------
GRAFEX - software �it� na m�ru
- harware pro Va�e pot�eby
-------------------------------------------------------------
http://web.iol(tec)cz/grafex
mailto:grafex(zv)iol(tec)cz
-------------------------------------------------------------
tel + SMS: +420.603.226103
tel + fax: +420.327.761992
**********************************************Query - RequestLive
[*] Marcant <marcant(zv)sct.sk> - 12.4.1999 12:29:20
Moje skusenosti s RequestLive nie su prilis dobre. Konkretne na MSSQL to
zvykne vyvolavat chybu
Conection is busy with result for another htsmt alebo tak nejako ak je
otvorenych viac Request Live Query
a samozrejme po Inserte a naslednom Poste sa data neobnovia. Je lepsie
na priamu editaciu v gride pouzit
Table - s tym je vsak spojeny problem duplikovaneho zobrazovania
zaznamov ak je tabulka indexovana
podla zlozitejsieho kluca (napriklad dlhsi retazec a pod.) a nefunguje
autoincrementacna (IDENTITY)
polozka (jej hodnota sa obnovi az po Close a Open). Neviem ako je to u
inych serverov.
TUNGLI Jan wrote:
> Ak pouzivanm Query v RequestLive=true, tak je mozne priamo editovat
> vety v DBGride. Ak chcem pridat vetu , to je sice tiez mozne ale stane
> sa, ze po pridani vetyjedna veta sa zmizne z DBGrid-u ( iba vizualne).
> Ako je mozne napravit DBGrid ? Opet zatvorit a otvorit Query moc
> nechcem a ani neviem pri akej udalosti by to bolo mozne. TUNGLI Jan
> tungli(zv)pvt.sk
Nastaveni poctu kopii
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.4.1999 12:32:12
Ahoj,
mel bych jednoduchy dotaz - jak nastavit pocet kopii pri tisku pres
zakladni TPrinter aniz bych tisknul vicekrat.
Dekuji
Jaro B.Ikona do hlavniho panelu II.
[*] standa kunc <standa_kunc(zv)seznam(tec)cz> - 12.4.1999 12:38:01
Dne 9. dubna 1999 v 10:21 dds napsal(a):
>
> Myslis W98 Quick Launch nebo vpravo vedle casu?
> Prvni moznost je zastupce do Windows\Application Data\Microsoft\Internet
> Explorer\Quick Launch\
> Druha moznost (jednoducha) je pouzit nejakou komponentu, napr TrayIcon z
> www.bluerose(tec)cz/delphi/eqpack.zip (505 KB)
> Je to to, co potrebujes?
> /MK
>
Je mi jedno, jestli to bude vpravo, �i vlevo. Nemusi to byt hezke, ale musi to fungovat. Ale pozor ja nemam W98, ale W95 osr2. Ani Active Desktop nemam a pouzivam Delphi v.1.
Stejne diky, zkusim to...
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
tvar okna aplikace
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 12.4.1999 12:02:22
Jasne, pres SetWindowRegion. Muzes si udelat treba kolecko, obdelnik s
dirou apod.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: hynek.los.fei(zv)vsb(tec)cz [SMTP:hynek.los.fei(zv)vsb(tec)cz]
> Odesl�no: 12. dubna 1999 8:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: tvar okna aplikace
>
> NEvite nekdo jak pomoci~ api dosahnout -jineho tvaru nez je
> obdelnik?(resp. nejaka jeho varianta) Skutecny rozmer desktopu
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 12.4.1999 13:15:23
Cau dneska podruhe,
tento muj dotaz souvisi uzce s tim predchozim. Lze nejak zjistit
velikost desktopu BEZ tech serepeticek kolem (taskbar, Office Launcher,
etc.)? Vsechny fce pro zjisteni velikosti mi suverenne a bez zacervenani
vraceji 1024x768...
Ja totiz chci upravit polohu a velikost maximalizovaneho okna a pres
WM_GETMINMAXINFO mi to moc nejde... :(((
Diky.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Query - RequestLive
[*] Lubo Fule <fule(zv)sct.sk> - 12.4.1999 13:28:24
Zabudol si uviest, ze na pripojenie k SQL-servru pouzivas ODBC. Pri pouziti
nativneho SQL linku tieto problemy nie su. Je vsak pravdou, ze "nativny"
link je podstatne pomalsi ako ODBC.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Marcant
Sent: Monday, April 12, 1999 12:29 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Query - RequestLive
Moje skusenosti s RequestLive nie su prilis dobre. Konkretne na MSSQL to
zvykne vyvolavat chybu
Conection is busy with result for another htsmt alebo tak nejako ak je
otvorenych viac Request Live Query
a samozrejme po Inserte a naslednom Poste sa data neobnovia. Je lepsie
na priamu editaciu v gride pouzit
Table - s tym je vsak spojeny problem duplikovaneho zobrazovania
zaznamov ak je tabulka indexovana
podla zlozitejsieho kluca (napriklad dlhsi retazec a pod.) a nefunguje
autoincrementacna (IDENTITY)
polozka (jej hodnota sa obnovi az po Close a Open). Neviem ako je to u
inych serverov.
TUNGLI Jan wrote:
> Ak pouzivanm Query v RequestLive=true, tak je mozne priamo editovat
> vety v DBGride. Ak chcem pridat vetu , to je sice tiez mozne ale stane
> sa, ze po pridani vetyjedna veta sa zmizne z DBGrid-u ( iba vizualne).
> Ako je mozne napravit DBGrid ? Opet zatvorit a otvorit Query moc
> nechcem a ani neviem pri akej udalosti by to bolo mozne. TUNGLI Jan
> tungli(zv)pvt.sk
None
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 12.4.1999 13:46:21
Na�el jsem, zkusil jsem, ale nejsem schopen dos�hnout toho, aby m�sto m�stn�
po�ty volal Internet. N�jak se mot�m v tom nastaven� parametr� MAPIMessage.
M��e� mi pros�m t� napsat p��klad pro implicitn� vol�n� OutlookExpress.
D�k. Jara.
-----P�vodn� zpr�va-----
Od: eL <eL_z_Prahy(zv)seznam(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. dubna 1999 22:26
P�edm�t: Re:>Priklad jak volat standartniho klienta simple MAPI najdes v defaultnim
>projektu "Win95logo Application" v Delphi 3 i 4. Vyhodou je ze by to pak
>melo chodit s kazdym klientem, ktery je ve Win nadefinovany jako simple
>MAPI. (Zkousel jsem Internet mail ze standartni Exchange, Outlook 97,
>OutlookExpress a vsechno chodilo, pres prvni dva slo dokonce i faxovat)
>
>eL..
>
>-----P�vodn� zpr�va-----
>Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
>Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
>Datum: 9. dubna 1999 9:27
>P�edm�t: RE:
>
>>> -----Original Message-----
>>> From: SPELZA s.r.o. [mailto:spelzasro(zv)brno.comp(tec)cz]
>>> Sent: Thursday, April 08, 1999 9:08 AM
>>> To: DELPHI
>>> Subject:
>>>
>>>
>>> �au Delph�ci,
>>> tak jsem tu zas. Nev�te, jestli p�i spu�t�n� elektronick�
>>> po�ty z aplikace,
>>> jde automaticky definovat v nov� zpr�v� krom� adresy Komu i
>>> obsah (resp.
>>> ostatn� parametry)? Pro vol�n� pou��v�m
>>> ShellExecute(Application.Handle,
>>> nil, E_MAIL, nil, nil, 0).
>>> Jara.
>>>
>>
>>Pouzivam Propojeni na Outlook. Je to ovsem vazano na M$.
>>
>>var
>> myOlApp, msg: Variant;
>>begin
>>
>> myOlApp := CreateOleObject('Outlook.Application');
>> //nula je
>> msg := myOlApp.CreateItem(0); // 0 je olMailItem
>> msg.Recipients.Add ('jura.polak(zv)email(tec)cz');
>> msg.Subject := 'Predmet zpravy';
>> msg.Body := 'Telo zpravy';
>> //Zobrazeni okna Outlooku pro editaci a potvrzeni dopisu
>> msg.Display;
>>
>>Blizsi popis pouzivani olMailItem najdes v helpu
>>VBAOUTL.HLP v MS Office (nevim, jestli pouze Prof.)
>>
>>Jura
>>----------
>>Jiri Polak
>>e-mail:jura.polak(zv)email(tec)cz
>> jiri.polak(zv)tconsult(tec)cz
>>web :http://freeweb.coco(tec)cz/jpolak
>>----------
>>The only good bug, is a dead bug!
>>Query - RequestLive
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.4.1999 14:22:11
Problem je zpravidla v tom, ze po Insert neni automaticky znama
hodnota ID. Proto se tento rezim nehodi tolik pro sitove reseni,
kde musi ID pridelovat server. V tom pripade je vhodne jednotlive
zaznamy aktualizovat samostatne pomoci jineho TQuery.
Ja osobne to ukladam pomoci ulozene procedury nebo s vyuzitim
TUpdateSQL
objektu. Vlastni tabulku mam otevrenou v jinem TQuery, kde to pak
staci otevirat
ReadOnly.
Jaro
-----Puvodni zprava-----
Od: Marcant <marcant(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. dubna 1999 13:36
Predmet: Re: Query - RequestLive
>Moje skusenosti s RequestLive nie su prilis dobre. Konkretne na MSSQL
to
>zvykne vyvolavat chybu
>Conection is busy with result for another htsmt alebo tak nejako ak
je
>otvorenych viac Request Live Query
>a samozrejme po Inserte a naslednom Poste sa data neobnovia. Je
lepsie
>na priamu editaciu v gride pouzit
>Table - s tym je vsak spojeny problem duplikovaneho zobrazovania
>zaznamov ak je tabulka indexovana
>podla zlozitejsieho kluca (napriklad dlhsi retazec a pod.) a
nefunguje
>autoincrementacna (IDENTITY)
>polozka (jej hodnota sa obnovi az po Close a Open). Neviem ako je to
u
>inych serverov.
>
>TUNGLI Jan wrote:
>
>> Ak pouzivanm Query v RequestLive=true, tak je mozne priamo
editovat
>> vety v DBGride. Ak chcem pridat vetu , to je sice tiez mozne ale
stane
>> sa, ze po pridani vetyjedna veta sa zmizne z DBGrid-u ( iba
vizualne).
>> Ako je mozne napravit DBGrid ? Opet zatvorit a otvorit Query moc
>> nechcem a ani neviem pri akej udalosti by to bolo mozne. TUNGLI
Jan
>> tungli(zv)pvt.sk
>
Zacarovana databaze
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 12.4.1999 13:30:00
Ahoj vsem,
jako znamy neodbornik na databaze zase otravuji s patrne trivialnim
problemem:
Mam databazi slov, ktera se vyuziva k automatizovanemu prekladu urcitych
specialnich frazi. Jedna se o FoxPro (2.5) tabulku s jednoduchou
strukturou - pouhe dva sloupce FIELD1 (char 80 - vychozi jazyk) a
FIELD2 (char 80 - cilovy jazyk). Program pracuje tak, ze pomoci query
najde ke slovu ze sloupce FIELD1 slovo ze sloupce FIELD2. Vsechno
pracuje OK az na jednu vec. Pokud se pouzije index CDX z FoxPro, pracuje
vsechno bez problemu. Byl ale problem v tom, ze nekdy zakaznik index
smazal, tak jsem se rozhodl, ze si jej program bude vzdy pri startu
vytvaret sam (nejprve se ovsem nastavi 28. byte na 0, aby si program
myslel, ze zadny index neni a nervalo to). Pro vytvoreni indexu jsem
pouzil nasledujici kod:
sql:= 'CREATE INDEX A ON "'+TableName + '" (FIELD1)';
try
QTable.Active:=False;
QTable.SQL.Clear;
QTable.SQL.Add(sql);
QTable.ExecSQL;
result:=0;
except
on e:EDBEngineError do
begin
result:=-2; //problem s indexovanim ?
end;
end;
A ted ten problem: Kdyz se pouzije takto vytvoreny index, program
neprelozi nektera slova (ackoli v databazi jsou), jina prelozi v pohode.
Uz jsem z toho na jatra. Netusite nekdo, cim to muze byt?
Pouzivam D3 Standard, BDE dodavany spolu s D3.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
Skutecny rozmer desktopu
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 12.4.1999 13:32:23
Ahoj,
zkus tohle:
X := GetSystemMetrics(SM_CXFULLSCREEN);
Y:= GetSystemMetrics(SM_CYFULLSCREEN)+GetSystemMetrics(SM_CYCAPTION);
(nemam to vyzkousene, ale mohlo by to chodit)
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Martin Bodlak [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 12. dubna 1999 13:15
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Skutecny rozmer desktopu
>
> Cau dneska podruhe,
>
> tento muj dotaz souvisi uzce s tim predchozim. Lze nejak zjistit
> velikost desktopu BEZ tech serepeticek kolem (taskbar, Office
> Launcher,
> etc.)? Vsechny fce pro zjisteni velikosti mi suverenne a bez
> zacervenani
> vraceji 1024x768...
>
> Ja totiz chci upravit polohu a velikost maximalizovaneho okna a pres
> WM_GETMINMAXINFO mi to moc nejde... :(((
>
> Diky.
>
> --
> Hezky den!
> ______________________________________________
> Martin Bodlak, ATLAS consulting, spol. s r. o.
> Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
> Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
> Tel. 069-6616432 (office), 0603-490135 (private)Default hodnoty pri instalaci BDE
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.4.1999 14:34:24
Proc se s tim psat do registru, kdyz to muzes napsat rovnou
do TDatabase, kde je to mozne snadno i menit !?
Pri pouziti TDatabase, pak nepotrebujes vubec
zadny Alias a cestu k datum muzes snadno nacist bud z nejakeho INI
souboru
nebo muze byt cesta zadana relativne vuci vlastnimu EXE souboru. Ja
osobne
do registru nerad pisu, protoze
1. Neni snadno prenosny na jiny pocitac.
2. je to smetiste nejvetsiho "bordelu" windows
3. Pri deinstalaci musis pamatovat na likvidaci vsech takovych zapisu,
aby jsi se nezaradil mezi radu neporadnych programu, ktere z toho
registru postupne cini to zminene smetste
INI soubor prekopirujes jinam spolu s exe a snadno v nem muzes i
editovat
Zde je seznam parametru, ktere pouzivam, aniz bych potreboval ALIAS
Database.Params:
LANGDRIVER=anczechw
SQLQRYMODE=
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
SCHEMA CACHE TIME=-1
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
ENABLE BCD=FALSE
SERVER NAME=C:\Databaze\Data1.gdb
USER NAME=SYSDBA
PASSWORD=masterkey
Pri prihlaseni pouze jde o to nahradit USER NAME
a PASSWORD zadanymi udaji z prihlasovaciho dialogu.
Pripadne lze nahradit i zvolenou cestu.
Snadno se mohu i za behu prehlasit k jine databazi a
nemusim kvuli tomu instalovat dalsi ALIAS
Jaro
>Nektere hodnoty nastaveni BDE jsou ulozeny v registru. Ja to resim
tak, ze
>instalacni program zapise tyto udaje primo do registru (co tam zapsat
jsem
>odkoukal od toho, co tam bylo zapsano po mem nastaveni).
>
>J. Nadhera
>
>-----P�vodn� zpr�va-----
>Od: Jiri Binder <jiri.binder(zv)pedf.cuni(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 9. dubna 1999 20:29
>P�edm�t: Default hodnoty pri instalaci BDE
>
>
>Pro pripravu instalace pouzivam InstalShield dodavany s D4. Chtel
>jsem, aby se pri instalaci nastavily nektere parametry (napr. lang.
>driver, format data a casu pro Pdox). Myslel jsem, ze napr. by si
>mohl za default idapi32.cfg vzit ten co ma u sebe v adresari redist
>nebo hexa editorem upraveny idapi.cnf tamtez. Neuspel jsem.
>Nemate to nekdo vyreseno?
>
> Jiri Binder
>
>Button
[*] Radek Lev� - 12.4.1999 14:44:05
Jak obarvit button na nejakou barvu ?Oracle
[*] Martin Bohm <mbohm(zv)quelle.sk> - 12.4.1999 15:01:32
Neviete niekto o FREE componente, ktora sa dokaze pripojit na Oracle 7,
pomocou nativnych ovladacov (SQL Net).
Dakujem za kazdu info.teorie
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.4.1999 15:05:34
To je ale presne pripad, kdy pak nelze zajistit
definicni datovou integritu tabulky 3 vuci tabulkam 1 a 2.
Musely by se napsat vlastni triggery, ktere budou kontrolovat obe
tabulky
Jinak nic proti tomu. Pokud nekdo integritu dat nepozaduje,
tak proc ne. (pokracovani dole)
---------------------------------
Myslel jsem to asi takhle:
Tabulka 1:
KLIC JMENO
O123 Honza
O124 Petr
O125 Jan
Tabulka 2:
KLIC NAZEV
F156 Truhlarstvi
F157 Krejcovstvi
Tabulka 3:
KLIC EMAIL
O123 honza(zv)post(tec)cz
O123 honza.dvorak(zv)post(tec)cz
O123 pokus(zv)pokus(tec)cz
O124 nazdar(zv)nic(tec)cz
F157 krejci(zv)krejci(tec)cz
Pro uplnost, u tabulky 3 je primarnim klicem KLIC+EMAIL, je to
pro zobrazeni v tabulce - firmy + jejich e-maily a osoby + emaily...
> se na ni odkazovat cokoliv. Takze v tom asi nemas jasno,
> protoze to, co popisujes je trochu naopak. Masterem nejsou
> OSOBY a FIRMY, ale EMAILY. Protoze OSOBY a FIRMY se odkazuji
> na EMAILY.
----------------------------------------
Nevim jak to mas vymyslene, ale me to pripada, ze to neni
dobre. Jedna firma nebo i jedna osoba muze mat vice e-mail adres.
Rozhodne to nebude nikdy naopak. Z tohoto pohledu je nesmysl, aby
master byla tabulka e-mail adres a tabulka firmy byl vuci tomu detail.
Je to potreba udelat naopak.
Mozna jde ale jen o zmateni pojmu.
Ja to chapu takto. Mastr je tabulka, v niz pro hodnotu jednoho klice
existuje v detail tabulce nekolik zaznamu. Pro jednu firmu budu tedy
mit
nekolik e-mail adres a ne naopak. Alespon me by se moc nelibilo, kdyby
e-mail adresa pro moji firmu byla pridelana jeste dalsim firmam nebo
osobam.
To bych meho poskytovatele internetu poslal do hodne nepeknych mist.
Jaro
Win NT servise & Win 3.x
[*] Martin 'Milo' Milesich <martin(zv)www.fa.stuba.sk> - 12.4.1999 15:06:06
Zdravim,
Mam na Vas hned 2 otazky.
1. Ako sa daju v Delphi 4 vytvarat service pre WinNT?
2. Daju sa v Delphi 4 robit aplikacie pre Win 3.x? A ked tak ako?
Dakujem velmi pekne.
,*.,.*'`'*.,.*'`'*.,.*'`'*.,.*'`'*_MILO_*'`'*.,.*'`'*.,.*'`'*.,.*'`'*,
Milo www.fa.stuba.sk/~martin
E-mail martin(zv)www.fa.stuba.sk
----------------------------------------------------------------------
Milo New-Born Network mnn.fd(tec)cz
Slovensky ICQ List icq.fd(tec)cz
-====================================================================-
Win NT servise & Win 3.x
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 12.4.1999 15:17:48
Haj hou!
>1. Ako sa daju v Delphi 4 vytvarat service pre WinNT?
Podivej se do dokumentace (helpu) k D4 a hledej NT service
wizard.
>2. Daju sa v Delphi 4 robit aplikacie pre Win 3.x? A ked tak
ako?
Na CD D4 je take Delphi 1 k psani aplikaci pro Win 3.x. Bohuzel
nelze vytvaren 16-bitove aplikace primo v D4.Win NT servise & Win 3.x
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.4.1999 15:19:26
Ad 2 - nedaji, ale na instalacnim CD najdes i Delphi 1 (16-bit)> 2. Daju sa v Delphi 4 robit aplikacie pre Win 3.x? A ked tak ako?
> System tray
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.4.1999 15:21:14
v RxLib je TrayIcon, ale nejen tam, jsou fsude :-)))
a skryt ikonu aplikace udelas takto:
ShowWindow(App_Handle, SW_HIDE);
D.> ----------
> Od: Jan Pospisil[SMTP:pospa(zv)students.zcu(tec)cz]
> Odesl�no: 12. dubna 1999 16:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: System tray
>
> Zdravim
>
> Myslim, ze uz tady dotaz byl, ale nemuzu ho najit. Rad bych vedel
> jak dostat ikonku meho programu do System Tray (vedle hodin), a
> pripadne jak ji za behu zmenit. A dalsi dotaz je jak skryt bezici
> program. Jde mi o to aby nemel viditelnou ikonu, ale aby byl v task
> listu.
>
> Dik J. Pospisil
> Kamenici versus Win-1250
[*] delphi(zv)alf.dingo(tec)cz - 12.4.1999 13:28:06 gmt
Opet zdravim,
je mozne a jak Foxackou tabulku v Kamenikach prihlizet a editovat
ve windowsech aniz bych pouzil konverzni funkce?
Predem diky, moc me to pomuze.
Bob Adresa funkce
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 12.4.1999 15:30:18
Ahoj,
potrebuju helfnout. Jak zjistim adresu fce dane komponenty? Jde to
vubec? Klasickou fci zjistim jako (zv)fce. Pokud vsak chci v komponente
pouzit adresu nejake metody, nevim, jak na to.
Priklad:
function TMoje.Ahoj:Boolean;
begin
end;
function TMoje.UkazAhoj:Boolean;
begin
showmessage(format('Pointer: %p,[(zv)TMoje.Ahoj]));
// Takhle to nejde, jako (zv)ahoj taky ne.
end;
Dik
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Vyrez v TImage
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 12.4.1999 13:49:42 met-1
Ahoj,
mam dalsi zacatecnicky dotaz. Ve formulari mam komponentu TImage a
neco do ni kreslim, jak uz to tak byva. :-) Soucasne ve stejne
komponente mam nakreslenou kolmou caru ("kurzor"), kterou hybu
doleva a doprava pres to, co jsem predtim nakreslil. Potreboval bych
poradit, jak si uschovat cast toho meho obrazku, ktery je momentalne
"pod" tou mou kolmou carou - kurzorem, abych pri presunu kurzoru na
dalsi pozici mohl obnovit to, co pod nim bylo predtim "schovane".
V podstate se jedna o stejny efekt, ktery v BP 7.0 delaly funkce
GetImage a PutImage. Tedy:
- vykreslim cely obrazek
- nez poprve vykreslim "kurzor", uschovam vyrez obrazku "pod" nim
- pri presunu "kurzoru" na novou pozici obnovim uschovany vyrez
obrazku, pak uschovam vyrez na nove pozici a nakonec nakreslim
"kurzor"
Dival jsem se do Helpu, ale nic takoveho jsem tam nenasel nebo jsem
slepy. :-) Poradi mi nekdo? Diky.
Jirka.
+-------------------------+---------------------------------+
| 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 |
+-----------------------------------------------------------+Vyrez v TImage
[*] Ing. Jaroslav K�e�ek - 12.4.1999 16:20:17
Pokud nepotrebujes nutne, aby kurzor byl nakreslen do TImage, doporucoval
bych vytvorit jeste jeden objekt ITmage jen pro kurzor. A s tim si muzes
hybat, skryvat, zobrazovat a prekreslovat, jak je libo, a podklad zustane
nezmenen.
Jinak bys musel mit nekde alokovanou napr. bitmapu o velikosti bounding boxu
kurzoru a do te vzdy zkopirovat obsah obdelniku, do ktereho kreslis kurzor.
Pro tuhle variantu se zkus podivat na hesla:
TRect
function Rect(ALeft, ATop, ARight, ABottom: Integer): TRect;
procedure TCanvas.CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect);
To by asi melo stacit.
Jaroslav Krecek
**********************************************
Ing. Jaroslav K�e�ek
-------------------------------------------------------------
GRAFEX - software �it� na m�ru
- harware pro Va�e pot�eby
-------------------------------------------------------------
http://web.iol(tec)cz/grafex
mailto:grafex(zv)iol(tec)cz
-------------------------------------------------------------
tel + SMS: +420.603.226103
tel + fax: +420.327.761992
**********************************************
-----P�vodn� zpr�va-----
Od: Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. dubna 1999 14:08
P�edm�t: Vyrez v TImage
>Ahoj,
>
>mam dalsi zacatecnicky dotaz. Ve formulari mam komponentu TImage a
>neco do ni kreslim, jak uz to tak byva. :-) Soucasne ve stejne
>komponente mam nakreslenou kolmou caru ("kurzor"), kterou hybu
>doleva a doprava pres to, co jsem predtim nakreslil. Potreboval bych
>poradit, jak si uschovat cast toho meho obrazku, ktery je momentalne
>"pod" tou mou kolmou carou - kurzorem, abych pri presunu kurzoru na
>dalsi pozici mohl obnovit to, co pod nim bylo predtim "schovane".
>
>V podstate se jedna o stejny efekt, ktery v BP 7.0 delaly funkce
>GetImage a PutImage. Tedy:
>- vykreslim cely obrazek
>- nez poprve vykreslim "kurzor", uschovam vyrez obrazku "pod" nim
>- pri presunu "kurzoru" na novou pozici obnovim uschovany vyrez
> obrazku, pak uschovam vyrez na nove pozici a nakonec nakreslim
> "kurzor"
>
>Dival jsem se do Helpu, ale nic takoveho jsem tam nenasel nebo jsem
>slepy. :-) Poradi mi nekdo? Diky.
>
>Jirka.
>+-------------------------+---------------------------------+
>| 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 |
>+-----------------------------------------------------------+GExperts .96.2
[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 12.4.1999 16:27:10
>
> GExperts Announce - http://www.gexperts.com/gexperts
>
> GExperts .96.2 is now available for Delphi 3 and Delphi 4. Changes in
> this version include enhancements to the Code Proofreader, Editor Experts,
> IDE Enhancements, Clean Directories, To Do List, and Expert Manager as well
> as a host of smaller changes and bug fixes. For a complete change log,
> please see the Readme.
>
> GExperts is a set of over 20 free experts for Delphi 3/4 designed to speed
> the development process. The most popular experts include an integrated
> grep search, component replacement, a procedure list to quickly jump
> anywhere in the current unit, a to do list that integrates with your source
> code, a unit dependencies map, the ability to correct typing mistakes in the
> IDE, an ASCII chart, a PE binary information viewer, customized IDE menu
> shortcuts, a favorite files manager, a code snippet librarian, an extensive
> class browser, and a clipboard history list. GExperts is developed as Open
> Source software, and I encourage user contributions to the product.
>
> Thanks to the following people for their help during the development of
> this version: Stefan Hoffmeister, Alex Petrov, Python, John Hansen,
> ArentJan Banck, Gerald Nunn, Angus Johnson, Anders Melander, Graham
> Widemanand, and Frank Zimmerman.
>
> Homepage: http://www.gexperts.com/gexperts/
> Readme/Changelog: http://www.gexperts.com/gexperts/Readme.txt
>
> Erik B. Berry
> eberry(zv)gexperts.com
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 2 6447184, +420 603 300093
ICQ: 10840067
System tray
[*] Jan Pospisil <pospa(zv)students.zcu(tec)cz> - 12.4.1999 14:31:57
Zdravim
Myslim, ze uz tady dotaz byl, ale nemuzu ho najit. Rad bych vedel
jak dostat ikonku meho programu do System Tray (vedle hodin), a
pripadne jak ji za behu zmenit. A dalsi dotaz je jak skryt bezici
program. Jde mi o to aby nemel viditelnou ikonu, ale aby byl v task
listu.
Dik J. Pospisil
Memo + Paradox
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 12.4.1999 16:47:04
Nevite nahodou nekdo jak nastavit
parametr typu memo (v Paradoxe, Delphi 1)
aby jsem mu priradil nejakou hodnotu
do SQL prikazu?
Query.FieldByName('pozn'). := some
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+Button
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 12.4.1999 17:06:27
> Jak obarvit button na nejakou barvu ?
****Button1.Color := clOlive; {treba -- seznam barev viz property Color}
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Typ RECORD v pascalu a v delphi
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 12.4.1999 17:11:25
Dobry podvecer preji...
Delam konverzi dat z jednoho dosovskeho programu do
windowsacke verze tehoz programu.
Mam pole nasledujicich recordu, ktere mi vygeneruje ten dosovsky
program napsany v pascalu:
TRefDatTyp = record
Typ: byte;
OdKdy: longint;
C_ID: string [3];
VC: longint;
Jmeno: string [25];
end;
Velikost tohoto zaznamu v pascalu je 39 bajtu (Typ-1, longint-4,
string[3]-4, string[25]-26), tentyz record nadefinovany v delphi
ma velikost 44 bajtu...takze se to docela slusne rozchazi...
Muze mi to nekdo vysvetlit?
Velikost zaznamu zjistuji funkci SizeOf.
Muze mi nekdo vysvetlit ten rozdil, nebo poradit jak na to (jak
vypreparovat ty jednotlive slozky)?
Diky
Petr
Adresa funkce
[*] Ing. Jaroslav K�e�ek - 12.4.1999 17:27:12
Nevim, na co to potrebujete. Pokud na to, abyste modifikoval chovani
programu tim, ze budete menit to, jaka funkce se bude volat, je lepsi pouzit
promennou typu procedura.
Tohle funguje:
type TAhoj = class
public
nejakaFce : function : Boolean of object;
function Ahoj : Boolean;
function MojeAhoj : Boolean;
end;
TAhojFce = function : Boolean;
var ObjAhoj : TAhoj;
nejakaAhojFce : TAhojFce;
function TAhoj.Ahoj : Boolean;
begin
ShowMessage('Ahoj.');
end;
function TAhoj.MojeAhoj : Boolean;
begin
ShowMessage('Zadne ahoj neukazu.');
end;
begin
ObjAhoj := TAhoj.Create;
ObjAhoj.nejakaFce := ObjAhoj.Ahoj;
showmessage(format('Pointer: %p',[pointer(ObjAhoj.nejakaFce)]));
end.
PS> Neni ale moze kombinovat promennou typu procedura a typu metoda. Typy
TfceA = function : Boolean; // promenna typu
procedura
TfceB = function : Boolean of object; // promenna typu metoda
Typy TFceA a TFceB jsou vyajemne nekompatibilni. No proste neni to C.
Jaroslav Krecek
**********************************************
Ing. Jaroslav Krecek
-------------------------------------------------------------
GRAFEX - software �it� na m�ru
- harware pro Va�e potreby
-------------------------------------------------------------
http://web.iol(tec)cz/grafex
mailto:grafex(zv)iol(tec)cz
-------------------------------------------------------------
tel + SMS: +420.603.226103
tel + fax: +420.327.761992
**********************************************
-----P�vodn� zpr�va-----
Od: Kolar Lubor <LuborK(zv)tnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. dubna 1999 15:47
P�edm�t: Adresa funkce
>Ahoj,
>potrebuju helfnout. Jak zjistim adresu fce dane komponenty? Jde to
>vubec? Klasickou fci zjistim jako (zv)fce. Pokud vsak chci v komponente
>pouzit adresu nejake metody, nevim, jak na to.
>Priklad:
>
>function TMoje.Ahoj:Boolean;
>begin
>end;
>
>function TMoje.UkazAhoj:Boolean;
>begin
>showmessage(format('Pointer: %p,[(zv)TMoje.Ahoj]));
>// Takhle to nejde, jako (zv)ahoj taky ne.
>end;
>
>Dik
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
>Typ RECORD v pascalu a v delphi
[*] Ing. Jaroslav K�e�ek - 12.4.1999 17:36:16
Je potreba vypnout Project>Options>Compiler>AlignedRecordFields. Pokud je to
zapnute, tak velikosti jenotlivych poli zaznamu jsou v nasobkach 4, tedy
dohromady 4+4+4+4+28=44 a ne 1+4+4+4+26=39.
Jaroslav Krecek
**********************************************
Ing. Jaroslav Krecek
-------------------------------------------------------------
GRAFEX - software �it� na m�ru
- harware pro Va�e potreby
-------------------------------------------------------------
http://web.iol(tec)cz/grafex
mailto:grafex(zv)iol(tec)cz
-------------------------------------------------------------
tel + SMS: +420.603.226103
tel + fax: +420.327.761992
**********************************************
-----P�vodn� zpr�va-----
Od: Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. dubna 1999 17:19
P�edm�t: Typ RECORD v pascalu a v delphi
Dobry podvecer preji...
Delam konverzi dat z jednoho dosovskeho programu do
windowsacke verze tehoz programu.
Mam pole nasledujicich recordu, ktere mi vygeneruje ten dosovsky
program napsany v pascalu:
TRefDatTyp = record
Typ: byte;
OdKdy: longint;
C_ID: string [3];
VC: longint;
Jmeno: string [25];
end;
Velikost tohoto zaznamu v pascalu je 39 bajtu (Typ-1, longint-4,
string[3]-4, string[25]-26), tentyz record nadefinovany v delphi
ma velikost 44 bajtu...takze se to docela slusne rozchazi...
Muze mi to nekdo vysvetlit?
Velikost zaznamu zjistuji funkci SizeOf.
Muze mi nekdo vysvetlit ten rozdil, nebo poradit jak na to (jak
vypreparovat ty jednotlive slozky)?
Diky
Petr
Typ RECORD v pascalu a v delphi
[*] Tomas Bradle <tomas(zv)cobra(tec)cz> - 12.4.1999 18:32:46
Zdravim,
Muze to byt tim, ze delphi zarovnava jednotlive polozky na 32 bitu. Tady se
jedna o byte a string[25], ktery je dlouhy 26 bytu - zaokrouhleno na 28
(delitelne 4). Vznika rozdil 5 bytu.
S temi polozkami se da normalne pracovat, jediny problem je binarni pristup
k cele strukture, napr. souborove operace. Lze toto ovlivnit v nastaveni
Project | Options, zalozka Compiler skupina Code generation polozka Aligned
record fields nebo direktivou {$A}.
Tomas
tomas(zv)cobra(tec)cz
-----P�vodn� zpr�va-----
Od: Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. dubna 1999 18:02
P�edm�t: Typ RECORD v pascalu a v delphi
Dobry podvecer preji...
Delam konverzi dat z jednoho dosovskeho programu do
windowsacke verze tehoz programu.
Mam pole nasledujicich recordu, ktere mi vygeneruje ten dosovsky
program napsany v pascalu:
TRefDatTyp = record
Typ: byte;
OdKdy: longint;
C_ID: string [3];
VC: longint;
Jmeno: string [25];
end;
Velikost tohoto zaznamu v pascalu je 39 bajtu (Typ-1, longint-4,
string[3]-4, string[25]-26), tentyz record nadefinovany v delphi
ma velikost 44 bajtu...takze se to docela slusne rozchazi...
Muze mi to nekdo vysvetlit?
Velikost zaznamu zjistuji funkci SizeOf.
Muze mi nekdo vysvetlit ten rozdil, nebo poradit jak na to (jak
vypreparovat ty jednotlive slozky)?
Diky
Petr
HitCounter
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.4.1999 18:38:32
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Mate nekdo napad, jak udelat v Delphi pocitadlo pristupu ?
Chtel bych klasicky hitcounter, ktery dostane id stranky,
a "masku" cislic a vrati zpet vysledny image ? Nebo jaxe
to dela.
Diky...
...Dobra.tvar okna aplikace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.4.1999 19:00:14
hynek.los.fei(zv)vsb(tec)cz wrote:
> NEvite nekdo jak pomoci~ api dosahnout -jineho tvaru nez je
> obdelnik?(resp. nejaka jeho varianta)
Zkus si prohlednout tyto funkce:
CreateEllipticRgn
CreatePolygonRgn
CombineRgn
SetWindowRgn
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Typ RECORD v pascalu a v delphi
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.4.1999 19:12:33
>Je potreba vypnout Project>Options>Compiler>AlignedRecordFields. Pokud je
to
>zapnute, tak velikosti jenotlivych poli zaznamu jsou v nasobkach 4, tedy
>dohromady 4+4+4+4+28=44 a ne 1+4+4+4+26=39.
podle me je lepsi (nazornejsi a prehlednejsi) uvest v deklaraci toho typu
sluvko packed.
TYPE
TRec = Packed Record
asasas
end;
Zdravi
D> Toman
Button
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.4.1999 18:39:58
Puvodni zprava, kterou napsal Radek Lev� dne 12 Apr 99,:
> Jak obarvit button na nejakou barvu ?
Ze zmenis jeho barvu, tj. property Color...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Win NT servise & Win 3.x
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.4.1999 18:39:50
Puvodni zprava, kterou napsal Martin 'Milo' Milesich dne 12 Apr 99,:
> 1. Ako sa daju v Delphi 4 vytvarat service pre WinNT?
Pokud mas patch 3, tak mas ve File - New specialne take service...
> 2. Daju sa v Delphi 4 robit aplikacie pre Win 3.x? A ked tak ako?
Ze si nainstalujes Delphi 1, ktere na CD najdes...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
BDE
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 12.4.1999 19:49:46
>>>Samozrejme, muzes nainstalovat a pouzivat jakoukoliv verzi BDE.
>>>Nezavisi to, jakou verzi Delphi (nebo neceho jineho) mas.
Chapu spravne, ze pokud pouziji stavajici D2 exe-vku na klientovi s
nainstalovanym D4-kovym BDE 5.01 (a prislusnymi SQL Linky), tak to pujde?
Leos
asstring
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 12.4.1999 19:59:37
Ahoj,
narazil jsem na zvlastni problem : pri prechodu z pristupu k databazi
MS Access 97 pres ODBC na native mi
var
S : string;
Q : TQuery;
begin
S := Q.fieldbyname ('fieldname').asstring;
zacal vracet string, ktery jsem ocekaval + #0 na konci. Nevite cim by
to mohlo byt ? (Delphi 3, bde 4.5)
Dekuji za odpoved
Vaclav Sazima
Typ RECORD v pascalu a v delphi
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 12.4.1999 20:17:31
Jenze to zarovnavani je tam kvuli rychlosti. Da se to taky udelat kus
od kusu tak ze misto record napises packed record.
Vaclav SAzima
Ing. Jaroslav K�e�ek wrote:
>
> Je potreba vypnout Project>Options>Compiler>AlignedRecordFields. Pokud je to
> zapnute, tak velikosti jenotlivych poli zaznamu jsou v nasobkach 4, tedy
> dohromady 4+4+4+4+28=44 a ne 1+4+4+4+26=39.
>
> Jaroslav Krecek
> **********************************************
> Ing. Jaroslav Krecek
> -------------------------------------------------------------
> GRAFEX - software �it� na m�ru
> - harware pro Va�e potreby
> -------------------------------------------------------------
> http://web.iol(tec)cz/grafex
> mailto:grafex(zv)iol(tec)cz
> -------------------------------------------------------------
> tel + SMS: +420.603.226103
> tel + fax: +420.327.761992
> **********************************************
>
> -----P�vodn� zpr�va-----
> Od: Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 12. dubna 1999 17:19
> P�edm�t: Typ RECORD v pascalu a v delphi
>
> Dobry podvecer preji...
>
> Delam konverzi dat z jednoho dosovskeho programu do
> windowsacke verze tehoz programu.
> Mam pole nasledujicich recordu, ktere mi vygeneruje ten dosovsky
> program napsany v pascalu:
>
> TRefDatTyp = record
> Typ: byte;
> OdKdy: longint;
> C_ID: string [3];
> VC: longint;
> Jmeno: string [25];
> end;
>
> Velikost tohoto zaznamu v pascalu je 39 bajtu (Typ-1, longint-4,
> string[3]-4, string[25]-26), tentyz record nadefinovany v delphi
> ma velikost 44 bajtu...takze se to docela slusne rozchazi...
> Muze mi to nekdo vysvetlit?
> Velikost zaznamu zjistuji funkci SizeOf.
>
> Muze mi nekdo vysvetlit ten rozdil, nebo poradit jak na to (jak
> vypreparovat ty jednotlive slozky)?
>
> Diky
> Petr
tvar okna aplikace
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 12.4.1999 20:19:19
Zkus se podivat do archivu, uz se to tady resilo a nekde se dal
ztahnout priklad na kulate okno (nebo dokonce mezikruzi).
Vaclav SAzima
Zbysek Hlinka wrote:
>
> hynek.los.fei(zv)vsb(tec)cz wrote:
>
> > NEvite nekdo jak pomoci~ api dosahnout -jineho tvaru nez je
> > obdelnik?(resp. nejaka jeho varianta)
>
> Zkus si prohlednout tyto funkce:
> CreateEllipticRgn
> CreatePolygonRgn
> CombineRgn
> SetWindowRgn
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
asstring
[*] Lubo Fule <fule(zv)sct.sk> - 12.4.1999 21:36:37
Delphi, myslim, ze uz od verzie 2 implementuje stringy podobne ako C, teda s
#0 na konci. Okrem toho este uchovava informaciu o dlzke stringu aby sa pri
zistovani dlzky (length) nemusela hladat koncova #0. Az na niektore
obmedzenia je napr. mozne pretypovat String na PChar a naopak (vhodne pri
API funkciach).
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Vaclav Sazima
Sent: Monday, April 12, 1999 8:00 PM
To: Delphi
Subject: asstring
Ahoj,
narazil jsem na zvlastni problem : pri prechodu z pristupu k databazi
MS Access 97 pres ODBC na native mi
var
S : string;
Q : TQuery;
begin
S := Q.fieldbyname ('fieldname').asstring;
zacal vracet string, ktery jsem ocekaval + #0 na konci. Nevite cim by
to mohlo byt ? (Delphi 3, bde 4.5)
Dekuji za odpoved
Vaclav Sazima
Packed DateTime ---> DateTime
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 12.4.1999 21:38:15
> > Nevite nekdo o funkci (v Delphi) ktera mi prevede DateTime
> > zabaleny do longintu (provedeno v pascalu pod DOSem prikazem
> > PackTime) na odpovidajici TDateTime v Delphi?
> > Tedy nejaky ekvivalent pascalskeho UnpackTime.
> Ahoj,
> Pomoci funkci DateTimeToFileDate a FileDateToDateTime (SysUtils).
*** No to neni ta spravna funkce, protoze Dosovska (Pascalska) fce
PackTime (z knihovny DOS) mi zabali DateTime, ktery obsahuje
Den, Mesic, Rok, Hodinu, Minutu, Sekundu, Setinu sekundy do
LONGINTu, ktery do te vyse uvedene fce nenarvu.
Pr. Dnesni DateTime (12. 4. 1999 20:48:34:69) se zabali na cislo
646751761
A ja potrebuji fci, ktera mi to prevede na TDateTime (v DELPHI).
Diky za kazdou radu
Petr
D4.TreeView.CustomDrawItem() - problemy s Font.Col
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 12.4.1999 22:47:35
Ja to resim jinak:
procedure TFormStrom.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with TreeView1.canvas.font do begin
case node.level of
0: color:=BarvaA;
1: color:=BarvaB;
2: color:=BarvaC;
3: color:=BarvaD;
4: color:=BarvaE;
else
color:=clWindowText;
end;
end;
if cdsSelected in State then begin
TreeView1.canvas.brush.color:=VyberBarva;
end else begin
TreeView1.canvas.brush.color:=clWindow;
end;
DefaultDraw:=true;
end;
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
----------
> Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: D4.TreeView.CustomDrawItem() - problemy s Font.Color := clXXXX
> Datum: 11. dubna 1999 23:02
>
> Petr Fejfar wrote:
> >
> > Hi all,
> >
> > Mam D4prof+U3 a uz skoro dva dny tu zapasim s metodou
> > TreeView.CustomDrawItem(), protoze jsem mj. narazil na potize s obarvovanim
> > textu. Nejlepsi bude problem demonstrovat primo na
> > DEMOS\CUSTOMDRAW\CustomDrawTreeView.
> >
> > Narazil jsem v podstate na tri (?) problemy:
>
> Ahoj,
>
> Dival jsem se na to a opravdu se to chova divne, jakmile chces ziskat
> DC (Canvas.Handle) tak to prestane fungovat. Patrne bych volil cestu
> nejmensiho odporu a ve vykreslovani pouzival primo volani API funkci.
> Jako priklad by to mohlo vypadat nejak takhle:
>
> procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
> Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
> var
> NodeRect, TextRect: TRect;
> Size: TSize;
> DC: HDC;
> begin
> DefaultDraw := False;
> with TTreeView(Sender) do
> begin
> DC := Canvas.Handle;
> NodeRect := Node.DisplayRect(False);
> TextRect := Node.DisplayRect(True);
> TextRect.Right := TextRect.Right + 30;
> FillRect(DC, NodeRect, Brush.Handle);
> if cdsSelected in State then
> FillRect(DC, TextRect, HBRUSH(COLOR_HIGHLIGHTTEXT));
> with ImageList1 do
> ImageList_DrawEx(Handle, 0, DC, TextRect.Left - Width, TextRect.Top, 0, 0, CLR_NONE, CLR_NONE, ILD_NORMAL);
> SelectObject(DC, Font.Handle);
> SetTextColor(DC, ColorToRGB(clRed));
> ExtTextOut(DC, TextRect.Left, TextRect.Top, ETO_CLIPPED, (zv)NodeRect, PChar(Node.Text), Length(Node.Text), nil);
> GetTextExtentPoint32(DC, PChar(Node.Text), Length(Node.Text), Size);
> SetTextColor(DC, ColorToRGB(clLime));
> ExtTextOut(DC, TextRect.Left + Size.cx + 5, TextRect.Top, ETO_CLIPPED, (zv)NodeRect, '***', 3, nil);
> if cdsSelected in State then DrawFocusRect(DC, TextRect);
> end;
> end;
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky programator
> * http://www.bojkot(tec)cz *
> ************************Packed DateTime ---> DateTime
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 22:59:56
Petr Vaclavek wrote:
> > Ahoj,
> > Pomoci funkci DateTimeToFileDate a FileDateToDateTime (SysUtils).
>
> *** No to neni ta spravna funkce, protoze Dosovska (Pascalska) fce
> PackTime (z knihovny DOS) mi zabali DateTime, ktery obsahuje
> Den, Mesic, Rok, Hodinu, Minutu, Sekundu, Setinu sekundy do
> LONGINTu, ktery do te vyse uvedene fce nenarvu.
>
> Pr. Dnesni DateTime (12. 4. 1999 20:48:34:69) se zabali na cislo
> 646751761
>
> A ja potrebuji fci, ktera mi to prevede na TDateTime (v DELPHI).
Nechapu ... :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
asstring
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:05:24
Vaclav Sazima wrote:
>
> Ahoj,
> narazil jsem na zvlastni problem : pri prechodu z pristupu k databazi
> MS Access 97 pres ODBC na native mi
> var
> S : string;
> Q : TQuery;
> begin
> S := Q.fieldbyname ('fieldname').asstring;
>
> zacal vracet string, ktery jsem ocekaval + #0 na konci. Nevite cim by
> to mohlo byt ? (Delphi 3, bde 4.5)
Ahoj,
Tahle chyba uz tu tusim kdysi byla. Pokud String obsahuje #0, tak by
to melo jit vyresit volanim: S := PChar(S);
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Nastaveni poctu kopii
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:07:26
Bene� Jaroslav wrote:
>
> Ahoj,
> mel bych jednoduchy dotaz - jak nastavit pocet kopii pri tisku pres
> zakladni TPrinter aniz bych tisknul vicekrat.
TPrinter.Copies
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Kamenici versus Win-1250
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:07:18
delphi(zv)alf.dingo(tec)cz wrote:
>
> Opet zdravim,
>
> je mozne a jak Foxackou tabulku v Kamenikach prihlizet a editovat
> ve windowsech aniz bych pouzil konverzni funkce?
>
> Predem diky, moc me to pomuze.
Ahoj,
Pokud mas D2 nebo D3 tak si stahni update na BDE 4.51 (v D4 uz je BDE 5.0), v
nem je jiz Foxpro driver. Konverze se bude provadet automaticky dle informace
o langdriveru v tabulce.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Win NT servise & Win 3.x
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:07:13
Pavel Cisar wrote:
>
> Haj hou!
>
> >1. Ako sa daju v Delphi 4 vytvarat service pre WinNT?
>
> Podivej se do dokumentace (helpu) k D4 a hledej NT service
> wizard.
K tomu jeste poznamka, pokud mas D4 Prof., tak moznost vytvaret service
je obsazena v update packu #3.
> >2. Daju sa v Delphi 4 robit aplikacie pre Win 3.x? A ked tak
> ako?
>
> Na CD D4 je take Delphi 1 k psani aplikaci pro Win 3.x. Bohuzel
> nelze vytvaren 16-bitove aplikace primo v D4.
No, rekl bych spise, bohudik .... :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Typ RECORD v pascalu a v delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:07:01
Petr Vaclavek wrote:
>
> Dobry podvecer preji...
>
> Delam konverzi dat z jednoho dosovskeho programu do
> windowsacke verze tehoz programu.
> Mam pole nasledujicich recordu, ktere mi vygeneruje ten dosovsky
> program napsany v pascalu:
>
> TRefDatTyp = record
> Typ: byte;
> OdKdy: longint;
> C_ID: string [3];
> VC: longint;
> Jmeno: string [25];
> end;
>
> Velikost tohoto zaznamu v pascalu je 39 bajtu (Typ-1, longint-4,
> string[3]-4, string[25]-26), tentyz record nadefinovany v delphi
> ma velikost 44 bajtu...takze se to docela slusne rozchazi...
> Muze mi to nekdo vysvetlit?
> Velikost zaznamu zjistuji funkci SizeOf.
Ahoj,
Musis ten zaznam definovat jako packed record, tim explicitne zabranis
zarovnavani. Vsechny zaznamy u kterych je funkce aplikace zavisla na
jejich fyzicke podobe by meli byt takto definovany. Rady typu vypnout
"Aligned record fields" v nastaveni kompilatoru nejsou zrovna idealni,
protoze funkcnost aplikace by nemela byt zavisla na tomto nastaveni.
Navic pouziti packed cini kod prehlednejsim.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
SpeedButton - Co vy NATO?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:16:26
delphi(zv)alf.dingo(tec)cz wrote:
>
> Zdravim vsechny,
>
> takovy maly dotaz.
>
> Mam nejakou cizi aplikaci, ktera ma Toolpanel a tam je tlacitko,
> ktere je zakazane. Dalo by se nejak udelat povolit z jine aplikace?
Ahoj,
Jedna se o Delphi aplikaci kde je pouzito (zastarale) tlacitko TSpeedButton,
nebo o tlacitko na Toolbaru z COMMCTL32 ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
SQL dotaz (zaznamy s is null)
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 12.4.1999 23:16:06
Preji pekny den.
tabulka T1, polozky A1, A2, A3
tabulka T2, polozky B1, B2, B3
Pokud zadam SQL vyber
SELECT * FROM T1, T2 WHERE T1.A1=T2.B1
nevyberou se zaznamy, kde A1 is null. To je celkem jasne.
Pokud ovsem potrebuji i tyto zaznamy (kde A1 IS NULL), jak toho dosahnu?
Jestlize uvedeny prikaz modifikuji na
SELECT * FROM T1, T2 WHERE (T1.A1=T2.B1) or (T1.A1 IS NULL)
vyberou se (pro A1 is null) vsechny kombinace s vazbou A1->B1, coz je samozrejme nesmysl.
Predpokladal bych, ze co se tyka zaznamu s prazdnym A1, budou vybrany tyto zaznamy z T1
s prazdnymi polozkami z T2.
Da se toho nejak dosahnout?
Za namety dekuji.
Honza.
Obslouzeni zprav okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:20:23
"Fryz, Zdenek" wrote:
>
> Ahoj
>
> vytvarim checkbox nasledujicim zpusobem:
>
> hChk:=CreateWindow('BUTTON','Check box',WS_VISIBLE or WS_CHILD or
> BS_AUTOCHECKBOX or BS_CHECKBOX, 30,24,182,13,Handle,0,hInst,nil);
>
> ale nevim jak provest odchyceni zprav takto vytvoreneho okna ...
>
> umi nekdo poradit ?
Ahoj,
Jde o to o jake zpravy ti jde, treba oznamovaci zpravy muzes odchytavat
v okne parenta. Potom, ten ovl.prvek takto vytvaris ve VCL nebo v nejake
mensi aplikaci kde neni VCL vubec pouzita ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
tvar okna aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:25:28
hynek.los.fei(zv)vsb(tec)cz wrote:
>
> NEvite nekdo jak pomoci~ api dosahnout -jineho tvaru nez je
> obdelnik?(resp. nejaka jeho varianta)
Ahoj,
Lze to udelat pomoci regionu, priklad je tady:
http://www.gnomehome.demon.nl/uddf/pages/zmisc3.htm#zmisc39
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************D4.TreeView.CustomDrawItem() - problemy s Font.Col
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.4.1999 23:32:14
"Ing. Zdenek Sraier" wrote:
>
> Ja to resim jinak:
>
> procedure TFormStrom.TreeView1CustomDrawItem(Sender: TCustomTreeView;
> Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
> begin
> with TreeView1.canvas.font do begin
> case node.level of
> 0: color:=BarvaA;
> 1: color:=BarvaB;
> 2: color:=BarvaC;
> 3: color:=BarvaD;
> 4: color:=BarvaE;
> else
> color:=clWindowText;
> end;
> end;
> if cdsSelected in State then begin
> TreeView1.canvas.brush.color:=VyberBarva;
> end else begin
> TreeView1.canvas.brush.color:=clWindow;
> end;
> DefaultDraw:=true;
> end;
Ahoj,
To jo, jenze timto zpusobem nelze menit vice barev textu v jedne polozce.
Vlastne tim pouze nastavis navratovou hodnotu na CDRF_NEWFONT a nechas
polozku vykreslit pomoci TreeView.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
None
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 12.4.1999 23:44:43
>Na�el jsem, zkusil jsem, ale nejsem schopen dos�hnout toho, aby m�sto
m�stn�
>po�ty volal Internet. N�jak se mot�m v tom nastaven� parametr� MAPIMessage.
>M��e� mi pros�m t� napsat p��klad pro implicitn� vol�n� OutlookExpress.
>D�k. Jara.
>
No to prave neexistuje. To se musi nastavit OutlookExpress (nebo to pres co
budes volat) jako "simple klient MAPI" ve Windowsich, resp. jde to v primo
v OE:
Nastroje => Moznosti
[x] Nastavit OE jako vychozi postovni program
[x] Nastavit OE jako vychozi klient simple MAPI
Pak asi restart masiny.
Hodne uspechu
eL..SQL dotaz (zaznamy s is null)
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 13.4.1999 00:46:32
SELECT * FROM T1 left outer join T2 on (T1.A1=T2.B1)
Uz to tady mnohokrat bylo.
S pozdravem, Ladislav Nagy
===========================================
Mgr. Ladislav Nagy
MFF UK & Baader Computer spol. s r.o.
tel. : 02 / 24941962, -63, -65 fax : -64
lnag7384(zv)mail.kolej.mff.cuni(tec)cz , Ladislav.Nagy(zv)bcpraha(tec)cz
SQL dotaz (zaznamy s is null)
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 13.4.1999 00:52:22
On Mon, 12 Apr 1999, Jan Naiser wrote:
> Preji pekny den.
>
> tabulka T1, polozky A1, A2, A3
> tabulka T2, polozky B1, B2, B3
>
> Pokud zadam SQL vyber
> SELECT * FROM T1, T2 WHERE T1.A1=T2.B1
> nevyberou se zaznamy, kde A1 is null. To je celkem jasne.
>
> Pokud ovsem potrebuji i tyto zaznamy (kde A1 IS NULL), jak toho dosahnu?
> Jestlize uvedeny prikaz modifikuji na
> SELECT * FROM T1, T2 WHERE (T1.A1=T2.B1) or (T1.A1 IS NULL)
> vyberou se (pro A1 is null) vsechny kombinace s vazbou A1->B1, coz je samozrejme nesmysl.
> Predpokladal bych, ze co se tyka zaznamu s prazdnym A1, budou vybrany tyto zaznamy z T1
> s prazdnymi polozkami z T2.
Neslo by to nejakym outer joinem? Tipoval bych
select * from T1, T2 where left join T1 on (T1.A1=T2.B1)
zdar
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Default hodnoty pri instalaci BDE
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 13.4.1999 06:06:53
>Proc se s tim psat do registru, kdyz to muzes napsat rovnou
>do TDatabase, kde je to mozne snadno i menit !?
>Pri pouziti TDatabase, pak nepotrebujes vubec
>zadny Alias a cestu k datum muzes snadno nacist bud z nejakeho INI
>souboru
>nebo muze byt cesta zadana relativne vuci vlastnimu EXE souboru. Ja
>osobne
>do registru nerad pisu, protoze
>1. Neni snadno prenosny na jiny pocitac.
>2. je to smetiste nejvetsiho "bordelu" windows
>3. Pri deinstalaci musis pamatovat na likvidaci vsech takovych zapisu,
> aby jsi se nezaradil mezi radu neporadnych programu, ktere z toho
> registru postupne cini to zminene smetste
>INI soubor prekopirujes jinam spolu s exe a snadno v nem muzes i
>editovat
>
>Zde je seznam parametru, ktere pouzivam, aniz bych potreboval ALIAS
>
>Database.Params:
>
>LANGDRIVER=anczechw
>SQLQRYMODE=
>SQLPASSTHRU MODE=SHARED AUTOCOMMIT
>SCHEMA CACHE TIME=-1
>MAX ROWS=-1
>BATCH COUNT=200
>ENABLE SCHEMA CACHE=FALSE
>SCHEMA CACHE DIR=
>ENABLE BCD=FALSE
>SERVER NAME=C:\Databaze\Data1.gdb
>USER NAME=SYSDBA
>PASSWORD=masterkey
>
>Pri prihlaseni pouze jde o to nahradit USER NAME
>a PASSWORD zadanymi udaji z prihlasovaciho dialogu.
>Pripadne lze nahradit i zvolenou cestu.
>Snadno se mohu i za behu prehlasit k jine databazi a
>nemusim kvuli tomu instalovat dalsi ALIAS
>
Ano, ale ne pro lokalni tabulky.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Memo + Paradox
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 13.4.1999 07:02:52
Jak jsem ke svemu uzasu zjistil, Paradox transakce podporuje.
Moc bych jim ale neveril.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Memo + Paradox
> Datum: 12. dubna 1999 8:42
>
> Mam v D1 aplikaci s pristupem na paradox.
> Jak mam nastavit parametr do SQL prikazu,
> kdyz dany field je typ Memo
> (Query.FieldByName('poznamka').?) ?
>
> Daji se v paradoxu pouzivat transakce?
> Myslim si, ze ne, ale kdo vi.
>
> A jeste: Da se nejak programove zjistit verze BDE?
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+HitCounter
[*] voltrr1.epr(zv)mail.cez(tec)cz - 13.4.1999 06:15:29
> Mate nekdo napad, jak udelat v Delphi pocitadlo pristupu ?
> Chtel bych klasicky hitcounter, ktery dostane id stranky,
> a "masku" cislic a vrati zpet vysledny image ? Nebo jaxe
Da se pouzit WebProvider z Delphree.
Pokud pockas tak nova verze umi zpracovavat i obrazky a s tou to pude uplne
super.
Radek
cestina pri porovnani dvou stringu
[*] mbartone(zv)Synthesia(tec)cz - 13.4.1999 07:24:28
Ahoj
prosim o radu
aplikace v D3/Prof, WNT4.0, tabulky Pdx.
Mam ComboBox1 a ComboBox2 ktere naplnim nazvy ulic. Uzivatel si vybere od jake
do jake ulice.
Behem programu pak porovnavam nalezenou ulici jestli padne do vybraneho
intervalu.
(Query uz lepe napsat nejde.- si myslim)
if (ulice >= ComboBox1.Text) AND (ulice <= ComboBox2.Text) then
je-li
ComboBox1.Text = Bro��kova
ComboBox2.Text = Dru�by
ulice = �echova
Vyhodnoceni vyrazu je pak chybne.
V ComboBoxu je to spravne zobrazeno podle abecedy,
ale jakmile je porovnava tak je to spatne � neni �.
Prevest to na cestinu bez diakritiky to nemuzu.
Milan
Kamenici versus Win-1250
[*] delphi(zv)alf.dingo(tec)cz - 13.4.1999 05:24:24 gmt
> delphi(zv)alf.dingo(tec)cz wrote:
> >
> > Opet zdravim,
> >
> > je mozne a jak Foxackou tabulku v Kamenikach prihlizet a editovat
> > ve windowsech aniz bych pouzil konverzni funkce?
> Pokud mas D2 nebo D3 tak si stahni update na BDE 4.51 (v D4 uz je BDE
5.0), v
> nem je jiz Foxpro driver. Konverze se bude provadet automaticky dle
informace
> o langdriveru v tabulce.
Mam D4, ale konverze se spravne neprovadi, v nastaveni DRIVERU mam onen
LangDriverm, ale lezou z toho nesmysly.
Co s tim?
Bob
Button
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.4.1999 07:27:33
> -----Original Message-----
> From: Petr Zahradnik [mailto:clexpert(zv)clexpert(tec)cz]
> Sent: Monday, April 12, 1999 7:40 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Button
>
>
> Puvodni zprava, kterou napsal Radek Lev� dne 12 Apr 99,:
>
> > Jak obarvit button na nejakou barvu ?
>
> Ze zmenis jeho barvu, tj. property Color...
>
Kdyby tak nejakou property Color mel...
TButton prebira barvu 3D objektu z windows a nelze ji zmenit.
Pokud chces mit barevne buttony, musis si sehnat nejakou
komponentu, ktera to umi (ruznych tlacitek je na webu dost)
anebo si pomoci jinymi standardnimi komponentami Delphi.
Nejjednodussi moznosti jsou:
- pouzit SpeedButton s bitmapou
- pouzit jiny objekt - jako nejvhodnejsi mi pripada
TPanel, kteremu budes v udalostech stisku tlacitka
mysi (MouseDown, MouseUp) prepinat BevelOuter
z Raised na Lowered a naopak, v OnClicku bude reakce na
click.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!SpeedButton - Co vy NATO?
[*] delphi(zv)alf.dingo(tec)cz - 13.4.1999 05:54:29 gmt
> delphi(zv)alf.dingo(tec)cz wrote:
> >
> > Mam nejakou cizi aplikaci, ktera ma Toolpanel a tam je tlacitko,
> > ktere je zakazane. Dalo by se nejak udelat povolit z jine aplikace?
>
> Petr Vones:
> Jedna se o Delphi aplikaci kde je pouzito (zastarale) tlacitko
TSpeedButton,
> nebo o tlacitko na Toolbaru z COMMCTL32 ?
Jak to tak vypada, tak ta aplikace NENI psana v Delphi,
takze to bude asi z COMMCTL32.
Mimochodem ta akce je i v menu, ale tez zakazana.
Bob
Skutecny rozmer desktopu
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 13.4.1999 08:02:01
Zkus tohle:
var
Rect: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, (zv)Rect, 0);
Left := Rect.Left;
Top := Rect.Top;
Width := Rect.Right - Rect.Left;
Height := Rect.Bottom - Rect.Top;
end;
----- Original Message -----
From: Martin Bodlak <vyvoj(zv)atlascon(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 12. dubna 1999 13:15
Subject: Skutecny rozmer desktopu
> Cau dneska podruhe,
>
> tento muj dotaz souvisi uzce s tim predchozim. Lze nejak zjistit
> velikost desktopu BEZ tech serepeticek kolem (taskbar, Office Launcher,
> etc.)? Vsechny fce pro zjisteni velikosti mi suverenne a bez zacervenani
> vraceji 1024x768...
>
> Ja totiz chci upravit polohu a velikost maximalizovaneho okna a pres
> WM_GETMINMAXINFO mi to moc nejde... :(((
>
> Diky.
>
> --
> Hezky den!
> ______________________________________________
> Martin Bodlak, ATLAS consulting, spol. s r. o.
> Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
> Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
> Tel. 069-6616432 (office), 0603-490135 (private)Packed DateTime ---> DateTime
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 13.4.1999 08:02:53
Nazdarek,
nemohla by to byt funkce TimeStampToDateTime??
Mirek
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 12. dubna 1999 22:59
Subject: Re: Packed DateTime ---> DateTime
> Petr Vaclavek wrote:
>
> > > Ahoj,
> > > Pomoci funkci DateTimeToFileDate a FileDateToDateTime (SysUtils).
> >
> > *** No to neni ta spravna funkce, protoze Dosovska (Pascalska) fce
> > PackTime (z knihovny DOS) mi zabali DateTime, ktery obsahuje
> > Den, Mesic, Rok, Hodinu, Minutu, Sekundu, Setinu sekundy do
> > LONGINTu, ktery do te vyse uvedene fce nenarvu.
> >
> > Pr. Dnesni DateTime (12. 4. 1999 20:48:34:69) se zabali na cislo
> > 646751761
> >
> > A ja potrebuji fci, ktera mi to prevede na TDateTime (v DELPHI).
>
> Nechapu ... :-)
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************
>Re[2]: Adresa funkce
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 13.4.1999 08:21:19
Dne Mon, 12 Apr 1999 17:27:12 +0200 Ing. Jaroslav K�e�ek napsal:
> Nevim, na co to potrebujete. Pokud na to, abyste modifikoval chovani
Ne, delam-li si komponentu, ktera mi do stringlistu nasouka vsechna
okna, potom musim API fci EnumWindows predat callback fci
EnumWindowsProc. No a protoze nechci pouzit nejakou globalni, chtel bych
to udelat tak, ze ji predam fci te komponenty.
> programu tim, ze budete menit to, jaka funkce se bude volat, je lepsi pouzit
> promennou typu procedura.
>
> Tohle funguje:
>
> type TAhoj = class
> public
> nejakaFce : function : Boolean of object;
> function Ahoj : Boolean;
> function MojeAhoj : Boolean;
> end;
> TAhojFce = function : Boolean;
> var ObjAhoj : TAhoj;
> nejakaAhojFce : TAhojFce;
Tak jsem to zkousel, dokonce i ta adresa fce vypada dobre, ale v realu
mi to pada :-(, Access violation at $FFFFFFFF. Co je divny, ze pokud mu
v Evaluatoru zmenim tu adresu callbacku z function of object na normalni
globalni fuknci, probehne to OK, cili evidentne je tam problem toho, ze
mu strkam funkci of object (ackoliv jsem ji deklaroval jako function of
object;stdcall)
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
cestina pri porovnani dvou stringu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.4.1999 08:30:21
>
> aplikace v D3/Prof, WNT4.0, tabulky Pdx.
>
> Mam ComboBox1 a ComboBox2 ktere naplnim nazvy ulic. Uzivatel
> si vybere od jake
> do jake ulice.
>
> Behem programu pak porovnavam nalezenou ulici jestli padne do
> vybraneho
> intervalu.
> (Query uz lepe napsat nejde.- si myslim)
>
> if (ulice >= ComboBox1.Text) AND (ulice <= ComboBox2.Text) then
>
> je-li
> ComboBox1.Text = Bro��kova
> ComboBox2.Text = Dru�by
> ulice = �echova
>
> Vyhodnoceni vyrazu je pak chybne.
> V ComboBoxu je to spravne zobrazeno podle abecedy,
Protozes to tam nahrnul z Query a tridil to server, ne?
> ale jakmile je porovnava tak je to spatne � neni �.
>
Z helpu o porovnavacich operatorech Delphi:
Strings are compared according to the ordering of the extended ASCII
character set. Character types are treated as strings of length 1.
Z toho plyne:
1) Neznam extended ASCII character set, ale predpokladam, ze dolnich
128 znaku je shodnych se zakladnim ASCII, tedy jsou tam u sebe nediakriticke
znaky, vsechny jsou mensi nez diakriticke.
2) 'A' < 'a', 'B' < 'a', pritom pro abecedni razeni plati
'A' = 'a', 'B' > 'a', navic pro abecedni razeni nehraji roli carky nad
samohlaskami.
> Prevest to na cestinu bez diakritiky to nemuzu.
V porovnavaci funkci samozrejme muzes.
Myslim, ze by na to melo byt API ve Windows, ale pro viceplatformove
provozovanou
aplikaci by to nemuselo byt ono - ruzne chyby => ruzne razeni na ruznych
verzich windows (WfW, W95, W98, WinNT vs. CZ, EN s cestinou - kombinaci je
hodne)
nejlepsi by asi bylo mit svou porovnavaci funkci.
Co by mela delat?
- rozhodne nejde prevadet porovnavane stringy je obycejne na nediakritiku,
to by se hackovana
pismenka pomichala s nehackovanymi. Melo by se to prevest na zakladni
ASCII a porovnat <=.
- hned na zacatku by se melo vse prevest na velka nebo mala pismena, protoze
jsou si rovna
- samohlasky s carkou by se mely nahradit necarkovanymi
- 'ch' by se melo nahradit 'h~' (je to vetsi nez 'h.' kde . je lib.
pismenko)
- nejakym zpusobem by ses mel vyporadat s hacky - nemam cas to poradne
promyslet -
mozna by stacilo nahradit kazde hackovane pismenko a pismenko, ktere muze
mit
hacek, tak aby se vyjadrilo, ze jdou po sobe. Teda konkretne pro 'c':
'c' bych nahradil dvojici 'c1'
'�' (c s hackem) bych nahradil dvojici 'c2'
takze c a "hacknute" c by se radily mezi 'b' a 'd' a pritom 'c1' < 'c2'
- vratit vysledek obycejneho porovnani (<=) upravenych parametru
Jestli tu porovnavaci funkci napises, tak mi ji, prosim, posli :-) Diky
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!InterBase
[*] Doller.Jozef(zv)zsr.sk - 13.4.1999 08:33:33
Ahoj vsetci Delphini.
Mam jeden pre mna neprekonatelny problem.
V tabulke Interbase so stlpcami a, b, c, d, e ...
Potrebujem nacitat do pola premenych hodnoty a, b, c, d, e ... z roznych
zaznamov
c = posledny zaznam
Napriklad stlpec a zaznam c-1
b zaznam c-2
c zaznam c-3
d zaznam c-2
pole premenych ma rozsah 1..59
Dufam ze som svoj problem jasne popisal
Vrele dik za kazdy tip.
> Jozef Doller
> �SR Stredisko informatiky, Kov��ska 3, 832 06 Bratislava
> tel.: 07 / 5058 5431
> mailto:Doller.Jozef(zv)zsr.sk
Obslouzeni zprav okna
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 13.4.1999 08:38:29
ovladaci prvek vytvarim v male aplikaci, kde neni VCL pouzita
a potrebuji reagovat na zaskrtnuti/odskrtnuti checkboxu,
nejak odchytit kliknuti na checkbox, nebo stisk klavesy ...
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 12.04.1999 23:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Obslouzeni zprav okna
>
> "Fryz, Zdenek" wrote:
> >
> > Ahoj
> >
> > vytvarim checkbox nasledujicim zpusobem:
> >
> > hChk:=CreateWindow('BUTTON','Check box',WS_VISIBLE or WS_CHILD or
> > BS_AUTOCHECKBOX or BS_CHECKBOX, 30,24,182,13,Handle,0,hInst,nil);
> >
> > ale nevim jak provest odchyceni zprav takto vytvoreneho okna ...
> >
> > umi nekdo poradit ?
>
> Ahoj,
>
> Jde o to o jake zpravy ti jde, treba oznamovaci zpravy muzes odchytavat
> v okne parenta. Potom, ten ovl.prvek takto vytvaris ve VCL nebo v nejake
> mensi aplikaci kde neni VCL vubec pouzita ?
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator
> * http://www.bojkot(tec)cz *
> ************************
> Typ RECORD v pascalu a v delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.4.1999 08:42:29
Petr Vaclavek wrote:
> Delam konverzi dat z jednoho dosovskeho programu do
> windowsacke verze tehoz programu.
> Mam pole nasledujicich recordu, ktere mi vygeneruje ten dosovsky
> program napsany v pascalu:
>
> TRefDatTyp = record
> Typ: byte;
> OdKdy: longint;
> C_ID: string [3];
> VC: longint;
> Jmeno: string [25];
> end;
>
> Velikost tohoto zaznamu v pascalu je 39 bajtu (Typ-1, longint-4,
> string[3]-4, string[25]-26), tentyz record nadefinovany v delphi
> ma velikost 44 bajtu...takze se to docela slusne rozchazi...
> Muze mi to nekdo vysvetlit?
> Velikost zaznamu zjistuji funkci SizeOf.
Delphi (2>) zaokrouhluje obsazenou pamet vzdy na 4 bajty. V tvem
pripade jsou za Typ 3 bajty volne a za Jmeno 2 bajty. Kdybys mel
za Typ napriklad jeste word, zbyl by ti volny jeden bajt. Je to
delane kvuli rychlosti. Kdyz napises napr. packed record, ziskas
souctovou velikost.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
SQL dotaz (zaznamy s is null)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.4.1999 08:45:07
Zkus
a)
SELECT *
FROM T1, outer T2 // nebo FROM outer T1, T2, ted fak nevim :-O
WHERE ...
b)
SELECT *
FROM T1, LEFT OUTER JOIN T2 ON T1.ID=T2.ID
WHERE ...
Dobra.
> ----------
> Od: Jan Naiser[SMTP:tua(zv)ltm(tec)cz]
> Odesl�no: 12. dubna 1999 23:16
> Komu: Delphi konference
> P�edm�t: SQL dotaz (zaznamy s is null)
>
> Preji pekny den.
>
> tabulka T1, polozky A1, A2, A3
> tabulka T2, polozky B1, B2, B3
>
> Pokud zadam SQL vyber
> SELECT * FROM T1, T2 WHERE T1.A1=T2.B1
> nevyberou se zaznamy, kde A1 is null. To je celkem jasne.
>
> Pokud ovsem potrebuji i tyto zaznamy (kde A1 IS NULL), jak toho
> dosahnu?
> Jestlize uvedeny prikaz modifikuji na
> SELECT * FROM T1, T2 WHERE (T1.A1=T2.B1) or (T1.A1 IS NULL)
> vyberou se (pro A1 is null) vsechny kombinace s vazbou A1->B1, coz je
> samozrejme nesmysl.
> Predpokladal bych, ze co se tyka zaznamu s prazdnym A1, budou vybrany
> tyto zaznamy z T1
> s prazdnymi polozkami z T2.
>
> Da se toho nejak dosahnout?
>
> Za namety dekuji.
>
> Honza.
>
> PCHAR a char *
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 13.4.1999 09:43:16
Delfini, tohle jsem jeste nezazil. Mam fci, ktery davam jako parametr
string a ona vola fci z DLL (psane v C++) a predava ji to jako pointer
na string (PChar). Cela vec se ma takto:
function Moje(Co:String):Boolean;
begin
Result:=FCEZDLL(Pchar(Co));
end;
Takhle to na 99% projde, ale obcas ta DLL hodi access violation. Pokud
to vsak udelam takto:
function Moje(Co:String):Boolean;
var pomoc:PChar;
begin
pomoc:=StrAlloc(1024);
StrPCopy(Pomoc,Co);
Result:=FCEZDLL(Pomoc);
StrFree(Pomoc);
end;
tak to projde vzdycky. Pritom je ale jisty, ze ta DLLfce ten retezec
nijak nemodifikuje. V cem muze bejt problem? Ja myslel, ze pretypovani
stringu stylu Pchar(Co) je uplne v pohode... :-0000 jsem zmatenej
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
D4.TreeView.CustomDrawItem() - problemy s Font.Col
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 13.4.1999 09:48:21
>Petr Vones wrote:>Dival jsem se na to a opravdu se to chova divne, jakmile chces ziskat
>DC (Canvas.Handle) tak to prestane fungovat. Patrne bych volil cestu
>nejmensiho odporu a ve vykreslovani pouzival primo volani API funkci.
>Jako priklad by to mohlo vypadat nejak takhle:
Hi,
Tak jsem to cele prepsal pomoci API vcetne teckovane cary. Tu nakonec
kreslim pomoci SetPixel(), protoze PS_COSMETIC pero stylu PS_ALTERNATE mi
pod W98 kreslilo plnou caru a PS_USERSTYLE jsem uz nezkousel, protoze v SDK
stoji, ze pod W95 neni podporovano, stejne jako to psali u PS_ALTERNATE,
takze jim uz budu verit :-)). Nejvic jsem se vyblnul s nahradou
Node.DisplayRect(), protoze ta je navrzena na jeden typ pisma.
Thanx, pf
Re[2]: Adresa funkce
[*] delphi(zv)htkpro(tec)cz - 13.4.1999 9:49:08
Vsechny funkce objektu (metody) maji implicitni parametr self, coz je
pointer na instanci tridy ktera metodu vola. Proto to musi spadnout na
access violation. Pro jakekoliv callback funkce z windows se musi pouzit
globalni procedura.
S pozdravem
Jan Kadlecek
www.htkpro(tec)cz
>
>Dne Mon, 12 Apr 1999 17:27:12 +0200 Ing. Jaroslav K�e�ek napsal:
>
>> Nevim, na co to potrebujete. Pokud na to, abyste modifikoval chovani
>Ne, delam-li si komponentu, ktera mi do stringlistu nasouka vsechna
>okna, potom musim API fci EnumWindows predat callback fci
>EnumWindowsProc. No a protoze nechci pouzit nejakou globalni, chtel bych
>to udelat tak, ze ji predam fci te komponenty.
>> programu tim, ze budete menit to, jaka funkce se bude volat, je lepsi
>pouzit
>> promennou typu procedura.
>>
>> Tohle funguje:
>>
>> type TAhoj = class
>> public
>> nejakaFce : function : Boolean of object;
>> function Ahoj : Boolean;
>> function MojeAhoj : Boolean;
>> end;
>> TAhojFce = function : Boolean;
>> var ObjAhoj : TAhoj;
>> nejakaAhojFce : TAhojFce;
>Tak jsem to zkousel, dokonce i ta adresa fce vypada dobre, ale v realu
>mi to pada :-(, Access violation at $FFFFFFFF. Co je divny, ze pokud mu
>v Evaluatoru zmenim tu adresu callbacku z function of object na normalni
>globalni fuknci, probehne to OK, cili evidentne je tam problem toho, ze
>mu strkam funkci of object (ackoliv jsem ji deklaroval jako function of
>object;stdcall)
>
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
>
>
----------------------------------------------------------------------------
BDE
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.4.1999 09:50:12
Ano.> >>>Samozrejme, muzes nainstalovat a pouzivat jakoukoliv verzi BDE.
> >>>>Nezavisi to, jakou verzi Delphi (nebo neceho jineho) mas.
>
>
> >Chapu spravne, ze pokud pouziji stavajici D2 exe-vku na klientovi s
> >nainstalovanym D4-kovym BDE 5.01 (a prislusnymi SQL Linky), tak to
> pujde?
> >Leos
> cestina pri porovnani dvou stringu
[*] Lubo Fule <fule(zv)sct.sk> - 13.4.1999 09:58:45
Musis pouzit funkciu AnsiStrComp (pozri help) pre porovnanie stringov.
AnsiStrComp berie do uvahy nastavene narodne prostredie. Funkcia vyzaduje
c-ckove retazce (PChar), preto treba urobit pretypovanie. Syntax by vyzerala
v Tvojom pripade takto:
AnsiStrComp(PChar(ComboBox1.Text), PChar(ComboBox2.Text))
vrati =0 ak ComboBox1.Text = ComboBox2.Text
>0 ak ComboBox1.Text > ComboBox2.Text
<0 ak ComboBox1.Text < ComboBox2.Text
Lubo.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
mbartone(zv)Synthesia(tec)cz
Sent: Tuesday, April 13, 1999 7:24 AM
To: delphi-l(zv)fwd(tec)cz
Subject: cestina pri porovnani dvou stringu
Ahoj
prosim o radu
aplikace v D3/Prof, WNT4.0, tabulky Pdx.
Mam ComboBox1 a ComboBox2 ktere naplnim nazvy ulic. Uzivatel si vybere od
jake
do jake ulice.
Behem programu pak porovnavam nalezenou ulici jestli padne do vybraneho
intervalu.
(Query uz lepe napsat nejde.- si myslim)
if (ulice >= ComboBox1.Text) AND (ulice <= ComboBox2.Text) then
je-li
ComboBox1.Text = Bro��kova
ComboBox2.Text = Dru�by
ulice = �echova
Vyhodnoceni vyrazu je pak chybne.
V ComboBoxu je to spravne zobrazeno podle abecedy,
ale jakmile je porovnava tak je to spatne � neni �.
Prevest to na cestinu bez diakritiky to nemuzu.
Milan
Packed DateTime ---> DateTime
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 13.4.1999 09:59:08
> Petr Vaclavek wrote:
>
> > > Ahoj,
> > > Pomoci funkci DateTimeToFileDate a FileDateToDateTime (SysUtils).
> >
> > *** No to neni ta spravna funkce, protoze Dosovska (Pascalska) fce
> > PackTime (z knihovny DOS) mi zabali DateTime, ktery obsahuje
> > Den, Mesic, Rok, Hodinu, Minutu, Sekundu, Setinu sekundy do
> > LONGINTu, ktery do te vyse uvedene fce nenarvu.
> >
> > Pr. Dnesni DateTime (12. 4. 1999 20:48:34:69) se zabali na cislo
> > 646751761
> >
> > A ja potrebuji fci, ktera mi to prevede na TDateTime (v DELPHI).
>
> Nechapu ... :-)
>
Tak jeste jednou:
Mam jeden program v PASCALU, ktery uklada nejaky data do
souboru
data = record
X, Y: integer;
DT: longint;
end;
kde DT je v te dobe aktualni cas, ktery se ziskal prikazem GetDate
a GetTime (jednotka DOS) no a aby se usetrilo misto tak se tento
typ DateTime zabali procedurou PackTime na longint.
(Zpet se da zase rozpalit procedurou UnpackTime, obe dve
procedurky jsou v jednotce DOS).
No a ja ted delam odobny program, jenze pro windows (tedy v
DELPHI) a potrebuji zkonvertovat tyto data...
S ruznou velikosti recordu jsem si jiz diky teto konferenci poradil
(diky za rady) ale porad nevim, jak rozbalit ten longint na neco
jineho, s cim bych mohl normalne pracovat :-(
Tak snad uz to bude jasne....
Nebo nevite nekdo aspon jak se to do toho longintu bali?
Diky za rady
Petr
Default hodnoty pri instalaci BDE
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.4.1999 10:00:41
Ja bych k tomu rad doplnil neco, co mnozi z Vas jiste budou
povazovat za vec jasnou a znamou, ale ja jsem o tom donedavna
vubec nevedel :-O V pripade souborove databaze (ne tedy SQL
serveru) lze jako parametr zadat i adresar, kde ta DB je; tedy:
PATH=C:\esta\k\databazi
Moooooc mi to ulehcilo praci, pac jsem jako trubka do kazdeho
TQuery nastavoval jako Query1.DataBaseName prave tu cestu
do DB a dovedete si predstavit, co je to za pakarnu, kdyz se
ma tato vlastnost nastavit treba u desitky Query >:-)
D.
> ----------
> Od: Jaro[SMTP:jaro(zv)sinea(tec)cz]
> Odesl�no: 12. dubna 1999 14:34
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Default hodnoty pri instalaci BDE
>
> Proc se s tim psat do registru, kdyz to muzes napsat rovnou
> do TDatabase, kde je to mozne snadno i menit !?
> Pri pouziti TDatabase, pak nepotrebujes vubec
> zadny Alias a cestu k datum muzes snadno nacist bud z nejakeho INI
> souboru
> nebo muze byt cesta zadana relativne vuci vlastnimu EXE souboru. Ja
> osobne
> do registru nerad pisu, protoze
> 1. Neni snadno prenosny na jiny pocitac.
> 2. je to smetiste nejvetsiho "bordelu" windows
> 3. Pri deinstalaci musis pamatovat na likvidaci vsech takovych zapisu,
> aby jsi se nezaradil mezi radu neporadnych programu, ktere z toho
> registru postupne cini to zminene smetste
> INI soubor prekopirujes jinam spolu s exe a snadno v nem muzes i
> editovat
>
> Zde je seznam parametru, ktere pouzivam, aniz bych potreboval ALIAS
>
> Database.Params:
>
> LANGDRIVER=anczechw
> SQLQRYMODE=
> SQLPASSTHRU MODE=SHARED AUTOCOMMIT
> SCHEMA CACHE TIME=-1
> MAX ROWS=-1
> BATCH COUNT=200
> ENABLE SCHEMA CACHE=FALSE
> SCHEMA CACHE DIR=
> ENABLE BCD=FALSE
> SERVER NAME=C:\Databaze\Data1.gdb
> USER NAME=SYSDBA
> PASSWORD=masterkey
>
> Pri prihlaseni pouze jde o to nahradit USER NAME
> a PASSWORD zadanymi udaji z prihlasovaciho dialogu.
> Pripadne lze nahradit i zvolenou cestu.
> Snadno se mohu i za behu prehlasit k jine databazi a
> nemusim kvuli tomu instalovat dalsi ALIAS
>
> Jaro
>
>
>
>
>
> >Nektere hodnoty nastaveni BDE jsou ulozeny v registru. Ja to resim
> tak, ze
> >instalacni program zapise tyto udaje primo do registru (co tam zapsat
> jsem
> >odkoukal od toho, co tam bylo zapsano po mem nastaveni).
> >
> >J. Nadhera
> >
> >-----P�vodn� zpr�va-----
> >Od: Jiri Binder <jiri.binder(zv)pedf.cuni(tec)cz>
> >Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> >Datum: 9. dubna 1999 20:29
> >P�edm�t: Default hodnoty pri instalaci BDE
> >
> >
> >Pro pripravu instalace pouzivam InstalShield dodavany s D4. Chtel
> >jsem, aby se pri instalaci nastavily nektere parametry (napr. lang.
> >driver, format data a casu pro Pdox). Myslel jsem, ze napr. by si
> >mohl za default idapi32.cfg vzit ten co ma u sebe v adresari redist
> >nebo hexa editorem upraveny idapi.cnf tamtez. Neuspel jsem.
> >Nemate to nekdo vyreseno?
> >
> > Jiri Binder
> >
> >
> kontrola textu II.
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 13.4.1999 10:11:13
> standa kunc wrote:
>Presto, pokud nekdo ma napad, jak to naprogramovat (hlavne ta logicka
uvaha), at prosim prispeje.
Hi,
Ja bych to resil zpusobem, kterym pracuji napr. textove orientovane VCS
systemy nebo funkce pro porovnavani textovych souboru u slusnejsich editoru
jako je ME (Na INETu by se asi daly sehnat zdrojovky v C napr. od GNU RCS a
pokud vlastnis ME, tak v adresari SRC je makro fc.s, ktere obsahuje funkci
pro porovnavani textovych souboru jiz od DOSovske verze). Ani tyto algoritmy
nejsou dokonale, ale chybu detekuji stroprocente. Samozrejme pro urcite
tridy chyb indukuji dalsi falesne chyby, ale s tim se asi na syntakticke
urovni nic moc neda delat. IMHO je jadro problemu v tom, jak dobre se
dokazes zasynchronizovat na spravny text po chybe resp. rozeznat konec
chyby.
Kdybych to mel psat, tak bych zrejme volil pro tento typ ulohy temer idealni
technologii JSP s podporou SGP, abych se "udrzel nad vodou" tj. aby mi
neutikala stuktura a povaha dat. Na prvni pohled mi z toho lezou sekvencni
soubory (symboliku jsem pouzil z SGP, otocenou o 90 stupnu):
vzorovy text
* radek
poslounost znaku
separator
napsany text
* posloupnost znaku
/ dobra
/ chybna
tak ze by z toho po kompozici mohlo vylezt neco takoveho:
porovnavany text
* radek
/ dobry
/ spatny
* posloupnost znaku
/ dobra
/ chybna
klasifikace chyby
To je skoro vse. Zbytek by se schoval do podminek iteraci a selekci, ktere
musi zajistit synchronizaci na spravny radek/posloupnost textu po chybe.
Bye, pf
OLE DB a ODBC (Delphree)
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 13.4.1999 10:20:52
Ahojte,
Stahnul jsem si OLE DB komponenty z Delphree a taky OLE DB SDK. V
prikladech v OLE DB SDK (treba Query Demo) se pripojim v pohode na
databazy Acces pres ODBC. Nemuzu vsak donutit TDFODatabase, aby se
pripojila stejnym zpusobem.
Ma otazka tedy je, jestli to, o co se pokousim je vubec mozne a jestli
se vlastne nesnazim o uplnou kravinu.
Jsem zvedavej, cau
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
D4.TreeView.CustomDrawItem() - problemy s Font.Col
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 13.4.1999 10:27:05
> Norbert ADAMKO wrote:> Ja pouzivam TTreeNT (v 2.2) - najdes ho na http://www.delphipages.com
> Ak by si ho nenasiel, mozem Ti ho poslat.
>
> Nie je to sice odvodene od TTreeView, ale ma to kopu moznosti, ktore
> TTreeView nema.
> Je to so zdrojakmi a az na male chybicky to aj funguje.
Hi,
diky za tip. Stahnul jsem si to a zbezne prohledl, na prvni pohled to
skutecne vypada pouzitelne. Zatim jsem to nevyzkousel, protoze ten TTreeView
mam zabudovnay do pomerne sloziteho formulare a vyzkouset jeho nahradu mi
pripadalo znacne pracnejsi nez si vykreslit canvas pomoci API funkci, viz
odpoved Petru Vonesovi.
Thanx, pf
TListView-sort
[*] Petr Posp�il - 13.4.1999 10:29:30
Zdravim vas!
Komponenta TListView obsahuje udalost ' onColumnclick' .
Pomoci teto udalosti se zobrazene radky abecedne seradi a to vzestupne a
nebo sestupne.
Muze mi prosim vas nekdo napsat kousek kodu jak se to dela,aby to fungovalo?
Dekuji za kazdou informaci.
pospisilp(zv)seznam(tec)cz
Draha mysi
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 13.4.1999 10:34:33
Dobry den.
Mam problem. Potrebuji s pomerne velkou presnosti zmerit drahu, kterou mys
"ujede" pri stisknutem tlacitku.
Zkousel jsem to pres udalost MouseMove formulare a pricitat zmeny
vzdalenosti, ale narazil jsem na to, ze hodne zalezi na rychlosti pohybu
(pri sviznejsim prejeti ziskam tak 10-15 vzorku polohy na temer celou
obrazovku coz je moc malo. No a kdyz zakroutim mysi dokolecka nejsou
vysledky ani priblizne.
Kde se "povesit" na udaje a jak ti zaridit.
Idealni by byl citac zvysujici se o jednu pri presunu mysi o jeden pixel.
Tim by odpadla nutnost jakychkoliv dalsich vypoctu.
Diky za kazdou radu.
eL..Vyrez v TImage
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 13.4.1999 10:40:34
Jiri Novotny wrote:
> Ahoj,
>
> mam dalsi zacatecnicky dotaz. Ve formulari mam komponentu TImage a
> neco do ni kreslim, jak uz to tak byva. :-) Soucasne ve stejne
> komponente mam nakreslenou kolmou caru ("kurzor"), kterou hybu
> doleva a doprava pres to, co jsem predtim nakreslil. Potreboval bych
> poradit, jak si uschovat cast toho meho obrazku, ktery je momentalne
> "pod" tou mou kolmou carou - kurzorem, abych pri presunu kurzoru na
> dalsi pozici mohl obnovit to, co pod nim bylo predtim "schovane".
caves,
preco nepouzijes pri kresleni ciary nasledovne nastavenie :
Pen.Mode:= pmNot
t.j. vykreslis ciaru, pohnes mysou, vykreslis ciaru opat na starom mieste
(a tym sa ti obnovi povodny obrazok) a vykreslis novu (premiestnenu) ciaru.
to musi fungovat ...
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
cestina pri porovnani dvou stringu
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 13.4.1999 10:40:08
1.
Divim se, ze ti nefunguje select. Kdyz je to spravne setridene...
select * from ulice where :param1<=ulice and ulice <= :param2
Proc to nejde takto?
2.
Pouzij funkci AnsiCompareStr, to by melo byt OK.
Honza Sebelik
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: mbartone(zv)Synthesia(tec)cz
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: cestina pri porovnani dvou stringu
> Datum: 13. dubna 1999 7:24
>
>
>
> Ahoj
>
> prosim o radu
>
> aplikace v D3/Prof, WNT4.0, tabulky Pdx.
>
> Mam ComboBox1 a ComboBox2 ktere naplnim nazvy ulic. Uzivatel si vybere od jake
> do jake ulice.
>
> Behem programu pak porovnavam nalezenou ulici jestli padne do vybraneho
> intervalu.
> (Query uz lepe napsat nejde.- si myslim)
>
> if (ulice >= ComboBox1.Text) AND (ulice <= ComboBox2.Text) then
>
> je-li
> ComboBox1.Text = Bro��kova
> ComboBox2.Text = Dru�by
> ulice = �echova
>
> Vyhodnoceni vyrazu je pak chybne.
> V ComboBoxu je to spravne zobrazeno podle abecedy,
> ale jakmile je porovnava tak je to spatne � neni �.
>
> Prevest to na cestinu bez diakritiky to nemuzu.
>
> Milan
Jak zjistit spusteni aplikace
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 13.4.1999 10:53:24
Ahoj,
tusim uz to tady kdysi zaznelo, ale v archivu jsem nepochodil. Potrebuji na
jednom pocitaci udelat kontrolu spoustenych softu. Jde mi o to, ze pocitac
je na verejnem miste a nemam zajem, aby tam lidi strkali diskety a nosili si
s sebou poledit a regedit.exe. Takze disketovka v nem neni, ale druhym
problemem je Internet. Je velice jednoduche poslat si nekam do mailu
jakykoliv exac a ten si pak pres Internet stahnout na dany pocitac. Vim, ze
kazdy zkuseny uzivatel by soft vyradil, ale me jde predevsim o vypaleni
rybnika tem nejzakladnejsim "chytrakum".
Potreboval bych tedy poradit, jak povesit aplikaci na system tak, abych mel
kontrolu nad veskerymi spoustenymi programy, kde zjistim jejich nazev,
handle okna atd. Pokud zjistim, ze jde o poledit nebo regedit, tak jim poslu
wm_quit nebo tak neco. Podotykam, ze to bude bezet pod WIN98.
Prosim, nerozvadejte debatu o tom, zda to nekdo vyradi nebo nevyradi, at
zase konferenci nezasirame....
Diky moc
PK
Zjisteni predchozi instance programu
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 13.4.1999 11:13:01
Cau vsichni ...
nevite negdo nahodou, jak se da zajistit, abych nepustil jeden exac vicekrat
...
zatim predem diky za kazdej namet ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)iol(tec)cz
__________________
Razeni podle ceske abecedy ...
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 13.4.1999 11:23:36
Preji dobreho dne.
Mam takovy problem, omlouvam se, pokud uz to zde bylo pretrasano.
Potrebuji udelat select, ale razen podle ceske abecedy (pomoci order by)
Jakym zpusobem to lze zaridit, aby se s, c apod. pismena s hackem
neobjevovala az na konci. Pokud to jde v DBE administratoru
pouze nastavenim LangDriveru, jaky tam ma byt (zkoousel jsem asi
tri, ale bez uspechu). Jinak mam D4.
Diky za kazdou pomoc
Pavel
Zjisteni predchozi instance programu
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 13.4.1999 11:24:59
> nevite negdo nahodou, jak se da zajistit, abych nepustil
> jeden exac vicekrat
Mrkni na http://www.tda(tec)cz/vita/Draha mysi
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 13.4.1999 11:31:37
On Tue, 13 Apr 1999, eL wrote:
> Dobry den.
> Mam problem. Potrebuji s pomerne velkou presnosti zmerit drahu, kterou mys
> "ujede" pri stisknutem tlacitku.
> Zkousel jsem to pres udalost MouseMove formulare a pricitat zmeny
> vzdalenosti, ale narazil jsem na to, ze hodne zalezi na rychlosti pohybu
> (pri sviznejsim prejeti ziskam tak 10-15 vzorku polohy na temer celou
> obrazovku coz je moc malo. No a kdyz zakroutim mysi dokolecka nejsou
> vysledky ani priblizne.
> Kde se "povesit" na udaje a jak ti zaridit.
> Idealni by byl citac zvysujici se o jednu pri presunu mysi o jeden pixel.
Ja ti neporadim. Jen chci polemizovat s ^.
a) b)
_| /
_| /
_| /
Kdyz by nekdo tahnul na severovychod a draha by se pocitala bod po bodu,
tak by ti muselo hazet neco mezi delkou drahy a) a b), jenze a) je dvakrat
delsi nez b).
Napada me prokladat nekolika poslednimy body (treba trema) polynom
nejakyho radu (treba 2) a pak spocitat delku krivky (vyintegrovat to) a to
by mohla byt (myslim) pomerne dobra aproximace skutecne drahy.
Hmm, jestli to naprogramujes, tak mi to plz posli.
cau
Lukas
P.S. nebylo by zjistovani polohy pomoci timeru presnejsi?
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Packed DateTime ---> DateTime
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.4.1999 11:43:55
Petr Vaclavek wrote:
>
> > Petr Vaclavek wrote:
> >
> > > > Ahoj,
> > > > Pomoci funkci DateTimeToFileDate a FileDateToDateTime (SysUtils).
> > >
> > > *** No to neni ta spravna funkce, protoze Dosovska (Pascalska) fce
> > > PackTime (z knihovny DOS) mi zabali DateTime, ktery obsahuje
> > > Den, Mesic, Rok, Hodinu, Minutu, Sekundu, Setinu sekundy do
> > > LONGINTu, ktery do te vyse uvedene fce nenarvu.
> > >
> > > Pr. Dnesni DateTime (12. 4. 1999 20:48:34:69) se zabali na cislo
> > > 646751761
> > >
> > > A ja potrebuji fci, ktera mi to prevede na TDateTime (v DELPHI).
> >
> > Nechapu ... :-)
> >
> Tak jeste jednou:
>
> Mam jeden program v PASCALU, ktery uklada nejaky data do
> souboru
> data = record
> X, Y: integer;
> DT: longint;
> end;
>
> kde DT je v te dobe aktualni cas, ktery se ziskal prikazem GetDate
> a GetTime (jednotka DOS) no a aby se usetrilo misto tak se tento
> typ DateTime zabali procedurou PackTime na longint.
> (Zpet se da zase rozpalit procedurou UnpackTime, obe dve
> procedurky jsou v jednotce DOS).
>
> No a ja ted delam odobny program, jenze pro windows (tedy v
> DELPHI) a potrebuji zkonvertovat tyto data...
> S ruznou velikosti recordu jsem si jiz diky teto konferenci poradil
> (diky za rady) ale porad nevim, jak rozbalit ten longint na neco
> jineho, s cim bych mohl normalne pracovat :-(
>
> Tak snad uz to bude jasne....
Vzdyt to jsem ale mel take puvodne namysli, je na to funkce FileDateToDateTime.
Priklad DOS:
uses Dos, Crt;
var
DT: DateTime;
PackDT: Longint;
W: Word;
F: File;
begin
with DT do
begin
GetDate(Year, Month, Day, W);
GetTime(Hour, Min, Sec, W);
end;
PackTime(DT, PackDT);
Assign(F, 'DATA.DAT');
Rewrite(F, 1);
BlockWrite(F, PackDT, Sizeof(PackDT));
Close(F);
end.
A pak z Delphi:
procedure TForm1.Button1Click(Sender: TObject);
var
PackDT: Longint;
S: TFileStream;
DT: TDateTime;
begin
S := TFileStream.Create('DATA.DAT', fmOpenRead);
S.ReadBuffer(PackDT, Sizeof(PackDT));
S.Free;
DT := FileDateToDateTime(PackDT);
ShowMessage(FormatDateTime('ddddd tt', DT));
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Zjisteni predchozi instance programu
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 13.4.1999 11:43:55
-----Original Message-----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: Tuesday, 13 April 1999 11:39
Subject: RE: Zjisteni predchozi instance programu
>> nevite negdo nahodou, jak se da zajistit, abych nepustil
>> jeden exac vicekrat
>
>Mrkni na http://www.tda(tec)cz/vita/
no jo ... ale to nefunguje pro NT ... krome toho jsem myslel, ze si to treba
TForm nebo Application nejak hlidaj sami ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)iol(tec)cz
__________________
cestina pri porovnani dvou stringu
[*] David Hrbac <hrbac.david(zv)usa(tec)net> - 13.4.1999 11:56:13
AnsiCompareStr compares strings based on the current Windows locale and is
case sensitive.
function AnsiCompareStr(const S1, S2: string): Integer;
Description
AnsiCompareStr compares S1 to S2, with case sensitivity. The compare
operation is controlled by the current Windows locale. The return value is:
Condition Return Value
S1 > S2 > 0
S1 < S2 < 0
S1 = S2 = 0
David Hrbac
-----P�vodn� zpr�va-----
Od: mbartone(zv)Synthesia(tec)cz <mbartone(zv)Synthesia(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. dubna 1999 7:39
P�edm�t: cestina pri porovnani dvou stringu
Ahoj
prosim o radu
aplikace v D3/Prof, WNT4.0, tabulky Pdx.
Mam ComboBox1 a ComboBox2 ktere naplnim nazvy ulic. Uzivatel si vybere od
jake
do jake ulice.
Behem programu pak porovnavam nalezenou ulici jestli padne do vybraneho
intervalu.
(Query uz lepe napsat nejde.- si myslim)
if (ulice >= ComboBox1.Text) AND (ulice <= ComboBox2.Text) then
je-li
ComboBox1.Text = Bro��kova
ComboBox2.Text = Dru�by
ulice = �echova
Vyhodnoceni vyrazu je pak chybne.
V ComboBoxu je to spravne zobrazeno podle abecedy,
ale jakmile je porovnava tak je to spatne � neni �.
Prevest to na cestinu bez diakritiky to nemuzu.
Milan
Razeni podle ceske abecedy ...
[*] Lubo Fule <fule(zv)sct.sk> - 13.4.1999 11:57:25
To zavisi od toho, aky SQL server pouzivas, resp. od toho ako je vytvoreny
index nad lokalnou tabulkou ak pouzivas lokalne tabulky.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Pavel Skalicky
Sent: Tuesday, April 13, 1999 11:24 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Razeni podle ceske abecedy ...
Preji dobreho dne.
Mam takovy problem, omlouvam se, pokud uz to zde bylo pretrasano.
Potrebuji udelat select, ale razen podle ceske abecedy (pomoci order by)
Jakym zpusobem to lze zaridit, aby se s, c apod. pismena s hackem
neobjevovala az na konci. Pokud to jde v DBE administratoru
pouze nastavenim LangDriveru, jaky tam ma byt (zkoousel jsem asi
tri, ale bez uspechu). Jinak mam D4.
Diky za kazdou pomoc
Pavel
Problem s TUpdateSQL
[*] Branislav Danko <danko(zv)basl.sk> - 13.4.1999 11:58:21
Nazdar,
ak pouzijem TUpdateSQL + TQuery a pridavam novy zaznam do tabulky prostrednictvom tlacitka TDBNavigatora, nenaplnia sa mi data-aware objekty (TDBEdit, TDBCheckBox, ...) implicitnymi hodnotami, ktore mam nastavene ku jednotlivym stlpcom (nadefinoval som to pri definicii tabulky v Database Desktop-e). Ak nepouzijem TUpdateSQL je to O.K., neviete kde by mohol byt problem?
S pozdravom Brano.Delphi 1 + memo
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 13.4.1999 12:11:34
V Delphi 4 se pro nastaveni parametru typu Memo
da pouzit : Field.AsMemo.
Nevite jak to udelat v 16 bitovych Delphi ?
tabulke je Paradox.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+PCHAR a char *
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.4.1999 12:14:00
>Delfini, tohle jsem jeste nezazil. Mam fci, ktery davam jako parametr
>string a ona vola fci z DLL (psane v C++) a predava ji to jako pointer
>na string (PChar). Cela vec se ma takto:
>function Moje(Co:String):Boolean;
>begin
>Result:=FCEZDLL(Pchar(Co));
>end;
>
>Takhle to na 99% projde, ale obcas ta DLL hodi access violation. Pokud
>to vsak udelam takto:
>
>function Moje(Co:String):Boolean;
>var pomoc:PChar;
>begin
>pomoc:=StrAlloc(1024);
>StrPCopy(Pomoc,Co);
>Result:=FCEZDLL(Pomoc);
>StrFree(Pomoc);
>end;
>
>tak to projde vzdycky. Pritom je ale jisty, ze ta DLLfce ten retezec
>nijak nemodifikuje. V cem muze bejt problem? Ja myslel, ze pretypovani
>stringu stylu Pchar(Co) je uplne v pohode... :-0000 jsem zmatenej
Tipnul bych to na problem s prazdnym stringem. Myslim, ze konverze PChar
vyrobi pri pchar('') nikoliv pointer na retezec obsahujizi znak #0 ale
vyrobi NIL, coz zakonite skonci access violation chybou...
Zdravi
D. Toman
PCHAR a char *
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 13.4.1999 11:20:48
Ahoj,
pokud pripojujes tu DLL staticky (external....) pouzil jsi pri tom
klauzuli CDECL ? Pokud ne, zkus ji tam dopsat.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: LuborK(zv)tnet(tec)cz [SMTP:LuborK(zv)tnet(tec)cz]
> Odesl�no: 13. dubna 1999 9:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: PCHAR a char *
>
> Delfini, tohle jsem jeste nezazil. Mam fci, ktery davam jako parametr
> string a ona vola fci z DLL (psane v C++) a predava ji to jako pointer
> na string (PChar). Cela vec se ma takto:
> function Moje(Co:String):Boolean;
> begin
> Result:=FCEZDLL(Pchar(Co));
> end;
>
> Takhle to na 99% projde, ale obcas ta DLL hodi access violation. Pokud
> to vsak udelam takto:
>
> function Moje(Co:String):Boolean;
> var pomoc:PChar;
> begin
> pomoc:=StrAlloc(1024);
> StrPCopy(Pomoc,Co);
> Result:=FCEZDLL(Pomoc);
> StrFree(Pomoc);
> end;
>
> tak to projde vzdycky. Pritom je ale jisty, ze ta DLLfce ten retezec
> nijak nemodifikuje. V cem muze bejt problem? Ja myslel, ze pretypovani
> stringu stylu Pchar(Co) je uplne v pohode... :-0000 jsem zmatenej
>
> Lubor bIRDIE Kolar
> ====================
> GSM Phone: +420-603-410019
> ICQ: 18587772
Draha mysi
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 13.4.1999 11:29:43
Ahoj,
nevim jak v Delphi, ale v C++ by to chtelo povesit se na okenni
proceduru a odchytavat WM_MOUSEMOVE. To je asi uplne nejrychlejsi mozny
zpusob. Nicmene se domnivam, ze v Delphi se toto zapouzdruje do
MouseMove formulare, takze tim si asi moc nepomuzes. Jen pro zajimavost
- k cemu to potrebujes? Nedalo by se to nejak obejit?
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: eL [SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> Odesl�no: 13. dubna 1999 10:35
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Draha mysi
>
> Dobry den.
> Mam problem. Potrebuji s pomerne velkou presnosti zmerit drahu, kterou
> mys
> "ujede" pri stisknutem tlacitku.
> Zkousel jsem to pres udalost MouseMove formulare a pricitat zmeny
> vzdalenosti, ale narazil jsem na to, ze hodne zalezi na rychlosti
> pohybu
> (pri sviznejsim prejeti ziskam tak 10-15 vzorku polohy na temer celou
> obrazovku coz je moc malo. No a kdyz zakroutim mysi dokolecka nejsou
> vysledky ani priblizne.
> Kde se "povesit" na udaje a jak ti zaridit.
> Idealni by byl citac zvysujici se o jednu pri presunu mysi o jeden
> pixel.
> Tim by odpadla nutnost jakychkoliv dalsich vypoctu.
>
> Diky za kazdou radu.
>
> eL..Zjisteni predchozi instance programu
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 13.4.1999 12:39:01
Myslim, ze jednoduche, ale zdaleka ne jedine reseni je toto. Pozor, pred
spustenim exace nesmis mit otevreny project v Delphi, jinak to najde jeho
okno a proto se nespusti.
Timhle zacni dpr a je to
Var HWnd : THandle;
begin
HWnd:=FindWindow('TMainForm','MyAppl');
If HWnd=0 then
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
Findwindow se ti podiva po existujicim okne a pokud handle neni 0, okno uz
existuje a nespusti se to znova. Jeste tam pak muzes pridat poslani zpravy
prvni instanci, aby presla do popredi.IDE
[*] Martin Bohm <mbohm(zv)quelle.sk> - 13.4.1999 12:49:45
Nevie nahodou niekto ktore subory, prip. zapisi do registrov tvorie ide
(jedna sa o delphi 3).
Diki
MP3
[*] Martin Marsik <marsikm(zv)avx(tec)cz> - 13.4.1999 12:55:20
Zdravicko,
nemate nebo nevite o nejake komponente jako je MediaPlayer ale pro prehravani MP3 pro D4.
Dik Mates
AVX Czech Republic s.r.o.
Martin Marsik
Dvorakova 328
563 01Lanskroun
marsikm(zv)avx(tec)cz
0467/558358
Zjisteni predchozi instance programu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.4.1999 13:07:56
Zjisti vysledek fce FindWindow a mas to.
D.> ----------
> Od: Jirka Fejfar[SMTP:fejfarj(zv)iol(tec)cz]
> Odesl�no: 13. dubna 1999 11:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Zjisteni predchozi instance programu
>
> -----Original Message-----
> From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
> To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Date: Tuesday, 13 April 1999 11:39
> Subject: RE: Zjisteni predchozi instance programu
>
>
> >> nevite negdo nahodou, jak se da zajistit, abych nepustil
> >> jeden exac vicekrat
> >
> >Mrkni na http://www.tda(tec)cz/vita/
>
> no jo ... ale to nefunguje pro NT ... krome toho jsem myslel, ze si to
> treba
> TForm nebo Application nejak hlidaj sami ...
>
> __________________
>
> Jiri Fejfar
> e-mail: fejfarj(zv)iol(tec)cz
> __________________
>
> TreeView a objekty
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 13.4.1999 13:07:17
Mel jsem za to, ze kdyz pouziji metodu TreeView.SaveToFile(), ulozi se
nejen struktura, ale i data vytvorena pomoci AddObject etc.
Ulozil jsem data, provedl LoadFromFile a dostanu sice strukturu
TreeView, ale ne Data. Je to normalni a musim ulozit data zvlast ?
Diky
Mira
teorie
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.4.1999 13:14:37
Jaro wrote:
> takto. Mastr je tabulka, v niz pro hodnotu jednoho klice existuje v detail
> tabulce nekolik zaznamu. Pro jednu firmu budu tedy mit nekolik e-mail
> adres a ne naopak.
Ja bych jeste pocital se situaci, kdy firma ma jeden nebo vice
firemnich e-majlu, do kterych ma pristup vice lidi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
tvar okna aplikace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.4.1999 13:14:37
Vaclav Sazima wrote:
> Zkus se podivat do archivu, uz se to tady resilo a nekde se dal
> ztahnout priklad na kulate okno (nebo dokonce mezikruzi).
> Vaclav SAzima
Ja na to mam reseni, a vystavil bych ho treba i na Delphree. Ale
hacek je v tom, ze to je prolezle cestinou. Kdyby mel nekdo chut
to prelozit do anglictiny, nic by nebranilo verejnemu vystaveni.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Button
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 13.4.1999 13:14:37
Petr Zahradnik wrote:
> > Jak obarvit button na nejakou barvu ?
>
> Ze zmenis jeho barvu, tj. property Color...
:-))))) Dobra rada nad zlato. Nekdy neskodi se na komponentu
podivat.
Jde to napriklad takto:
unit XButton;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TColorButton = class(TButton)
private
FCanvas:TCanvas;
IsFocused: Boolean;
procedure CNDrawItem(var Message: TWMDrawItem);
message CN_DRAWITEM;
procedure DrawItem(const DrawItemStruct: TDrawItemStruct);
procedure DrawButtonText(TextBounds: TRect;
State: TButtonState);
protected
procedure CreateParams(var Params: TCreateParams);
override;
procedure SetButtonStyle(ADefault: Boolean);
override;
public
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
published
property Color;
end;
procedure Register;
implementation
// Nutn� registrace komponenty do bal��ku
procedure Register;
begin
RegisterComponents('Skoleni', [TColorButton]);
end;
// T��da TButton nem� v sob� t��du pro malov�n�
// (zde TCanvas), proto�e TButton vyu��v� syst�mov�ch
// prost�edk� samotn�ch Windows
constructor TColorButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCanvas := TCanvas.Create;
end;
// V�echny alokovan� pam�ti je t�eba uvolnit
destructor TColorButton.Destroy;
begin
inherited Destroy;
FCanvas.Free;
end;
// Je t�eba komponent� ��ct, �e ji budeme malovat sami
procedure TColorButton.CreateParams(var Params:
TCreateParams);
begin
inherited CreateParams(Params);
with Params do Style := Style or BS_OWNERDRAW;
end;
// Proto�e pot�ebujeme odst�nit komponentu od malov�n�
// zaji�t�n�ho Windows, je t�eba tuto metodu zcela p�epsat
// Tato metoda slou�� k rozli�en�, zda je tla��tko
// "focused" nebo ne
procedure TColorButton.SetButtonStyle(ADefault: Boolean);
begin
if ADefault <> IsFocused then
begin
IsFocused := ADefault;
Refresh;
end;
end;
// Tato metoda odchyt� zpr�vu, �e se m� komponenta
// vykreslit
procedure TColorButton.CNDrawItem(var Message: TWMDrawItem);
begin
DrawItem(Message.DrawItemStruct^);
end;
// Kreslen� tla��tka
procedure TColorButton.DrawItem(const DrawItemStruct:
TDrawItemStruct);
var
IsDown, IsDefault: Boolean;
State: TButtonState;
R: TRect;
begin
// Kam m� FCanvas malovat
FCanvas.Handle := DrawItemStruct.hDC;
// V jak�m obd�ln�ku bude malovat
R := ClientRect;
// Zji�t�n� stavu kl�vesy - stisknut�, ...
with DrawItemStruct do
begin
IsDown := itemState and ODS_SELECTED <> 0;
IsDefault := itemState and ODS_FOCUS <> 0;
if not Enabled then State := bsDisabled
else if IsDown then State := bsDown
else State := bsUp;
end;
// Nastaven� parametr� pro malov�n�
FCanvas.Brush.Color:=Color;
FCanvas.Brush.Style := bsSolid;
// Malov�n� z�kladn� v�pln�
FCanvas.FillRect(R);
// Malov�n� tlust�ho r�me�ku, je-li tla��tko vybr�no
if IsFocused or IsDefault then
begin
FCanvas.Pen.Color := clWindowFrame;
FCanvas.Pen.Width := 1;
FCanvas.Brush.Style := bsClear;
FCanvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);
// Zmen�en� prostoru pro dal�� malov�n�
InflateRect(R, -1, -1);
end;
// Malov�n� r�me�ku stisknut�ho tla��tka
if IsDown then
begin
FCanvas.Pen.Color := clBtnShadow;
FCanvas.Pen.Width := 1;
FCanvas.Brush.Color := Color;
FCanvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);
InflateRect(R, -1, -1);
end
else
// Ostatn� p��pady r�me�ku
begin
FCanvas.Pen.Color:=clBtnHighlight;
FCanvas.Pen.Width := 1;
FCanvas.MoveTo(R.Left,R.Bottom-1);
FCanvas.LineTo(R.Left,R.Top);
FCanvas.LineTo(R.Right-1,R.Top);
FCanvas.Pen.Color:=clWindowFrame;
FCanvas.MoveTo(R.Left,R.Bottom-1);
FCanvas.LineTo(R.Right-1,R.Bottom-1);
FCanvas.LineTo(R.Right-1,R.Top);
FCanvas.Pen.Color := clBtnShadow;
FCanvas.MoveTo(R.Left+1,R.Bottom-2);
FCanvas.LineTo(R.Right-2,R.Bottom-2);
FCanvas.LineTo(R.Right-2,R.Top+1);
end;
if IsFocused then
begin
R := ClientRect;
InflateRect(R, -1, -1);
end;
FCanvas.Font := Self.Font;
// Posunut� textu vpravo dol�, je-li tla��tko stisknuto
if IsDown then OffsetRect(R, 1, 1);
DrawButtonText(R,State);
// Namalov�n� te�kovan�ho obd�ln�ku u vybran�ho tla��tka
if IsFocused and IsDefault then
begin
R := ClientRect;
InflateRect(R, -4, -4);
FCanvas.Pen.Color := clWindowFrame;
FCanvas.Brush.Color := Color;
DrawFocusRect(FCanvas.Handle, R);
end;
FCanvas.Handle := 0;
end;
// Namalov�n� textu v tla��tku
// Zde je p��padn� mo�no o�et�it i zalamov�n� dlouh�ho
// textu v tla��tku
procedure TColorButton.DrawButtonText(TextBounds: TRect;
State: TButtonState);
begin
with FCanvas do
begin
Brush.Style := bsClear;
if State = bsDisabled then
begin
// U "disabled" tla��tka malov�n� st�nu textu ...
OffsetRect(TextBounds, 1, 1);
Font.Color := clBtnHighlight;
DrawText(Handle, PChar(Caption), Length(Caption),
TextBounds,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
OffsetRect(TextBounds, -1, -1);
// ... a vlastn�ho textu
Font.Color := clBtnShadow;
DrawText(Handle, PChar(Caption), Length(Caption),
TextBounds,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end else
DrawText(Handle, PChar(Caption), Length(Caption),
TextBounds,
DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;
end;
end.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vyrez v TImage
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 13.4.1999 11:21:08 met-1
> > mam dalsi zacatecnicky dotaz. Ve formulari mam komponentu TImage a
> > neco do ni kreslim, jak uz to tak byva. :-) Soucasne ve stejne
> > komponente mam nakreslenou kolmou caru ("kurzor"), kterou hybu
> > doleva a doprava pres to, co jsem predtim nakreslil. Potreboval bych
> > poradit, jak si uschovat cast toho meho obrazku, ktery je momentalne
> > "pod" tou mou kolmou carou - kurzorem, abych pri presunu kurzoru na
> > dalsi pozici mohl obnovit to, co pod nim bylo predtim "schovane".
>
> preco nepouzijes pri kresleni ciary nasledovne nastavenie :
> Pen.Mode:= pmNot
>
> t.j. vykreslis ciaru, pohnes mysou, vykreslis ciaru opat na starom mieste
> (a tym sa ti obnovi povodny obrazok) a vykreslis novu (premiestnenu) ciaru.
> to musi fungovat ...
Diky za radu, skutecne to funguje, ovsem problem je v tom, ze pozadi
Canvasu neni jednobarevne => barva kurzoru se meni. Coz vypada
dost blbe. Nedalo by se to nejak obejit?
Jirka.
+-------------------------+---------------------------------+
| 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 |
+-----------------------------------------------------------+PCHAR a char *
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 13.4.1999 13:30:31
> Kolar Lubor wrote:
>Takhle to na 99% projde, ale obcas ta DLL hodi access violation. Pokud
>to vsak udelam takto:[...]
>tak to projde vzdycky. Pritom je ale jisty, ze ta DLLfce ten retezec
>nijak nemodifikuje. V cem muze bejt problem? Ja myslel, ze pretypovani
Hi,
jak to popisujes, tak ti to pada zrejme na prazdnem retezci, ktery Delphi
nealokuje, takze predavas hodnotu nil, zatimco v druhem pripade predavas
pointer na byte s hodnotou #0.
Bye, pf
Dotaz na BDE
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.4.1999 13:30:37
Podle meho nazoru DB aplikace napsana v jakekoli verzi Delphi musi
pracovat
na novejsim BDE nez je sama aplikace (a v nekterych pripadech i na
starsim :-)
Pokud tomu tak neni, rad se necham poucit.
A k tomu InstallShieldu, taxi myslim, ze IS rozeznava verze BDE a v
pripade, ze
neco najde, porovna verze, ale ruku do ohne za to nedam.
D.
BTW: Nekdy mi opravdu chybi jakesi nativni BDE, ktere se vkompiluje
do vysledneho exace.> ----------
> Od: Jiri Novotny[SMTP:NOVOTNY(zv)ftknw.upol(tec)cz]
> Odesl�no: 13. dubna 1999 14:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Dotaz na BDE
>
> Ahojte,
> mam jeden - mozna blby - dotaz. Je nejaky rozdil mezi BDE, ktery se
> nainstaluje s aplikaci kompilovanou pod D3 a BDE, ktery
> vyuziva aplikace napsana v D4?
> Jeden clovek (BTW se prohlasuje za databazoveho odbornika - narozdil
> ode me) mi totiz tvrdil, ze databazove aplikace, ktere zkompiloval v
> D3 mu prestaly chodit na PC, kde bylo BDE z D4.
> Ja jsem se domnival, ze je to jedno. Pokud ne, tak pak me napada
> jeste jeden dotaz:
> - dejme tomu, ze ma databazovou aplikaci, kterou instaluji pomoci
> InstallShieldu a zahrnu do toho i instalaci BDE. Co se stane v
> pripade, ze tato aplikace se bude instalovat na PC, kde uz nejaka
> Delphini aplikace s BDE nainstalovana byla?
>
> Jirka.
> +-------------------------+---------------------------------+
> | 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 |
> +-----------------------------------------------------------+
> TreeView - pom���c
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 13.4.1999 13:31:34
Hi,
u� jsem z toho na pr�ky. M�m na formul��i TreeView. P�i zobrazen� formul��e
bych pot�eboval, aby se kurzor postavil na prvn� polo�ku v TreeView.
Porad� mi pros�m n�kdo ?
Va�ek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Packed DateTime ---> DateTime
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 13.4.1999 13:38:42
> Petr Vaclavek wrote:>> Pomoci funkci DateTimeToFileDate a FileDateToDateTime (SysUtils).
> *** No to neni ta spravna funkce, protoze Dosovska (Pascalska) fce
> PackTime (z knihovny DOS) mi zabali DateTime, ktery obsahuje
> Den, Mesic, Rok, Hodinu, Minutu, Sekundu, Setinu sekundy do
> LONGINTu, ktery do te vyse uvedene fce nenarvu.
Hi,
Ty funkce na to opravdu jsou a co pises je hloupost, protoze kdyby ses
zamyslel nad poctem bitu, ktere potrebujes k zakodovani vseho, cos vypsal,
tak se nikdy nevejdes do 32 bitu.
Struktura toho dwordu je nasledujici:
1. horni word - datum
b31-b25 rok relativne k 1980
b24-b21 mesic
b20-b16 datum
2. spodni word - cas
b15-b11 hodiny
b10-b5 minuty
b4-b0 sekundy / 2
Bye, pf
b
PCHAR a char *
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 13.4.1999 11:40:04 met
> Delfini, tohle jsem jeste nezazil. Mam fci, ktery davam jako parametr
> string a ona vola fci z DLL (psane v C++) a predava ji to jako pointer
> na string (PChar). Cela vec se ma takto:
> function Moje(Co:String):Boolean;
> begin
> Result:=FCEZDLL(Pchar(Co));
> end;
>
> Takhle to na 99% projde, ale obcas ta DLL hodi access violation. Pokud
> to vsak udelam takto:
>
> function Moje(Co:String):Boolean;
> var pomoc:PChar;
> begin
> pomoc:=StrAlloc(1024);
> StrPCopy(Pomoc,Co);
> Result:=FCEZDLL(Pomoc);
> StrFree(Pomoc);
> end;
>
> tak to projde vzdycky. Pritom je ale jisty, ze ta DLLfce ten retezec
> nijak nemodifikuje. V cem muze bejt problem? Ja myslel, ze pretypovani
> stringu stylu Pchar(Co) je uplne v pohode... :-0000 jsem zmatenej
Zkusil bych
Result:=FCEZDLL((zv)Str[1]);
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
TreeView - pom���c
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 13.4.1999 13:48:57
x: TTreeView;
x.Selected := X.Items[0];
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
-----P�vodn� zpr�va-----
Od: Lukes V�clav [mailto:Vaclav.Lukes(zv)pvt(tec)cz]
Odesl�no: 13. dubna 1999 13:32
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: TreeView - pom���c
Hi,
u� jsem z toho na pr�ky. M�m na formul��i TreeView. P�i zobrazen� formul��e
bych pot�eboval, aby se kurzor postavil na prvn� polo�ku v TreeView.
Porad� mi pros�m n�kdo ?
Va�ek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Dotaz na BDE
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.4.1999 13:54:29
> -----Original Message-----
> From: Jiri Novotny [mailto:NOVOTNY(zv)ftknw.upol(tec)cz]
> Sent: Tuesday, April 13, 1999 3:00 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Dotaz na BDE
>
>
> Ahojte,
> mam jeden - mozna blby - dotaz. Je nejaky rozdil mezi BDE, ktery se
> nainstaluje s aplikaci kompilovanou pod D3 a BDE, ktery
> vyuziva aplikace napsana v D4?
> Jeden clovek (BTW se prohlasuje za databazoveho odbornika - narozdil
> ode me) mi totiz tvrdil, ze databazove aplikace, ktere zkompiloval v
> D3 mu prestaly chodit na PC, kde bylo BDE z D4.
Mozne to je. Kazdy software ma chyby a jednotlive verze toho SW se
samozrejme
lisi, maji jine chyby, navzajem spolu jinak (ne)spolupracuji.
Na verzi BDE zalezi, u mne napriklad ve verzi BDE 5.00 neco
nechodilo a po doinstalovani upgradu na 5.01 to zacalo chodit.
V tom pripade, ktery popisujes ale zdaleka neni jasne, ze za nefunkcnost
muze BDE.
Rozdilu mezi obema pocitaci bylo urcite vic nez jen verze Delphi a BDE a
rict,
ze to nejede kvuli BDE je asi jako rict, ze kdyz auto nejede, je zadrenej
motor.
Taky tam muze byt tisic jinych pricin a motor je treba zrovna v poradku.
> Ja jsem se domnival, ze je to jedno. Pokud ne, tak pak me napada
> jeste jeden dotaz:
> - dejme tomu, ze ma databazovou aplikaci, kterou instaluji pomoci
> InstallShieldu a zahrnu do toho i instalaci BDE. Co se stane v
> pripade, ze tato aplikace se bude instalovat na PC, kde uz nejaka
> Delphini aplikace s BDE nainstalovana byla?
Nevim, ale predpokladam, ze nic vyznamneho.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Dotaz na BDE
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.4.1999 13:58:20
> -----Original Message-----
> From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: Tuesday, April 13, 1999 1:31 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Dotaz na BDE
>
>
> Podle meho nazoru DB aplikace napsana v jakekoli verzi Delphi musi
> pracovat
> na novejsim BDE nez je sama aplikace (a v nekterych pripadech i na
> starsim :-)
To by se mi taky libilo. Ale co by potom delali programatori a spravcove
stanic,
kdyby byly programy zpetne kompatibilni? To je dobre minena myslenka,
patrne je tak BDE i koncipovane, ale nikdy nic takovym zpusobem stoprocentne
nefungovalo.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!MP3
[*] voltrr1.epr(zv)mail.cez(tec)cz - 13.4.1999 13:18:52
> nemate nebo nevite o nejake komponente jako je MediaPlayer ale pro
prehravani MP3 pro
> D4.
Pokud nainstalujes na masinu posledni verzi Microsoft Media Playeru tak
muzes prehravat MP3 standardnim
MediaPlayer componentem.
Radek
Nova instance formulare
[*] Jan Pospisil <pospa(zv)students.zcu(tec)cz> - 13.4.1999 12:24:42
Zdravim
Predem se omlouvam se za zacatecnicky dotaz, ale jeste jsem se s
timto problemem nesetkal. Mam vytvoreny formular a potrebuji vytvorit
dalsi instanci, ktery bude myt stejne vlastnosti i komponenty. A jak
se k nemu potom da pristupovat. J. Pospisil
Zjisteni predchozi instance programu
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 13.4.1999 14:27:54
>Zjisti vysledek fce FindWindow a mas to.
to samozrejme znam, ale to nejde v mym pripade pouzit, musim to popsat ...
1) mam tridu okna TMyForm
2) mam 10 exacu program1.exe .. program10.exe ktery se lisej akorat tim
jmenem exe souboru, a vsechny pouzivaji TMyForm
3) potrebuju aby program1.exe detekoval jenom a pouze uz existujici instanci
program1.exe (to samy analogicky budou delat program2.exe .. program10.exe)
4) pri spusteni aplikace nevim jakej string bude v titulku, protoze to
zavisi na okolnostech, ktery v ty chvili nemuzu zjistit ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)iol(tec)cz
__________________
MP3
[*] rdocekal(zv)csas(tec)cz - 13.4.1999 14:31:56
Mrkni na
http://eldos.hypermart.net/mpegplay.html
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367>
>
> Zdravicko,
>
> nemate nebo nevite o nejake komponente jako je MediaPlayer
> ale pro prehravani MP3 pro D4.
>
> Dik Mates
>
> AVX Czech Republic s.r.o.
> Martin Marsik
> Dvorakova 328
> 563 01Lanskroun
> marsikm(zv)avx(tec)cz
> 0467/558358
>
>
> form
[*] Martin <geoplan(zv)pp.sinet.sk> - 13.4.1999 14:40:09
Zdravim,
Mam na obrazovkr vo Windows NT nastrojovu listu nastavenu ako stale
viditelnu a stale an vrchu.A k maximalizujem svoju aplikaciu v delpfi cast
formularu sa mi schova za tuto listu. A ja by som potreboval aby sa mi
maximalizoval form iba po tuto listu. Ako to urobit ?
vdaka za vsetky odpovede
Martin
Direct X
[*] Jan Pospisil <pospa(zv)students.zcu(tec)cz> - 13.4.1999 12:44:49
Zdravim
Rad bych pouzival ve programech Direcx X hlavne pro grafiku
(Direct 3D), nevite nekdo jak funkce D3D pouzit, pripadne jake
existuji.
J. Pospisil
Monitorov�n� pr�b�hu aplikace
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 13.4.1999 14:52:32
Ahoj,
m�m n�sleduj�c� probl�mek. M�m prom�nnou nastavenou na False. Kdekoli v
programu ji zm�n�m na True a pot�ebuji n�co, co bude neust�le kontrolovat
hodnotu prom�nn� a v moment�, kdy ji zm�n�m na True vykon� dal�� kroky.
D�ky
Va�ek
V�clav Lukes
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Dotaz na BDE
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 13.4.1999 12:59:33 met-1
Ahojte,
mam jeden - mozna blby - dotaz. Je nejaky rozdil mezi BDE, ktery se
nainstaluje s aplikaci kompilovanou pod D3 a BDE, ktery
vyuziva aplikace napsana v D4?
Jeden clovek (BTW se prohlasuje za databazoveho odbornika - narozdil
ode me) mi totiz tvrdil, ze databazove aplikace, ktere zkompiloval v
D3 mu prestaly chodit na PC, kde bylo BDE z D4.
Ja jsem se domnival, ze je to jedno. Pokud ne, tak pak me napada
jeste jeden dotaz:
- dejme tomu, ze ma databazovou aplikaci, kterou instaluji pomoci
InstallShieldu a zahrnu do toho i instalaci BDE. Co se stane v
pripade, ze tato aplikace se bude instalovat na PC, kde uz nejaka
Delphini aplikace s BDE nainstalovana byla?
Jirka.
+-------------------------+---------------------------------+
| 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 |
+-----------------------------------------------------------+Dotaz na BDE
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.4.1999 15:06:23
>Jestli jsem to spravne pochopil, tak si myslis, ze na verzi BDE
>pravdepodobne zalezi, aspon trosku. Ta zavislost je takova,
ze:
>
>- aplikace napsana v D4 uz na BDE s D3 chodit nemusi
Podle meho nazoru nemusi.
Verze Delphi a verze BDE je ale jinak kazde neco jineho
a vubec se nevaze jedno na druhe.
Zkratka pokud bude Tvoje aplikace (nezavisle na verzi Delphi)
volat nejakou BDE API fci, kterou BDE neumi, proste to
chodit to nebude.
Mimochodem, klidne si z www.inprise(tec)cz muzes stahnout novejsi
BDE, takze budes mit BDE, ktere je novejsi nez Delphi a jiz
napsane aplikace na nem (diky zpetne kompatibilite) normalne
pobezi. //Teda, mely by bezet :-)))
D.
QReport & WISIWYG
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 13.4.1999 15:10:23
Zdravim Vas ...
Zase som tu s malym problemom ...
Ak placnem na formular s QReportom ciaru sirsej hrubky a necham to aj vytlacit na laserovke, tak ciara na vytlacenom papieri je tenulinka pricom v QReporte a aj v Preview je hrubsia.
Suvisi to nejak s dpi tlaciarne ? To fakt sa musi programovo riesit takyto problem s hrubsimy objektami? T.j. pred samotnou tlacou sa zvacsia vsetky objekty o nejaky nasobok ?
Nevadilo by to ak by sa to tlacilo rovno na laserovku, ale uzivatel by "to" rad videl v preview presne tak ako na papieri.
Vdaka vopred za rady ...
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364
Dotaz na BDE
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 13.4.1999 15:18:38
> -----Original Message-----
> From: Jiri Novotny [mailto:NOVOTNY(zv)ftknw.upol(tec)cz]
> Sent: Tuesday, April 13, 1999 4:30 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Dotaz na BDE
>
>
> > > Podle meho nazoru DB aplikace napsana v jakekoli verzi Delphi musi
> > > pracovat
> > > na novejsim BDE nez je sama aplikace (a v nekterych pripadech i na
> > > starsim :-)
> >
> > To by se mi taky libilo. Ale co by potom delali
> programatori a spravcove
> > stanic,
> > kdyby byly programy zpetne kompatibilni? To je dobre minena
> myslenka,
> > patrne je tak BDE i koncipovane, ale nikdy nic takovym
> zpusobem stoprocentne
> > nefungovalo.
>
> Jestli jsem to spravne pochopil, tak si myslis, ze na verzi BDE
> pravdepodobne zalezi, aspon trosku. Ta zavislost je takova, ze:
> - aplikace napsana v D3 chodi na BDE s D3 (pochopitelne) i s D4
> - aplikace napsana v D4 uz na BDE s D3 chodit nemusi
>
> Je to tak?
Skoro. Myslim si, ze to tak vetsinou funguje. Ale myslim si, ze se najdou
problemova mista, ktera nebudou s vyssi verzi BDE fungovat. Viz muj
starsi dopis z jine vetve teto konverzace - mel jsem BDE s ODBC driverem
pro MS SQL 7. V tomto konkretnim pripade to zpusobil asi Microsoft,
a BDE je v tom nevine, ale stejne vyssi verze nefungovala dobre. Zde je
strucny
popis:
- v BDE pro Delphi 3 predpokladam, ze fungovalo spojeni na ODBC MS SQL 6.5
(to neznam, ale myslim, ze je to pravda)
- v BDE 5.00 fungovalo spojeni na ODBC MS SQL 7.0 beta
- Dale Microsoft dovyvinul SQL Server 7.0 a pritom zlocinecky zmenil nektere
podstatne rysy produktu - nektera funkconst, ktera byla v bete jeste ve
verzi 6.5
se v 7.0 diametralne zmenila a s instalaci ostreho klienta 7.0 nam
prestala fungovat
aplikace vyvijena nad betou. Zacala fungovat (po dvou dost zoufalych
tydnech)
az po instalaci BDE 5.01, kde jiz byla chyba vyresena.
A takovych nebo podobnych problemu je myslim s kazdym SQL linkem dost a
dost.
Nikdy se nespolehej, ze neco pojede a radeji hodne testuj
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Packed DateTime ---> DateTime
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 13.4.1999 15:34:10
> >> Pomoci funkci DateTimeToFileDate a FileDateToDateTime (SysUtils).
>
> > *** No to neni ta spravna funkce, protoze Dosovska (Pascalska) fce
> > PackTime (z knihovny DOS) mi zabali DateTime, ktery obsahuje
> > Den, Mesic, Rok, Hodinu, Minutu, Sekundu, Setinu sekundy do
> > LONGINTu, ktery do te vyse uvedene fce nenarvu.
>
>
> Hi,
> Ty funkce na to opravdu jsou a co pises je hloupost, protoze kdyby ses
> zamyslel nad poctem bitu, ktere potrebujes k zakodovani vseho, cos vypsal,
> tak se nikdy nevejdes do 32 bitu.
>
> Struktura toho dwordu je nasledujici:
>
> 1. horni word - datum
> b31-b25 rok relativne k 1980
> b24-b21 mesic
> b20-b16 datum
>
> 2. spodni word - cas
> b15-b11 hodiny
> b10-b5 minuty
> b4-b0 sekundy / 2
> Bye, pf
> b
*** Jo taky jsem si ted uvedomil, ze ty drive uvedene fce jsou ty,
ktere potrebuji, ale docela dost me zmatlo to, ze maji jako
parametr integer, kdezto ja tam potreboval longint (pokud se
nepletu tak longint = 4 byty, integer = 2 byty nebo v Delphi je to
jinak?....Asi jo)
Kazdopadne diky moc...
Petr
MP3
[*] Doller.Jozef(zv)zsr.sk - 13.4.1999 15:56:32
Mozem poslat
Fraunhofer MP3 codec v1.063 optimized
Je to samostatny algoritmus, teda nie aj program ako mp3 kompresor
Po nainstalovani sa vlozi do registrov a mozu ho vyuzivat ostatne programy
Vraj komprimuje rychlo ale kvalitne na rozdiel od Xing algoritmu
Len neviem ci sa da vyuzit aj na prehravanie.
> Jozef Doller
> �SR Stredisko informatiky, Kov��ska 3, 832 06 Bratislava
> tel.: 07 / 5058 5431
> mailto:Doller.Jozef(zv)zsr.sk
>
> -----P�vodn� zpr�va-----
> Od: Jan Pospisil [SMTP:pospa(zv)students.zcu(tec)cz]
> Odesl�no: 13. dubna 1999 16:59
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: MP3
>
> On 13 Apr 99 at 12:55, Martin Marsik wrote:
>
> > Zdravicko,
> >
> > nemate nebo nevite o nejake komponente jako je MediaPlayer ale pro
> prehravani MP3 pro D4.
> >
> > Dik Mates
Zjisteni predchozi instance programu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 13.4.1999 16:06:19
Aha, tak to Ti asi neporadim, leda... ted me napadlo,
kazdy ten Tvuj program muze vytvorit vlastni ATOM a
Ty potom muzes testovat existenci toho atomu.
Urcite by to slo i jinak (nejak se preci musi vytvaret
seznam uloh v TaskListu {po Ctrl-Alt-Del}), ale ted
me nic jineho nenapada.
Tady je maly priklad na Ty atomy :
if GlobalFindAtom('JA_JSEM_PRG1')=0 //Zkus ho najit.
then //nenasel => program jeste nebezi
GlobalAddAtom('JA_JSEM_PRG1')
else //nasel => program jiz bezi
ShowMessage('Uz jednou beziiiim...');
ALE POZOR!!! Musis nekde po ukonceni programu ten atom
vymazat (GlobalDeleteAtom) a pokud Ti aplikace nejak vytuhne,
tak az do dalsiho stratu Woken nepujde spustit, pac ten atom
tam zustane.
Dobra.
> ----------
> Od: Jirka Fejfar[SMTP:fejfarj(zv)iol(tec)cz]
> Odesl�no: 13. dubna 1999 14:27
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Zjisteni predchozi instance programu
>
> >Zjisti vysledek fce FindWindow a mas to.
>
> to samozrejme znam, ale to nejde v mym pripade pouzit, musim to popsat
> ...
>
> 1) mam tridu okna TMyForm
>
> 2) mam 10 exacu program1.exe .. program10.exe ktery se lisej akorat
> tim
> jmenem exe souboru, a vsechny pouzivaji TMyForm
>
> 3) potrebuju aby program1.exe detekoval jenom a pouze uz existujici
> instanci
> program1.exe (to samy analogicky budou delat program2.exe ..
> program10.exe)
>
> 4) pri spusteni aplikace nevim jakej string bude v titulku, protoze to
> zavisi na okolnostech, ktery v ty chvili nemuzu zjistit ...
>
>
> __________________
>
> Jiri Fejfar
> e-mail: fejfarj(zv)iol(tec)cz
> __________________
>
>
>
>
> Dotaz na BDE
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 13.4.1999 14:30:08 met-1
> > Podle meho nazoru DB aplikace napsana v jakekoli verzi Delphi musi
> > pracovat
> > na novejsim BDE nez je sama aplikace (a v nekterych pripadech i na
> > starsim :-)
>
> To by se mi taky libilo. Ale co by potom delali programatori a spravcove
> stanic,
> kdyby byly programy zpetne kompatibilni? To je dobre minena myslenka,
> patrne je tak BDE i koncipovane, ale nikdy nic takovym zpusobem stoprocentne
> nefungovalo.
Jestli jsem to spravne pochopil, tak si myslis, ze na verzi BDE
pravdepodobne zalezi, aspon trosku. Ta zavislost je takova, ze:
- aplikace napsana v D3 chodi na BDE s D3 (pochopitelne) i s D4
- aplikace napsana v D4 uz na BDE s D3 chodit nemusi
Je to tak?
Jirka.
+-------------------------+---------------------------------+
| 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 |
+-----------------------------------------------------------+Obcas nefunkcna instalacia
[*] Trhlik Jaroslav <aatsoft(zv)databanka.sk> - 13.4.1999 16:32:59
Spr�va vo form�te MIME rozdelen� na viac �ast�.
Srdecna vdaka, naozaj to aspon v 1 pripade pomohlo, dalsie preverim v blizkom case.
Aj tak by ma zaujimalo, preco prave medzera v ceste moze a za akych okolnosti urobit taku sarapatu.
Jaroslav Trhlik
-----P�vodn� spr�va-----
Od: Roman Fi�er <fiser(zv)gbn(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 11. apr�l 1999 22:52
Predmet: Re: Obcas nefunkcna instalacia
Dobry den,
Kdysi davno se nam to nekolikrat stalo take. Meli jsme nadefinovany alias a cesta k databazi obsahovala mezeru.
Vyresili jsme to tak, ze jsme mezeru z nazvu odstranily.
Nechapu pritom jak ten problem mohl vzniknout:
Meli sme totiz 15 pocitacu s naprosto stejnou hardwarovou i softwarovou konfigurac� (P100 16 MB, W95, Delphi 2), ale problem se projevil pouze na jednom.
---------------------------------------------------
- Roman Fiser jr.
- programatorska skupina NGSoft
- software nove generace
- fiser(zv)gbn(tec)cz www.gbn(tec)cz/ngsoft
---------------------------------------------------
telefon: 0301/24632, ICQ: 25542226
----- Original Message -----
From: Trhlik Jaroslav
To: delphi-l(zv)fwd(tec)cz
Sent: 11. dubna 1999 11:15
Subject: Obcas nefunkcna instalacia
Zdravim skusenych delphinistov. Potrebujem radu.
Uz 2 roky distribuujeme nasu aplikaciu, napisanu v Delphi2, vyuzivajucu dBase tabulky. Instaluje sa pomocou InstallShieldu z CD.
Koncom vlanajsieho roka sa zacalo objavovat a teraz je coraz castejsie, ze po instalacii a spusteni sa objavi chybova hlaska "Exception EDBEngineError in module WINDFS.EXE at 0004d408. Invalid File Name" a aplikacia nefunguje. Nefunkcnost je pravdepodobnejsia na novsich pocitacoch a pod W98, ale ani P100 s W95 nie je 100% ist�. Na nasich pocitacoch ani pod W95 ani pod W98 sa tuto chybu nepodarilo vyvolat.
Jeden konkretny pripad: zakaznik, u ktoreho nasa aplikacia fungovala, inovoval hardware (naformatoval a pridal HDD), rein�taloval W95 a aplikacie (nema ziadnu inu pouzivajucu BDE) a nasa aplikacia sa stala nefunkcnou. Na prvy pohlad vsetko okolo BDE vyzera byt nastavene spravne, ale ked som z original instalacneho CD nainstaloval DELPHI 2 a sk�sil spustit DEMO priklad CTRLGRID, tak takisto skoncil chybou "Invalid File Name".
Som zufaly, lebo odporucanie "skuste na inom pocitaci" je nedostojne a zobrat pocitac od zakaznika a ist s nim do Inprise tiez nie je mozne.
Pozna niekto pricinu resp. opatrenia, ako vzniku tejto chyby predist?
Jaroslav Trhlik, A&T Software, Rybarska 1, 91501 Nove Mesto n/Vah., SR tel. +421-834-712441, e-mail: aatsoft(zv)databanka.sk
Dotaz na BDE
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 13.4.1999 14:34:20 met-1
> > mam jeden - mozna blby - dotaz. Je nejaky rozdil mezi BDE, ktery se
> > nainstaluje s aplikaci kompilovanou pod D3 a BDE, ktery
> > vyuziva aplikace napsana v D4?
> > Jeden clovek (BTW se prohlasuje za databazoveho odbornika - narozdil
> > ode me) mi totiz tvrdil, ze databazove aplikace, ktere zkompiloval v
> > D3 mu prestaly chodit na PC, kde bylo BDE z D4.
>
> V tom pripade, ktery popisujes ale zdaleka neni jasne, ze za nefunkcnost
> muze BDE.
Ja to taky netvrdim, ja se pouze ptal, jestli to JE mozny. Konkretne
ten problem pry vyvstal tak, ze nekomu dodal program v D3 s
prislusnym BDE. Onen uzivatel si z Internetu stahnul nejaky upgrade
BDE (?), nainstaloval (korektne?) a program uz nefachcil.
Takze pak vzniklo podezreni na pripadnou nekompatibilitu BDE.
Jirka.
+-------------------------+---------------------------------+
| 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 |
+-----------------------------------------------------------+Zjisteni predchozi instance programu
[*] Martin Koran <komar(zv)komar(tec)cz> - 13.4.1999 16:46:46
Ahoj,> 2) mam 10 exacu program1.exe .. program10.exe ktery se lisej
> akorat tim
> jmenem exe souboru, a vsechny pouzivaji TMyForm
>
zkus dat do souboru *.dpr tohle
HMapping := CreateFileMapping($FFFFFFFF, nil, Page_ReadOnly, 0, 32,
'Program1');
if (hMapping <> 0) and (GetLastError = Error_Already_Exists) then begin
... uz je spustena
end;
S pozdravem
Martin Koran
============================================
Martin Koran
KOMAR
Hilbertova 68
440 01 LOUNY
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (602) 42 33 72
http://wwww.komar(tec)cz
mailto:info(zv)komar(tec)cz
Monitorov�n� pr b hu aplikace
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 13.4.1999 16:49:10
> Ahoj,
>
> m�m n�sleduj�c� probl�mek. M�m prom nnou nastavenou na False. Kdekoli v
> programu ji zm n�m na True a pot ebuji n co, co bude neust�le kontrolovat
> hodnotu prom nn� a v moment , kdy ji zm n�m na True vykon� dal � kroky.
>
> D�ky
>
> Va ek
****Zkus to hodit do komponenty a pri zmene vlastnosti z True na
False (a obracene) udelej co potrebujes.
Mozna bude fungovat toto:
unit MyValue;
interface
type
TValue = class
private
{ Private declarations }
FValue: Boolean;
procedure SetValue (NewValue: Boolean);
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property BoolValue: Boolean read FValue write SetValue;
end; {TValue}
implementation
procedure TValue.SetValue (NewValue: Boolean);
begin {TValue.SetValue}
if FValue = NewValue then exit;
FValue := NewValue;
if FValue then
// to co chces
else
// to co chces
end; {TValue.SetValue}
end.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------