Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Pouziti maker (min, max ...)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.9.1998 21:26:51
=?iso-8859-1?B?SW5nLiBKYXJvc2 wrote:
> Samozrejme jsem to vyresil tak, ze jsem si napsal svoje Min a Max. Me by
> ale zajimalo, jak pouzit to makro. Ne to, co si vytvorim sam. Nebo snad se
> v Helpu objevuji i casti kodu, ktere maji programatorovi jen rict, jak si
> ma napsat svoji funkci? To je trochu divne. Navic je to v C (Nic proti C,
> spis pro nez proti. Ale D4 je v Pascalu.). Predpokladam proto, ze to makro
> je nekde uz implementovane. Jinak nechapu, proc se v Helpu objevuje.
>
> Takze nevite nahodou, jak pouzit makra min a max, aniz bych je prepisoval
> do sveho zdrojaku?
Obavam se, ze Delphi nepodporuje ceckova makra - alespon jsem
se dosud s nicim takovym nesetkal. Jinak jsou tyto funkce
rozepsane v jednotce Math.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Problemy s barvickama v helpu
[*] �t�p�novi�����-z�����z�w�3 - 6.9.1998 22:37:02
Delam napovedu a u sveho help window jsem si nastavil barvu pozadi atd.,
help zkompiluju, pustim a barva pozadi je stejna jako u okna. Nechal sem to
byt, ale pak me to zacalo vrtat hlavou.
Pouzivam modifikovane obarveni WIR95 "�vestka (high color)", zmenil jsem
je na "standartni windows" a vsechno v pohode. Vyzkousel jsem tedy jine
helpy, napr. napoveda k samotnemu windows opet stejny vysledek.
Po par vyzkousenich sem zjistil, ze jakmile je v obarveni WIR95 v
polozce "okno" barva pozadi jina nez prava bila, tak proste i okna helpu
maji tudle barvu a nemuzete to nijak ovlivnit.
Zda se, ze MS zase zabodoval. Prosim, aby to nekdo vyzkousel i v NT a
98.
PS: Kdybych mel mit barvu pozadi okna, tak sem dneska asi slepej, aneb
kdo svestku vyzkousi, nic jineho uz nepouziva ;)Posuvn�k
[*] Miki Vom��ka����h���h��� - 6.9.1998 23:29:06
Ja pouzivam pouze lokalni databaze a Delphi 3 Prof. Zajimavi je, ze v
prikladu Ctrlgrid (dodavanem s Delphi), se DBGrid chova jako u me, ale v
prikladu Mastap, se chova tak jak bych si predstavoval. Kdyz pouziju
RxDBGrid, tak mam stejny problem, ale v RxDemu dodanem s RxLibrary se
RxDBGrid chova spravne. Kde je zakopany pes?
Miki Vomacka
vmiki(zv)post(tec)cz
-----P�vodn� zpr�va-----
Od: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 6. z��� 1998 16:35
P�edm�t: Re: Posuvn�k
>Tak tohle funguje bohuzel pouze na lokalnich databazich. Na SQL
>databazich totiz nefunguje vlastnost RecNo. Resp. lze to rozchodit,
>pouzijes-li napr. komponenty pro komunikaci pres OleDB a kurzor na
>strane klienta.
>
>Mac
>
>Miki Vom��ka wrote:
>>
>> Ahoj,
>> Poradi mi nekdo jak rozhybat posuvnik na vertikalnim scrollbaru DBGrid?
Ten
>> muj rozlisuje jen tri polohy, nahore, dole a urostred. Pokud se pohnu na
>> druhy zaznam, posuvnik se presune doprostred scrollu a je tam dokud
nedojdu
>> na posledni. Potreboval bych, aby se pohyboval dle aktualniho zaznamu po
>> cele delce scrollu.
>> Diky za rady
>>
>> Miki Vomacka
>> vmiki(zv)post(tec)cz
>
>--
>==============================================================
>= Ing. Martin Kubecka - Amenit s.r.o. =
>= Na Valech - budova Dytron, 741 01 Novy Jicin =
>= telefon: +420 603 265926 =
>= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
>==============================================================
>Print in Quickreport
[*] Petr Posp�il - 7.9.1998 07:09:05
Zdravim vsechny odborniky pres Delphi !
Vedel by nekdo,jak vyresit problem v QuickReport v2.0k s tisknutim
vice kopii jedne stranky ?Nastavovani poctu stranek v setupu pro tiskarnu,
na zmenu vubec nereaguje.
Diky za pomoc !
Petr Pospisil
Menu
[*] Jiri Sladek <chmelar(zv)oasanet(tec)cz> - 7.9.1998 07:55:55
Taky jsem se snazil udelat 'menu, ktere nemizi'.
Nakonec jsem se na menu uplne vykaslal a pouzivam misto menu formular s
tlacitky.
Tam jsem musel zase zapasit s tim, aby slo sipkama chodit s fokusem na
vsechny ctyri svetove strany.
>Mam menu stylu
>
>Soubor Upravy Zobrazit Napoveda
>Potreboval bych udelat, aby mi menu Zobrazit (ktere obsahuje polozky na
>zaskrtnuti) zustalo rozbalene, dokud nekliknu mysi mimo to menu. Jak na
>to?
Pouziti maker (min, max ...)
[*] David_Zabensky.UNION(zv)union(tec)cz - 7.9.1998 08:01:45
> Jak mam pouzit makra min, max a jim podobne? V helpu D4 jsem je nasel,
ale
> jak je pouzit, to teda nevim. V helpu je napsana tahle definice:
>
> #define min(a, b) (((a) < (b)) ? (a) : (b))
>
> To je C. ;-))
> Krome toho je tam uvedeno, ze deklarace je v hlavickovem souboru 'vfw.h'.
> Ale jak to pouzit ve zdrojaku meho programu?
Tak me napada - nebylo by to super, kdyby Inprise udelal pascal silnejsi o
podporu maker >> urcite by to znacne zrychlilo programy a zaroven by to
bylo vitane pro lidi co maj radi pascal pro jednoduchost ale chybi jim sila
cecka. Je fajn, ze se daji uz alespon pretezovat funkce. Mohlo by se taky
zlepit programovani pointerove aritmetiky...
S temi makry je to skoda, jelikoz kolikrat napisete funkci, jenz dela
uplnou srandu - ma kratky kod ale diky kodu, ktery prida prekladac pro
obsluhu volani funkce, predani parametru atd. je vlastni obsluha teto
funkce daleko narocnejsi, nez jeji vlastni "prace". Typicky priklad je
Min() ci Max().
David;
Interbase
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 7.9.1998 08:05:26
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zakoupil jsem instalacn� sadu Interbase mediakit 5.1 a pro zakaznika server licenci, jeji� soucasti je 1 klient.
Soucasti mediakitu je eval. licenece pro server a 4 uzivatele.
lokalne mi vse funguje OK.
Pokud chci pouzit klient a nainstaluju na pocitac na siti Interbase klient a vytvorim alias
pri jeho otevreni dostanu hlasku "Remonte interface is not licenced" nebo tak nejak.
To same se deje u zakaznika, ktery ma registrovany server + 1 klienta.
Pri pouziti Comunikation diagnostic probehne test spojeni OK.
Neni nahodou eval. licence omezena jeste pouzitim ODBC ovldace, nebo to jde i pres nativni (lokalne urcite ano) ?
Lze pristupovat vzdalene na Server +1 klient licence, nebo je to puze lokalni?
dekuji vsem za odpoved
OpenGL
[*] Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz> - 07.9.1998 08:08:47
Zdravim vsechny priznivce Delphi,
snazim se programovat pod OpenGl v Delphi 2 (komponenta GLPanel).
Teprve s touto oblasti programovani zacinam a proto bych rad vedel, zda
nekdo z vas nezna nakou lepsi komponentu a zda nekde na ceskych Webech
neexistuji ceske scripta ci prirucky. Nejake informace jsem nasel u SGI,
ale nejni to idealni...
Ma druha prosba se tyka programovani portu (com, lpt) a zda na toto
neexistuje naka sikovna komponenta..
Dekuji za Vase odpovedi a cas me venovany... STOUPA
-------------------------------------
Jan Janecek
VOS_SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
WEB: HTTP://members.xoom.com/stoupik
-------------------------------------
Setting Printer
[*] V�t�zslav Gazda������u��忾�? - 7.9.1998 08:20:20
Pro tisk pouzij objekt TPrinter. Orientaci muzes nastavit pomoci vlastnosti
Orientation, nebo muzes zavolat metodu SetPrinter, ktera ti umozni nastavit
jak orientaci tak velikost stranky.
Vita
Record a seznam funkci
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 7.9.1998 08:22:10
>Pozn. Nevi nekdo jaky je rozdil mezi pouzivani a nepouzivani WITH pri
>praci s RECORDem (krome uspory mista) v textu.
Pry je to rychlejsi (with "with").
D.
DLL a Resource
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 7.9.1998 08:23:19
Hi,
to zalezi na tom, zda modul, ve kterem jsou resource umisteny, byl pri
prekladu oznacen za LOADONCALL nebo PRELOAD.
(obecne byva malo co oznaceno jako PRELOAD, takze by se to melo tahat az
pri pozadavku)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
> Odesl�no: 06. z��� 1998 19:10
> Komu: Delphi Konference (el. adresa)
> P�edm�t: DLL a Resource
>
> Prosim vas mam jeden takovy zakladni dotaz ohledne resourcu v DLL. Mam
> program, ktery taha obrazky z DLL (kde jsou ulozeny jako Resource)
> pomoci funkci jako LoadFromResourceID. Ty obrazky jsou velke a je jich
> hodne (asi 30 MB). A ted ten dotaz. Kdyz otevru knihovnu pomoci
> LoadLibrary('XXX.dll') tak kolik pameti ta knihovna zabira ???
> Natahnou
> se do pameti i ty Resources a nebo se natahne obrazek do pameti az
> kdyz
> pouziju LoadFromResourceID.
> Na to jak dlouho programuju ve windowsech bych to mel asi vedet, ale
> nejak mi to uniklo.
>
>
> S pozdravem
> Zdenek Petruj
> ____________________________
> adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
> ____________________________
> tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
> e-mail: zpetruj(zv)zebra(tec)cz
> internet: http://www.zebra(tec)cz
> RGB
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 7.9.1998 08:27:49
Zdravim vsechny,
mam nasledujici problemek. Z TColorDialog bych potreboval ziskat barvu
ve formatu #XXYYZZ, jak se pouziva v HTML. Cim to mam prevest?
Dekuji.
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://freeweb.coco(tec)cz/sovtop .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................
Print in Quickreport
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 7.9.1998 08:28:19
Ahoj,
s timhle uz jsem se taky setkal. Nemuze za to QR, ale ovladac tiskarny (mne to nefunguje napr. u CANON BJ-10sx)...
S pozdravem
Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>
> -----Puvodni zprava-----
> Od: Petr Pospi?il [SMTP:petrpospisil(zv)usa.net]
> Odeslano: 7. zaoi 1998 7:09
> Komu: Delphi forum
> Poedmit: Print in Quickreport
>
> Zdravim vsechny odborniky pres Delphi !
> Vedel by nekdo,jak vyresit problem v QuickReport v2.0k s tisknutim
> vice kopii jedne stranky ?Nastavovani poctu stranek v setupu pro tiskarnu,
> na zmenu vubec nereaguje.
> Diky za pomoc !
>
> Petr Pospisil
>
> Encryptace data
[*] Jan Nov�k���r����n�?��? - 7.9.1998 08:30:44
Pouzivam Delphi verze 3.0
Cau p�nove .
Do pole databazove tabulky (napr. tabulky na InterBase Serveru ) bych
chtel ukladat napr . heslo . Existuje
v Delphi nejaka funkce nebo moznost jak zapisovat do tabulky udaje
encryptovane. Kratce
receno encryptovat a zper deencryptovat data z databazove tabulky.
Diky za radu
OffTopic: Rozesilani e-mailu ve Windows NT
[*] Prantl Zden�k <Zdenek.Prantl(zv)pvt(tec)cz> - 7.9.1998 08:37:38
> -----Original Message-----
> From: Jan Sluka [SMTP:snipe(zv)mail.cybernet(tec)cz]
> Sent: Sunday, September 06, 1998 12:58 PM
> Subject: OffTopic: Rozesilani e-mailu ve Windows NT
>
> je ekvivalentni vyse zminenenemu v UNIXu, tj.
> co v NT spustit, abych mohl rozeslat e-maily.
Hledej na Netu programek se jmenem "blat". Je to free i se zdroji.
A funguje i pod Win95.
Pokud nenajdes mohu zaslat (velikost baliku je do 100kB).
ZdeP.Pouziti maker (min, max ...)
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 7.9.1998 08:51:53
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: David_Zabensky.UNION(zv)union(tec)cz
> [SMTP:David_Zabensky.UNION(zv)union(tec)cz]
> Odesl�no: 07. z��� 1998 9:02
> Komu: DELPHI Distribution List
> P�edm�t: Re: Pouziti maker (min, max ...)
>
> > Jak mam pouzit makra min, max a jim podobne? V helpu D4 jsem je
> nasel,
> ale
> > jak je pouzit, to teda nevim. V helpu je napsana tahle definice:
> >
> > #define min(a, b) (((a) < (b)) ? (a) : (b))
> >
> > To je C. ;-))
> > Krome toho je tam uvedeno, ze deklarace je v hlavickovem souboru
> 'vfw.h'.
> > Ale jak to pouzit ve zdrojaku meho programu?
>
> Tak me napada - nebylo by to super, kdyby Inprise udelal pascal
> silnejsi o
> podporu maker >> urcite by to znacne zrychlilo programy a zaroven by
> to
> bylo vitane pro lidi co maj radi pascal pro jednoduchost ale chybi jim
> sila
> cecka. Je fajn, ze se daji uz alespon pretezovat funkce. Mohlo by se
> taky
> zlepit programovani pointerove aritmetiky...
>
[Martin Fron�k] Nejvic fajn by bylo, pokud by Inprise opustila
pascal :-) a soustredila se na C++ !
Pascal ve vetsim dnes uz dela jen Inprise, nerika vam to nic? Ci
snad jsou OS psany v pascalu? V cem je asi napsany Word?
Nechci rozpoutat flamewar, ale racte si poslouzit -> NE DO
KONFERENCE. Off topic Email
[*] V�t�zslav Gazda������u��忾�? - 7.9.1998 08:51:26
Jakym zpusobem se da rozdelit jedna emailova schranka podle nejake dodatecne
syntaxe v emailove adrese. Casto vidam pred adresou nejake uzivatelske jmeno
tecku a adresu, treba neco takoveho vitagazda.softda(zv)mbox.vol(tec)cz . Existuje
na to nejaky programek, ktery automaticky rozdeli prichozi postu.
Diky Vita
DLL a Resource
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.9.1998 09:06:58
Haj hou!
>Prosim vas mam jeden takovy zakladni dotaz ohledne resourcu v DLL. Mam
>program, ktery taha obrazky z DLL (kde jsou ulozeny jako Resource)
>pomoci funkci jako LoadFromResourceID. Ty obrazky jsou velke a je jich
>hodne (asi 30 MB). A ted ten dotaz. Kdyz otevru knihovnu pomoci
>LoadLibrary('XXX.dll') tak kolik pameti ta knihovna zabira ??? Natahnou
>se do pameti i ty Resources a nebo se natahne obrazek do pameti az kdyz
>pouziju LoadFromResourceID.
Tak na tuhle otazku se opravdu neda jednoznacne odpovedet. Velikost obsazene
pameti (jak fyzicke RAM, tak virtualni) je zavysle na mnoha faktorech, ktere
jsou plne pod kontrolou OS. Obecne se da rici, ze je obsazeno prave tolik
pameti, kolik je nezbytne nutne (minimalne tedy velikost resource zkrouhlena
na 64KB v RAM).
HTH
Setting Printer
[*] Prantl Zden�k <Zdenek.Prantl(zv)pvt(tec)cz> - 7.9.1998 09:07:09
> -----Original Message-----
> From: Ing. Jaroslav K�e�ek [SMTP:grafex(zv)iol(tec)cz]
> Sent: Sunday, September 06, 1998 7:11 PM
> Subject: Setting Printer
>
> Ahoj,
>
> nevite nahodou, jak nastavit velikost a orientaci stranky v tiskarne, aniz
> by musel nebo mohl zasahovat uzivatel?
> Jeste jsem y Delphi nikdy netiskl. Asi budu potrebovat vetsi nakopnuti.
Snad bude stacit male:
Printer.Orientation := poLandScape
nebo
Printer.Orientation := poPortrait
ZdeP
InterbaseProLinuch
[*] Marcello Dvoracci <dvo20um(zv)axpsu.fpf.slu(tec)cz> - 7.9.1998 09:25:57
Panove nevite nekdo cirou nahodou, kde je mozne stahnout tu verzi
Interbase pro Linux co je zadara???
Predem dekuji za ochotu
Marcello
Zobrazene menu po startu programu
[*] David_Zabensky.UNION(zv)union(tec)cz - 7.9.1998 09:52:26
Cau vsichni,
Nekde jsem tu zahledl dotaz ohledne menu, co bude vzdy rozbalene po startu
programu. S klasickym menu to asi pujde dost tezko. Existuje vsak moznost
to obejit pomoci PopupMenu >> ma metodu Popup(X, Y: int), ktera ho udala
viditelnym. Kdy to je vec programatora (nemusi to byt nutne na kliknuti
praveho tlacitka mysi - treba na Form1.FormActivate). Chtel byl jen
upozornit, ze X a Y jsou GLOBALNI souradnice (tj. souradnice Windows, ne
formulare a tak se musi prepocitat).
:
:
procedure TForm1.FormActivate(Sender: TObject);
begin
// zobrazim menu centrovane v oknu
PopupMenu1.Popup(Left + Width div 2,Top + Height div 2);
end;
:
:
Zda se mi to jednodussi nez pomoci TPanel.
S pozdravem David;
password for .mdb
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 07.9.1998 10:25:50
Ahojda,
zkus se juknout na http://astalavista.box.sk/ ....
PS: Potreboval bych to same, ale u XLS :-( .
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Miloslav Skacel wrote:
> Ahoj,
>
> nevite nekdo jak zpetne zjistit heslo k databazi .mdb?
>
> S pozdravem,
> Miloslav Skacel
> skacel(zv)kjsoft(tec)cz
> http://www.kjsoft(tec)cz
Off topic Email
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 7.9.1998 10:25:59
Existuje. Podivej se na http://www.winroute(tec)cz . Je to ale komercni
aplikace, kde i s mail-serverem to stoji cca 12.000 Kc. Muzes si stahnout
demo-verzi, ktera funguje 20 minut, pak ji musis znovu spustit. Da se to
provozovat i jako lokalni mail-server (nehlede na to, ze se tim da nahradit
i Microsoft Mail nebo Exchange Server - Microsoft mi doufam odpusti ;-)
Mail server funguje tak, ze stahuje maily z jednoho POP3 uctu a podle
nejakejch kriterii (treba co obsahuje adresa prijemce) to pak tridi do
ruznych schranek. Lokalni postu (mezi uzivateli na jedne siti) to tridi
zrovna, nepripojuje se na Web. Je to velice sikovny. Da se taky pouzit
predchudce, coz je WinProxy od firmy, kde autor WinRoute puvodne
pracoval...
S pozdravem
Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>
> -----Puvodni zprava-----
> Od: Vitizslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odeslano: 7. zaoi 1998 8:51
> Komu: DELPHI Distribution List
> Poedmit: Off topic Email
>
> Jakym zpusobem se da rozdelit jedna emailova schranka podle nejake
dodatecne
> syntaxe v emailove adrese. Casto vidam pred adresou nejake uzivatelske
jmeno
> tecku a adresu, treba neco takoveho vitagazda.softda(zv)mbox.vol(tec)cz .
Existuje
> na to nejaky programek, ktery automaticky rozdeli prichozi postu.
>
> Diky Vita
Jeste DLL a Resource
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 7.9.1998 10:46:23
Tak jeste jinak. Muzu tu DLL otevrit na zacatku programu, tahat z ni
obrazky a na konci programu ji zavrit a nebo mam dat LoadLibrary az ve
chvili kdy obrazky taham a pak dat hned FreeLibrary.
> Haj hou!
>
> >Prosim vas mam jeden takovy zakladni dotaz ohledne resourcu v DLL.
> Mam
> >program, ktery taha obrazky z DLL (kde jsou ulozeny jako Resource)
> >pomoci funkci jako LoadFromResourceID. Ty obrazky jsou velke a je
> jich
> >hodne (asi 30 MB). A ted ten dotaz. Kdyz otevru knihovnu pomoci
> >LoadLibrary('XXX.dll') tak kolik pameti ta knihovna zabira ???
> Natahnou
> >se do pameti i ty Resources a nebo se natahne obrazek do pameti az
> kdyz
> >pouziju LoadFromResourceID.
>
>
> Tak na tuhle otazku se opravdu neda jednoznacne odpovedet. Velikost
> obsazene
> pameti (jak fyzicke RAM, tak virtualni) je zavysle na mnoha faktorech,
> ktere
> jsou plne pod kontrolou OS. Obecne se da rici, ze je obsazeno prave
> tolik
> pameti, kolik je nezbytne nutne (minimalne tedy velikost resource
> zkrouhlena
> na 64KB v RAM).
>
> HTH
>
> DLL a Resource
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 7.9.1998 11:04:43
A nezavisi to na tom jake ma to DLL atributy?
Mam na mysli LOADABLE, MOVEABLE, DISCARDABLE ?
Martin
>Haj hou!
>
>>Prosim vas mam jeden takovy zakladni dotaz ohledne resourcu v DLL. Mam
>>program, ktery taha obrazky z DLL (kde jsou ulozeny jako Resource)
>>pomoci funkci jako LoadFromResourceID. Ty obrazky jsou velke a je jich
>>hodne (asi 30 MB). A ted ten dotaz. Kdyz otevru knihovnu pomoci
>>LoadLibrary('XXX.dll') tak kolik pameti ta knihovna zabira ??? Natahnou
>>se do pameti i ty Resources a nebo se natahne obrazek do pameti az kdyz
>>pouziju LoadFromResourceID.
>
>
>Tak na tuhle otazku se opravdu neda jednoznacne odpovedet. Velikost
obsazene
>pameti (jak fyzicke RAM, tak virtualni) je zavysle na mnoha faktorech,
ktere
>jsou plne pod kontrolou OS. Obecne se da rici, ze je obsazeno prave tolik
>pameti, kolik je nezbytne nutne (minimalne tedy velikost resource
zkrouhlena
>na 64KB v RAM).
Export
[*] Martin Sasek <sasek(zv)ujep(tec)cz> - 7.9.1998 11:35:01
>Hi,
>
>tak zkus pouzit BDE 5, tam je podpora pro IDX. Proste se snaz obejit co
>nejvic prostredniku.
Nainstaloval jsem si BDE5 a zadnou podporu .IDX jsem tam nenasel. Ani v "New
features in BDE5.0" na inprise.com nic o podpore indexu .idx nepisou.
Martin Sasek
sasek(zv)ujep(tec)cz
Off topic Email
[*] Jan Fiala <fiala(zv)iname(tec)com> - 7.9.1998 11:38:58
Uvedena adresa muze byt obycejna (bez navaznosti na nejake rozdelovani). Pokud pouzivas napr. Outlook expres, podivej se na asistenta pro doslou postu. Tam se da delat veci ....
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Jakym zpusobem se da rozdelit jedna emailova schranka podle nejake dodatecne
syntaxe v emailove adrese. Casto vidam pred adresou nejake uzivatelske jmeno
tecku a adresu, treba neco takoveho vitagazda.softda(zv)mbox.vol(tec)cz . Existuje
na to nejaky programek, ktery automaticky rozdeli prichozi postu.
Diky Vita
Menu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.9.1998 11:44:29
Petr Vones wrote:
> > Mam menu stylu
> >
> > Soubor Upravy Zobrazit Napoveda
> > Potreboval bych udelat, aby mi menu Zobrazit (ktere obsahuje polozky na
> > zaskrtnuti) zustalo rozbalene, dokud nekliknu mysi mimo to menu. Jak na
> > to?
>
> to je docela problem, jiste reseni by tu bylo, ale neni zrovna idealni:
>
A coz treba dat ho do zcela samostatneho tool okna? Nechat jen
hlavni listu v menu a na ni volat to okno. Samozrejme by to asi
chtelo si vyhrat s tim, kdyz se prejizdi po menu, aby se obnovovalo
menu i v tom okne...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Classes
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.9.1998 11:44:29
heinisch(zv)post(tec)cz wrote:
> >> Ze jsem ti nemohl pomoci me asi mrz vic jak tebe, protoze poradit
> >> delfistovi tvych TRect by bylo pro me sebevedomi lepsi jak pekac
> >> buchet pro me telo.
> >
> >Aaano, ty jsem mel dnes k snidani... :-)
> >
> A zes neposlal , ja nejradsi s tvarohem
Kdyz jsi mi neporadil? Stejne byly se svestkami. Krome toho by se
mi zaprasily draty, a kdo vi, jak by mi potom chodily majly.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
RGB
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 7.9.1998 12:15:16
podivej se na funkci ColorToRGB
----------
Od: Krayzel Libor[SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
Odesl�no: 7. z��� 1998 8:27
Komu: '*** Delphi'
P�edm�t: RGB
Zdravim vsechny,
mam nasledujici problemek. Z TColorDialog bych potreboval ziskat barvu
ve formatu #XXYYZZ, jak se pouziva v HTML. Cim to mam prevest?
Dekuji.
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://freeweb.coco(tec)cz/sovtop .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................
D3 - overflow listy komponentu
[*] Ales Bukovsky <elidisp(zv)mbox.vol(tec)cz> - 07.9.1998 12:16:46
> Jan Fiala wrote:
>
> Nemas nahodou video kartu S3 trio ? :-))
Mam S3 Virge... Ale porad netusim odkud vitr fouka... :(RGB
[*] Tomas Bobek <tbobek(zv)ciglersw(tec)cz> - 07.9.1998 12:18:06
Krayzel Libor wrote:
> mam nasledujici problemek. Z TColorDialog bych potreboval ziskat barvu
> ve formatu #XXYYZZ, jak se pouziva v HTML. Cim to mam prevest?
quick & dirty:
function GetHTMLColorValue(MyColor: TColor): String;
begin
Result := Format('%x', [ColorTORGB(MyColor)]);
Result := Copy('000000', 1, 6-Length(Result)) + Result;
Result := '#' + Copy(Result, 5, 2) + Copy(Result, 3,2) + Copy(Result,
1, 2);
end;
--
Tomas Bobek.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
kamenici v okne (maly off)
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 7.9.1998 12:34:58
Ahoj delphisti a delphistky
kolega resi problem, kdy v ceskych W95 je nucen spoustet DOS program v
Kamenikach.
Nekde jsem kdysi zaslechl neco o finte, ze se dalo nejak presvedcit wokna aby
pri jistem typu zobrazeni byly kamenici spravne videt i v okne.
jeste jednou sorry za off.
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============Dvojnasobny prechod v QR
[*] Peter Hudec <hudec(zv)ns.basl.sk> - 7.9.1998 12:41:42
Nazdar nazdar.
Mam otazku.
Ked v Preview v QuickReporte 2.0k stlacim tlacitko print, zacne mi znovu
prechadzat cely vypocet, ktory uz vykonal pocas Preview.
Myslim, ze vo verzii 1.0 uz iba vytlacil to, co uz bolo zobrazene v
Preview a nevykonaval uz vypocet (alebo prechod databazy) znovu.
Da sa take nieco dosiahnut aj v QR 2.0 ???
Caute a dakujem.
Peter.Record a seznam funkci
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.9.1998 12:49:56
>
>>Pozn. Nevi nekdo jaky je rozdil mezi pouzivani a nepouzivani WITH pri
>>praci s RECORDem (krome uspory mista) v textu.
>
>Pry je to rychlejsi (with "with").
v Borland Pascalu platilo, ze od cca 4 vyskytu prirazeni z/do rekordu
(zvlaste byl-li reprezentovan pointerem) se setrila delka kodu. Podobne
je to s rychlosti vykonavani. Myslim, ale ze Delphi leccos okolo nyni
zoptimalizuji sami. Staci zkusit kus kodu prelozit a podivat se
disassemblerem jak to dopadlo.
Zdravi
D. Toman
Propojeni unit 2
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.9.1998 12:52:23
> Zkus ty odkazy davat do sekce IMPLEMENTACION a ne do INTERFACE :
>
> Implementacion
>
> Uses xxx, xxx, ....
Jaky je presne rozdil mezi vkladanim odkazu do IMPLEMENTATION a do
INTERCFACE?
pokud muzu tak vzdy vsechno rvu do IMPLEMENTATION sekce. Pokud budou
Unity v INTERFACE je riziko ze dojde k "circular unit reference" (pokud
se unity odkazuji jedna na druhou - a muze to byt i neprimo, z cehoz se
jen obtizne lze obcas vymotat.
Zdravi
D. Toman
kalkulacka vo W95
[*] Ing. J�n Kuch�r�����!j��G - 7.9.1998 12:54:27
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledovny problem. Pomocou prikazu winexec volam v D3 z W95 kalkulacku. Po vypocitani nejakych hodnot ale potrebujem aby program zistil posledne cislo na kalkulacke a zapamatal si ho, poradte ako prenesiem toto cislo do svojho programu,be z toho aby ho uzivatel znova zadaval.
Dik
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk Pouziti maker (min, max ...)
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.9.1998 12:55:41
Pratele,
podobne invektivy ci vylevy si laskave nechte od cesty, neb NEPATRI do teto
konference. K tomuto ucelu existuji newsgroupy comp.lang.c.advocacy a
comp.lang.delphi.advocacy , kde sve dusevni prujmy muzete ventilovat do
bezvedomi.
Haj hou!
-----P�vodn� zpr�va-----
[Martin Fron�k] Nejvic fajn by bylo, pokud by Inprise opustila
pascal :-) a soustredila se na C++ !
Pascal ve vetsim dnes uz dela jen Inprise, nerika vam to nic? Ci
snad jsou OS psany v pascalu? V cem je asi napsany Word?
Nechci rozpoutat flamewar, ale racte si poslouzit -> NE DO
KONFERENCE.
DLL a Resource
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.9.1998 12:57:59
Haj hou!
LOADONCALL a PRELOAD nemaji vubec nic do cineni s velikosti obsazene pameti,
nemluve o tom, ze pod WIN32 jsou krapitek out.
HTH
-----P�vodn� zpr�va-----
to zalezi na tom, zda modul, ve kterem jsou resource umisteny, byl pri
prekladu oznacen za LOADONCALL nebo PRELOAD.
(obecne byva malo co oznaceno jako PRELOAD, takze by se to melo tahat az
pri pozadavku)
Record a seznam funkci
[*] David_Zabensky.UNION(zv)union(tec)cz - 7.9.1998 13:02:41
"with" je rychlejsi (a pohodlnejsi).
David;
Primary Key
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 7.9.1998 13:05:47
Zdravim Delphisty!
Mel bych takovou prosbicku. Nelze mi vytvorit databazov� tabulka
s indexy pomoc� "Primary Key". Pouz�v�m :
sSQLRequest := 'CREATE TABLE "' + sFileName + '" ( last_name CHAR(20),
first_name CHAR(15), salary NUMERIC(10,2), dept_no SMALLINT, PRIMARY KEY
(last_name, first_name))';
try
Query1.Active := False; //determinate connection to date in
database
Query1.SQL.Clear; //empty query
Query1.SQL.Add(sSQLRequest);
Query1.ExecSQL; //Execute command in SQL
Query1.SQL.Clear;
except
on e: EDBEngineError do
begin
MessageDlg(('Sorry, an error ocours: ' + chr(13) + chr(13) +
e.message), mtError, [mbOk], 0);
end;
end;
a stale mi to vraci:
"Project Navig.exe raised exeption class EDBEngineError with message
'invalid index/tag name.
File or directory does not exist.
File: C:\DELPHI\hgj.dbf
Table does not exist.
Table: C:\Delphi.dbf.' Process stopped. Blabla to continue.
A pritom je to vytazeny primo z Helpu :-)
Kdyz zadam jen jeden Primary Key tak to funguje! Poradite? Diky!
M&B
RGB
[*] David_Zabensky.UNION(zv)union(tec)cz - 7.9.1998 13:14:56
Ahojte,
Logicky vzato by to mohlo byti neco takoveho:
function ColorToRGB(C: TColor): string;
var R, G, B: byte;
Pom: longint;
begin
Pom:= ColorToRGB(C);
Result:= ANSIUpperCase(Format('#%.2x%.2x%.2x',
[GetBValue(Pom),GetGValue(Pom),GetRValue(Pom)]));
end;
PS: Neni to na 100% ale clRed = $0000FF. HTML ma asi syntaxi GBR, v Front
Page mi to vracelo hodnotu #FF0000.
Napis co a jak.
S pozdravem David;
Volani procedury
[*] Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz> - 07.9.1998 13:25:40
Zdravim vsechny...
mam nasl. problem...
potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
procedure Tnastavglform.CheckBox1Click(Sender: TObject);
begin
antialGL:=checkbox1.checked;
end;
z jine procedury (napr. tlacitko...)
Je to banalita, ale jsem zacatecnik :))))
Dekuji za vase odezvy a rady...
Stoupa
-------------------------------------
Jan Janecek
VOS_SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
WEB: HTTP://members.xoom.com/stoupik
-------------------------------------
RGB
[*] Ing. Jaroslav K�e�ek - 7.9.1998 13:37:25
Jestli t�m #XXYYZZ mysl� #RRGGBB, tak zkus
var RGBValue : longint;
RGBValue := ColorToRGB(AColorDialog.Color);
Nevim, jestli tahle funkce Ti vrati presne dva bity pro Red, dva pro Green,
a dva pro Blue (spis bzch rekl, ze vic ... viz longint), ale je to format
pouzivany ve WinAPI
Jaroslav Krecek
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ing. Jaroslav K�e�ek
computer graphic & software development
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
e-mail: grafex(zv)iol(tec)cz or krecek(zv)iol(tec)cz
for short quick message use
jaroslav.krecek(zv)sms.paegas(tec)cz
phone: +420.603.226103
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
>mam nasledujici problemek. Z TColorDialog bych potreboval ziskat barvu
>ve formatu #XXYYZZ, jak se pouziva v HTML. Cim to mam prevest?
>Dekuji.
>. Libor Krayzel .
primarni index
[*] Marcello Dvoracci <dvo20um(zv)axpsu.fpf.slu(tec)cz> - 7.9.1998 14:33:55
Zdravim panove,
potreboval bych proceduru co zjisti pocet fieldu a jejich nazvy v
primarnim indexu.
Nemate nekdo???
M.DLL a Resource
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 7.9.1998 14:38:43
Vytvarim DLL pomoci Delphi3 a obrazky mam v *.res. Co si mam
predstavit pod pojmem modul ve kterem jsou resource a kde a cim mohu
nastavovat LOADONCALL nebo PRELOAD.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Odesl�no: 7. z��� 1998 8:23
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: DLL a Resource
>
> Hi,
>
> to zalezi na tom, zda modul, ve kterem jsou resource umisteny, byl pri
> prekladu oznacen za LOADONCALL nebo PRELOAD.
> (obecne byva malo co oznaceno jako PRELOAD, takze by se to melo tahat
> az
> pri pozadavku)
>
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
> > Odesl�no: 06. z��� 1998 19:10
> > Komu: Delphi Konference (el. adresa)
> > P�edm�t: DLL a Resource
> >
> > Prosim vas mam jeden takovy zakladni dotaz ohledne resourcu v DLL.
> Mam
> > program, ktery taha obrazky z DLL (kde jsou ulozeny jako Resource)
> > pomoci funkci jako LoadFromResourceID. Ty obrazky jsou velke a je
> jich
> > hodne (asi 30 MB). A ted ten dotaz. Kdyz otevru knihovnu pomoci
> > LoadLibrary('XXX.dll') tak kolik pameti ta knihovna zabira ???
> > Natahnou
> > se do pameti i ty Resources a nebo se natahne obrazek do pameti az
> > kdyz
> > pouziju LoadFromResourceID.
> > Na to jak dlouho programuju ve windowsech bych to mel asi vedet, ale
> > nejak mi to uniklo.
> >
> >
> > S pozdravem
> > Zdenek Petruj
> > ____________________________
> > adress: Zebra systems, s.r.o.
> > Spartakovcu 3
> > 708 00 Ostrava - Poruba
> > Czech republic
> > ____________________________
> > tel./fax.: +420-(0)69-6912961
> > +420-(0)69-6912963
> > e-mail: zpetruj(zv)zebra(tec)cz
> > internet: http://www.zebra(tec)cz
> > Page Scroller & Tool bar
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 7.9.1998 14:42:43
Zdravim,
muzete mi prosim nekdo poradit s nasledujicim problemem ?
Chtel bych pouzivat Page Scrooler, na kterem bute Tool Bar. Rad bych, aby
kdyz je v Tool Baru vice tlacitek, nez je jeho sirka zacal fungovat Page
Scroller. Nejakych vysledku jsem se sice dobral, ale stale narazim na jeden
problem a to, ze na prave strane mi to nezobrazi cele tlacitko, ale jen jeho
cast.
Vasek
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
RGB
[*] Valicek Arnost <valiceka(zv)mgv.inext(tec)cz> - 7.9.1998 14:49:11
> mam nasledujici problemek. Z TColorDialog bych potreboval ziskat barvu
> ve formatu #XXYYZZ, jak se pouziva v HTML. Cim to mam prevest?
> Dekuji.
>
mozna by to slo nejak takto:
-z 4 bytoveho integeru (TColor) vybrat R,G,B polozky
treba takto:
type TColRec=record
X:Byte;
R:Byte;
G:Byte;
B:Byte;
end;
.
.
.
var ColorQ:TColorRec;
TextR,TextG,TextB:String;
.
.
.
ColorQ:=TColRec(ColorDialog.Color);
-prevest do sestnactkove soustavy to #RRGGBB
TextR:=IntToHex(ColorQ.R);
TextG:=IntToHex(ColorQ.G);
TextB:=IntToHex(ColorQ.B);
a vysledny text:=TextR+TextG+TextB;
Pozn. Asi bude nutne zmenit poradi polozek X,R,G,B v definici
recordu (zkuste pri jakem poradi to vraci spravnou poradi cisel).
Jde o to ze TColor je vlastne Integer ve kterem by mely byt byty
barev R,G,B a jeden vyhrazeny byte. Prikazem ColorQ:=TColRec(Color)
se pretypuje promena a tak vlaste muzeme cist jednotlive byty.
(Doufam, ze to bude pracovat, pamatuju si, ze jsem to kdysi tak
delal, ale uz nevim, jestli to fungovalo.)
------------------------------------------------
Arnost Valicek (valiceka(zv)mgv.inext(tec)cz)
------------------------------------------------
alt F4
[*] Valicek Arnost <valiceka(zv)mgv.inext(tec)cz> - 7.9.1998 14:50:48
> >TNejakyForm.OnCloseQuery(....var CanClose: Boolean);
> >begin
> > CanClose := False;
> >end;
> >
> >Petr Fischer
> >
>
> Pokud pouzijes vyse napsane, uz program nevypnes.
>
> Miki Vomacka
> vmiki(zv)post(tec)cz
>
Vypne:
Delphi: Ctrl+F2
Windows Ctrl+Alt+Del
------------------------------------------------
Arnost Valicek (valiceka(zv)mgv.inext(tec)cz)
------------------------------------------------
Volani procedury
[*] Jan Fiala <fiala(zv)iname(tec)com> - 7.9.1998 14:57:54
Mas 2 moznosti :
1. vyberes si u tlacitka OnClick ze seznamu (combo box) proceduru, kterou potrebujes (tot vse)
2. V OnClick tlacitka napises : nastavglform.CheckBox1Click (nazev bez uvodniho T)
S pozdravem "klid zbran�m a program�torum"
se te�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Zdravim vsechny...
mam nasl. problem...
potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
procedure Tnastavglform.CheckBox1Click(Sender: TObject);
begin
antialGL:=checkbox1.checked;
end;
z jine procedury (napr. tlacitko...)
Je to banalita, ale jsem zacatecnik :))))
Dekuji za vase odezvy a rady...
Stoupa
-------------------------------------
Jan Janecek
VOS SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
WEB: HTTP://members.xoom.com/stoupik
-------------------------------------
Zobrazovani AVI-souboru
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 7.9.1998 14:59:51
Vazeni odbornici,
pri zobrazovani softwaroveho AVI-souboru 800x600 pixelu pomoci
komponenty MediaPlayer na panelu 800x600 bodu, umistene na formulari
bez okraju (BorderStyle=None), zustava pri rozliseni obrazovky
800x600 pri dolnim okraji panelu nezobrazeny prouzek o sirce asi 15
bodu. Je to problem, na ktery narazil kolega v C++ Builderu. Nevite,
prosim, v cem muze byt pricina?
Predem dekuji za laskavost
-------------------------------------------------------
Ing.Jan Plisek,
Stredni prumyslova skola elektrotechnicka a Vyssi
odborna skola
Karla IV. 13 Phone: +42 40 51 68 21
531 69 Pardubice Fax: +42 40 51 70 37
Czech Republic Email: plisek(zv)spse(tec)cz
-------------------------------------------------------
Pouziti maker (min, max ...)
[*] Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz> - 7.9.1998 15:00:32
Prosim Vas lidi, prestante uz s takovyma blbostma. Je to konferenco o
Delphi, coz je vyvojovy nastroj postaveny na Pascalu a ne Cecku nebo
C++. Nekomu se to nemusi libit (muze taky pouziva C++Builder, ze
jo?), ale je to skutecnost a tak to berte na vedomi. A nezapominejte
na to, ze je to nastroj, ktery je mocny (da se v nem naprogramovat
napr. i nejaky ten Word) ale da se zvladnout pomerne jednoduse i pro
zacatecniky. No a na vyvoj OS asi nebude nikdo pouzivat zadny tzv.
RAD nastroj - taky na to nejsou urceny.
S pozdravem
J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Odesl�no: 7. z��� 1998 8:52
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: Pouziti maker (min, max ...)
>
> [Martin Fron�k] Nejvic fajn by bylo, pokud by Inprise opustila
> pascal :-) a soustredila se na C++ !
> Pascal ve vetsim dnes uz dela jen Inprise, nerika vam to nic? Ci
> snad jsou OS psany v pascalu? V cem je asi napsany Word?
> Nechci rozpoutat flamewar, ale racte si poslouzit -> NE DO
> KONFERENCE.
Volani procedury
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 7.9.1998 15:05:10
Cauec,
volej to jako kazdou jinou metodu:
CheckBox1Click(xxx);
pokud to budes volat z jinyho eventu tak tam jako xxx dosad primo jeho
Sender jinak tam dej na nil. Pokud v CheckBox1Click Sender vubec nebudes
testovat tak tam muzes vrazit nil vzdy.
Michal, mailto:mbrabec(zv)ciglersw(tec)cz
> -----Original Message-----
> From: Jan Janecek [mailto:stoupa(zv)vos-sps-jicin(tec)cz]
> Sent: Monday, September 07, 1998 1:26 PM
> To: delphi(zv)pinknet(tec)cz
> Subject: Volani procedury
>
>
> Zdravim vsechny...
>
> mam nasl. problem...
> potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>
> procedure Tnastavglform.CheckBox1Click(Sender: TObject);
> begin
> antialGL:=checkbox1.checked;
> end;
>
> z jine procedury (napr. tlacitko...)
> Je to banalita, ale jsem zacatecnik :))))
> Dekuji za vase odezvy a rady...
>
> Stoupa
>
> -------------------------------------
> Jan Janecek
> VOS_SPS
> Pod Kozeluhy 100
> Jicin 50601
> EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> stoupik(zv)xoommail.com
> WEB: HTTP://members.xoom.com/stoupik
> -------------------------------------
>Volani procedury
[*] Pavel Kral <kral(zv)afx(tec)cz> - 7.9.1998 15:19:48
Ahoj
> mam nasl. problem...
>potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>
>procedure Tnastavglform.CheckBox1Click(Sender: TObject);
> begin
> antialGL:=checkbox1.checked;
> end;
>
>z jine procedury (napr. tlacitko...)
>Je to banalita, ale jsem zacatecnik :))))
>Dekuji za vase odezvy a rady...
v jine procedure ji proste zavolas takto
procedure TnastvgIform.NejakaProcedura;
begin
CheckBox1Click(Self);
end;
Parametr Sender je odkaz na prvek, ktery zpusobi volani
procedury, proto v procedure, ktera sama ma jako parametr
Sender je lepsi predat tento sender. V zasade tam muze byt
i nil, ale potom nemuzes v procedure zjistovat, ktery prvek
ji zavolal a pouzivat ho.
procedure TnastvgIform.Button1Click(Sender: TObject);
begin
CheckBox1Click(Sender);
end;
Parametr Sender se vyuziva v pripade, kdy pises
prakticky stejnou obsluhu udalosti pro vice prvku.
napr. takto muzes prepinat check u polozek menu.
procedure TForm1.MenuSelectClick(Sender: TObject);
var MenuItem: TMenuitem;
begin
if Sender is TMenuItem then
begin
MenuItem := TMenuItem(Sender);
MenuItem.Checked:= not MenuItem.Checked;
end;
end;
Kazda polozka menu, kterou chces takto obslouzit,
musi mit udalosti OnClick prirazenu tuto proceduru.
Zdravim
Pavel
Volani procedury
[*] Filip Jirsak <jirsak(zv)gymnacel(tec)cz> - 7.9.1998 15:19:13
> Date: Mon, 07 Sep 1998 13:25:40 +0200
> To: delphi(zv)pinknet(tec)cz
> From: Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz>
> Subject: Volani procedury
> Reply-to: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Zdravim vsechny...
>
> mam nasl. problem...
> potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>
> procedure Tnastavglform.CheckBox1Click(Sender: TObject);
> begin
> antialGL:=checkbox1.checked;
> end;
>
> z jine procedury (napr. tlacitko...)
> Je to banalita, ale jsem zacatecnik :))))
procedure TForm1.Button1Click(Sender: TObject);
Tnastavglform.CheckBox1Click(Self);
// nebo jen
CheckBox1Click(Self);
myslim, za by to melo jit takhle
Filip Jirsak
> Dekuji za vase odezvy a rady...
>
> Stoupa
>
> -------------------------------------
> Jan Janecek
> VOS_SPS
> Pod Kozeluhy 100
> Jicin 50601
> EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> stoupik(zv)xoommail.com
> WEB: HTTP://members.xoom.com/stoupik
> -------------------------------------
>
e-mail: Jirsak(zv)gymnacel(tec)cz
Setting Printer
[*] Ing. Jaroslav K�e�ek - 7.9.1998 15:27:25
Porad neuspechy!
Potrebuji vytisknout neco na 1/3 A4 v orientaci poLandScape. S orientaci
neni problem zadny. S velikosti ano. Chci na to pouzit pritup prez globalni
promennou Printer. Ale nedari se mi vubec dostat se k informacim o tiskarne,
ovladaci, velikosti a podobne.
Zkousel jsem to takhle:
var ADeviceMode: THandle;
ADeviceStr : string;
pInfoStruct : PRINTER_INFO_2;
pcbNeeded : LPDWORD;
ErrorNum : DWORD;
begin
if not GetPrinter(Printer.Handle, 2, (zv)pInfoStruct, SizeOf(PRINTER_INFO_2),
pcbNeeded) then
~~~~~~~~
ErrorNum := GetLastError;
with Printer do begin
GetPrinter(pInfoStruct.pPrinterName, pInfoStruct.pDriverName,
pInfoStruct.pPortName, ADeviceMode);
{Tady prenastavit velikost stranky ve vlastnostech ADeviceMode. Je to
typ DEVMODE?}
SetPrinter(pInfoStruct.pPrinterName, pInfoStruct.pDriverName,
pInfoStruct.pPortName, ADeviceMode);
end;
end;
Nevim, ce je tam spatne, ale vypadne to uz na funkci WinAPI GetPrinter.
GetLastError vrati hodnotu 6. Nikde jsem nenasel, co to znamena. Nevidite
nekde chybu?
Nevite, jak jinak pouzit TPrinter.SetPrinter ? Nebo jinym zpusobem
programove prenastavit velikost stranky ne tiskarne?
Diky za kazdou radu. Jaroslav Krecek
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ing. Jaroslav K�e�ek
computer graphic & software development
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
e-mail: grafex(zv)iol(tec)cz or krecek(zv)iol(tec)cz
for short quick message use
jaroslav.krecek(zv)sms.paegas(tec)cz
phone: +420.603.226103
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
>Pro tisk pouzij objekt TPrinter. Orientaci muzes nastavit pomoci vlastnosti
>Orientation, nebo muzes zavolat metodu SetPrinter, ktera ti umozni nastavit
>jak orientaci tak velikost stranky.
>
>Vita
>
Volani procedury
[*] Ing. Jaroslav K�e�ek - 7.9.1998 15:40:02
Na zalozce Events objektu tvoje_tlacitko nastav vlastnost OnClick na nazev
procedury CheckBox1Click. Muzes ji vybrat se seznamu priraditelnych
procedur.
Jaroslav Krecek
PS.: Proc kopirujes hodnotu checkboxu nekam do svoji promenne? Ze vsech mist
programu se k te hodnote dostanes jako Form1.CheckBox1.Checked.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ing. Jaroslav Krecek
computer graphic & software development
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
e-mail: grafex(zv)iol(tec)cz or krecek(zv)iol(tec)cz
for short quick message use
jaroslav.krecek(zv)sms.paegas(tec)cz
phone: +420.603.226103
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-----P�vodn� zpr�va-----
Od: Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz>
> mam nasl. problem...
>potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>
>procedure Tnastavglform.CheckBox1Click(Sender: TObject);
> begin
> antialGL:=checkbox1.checked;
> end;
>
>z jine procedury (napr. tlacitko...)
Off topic Email
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 7.9.1998 16:02:53
> Jakym zpusobem se da rozdelit jedna emailova schranka podle nejake dodatecne
> syntaxe v emailove adrese. Casto vidam pred adresou nejake uzivatelske jmeno
> tecku a adresu, treba neco takoveho vitagazda.softda(zv)mbox.vol(tec)cz . Existuje
> na to nejaky programek, ktery automaticky rozdeli prichozi postu.
1. To tady nema co delat.
2. To, co uvadis, je cele jedna e-mail adresa, v e-mail adrese nemuzes
mit zadne "dodatecne syntaxe" tohoto typu, jak pises.
3. U ciziho providera bys musel mit nastaveno vice boxu nebo aliasy.
4. Pokud mas svou domenu, pak lze nastavit treba smerovani posty pro
celou domenu napr. do jednoho boxu, zalezi, jaky mas postovni program.
5. Tridit postu dokazi ruzni mailovi klienti, jako napr. Pegasus Mail,
myslim novy Internet Explorer, Outlook, asi i Netscape Communicator,
nebo proxy servery, jako napr. WinProxy, WinRoute apod.
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 ===
==============================================================DOS memory
[*] Jaroslav Weiss <svitap(zv)svitap(tec)cz> - 7.9.1998 16:10:29
Delam pod Delphi 2 spousteci menu na DOSovske programy. Nektere potrebuji
hodne pameti, jinak havaruji. Da se nejak zjistit velikost DOSovske dolni
pameti (<640kB) aniz bych musel spoustet DOSovsky mem.exe??
Diky predem za pomoc. JWeiss , svitap(zv)svitap(tec)cz
delphi1 - dbgrid
[*] MARSIK(zv)gbn(tec)cz - 7.9.1998 16:21:46
vazeni pratele,
mam jen jednoduchy dotaz. potrebuju v delphi1 v dbgridu menit sirku a
hlavicky sloupcu. v delphi2+ je na to property columns (nebo tak nejak).
poradte komponentu nebo me nakopnete spravnym smerem. diky moc.
{--------------------------------------------------------------------}
{Jakub Marsik web http://www.gbn(tec)cz/marsik/index.htm }
{K Homolce 294 admin of mail & www server of Gymnazium Benesov }
{257 21 Porici n.Saz. }
{--------------------------------------------------------------------}Jeste DLL a Resource
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.9.1998 16:32:07
Haj hou!
>Tak jeste jinak. Muzu tu DLL otevrit na zacatku programu, tahat z ni
>obrazky a na konci programu ji zavrit a nebo mam dat LoadLibrary az ve
>chvili kdy obrazky taham a pak dat hned FreeLibrary.
Rozhodne otevrit hned na zacatku. Opakovana alokace a uvolnovani pameti bude
rozhodne mit vetsi negativni efekt.
HTH
InterbaseProLinuch
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.9.1998 16:39:05
http://www.interbase.com/download/linux/index.html
>Panove nevite nekdo cirou nahodou, kde je mozne stahnout tu verzi
>Interbase pro Linux co je zadara???
RGB
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 7.9.1998 17:25:10
>mam nasledujici problemek. Z TColorDialog bych potreboval ziskat barvu
>ve formatu #XXYYZZ
Ahoj,
viz help ColorToRGB
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Volani procedury
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 7.9.1998 17:30:02
No, a to je nejaky problem zavolat obycejnou proceduru ? :-)
procedure Tnastavglform.BUTTON1Click(Sender: TObject);
begin
CheckBox1Click(Sender);
end;
D.
----------
Od: Jan Janecek[SMTP:stoupa(zv)vos-sps-jicin(tec)cz]
Odesl�no: 7. z��� 1998 13:25
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Volani procedury
Zdravim vsechny...
mam nasl. problem...
potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
procedure Tnastavglform.CheckBox1Click(Sender: TObject);
begin
antialGL:=checkbox1.checked;
end;
z jine procedury (napr. tlacitko...)
Je to banalita, ale jsem zacatecnik :))))
Dekuji za vase odezvy a rady...
Stoupa
-------------------------------------
Jan Janecek
VOS SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
WEB: HTTP://members.xoom.com/stoupik
-------------------------------------
InterbaseProLinuch
[*] RADIK(zv)p15.monet(tec)cz - 7.9.1998 17:34:00
Je to celkem velmi necekana adresa: www.interbase.com.......
Ales
----------
Od: Marcello Dvoracci
Komu: DELPHI Distribution List
P�edm�t: InterbaseProLinuch
Datum: 7. z��� 1998 9:25
Panove nevite nekdo cirou nahodou, kde je mozne stahnout tu verzi
Interbase pro Linux co je zadara???
Predem dekuji za ochotu
Marcello
Multi SQL stat.
[*] ALG <agisoft(zv)softhome(tec)net> - 7.9.1998 18:03:24
Database1.StrartTransaction;
sql.add('INSERT ....
sql.add('INSERT ....
sql.add('INSERT ....
sql.add('INSERT ....
Database1.Commit;
...doufam ze jsem to pochopil , a nemelu kraviny.
ALG
-----P�vodn� zpr�va-----
Od: Martin Sasek [SMTP:sasek(zv)ujep(tec)cz]
Odesl�no: 1. z��� 1998 13:41
Komu: 'DELPHI Distribution List'
P�edm�t: Multi SQL stat.
Jakym zpusobem lze z aplikace poslat na server (InterBase) vice SQL dotazu
najednou (INSERT) ?
Dekuji
Martin Sasek
sasek(zv)ujep(tec)cz
Volani procedury
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 7.9.1998 18:29:13
> Zdravim vsechny...
>
> mam nasl. problem...
> potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>
> procedure Tnastavglform.CheckBox1Click(Sender: TObject);
> begin
> antialGL:=checkbox1.checked;
> end;
>
> z jine procedury (napr. tlacitko...)
> Je to banalita, ale jsem zacatecnik :))))
> Dekuji za vase odezvy a rady...
>
Zavolas ji normalne jejim jmenem CheckBox1Click(Self), pokud to je v
nejake procedure patrici objektu typu TNastavglform. A pokud je to
nekde jinde tak pres jmeno objektu vyse uvedeneho typu (ktery je
obvykle jenom jeden) Jmeno.CheckBox1Click(Self).> Stoupa
>
Chytils gumidka?
Cau Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Record a seznam funkci
[*] micrel <micrel(zv)bohem-net(tec)cz> - 7.9.1998 19:49:49
-----P�vodn� zpr�va-----
Od: Dobromil Mal� [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odesl�no: 7. IX 1998 7:22
Komu: 'DELPHI Distribution List'
P�edm�t: RE: Record a seznam funkci
>Pozn. Nevi nekdo jaky je rozdil mezi pouzivani a nepouzivani WITH pri
>praci s RECORDem (krome uspory mista) v textu.
Pry je to rychlejsi (with "with").
D.
Je to rychlej�� proto�e doch�z� k ohodnocen� vn�j��ho v�razu s WITH pouze
jednou (pro slo�it� recordy se t�m se eliminuje opakuj�c� se vyhodnocov�n�)
a z�rove� je to i p�ehledn�j�� na� opakovat nap�
Var^.Pole[A+I-1].Vars.
kdy� sta�� napsat nap�.
For I:= 1 To 100 Do
With Var^.Pole[A+I-1] Do Begin
Vars:=XY;
Vars2:=CC;
End;
Jaro B.
Volani procedury
[*] heinisch(zv)post(tec)cz - 7.9.1998 19:52:23
Asi tak nejak
procedure TForm1.Button1Click(Sender: TObject);
begin
caption:='AHOJ'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click(self);
end;
ahoj
HeiJu
-----P�vodn� zpr�va-----
Od: Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 7. z��� 1998 14:25
P�edm�t: Volani procedury
>Zdravim vsechny...
>
> mam nasl. problem...
>potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>
>procedure Tnastavglform.CheckBox1Click(Sender: TObject);
> begin
> antialGL:=checkbox1.checked;
> end;
>
>z jine procedury (napr. tlacitko...)
>Je to banalita, ale jsem zacatecnik :))))
>Dekuji za vase odezvy a rady...
>
>Stoupa
>
>-------------------------------------
>Jan Janecek
>VOS_SPS
>Pod Kozeluhy 100
>Jicin 50601
>EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> stoupik(zv)xoommail.com
>WEB: HTTP://members.xoom.com/stoupik
>-------------------------------------
>DLL a Resource
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 7.9.1998 20:01:25
A kde, cim a jak ty atributy muzu nastavit ????????
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Nedopil [SMTP:nedopil(zv)eskon(tec)cz]
> Odesl�no: 7. z��� 1998 11:05
> Komu: DELPHI Distribution List
> P�edm�t: Re: DLL a Resource
>
> A nezavisi to na tom jake ma to DLL atributy?
> Mam na mysli LOADABLE, MOVEABLE, DISCARDABLE ?
>
> Martin
>
>
>
> >Haj hou!
> >
> >>Prosim vas mam jeden takovy zakladni dotaz ohledne resourcu v DLL.
> Mam
> >>program, ktery taha obrazky z DLL (kde jsou ulozeny jako Resource)
> >>pomoci funkci jako LoadFromResourceID. Ty obrazky jsou velke a je
> jich
> >>hodne (asi 30 MB). A ted ten dotaz. Kdyz otevru knihovnu pomoci
> >>LoadLibrary('XXX.dll') tak kolik pameti ta knihovna zabira ???
> Natahnou
> >>se do pameti i ty Resources a nebo se natahne obrazek do pameti az
> kdyz
> >>pouziju LoadFromResourceID.
> >
> >
> >Tak na tuhle otazku se opravdu neda jednoznacne odpovedet. Velikost
> obsazene
> >pameti (jak fyzicke RAM, tak virtualni) je zavysle na mnoha
> faktorech,
> ktere
> >jsou plne pod kontrolou OS. Obecne se da rici, ze je obsazeno prave
> tolik
> >pameti, kolik je nezbytne nutne (minimalne tedy velikost resource
> zkrouhlena
> >na 64KB v RAM).
>
>
>
> Export
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1998 20:12:10
Martin Sasek wrote:
>
> >Hi,
> >
> >tak zkus pouzit BDE 5, tam je podpora pro IDX. Proste se snaz obejit co
> >nejvic prostredniku.
>
> Nainstaloval jsem si BDE5 a zadnou podporu .IDX jsem tam nenasel. Ani v "New
> features in BDE5.0" na inprise.com nic o podpore indexu .idx nepisou.
Ahoj,
nedavno se tady po podpore .IDX take ptal, ale opravdu to vypada ze to v BDE
neni implementovano, podporovany jsou akorat .CDX indexy
--
Petr Vones, amatersky programator
Primary Key
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1998 20:25:57
Martin Bab�k wrote:
>
> Zdravim Delphisty!
> Mel bych takovou prosbicku. Nelze mi vytvorit databazov� tabulka
> s indexy pomoc� "Primary Key". Pouz�v�m :
>
> sSQLRequest := 'CREATE TABLE "' + sFileName + '" ( last_name CHAR(20),
> first_name CHAR(15), salary NUMERIC(10,2), dept_no SMALLINT, PRIMARY KEY
> (last_name, first_name))';
> a stale mi to vraci:
> "Project Navig.exe raised exeption class EDBEngineError with message
> 'invalid index/tag name.
> File or directory does not exist.
> File: C:\DELPHI\hgj.dbf
> Table does not exist.
> Table: C:\Delphi.dbf.' Process stopped. Blabla to continue.
>
> A pritom je to vytazeny primo z Helpu :-)
> Kdyz zadam jen jeden Primary Key tak to funguje! Poradite? Diky!
>
> M&B
Ahoj,
z toho prikladu vyplyva ze pouzivas dBase tabulky, ty ve sve podstate narozdil
od Paradoxovych zadne primarni indexy nemaji. To ze to funguje s jednim polem
vyplyva spise z pojeti lokalniho SQL a vlastne to vytvori normalni (sekundarni)
index. Dalsi problem je obecne s vytvarenim indexu slozenych z vice poli pomoci
prikazu CREATE INDEX u dBase tabulek. V helpu se pise ze to nejde:
Use the CREATE INDEX statement to create a secondary index for an existing table.
Index names may not have embedded spaces. Paradox indexes may be based on multiple
columns. Due to the distinctive nature of dBASE expression indexes, only single-column
indexes can be created with CREATE INDEX. ^^^^^^^^^^^^^^^^^^
Pokud je to jen trochu mozne pouzivej radeji Paradox tabulky, jinak muzes pouzit
TTable.CreateTable pro vytvoreni dBase tabulky a indexu.
--
Petr Vones, amatersky programator
Volani procedury
[*] Petr Posp�il - 7.9.1998 21:44:35
Zdravim!
Dalo by se to treba takhle..
procedure Tnastavglform.Button1Click(Sender: TObject);
begin
CheckBox1.Click(self);
end;
Petr Pospisil
-----P�vodn� zpr�va-----
Od: Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 7. z��� 1998 14:57
P�edm�t: Volani procedury
>Zdravim vsechny...
>
> mam nasl. problem...
>potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>
>procedure Tnastavglform.CheckBox1Click(Sender: TObject);
> begin
> antialGL:=checkbox1.checked;
> end;
>
>z jine procedury (napr. tlacitko...)
>Je to banalita, ale jsem zacatecnik :))))
>Dekuji za vase odezvy a rady...
>
>Stoupa
>
>-------------------------------------
>Jan Janecek
>VOS_SPS
>Pod Kozeluhy 100
>Jicin 50601
>EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
> stoupik(zv)xoommail.com
>WEB: HTTP://members.xoom.com/stoupik
>-------------------------------------
Zobrazovani AVI-souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1998 21:47:09
Plisek Jan Ing. wrote:
>
> Vazeni odbornici,
>
> pri zobrazovani softwaroveho AVI-souboru 800x600 pixelu pomoci
> komponenty MediaPlayer na panelu 800x600 bodu, umistene na formulari
> bez okraju (BorderStyle=None), zustava pri rozliseni obrazovky
> 800x600 pri dolnim okraji panelu nezobrazeny prouzek o sirce asi 15
> bodu. Je to problem, na ktery narazil kolega v C++ Builderu. Nevite,
> prosim, v cem muze byt pricina?
Ahoj,
tento problem se mi neprojevuje, tady je ukazka jednoduche aplikace pomoci
ktere jsem to zkousel:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, MPlayer;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Panel1: TPanel;
procedure Panel1Click(Sender: TObject);
procedure Panel1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Panel1Click(Sender: TObject);
begin
MediaPlayer1.DisplayRect := Panel1.ClientRect;
MediaPlayer1.Play;
end;
procedure TForm1.Panel1DblClick(Sender: TObject);
begin
Close;
end;
end.
-------------------------------------------------------------------
object Form1: TForm1
Left = 192
Top = 107
BorderStyle = bsNone
Caption = 'Form1'
ClientHeight = 348
ClientWidth = 536
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 536
Height = 348
Align = alClient
BevelOuter = bvNone
TabOrder = 1
OnClick = Panel1Click
OnDblClick = Panel1DblClick
end
object MediaPlayer1: TMediaPlayer
Left = 128
Top = 24
Width = 253
Height = 30
AutoOpen = True
DeviceType = dtAVIVideo
Display = Panel1
FileName = 'C:\Dokumenty\Multimedia\eraserhead.avi'
Visible = False
TabOrder = 0
end
end
--
Petr Vones, amatersky programator
Dvojnasobny prechod v QR
[*] Petr Posp�il - 7.9.1998 21:47:36
Zdravim!
Sam nevim,ale rad bych se to take nekde dozvedel.
Kdybych na neco prisel,tak se ozvu.
Petr Pospisil
-----P�vodn� zpr�va-----
Od: Peter Hudec <hudec(zv)ns.basl.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 7. z��� 1998 18:08
P�edm�t: Dvojnasobny prechod v QR
>Nazdar nazdar.
>
>Mam otazku.
>Ked v Preview v QuickReporte 2.0k stlacim tlacitko print, zacne mi znovu
>prechadzat cely vypocet, ktory uz vykonal pocas Preview.
>Myslim, ze vo verzii 1.0 uz iba vytlacil to, co uz bolo zobrazene v
>Preview a nevykonaval uz vypocet (alebo prechod databazy) znovu.
>Da sa take nieco dosiahnut aj v QR 2.0 ???
>
>Caute a dakujem.
>Peter.
>Zobrazenie formulara v ExitProc
[*] Peter Arbet <arbet(zv)px.psg.sk> - 7.9.1998 21:53:30
Hi all.
Ako uz %Subj% hovori, chcel by som v ExitProc zobrazit nejaky formular.
Skusal som ho vytvorit v hlavnom programe alebo v samotnej ExitProc a stale
nic. Pri prikaze ShowModal len na chvilu blikne a hned sa strati. ExitProc
normalne pokracuje dalej vo vykonavani. Co sa s tym da urobit? Treba
aplikaciu ukoncit inak, nez cez Close? Par rieseni ma uz napadlo, ale ziadne
z nich nesplna podmienku, aby sa ten formular zobrazoval az v ExitProc.
Za napady vopred vdaka.
RAZIIARS of Aqabin
e-mail:
arbet(zv)px.psg.sk
arbet(zv)fred.utc.sk
P. S. Odpovedzte prosim skoro, lebo volby su za dverami, a potom by ten
e-mail uz nemusel dojst.
Hack protected metod dalekych predchudcu - popis
[*] Jan Najvarek <najvarek.uamt.fei(zv)dzin.dame.fee.vutbr(tec)cz> - 7.9.1998 21:55:14
Vazeni kolegove,
onehda jsem potreboval na formu plnych TEditu po stisknuti Enter
posunuti focusu na dalsi TEdit a Delphi 3 se vzpiralo a vzpiralo az
jsem v jednom starem mailu teto konference nasel nasledujici
type
TWinControlHack = class(TWinControl);
// tato trida je naslednik TWinControl a ma tedy pristup k protected
metodam teto tridy a tedy i k metode SelectNext
procedure TMainForm.OnEditKeyDown(..);
begin
if Key=VK_RETURN then
TWinControlHack(self).SelectNext(ActiveControl, True, True);
end
coz krasne funguje a ackoli v Delphi delam uz 3 roky a v Pascalu
dalsich 5, neznam jsem to. V podstate jde o to, ze lze pristupovat
k protected vlastnostem a metodam nejakeho dalekeho
predchudce, ke kterym by jinak to slo pristoupit tezko ...
Je to hezka finta a uzitecna, takze jestli se nekdo dovida poprve
jako ja, splnil tento mail svuj ucel ... a pro ty, co to znaji, sorry za
zdrzovani..
Honza Najvarek
------------------------------------------------
Jan Najvarek
najvarek(zv)dame.fee.vutbr(tec)cz
Dalsi chyba v D4 - Timer.Interval property
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1998 22:12:35
Ahoj,
ted jsem narazil na dalsi chybu v D4. Pokud chcete u komponenty Timer nastavit
v object inspectoru nejakou hodnotu Interval tak to vzdy hlasi "Value must be
between 0 and -1". Patrne se jedna o nejakou chybu v editaci property typu
Cardinal.
--
Petr Vones, amatersky programator
QuickReport 3.0.1 update pro D4 a Teechart ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.9.1998 22:28:03
Ahoj,
nainstaloval jsem si vyse uvedeny update, na zacatku upozornovali majitele
D4 C/S ze tento update odregistruje Teechart a je treba stahnout i na nej
update, nicmene me zmizel Teechart i v D4 Prof. Na strance Teechart jsem vsak
zadny update nenasel. Resil jste nekdo podobny problem ?
Dekuji.
--
Petr Vones, amatersky programator
Fonty na Slovensku
[*] Administrator <Administrator(zv)rosoft.sk> - 7.9.1998 23:06:51
Potreboval by som vediet aky ma kod Slovencina.
Pisalo sa, ze Cestina je ,238
Patrik Tesar
Interbase
[*] Jaro <jaro(zv)sinea(tec)cz> - 7.9.1998 23:33:18
To je dost divne.
Mo�n� hloup� dotaz. Nainstaloval jsi v�echna licen�n� ��sla pomoc�
InterBase License Registration Tool?
M�l by jsi m�t:
Activation license and simultation user
Remote access capatibility
Metadata capatibility
Client capatibility
Jaro.
-----P�vodn� zpr�va-----
Od: Pavel Bare� <atoll(zv)telecom(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 7. z��� 1998 8:04
P�edm�t: Interbase
Zakoupil jsem instalacn� sadu Interbase mediakit 5.1 a pro zakaznika
server licenci, jeji� soucasti je 1 klient.
Soucasti mediakitu je eval. licenece pro server a 4 uzivatele.
lokalne mi vse funguje OK.
Pokud chci pouzit klient a nainstaluju na pocitac na siti Interbase
klient a vytvorim alias
pri jeho otevreni dostanu hlasku "Remonte interface is not licenced"
nebo tak nejak.
To same se deje u zakaznika, ktery ma registrovany server + 1 klienta.
Pri pouziti Comunikation diagnostic probehne test spojeni OK.
Neni nahodou eval. licence omezena jeste pouzitim ODBC ovldace, nebo to
jde i pres nativni (lokalne urcite ano) ?
Lze pristupovat vzdalene na Server +1 klient licence, nebo je to puze
lokalni?
dekuji vsem za odpoved
Primary Key
[*] Jaro <jaro(zv)sinea(tec)cz> - 7.9.1998 23:41:59
A kolik tam tech primarnich indexu chces mit. Primarni muze byt pouze
jeden.
Ostatni muzes zalozit jako sekundarni.
Proc zakladas index trvaleho charakteru takto slozitym zpusobem?
Jaro.
>
>A pritom je to vytazeny primo z Helpu :-)
>Kdyz zadam jen jeden Primary Key tak to funguje! Poradite? Diky!
kamenici v okne (maly off)
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 8.9.1998 00:42:51
On Mon, Sep 07, 1998 at 12:34:58PM +0200, Richard Valny wrote:
> kolega resi problem, kdy v ceskych W95 je nucen spoustet DOS program v
> Kamenikach.
> Nekde jsem kdysi zaslechl neco o finte, ze se dalo nejak presvedcit wokna aby
> pri jistem typu zobrazeni byly kamenici spravne videt i v okne.
>
kdyz ho pusti celoobrazovkove, muze tam pouzit skoro libovolny driver
klavesnice/obrazovky (jeden mam nekde na sve strance)...
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
InterbaseProLinuch
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 8.9.1998 00:44:05
On Mon, Sep 07, 1998 at 05:34:00PM +0200, RADIK(zv)p15.monet(tec)cz wrote:
> Je to celkem velmi necekana adresa: www.interbase.com.......
>
> Panove nevite nekdo cirou nahodou, kde je mozne stahnout tu verzi
> Interbase pro Linux co je zadara???
>
> Predem dekuji za ochotu
>
> Marcello
ma to jednu chybku - jede to jen na RH4.2, coz je dost vysle z mody. (mozna
uz to nejak upgradly od posledne - tj. 2 mesice dozadu).
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
QuickReport 3.0.1 update pro D4 a Teechart ?
[*] Jan Fiala <fiala(zv)iname(tec)com> - 8.9.1998 05:54:00
Zkus si doinstalovat zpet balicek s TeeChartem (na pocitaci ti zustal). Pokud si dobre vzpominamm, je to DCLTee40.BPL
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Ahoj,
nainstaloval jsem si vyse uvedeny update, na zacatku upozornovali majitele
D4 C/S ze tento update odregistruje Teechart a je treba stahnout i na nej
update, nicmene me zmizel Teechart i v D4 Prof. Na strance Teechart jsem vsak
zadny update nenasel. Resil jste nekdo podobny problem ?
Dekuji.
--
Petr Vones, amatersky programator
DLL a Resource
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 8.9.1998 06:41:01
No to vim, ale jejich seznam a vyznam nemuzu najit.
Nastavuji se Resource Workshopikem v sekci VersionInfo.
Ukazka z Winsock.dll
1 VERSIONINFO LOADONCALL MOVEABLE
jeste znam DISCARDABLE.
Martin
>A kde, cim a jak ty atributy muzu nastavit ????????>> A nezavisi to na tom jake ma to DLL atributy?
>> Mam na mysli LOADABLE, MOVEABLE, DISCARDABLE ?
> >>Prosim vas mam jeden takovy zakladni dotaz ohledne resourcu v DLL.
> Mam
> >>program, ktery taha obrazky z DLL (kde jsou ulozeny jako Resource)
> >>pomoci funkci jako LoadFromResourceID. Ty obrazky jsou velke a je
> jich
> >>hodne (asi 30 MB). A ted ten dotaz. Kdyz otevru knihovnu pomoci
> >>LoadLibrary('XXX.dll') tak kolik pameti ta knihovna zabira ???
> Natahnou
> >>se do pameti i ty Resources a nebo se natahne obrazek do pameti az
> kdyz
> >>pouziju LoadFromResourceID.
> >
> >
> >Tak na tuhle otazku se opravdu neda jednoznacne odpovedet. Velikost
> obsazene
> >pameti (jak fyzicke RAM, tak virtualni) je zavysle na mnoha
> faktorech,
> ktere
> >jsou plne pod kontrolou OS. Obecne se da rici, ze je obsazeno prave
> tolik
> >pameti, kolik je nezbytne nutne (minimalne tedy velikost resource
> zkrouhlena
> >na 64KB v RAM).
>
>
>
>
Zobrazenie formulara v ExitProc
[*] Jan Fiala <fiala(zv)iname(tec)com> - 8.9.1998 06:51:52
Zkousel jsem si v OnClose jednoho formulare udelat ShowModal druheho formulare a pri ukonceni prvniho se ten druhy slusne zobrazil a teprve po jeho zavreni skoncil i ten prvni. V cem je problem ?
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Hi all.
Ako uz %Subj% hovori, chcel by som v ExitProc zobrazit nejaky formular.
Skusal som ho vytvorit v hlavnom programe alebo v samotnej ExitProc a stale
nic. Pri prikaze ShowModal len na chvilu blikne a hned sa strati. ExitProc
normalne pokracuje dalej vo vykonavani. Co sa s tym da urobit? Treba
aplikaciu ukoncit inak, nez cez Close? Par rieseni ma uz napadlo, ale ziadne
z nich nesplna podmienku, aby sa ten formular zobrazoval az v ExitProc.
Za napady vopred vdaka.
RAZIIARS of Aqabin
e-mail:
arbet(zv)px.psg.sk
arbet(zv)fred.utc.sk
P. S. Odpovedzte prosim skoro, lebo volby su za dverami, a potom by ten
e-mail uz nemusel dojst.
Volani procedury
[*] Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz> - 08.9.1998 07:54:57
At 15:40 7-9-98 +0200, you wrote:
>Na zalozce Events objektu tvoje_tlacitko nastav vlastnost OnClick na nazev
>procedury CheckBox1Click. Muzes ji vybrat se seznamu priraditelnych
>procedur.
>
>Jaroslav Krecek
>
>PS.: Proc kopirujes hodnotu checkboxu nekam do svoji promenne? Ze vsech mist
>programu se k te hodnote dostanes jako Form1.CheckBox1.Checked.
>
Tak Jsem to nemyslel... to byl jen priklad :)) pravda ne prilis vhodny..
Slo mi o volani jakekoliv procedury ...
Presto dekuju za odpoved.>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Ing. Jaroslav Krecek
> computer graphic & software development
>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> e-mail: grafex(zv)iol(tec)cz or krecek(zv)iol(tec)cz
> for short quick message use
> jaroslav.krecek(zv)sms.paegas(tec)cz
> phone: +420.603.226103
>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
>
>-----P�vodn� zpr�va-----
>Od: Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz>
>
>> mam nasl. problem...
>>potrebuji zavolat tuto proceduru, ktera je vytvorena napr. checkboxem :
>>
>>procedure Tnastavglform.CheckBox1Click(Sender: TObject);
>> begin
>> antialGL:=checkbox1.checked;
>> end;
>>
>>z jine procedury (napr. tlacitko...)
>
>
-------------------------------------
Jan Janecek
VOS_SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
WEB: HTTP://members.xoom.com/stoupik
-------------------------------------
Open GL
[*] Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz> - 08.9.1998 08:01:33
Vazeni priznivci Delphi
Hledam nekoho, kdo se vyskytuje momentalne na univerzitach a vi neco o
programovani v OPEN GL...
Nevite nahodou o nakych dostupnych skriptech...
Placam se v tom sam, sice postupuju, ale ne moc rychle a potreboval bych to
urychlit :))
S Diky STOUPA
-------------------------------------
Jan Janecek
VOS_SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
WEB: HTTP://members.xoom.com/stoupik
-------------------------------------
Primary Key
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 8.9.1998 08:07:41
Predpokladom na primary key je aby pouzite polozky boli not null. U teba
Last_name a First_name mus byt NOT NULL.
last_name char(20) not null,
first name char(15) not null,
TUNGLI Jan
tungli(zv)pvt.sk
----------
> Od: Martin Bab�k <M.Babik(zv)mus(tec)cz>
> Pre: Konference <delphi(zv)pinknet(tec)cz>
> Predmet: Primary Key
> D�tum: 7. september 1998 13:05
>
>
>
> Zdravim Delphisty!
> Mel bych takovou prosbicku. Nelze mi vytvorit databazov� tabulka
> s indexy pomoc� "Primary Key". Pouz�v�m :
>
> sSQLRequest := 'CREATE TABLE "' + sFileName + '" ( last_name CHAR(20),
> first_name CHAR(15), salary NUMERIC(10,2), dept_no SMALLINT, PRIMARY KEY
> (last_name, first_name))';
>
> try
> Query1.Active := False; //determinate connection to date in
> database
> Query1.SQL.Clear; //empty query
> Query1.SQL.Add(sSQLRequest);
> Query1.ExecSQL; //Execute command in SQL
> Query1.SQL.Clear;
> except
> on e: EDBEngineError do
> begin
> MessageDlg(('Sorry, an error ocours: ' + chr(13) + chr(13) +
> e.message), mtError, [mbOk], 0);
> end;
> end;
>
> a stale mi to vraci:
> "Project Navig.exe raised exeption class EDBEngineError with message
> 'invalid index/tag name.
> File or directory does not exist.
> File: C:\DELPHI\hgj.dbf
> Table does not exist.
> Table: C:\Delphi.dbf.' Process stopped. Blabla to continue.
>
> A pritom je to vytazeny primo z Helpu :-)
> Kdyz zadam jen jeden Primary Key tak to funguje! Poradite? Diky!
>
>
> M&B
>
> Dalsi chyba v D4 - Timer.Interval property
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 8.9.1998 08:14:19
Ahoj,
podle mojich zkusenosti nejde o chybu Delphi, ale o chybu RX Library 2.50.
Na strankach RX na to maji nejaky fix. Jak jsi spravne usoudil, maji tam
chybu ve vlastnim editoru property Cardinal.
S pozdravem
Michal Motalik
motalik(zv)zl.inext(tec)cz
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: Konference Delphi <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 2:55
P�edm�t: Dalsi chyba v D4 - Timer.Interval property
>Ahoj,
>
>ted jsem narazil na dalsi chybu v D4. Pokud chcete u komponenty Timer
nastavit
>v object inspectoru nejakou hodnotu Interval tak to vzdy hlasi "Value must
be
>between 0 and -1". Patrne se jedna o nejakou chybu v editaci property typu
>Cardinal.
>
>--
> Petr Vones, amatersky programator
>
>
>
InterbaseProLinuch
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 8.9.1998 08:27:27
Haj hou!
Ta Linuxova IB opravdu nepracuje pod RH5 (a upgradnuta nebyla), ale nekde
jsem odchytil, ze to lze upravit (jde o rozdily v nejakych zakladnich
knihovnach v RH4 a 5). Podivej se na IB newsy na forums.inprise.com a na
http://www.mers.com/searchsite.html
>ma to jednu chybku - jede to jen na RH4.2, coz je dost vysle z mody. (mozna
>uz to nejak upgradly od posledne - tj. 2 mesice dozadu).
RGB
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 8.9.1998 08:31:10
> PS: Neni to na 100% ale clRed = $0000FF. HTML ma asi syntaxi
> GBR, v Front
> Page mi to vracelo hodnotu #FF0000.
> Napis co a jak.
Uz mi bylo porazeno:
var
htmlColor:String;
aColor:TColor;
begin
if ColorDialog1.Execute then
begin
aColor:=ColorToRGB(ColorDialog1.Color);
htmlcolor :=
'#'+IntToHex(GetRValue(aColor),2)+IntToHex(GetGValue(aColor),
2)+IntToHex(GetBValue(aColor), 2);
end;
end;Encryptace data
[*] Jan Nov�k���r����n�?��? - 8.9.1998 08:44:18
Dekuji za radu. Princip je mi jasny. Budu se ho drzet.
Bohuzel jsem zacatecnik a potreboval bych vic nakopnout.
Jak se zavola funkce hash ? Nebo se vola MD5 s nejakym parametrem ?
Neni MD5 pouze oznacenim algoritmu ?
Kde se da najit priklad toho jak se to udela ?
napr: EDit1 je na formulari
.
.
var
X: string;
begin
X :=HASH(Edit1.text)
end
nefunguje .
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 23:46
P�edm�t: RE: Encryptace data
> Funkce EnCode a DeCode pouzivaji jednu dvojitou transpozici a =
> jednoduchou substituci, transpozice pouziva de facto libovolnou delku =
> klice, ktera se vypocita z "Pass", jenom bych do toho jeste trochu =
> zamotal RSA, ale zatim neznam poradne ani algoritmus ani metody =
> sifrovani/desifrovani. Nevyhodou mych fc=ED je to, ze kdyz bude mit =
> nekdo k dispozici zdrojovy text, bude mit moznost, sice malou, ale =
> presto tu toto riziko je, sifru prolomit, jinak si myslim, je dost =
> bezpecna. Na toto tema pripravuji svou html stranku, spojenou se soutezi =
> a vyzvou vsem hackerum. Az bude hotova, poslu Vam off topic, jo. :-)))
No prave to je presne o tom, ze takto se to nedela. Pokud jde heslo
z databaze dekodovat, je to chybne reseni, byt by sance se k tomu
dostat byla minimalni. Jak jsem psal v minulem mailu, nedela se to
kodovanim a dekodovanim, ale jako hash bez moznosti zpetneho dekodovani.
Vzdyt neni potreba vytahnout spravne heslo, to je nezadouci. Jde jen
o jednu vec - overit, zda je heslo OK. A to je se prave overi
hash(kontrolovane_heslo) = udaj v databazi. Je to velmi jednoduche,
ale velmi ucinne.
Jinak bokem - co se tyka RSA, to neni takovy problem, ale pro kodovani
hesla je to absolutne divne reseni - za prve neni duvod, proc by mel
byt verejny klic, o cemz totiz tento algoritmus je, za druhe daleko
vice vyhovuje hash, kde neni zpetne dekodovani. Co se RSA tyka,
neni to slozite, asi nejhorsi je (a) najit dostatecne velika
prvocisla a (b) pak s nimi pocitat. Ale i to se da resit...
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 ===
==============================================================
Encryptace data
[*] Jan Nov�k���r����n�?��? - 8.9.1998 08:53:07
Mnohokrat dekuji za radu. Princip je mi jasny .
Protoze jsem zacatecnik potreboval bych asi vice nakopnout.
Jak se vola funkce HASH ? Musi se pridat neco do casti uses ?
kdyz zkusim napr.
var
X: string;
begin
X:=HASH('nmnmnmn')
end
napise mi prekladac ze nezna identifikator hash.
Nebo se vola MD5 s parametrem ?
Neexistuje nejaky priklad , kde bych se mohl podivat jak se udela
z vlozeneho hesla hash ?
-----P�vodn� zpr�va-----
Od: Petr Zahradnik <clexpert(zv)clexpert(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 23:46
P�edm�t: RE: Encryptace data
> Funkce EnCode a DeCode pouzivaji jednu dvojitou transpozici a =
> jednoduchou substituci, transpozice pouziva de facto libovolnou delku =
> klice, ktera se vypocita z "Pass", jenom bych do toho jeste trochu =
> zamotal RSA, ale zatim neznam poradne ani algoritmus ani metody =
> sifrovani/desifrovani. Nevyhodou mych fc=ED je to, ze kdyz bude mit =
> nekdo k dispozici zdrojovy text, bude mit moznost, sice malou, ale =
> presto tu toto riziko je, sifru prolomit, jinak si myslim, je dost =
> bezpecna. Na toto tema pripravuji svou html stranku, spojenou se soutezi =
> a vyzvou vsem hackerum. Az bude hotova, poslu Vam off topic, jo. :-)))
No prave to je presne o tom, ze takto se to nedela. Pokud jde heslo
z databaze dekodovat, je to chybne reseni, byt by sance se k tomu
dostat byla minimalni. Jak jsem psal v minulem mailu, nedela se to
kodovanim a dekodovanim, ale jako hash bez moznosti zpetneho dekodovani.
Vzdyt neni potreba vytahnout spravne heslo, to je nezadouci. Jde jen
o jednu vec - overit, zda je heslo OK. A to je se prave overi
hash(kontrolovane_heslo) = udaj v databazi. Je to velmi jednoduche,
ale velmi ucinne.
Jinak bokem - co se tyka RSA, to neni takovy problem, ale pro kodovani
hesla je to absolutne divne reseni - za prve neni duvod, proc by mel
byt verejny klic, o cemz totiz tento algoritmus je, za druhe daleko
vice vyhovuje hash, kde neni zpetne dekodovani. Co se RSA tyka,
neni to slozite, asi nejhorsi je (a) najit dostatecne velika
prvocisla a (b) pak s nimi pocitat. Ale i to se da resit...
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 ===
==============================================================
RGB
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 8.9.1998 08:57:13
Myslim, ze to nevrati 2bity Red, 2 Blue a 2 Green ale jeste dva navic a to bud paletu, nebo svetlost (ted nevim) takze XXRRGGBB.
D.
----------
Od: Ing. Jaroslav K�e�ek[SMTP:grafex(zv)iol(tec)cz]
Odesl�no: 7. z��� 1998 13:37
Komu: DELPHI Distribution List
P�edm�t: Re: RGB
Jestli t�m #XXYYZZ mysl� #RRGGBB, tak zkus
var RGBValue : longint;
RGBValue := ColorToRGB(AColorDialog.Color);
Nevim, jestli tahle funkce Ti vrati presne dva bity pro Red, dva pro Green,
a dva pro Blue (spis bzch rekl, ze vic ... viz longint), ale je to format
pouzivany ve WinAPI
Jaroslav Krecek
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ing. Jaroslav K�e�ek
computer graphic & software development
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
e-mail: grafex(zv)iol(tec)cz or krecek(zv)iol(tec)cz
for short quick message use
jaroslav.krecek(zv)sms.paegas(tec)cz
phone: +420.603.226103
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
>mam nasledujici problemek. Z TColorDialog bych potreboval ziskat barvu
>ve formatu #XXYYZZ, jak se pouziva v HTML. Cim to mam prevest?
>Dekuji.
>. Libor Krayzel .
Fonty na Slovensku
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 8.9.1998 09:05:50
Slovenske fonty maju to iste cislo.
Ing. Petr Jezek
Delvina s.r.o.
Kuzm�nyho 8
010 01 Zilina, SR
telefon: +421 89 624 344
mobil: +421 905 510 550
email: petr(zv)sevis.sk
web: www.delvina.sk
-----Original Message-----
From: Administrator [mailto:Administrator(zv)rosoft.sk]
Sent: Monday, September 07, 1998 10:07 PM
To: 'delphi(zv)pinknet(tec)cz'
Subject: Fonty na Slovensku
Potreboval by som vediet aky ma kod Slovencina.
Pisalo sa, ze Cestina je ,238
Patrik Tesar
QuickReport 3.0.1 update pro D4 a Teechart ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.9.1998 09:07:07
> nainstaloval jsem si vyse uvedeny update, na zacatku upozornovali majitele
> D4 C/S ze tento update odregistruje Teechart a je treba stahnout i na nej
> update, nicmene me zmizel Teechart i v D4 Prof. Na strance Teechart jsem vsak
Protoze zapomneli napsat, ze zmizi i v Professional verzi.
> zadny update nenasel. Resil jste nekdo podobny problem ?
Ja jsem to resil... proste jsem si ho tam zase pridal a mam ho tam...
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 ===
==============================================================Zobrazenie formulara v ExitProc
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.9.1998 09:07:07
> Zkousel jsem si v OnClose jednoho formulare udelat ShowModal druheho =
> formulare a pri ukonceni prvniho se ten druhy slusne zobrazil a teprve =
> po jeho zavreni skoncil i ten prvni. V cem je problem ?
To neni problem, to tak funguje a ma fungovat.
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 ===
==============================================================kamenici v okne (maly off)
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 8.9.1998 09:08:59
Kdysi jsem mel stejny problem, ale nekde jsem sehnal Kaminicke fonty pro DOS
rezim v okne.
Pokud si dobre pamatuju tak to byl jeden z VGA*.FON souboru, ale presne to
nevim.
Ing. Petr Jezek
Delvina s.r.o.
Kuzm�nyho 8
010 01 Zilina, SR
telefon: +421 89 624 344
mobil: +421 905 510 550
email: petr(zv)sevis.sk
web: www.delvina.sk
-----Original Message-----
From: Milan Sorm [mailto:xsorm(zv)informatics.muni(tec)cz]
Sent: Monday, September 07, 1998 11:43 PM
To: DELPHI Distribution List
Subject: Re: kamenici v okne (maly off)
On Mon, Sep 07, 1998 at 12:34:58PM +0200, Richard Valny
wrote:
> kolega resi problem, kdy v ceskych W95 je nucen spoustet
DOS program v
> Kamenikach.
> Nekde jsem kdysi zaslechl neco o finte, ze se dalo nejak
presvedcit wokna aby
> pri jistem typu zobrazeni byly kamenici spravne videt i v
okne.
>
kdyz ho pusti celoobrazovkove, muze tam pouzit skoro
libovolny driver
klavesnice/obrazovky (jeden mam nekde na sve strance)...
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5
41512348
FI MU, Botanicka 68a, Brno
sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05)
46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17
63
Dvojnasobny prechod v QR
[*] jk(zv)tzus(tec)cz - 8.9.1998 9:45:24
>Zdravim!
>Sam nevim,ale rad bych se to take nekde dozvedel.
>Kdybych na neco prisel,tak se ozvu.
>
>Petr Pospisil
>
>-----Puvodni zprava-----
>Od: Peter Hudec <hudec(zv)ns.basl.sk>
>Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Datum: 7. zari 1998 18:08
>Predmet: Dvojnasobny prechod v QR
>
>
>>Nazdar nazdar.
>>
>>Mam otazku.
>>Ked v Preview v QuickReporte 2.0k stlacim tlacitko print, zacne mi znovu
>>prechadzat cely vypocet, ktory uz vykonal pocas Preview.
>>Myslim, ze vo verzii 1.0 uz iba vytlacil to, co uz bolo zobrazene v
>>Preview a nevykonaval uz vypocet (alebo prechod databazy) znovu.
>>Da sa take nieco dosiahnut aj v QR 2.0 ???
>>
>>Caute a dakujem.
>>Peter.
>>
>
Pro tisk primo z preview je potreba provest pred volanim Print nasledujici
prirazeni
QRPrinter.OnGenerateToPrinter := nil;
ale prijdete o maximalni rozliseni a muze dojit k problemum se vzhledem
tisku kvuli rozdilnemu rozliseni tiskarny (treba 600 dpi) a rozliseni WMF,
ktere je pouzito standardne pro tisk do preview.
Jan Kadlecek
HTK Pro s.r.o.
Setting Printer
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 08.9.1998 09:47:21
Ahojda,
myslim ze pred praci s Printer se musi zpristupnit. Asi takto:
Printer.BeginDoc;
..... // zjisteni informaci
..... // kresleni na Canvas
Printer.EndDoc;
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Ing. Jaroslav K�e�ek wrote:
> Porad neuspechy!
>
> Potrebuji vytisknout neco na 1/3 A4 v orientaci poLandScape. S orientaci
> neni problem zadny. S velikosti ano. Chci na to pouzit pritup prez globalni
> promennou Printer. Ale nedari se mi vubec dostat se k informacim o tiskarne,
> ovladaci, velikosti a podobne.
>
> Zkousel jsem to takhle:
>
> var ADeviceMode: THandle;
> ADeviceStr : string;
> pInfoStruct : PRINTER_INFO_2;
> pcbNeeded : LPDWORD;
> ErrorNum : DWORD;
> begin
> if not GetPrinter(Printer.Handle, 2, (zv)pInfoStruct, SizeOf(PRINTER_INFO_2),
> pcbNeeded) then
> ~~~~~~~~
> ErrorNum := GetLastError;
>
> with Printer do begin
> GetPrinter(pInfoStruct.pPrinterName, pInfoStruct.pDriverName,
> pInfoStruct.pPortName, ADeviceMode);
> {Tady prenastavit velikost stranky ve vlastnostech ADeviceMode. Je to
> typ DEVMODE?}
> SetPrinter(pInfoStruct.pPrinterName, pInfoStruct.pDriverName,
> pInfoStruct.pPortName, ADeviceMode);
> end;
> end;
>
> Nevim, ce je tam spatne, ale vypadne to uz na funkci WinAPI GetPrinter.
> GetLastError vrati hodnotu 6. Nikde jsem nenasel, co to znamena. Nevidite
> nekde chybu?
>
> Nevite, jak jinak pouzit TPrinter.SetPrinter ? Nebo jinym zpusobem
> programove prenastavit velikost stranky ne tiskarne?
>
> Diky za kazdou radu. Jaroslav Krecek
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Ing. Jaroslav K�e�ek
> computer graphic & software development
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> e-mail: grafex(zv)iol(tec)cz or krecek(zv)iol(tec)cz
> for short quick message use
> jaroslav.krecek(zv)sms.paegas(tec)cz
> phone: +420.603.226103
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
>
> >Pro tisk pouzij objekt TPrinter. Orientaci muzes nastavit pomoci vlastnosti
> >Orientation, nebo muzes zavolat metodu SetPrinter, ktera ti umozni nastavit
> >jak orientaci tak velikost stranky.
> >
> >Vita
ToolButtons v Delphi4
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 8.9.1998 09:52:28
Zdravim vsechny delphisty a delphistky.
Zacal jsem si trochu hrat s Delphi 4
(predtim jsem znal pouze verzi 1).
Hned jsem narazil na jeden nezavazny, ale
nehezky problem:
Pokud vytvorim ToolBar, na nem ToolButton
a ten ToolButton napojim na polozku menu
(property MenuItem), tak neklika (tzn. pri stisku
mysi se obrazek nezamackuje). Pokud neni
napojen na menu, funguje dobre.
Ma s tim nekdo nejakou zkusenost?
Predem dekuju
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
kamenici v okne (maly off)
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 08.9.1998 10:00:45
Ahojda,
1) Ovladac klavesnice - muzes mit jakej chces (dosovskej) a nezalezi na okno/cela
obrazovka.
2) Font - v rezimu cele obrazovky, je to jako s klavesnici. V rezimu "okno" je to
pakarna, protoze potom se znaky
dosovskeho okna zobrazuji Windowsovskym fontem ... tzn.: sehnat si font, ktery
umi Kameniky, nebo vzit nejakej
"normalni" a ten pomoci nejakyho editoru prepsat tak, aby prirazeni ceskych znaku
odpovidalo "Ascii Kamenicti".
3) Preji prijemnou zabavu ;-) (B.G. staci 640 KB pameti a Latin II :-)) )
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Milan Sorm wrote:
> On Mon, Sep 07, 1998 at 12:34:58PM +0200, Richard Valny wrote:
> > kolega resi problem, kdy v ceskych W95 je nucen spoustet DOS program v
> > Kamenikach.
> > Nekde jsem kdysi zaslechl neco o finte, ze se dalo nejak presvedcit wokna aby
> > pri jistem typu zobrazeni byly kamenici spravne videt i v okne.
> >
> kdyz ho pusti celoobrazovkove, muze tam pouzit skoro libovolny driver
> klavesnice/obrazovky (jeden mam nekde na sve strance)...
>
> milan sorm
>
> -------------------------------------------------------------
> Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
> FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
> http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
>
> fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Vstupy pro mask-edit komponent.
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 8.9.1998 10:11:27
Prosim o radu zkusenejsi kolegy, jake maji zkusenosti s pouzivanit mask-edit
komponentu ci jake pouzivaji obecne typy masek..
Pouzivam pro mask-edit komponent svuj soubor definic (DEM soubor v Delphi 1)
ale nejsem si vubec jist, zda je to spravne, nebo zda spravne pouzivam
zastupnych znaku.
Jeho tvar jsem si odvodil z ostatnich, firmou dodavanych. V posledni dobe
ale pouzivam Orpheus, kter� ma jednodussi definici pro maskovan� vstupy,
ovsem na ukor velikosti vysledneho kodu, kter� je po prilinkovani knihoven
Orphea o cca 100-150 KByte vetsi nez pri pouziti zakladnich komponent. V
pripadech, kde je to kriticke (napr. u instalacnich programu ve forme OWN)
ovsem bych radeji pouzil zakladni komponentu.
Dekuji vsem
Jaroslav Benes
Zde je muj CZECH.DEM soubor:
Phone | 48140001 | 000 999 999;1;_
Phone with Country | 42048140001 | \+420 000 000 000;1;_
Born number | 1234567890 | 00\.00\.00-0000;1;_
Zip Code | 34500 | 000 00;1;_
Zip Code with Country | CZ34500 | !>LL 000 00;1;_
Date | 260195 | 90\.90\.\1\9;1;_
Date (Windows) | 26011995 | 90/90/0000;1;_
Long Time | 210515 | !90:00:00;1;_
Short Time | 1345 | !90:00;1;_
InterbaseProLinuch
[*] RADIK(zv)p15.monet(tec)cz - 8.9.1998 10:21:00
Jen dve poznamky:
1. Free Interbase pro Linux chodi i pod RH 5.0. (Presneji receno snad
nechodi jen nejeke preklady v Linuxu, ale to se delphinistu moc netyka,
nevim presne, nezkousel jsem.)
2. Update existuje. Jmenuje se to Interbase 5 for Linux. Je urcena pro
RH 5 a stoji stejne jako jine Interbase 5......
Ales
----------
Od: Milan Sorm
Komu: DELPHI Distribution List
P�edm�t: Re: InterbaseProLinuch
Datum: 8. z��� 1998 0:44
On Mon, Sep 07, 1998 at 05:34:00PM +0200, RADIK(zv)p15.monet(tec)cz wrote:
> Je to celkem velmi necekana adresa: www.interbase.com.......
>
> Panove nevite nekdo cirou nahodou, kde je mozne stahnout tu verzi
> Interbase pro Linux co je zadara???
>
> Predem dekuji za ochotu
>
> Marcello
ma to jednu chybku - jede to jen na RH4.2, coz je dost vysle z mody.
(mozna
uz to nejak upgradly od posledne - tj. 2 mesice dozadu).
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Open GL
[*] RADIK(zv)p15.monet(tec)cz - 8.9.1998 10:23:00
Co takhle zkusit www.opengl.org..... je tam spousta odkazu, sice je
vsechno v anglictine, ale je to tam.....
Ales
----------
Od: Jan Janecek
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Open GL
Datum: 8. z��� 1998 8:01
Vazeni priznivci Delphi
Hledam nekoho, kdo se vyskytuje momentalne na univerzitach a vi neco o
programovani v OPEN GL...
Nevite nahodou o nakych dostupnych skriptech...
Placam se v tom sam, sice postupuju, ale ne moc rychle a potreboval bych
to
urychlit :))
S Diky STOUPA
-------------------------------------
Jan Janecek
VOS_SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
WEB: HTTP://members.xoom.com/stoupik
-------------------------------------
NT groups
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 8.9.1998 11:06:44
100 000 krate dekuji!!!! Pomohlo to vyresit problem!
> Na tejto adrese
> http://www.jgsoftware.com/JGNTControls.htm
> je pouzitie NetGroupEnum() a aj nieco navyse.
> /napr. konstanty NetServerEnum Types/
> Nie je tam NetGroupGetUsers.
>
> s pozdravom
> Miro
>
> -----P_vodn_ spr_va-----
> Od: Ales Zeleny <zelenya(zv)mlp(tec)cz>
> Pre: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> D_tum: 2. september 1998 19:56
> Predmet: NT groups
>
>
> DDV, nemate nekdo import hlavicky/zapuzdrene fce pro:
>
> NetGroupEnum()
> NetGroupGetUsers()
>
>
>
> +------------------------+ +---------------------------+
> |Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
> |Mestska knihovna v Praze| |Municipal Library of Prague|
> |Marianske nam. 1 | |Marianske nam. 1 | |115
> 72 | |115 72 | |
> | | | |Tel.:
> (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
> |E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
> |MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
> +------------------------+ +---------------------------+
>
> Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
>
> Multitasking means that applications can crash simultaneously.
>
>
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.DLL a Resource 2
[*] Lubos Jerabek <lubos(zv)qed(tec)cz> - 8.9.1998 11:15:12
Kdyz tady tak ctu tuhle zalezitost, tak me napada jak udelat takovoudle
vecicku, mam asi 30 obrazku animaci a jineho humusu ve formatu jpeg a
avi to se tak ruzne mele po obrazovce a nekteri lidi tomu rikaj screen
saver, posledni verzi jsem napsal s loudovanim obrazku ze souboru coz mi
pripada dosti blbe user do toho zarucene poleze. No ale spet k subj. jak
to dostat do souboru treba zrovna dll , jak to dostat zpet a nezhroutit
system na nedostatek prostredku ?
Lubos Jerabek "tezkej amater"Interbase
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 8.9.1998 11:20:00
No zas tak hloupy to neni ja zadal server licenci (Activation license and
simultation user) na server a
client licenci na (Client capatibility) klienta .
Je treba zadat vsechny na obe strany?
Proc to ale nefunguje jako eval kdyz by melo ?
dekuji za pomoc
Pavel Bare�
Atoll s.r.o.
http://web.telecom(tec)cz/atoll
-----P�vodn� zpr�va-----
Od: Jaro <jaro(zv)sinea(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 3:53
P�edm�t: Re: Interbase
To je dost divne.
Mo�n� hloup� dotaz. Nainstaloval jsi v�echna licen�n� ��sla pomoc�
InterBase License Registration Tool?
M�l by jsi m�t:
Activation license and simultation user
Remote access capatibility
Metadata capatibility
Client capatibility
Jaro.
-----P�vodn� zpr�va-----
Od: Pavel Bare� <atoll(zv)telecom(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 7. z��� 1998 8:04
P�edm�t: Interbase
Zakoupil jsem instalacn� sadu Interbase mediakit 5.1 a pro zakaznika
server licenci, jeji� soucasti je 1 klient.
Soucasti mediakitu je eval. licenece pro server a 4 uzivatele.
lokalne mi vse funguje OK.
Pokud chci pouzit klient a nainstaluju na pocitac na siti Interbase
klient a vytvorim alias
pri jeho otevreni dostanu hlasku "Remonte interface is not licenced"
nebo tak nejak.
To same se deje u zakaznika, ktery ma registrovany server + 1 klienta.
Pri pouziti Comunikation diagnostic probehne test spojeni OK.
Neni nahodou eval. licence omezena jeste pouzitim ODBC ovldace, nebo to
jde i pres nativni (lokalne urcite ano) ?
Lze pristupovat vzdalene na Server +1 klient licence, nebo je to puze
lokalni?
dekuji vsem za odpoved
vyska QRBandu
[*] Marian Goryl <mgoryl(zv)studnet.sk> - 8.9.1998 11:25:24
Stale nevyrieseny problem!
Mam databazu a chcem ju vytlacit cez QReport.
Moj problem spociva v tom, ze nie vsetky udaje sa vmestia
do jedneho riadku, preto som nastavil vlastnosti QRDBTextu:
Autosize:=false a autostretch:=true
(aby sa v pripade potreby detail s udajom natiahol po vyske).
V detaile su vsak aj zvisle ciary, ktorych vyska sa tiez
musi menit (aby boli dotiahnute v celom detaile). Ako zistim
vysku, na ktoru sa natiahne detail pre konkretny udaj, aby som
podla nej mohol nastavit vysku ciary?
Vyskusal som uz vsetko...
... a vsetky vlastnosti vracaju len vysku navrhu.
Odporucana vlastnost QRdetail.Size.Height vracia pre vsetky
detaily nezavisle od skutocnej vysky stale rovnaku hodnotu -
vysku v navrhu a odporucana udalost OnNeedData sa pri mojich
nastaveniach ani nevyvolala. (Kedy a pri akych nastaveniach
sa vyvola?).
Existuje ine riesenie?
Popis inak: v preview je napr. pre treti udaj vyska textu na dva riadky,
pre napr. piaty udaj vyska sedem riadkov. To roztiahnutie riadkov sposobilo
nastavenie autostretch:=true, ktore sposobilo aj roztiahnutie detailu.
Ako zistim kolko riadkov zabera datail alebo aku vysku v konkretnom pripade
zabera.
Napriklad pre treti detail v poradi, ktory vidim v preview?
Dakujem za vsetky napady
Marian Goryl
mgoryl(zv)studne.sk
HSCROLL & VSCROLL
[*] Kosta <kosta(zv)iol(tec)cz> - 8.9.1998 11:28:16
Omlouvam se za trapny dotaz.
Ve vlastni komponente (potomek TCustomListBox) potrebuji za behu stridave
zapinat vertikalni nebo horizontakni scroll bar a nejak nevim jak. Poradte
prosim.
Diky
Kosta (kosta(zv)iol(tec)cz)POP3 of F.Piette
[*] Nykl, Pavel <nykl(zv)satoya(tec)cz> - 08.9.1998 11:31:53
Ahoj vsichni, prosim, nevite nekdo, jak z TPop3Cli dekodovat binarni
attachment? V jeho komponente TMimeDecode, ktera snad na to ma byt,
vsechny eventy obdrzi data ve formatu PChar a to se mi jevi jako
nepouzitelne. Diky.
--
-----------------------------------------------------------------
Pavel Nykl Saturn Toya Ltd.
mailto:nykl(zv)satoya(tec)cz tel,fax **420-2-3335 6667
-----------------------------------------------------------------
Rebuild Icon Cache
[*] jakub.dusek(zv)post(tec)cz - 8.9.1998 11:31:08
CMOS
[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 8.9.1998 11:39:37
Ahoj vsichni,
nevite nekdo kde sehnat mapu CMOSky a jak je mozne z ni cist ???
dekuji za vsechny odpovedi.
Petr
InterbaseProLinuch
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 8.9.1998 11:55:37
Hi,
bylo by dobre uvest PRESNE, co je treba udelat pro rozchozeni IB na
Linuxu 5. Ujme se toho nekdo?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: RADIK(zv)p15.monet(tec)cz [SMTP:RADIK(zv)p15.monet(tec)cz]
> Odesl�no: 08. z��� 1998 10:21
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: InterbaseProLinuch
> Jen dve poznamky:
> 1. Free Interbase pro Linux chodi i pod RH 5.0. (Presneji receno snad
> nechodi jen nejeke preklady v Linuxu, ale to se delphinistu moc
> netyka,
> nevim presne, nezkousel jsem.)
> 2. Update existuje. Jmenuje se to Interbase 5 for Linux. Je urcena pro
> RH 5 a stoji stejne jako jine Interbase 5......
>
> Ales
[Martin Fron�k] Ty asi ctes kolenem :-) puvodni dotaz byl na
free verzi (nic ve zlem)
> ----------
> Od: Milan Sorm
> Komu: DELPHI Distribution List
> P�edm�t: Re: InterbaseProLinuch
> Datum: 8. z��� 1998 0:44
>
> On Mon, Sep 07, 1998 at 05:34:00PM +0200, RADIK(zv)p15.monet(tec)cz wrote:
> > Je to celkem velmi necekana adresa: www.interbase.com.......
> >
> > Panove nevite nekdo cirou nahodou, kde je mozne stahnout tu verzi
> > Interbase pro Linux co je zadara???
> >
> > Predem dekuji za ochotu
> >
> > Marcello
>
> ma to jednu chybku - jede to jen na RH4.2, coz je dost vysle z mody.
> (mozna
> uz to nejak upgradly od posledne - tj. 2 mesice dozadu).
>
> milan sorm
> -------------------------------------------------------------
> Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
> FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
> http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
>
> fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
delphi1 - dbgrid
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 8.9.1998 12:18:53
To nastavujes pres FieldEditor v TTable nebo TQuery. Nebo myslis neco
jineho??
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: MARSIK(zv)gbn(tec)cz <MARSIK(zv)gbn(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 7. z��� 1998 23:08
P�edm�t: delphi1 - dbgrid
>vazeni pratele,
>
>mam jen jednoduchy dotaz. potrebuju v delphi1 v dbgridu menit sirku a
>hlavicky sloupcu. v delphi2+ je na to property columns (nebo tak nejak).
>poradte komponentu nebo me nakopnete spravnym smerem. diky moc.
>
>{--------------------------------------------------------------------}
>{Jakub Marsik web http://www.gbn(tec)cz/marsik/index.htm }
>{K Homolce 294 admin of mail & www server of Gymnazium Benesov }
>{257 21 Porici n.Saz. }
>{--------------------------------------------------------------------}Dalsi chyba v D4 - Timer.Interval property
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.9.1998 12:32:31
Petr Vones wrote:
> ted jsem narazil na dalsi chybu v D4. Pokud chcete u komponenty Timer
> nastavit v object inspectoru nejakou hodnotu Interval tak to vzdy hlasi
> "Value must be between 0 and -1". Patrne se jedna o nejakou chybu v
> editaci property typu Cardinal.
Jeste mam na pocitadle C/S, bez update, a chodi to dobre. Ze by
tuto chybu zavlekl update?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Poslani aplikace do popredi - Delphi1
[*] Jaroslav Mrhalek <delphi(zv)mrp(tec)cz> - 08.9.1998 12:38:05
Kdyz pouziju:
SetWindowPos(Application.handle, HWND_TOP, 0,0,0,0, SWP_SHOWWINDOW);
v Delphi3, aplikace se dostane do popredi. V Delphi1 to nefunguje.
Znate nejaky schudny zpusob jak dostat aplikaci zkompilovanou v Delphi1
a spustenou pod Win95 do popredi?
Zkousel jsem nastavit u hlavniho okna aplikace FormStyle:=fsShowOnTop a
pak Application.NormalizeTopMosts a RestoreTopMosts, ale nezda se mi to
jako slusne reseni.
Predem diky za rady
Jarek Mrhalek
delphi(zv)mrp(tec)cz
Tvorba helpu
[*] lnovy(zv)unicos(tec)cz - 8.9.1998 13:03:18
Vazeni delphisti,
mam dotaz ohledne vasich zkusenosti s tvorbou windows helpu.
Eventuelne, kde by se dal stahnout nejakej program pro jejich tvorbu, kde by
nebyl limitovan pocet stran. (pouzival jsem jakysi program FOREHELP ale ve
verzi, kterou jsem mel je limit 10 stran). Myslim, ze v Delphi 4 uz k tomu
nejakej program je, ale pouzivam Delphi 3 a zatim to nevypada, ze bych
upgradoval.
Za kazdou vasi radu prodem dekuji
Lubos Novy
Pdox tabulky na CD-ROM
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 08.9.1998 13:10:57
Ahojda,
pred nedavnem jsem se zde ptal, jak otevirat Pdox tabulky na ReadOnly
mediu. Dekuji fsem za odpovedi, atd ...
Pro svoji potrebu jsem napsal programek, ktery prohleda adresarovou
strukturu a umozni v adresarich, kde se nachazeji Pdox tabulky (*.DB)
vytvorit "balastove" LCK soubory. To se musi udelat 'napred '.
Uplatneni je takove, ze (napriklad) pred vypaleni CD-ROM s daty spustite
program a zadate mu adresar kde se nachazi pripravene CD. Program
prohleda adresarovou strukturu a kde nalezne *.db, prida adresar do
"vysledku hledani". Tento vysledek je mozne Ulozit/Nahrat, popr. rucne
vymazat nektere adresare. Druhou funkci je to, ze program projede seznam
adresaru, a v kazdem zalozi 2 LCK soubory.
Programek je ulozen na
ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference/Other/LckFiles.ZIP a je k
nemu pribalen strucny popis.
PS: Na me strance http://members.xoom.com/chaosz/ je par zertovnych
programku napsanych v Delphi ;-) .
PS2: Puvodne jsem chtel soubor poslat do konference (200KB), ale .....
(znate to) :-))))))
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
TRichEdit a wm_Paste nefunguje
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 8.9.1998 13:10:24
Nesetkal ste se nekdo s timto:
Presel sem od pouzivani TMemo k TRichEdit protoze potrebuju formatovat text.
TMemo sem pres message handler ve svem potomkovi v pohode zachytil zpravu
WM_PASTE, jenze v RichEdit potomku se tato zprava nikdy nezavola. Nedojde
ani do WndProc. Netusite nekdo kde se tato zprava ztraci ?
Opravdu potrebuji zachytit tuto zpravu - neni pro me reseni chytat klavesy
Ctrl-V a Shift-Ins.
Diky
McLEI
Encryptace data
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 8.9.1998 13:17:44
O nicem takovem nevim, ale prave resim neco podobneho a delam to tak, ze zkratka normalne sifruji string a ten ulozim do tabulky.
Napsal jsem si funkci EnCode(Retez, Pass : string) : string
a k ni samozrejme i DeCode se stejnymi parametry.
Takze se to ulozi jako string
- FiledByName('Heslo').AsString:=EnCode(TEdit1.Text,'Nejake heslo');
Funkce EnCode a DeCode pouzivaji jednu dvojitou transpozici a jednoduchou substituci, transpozice pouziva de facto libovolnou delku klice, ktera se vypocita z "Pass", jenom bych do toho jeste trochu zamotal RSA, ale zatim neznam poradne ani algoritmus ani metody sifrovani/desifrovani. Nevyhodou mych fc� je to, ze kdyz bude mit nekdo k dispozici zdrojovy text, bude mit moznost, sice malou, ale presto tu toto riziko je, sifru prolomit, jinak si myslim, je dost bezpecna. Na toto tema pripravuji svou html stranku, spojenou se soutezi a vyzvou vsem hackerum. Az bude hotova, poslu Vam off topic, jo. :-)))
----------
Od: Jan Nov�k[SMTP:csobta(zv)mbox.vol(tec)cz]
Odesl�no: 7. z��� 1998 8:30
Komu: Delphi
P�edm�t: Encryptace data
Pouzivam Delphi verze 3.0
Cau p�nove .
Do pole databazove tabulky (napr. tabulky na InterBase Serveru ) bych
chtel ukladat napr . heslo . Existuje
v Delphi nejaka funkce nebo moznost jak zapisovat do tabulky udaje
encryptovane. Kratce
receno encryptovat a zper deencryptovat data z databazove tabulky.
Diky za radu
MDI problem
[*] Tomko_Vincent <tomko(zv)vse.sk> - 08.9.1998 13:43:35
Vazeni,
Som novacik v konferencii aj vDelphi, takze Vas prosim, nekamenujte ma,
ak sa to tu uz preberalo.
Prosim Vas o radu. V MDI aplikacii potrebujem
1) Aby sa aplikacia po starte maximalizovala na celu plochu obrazovky,
bez zavislosti na nastavenom rozliseni a na
velkosti monitora.
1) po stlaceni speed buttonu (alebo volby z menu) minimalizovanie prave
otvoreneho Child okna a otvorenie dalsieho MDI Child okna
maximalizovaneho na celu plochu Parent Formy.
2) Ak sa vyberie button, ktory otvara MDI Child okno, ktore je
minimalizovane, aby sa toto okno maximalizovalo.
Stale moze byt pristupne iba 1 MDI child okno.
Ak viete poradit, budem vam velmi vdacny
--
Ing. Tomko Vincent
tel. : 095 712 559
e-mail : tomko(zv)vse.sk
Zjisteni ceskych windows
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 8.9.1998 14:20:35
Ahoj,
Prosim vas jak nejjednoduseji zjistit jestli na pocitaci jsou
nainstalovany ceske windows nebo podpora cestiny. V uvodu programu mam
dialog kde uzivatel muze prepnout program do anglicke nebo ceske verze a
jestli nebude na pocitaci podpora cestiny, tak text Ceska verze bych
chtel napsat sice v cestine ale bez hacku.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
<none>
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 8.9.1998 14:27:29
Nazdar,
stale sa trapim s roztahovanim textu v QuickReporte.
Doteraz som na nic neprisiel, tak otravujem znovu.
Ide o to, ze zostava v QuickReporte ja na obrazovke OK,
ale po vytlaceni je na papiery text roztiahnuty smerom
doprava mimo bandov (D3 Prof, QR 2.0k, HP DJ 540).
Stretli ste sa uz z tym? Ako ste to riesili?
Smutny
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Encryptace data
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.9.1998 15:21:44
> Do pole databazove tabulky (napr. tabulky na InterBase Serveru ) bych
> chtel ukladat napr . heslo . Existuje
> v Delphi nejaka funkce nebo moznost jak zapisovat do tabulky udaje
> encryptovane. Kratce
> receno encryptovat a zper deencryptovat data z databazove tabulky.
Kazdy rozumny SQL server umi pracovat s kodovanou databazi a kodovat
pakety, takze pokud tyto moznosti vyuzijes, melo by byt zajisteno,
ze po siti to nikdo neodposlechne a ze souboru databaze to take nikdo
neprecte.
Nicmene ukladat hesla do databaze rozhodne neni profesionalni pristup.
Heslo by se nemel nikdo dozvedet, dokonce ani administrator, pokud je
to mozne. Heslo by nemelo jiz zpetne precist ani z databaze, ale pritom
by melo byt mozno heslo overit. Takze spravne reseni tohoto ukolu
je treba hash (napr. MD5 apod.). Proste vkladas heslo, tak se z toho
udela hash a ten se ulozi do databate. Jakmile se ma heslo overit, pak
se prijme heslo k overeni, udela se z neho hash a ten se porovna
s udajem v databazi. Melo by platit, ze z hesla se da vygenerovat hash,
ale z hashe se neda zpetne vygenerovat heslo. To plati napr. pro to
MD5 a nebo pro jednoduchost lze vyuzit nejake jednodussi funkce, jako
napr. CRC32 - ale pozor, to je slaba nahrada...
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 ===
==============================================================Fonty na Slovensku
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.9.1998 15:21:44
> Potreboval by som vediet aky ma kod Slovencina.
> Pisalo sa, ze Cestina je ,238
Slovenske fonty jsou tytez jako ceske, takze cislo je take 238.
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 ===
==============================================================Pdox tabulky na CD-ROM
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 8.9.1998 15:56:41
>Ahojda,
Tepicky,
>PS2: Puvodne jsem chtel soubor poslat do konference (200KB), ale .....
A proc ne ?
>(znate to) :-))))))
Co ? :-)))
PS: Kdyz na tom CD (ROM) ten soubor existuje, uz potom neni problem tabulku otevrit ?
Ja myslel, ze se do toho *.LCK souboru zapisuje (napr. kdo ji otevrej, kdy, ...).
Me{hacek} totiz, kdyz ztuhla aplikace a musel jsem pouzit Ctrl-Alt-Del ty soubory LCK tam zustaly a bylo v nich uvedeno, ze jsou tabulky zamcene (a kym) a tak jsem je musel naopak smazat abych mohl otevrit tabulky (a tim je znovu vytvorit).
D.Zobrazenie formulara v ExitProc
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 8.9.1998 16:09:22
Hi,
nevim presne k cemu to ma slouzit, ale podle toho popisu bych rek, ze je
treba nastavit parent na neco jineho, nez je prave uzavirany formular.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 08. z��� 1998 10:07
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Zobrazenie formulara v ExitProc
>
> > Zkousel jsem si v OnClose jednoho formulare udelat ShowModal druheho
> =
> > formulare a pri ukonceni prvniho se ten druhy slusne zobrazil a
> teprve =
> > po jeho zavreni skoncil i ten prvni. V cem je problem ?
>
> To neni problem, to tak funguje a ma fungovat.
>
> 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 ===
> ==============================================================CopyRect
[*] cross(zv)zl.inext(tec)cz (Cross Zlin) - 8.9.1998 16:53:24
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim vsecky!
Potreboval bych funkci CopyRect zkopirovat Canvas jednoho objektu na druhy. Tyto objekty jsou ve vzajemnem vztahu (Objekt2.Parent:=Objekt1). Pri mojich pokusech se vzdy okopiroval obsah Canvasu, ktery byl pod Objekt2.
Pavel CABAK
cabak(zv)zl.inext(tec)cz
Fonty na Slovensku
[*] Administrator <Administrator(zv)rosoft.sk> - 8.9.1998 16:59:28
Pod NT 4.0, aj ked mam nastavene Arial,238 mi v jednej komponente nepise
makcene. Iba ked pouzivam stary News Serrif EE.
Viete niekto poradit?
Patrik Tesar
MPEG
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 8.9.1998 17:18:13
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nemate prosim nekdo solidni komponentu pro prehravani vvidea ve formatu MPEG? Predem dik.
Radek
Off topic Email
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.9.1998 18:46:38
Nova verze 3.0 uz bezi mesic vkuse ;-)
Milan Schembera wrote:
>
> Existuje. Podivej se na http://www.winroute(tec)cz . Je to ale komercni
> aplikace, kde i s mail-serverem to stoji cca 12.000 Kc. Muzes si stahnout
> demo-verzi, ktera funguje 20 minut, pak ji musis znovu spustit. Da se to
CMOS
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.9.1998 19:09:54
>Ahoj vsichni,
>
>nevite nekdo kde sehnat mapu CMOSky a jak je mozne z ni cist ???
>dekuji za vsechny odpovedi.
doporucuji Interrupt list od p. Browna - sveho casu distribuovany po BBS
dosazitelny i na internetu. Obsahuje popis vsech moznych i nemoznych
interruptu a taky jeden oddil venovany CMOSce
Zdravi
D. Toman
Jak nacist RCDATA?
[*] Adam Hor��ek���j+iǤ�Ƞ����3 - 8.9.1998 19:35:36
Zdravim,
mam nasledujici problem. Potreboval bych do RES souboru vlozit obecne data,
nejlepe do typu RCDATA. Jak je tam vlozit, to mi uz trochu jde, ale nevim,
jak je zpet nacist. Muzete mi nekdo poradit, please.
Diky
Adam
Dalsi chyba v D4 - Timer.Interval property
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.9.1998 19:56:37
Jo ted jsem se na to dival a taky mi to nechodi (kolegovi taky ne). Ale
urcite mi to fungovalo - protoze jsem si hral se services a s timerem -
a na 99% jsem jeste nemel Patch.
Mac
Zbysek Hlinka wrote:
>
> Petr Vones wrote:
>
> > ted jsem narazil na dalsi chybu v D4. Pokud chcete u komponenty Timer
> > nastavit v object inspectoru nejakou hodnotu Interval tak to vzdy hlasi
> > "Value must be between 0 and -1". Patrne se jedna o nejakou chybu v
> > editaci property typu Cardinal.
>
> Jeste mam na pocitadle C/S, bez update, a chodi to dobre. Ze by
> tuto chybu zavlekl update?
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================MPEG
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 8.9.1998 21:25:51
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nemate prosim nekdo solidni komponentu pro prehravani vvidea ve formatu MPEG? Predem dik.
Offtopic - IE 4.0 (resp. Outlook Express) mi uzavr
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 8.9.1998 23:23:08
Ahoj vsichni,
omlouvam se za offtopic. Presel jsem na IE4, ale at delam co delam
nedari se mi nastavit nasledujici :
IE4 (anglicky) vzdy zavre adresu (to co je v To:) do <....>. Kdyz uz ale
napisi napr:
Jan Novak <jan.novak(zv)novakov(tec)cz> tak mi z toho udela
<Jan Novak <jan.novak(zv)novakov(tec)cz>> , coz uz je neodeslatelne.
Instaloval jsem IE4 na dve PC, uplne stejne. Na jednpm tp funguje OK,
na druhem blbe.
Diky za kazdou radu.
Ladislav Nagy
Encryptace data
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.9.1998 23:29:34
> Funkce EnCode a DeCode pouzivaji jednu dvojitou transpozici a =
> jednoduchou substituci, transpozice pouziva de facto libovolnou delku =
> klice, ktera se vypocita z "Pass", jenom bych do toho jeste trochu =
> zamotal RSA, ale zatim neznam poradne ani algoritmus ani metody =
> sifrovani/desifrovani. Nevyhodou mych fc=ED je to, ze kdyz bude mit =
> nekdo k dispozici zdrojovy text, bude mit moznost, sice malou, ale =
> presto tu toto riziko je, sifru prolomit, jinak si myslim, je dost =
> bezpecna. Na toto tema pripravuji svou html stranku, spojenou se soutezi =
> a vyzvou vsem hackerum. Az bude hotova, poslu Vam off topic, jo. :-)))
No prave to je presne o tom, ze takto se to nedela. Pokud jde heslo
z databaze dekodovat, je to chybne reseni, byt by sance se k tomu
dostat byla minimalni. Jak jsem psal v minulem mailu, nedela se to
kodovanim a dekodovanim, ale jako hash bez moznosti zpetneho dekodovani.
Vzdyt neni potreba vytahnout spravne heslo, to je nezadouci. Jde jen
o jednu vec - overit, zda je heslo OK. A to je se prave overi
hash(kontrolovane_heslo) = udaj v databazi. Je to velmi jednoduche,
ale velmi ucinne.
Jinak bokem - co se tyka RSA, to neni takovy problem, ale pro kodovani
hesla je to absolutne divne reseni - za prve neni duvod, proc by mel
byt verejny klic, o cemz totiz tento algoritmus je, za druhe daleko
vice vyhovuje hash, kde neni zpetne dekodovani. Co se RSA tyka,
neni to slozite, asi nejhorsi je (a) najit dostatecne velika
prvocisla a (b) pak s nimi pocitat. Ale i to se da resit...
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 ===
==============================================================Dalsi chyba v D4 - Timer.Interval property
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 08.9.1998 23:30:30
Zbysek Hlinka wrote:
>
> Petr Vones wrote:
>
> > ted jsem narazil na dalsi chybu v D4. Pokud chcete u komponenty Timer
> > nastavit v object inspectoru nejakou hodnotu Interval tak to vzdy hlasi
> > "Value must be between 0 and -1". Patrne se jedna o nejakou chybu v
> > editaci property typu Cardinal.
>
> Jeste mam na pocitadle C/S, bez update, a chodi to dobre. Ze by
> tuto chybu zavlekl update?
Nakonec se ukazalo (jak tu jiz nekdo psal) ze je to opravdu zpusobeno property
editorem v RxLib 2.50. No, tentokrat maji Borlandi mimoradne stesti :-)
--
Petr Vones, amatersky programator
Zobrazenie formulara v ExitProc
[*] Peter Arbet <arbet(zv)px.psg.sk> - 9.9.1998 00:32:47
Hi all.
Zrejme som vo vyklade problemu nebol dostatocne presny, co je moja
chyba. Z ostatnych mailov zistujem, ze vypis useku programu, v ktorom sa
problem nachadza, velmi pomaha pri pochopeni, o co sa vlastne jedna.
Vychadzajuc z tohto poucenia, posielam vypis proj. suboru, kde problem
vznika:
program
ExitProcProject;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
var
OldExitProc:pointer;
{$R *.RES}
procedure
MyExitProc;
begin
ExitProc:=OldExitProc;
Application.CreateForm(TForm2,Form2);
Form2.CanClose:=false;
Form2.ShowModal;
while not Form2.CanClose do begin
Application.Run;
end;
end;
begin
Application.Initialize;
OldExitProc:=ExitProc;
ExitProc:=(zv)MyExitProc;
Application.CreateForm(TForm1,Form1);
Application.Run;
end.
Ako ste si vsetci urcite vsimli, problem som uz vyriesil. V MyExitProc
rozbehnem cyklus, ktory "nuti" aplikaciu, aby pokracovala v cinnosti. To sa
deje dovtedy, kym sa premenna Form2.CanClose nenastavi na true. Toto sa
udeje v metode:
procedure
TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CanClose:=true;
end;
Teraz sa mozno pytate, preco nestacil mail s hlaskou "Problem som uz
vyriesil". Dovody:
1. Mozno sa to niekedy niekomu z vas zide.
2. V suvislosti s riesenim sa chcem spytat, ci je to regulerne riesenie.
Mozem ocakavat nejake problemy v aplikacii? Zatial problemy nie su, ale
mozno len preto, ze aplikacia je trivialna.
Dakujem vsetkym za snahu o riesenie problemu.
S pozdravom
RAZIIARS of Aqabin
e-mail:
arbet(zv)px.psg.sk
arbet(zv)fred.utc.sk
-----Original Message-----
From: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
To: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Date: 8. september 1998 21:59
Subject: RE: Zobrazenie formulara v ExitProc
>Hi,
>
>nevim presne k cemu to ma slouzit, ale podle toho popisu bych rek, ze je
>treba nastavit parent na neco jineho, nez je prave uzavirany formular.
>
>
>Martin Fron�k
>ZZN Slan� a.s.
>Pra�sk� 1579, 274 49, Slan�
>tel. +420-314-522986
>e-mail: fronek(zv)zznslany(tec)cz
>
>> -----P�vodn� zpr�va-----
>> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
>> Odesl�no: 08. z��� 1998 10:07
>> Komu: delphi(zv)pinknet(tec)cz
>> P�edm�t: Re: Zobrazenie formulara v ExitProc
>>
>> > Zkousel jsem si v OnClose jednoho formulare udelat ShowModal druheho
>> =
>> > formulare a pri ukonceni prvniho se ten druhy slusne zobrazil a
>> teprve =
>> > po jeho zavreni skoncil i ten prvni. V cem je problem ?
>>
>> To neni problem, to tak funguje a ma fungovat.
>>
>> 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 ===
>> ==============================================================
><none>
[*] ikino(zv)pobox.sk (Ivan Zatka) - 9.9.1998 05:54:47
Nazdar, neviete nahodou, ako dostanem svoju ikonu dole do taskbaru vedla hodin? Tam, kde je hlasitost, klavesnica.
A este by ma zaujimalo, ako sa robia ovladace na tlaciaren.
IKO
ikino(zv)pobox.sk
--
____________________________________
P. S. V. P. U.
http://www.pobox.sk/MDI problem
[*] Jan Fiala <fiala(zv)iname(tec)com> - 9.9.1998 06:18:16
1. U hlavniho okna aplikace si nastav vlastnost WindowsState na wsmaximize
2. K aktualnimu MDI oknu pristupujes pres hlavni formular.ActiveMDIChild (nastavit mu vlastnost WindowState na wsMinimize) a u noveho okna nastavit opet WindowState na wsMaximize. Pri navrhu bys u MDI oken mel tuto vlastnost nastavit na wsMaximize (v tvem pripade)
3. Budes muset zkontrolovat, zda je jiz okno vytvoreno (muze na to pouzit napr. tag u voleb v menu : vytvorim okno - nastavim tag na 1, zavru okno, nastavim jej zpet na 0). To by nepracovalo v pripade, ze bys mel nekolik oken, vytvorenych jednim tlacitkem menu (coz je prave u MDI aplikaci normalni, ale ne v tvem pripade, jak jsem pochopil)
ActiveMDIChild.WindowState := wsMinimized;
If danaPolozkaMenu.Tag = 1
Then existujici okno.WindowState := wsMaximized;
Else Begin
vytvor (nebo zobraz, pokud je nevytvaris dynamicky) pozadovane okno;
danaPolozkaMenu.Tag := 1;
End;
Nebo si projit seznam otevrenych MDI oken a pozadovane zvetsit :
For i:=0 To MDIChildCount - 1 Do
If je to pozadovane okno
Then Begin
ActiveMDIChild.WindowState := wsMinimized;
pozadovane okno.WindowState := wsMaximized;
End;
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Prosim Vas o radu. V MDI aplikacii potrebujem
1) Aby sa aplikacia po starte maximalizovala na celu plochu obrazovky,
bez zavislosti na nastavenom rozliseni a na
velkosti monitora.
1) po stlaceni speed buttonu (alebo volby z menu) minimalizovanie prave
otvoreneho Child okna a otvorenie dalsieho MDI Child okna
maximalizovaneho na celu plochu Parent Formy.
2) Ak sa vyberie button, ktory otvara MDI Child okno, ktore je
minimalizovane, aby sa toto okno maximalizovalo.
Stale moze byt pristupne iba 1 MDI child okno.
Ak viete poradit, budem vam velmi vdacny
--
Ing. Tomko Vincent
tel. : 095 712 559
e-mail : tomko(zv)vse.sk
ToolButtons v Delphi4
[*] Jan Fiala <fiala(zv)iname(tec)com> - 9.9.1998 06:26:44
Jo, to dela. Lepsi je napojit vlastnost OnClick na prislusnou OnClick menu (priradit mu ze seznamu) nebo pouzit ActionList, ktery byl prave pro to vytvoren
S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com
Zacal jsem si trochu hrat s Delphi 4
(predtim jsem znal pouze verzi 1).
Hned jsem narazil na jeden nezavazny, ale
nehezky problem:
Pokud vytvorim ToolBar, na nem ToolButton
a ten ToolButton napojim na polozku menu
(property MenuItem), tak neklika (tzn. pri stisku
mysi se obrazek nezamackuje). Pokud neni
napojen na menu, funguje dobre.
Ma s tim nekdo nejakou zkusenost?
Predem dekuju
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
referencie
[*] Martin Talian <talian(zv)geoplanpp.sk> - 9.9.1998 07:08:20
Zdravim vsetkych,
Mam jeden zaciatocnicky dotaz.
Mam dve tabulky spojene referenciou 1:N.
Prva ,hlavna tabulka obsahuje napr. zoznam nejakych prvkov. Druha tabulka
obsahuje vlastnosti tychto prvkov, pricom kazdy prvok ma niekolko zazanamov
v tabukle vlastnosti.
Da sa urobit jednym prikazom aby mi pri zmazani riadku v prvej tabulke
automaticky zrusil aj suvisace zaznami v druhej tabulke, alebo to musim
mazat rucne tak , ze budem prechazdat druhu tabulku ?
Chcel by som pouzit tabulky fox, paradox alebo acces. Je mezi nimi rozdiel
co sa tyka mazanie spojenych tabuliek ?
vdaka za vsetky odpovede
s pozdravom
martin
ToolButtons v Delphi4
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 9.9.1998 07:20:59
Diky,
Neznam ActionList, hned se na nej mrknu.
Prirazeni OnClicku mne taky napadlo,
pripada mi to ale nevyhodne, protoze:
- pokud chci akci disablovat, musim
to delat na dvou mistech
- musim explicitne definovat ikonu pro ToolBox
- s predchozim bodem souvisi, ze musim mit
jeden ImageList pro menu i ToolBar, jenomze
chci udelat MDI, kde je v MDIFrame hlavni
menu a Toolbar, do hlavniho menu dynamicky
vkladam PopUp Menu z MDI Childs, ktere
ma svuj vlastni ImageList.
Ale diky za odpoved, podivam se na ten
ActionList
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:fiala(zv)iname.com]
> Odesl�no: 9. z��� 1998 6:27
> Komu: DELPHI Distribution List
> P�edm�t: Re: ToolButtons v Delphi4
>
> Jo, to dela. Lepsi je napojit vlastnost OnClick na prislusnou OnClick
> menu (priradit mu ze seznamu) nebo pouzit ActionList, ktery byl prave
> pro to vytvoren
>
> S pozdravem� "klid zbran�m a program�tor�m"
> se t�� na dal�� spolupr�ci
> ing. Jan Fiala���� jan.fiala(zv)iname.com <mailto:jan.fiala(zv)iname.com>
>
>
> Zacal jsem si trochu hrat s Delphi 4
> (predtim jsem znal pouze verzi 1).
> Hned jsem narazil na jeden nezavazny, ale
> nehezky problem:
> Pokud vytvorim ToolBar, na nem ToolButton
> a ten ToolButton napojim na polozku menu
> (property MenuItem), tak neklika (tzn. pri stisku
> mysi se obrazek nezamackuje). Pokud neni
> napojen na menu, funguje dobre.
>
> Ma s tim nekdo nejakou zkusenost?
>
> Predem dekuju
>
> Jura
>
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz <mailto:e-mail:jura.polak(zv)email(tec)cz>
> jiri.polak(zv)tconsult(tec)cz <mailto:jiri.polak(zv)tconsult(tec)cz>
>
> CopyRect
[*] cross(zv)zl.inext(tec)cz (Cross Zlin) - 9.9.1998 07:40:38
Zdravim vsecky!
Potreboval bych funkci CopyRect zkopirovat Canvas jednoho objektu na druhy.
Tyto objekty jsou ve vzajemnem vztahu (Objekt2.Parent:=Objekt1). Pri mojich
pokusech se vzdy okopiroval obsah Canvasu, ktery byl pod Objekt2.
Pavel CABAK
cabak(zv)zl.inext(tec)cz
Setting Printer
[*] V�t�zslav Gazda������u��n�?��? - 9.9.1998 07:44:49
Zkus to nastavit treba takto:
type
TPrinterInfo = class Driver,Device,Port:string;end;
procedure
SetPrinterPageSize(nLength,nWidth:Integer;oOrientation:TPrinterOrientation);
var
oInfo:TPrinterInfo;
hDM1,hDM2:THandle;
pDM1,pDM2:PDevMode;
pDevice,pDriver,pPort:PChar;
begin
{Zji�'tuji Driver, Device a Port}
oInfo := TPrinterInfo(Printer.Printers.Objects[Printer.PrinterIndex]);
pDriver := StrAlloc(Length(oInfo.Driver) + 1);
pDevice := StrAlloc(Length(oInfo.Device) + 1);
pPort := StrAlloc(Length(oInfo.Port) + 1);
StrPCopy(pDriver,oInfo.Driver);
StrPCopy(pDevice,oInfo.Device);
StrPCopy(pPort,oInfo.Port);
{Zji��uji DEVMODE}
Printer.GetPrinter(pDevice,pDriver,pPort,hDM1);
pDM1 := GlobalLock(hDM1);
hDM2 := GlobalAlloc(GHND,SizeOf(TDevMode));
pDM2 := GlobalLock(hDM2);
CopyMemory(pDM2,pDM1,SizeOf(TDevMode));
{Modifikuji DEVMODE}
pDM2^.dmFields := DM_PAPERSIZE or DM_PAPERLENGTH or DM_PAPERWIDTH or
DM_ORIENTATION;
pDM2^.dmOrientation := Ord(oOrientation) + 1;
pDM2^.dmPaperSize := DMPAPER_USER;
pDM2^.dmPaperLength := nLength;
pDM2^.dmPaperWidth := nWidth;
GlobalUnlock(hDM2);
GlobalUnlock(hDM1);
{Nastavuji DEVMODE}
Printer.SetPrinter(pDevice,pDriver,pPort,hDM2);
StrDispose(pPort);
StrDispose(pDevice);
StrDispose(pDriver);
end;
Vita
Hack protected metod dalekych predchudcu - popis
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 9.9.1998 07:53:47
Ja pouzivam jinou metodu na prechod mezi objekty:
PostMessage(GetParentForm(Self).Handle, wm_NextDlgCtl, 0, 0) pro prechod na nasledujici objekt a
PostMessage(GetParentForm(Self).Handle, wm_NextDlgCtl, 1, 0) pro prechod na predchozi objekt.
Funguje to uplne perfektne.
Implementovano to mam na OnKeyDown asi takhle:
if Shift = [] then
case Key of
vk_Return, vk_Down: PostMessage(GetParentForm(Self).Handle, wm_NextDlgCtl, 0, 0);
vk_Up: PostMessage(GetParentForm(Self).Handle, wm_NextDlgCtl, 1, 0);
end;
That`s all folks !!!
S pozdravem
Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>
> Vazeni kolegove,
>
> onehda jsem potreboval na formu plnych TEditu po stisknuti Enter
> posunuti focusu na dalsi TEdit a Delphi 3 se vzpiralo a vzpiralo az
> jsem v jednom starem mailu teto konference nasel nasledujici
>
> type
> TWinControlHack = class(TWinControl);
> // tato trida je naslednik TWinControl a ma tedy pristup k protected
> metodam teto tridy a tedy i k metode SelectNext
>
> procedure TMainForm.OnEditKeyDown(..);
> begin
> if Key=VK_RETURN then
> TWinControlHack(self).SelectNext(ActiveControl, True, True);
> end
>
> coz krasne funguje a ackoli v Delphi delam uz 3 roky a v Pascalu
> dalsich 5, neznam jsem to. V podstate jde o to, ze lze pristupovat
> k protected vlastnostem a metodam nejakeho dalekeho
> predchudce, ke kterym by jinak to slo pristoupit tezko ...
> Je to hezka finta a uzitecna, takze jestli se nekdo dovida poprve
> jako ja, splnil tento mail svuj ucel ... a pro ty, co to znaji, sorry za
> zdrzovani..
>
> Honza Najvarek
> ------------------------------------------------
> Jan Najvarek
> najvarek(zv)dame.fee.vutbr(tec)cz
>