Archív konference Delphi

Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.

Dalsi chyba v D4 - Timer.Interval property

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 09.9.1998 07:55:26

Jsem si pripadal jako blazen, protoze jsem si nahral onen bugfix pro RX
a furt mi to nechodilo - ba co vice jeste na me RX-ka plivala toto:
"[Fatal Erorr] RxCtlReg.pas(40): Never-build package 'dclstd40' must be
recompiled.", kdyz jsem je chtel instalovat. Tak sem se mrknul na
HomePage RX a hledal neco o zminenem problemu (nenasel jsem nic). Tak
jsem si stahnul znova onen bugfix a ejhle - novejsi verze (misto 25 kB
to ma 87 kB). Na a opravdu po reinstalaci je vse OK.

Mac

P.S. Existuje nekde presny popis co ty bugfixy opravujou (na RX Home
jsou skoupi na slovo ;)

Petr Vones wrote:

> 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

--
==============================================================
= 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 =
==============================================================

Zjisteni ceskych windows

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.1998 07:57:58

Zdenek Petruj wrote:

> 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.

GetLocaleInfo. Prvni parametr dej 0.


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


Offtopic - IE 4.0 (resp. Outlook Express) mi uzavr

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 09.9.1998 08:02:15

Nevim jestli to helpne, ale existuje verze IE4.01 SP 1 (Service Pack),
takze pokud jeste nemas tak hura na www.microsoft.com ;-). Mimochodem uz
je i SP1 CZ a KONECNE odstranuje neprijemny problem vytuhnuti W95 pri
START/VYPNOUT (na vetsine masin), kdy se nezobrazi magicka obrazovka
'Nyni muzete vas pocitac bez obav kopnout' a po restartu startuje
ScanDisk.

Mac

Ladislav Nagy wrote:
>
> 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

--
==============================================================
= 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 =
==============================================================

Tvorba helpu

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.9.1998 08:03:48

Hi,

FOREHELP je komercni produkt a ja jsem s nim naprosto spokojen. Pokud
jste mel nejake omezeni, pak to nebyla ostra verze.


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: lnovy(zv)unicos(tec)cz [SMTP:lnovy(zv)unicos(tec)cz]
> Odesl�no: 08. z��� 1998 13:03
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Tvorba helpu
>
> 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
>

Parametry v ADODataset dotazech (Adonis, OLEDB)

[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 9.9.1998 08:06:07

Ono to souvisi s definici ADO, tam to totiz je definovano takto s otaznikama

Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic

> -----P�vodn� zpr�va-----
> Od: Martin Kuska [SMTP:martin.kuska(zv)amenit(tec)cz]
> Odesl�no: 6. z��� 1998 16:36
> Komu: DELPHI Distribution List
> P�edm�t: Re: Parametry v ADODataset dotazech (Adonis, OLEDB)
>
> Ladislav Nagy wrote:
>
> > Ahoj Delpfini.
> > Prosel jsem si dukladne obe Adonis komponenty, ale jedna vec se mi
> > nepodarila - a sice pouziti parametru v dotazu (AdoDataSet s nastavenym
> > CommandType = ctText).
> >
> > Zadam napr:
> >
> > ... WHERE job_id = :muj_parametr
> >
> > V Params listu se ale nic neobjevi. Uziva se jina syntaxe parametru?
> Nebo je
> > zadrhel jinde?
> > Mohl byste mi nekdo poradit?
> >
> > Diky, Ladislav Nagy
> > lada(zv)kolej.mff.cuni(tec)cz
> >
>
> Cau, na to jsem taky narazil. Ono to totiz neumi pojmenovavat parametry.
> Misto
> toho ":muj_parametr" musis napsat jen "?". Na miste prvniho otazniku se
> pouzije
> hodnota prvniho parametru nadefinovaneho v Params. V miste druheho se
> pouzije
> hodnota druheho parametru atd. Ma to jednu nevyhodu. Pokud potrebujes
> jeden
> parametr pouzit v dotazu na X mistech, musis proto v Params nadefinovat X
> parametru a vsem priradit stejnou hodnotu.
>
> Zdar, Martin.
>
>
>
>
> --
> ==============================================================
> = Ing. Martin Ku�ka - Amenit s.r.o. =
> = Na Valech - budova Dytron, 741 01 Novy Jicin =
> = http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
> ==============================================================
>

<none> Ikona v taskbaru vedle hodin

[*] V�t�zslav Gazda������u��n�?��? - 9.9.1998 08:10:02

Na to mam komponentu viz. http://www.tda(tec)cz/vita/ .

Vita


CopyRect

[*] Petr Brant <pbrant(zv)softhome(tec)net> - 9.9.1998 08:15:18

Nevim, jestli jsem ti spravne porozumel, ale mne to jde bez problemu. Napr.
umisti na form tlacitko Button1. Nasledujicim kodem jeho obraz okopirujes
na libovolne misto na formu:

procedure TForm1.CopyButton;
var DestRect, SourceRect:TRect;
begin
SourceRect:=Rect(Button1.Left, Button1.Top, Button1.Left +
Button1.Width,Button1.Top + Button1.Height);
DestRect:=Rect(0,0,Button1.Width, Button1.Height);
// zkus treba i DestRect:=Rect(0,0,2*Button1.Width, 2*Button1.Height); je
to hezky efekt
Canvas.CopyRect(DestRect, Canvas, SourceRect);
end;

*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************


-----Puvodni zprava-----
Od: Cross Zlin
Odeslano: 8. zaoi 1998 16:53
Komu: Delphi(zv)pinknet(tec)cz
Poedmit: CopyRect

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


referencie

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.9.1998 08:16:41

Hi,

je potreba vyuzit referencni integrity, kdy se da tohle nadefinovat
primo do vlastnosti tabulky, podivej se na to v helpu. K tem druhum
tabulek mohu rict jen to, ze vim o tom, ze to funguje na typu Paradox.
Ostatni jsem nemel potrebu zkouset.


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: Martin Talian [SMTP:talian(zv)geoplanpp.sk]
> Odesl�no: 09. z��� 1998 7:08
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: referencie
>
> 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
>
>

InterbaseProLinuch

[*] RADIK(zv)p15.monet(tec)cz - 9.9.1998 08:21:00

Nevim jestli to uvedu presne, ale me to fungovalo bez nahravani dalsich
souboru na PLNE instalaci Linuxu.
Dle meho skromneho nazoru by ale pomohlo doinstalovat k novym glibc
knihovnam (ktere jsou v RH5 implicitne) stare knihovny libc (byly v RH4)
a jsou hlavne na CD k RH5.

Ales


----------
Od: Martin Fron�k
Komu: 'DELPHI Distribution List'
P�edm�t: RE: InterbaseProLinuch
Datum: 8. z��� 1998 11:55

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


Interbase 4.0 vs 4.2

[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 9.9.1998 08:21:59

Zdravim,
prosim osvezte me nekdo pamet. Delam na Interbase 4.2 a jeden zakaznik chce
aplikaci na Interbase pro Linux (4.0) protoze nemam ted linux k dispozici,
tak bych to delal na lokalni IB 4.2 a pote to zpetne prevedl pomoci scriptu
na 4.0, ale nevim, co 4.2 ma navic od 4.0 - tudiz, ceho se mam vyvarovat.
Prosim poradte.

Diky


Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic


Encryptace data

[*] Pavel_Fuciman.UNION(zv)union(tec)cz - 9.9.1998 08:31:15

Zdravim vsecky,

Potreboval bych zjistit jak pracuje algoritmus na encryptaci dat (nap� jiz
zminovany hash MD5 nebo funkce CRC32),
popripade jestli ma nekdo zdrojak.

Za kazdou radu predem dik

P.

InterbaseProLinuch

[*] Prantl Zden�k <Zdenek.Prantl(zv)pvt(tec)cz> - 9.9.1998 08:32:22

> -----Original Message-----
> From: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Sent: Tuesday, September 08, 1998 11:56 AM
> Subject: RE: InterbaseProLinuch
>
> Hi,
>
> bylo by dobre uvest PRESNE, co je treba udelat pro rozchozeni IB na
> Linuxu 5. Ujme se toho nekdo?

Klidne.
Nemusel jsem udela vubec nic mimoradneho (BTW uz jsem to tady psal).
Nainstaloval jsem RedHat 5.1. Na to jsem normalne pustil instalaci IB 4.0.
Pres backup databaze jsem si pretahl databazi z PC na RedHat. A vsechno
zatim chodi tak jak ma.
Nevim jak je to s RedHatem 5.0, ale na 5.1 chodi vse bez mimoradnych zasahu.

ZdeP.

Ikona v taskbaru

[*] David_Zabensky.UNION(zv)union(tec)cz - 9.9.1998 08:42:03

Mozna ti pomuze toto (je to cast programu, co jsem psal). Nezapomen pridat
unit ShellApi.


unit Killer_f;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Buttons, ComCtrls, StdCtrls, ShellApi;
^^^^^^^^

const
// nadefinuji si nejakou zpravu
WM_NOTIFYICON = WM_USER + 333;

type
TForm1 = class(TForm)
... tady jsou nejake objekty
private
{ Private declarations }
NIData: TNotifyIconData;
HMainIcon: HICON;
procedure AppMinimize(Sender: TObject);
procedure CMClickIcon(var msg: TMessage); message WM_NOTIFYICON;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMClickIcon(var Msg: TMessage);
begin // kliknuti na ikonu v rohu >> aplikace je minimalizovana
case Msg.LParam of
WM_LBUTTONUP :
begin
Shell_NotifyIcon(NIM_DELETE, (zv)NIData);
Show;
Application.Restore;
Application.BringToFront;
end
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Pause: integer;
begin
// pokud aplikaci zminimalizuji, vola se AppMinimize
Application.OnMinimize:= AppMinimize;
HMainIcon:= LoadIcon(MainInstance, 'MAINICON');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Shell_NotifyIcon(NIM_DELETE, (zv)NIData);
end;

procedure TForm1.AppMinimize(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, (zv)NIData);
with NIData do
begin
cbSize:= sizeof(TNotifyIconData);
Wnd:= handle;
uID:= 123;
uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;
uCallbackMessage:= WM_NOTIFYICON;
hIcon:= HMainIcon;
szTip:= 'Nejaky pomocny text jenz bude hint aplikace...';
end;
Shell_NotifyIcon(NIM_ADD, (zv)NIData);
Form1.Hide
end;

end.

Hodne stesti, David;

PS: Testovano jen pod NT 4.0

ikino(zv)pobox.sk (Ivan Zatka) na 09.09.98 04:54:47

Odpov�zte pros�m - DELPHI Distribution List <delphi(zv)pinknet(tec)cz>

Komu: delphi(zv)pinknet(tec)cz
Kopie: (Na v�dom�: David Zabensky/CENT1/UNION/CZ)
P�edm�t: <none>
Content-type: text/plain; charset�-ascii


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/

<none>

[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 9.9.1998 08:43:03

Tady je predesla debata na dane tema...:

http://www.delphi(tec)cz/archiv.idq?HTMLQueryForm=hledani.asp&CiRestriction=(zv)Doc
Title%20TrayIcon

Tomas

On Wednesday, September 09, 1998 5:55 AM, ikino(zv)pobox.sk
[SMTP:ikino(zv)pobox.sk] wrote:
> 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/

MPEG

[*] Jiri Fajtl <chip(zv)oku-pi(tec)cz> - 09.9.1998 08:47:01

Ahoj

Nedavno jsem zkousel komponentu mplay a funguje perfektne.
Je napsana v Cecku jako dll.

No a tady si ji muzes stahnout
ftp://ftp.kufr(tec)cz/pub/delphi/mpeg.zip

Jiri Fajtl
mailto: chip(zv)kufr(tec)cz, chip(zv)oku-pi(tec)cz
phone:0602 853601



Radek Soucek wrote:

> Nemate prosim nekdo solidni komponentu pro prehravani vvidea ve
> formatu MPEG? Predem dik. Radek

Pdox tabulky na CD-ROM

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 09.9.1998 09:04:09

Ahojda 2.,

Do LCK souboru se zapisuji informace nutne pro zamykani tabulek. Zamykani ma ofsem vyznam pouze pri aktivni praci s tabulkou (editace/vkladani/mazani) ... toto se ofsem na ReadOnly mediu nedeje :-))) !!!

Abych priznal barvu (cernou) tag nevim, jak LCK soubory "vnitrne" funguji a nevadi mi to ;-).
Proste jsem potreboval vyresit problem: Jak otevrit tabulku na CD-ROM, a ejhle ... ono to funguje ;-).
(Bohuzel, je treba "zasahnout" PRED VYPALENIM :-( )

Za normalnich okolnosti se do nich asi zapisuje Kdo, Kdy, Kde, Jak, Za kolik, atd.
Ovsem na RO mediu to nepotrebujes, protoze tu tabulku si proste nezeditujes :-). Nevim ale, co by to udelalo, kdyz bys chtel mit tabulku otevrenou exluzivne ... coz je ofsem nesmysl.

PS: Gdo neveri, at tam bezi ...
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com


Dobromil Mal� wrote:

> >Ahojda,
> Tepicky,
>
> >PS2: Puvodne jsem chtel soubor poslat do konference (200KB), ale .....
> A proc ne ?

[chaosz] Protoc !

>
> >(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.

Encryptace data

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 9.9.1998 09:13:17


Ale ja preci nikde netvrdim, ze se takto ma zapisovat a pouzivat uzivatelske heslo !!!
Puvodni dotaz znel, cituji "Kratce receno encryptovat a zper deencryptovat data z databazove tabulky.".
Vsimnete si prosim - A ZPET DEENCRYPTOVAT!
Moje odpoved neni tak uplne "out" jak pisete. Predstavte si napr. Anglicko-Cesky slovnik.
Mam program a tabulku, kde je vzdy anglicky a cesky vyraz. Data samozrejme zasifruji, aby
mi je nikdo nemohl vzit a pouzit ve sve vlastni aplikaci. Takova data musim byt schopen
samozrejme zpet deencryptovat.
D.

----------
Od: Petr Zahradnik[SMTP:clexpert(zv)clexpert(tec)cz]
Odesl�no: 9. z��� 1998 0:29
Komu: delphi(zv)pinknet(tec)cz
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 ===
==============================================================

<none>

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 09.9.1998 09:30:18

Ahojda,

trochu jsem se nedavno QR zabyval a na tuto chybu jsem narazil, pokud
jsem kreslil na Canvas QRPrinter, blbe fungovala fce
QRPrinter.Canvas.TextWidth(...), jinak nohuzel nevim :-(.

Mohu dat pouze par obecnych rad:

1) Pred kompilaci mit nastaveni Zoom QR na 100% !!!
2) Pro tisk grafiky pouzivat EMF (Windows Enhanced MetaFile) - do
metafile se da rucne
kreslit pomoci TMetaFileCanvas.


--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com


Marek Repisk� wrote:

> 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


referencie

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 9.9.1998 09:48:20

> 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 ?

Nazdar,

jednym prikazom to asi nejde, ale pomocou SQL by to islo dvoma. Asi takto

delete
from Table2
where IDP = 1021

delete
from Table1
where IDP = 1021

za predpokladu, ze pouzijes TQuery. Viac "Local SQL help" (D3).

A pokial ide o to rucne mazanie, tak sa da urobit procedura(funkcia),
ktora to zmaze za Teba :)

Marek Repisky
mrepisky_zl(zv)zsnp.sk

vyska QRBandu

[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 09.9.1998 09:56:10

Ahojda,

pokud chces ovlivnovat parametry QReportu a jeho QRBandu muzes to delat
_myslim_ nejlepe (a mozna jedine) v udalosti TQuickRep.OnNeedData. Tato udalost
se ale nevyvola pokud TISKNES PRIMO Z TABULKY !!! tedy pomoci TTable +
TDataSource + TQRDBText....
Musis si tam misto TQrDbText naflakat "pouze" TQRLabel, a pri OnNeedData to do
tech labelu sypat rucne..., MoreData pak urcuje, zda se tiskne dale, nebo zda
je uz konec reportu.

Ja jsem to resil tak, ze jsem si zalozil vlastni Band (TOpBand =
class(TQRBand)), ktery byl volan (jeho metoda) z Reportu.OnNeedData.

procedure TMyReport.MyReportNeedData(Sender: TObject; var MoreData: Boolean);
begin
MoreData := MyBand.GetNextData;
end;

MyBand se pak v teto metode staral sam o tisk jednoho radku (mas k dispozici
udaje o velikosti vsech komponent, a muzes je i menit) .....
Samozrejme, na to se muzes vykaslat a starat se o vsechno v metode udalosti
OnNeedData ...


TIP: Pouzivej misto TQRLabel.Height, TQRLabel.Size.Height, to same pro ostatni
rozmery. A muzes si v TQuickRep.Units volit jednotky ve kterych ti to vraci.

--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com


Marian Goryl wrote:

> 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


Komponenta - prav�tko

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 9.9.1998 10:13:31

Nevite nahodou o nejake free komponente pravitko kde lze vkladat znacky
tabulatoru(libovolny pocet) a bylo by mozne s tema znackama hybat ?Diky.
Marian.Morzol(zv)ostrava.aksignal(tec)cz


<none>

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.1998 10:21:32

> Nazdar, neviete nahodou, ako dostanem svoju ikonu dole do taskbaru vedla hodin? Tam, kde je
> hlasitost, klavesnica.

Hledej v archivu konference slovo TrayIcon, pripadne komponenty
podobneho nazvu. Jsou take v RxLibrary nebo SysTools.

> A este by ma zaujimalo, ako sa robia ovladace na tlaciaren.

Vetsinou v Cecku pomoci DDK.

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 ===
==============================================================

ToolButtons v Delphi4

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.1998 10:21:32

> 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.

A pouzivas ActionList? Ten se na to pouziva, pomoci neho
spojis ToolBar s Menu a budes to ovladat najednou
(disablovat, enablovat), dokonce i OnClick, obrazky
a popisy se ti samy doplni.

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 ===
==============================================================

Nahrazeni prikazu D1 na D3

[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 9.9.1998 10:32:38

Dobry den
Nevite nekdo jakymi procedurami v D3 se nahradi tyto procedury y D1

GetFreeSystemResources(GFSR_GDIResources);
GetFreeSystemResources(GFSR_SystemResources);
GetFreeSystemResources(GFSR_UserResources);

Diky


Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68

tel: 66173163
fax: 6857003

nosek(zv)ujf.cas(tec)cz


Jeste jednou CopyRect

[*] Pavel Cabak <cabak(zv)zl.inext(tec)cz> - 9.9.1998 10:45:07

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

> -----P�vodn� zpr�va-----


> 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.


Dekuji za odpoved, ale na jednu malickost jsem zapomnel. Ten Objekt1 je vytvoren na formulari (neni to primo formular). Oba objekty jsou pak zalozeny na TCustomControl (pripadne Objekt2 na TGraphicControl).

Pavel CABAK
cabak(zv)zl.inext(tec)cz

Tvorba helpu

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.1998 10:49:40

> 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

ForeHelp je spickovy program pro tvorbu help souboru, ktery mam
napriklad ja zakoupeny v nejnovejsi verzi 3.0. Pokud byl nejak
limitovan, tak jsi asi pouzival nejakou demoverzi...

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 ===
==============================================================

Prosba

[*] Filip =?iso-8859-1?Q?Hlad=EDk?= <filip.hladik(zv)post(tec)cz> - 09.9.1998 11:03:52 -0500

Zdravim Vas,

prosim poradi mi nekdo nejakou free komponentu pro tisk tabulek
v D1 (W 3.11).

Dekuji

Filip Hladik
filip.hladik(zv)post(tec)cz


Setting Printer

[*] Ing. Jaroslav K�e�ek - 9.9.1998 11:17:30

DIKY, Vito, DIKY. To je presne ono!!! Co radek, to prela.

Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>

Zkus to nastavit treba takto:


type TPrinterInfo = class Driver,Device,Port:string;end;
oInfo := TPrinterInfo(Printer.Printers.Objects[Printer.PrinterIndex]);
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Kouzelne. 8-O


Jarda

Tabulky Pdox DOS vs. Win95

[*] Tomko_Vincent <tomko(zv)vse.sk> - 09.9.1998 11:46:50

Zdravim Vas,

Mam otazku, na ktoru som zatial nikde nenasiel odpoved.

Ako Delphi pracuju s pdox tabulkami vytvorenymi a vyplnamymi pod DOSom(
czech852).
Je potrebna nejaka konverzia dat dos852 - win1252 ?. Budu sa mi korektne
zobrazovat a ukladat znaky s diakritikou?
Dakujem vopred za vsetky predchadzajuce rady a za nasledujuce.

--
Ing. Tomko Vincent
tel. : 095 712 559
e-mail : tomko(zv)vse.sk

Cestina ve Win NT

[*] Jaroslav N�dhera <csh(zv)czn(tec)cz> - 9.9.1998 11:50:53

Ahoj,

mam problem. Program v Delphi 2 zkompilovany ve Win95 chodi ve Win 95 dobre. Ve Win NT Workstaion 4.0 se ale spatne zobrazuji ceske pismena (v labelech atd). Pouzivam font Arial. Da se to nekte v NT nastavit nebo se musi nainstalovat spravny cesky font?

J. Nadhera


Jak nacist RCDATA?

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.9.1998 12:09:36

=?windows-1250?B?QWRhbSBIb3Lh wrote:

> 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.

To je na delsi popisovani. Ale pokud je tam dokazes vlozit, jak to,
ze je nedokazes precist? To je vsechno prace s hlavickami - je
jedna uvodni hlavicka pro cely RES, potom kazdy datovy usek ma
svou vlastni hlavicku, kde je udana m.j. delka a typ dat. Takze je
treba preskakovat po hlavickach tak dlouho, az narazis na
pozadovany typ, ktery si prectes. Blizsi popis formatu najdes v
MSDN, nejake kuse zminky jsou i v API helpu u D4.


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


Soubor - vytvoreni a zapis do nej

[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 9.9.1998 12:11:42


Ahoj,

setkal jste se prosim nekdo s nasledujicim probleme ?

Delam asi toto:
1) test na existenci INI souboru, neexistuje-li, vytvorim ho
2) jestlize v INI souboru nejsou zadne vety, zapisi je tam

function Pokus: Integer
var
PokusIni: TIniFile; ListStr: TStringList;
begin
try
// Test na existenci souboru, neexistuje-li, vitvorim ho
if (FileExists('C:\Pokus\pokus.ini') = False) then
FileCreate('C:\Pokus\pokus.ini');

PokusIni := TIniFile.Create('C:\Pokus\pokus.ini');
ListStr := TStringList.Create;
PokusIni.ReadSections(ListStr); // Test na pocet sekci v ini souboru, nejsou-li, zapsat
if (ListStr.Count = 0) then PokusIni.ReadString('POKUS','SLOVO','');

TADY MI TO PRAVE PADA. NEMUZE ZAPSAT DO SOUBORU:
"Unable to write to C:\Pokus\Pokus.ini". ...

ListStr.Free;
PokusIni.Free;
except
end;
Result := GetLastError;
end;


Vasek



E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247


Zjisteni ceskych windows

[*] heinisch(zv)post(tec)cz - 9.9.1998 12:19:10



>Ahoj,
>Prosim vas jak nejjednoduseji zjistit jestli na pocitaci jsou
>nainstalovany ceske windows nebo podpora cestiny.


Zdravim vsechny

Tyto inormace lze zjistovat a nastavovat funkcemi WIN32 API

GetLocaleInfo
SetLocaleInfo
EnumSystemLocales
EnumLocalesProc
atd.


Ahoj HeiJu


referencie

[*] heinisch(zv)post(tec)cz - 9.9.1998 12:23:38

AHOJ

To uz by melo jit samo.

vyplyva to uz z vlastiho nastaveni vztahu Master/Detail v komponente TTable


Zdravim vsechny HeiJu


-----P�vodn� zpr�va-----
Od: Martin Talian <talian(zv)geoplanpp.sk>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 9. z��� 1998 2:00
P�edm�t: referencie


>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
>

Combobox - vyber

[*] heinisch(zv)post(tec)cz - 9.9.1998 12:35:51

Ahojte


Pri pouzivani Comboboxu i jeho Db variante se pomoci kurz. klaves
pohybuji po nabizenych polozkach. V pripade ze chci nechat puvodni hodnotu
tak mam smulu i pri pouziti ESC. Jak na to


Diky
Vas HeiJu

P. S.

ComboBox ve WORDu funguje - OK ENTER- nastaveni , ESC - navrat na puvodni
hodnotu.

MDI problem

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 09.9.1998 12:42:20

Dne Tue, 08 Sep 1998 13:43:35 +0200 Tomko_Vincent napsal:

> 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.
U ty tvoji MDI formy nastav
WindowState na wsMaximized
> 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.
With ActiveMDIChild As (tvoje trida) do
Minimize;
Next;
With ActiveMDIChild As (tvoje trida) do
Maximize;
{Asi by to slo i elegantnejc)
> 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.
kdyz to okno vytvaris, priradis ho do promenny napr. Okno1, pri zavreni
okna nastavis Okno1 na NIL
potom po stisknuti toho cudliku:
if Okno1=nil then VytvorOkno else With ActiveMDIChild as (tvoje
trida) do Maximize;
kde VytvorOkno je tvoje procedura, ve ktery to okno vyvtoris
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772


Aktivace okna

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 09.9.1998 12:42:17

Delfini, next problem:
Mam MDI aplikaci a obcas otevre jinej dialogovej form pres ShowModal. Po
zavreni tohoto dial. formu se mi ale hlavni aplikace neaktivuje, musim
do ni kliknout.
Metody jako Form1.Activate(self) ani MDIChild1.Activate(self) nepomaha.
Vono to bude tusim nejaky hodne primitivni, ale zatim me nic nenapada
(zkousel jsem i PostMessage, ale neuspesne);
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772


Pdox tabulky na CD-ROM

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 9.9.1998 13:07:20


>Ahojda 2.,
Nazdarek (taky dve)

>Ovsem na RO mediu to nepotrebujes,
>protoze tu tabulku si proste nezeditujes :-).
Diky, ze jsi mne osvitil :-)))
Jsem rad, ze Ti to funguje, jenom mne zarazilo,
ze se BDE do toho LCK nepokousi neco zapsat.

>Nevim ale, co by to udelalo, kdyz bys chtel
>mit tabulku otevrenou exluzivne
No prave....

... coz je ofsem nesmysl.
Proc 20
D.{---------------------}
PS: Gdo neveri, at tam bezi ...
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com


Dobromil Mal� wrote:

> >Ahojda,
> Tepicky,
>
> >PS2: Puvodne jsem chtel soubor poslat do konference (200KB), ale .....
> A proc ne ?

[chaosz] Protoc !

>
> >(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.

InterbaseProLinuch

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.9.1998 13:21:51

Hi,

to ja nemohu posoudit, prozatim nevim, co si mam predstavit (moznosti)
pod nazvem RH 4.2 nebo 5.0 nebo 5.1
Linux se teprve chystam otestovat, cekam na uvolneni nejake masiny
(koupi se nova a ta stara {386} mi zustane pro testy Linuxu) - doufam ze
na takove konfiguraci neco otestuju (krome rychlosti :-) samozrejme.


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: Prantl Zden�k [SMTP:Zdenek.Prantl(zv)pvt(tec)cz]
> Odesl�no: 09. z��� 1998 8:32
> Komu: DELPHI Distribution List
> P�edm�t: RE: InterbaseProLinuch
>
> > -----Original Message-----
> > From: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> > Sent: Tuesday, September 08, 1998 11:56 AM
> > Subject: RE: InterbaseProLinuch
> >
> > Hi,
> >
> > bylo by dobre uvest PRESNE, co je treba udelat pro rozchozeni IB na
> > Linuxu 5. Ujme se toho nekdo?
>
> Klidne.
> Nemusel jsem udela vubec nic mimoradneho (BTW uz jsem to tady psal).
> Nainstaloval jsem RedHat 5.1. Na to jsem normalne pustil instalaci IB
> 4.0.
> Pres backup databaze jsem si pretahl databazi z PC na RedHat. A
> vsechno
> zatim chodi tak jak ma.
> Nevim jak je to s RedHatem 5.0, ale na 5.1 chodi vse bez mimoradnych
> zasahu.
>
> ZdeP.

HTTPS komponenta ?

[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 9.9.1998 13:37:39

Zdravim vsechny,

mam dotaz : nevite prosim nekdo nahodou kde bych
sehnal HTTPS komponentu s podporou nastaveni
proxy serveru ?

Dekuji mnohokrat za vsechny informace.

S pozdravem Petr Vales


Zobrazenie formulara v ExitProc

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 9.9.1998 13:37:10


No vzdyt o to jde. Ten clovek jen reagoval na jiny mail a pise mu, ze to zkousel
a funguje to a pta se ho tedy "V cem je problem ?".

----------
Od: Petr Zahradnik[SMTP:clexpert(zv)clexpert(tec)cz]
Odesl�no: 8. 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 ===
==============================================================

Zjisteni ceskych windows

[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 9.9.1998 13:41:16

Prestoze jsem se dival jak do helpu tak do knih win32 API tak z funkce
GetLocaleInfo nejsem moudry.
Mohl bych poprosit o doplneni do zdrojaku:

function JeCestina:Boolean;
begin
result:=
end;

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: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 9. z��� 1998 7:58
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Zjisteni ceskych windows
>
> Zdenek Petruj wrote:
>
> > 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.
>
> GetLocaleInfo. Prvni parametr dej 0.
>
>
> 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


Ikona v taskbaru vedle hodin

[*] Lubos Jerabek <lubos(zv)qed(tec)cz> - 9.9.1998 14:09:23

Mam tvoji komponentu jse uzasna skvela a asi nelepsi co jsem kde nasel,
mam ale jeden problem. Protoze jsem baltlir a ne programator muzes mi
poradit jak se da zobrazit formular pote co ho minimalizuji kdyz je
nastaven TaskHide:=True ?

Dikes za componentu a za radu.

Lubos Jerabek "Bastlir Li"

Encryptace data

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.1998 15:15:50

> Ale ja preci nikde netvrdim, ze se takto ma zapisovat a pouzivat =
> uzivatelske heslo !!!
> Puvodni dotaz znel, cituji "Kratce receno encryptovat a zper =
> deencryptovat data z databazove tabulky.".
> Vsimnete si prosim - A ZPET DEENCRYPTOVAT!=20

Dotaz znel, jak zakodovat a rozkodovat pole tabulky v Interbase,
na to jsem odpovedel, ze kazdy normalni SQL server umi sam
databazi zakodovat bez nutnosti neco kodovat v programu,
a ze umi posilat po siti zakodovane pakety. Dalsi veta znela
"napriklad heslo" a k tomu jsem dodal delsi odstavec, jak se
to s hesly dela u profiku.

> Moje odpoved neni tak uplne "out" jak pisete. Predstavte si napr. =
> Anglicko-Cesky slovnik.
> Mam program a tabulku, kde je vzdy anglicky a cesky vyraz. Data =
> samozrejme zasifruji, aby
> mi je nikdo nemohl vzit a pouzit ve sve vlastni aplikaci. Takova data =
> musim byt schopen
> samozrejme zpet deencryptovat.

Ano, to je pravda a to beru. Ale takovy slovnik nepobezi na serveru
Interbase, kde znela otazka. Jinak co se zrovna tohoto pripadu tyka,
to je dost kriticka zalezitost. Pokud bude zakodovany slovnik, resp.
kazde slovo zvlast, nejakou jednoduchou metodou (monoalfabeticka
sifra, tedy treba transpozice, substituce), je to pomerne snadno
rozkodovatelne, pokud znam nekolik stovek nebo dokonce tisic ceskych
vyrazu a k tomu anglickych vyrazu, pak jsem schopen to rozkodovat.
Tedy ja ne, nejsem odbornik na sifrovani.

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 ===
==============================================================

Komponenta TEdit

[*] Martin �mol�k <wato(zv)login(tec)cz> - 9.9.1998 15:42:23

Pordi mi nekdo, jak upravit komponentu TEdit (Delphi 3) tak, aby poznala, ze je npsane cislo a zkontrolovala, je-li v zadanych mezich?. Zkousel jsem pridat vlastnosti Min a Max a zadany retezec kontrolovat po konverzi v okamziku opusteni (upravenim procedury OnExit), ale nejak se mi to nedari. Diky.

TRichEdit a wm_Paste nefunguje

[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 9.9.1998 15:51:54


Pokud se nepletu, funguje EM PASTE

-----P�vodn� zpr�va-----
Od: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
Odesl�no: 9. z��� 1998 9:45
Komu: DELPHI Distribution List; DELPHI Distribution List
P�edm�t: TRichEdit a wm Paste nefunguje

<<Soubor: ATT00000.txt; charset = Windows-1250>>

Komunikacia so PSION-om s3a

[*] Pavel Koutn� <koutny(zv)tkcmt.sk> - 9.9.1998 16:05:49

Zdravim vsetkych dephinov,

mam nasledujuci problem: Mam vytvorenu aplikaciu pracujucu pod Win98/95/NT, jedna so o program ktory spracovava data, vyhodnocuje ich, robi statistiku, grafy a pod. Data sa zadavaju rucne. To je vsetko v poriadku. Na pocitaci PSION s3a mam vytvorenu akusi Lite verziu tohoto programu, ktora sluzi na zber udajov u zakaznikov, je to predsa len jednoduchsie, ako behat s notebook-om, cakat kym nabehne windows (no notebook moze byt aj uspaty, to je pravda), alebo to pisat rucne na papier a potom to prepisovat. Subory takto vytvorene v PSION-e nie je problem preniest cez program PSIWIN do Windows, tam si to ulozit, prekonvertovat do ineho datoveho formatu alebo nieco podobne, no ja by som potreboval tieto subory presuvat, do svojeho programu priamo cez neho, nieco v style 'Import dat z PSION-u', kde by uzivatel iba klikol mysou a nemusel by sa ucit ovladat dalsie programy a komplikovat si pracu, PSION komunikuje s PC pomocou 3LINK (RS232 rozhranie), ktore je pripojene na COM1 (alebo !
COM2 to je jedno), no a ja by som potreboval nejako komunikovat so PSION-om, predajca PSION-u mi pomoct moc nevie v tomto smere, takze ak sa s tym niekto uz zaoberal, tak prosim o pomoc, diki moc.

Pavel


Encryptace data

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.1998 16:23:56

> 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 ?

Hash je oznaceni skupiny algoritmu, MD5 je oznaceni jednoho
konkretniho hashovaciho algoritmu. V Delphi pro to nejsou
zadne funkce, zrovna jako nejsou napriklad pro CRC apod.

Co se tyka popisu techto algoritmu, to neporadim, protoze
pouzivam jiz hotove, ale zkus prohledat Internet, nekde by
o tom urcite mel byt nejaky pokec, je to standard.

Co se tyka konkretnich funkci/komponent, pak se zkus podivat
na nejake servery k Delphi, zda je neco free, protoze ja
na to pouzivam komercni knihovnu OnGuard, kde to je jiz
udelane. Co jsem se dival do zdrojaku, zase az tak slozite
to neni, takze pokud si sezenes nekde dokumentaci k MD5,
dalo by se to udelat.


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 ===
==============================================================

CMOS

[*] Ales Bukovsky <elidisp(zv)mbox.vol(tec)cz> - 09.9.1998 16:24:22

Petr Vale� wrote:
> nevite nekdo kde sehnat mapu CMOSky a jak je mozne z ni cist ???
> dekuji za vsechny odpovedi.

Nekde mam zdrojak programu na oliznuti cmosky. Zkusim to najit... :)
-Ales-


<none>

[*] danko(zv)ns.basl.sk - 9.9.1998 17:26:02

V Delphi 1 som na asynchr. kominikaciu cez RS232 pouzil freewarovu komponentu
TComm. Pred zapisom retazca na port som pouzil EscapeCommFunction (port,
CLRDTR). Po zapise posledneho znaku do vystupneho buffra (OnTxEmpty) som nastavil
DTR cez SETDTR.Po prijati retazca zariadenie vratilo odpoved a ja som ju precital v
udalosti OnReceiveData.
Problem je v tom, ze v Win32 doslo k radikalnej zmene pri I/O komunikaciach.
Samozrejme ani komponenta TComm nefunguje. Nasiel som na Internete niekolko
dalsich freewareovych. No ako z uvodu vyplyva nutne potrebujem udalosti OnTxEmpty a
OnReceiveData a ziadna z nich mi ich neposkytovala (TCommDriver32 ...<vedel som
poslat poziadavku ale nevedel som prijat odpoved, lebo som nevedel, kedy je posledny
znak zapisany a teda som nevedel nastavit SETDTR cez TCommPort.ToggleDTR(true)).
Jedina komponenta, ktora by vcelku vyhovovala je Async32, no tu neviem nadviazat
komunikaciu ani so zariadenim (z mojej strany). Urcite niekde robim chybu ale sam si s
nou neviem poradit, takze ak by niekto mohol pomoct navodom (najlepsie fragmentom
kodu) alebo informaciou o nejakej freewarovej komponente vopred mu dakujem.

P.S.: Zariadenie, s ktorym komunikujem je snimac magnetickych kariet od firmy Linear
Industies. Z RS232 sa signal konvertuje RS-485 konvertorom a posiela zariadeniu. Po
poslani spravy zariadeniu, zariadenie na nu zareaguje a potvrdi prijatie specialnym
retazcom ktory mi posle naspat (dopyt-odpoved).

referencie

[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 09.9.1998 17:37:41

Cau

nie som si dvakrat isty, ci to naozaj funguje aj pomocou Master/Detail
spojenia...

obycajne sa kaskadny delete (lebo o ten zrejme ide)
robi pomocou triggerov (podporuju asi vsetky (SQL) databazy )
alebo Foreign Keys, ktore su definovane ako CASCADE - na databaze Oracle
(viacej informacii najdes v helpoch okolo hesla referential integrity
(maintaining))

!!horeuvedene plati len pre databazy na sql serveroch t.j. nie pre Paradox,
Dbase apd.

pri tych sa to zrejme inak neda, len to mazat rucne z aplikacie
t.j. vyplnit AfterDelete event a v nom zmazat zavisle zaznamy v nizsich
(Detail)
tabulkach

-ak chces robit silne databazovu aplikaciu, tak lepsia je asi Interbase (local
client
v ramci Delphi)

--
Maj sa,
R.

ComboBox

[*] Daniel SICHTA <Sichta(zv)asset.sk> - 9.9.1998 18:33:16

Zdravim DELFINOV

Otazka
Mam v premennej (string) nejaky text a ten chcem dostat do ComboBox-u
ale tak jako keby som ho uz aj vybral !!!!
Dakujem vopred za rady
Ing.Daniel �ichta, ASSET s.r.o.
Rosinsk� 8, 011 05 �ilina, SLOVAKIA
0421-89-542-15
sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>

Kryptovaci mechanismy

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 9.9.1998 18:34:48


Slava, konecne jsem to nasel, koho tedy zajima RSA,
transformacni fce (hash), ... tak vezte, ze je to tady

http://www.fee.vutbr(tec)cz/~cvrcek/diplomka/mechanismy.html

Tomu cloveku budiz me diky

D.

Delphi 4

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.9.1998 20:12:21

Vojtech Semecky wrote:
>
> Chtel bych se zeptat na par veci nekoho, kdo uz ma Delphi 4 :
>
> 1) TSaveDialog v D3 nebyl schopen vracet nazvy souboru s delsi nez
> tri pismennou koncovkou. Pri cteni z FileName je to orizlo.
> (napr. html -> htm, jpeg -> jpe). Je toto v D4 opraveno ?

Tohle neni ani tak problem Delphi jako Win32. V helpu u funkce GetSaveFileName
je ve strukture OPENFILENAME o tom tohle:

lpstrDefExt
(...) This string can be any length, but only the first three characters are
appended. The string should not contain a period (...)

Je zde ale moznost ze by to slo opravit primo ve VCL, nicmene v D4 to funguje
stejne jako v predchozich verzich.

> 2) Podporuji ty nove toolbary uzivatelskou definici rozlozeni tlacitek ?
Nevim presne co mas namysli temi novymi toolbary, ale pokud ti jde o to jestli
je tam primo nejaka podpora uzivatelskeho vyberu buttonu v toolbaru tak jako to
mas treba v Delphi prostredi, tak nic takoveho tam neni (nebo jsem to jeste
neobjevil :-)

--
Petr Vones, amatersky programator

Komponenta TEdit

[*] heinisch(zv)post(tec)cz - 9.9.1998 20:51:10

u techto komponent dopurucil bych prejit na komponenty od firmy SINEA jsou
free se zdrojem
ke stahnuti na http://www.sinea(tec)cz

Ahoj HeiJu
-----P�vodn� zpr�va-----
Od: Martin �mol�k <wato(zv)login(tec)cz>
Komu: konference Delphi <delphi(zv)pinknet(tec)cz>
Datum: 9. z��� 1998 16:42
P�edm�t: Komponenta TEdit


>Pordi mi nekdo, jak upravit komponentu TEdit (Delphi 3) tak, aby poznala,
ze je npsane cislo a zkontrolovala, je-li v zadanych mezich?. Zkousel jsem
pridat vlastnosti Min a Max a zadany retezec kontrolovat po konverzi v
okamziku opusteni (upravenim procedury OnExit), ale nejak se mi to nedari.
Diky.
>

Prosba

[*] heinisch(zv)post(tec)cz - 9.9.1998 20:53:30

pro delphi je pro tisk tabulek knihovna Sestavy
ke stahnuti na http://www.sinea(tec)cz

pokud nebudes vedet tak mi napis zkusim poradit dal.

Ahoj HeiJu

heinisch(zv)post.(tec)cz


-----P�vodn� zpr�va-----
Od: Filip Hlad�k <filip.hladik(zv)post(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 9. z��� 1998 2:00
P�edm�t: Prosba


>Zdravim Vas,
>
> prosim poradi mi nekdo nejakou free komponentu pro tisk tabulek
>v D1 (W 3.11).
>
> Dekuji
>
> Filip Hladik
> filip.hladik(zv)post(tec)cz
>

Zruseni indexu v DBF

[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 9.9.1998 21:07:59

Zdravim vsechny,
Nedavno tu byla diskuse na tema vytvoreni indexu
u databazi DBF pomoci Table.AddIndex.
To funguje dobre, vytvori se indexni soubor *.MDX
a do databaze se zapise propojeni.
Problem nastane v pripade smazani tohoto indexniho
souboru. Potom ho nelze znovu vytvorit, dokud neni
zruseno ono propojeni.
Nevite jak ho zrusit primo z aplikace?
Diky za radu

Standa C.

Komponenta TEdit

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.9.1998 21:11:34

Martin �mol�k wrote:
>
> Pordi mi nekdo, jak upravit komponentu TEdit (Delphi 3) tak, aby poznala, ze je npsane cislo a zkontrolovala, je-li v zadanych mezich?. Zkousel jsem pridat vlastnosti Min a Max a zadany retezec kontrolovat po konverzi v okamziku opusteni (upravenim procedury OnExit), ale nejak se mi to nedari. Diky.

Ahoj,

mohlo by to jit treba takhle, ale ber to spis jako inspiraci ....

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TNumberEdit = class(TEdit)
private
FMin: Extended;
FMax: Extended;
protected
procedure DoExit; override;
public
constructor Create(AOwner: TComponent); override;
published
property Min: Extended read FMin write FMin;
property Max: Extended read FMax write FMax;
end;

TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
NumberEdit: TNumberEdit;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TNumberEdit }

constructor TNumberEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMin := 0;
FMax := 0;
end;

procedure TNumberEdit.DoExit;
var
Number: Extended;
begin
inherited;
try
Number := StrToFloat(Trim(Text));
if (Number < FMin) or (Number > FMax) then
begin
Application.MessageBox(PChar(Format('��slo mus� b�t v rozsahu od %g do %g',
[FMin, FMax])), 'Chyba', MB_ICONERROR);
SetFocus;
end;
except
on EConvertError do
begin
Application.MessageBox('Nen� zadan� ��slo', 'Chyba', MB_ICONERROR);
SetFocus;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
NumberEdit := TNumberEdit.Create(Self);
with NumberEdit do
begin
Parent := Self;
Left := 50;
Top := 50;
Min := 3.5;
Max := 100;
end;
end;

end.

--
Petr Vones, amatersky programator

Soubor - vytvoreni a zapis do nej

[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 9.9.1998 21:20:27

Ahoj,
ja pouzivam tento zpusob:

procedure TForm1.FormCreate(Sender: TObject);

var
Status : Integer;
IniFile := TIniFile;

begin
IniFile := TIniFile.Create ('BlaBla.ini');

{zkus p�e��st hodnotu a vyzkou�ej zda existuje}
Status := IniFile.ReadInteger ('Sekce','Status', 0);
if Status <> 0 then
begin
{p�e�ti hodnoty pou�ij jako implicitn�}
end else
Begin
IniFile.WriteInteger ('Sekce','Status', 1);
{Zapsat dalsi hodnoty)
end;
-----P�vodn� zpr�va-----
Od: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 9. z��� 1998 20:32
P�edm�t: Soubor - vytvoreni a zapis do nej


>
>Ahoj,
>
>setkal jste se prosim nekdo s nasledujicim probleme ?
>
>Delam asi toto:
>1) test na existenci INI souboru, neexistuje-li, vytvorim ho
>2) jestlize v INI souboru nejsou zadne vety, zapisi je tam
>
>function Pokus: Integer
>var
> PokusIni: TIniFile; ListStr: TStringList;
>begin
> try
> // Test na existenci souboru, neexistuje-li, vitvorim ho
> if (FileExists('C:\Pokus\pokus.ini') = False) then
>FileCreate('C:\Pokus\pokus.ini');
>
> PokusIni := TIniFile.Create('C:\Pokus\pokus.ini');
> ListStr := TStringList.Create;
> PokusIni.ReadSections(ListStr);
>
> // Test na pocet sekci v ini souboru, nejsou-li, zapsat
> if (ListStr.Count = 0) then PokusIni.ReadString('POKUS','SLOVO','');
>
> TADY MI TO PRAVE PADA. NEMUZE ZAPSAT DO SOUBORU:
> "Unable to write to C:\Pokus\Pokus.ini". ...
>
> ListStr.Free;
> PokusIni.Free;
> except
> end;
> Result := GetLastError;
>end;
>
>
>Vasek
>
>
>
>E-mail: Vaclav.Lukes(zv)pvt(tec)cz
>Tel.: 0603-511247
>
>

InterbaseProLinuch

[*] Prantl Zden�k <Zdenek.Prantl(zv)pvt(tec)cz> - 9.9.1998 21:29:06

> -----Original Message-----
> From: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Sent: Wednesday, September 09, 1998 1:22 PM
> Subject: RE: InterbaseProLinuch
>
> Hi,
>
> to ja nemohu posoudit, prozatim nevim, co si mam predstavit (moznosti)
> pod nazvem RH 4.2 nebo 5.0 nebo 5.1
> Linux se teprve chystam otestovat, cekam na uvolneni nejake masiny
> (koupi se nova a ta stara {386} mi zustane pro testy Linuxu) - doufam ze
> na takove konfiguraci neco otestuju (krome rychlosti :-) samozrejme.

Cim vyssi verze RH => tim novejsi baliky knihoven a ostatnich produktu.
Takze ti ubydou trochu starosti se zaplatovanim systemu.
No Interbase na 386 to bude asi sila, ja ji mam na 486DX50 se 16 MB RAM a ze
by se mohla pretrhnout rychlosti to nehrozi. Ostatne pokud jsem cetl
doporuceni tak pro Interbase na Linux je doporucovane min. Pentium 90 a 32
MB RAM.

ZdeP


QR 3.01 - dotaz

[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 9.9.1998 21:37:52

Nazdar,

Po instalaci patche QR 3.01 do D4, jak jiz tady bylo uvedeno,
zmizi DecisionCube a TeeChart. Jsem uplne tupej na operace
s komponentami, balicky, OCX, ActiveX, ...

Potreboval bych kucharku, jak ty komponenty dostat zpatky
do delphi.

Diky
S pozdravem Zdenek
---------------------------------------------------------------
: o__o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
: ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
---------------------------------------------------------------
This message was delivered using 100% recyclable electrons.

Zjisteni ceskych windows

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.9.1998 21:38:55

Zdenek Petruj wrote:
>
> Prestoze jsem se dival jak do helpu tak do knih win32 API tak z funkce
> GetLocaleInfo nejsem moudry.
> Mohl bych poprosit o doplneni do zdrojaku:

Ahoj,

jedna z moznosti by mohla vypadat nejak takhle:

function IsCzech: Boolean;
var
Lang: array[0..3] of Char;
begin
if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SABBREVLANGNAME, Lang, Sizeof(Lang)) > 0 then
Result := (Lang = 'CSY') else
Result := False;
end;

--
Petr Vones, amatersky programator

Aktivace okna

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.9.1998 21:41:35

Kolar Lubor wrote:
>
> Delfini, next problem:
> Mam MDI aplikaci a obcas otevre jinej dialogovej form pres ShowModal. Po
> zavreni tohoto dial. formu se mi ale hlavni aplikace neaktivuje, musim
> do ni kliknout.

Ahoj,

to je zvlastni, jestli jsem to dobre pochopil tak je to stejna situace jako
v MDI aplikaci z Object Repository kdyz tam das v menu Help|About ?

--
Petr Vones, amatersky programator

Soubor - vytvoreni a zapis do nej

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.9.1998 21:47:30

Lukes V�clav wrote:
>
> Ahoj,
>
> setkal jste se prosim nekdo s nasledujicim probleme ?
>
> Delam asi toto:
> 1) test na existenci INI souboru, neexistuje-li, vytvorim ho
> 2) jestlize v INI souboru nejsou zadne vety, zapisi je tam
>
> function Pokus: Integer
> var
> PokusIni: TIniFile; ListStr: TStringList;
> begin
> try
> // Test na existenci souboru, neexistuje-li, vitvorim ho
> if (FileExists('C:\Pokus\pokus.ini') = False) then
> FileCreate('C:\Pokus\pokus.ini');
>
> PokusIni := TIniFile.Create('C:\Pokus\pokus.ini');
> ListStr := TStringList.Create;
> PokusIni.ReadSections(ListStr);
>
> // Test na pocet sekci v ini souboru, nejsou-li, zapsat
> if (ListStr.Count = 0) then PokusIni.ReadString('POKUS','SLOVO','');
>
> TADY MI TO PRAVE PADA. NEMUZE ZAPSAT DO SOUBORU:
> "Unable to write to C:\Pokus\Pokus.ini". ...

Ahoj,

Nesmis ten soubor pred tim vytvaret pomoci FileCreate, TIniFile si vse
zaridi samo, ty uz pak pomoci neho jen ctes a zapisujes hodnoty.

--
Petr Vones, amatersky programator

Tabulky Pdox DOS vs. Win95

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.9.1998 21:51:44

Tomko_Vincent wrote:
>
> Zdravim Vas,
>
> Mam otazku, na ktoru som zatial nikde nenasiel odpoved.
>
> Ako Delphi pracuju s pdox tabulkami vytvorenymi a vyplnamymi pod DOSom(
> czech852).
> Je potrebna nejaka konverzia dat dos852 - win1252 ?. Budu sa mi korektne
> zobrazovat a ukladat znaky s diakritikou?
> Dakujem vopred za vsetky predchadzajuce rady a za nasledujuce.

Ahoj,

zadna konverze neni potrebna, musis mit v te tabulce akorat spravne nastaveno
Table Language (tedy Paradox Czech 852) a vse ostatni jiz zaridi Delphi....

--
Petr Vones, amatersky programator

Zjisteni ceskych windows

[*] heinisch(zv)post(tec)cz - 9.9.1998 21:52:27

**Podle prani **

function JeCestina:boolean;
var
textik: array[0..255] of Char;
begin
result:=false;
// LOCALE_ILANGUAGE idetifikator jazyka
GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_ILANGUAGE,textik,256);
// kodova stranka Czech = 0405
result:=textik='0405'
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if JeCestina then MessageDlg('je cestina', mtInformation,[mbOk], 0) else
MessageDlg('neni cestina', mtInformation,[mbOk], 0)
end;

Ahoj HeiJu

-----P�vodn� zpr�va-----
Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 9. z��� 1998 14:41
P�edm�t: RE: Zjisteni ceskych windows


>Prestoze jsem se dival jak do helpu tak do knih win32 API tak z funkce
>GetLocaleInfo nejsem moudry.
>Mohl bych poprosit o doplneni do zdrojaku:
>
>function JeCestina:Boolean;
>begin
> result:=
>end;
>
> 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: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
>> Odesl�no: 9. z��� 1998 7:58
>> Komu: delphi(zv)pinknet(tec)cz
>> P�edm�t: Re: Zjisteni ceskych windows
>>
>> Zdenek Petruj wrote:
>>
>> > 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.
>>
>> GetLocaleInfo. Prvni parametr dej 0.
>>
>>
>> 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
>

Tabulky Pdox DOS vs. Win95

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.9.1998 21:59:09

> Ako Delphi pracuju s pdox tabulkami vytvorenymi a vyplnamymi pod DOSom(
> czech852).
> Je potrebna nejaka konverzia dat dos852 - win1252 ?. Budu sa mi korektne
> zobrazovat a ukladat znaky s diakritikou?
> Dakujem vopred za vsetky predchadzajuce rady a za nasledujuce.

Podle toho, jestli v te Paradox tabulce je spravne nastaveno
kodovani. Je-li nastaveno kodovani 852 a data jsou take
v kodovani 852, pak se tomu Delphi prizpusobi a bude proste
prevadet data z a do 852 automaticky.

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 ===
==============================================================

Interbase

[*] Jaro <jaro(zv)sinea(tec)cz> - 9.9.1998 22:03:59

Nev�m, zda jsem t� dob�e pochopil. V�echny licence d�v� na server.
Activation license zadavas pri instalaci serveru a v�echny ostatni p�idav�
pomoc� modulu InterBase License Registration Tool. Tam se pak zobraz�
v�echny licence.
Jaro.

-----P�vodn� zpr�va-----
Od: Pavel Bare� <atoll(zv)telecom(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 18:17
P�edm�t: Re: Interbase


>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
>
>
>

HELP --- HELP

[*] Petr Provazn�k <amcom(zv)grendel(tec)cz> - 9.9.1998 22:16:11

Nazdar lidi,

prosim o radu ... marne se snazim nacist data s externiho zarizeni pres
seriovy port (COM2) ...
Mam nejakou komponentu QCComm32, ale nejak jsem nedosel k prijatelnemu
reseni
...

Help, je to docela nutne ...

Dik Petr


Prosba

[*] Jaro <jaro(zv)sinea(tec)cz> - 9.9.1998 22:33:11

Muzes si stahnout nasi knihovnu znaseho serveru www.sinea(tec)cz
Pro D1 a D2 je to zcela zadarmo. Je tam kompletni dokumentace a help.
Priklady funguji bohuzel pouze pro D3 a D4.
Jaro.

---

>Zdravim Vas,
>
> prosim poradi mi nekdo nejakou free komponentu pro tisk tabulek
>v D1 (W 3.11).
>
> Dekuji
>
> Filip Hladik
> filip.hladik(zv)post(tec)cz

Tvorba helpu

[*] Jaro <jaro(zv)sinea(tec)cz> - 9.9.1998 22:33:45

Co ta nova verze stoj�?
Jaro


> 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

ForeHelp je spickovy program pro tvorbu help souboru, ktery mam
napriklad ja zakoupeny v nejnovejsi verzi 3.0. Pokud byl nejak
limitovan, tak jsi asi pouzival nejakou demoverzi...

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 ===
==============================================================

Farby v TRichEdit pripadne TMemo

[*] moscovic <moscovic(zv)fred.utc.sk> - 9.9.1998 22:44:30

Zdar seci,

potrebujem spravit nieco ako textovy editor, ktory by podla obsahu menil
farbu casti napisaneho textu. Napriklad (upozornujem je to sprosty priklad)
ked uzivatel napise "red" aby dany text zmenil farbu na cervenu atd. Kedze
TMemo nepozna farby (teda nic o tom neviem) rozhodol som sa pouzit
TRichEdit... Ma sice naviac aj nastavenie velkosti pisma atd. ale farby
pozna.

Zial neviem pristupovat k attributom textu inac ako SelAttributes, co zacalo
byt nepouzitelne, pretoze ked pouzijem SelAttributes tak to blika ako keby
to za to platili...

Takze moja otazka: Da sa pristupovat k attributom textu pristupovat aj inac
ako cez SelAttributes, prip. ako si upravit inu komponentu (napr. TMemo) tak
aby sa spravala tak ako si ja predstavujem.

Vopred vdaka za vsetky napady.

Vas verny Salmon Salmonovic


Tvorba helpu

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.9.1998 00:30:35

> Co ta nova verze stoj�?

Viz. soukromy mail.

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 ===
==============================================================

Aktivace okna

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 10.9.1998 00:45:48

Dne Wed, 09 Sep 1998 21:41:35 +0200 Petr Vones napsal:

> Kolar Lubor wrote:
> >
> > Delfini, next problem:
> > Mam MDI aplikaci a obcas otevre jinej dialogovej form pres ShowModal. Po
> > zavreni tohoto dial. formu se mi ale hlavni aplikace neaktivuje, musim
> > do ni kliknout.
>
> Ahoj,
>
> to je zvlastni, jestli jsem to dobre pochopil tak je to stejna situace jako
> v MDI aplikaci z Object Repository kdyz tam das v menu Help|About ?
No, zhruba tak, zjistil jsem, ze mi to dela i pro form.Show (ten modal
tam neni nutnej), nicmene oboje se vola z threadu jineho nez je hlavni
aplikacni thread. Jak poslu oknu zpravu tak, aby se aktivovalo? To preci
nejak jit musi.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772


Soubor - vytvoreni a zapis do nej

[*] Ing.Ludek Florian <ludan(zv)bluerose(tec)cz> - 10.9.1998 00:54:52

Cauec,

>setkal jste se prosim nekdo s nasledujicim probleme ?
>
>Delam asi toto:
>1) test na existenci INI souboru, neexistuje-li, vytvorim ho
>2) jestlize v INI souboru nejsou zadne vety, zapisi je tam
>
>function Pokus: Integer
>var
> PokusIni: TIniFile; ListStr: TStringList;
>begin
> try
> // Test na existenci souboru, neexistuje-li, vitvorim ho

^^^^^^^^ - pise se vYtvorim s tvrdym Y

> if (FileExists('C:\Pokus\pokus.ini') = False) then
>FileCreate('C:\Pokus\pokus.ini');
Tyhle dva radky vypust...>
> PokusIni := TIniFile.Create('C:\Pokus\pokus.ini');
> ListStr := TStringList.Create;
> PokusIni.ReadSections(ListStr);
>
> // Test na pocet sekci v ini souboru, nejsou-li, zapsat
> if (ListStr.Count = 0) then PokusIni.ReadString('POKUS','SLOVO','');
>
> TADY MI TO PRAVE PADA. NEMUZE ZAPSAT DO SOUBORU:
> "Unable to write to C:\Pokus\Pokus.ini". ...
Ted uz to bude OK

>
> ListStr.Free;
> PokusIni.Free;
> except
> end;
> Result := GetLastError;
>end;
>


Bye Ludan

ludan(zv)bluerose(tec)cz

Aktivace okna

[*] Jan Fiala <fiala(zv)iname(tec)com> - 10.9.1998 05:47:55

Posli kousek programu s aktivaci toho dialogoveho formu

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

Delfini, next problem:
Mam MDI aplikaci a obcas otevre jinej dialogovej form pres ShowModal. Po
zavreni tohoto dial. formu se mi ale hlavni aplikace neaktivuje, musim
do ni kliknout.
Metody jako Form1.Activate(self) ani MDIChild1.Activate(self) nepomaha.
Vono to bude tusim nejaky hodne primitivni, ale zatim me nic nenapada
(zkousel jsem i PostMessage, ale neuspesne);
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772


ComboBox

[*] Jan Fiala <fiala(zv)iname(tec)com> - 10.9.1998 06:00:05

ComboBox ma vlastnost ItemIndex. Pokud ji nastavis, na odpovidajici polozku,zobrazi se ti i jako vybrana (cislovani je od 0)

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

Otazka
Mam v premennej (string) nejaky text a ten chcem dostat do ComboBox-u
ale tak jako keby som ho uz aj vybral !!!!
Dakujem vopred za rady
Ing.Daniel �ichta, ASSET s.r.o.
Rosinsk� 8, 011 05 �ilina, SLOVAKIA
0421-89-542-15
sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>

Combobox - vyber

[*] Jan Fiala <fiala(zv)iname(tec)com> - 10.9.1998 06:04:10

Pri OnEnter comboboxu si uloz puvodni hodnotu a testuj klavesy napr. OnKeyDown, OnKeyPress. Pokud stisknes escape, vrat tam puvodni hodnotu.

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

Pri pouzivani Comboboxu i jeho Db variante se pomoci kurz. klaves
pohybuji po nabizenych polozkach. V pripade ze chci nechat puvodni hodnotu
tak mam smulu i pri pouziti ESC. Jak na to


Diky
Vas HeiJu

P. S.

ComboBox ve WORDu funguje - OK ENTER- nastaveni , ESC - navrat na puvodni
hodnotu.


Cestina ve Win NT

[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 10.9.1998 06:25:56

Musis nastavit ve Font property Charset na EASTEUROPE_CHARSET, nikoli
DEFAULT_CHARSET, protoze NT jsou od Microsoftu a i kdyz je mas cesky, tak
DEFAULT neni EASTEUROPE (co si budeme o Microsoftu povidat, ze ?).

Abys na to nemusel myslet, nastav si to jako vychozi vlastnost formulare,
ktery si dej do Repository a nastav si ho jako vychozi.

V Delphi 1 musis nastavit Arial CE, ale v NT Ti to stejne nebude chodit,
pokud budes mit Service Pack 3 a Servis Pack na Office 97 ;-)

S pozdravem

Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>

>
> mam problem. Program v Delphi 2 zkompilovany ve Win95 chodi ve Win 95
dobre. Ve Win NT Workstaion 4.0 se ale spatne zobrazuji ceske pismena (v
labelech atd). Pouzivam font Arial. Da se to nekte v NT nastavit nebo se
musi nainstalovat spravny cesky font?

Nahrazeni prikazu D1 na D3

[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 10.9.1998 06:32:43

> Dobry den
> Nevite nekdo jakymi procedurami v D3 se nahradi tyto procedury y D1
>
> GetFreeSystemResources(GFSR_GDIResources);
> GetFreeSystemResources(GFSR_SystemResources);
> GetFreeSystemResources(GFSR_UserResources);
>

POZOR !!! Nefunguje to pod NT !!!! Kernel32 pod NT neobsahuje QT_THUNK... :-(

unit FreeResources;

{ Get free system resources in Windows 95.
For reasons unknown outside of Microsoft, the Win32 API
does not define the GetFreeSystemResources function.
The only way to get this information is to call a 16-bit
function in USER.EXE. You can try messing around with thunking,
but there's an easier way in Windows 95. (I don't know how
to do this in NT, though.)

This information comes from "Windows 95 System Programming Secrets"
by Matt Pietrek.

This unit provides the GetFreeSystemResources function
for Windows 95. See the Windows 3.1 API documentation
to learn more about this function.

Copyright ? 1996 Tempest Software

You may use this software as part of an application program
without fee or royalty. Use this software at your own risk.
As free software, it is offered without guarantee.
}

interface

const
Gfsr_SystemResources = 0;
Gfsr_GdiResources = 1;
Gfsr_UserResources = 2;

function GetFreeSystemResources(SysResource: Word): Word;

implementation

uses SysUtils, Windows;

{ Undocumented Kernel32 calls. }
function LoadLibrary16(LibraryName: PChar): THandle; stdcall; external kernel32 index 35;
procedure FreeLibrary16(HInstance: THandle); stdcall; external kernel32 index 36;
function GetProcAddress16(Hinstance: THandle; ProcName: PChar): Pointer; stdcall; external kernel32 index 37;
procedure QT_Thunk; cdecl; external kernel32 name 'QT_Thunk';

{ Use global variables, so QT_Thunk does not trash them. }
var
hInst16: THandle;
GFSR: Pointer;

{ QT_Thunk needs a stack frame. }
{$StackFrames On}

{ Thunking call to 16-bit USER.EXE. The ThunkTrash argument
allocates space on the stack for QT_Thunk. }
function GetFreeSystemResources(SysResource: Word): Word;
var
ThunkTrash: array[0..$20] of Word;
begin
{ Prevent the optimizer from getting rid of ThunkTrash. }
ThunkTrash[0] := hInst16;

hInst16 := LoadLibrary16('user.exe');
if hInst16 < 32 then
raise Exception.Create('Cannot load USER.EXE');

{ Decrement the usage count. This doesn't really free the
library, since USER.EXE is always loaded. }
FreeLibrary16(hInst16);

{ Get the function pointer for the 16-bit function in USER.EXE. }
GFSR := GetProcAddress16(hInst16, 'GetFreeSystemResources');
if GFSR = nil then
raise Exception.Create('Cannot get address of GetFreeSystemResources');

{ Thunk down to USER.EXE. }
asm
push SysResource { push arguments }
mov edx, GFSR { load 16-bit procedure pointer }
call QT_Thunk { call thunk }
mov Result, ax { save the result }
end;
end;

end.

QR 3.01 - dotaz

[*] Jan Fiala <fiala(zv)iname(tec)com> - 10.9.1998 06:36:05

Postup :
Component / Install packages / Add
tam si vyberes balicek, ktery potrebujes. Pro Tee chart je to napr. DCLTEE40.BPL
a to je vse

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

Po instalaci patche QR 3.01 do D4, jak jiz tady bylo uvedeno,
zmizi DecisionCube a TeeChart. Jsem uplne tupej na operace
s komponentami, balicky, OCX, ActiveX, ...

Potreboval bych kucharku, jak ty komponenty dostat zpatky
do delphi.

Diky
S pozdravem Zdenek
---------------------------------------------------------------
: o o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
: ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
---------------------------------------------------------------
This message was delivered using 100% recyclable electrons.

Nulova hodnota Date

[*] Petr Posp�il - 10.9.1998 06:43:47

Zdravim vsechny !
Chtel jsem pouzit komponentu TDateTimePicker pro zadavani datumu do
database,ale s moznosti uzivatelsky nezadavat zadne datum. A tady jsem
narazil,protoze tato komponenta uz pri vytvoreni
ve formulari okamzite nastavuje platnou hodnotu.Kdyz nezadam ve vlastnosti
Date hodnotu ,tak se mi automaticky zapise hodnota
"31.12.1889" , nebo nejak tak.
Vedel by nekdo , jak aplikovat v teto komponente nulovou hodnotu?

Predem diky !

Petr Pospisil
SPT Telecom Sumperk


ComboBox

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 10.9.1998 06:50:37

> Mam v premennej (string) nejaky text a ten chcem dostat do ComboBox-u
> ale tak jako keby som ho uz aj vybral !!!!

Nazdar,

da sa to urobit takto:

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add('nejaky text');
ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;
ComboBox1.SetFocus;
end;

Marek Repisky
mrepisky_zl(zv)zsnp.sk


Zruseni indexu v DBF

[*] Jan Fiala <fiala(zv)iname(tec)com> - 10.9.1998 07:00:42

Vyzkousej Tabulka.IndexDefs.Clear (pokud jem pochopil, chces zrusit MDX, coz jsou vsechny indexy). Pokud to nepomuze, budes se muset obratit napr. k API funkci BDE DBIDoRestrukture


S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

Zdravim vsechny,
Nedavno tu byla diskuse na tema vytvoreni indexu
u databazi DBF pomoci Table.AddIndex.
To funguje dobre, vytvori se indexni soubor *.MDX
a do databaze se zapise propojeni.
Problem nastane v pripade smazani tohoto indexniho
souboru. Potom ho nelze znovu vytvorit, dokud neni
zruseno ono propojeni.
Nevite jak ho zrusit primo z aplikace?
Diky za radu

Standa C.

Zobrazenie formulara v ExitProc

[*] Jan Fiala <fiala(zv)iname(tec)com> - 10.9.1998 07:02:07

Dekuji ti nacelniku, ze jsi se mne zastal

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

-----Original Message-----
From: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>


No vzdyt o to jde. Ten clovek jen reagoval na jiny mail a pise mu, ze to zkousel
a funguje to a pta se ho tedy "V cem je problem ?".

----------
Od: Petr Zahradnik[SMTP:clexpert(zv)clexpert(tec)cz]

> 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

Interbase

[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 10.9.1998 07:30:41

Ani kdyz zadam vsechny licenece tak to nepomuze.
Proc to ale nechodi ani jako eval. to by p�ece taky melo ?

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: 10. z��� 1998 1:13
P�edm�t: Re: Interbase


Nev�m, zda jsem t� dob�e pochopil. V�echny licence d�v� na server.
Activation license zadavas pri instalaci serveru a v�echny ostatni p�idav�
pomoc� modulu InterBase License Registration Tool. Tam se pak zobraz�
v�echny licence.
Jaro.

-----P�vodn� zpr�va-----
Od: Pavel Bare� <atoll(zv)telecom(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 18:17
P�edm�t: Re: Interbase


>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
>
>
>

referencie

[*] Martin Talian <talian(zv)geoplanpp.sk> - 10.9.1998 07:52:17



>Hi,
>
>je potreba vyuzit referencni integrity, kdy se da tohle nadefinovat
>primo do vlastnosti tabulky, podivej se na to v helpu.

Kde ? V delphi, alebo v database desktope ?

>K tem druhum
>tabulek mohu rict jen to, ze vim o tom, ze to funguje na typu Paradox.
>Ostatni jsem nemel potrebu zkouset.
>
>
>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: Martin Talian [SMTP:talian(zv)geoplanpp.sk]
>> Odesl�no: 09. z��� 1998 7:08
>> Komu: delphi(zv)pinknet(tec)cz
>> P�edm�t: referencie
>>
>> 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
>>
>>

referencie

[*] Martin Talian <talian(zv)geoplanpp.sk> - 10.9.1998 07:53:59

>Nazdar,
>
>jednym prikazom to asi nejde, ale pomocou SQL by to islo dvoma. Asi takto
>
>delete
> from Table2
> where IDP = 1021
>
>delete
> from Table1
> where IDP = 1021
>
>za predpokladu, ze pouzijes TQuery. Viac "Local SQL help" (D3).
>
>A pokial ide o to rucne mazanie, tak sa da urobit procedura(funkcia),
>ktora to zmaze za Teba :)


To mi je jasne, ale som myslel, ze ak ma pri mazani procedura prehladavat
celu tabulku, bude to pomalsie.

>
>Marek Repisky
>mrepisky_zl(zv)zsnp.sk
>

referencie

[*] Martin Talian <talian(zv)geoplanpp.sk> - 10.9.1998 07:59:44



>Cau
>
>nie som si dvakrat isty, ci to naozaj funguje aj pomocou Master/Detail
>spojenia...
>
>obycajne sa kaskadny delete (lebo o ten zrejme ide)
>robi pomocou triggerov (podporuju asi vsetky (SQL) databazy )
> alebo Foreign Keys, ktore su definovane ako CASCADE - na databaze Oracle
>(viacej informacii najdes v helpoch okolo hesla referential integrity
>(maintaining))
>
>!!horeuvedene plati len pre databazy na sql serveroch t.j. nie pre Paradox,
>Dbase apd.
>
>pri tych sa to zrejme inak neda, len to mazat rucne z aplikacie
>t.j. vyplnit AfterDelete event a v nom zmazat zavisle zaznamy v nizsich
>(Detail)
>tabulkach
>
>-ak chces robit silne databazovu aplikaciu, tak lepsia je asi Interbase
(local
>client
>v ramci Delphi)


Je to maly projekt, databazovy server neprichadza do uvahy a potrebujem aby
to slo cez siet pre viac uzivatelov.

Komponenta TEdit

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 10.9.1998 08:13:11


Zkus poutit TMaskEdit.
D.

----------
Od: Martin �mol�k[SMTP:wato(zv)login(tec)cz]
Odesl�no: 9. z��� 1998 15:42
Komu: konference Delphi
P�edm�t: Komponenta TEdit

Pordi mi nekdo, jak upravit komponentu TEdit (Delphi 3) tak, aby poznala, ze je npsane cislo a zkontrolovala, je-li v zadanych mezich?. Zkousel jsem pridat vlastnosti Min a Max a zadany retezec kontrolovat po konverzi v okamziku opusteni (upravenim procedury OnExit), ale nejak se mi to nedari. Diky.

Tabulky Pdox DOS vs. Win95

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.9.1998 08:22:38

Hi,

BDE s tim bude normalne pracovat, pokud je to format a kodovani, ktere
zna. To znamena paradox format 4.5 a kodovani cestiny podporovane firmou
Borland (Inprise). Existuje nekolik "domacich uprav" kodovani cestiny,
ale tyto pak nejdou pouzit s BDE. Jedina moznost pak je smazat primarni
index (*.PX) a data znovu indexovat. Tohle je ale nepouzitelne v
pripade, kdyz potrebujes spolupraci DOS a WIN programu. Potom musis mit
podporovanou normu v obou systemech.


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: Tomko_Vincent [SMTP:tomko(zv)vse.sk]
> Odesl�no: 09. z��� 1998 11:47
> Komu: Delphi(zv)pinknet(tec)cz
> P�edm�t: Tabulky Pdox DOS vs. Win95
>
> Zdravim Vas,
>
> Mam otazku, na ktoru som zatial nikde nenasiel odpoved.
>
> Ako Delphi pracuju s pdox tabulkami vytvorenymi a vyplnamymi pod
> DOSom(
> czech852).
> Je potrebna nejaka konverzia dat dos852 - win1252 ?. Budu sa mi
> korektne
> zobrazovat a ukladat znaky s diakritikou?
> Dakujem vopred za vsetky predchadzajuce rady a za nasledujuce.
>
> --
> Ing. Tomko Vincent
> tel. : 095 712 559
> e-mail : tomko(zv)vse.sk
>
>

Cestina ve Win NT

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.9.1998 08:31:30

Jaroslav N�dhera wrote:

> mam problem. Program v Delphi 2 zkompilovany ve Win95 chodi ve Win 95
> dobre. Ve Win NT Workstaion 4.0 se ale spatne zobrazuji ceske pismena (v
> labelech atd). Pouzivam font Arial. Da se to nekte v NT nastavit nebo se
> musi nainstalovat spravny cesky font?

Tady bude asi problem v tom, ze font vyzaduje CHARSET, ktery
D2 jeste nepodporuje, ale az D3.


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


Zjisteni ceskych windows

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.9.1998 08:31:30

Zdenek Petruj wrote:

> Prestoze jsem se dival jak do helpu tak do knih win32 API tak z funkce
> GetLocaleInfo nejsem moudry. Mohl bych poprosit o doplneni do zdrojaku:
>
> function JeCestina:Boolean;
> begin
> result:=
> end;
>
var
i:integer;
c:array[0..35] of char;

GetLocaleInfo(0,1,c,35);
if c='0405' then //cesky

nebo

GetLocaleInfo(0,3,c,36);
if c='csy' then //cesky, v NT to muze byt 'CSY'

Prvni parametr=0 zjisti current prostredi. Kdyz ho budes zvysovat,
zjistis ktere jazyky jsou k dispozici. Muzes si pohrat i s druhym
parametrem.


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


ToolButtons v Delphi4

[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.9.1998 08:34:09

>> 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.

> A pouzivas ActionList? Ten se na to pouziva, pomoci neho
> spojis ToolBar s Menu a budes to ovladat najednou
> (disablovat, enablovat), dokonce i OnClick, obrazky
> a popisy se ti samy doplni.

Nepouzivam. Asi Ti nedosly jine zpravy, ve kterych
jsem rikal, ze se na ten ActionList podivam.

Diky

Jura

----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
www: http://www.angelfire.com/ak2/jpolak/> 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 ===
> ==============================================================

Zruseni indexu v DBF

[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 10.9.1998 08:40:57

> Nedavno tu byla diskuse na tema vytvoreni indexu
> u databazi DBF pomoci Table.AddIndex.
> To funguje dobre, vytvori se indexni soubor *.MDX
> a do databaze se zapise propojeni.
> Problem nastane v pripade smazani tohoto indexniho
> souboru. Potom ho nelze znovu vytvorit, dokud neni
> zruseno ono propojeni.
> Nevite jak ho zrusit primo z aplikace?

Nejde to jinak nez vynulovanim 28. bytu v hlavicce souboru s DBF tabulkou,
kde je informace o onom propojeni. Tady je priklad:

procedure RemoveIndex(Const Name: String);
const
B: Byte = 0;
var
F: File;
begin
Assign(F, Name);
try
Reset(F, 1);
try
Seek(F, 28);
BlockWrite(F, B, 1);
DeleteFile(ChangeFileExt(Name, '.mdx'));
finally
Close(F);
end;
except
on EInOutError do ShowMessage('Chyba pri ruseni indexu!');
end;
end;

Toto jsem psal jeste v Delphi 1 pred lety. Od te doby jsem nepouzival ani
Delphi ani databaze ani hlavu; nerucim za to, ze to bude jeste dnes
fungovat :-)

Vilda


Zruseni indexu v DBF

[*] Jozef Strn�dik <strnadik(zv)mbox.mrp(tec)cz> - 10.9.1998 08:42:55


Je potrebne vynulovat 28 bajt v prislusnom DBF subore.

procedure OdpojIndex(const FileName: string);
var f: file;
b: byte;
begin
Assign(f, FileName);
Reset(f, 1);
Seek(f, 28);
b := 0;
BlockWrite(f, b, 1);
Close(f);
SysUtils.DeleteFile(ChangeFileExt(FileName, '.mdx'));
end;


Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz


-----P�vodn� zpr�va-----
Od: Stanislav Cerny [SMTP:s.cerny(zv)mod(tec)cz]
Odesl�no: 9. september 1998 21:08
Komu: DELPHI Distribution List
P�edm�t: Zruseni indexu v DBF

Zdravim vsechny,
Nedavno tu byla diskuse na tema vytvoreni indexu
u databazi DBF pomoci Table.AddIndex.
To funguje dobre, vytvori se indexni soubor *.MDX
a do databaze se zapise propojeni.
Problem nastane v pripade smazani tohoto indexniho
souboru. Potom ho nelze znovu vytvorit, dokud neni
zruseno ono propojeni.
Nevite jak ho zrusit primo z aplikace?
Diky za radu

Standa C.

Combobox - vyber

[*] Posp�il Tom� <Tomas.Pospisil(zv)pvt(tec)cz> - 10.9.1998 08:45:09

Skus pouzit RX komponenty. Ja pouzivam RxDBlookupComboBox a tam to funguje v
pohode.

Pospa

> -----P�vodn� zpr�va-----
> Od: heinisch(zv)post(tec)cz [SMTP:heinisch(zv)post(tec)cz]
> Odesl�no: 9. z��� 1998 12:36
> Komu: Konference Delphi
> P�edm�t: Combobox - vyber
>
> Ahojte
>
>
> Pri pouzivani Comboboxu i jeho Db variante se pomoci kurz. klaves
> pohybuji po nabizenych polozkach. V pripade ze chci nechat puvodni
> hodnotu
> tak mam smulu i pri pouziti ESC. Jak na to
>
>
> Diky
> Vas HeiJu
>
> P. S.
>
> ComboBox ve WORDu funguje - OK ENTER- nastaveni , ESC - navrat na puvodni
> hodnotu.
>
>
>

ComboBox

[*] Daniel SICHTA <Sichta(zv)asset.sk> - 10.9.1998 08:45:14

O tejto vlastnosti viem ale mi to akosi nefunguje. Program prejde tymyo
riadkom v pohode ale string sa tam nezobrazi
Thanks anyway

-----Original Message-----
From: Jan Fiala [SMTP:fiala(zv)iname.com]
Sent: 10. september 1998 06:00
To: DELPHI Distribution List
Subject: Re: ComboBox

ComboBox ma vlastnost ItemIndex. Pokud ji nastavis, na
odpovidajici polozku,zobrazi se ti i jako vybrana (cislovani je od 0)

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>


Otazka
Mam v premennej (string) nejaky text a ten chcem dostat
do ComboBox-u
ale tak jako keby som ho uz aj vybral !!!!
Dakujem vopred za rady
Ing.Daniel �ichta, ASSET s.r.o.
Rosinsk� 8, 011 05 �ilina, SLOVAKIA
0421-89-542-15
sichta(zv)za.asset.sk < mailto:sichta(zv)za.asset.sk>

Nulova hodnota Date

[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 10.9.1998 08:50:52

Ja na tohle pouzivam RX komponenty. Fungujou (v prevazne vetsine) a jsou
freeware. Koukni na DSP nebo si napis, ja ti je poslu ...

Navic TDateTimePicker ma tu nevyhodu, ze pokud by si chtel program
distribuovat, potrebujes na cilovem pocitaci knihovnu COMCTL32.DLL verze
4.7 a vyssi (je to ve Win95 OSR 2 nebo v PlusPacku).

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: 10. zaoi 1998 6:44
> Komu: Delphi forum
> Poedmit: Nulova hodnota Date
>
> Zdravim vsechny !
> Chtel jsem pouzit komponentu TDateTimePicker pro zadavani datumu do
> database,ale s moznosti uzivatelsky nezadavat zadne datum. A tady jsem
> narazil,protoze tato komponenta uz pri vytvoreni
> ve formulari okamzite nastavuje platnou hodnotu.Kdyz nezadam ve
vlastnosti
> Date hodnotu ,tak se mi automaticky zapise hodnota
> "31.12.1889" , nebo nejak tak.
> Vedel by nekdo , jak aplikovat v teto komponente nulovou hodnotu?
>
> Predem diky !
>
> Petr Pospisil
> SPT Telecom Sumperk


ComboBox

[*] Daniel SICHTA <Sichta(zv)asset.sk> - 10.9.1998 08:53:11

Diky za radu, ale toto mi nepomohlo.
Ja nepotrebujem pridat Item do ComboBox-u. Tato Item (moj string) tam uz
je !
Potrebujem ho v�ak �aktivovat� na zaklade inych premennych. Viem aj jeho
ItemIndex ale to mi akosi
nechodi

sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> -----Original Message-----
From: Marek Repisk� [SMTP:mrepisky_zl(zv)zsnp.sk]
Sent: 10. september 1998 06:51
To: DELPHI Distribution List
Subject: Re: ComboBox

> Mam v premennej (string) nejaky text a ten chcem dostat do
ComboBox-u
> ale tak jako keby som ho uz aj vybral !!!!

Nazdar,

da sa to urobit takto:
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add('nejaky text');
ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;
ComboBox1.SetFocus;
end;
Marek Repisky
mrepisky_zl(zv)zsnp.sk <mailto:mrepisky_zl(zv)zsnp.sk>

Dotaz na BLOB

[*] David_Zabensky.UNION(zv)union(tec)cz - 10.9.1998 09:00:38

Ahoj vsichni,

mam takovy maly dotaz - zacinam si hrat s databazema a potreboval bych do
BLOB pole ulozit graficky stream. Poradte mi prosim jak na to. Neco
takoveho jako

Fields[0].AsString:= ....

pro grafiku neexistuje.

Dekuji za vsechny odpovedi, David;

AllocateHWND, GetWindowLong, Thead, Timer, AktaX .

[*] Richard Willmann <sales(zv)nocomment.sk> - 10.9.1998 09:08:41

Ahoj,

cital som si zdrojovy text k TTrayIcon z RXLIB a narazil som na niekolko
malych otazok:

* co robi AllocateHWND?
(HWND ziskay uvedenou funkciou je predany ako handle okna)

* co robi GetWindowLong ?
(vysvetlenie WIN32API je pomerne strohe)

* preco sa pouziva pre napr. systematicke vykreslovanie niecoho Thread a nie
Timer...
(to plati aj pre seriovu komunikaciu, podobne som sa stretol s tym, ze pre
16bit wokna je
vzdy pouzity Timer)

ak si niekto najde chvilku ...

dakujem


Richard


Encryptace data

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 10.9.1998 09:14:08


>Dotaz znel, jak zakodovat a rozkodovat pole tabulky v Interbase,
Ne, dotaz znel cituji :
Do pole databazove tabulky (napr. tabulky na InterBase Serveru ) bych
(-napriklad-)

>na to jsem odpovedel, ze kazdy normalni SQL server umi sam
>databazi zakodovat bez nutnosti neco kodovat v programu,
>a ze umi posilat po siti zakodovane pakety.
No, dovolil bych si nesouhlasit, pouzivame Informix-OnLine 7.14, coz je zcela nepochybne naprosto "normalni" SQL server. Bezi na AIX-u, kde ma vymezenou jistou oblast, kam si uklada data, jiste vite, jak to funguje. K datum se pomoci prostredku OS dostat neda, ale pokud nekdo napise aplikaci, ketra si na tomto SQL Serveru udela databazi, tabulky a do nich ulozi nejaka sva data, pres klasicky nastroj DBACCESS (myslim, ze na MS SQL je to Enterprice Manager) se do teto databaze dostane prinejmensim spravce serveru, takze data v ramci SQL kodovana nejsou !

Co se paketu tyce, s tim souhlasim.

>Dalsi veta znela "napriklad heslo" a k tomu jsem dodal
>delsi odstavec, jak se to s hesly dela u profiku.
Souhlas.>Pokud bude zakodovany slovnik, resp. kazde slovo zvlast, nejakou
>jednoduchou metodou (monoalfabeticka sifra, tedy treba transpozice,
>substituce), je to pomerne snadno rozkodovatelne, pokud znam nekolik
>stovek nebo dokonce tisic ceskych vyrazu a k tomu anglickych vyrazu,
>pak jsem schopen to rozkodovat.

I tady bych souhlasil se dvema "ale", pokud budou data zasifrovana, tak, jak pisete, tedy jednoducha transpozice, pripadne kombinovana se substituci, tak je pri znalosti otevreno i sifrovaneho textu relativne jednoduche zjistit i algorytmus.
Ale (1) pri vhodne zvolenem klici, podle ktereho se provadi transpozice a zkobminuje-li se jeste navic s prirozenym modulem ascii tabluky, tj. 256 (metodu, jakou pouzivam ja, jiste pochopite, zverejnovat nebudu), je ten algorytmus nerozlustitelny (!), samozrejme, ze zde muze hrat roli nahoda, chyby pri sifrovani ci spatne zvoleny klic, zcizeni zdrojoveho kodu...
Ale (2) substituce zalozena na soucinu matic (system pouzivany {pry Nemci} za II svetove valky a pouziva se pry do dnes {cerpam informace z literatury, proto to "pry"}) neni jedno abecedni. Sifrovaci matice se navic muze menit v zavislosti na poradovem ciskle recordu v tabulce, .....
Takze dobre zvolene heslo/klic a metoda, je i v pripade slovniku naprosto bezpecne reseni.

>Tedy ja ne, nejsem odbornik na sifrovani.
Ja taky ne.>> Slava, konecne jsem to nasel, koho tedy zajima RSA,

>No a ja jsem ti RSA snad vysvetlil spatne?

To bylo spis pro toho cloveka, co chtel informace o MD5.
Doufam, ze jsi se neurazil :-), ale schanim dalsi a dalsi,
informace. Konkretni priklad, (kde bude P=1021, Q=23, ...)
metody lusteni, ...

D.

ACCESS versus BDE

[*] Jan Nov�k���r����n�?��? - 10.9.1998 09:21:34

Potyka se s nasledujicim problemem.
Pouzivam Delphi verze 3 a BDE 4.51 , pristupuji
k MS Acccessu nativnim pristupem .To mi funguje. Problem
nastane pokud databasi Accessu priradim heslo . Pak mi nejde
v programu ani databasovem exploreru
database otevrit a objevi se chyba "External exception EEFFACE."
Nevite nekdo cim to je a jak chybu odstranit ?
Dekuji za radu.

Komunikacia so PSION-om s3a

[*] Lubos Jerabek <lubos(zv)qed(tec)cz> - 10.9.1998 09:51:07

Setkal jsem se z resenim kdy se pouziva ne klasicky psion ale prumyslovy
(mozna to umi i normalni ja se v nich moc nevyznam), ktery ma moznost
vkladat flash memmory a k tomu ctecku na pc ktera emuluje dalsi diskovou
jednotku pak je to vsecko jednoduchy obslouzit.

Lubos Jerabek

-----Original Message-----
From: Pavel Koutn� [mailto:koutny(zv)tkcmt.sk]
Sent: Wednesday, September 09, 1998 4:06 PM
To: 'delphi(zv)pinknet(tec)cz'
Subject: Komunikacia so PSION-om s3a


Zdravim vsetkych dephinov,

mam nasledujuci problem: Mam vytvorenu aplikaciu pracujucu pod
Win98/95/NT, jedna so o program ktory spracovava data, vyhodnocuje ich,
robi statistiku, grafy a pod. Data sa zadavaju rucne. To je vsetko v
poriadku. Na pocitaci PSION s3a mam vytvorenu akusi Lite verziu tohoto
programu, ktora sluzi na zber udajov u zakaznikov, je to predsa len
jednoduchsie, ako behat s notebook-om, cakat kym nabehne windows (no
notebook moze byt aj uspaty, to je pravda), alebo to pisat rucne na
papier a potom to prepisovat. Subory takto vytvorene v PSION-e nie je
problem preniest cez program PSIWIN do Windows, tam si to ulozit,
prekonvertovat do ineho datoveho formatu alebo nieco podobne, no ja by
som potreboval tieto subory presuvat, do svojeho programu priamo cez
neho, nieco v style 'Import dat z PSION-u', kde by uzivatel iba klikol
mysou a nemusel by sa ucit ovladat dalsie programy a komplikovat si
pracu, PSION komunikuje s PC pomocou 3LINK (RS232 rozhranie), ktore je
pripojene na COM1 (alebo !
COM2 to je jedno), no a ja by som potreboval nejako komunikovat so
PSION-om, predajca PSION-u mi pomoct moc nevie v tomto smere, takze ak
sa s tym niekto uz zaoberal, tak prosim o pomoc, diki moc.

Pavel


Zobrazenie formulara v ExitProc

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 10.9.1998 10:01:26


>Dekuji ti nacelniku, ze jsi se mne zastal
:-)

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

A ja dodavam "Programatori vsech zemi, spojte se"
Dobra.

Screen saver.

[*] madr(zv)telecom(tec)cz - 10.9.1998 10:06:54

Zdravim vsechny.

Nevite prosim nekdo, jestli jde (a jak) z delphi zavolat screen saver,
ktery je prave nastaveny ve vlastnostech obrazovky?

Diky, Michal Madr.

Combobox - vyber

[*] heinisch(zv)post(tec)cz - 10.9.1998 10:17:02

Tak se to da taky ,ale ja jsem spise myslel dole.
jako treba zmena vlastnosti v predchudci ci v API.
tak aby to bylo univerzalnejsi.

Ted me napada, udelat komponentu, kde to osetrit primo v kodu.


Diky HeiJu


-----P�vodn� zpr�va-----
Od: Jan Fiala <fiala(zv)iname.com>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 10. z��� 1998 2:00
P�edm�t: Re: Combobox - vyber


>
>Pri OnEnter comboboxu si uloz puvodni hodnotu a testuj klavesy napr.
OnKeyDown, OnKeyPress. Pokud stisknes escape, vrat tam puvodni hodnotu.
>
>S pozdravem "klid zbran�m a program�tor�m"
>se t�� na dal�� spolupr�ci
>ing. Jan Fiala jan.fiala(zv)iname.com
>
> Pri pouzivani Comboboxu i jeho Db variante se pomoci kurz. klaves
> pohybuji po nabizenych polozkach. V pripade ze chci nechat puvodni
hodnotu
> tak mam smulu i pri pouziti ESC. Jak na to
>
>
> Diky
> Vas HeiJu
>
> P. S.
>
> ComboBox ve WORDu funguje - OK ENTER- nastaveni , ESC - navrat na
puvodni
> hodnotu.
>
>

Pozice PopupMenu

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 10.9.1998 10:20:34

Poradi nekdo jak se daji zjistit souradnice PopupMenu, tj. ty na kterych
bude PopupMenu zobrazeno funkci Popup(X,Y) ?
Diky.
Marian.Morzol(zv)ostrava.aksignal(tec)cz


Nahrazeni prikazu D1 na D3

[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 10.9.1998 10:24:03


Ve WIN 95 existuje rsrc32.dll, kde je 32 bit interface na n�e uveden� funkce - jmenuje se MyGetFreeSystemResources32(zv)4. Ve WIN NT neexistuje. Podle helpu ji m� nahrazovat funkce GlobalMemoryStatus, ale a� jsem se sna�il sebev�ce, nepochopil jsem jak to je. Pokud n�kdo v�, co doopravdy nahrazuje uveden� funkce pod NT, sem s t�m.

-----P�vodn� zpr�va-----
Od: Nosek Libor [SMTP:nosek(zv)ujf.cas(tec)cz]
Odesl�no: 10. z��� 1998 10:04
Komu: Distribu�n� list DELPHI (el. adresa)
P�edm�t: Nahrazeni prikazu D1 na D3

Dobry den
Nevite nekdo jakymi procedurami v D3 se nahradi tyto procedury y D1

GetFreeSystemResources(GFSR GDIResources);
GetFreeSystemResources(GFSR SystemResources);
GetFreeSystemResources(GFSR UserResources);

Diky


Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68

tel: 66173163
fax: 6857003

nosek(zv)ujf.cas(tec)cz

Pad programu

[*] Honza Fiala <fala(zv)imc(tec)cz> - 10.9.1998 10:43:05

Cao All,
chtel bych se zeptat, jestli v Delphi existuje nejaky event, ktery dokaze odchytit pad programu.
Dik
Fala
fala(zv)imc(tec)cz
http://www.sws(tec)cz/fs.htm


referencie

[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 10.9.1998 10:50:58

Ahoj,

co sa tyka Paradoxu, tu je na to priklad:

http://www.inprise.com/devsupport/delphi/ti_list/TI2837.html

To sa tyka tiez vsetkych lokalnych databaz, ktore si neosetruju kaskadove
mazanie sami.

Ondrej Kelle
kelleon(zv)nnsk.sk

> -----Original Message-----
> From: Marek Repisk� [SMTP:mrepisky_zl(zv)zsnp.sk]
> Sent: Wednesday, September 09, 1998 9:48 AM
> To: DELPHI Distribution List
> Subject: Re: referencie
>
> > 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 ?
>

Dvojnasobny prechod v QR

[*] Peter Hudec <hudec(zv)ns.basl.sk> - 10.9.1998 11:03:25



> Pro tisk primo z preview je potreba provest pred volanim Print nasledujici
> prirazeni
>
> QRPrinter.OnGenerateToPrinter := nil;
Funguje, thanx.
Peter.

Interbase

[*] Jaro <jaro(zv)sinea(tec)cz> - 10.9.1998 11:18:09

Nevim. Je to divne. Me to funguje. Podivej se jeste
zda mas v souboru \WINDOWS\Services
nastaveno
gds_db 3050/tcp # InterBase Server
Jaro.>Ani kdyz zadam vsechny licenece tak to nepomuze.
>Proc to ale nechodi ani jako eval. to by p�ece taky melo ?
>
>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: 10. z��� 1998 1:13
>P�edm�t: Re: Interbase
>
>
>Nev�m, zda jsem t� dob�e pochopil. V�echny licence d�v� na server.
>Activation license zadavas pri instalaci serveru a v�echny ostatni p�idav�
>pomoc� modulu InterBase License Registration Tool. Tam se pak zobraz�
>v�echny licence.
>Jaro.
>
>-----P�vodn� zpr�va-----
>Od: Pavel Bare� <atoll(zv)telecom(tec)cz>
>Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
>Datum: 8. z��� 1998 18:17
>P�edm�t: Re: Interbase
>
>
>>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
>>
>>
>>
>>
>
>

Komponenta TEdit

[*] V�t�zslav Gazda������u��n�?��? - 10.9.1998 11:57:19

Pro cela cisla muzes pouzit komponentu TSpinEdit. Pro desetinna cisla si
muzes stahnout mou komponentu TSpinFloat. Pouzil jsem v ni zdrojak z
TSpinEdit a upravil ho pro desetinna cisla. Najdes ji na mych strankach
http://www.tda(tec)cz/vita/ . Pokud vsak striktne vyzadujes TEdit, tak alespon
muzes nahlednout do zdrojaku techto komponent. Treba te to nejak navede.

Vita


Zatuhnuti debuggeru

[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 10.9.1998 11:59:57


Hi,

netusite nekdo, proc mi vytuhne pri debuggerovani debugger ?
Jdu F8 po zdrojaku a najednou stojim a nicim to nemuzu rozhybat.

Vasek


E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247


TRichEdit a wm_Paste nefunguje

[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 10.9.1998 12:05:49

>
> Pokud se nepletu, funguje EM_PASTE
>

A kdepak tuhle konstantu najdu ? Ve zdrojacich nikde neni.

McLEI


ComboBox

[*] V�t�zslav Gazda������u��n�?��? - 10.9.1998 12:07:55

ComboBox.ItemIndex := ComboBox.Items.Add('N�jak� text');

InterbaseProLinuch

[*] Daniel Prynych <Daniel.Prynych(zv)buzuluk(tec)cz> - 10.9.1998 12:12:22

Neni to pravda jede i na RH 5.0 a 5.1, rozdil je v pouze v prekladu
programu bezici na Linuxu a pristupujici k IB.(je nuto prelozit verzi pro POSIX)
Intebase pouze napsala ze IB je "CERTIFIKOVANA" pro RH 4.2.
Prosim nesir priste podobne polopravdy.
Dan


-----P�vodn� zpr�va-----
Od: Milan Sorm <xsorm(zv)informatics.muni(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 8. z��� 1998 0:57
P�edm�t: Re: InterbaseProLinuch


>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


Problemy s QuickReportem

[*] Jan Fiala <fiala(zv)iname(tec)com> - 10.9.1998 12:18:10

Quick report po patchi (3.01), mam sestavu group, detail. Nekdy potrebuji
pouze group, nekdy pouze detail. Kdyz bastavim GroupFoother.Enabled:= false,
je vsechno OK. V pripade, kdy nastavim Detail.Enabled := False, neprovadi se
mi SUM v GroupFoother. Pokud nastavim vysku detail na 0, soucty sice
probihaji, na obrazovce je to OK, ale na tiskarne se tisknou i detaily pres
footer (HP Laset Jet 6).

Problem je nasledujici : jak vypnout tisk detailu, aby se scital
GroupFoother (nastaveni vysky na 0 a barvy pisma na bilou se mi moc nezda)

Dale jsem se pokousel vytisknout ikonu pres qrImage. V nahledu je vse v
poradku, ale z tiskarny vyjede jen muska (tak je to maly)

S pozdravem "klid zbran�m a program�tor�m"
se t�� na dal�� spolupr�ci
ing. Jan Fiala jan.fiala(zv)iname.com

Nulova hodnota Date

[*] V�t�zslav Gazda������u��n�?��? - 10.9.1998 12:19:48

Nastav vlastnost ShowCheckbox na TRUE a potom to implementuj pomoci
vlastnosti Checked.

Vita


Ikona v taskbaru vedle hodin

[*] V�t�zslav Gazda������u��n�?��? - 10.9.1998 12:26:56

Pokud chcete skryt tlacitko na TaskBaru staci pouze nastavit vlastnost
TaskHide u komponenty TryIcon na TRUE. Pokud vsak chcete take skryt hlavni
okno aplikace tak musite nastavit vlasnost Visible u formulare na False a
pred Application.Run ve zdrojovem souboru projektu nastavte
Application.ShowMainForm := False;
Potom jde okno zobrazit tak, ze nastavis vlastnost Visible toho formulare na
TRUE.

Vita


Pad programu

[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 10.9.1998 12:31:41


Ufff, nejsem zadny odbornik, ale povezte, Kefalin, co take si predstavujete pod pojmom "Pad programu" ?

----------
Od: Honza Fiala[SMTP:fala(zv)imc(tec)cz]
Odesl�no: 10. z��� 1998 10:43
Komu: DELPHI Distribution List
P�edm�t: Pad programu

<<Soubor: ATT00014.html>>
Cao All,
chtel bych se zeptat, jestli v Delphi existuje nejaky event, ktery dokaze odchytit pad programu.
Dik
Fala
fala(zv)imc(tec)cz
http://www.sws(tec)cz/fs.htm

HELP --- HELP

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.9.1998 12:38:10

Petr Provazn�k wrote:

> prosim o radu ... marne se snazim nacist data s externiho zarizeni pres
> seriovy port (COM2) ... Mam nejakou komponentu QCComm32, ale nejak jsem
> nedosel k prijatelnemu reseni ...

Je to stale dokola. Porad se tu toci dotazy, jak se dorozumet se
seriovym portem, ale vyzkouset AsyncPro se chce malokomu.
Copak ma kazdy tolik casu, aby se slozite prohrabaval vecmi jiz
vyresenymi?


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


Komunikacia so PSION-om s3a

[*] Jiri Szopa <jiri.szopa(zv)telecom(tec)cz> - 10.9.1998 12:45:57

Zdravim vsetkych dephinov,

mam nasledujuci problem: Mam vytvorenu aplikaciu pracujucu pod
Win98/95/NT, jedna so o program ktory spracovava data, vyhodnocuje ich,
robi statistiku, grafy a pod. Data sa zadavaju rucne. To je vsetko v
poriadku. Na pocitaci PSION s3a mam vytvorenu akusi Lite verziu tohoto
programu, ktora sluzi na zber udajov u zakaznikov, je to predsa len
jednoduchsie, ako behat s notebook-om, cakat kym nabehne windows (no
notebook moze byt aj uspaty, to je pravda), alebo to pisat rucne na
papier a potom to prepisovat. Subory takto vytvorene v PSION-e nie je
problem preniest cez program PSIWIN do Windows, tam si to ulozit,
prekonvertovat do ineho datoveho formatu alebo nieco podobne, no ja by
som potreboval tieto subory presuvat, do svojeho programu priamo cez
neho, nieco v style 'Import dat z PSION-u', kde by uzivatel iba klikol
mysou a nemusel by sa ucit ovladat dalsie programy a komplikovat si
pracu, PSION komunikuje s PC pomocou 3LINK (RS232 rozhranie), ktore je
pripojene na COM1 (alebo !
COM2 to je jedno), no a ja by som potreboval nejako komunikovat so
PSION-om, predajca PSION-u mi pomoct moc nevie v tomto smere, takze ak
sa s tym niekto uz zaoberal, tak prosim o pomoc, diki moc.

Pavel

Na Psionu jde programovat standardne COMYy, Takze si musis vymyslet
komunikacni protokol a naprogramovat to jak na strane Psiona tak PC.
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)telecom(tec)cz

Delphi 4

[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 10.9.1998 12:48:57

Chtel bych se zeptat na par veci nekoho, kdo uz ma Delphi 4 :

1) TSaveDialog v D3 nebyl schopen vracet nazvy souboru s delsi nez
tri pismennou koncovkou. Pri cteni z FileName je to orizlo.
(napr. html -> htm, jpeg -> jpe). Je toto v D4 opraveno ?

2) Podporuji ty nove toolbary uzivatelskou definici rozlozeni tlacitek ?

Diky
Vojtech Semecky


RGB

[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 10.9.1998 12:48:57

> ...
> PS: Neni to na 100% ale clRed = $0000FF. HTML ma asi syntaxi GBR,
> v Front Page mi to vracelo hodnotu #FF0000.

No to samosebou nema. HTML ma poradi normalne RGB.
Problem je spis v tom, ze v tom Longintu (TColor) jsou ty byty obracene.

Vojta
---------------------------------------------------
Vojtech Semecky
e-mail : vojtech.semecky(zv)v-soft(tec)cz


ComboBox

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.9.1998 13:06:13

Neznam podrobnosti, ale mozna by pomohlo nechat aplikaci zpracovat
zpravy a pak pokracovat Application->ProcessMessages();


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: Daniel SICHTA [SMTP:Sichta(zv)asset.sk]
> Odesl�no: 10. z��� 1998 8:45
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: ComboBox
>
> O tejto vlastnosti viem ale mi to akosi nefunguje. Program prejde
> tymyo
> riadkom v pohode ale string sa tam nezobrazi
> Thanks anyway
>
> -----Original Message-----
> From: Jan Fiala [SMTP:fiala(zv)iname.com]
> Sent: 10. september 1998 06:00
> To: DELPHI Distribution List
> Subject: Re: ComboBox
>
> ComboBox ma vlastnost ItemIndex. Pokud ji nastavis, na
> odpovidajici polozku,zobrazi se ti i jako vybrana (cislovani je od 0)
>
> 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>
>
>
> Otazka
> Mam v premennej (string) nejaky text a ten chcem dostat
> do ComboBox-u
> ale tak jako keby som ho uz aj vybral !!!!
> Dakujem vopred za rady
> Ing.Daniel �ichta, ASSET s.r.o.
> Rosinsk� 8, 011 05 �ilina, SLOVAKIA
> 0421-89-542-15
> sichta(zv)za.asset.sk < mailto:sichta(zv)za.asset.sk>
>

referencie

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.9.1998 13:20:42

Tohle je vlastnost databazoveho jadra, takze samozrejme v database
desktopu. Pak vubec nezalezi na tom, v cem mas napsanou aplikaci. Muzes
to pouzivat treba z paradoxu pro windows......


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: Martin Talian [SMTP:talian(zv)geoplanpp.sk]
> Odesl�no: 10. z��� 1998 7:52
> Komu: DELPHI Distribution List
> P�edm�t: RE: referencie
>
>
>
> >Hi,
> >
> >je potreba vyuzit referencni integrity, kdy se da tohle nadefinovat
> >primo do vlastnosti tabulky, podivej se na to v helpu.
>
> Kde ? V delphi, alebo v database desktope ?
>
> >K tem druhum
> >tabulek mohu rict jen to, ze vim o tom, ze to funguje na typu
> Paradox.
> >Ostatni jsem nemel potrebu zkouset.
> >
> >
> >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: Martin Talian [SMTP:talian(zv)geoplanpp.sk]
> >> Odesl�no: 09. z��� 1998 7:08
> >> Komu: delphi(zv)pinknet(tec)cz
> >> P�edm�t: referencie
> >>
> >> 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
> >>
> >>

Another MDI problem

[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 10.9.1998 13:31:34

Nazdar Delphisti,

chtel bych, aby MDI child okna moji aplikace byla na zacatku
maximalizovana pres celou plochu aplikacniho okna. To jsem
udelal nastavenim WindowsState na wsmaximize.

Vsechno celkem funguje az na to, ze pri zalozeni noveho okna
toto okno vyskoci male. Ihned se sice maximalizuje, ale dochazi
tim k nepeknemu vizualnimu efektu. Nevite nekdo, jak nastavit,
aby vyskocilo rovnou maximalizovane ?

Diky
Vojta


Form

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.9.1998 13:33:48

Zdravim,

v aplikaci generuji formular z externiho souboru. Tech souboru je vic a
v kazdem je definice nekolika ruznych objektu v tom formulari (napr.
TLabel, TEdit, TListBox). V aplikaci jej tedy vygeneruji, pak SHOWMODAL,
ALE! Jak zajistit "sber" udaju po vyplneni poli a nastaveni hodnot
(napr. v listboxech) po stisku tlacitka OK?

.........................................................
. 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 .
.........................................................

GetUserName & Win98CZ

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.9.1998 13:35:41

Hi,

nevite nekdo, proc pri zavolani funkce GetUserName ve Win98 nedostanu
zadne uzivatelske jmeno? Doslo k nejake zmene API? To by si snad MS
nedovolil...nebo ano?


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz


DBF komponenta bez BDE

[*] Petr Hronek <trit(zv)cbnet(tec)cz> - 10.9.1998 13:58:55

Je to ji� n�jak� �as, co tu o tom prob�hla informace. Pros�m kdo by jste o n��em takov�m v�d�l ev. n�co takov�ho m�l (FREE) dejte mi info pop�. m��ete poslat na
Petr Hronek
trit(zv)cbnet(tec)cz


JPEG do BLOB

[*] Libor Junek <libor(zv)thsoft(tec)cz> - 10.9.1998 14:05:09

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Muzete mi nekdo poradit jak v D4 priradit do pole typu BLOB obrazek JPEG?
Zkou�el jsem to pres DBImage a funkci Assign, ale umi to ulozit pouze BMP.

Libor Junek
libor(zv)thsoft(tec)cz


Win32 help

[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 10.9.1998 14:15:52

Na FTP server konferencie som do Others ulozil win32cnt.zip.

Umoznuje to lepsie vyhladavanie vo Win32 help subore.

Ondrej Kelle
kelleon(zv)nnsk.sk


Pad programu

[*] Honza Fiala <fala(zv)imc(tec)cz> - 10.9.1998 14:17:07

Cao,

no me zase zajima k cemu mi je hlaska typu Access violation at adress xxxx
? Da se z toho vubec neco vycist? Ovsem ja to potrebuji pro zapis do
nejakeho souboru, abych vedel kde, kdy a jaka nastala chyba. V podstate mi
jde o nejaky errorlog.

Fala
fala(zv)imc(tec)cz
http://www.sws(tec)cz/fs.htm
Ahoj,
m�m podobn� probl�m. Pokou��m se nal�zt chybu v programu, kter� pou��v�
RXLib a Orpheus knihovnu (je v Delphi 1). Po ukon�en� programu (tj a� pro
proveden� Destroy hlavn�ho formul��e) mi v�dy hl�s� GPF a uk�e adresu na
stejn� m�sto. A nev�m si rady.

Jaro Bene�

JBenes(zv)cpoj(tec)cz


Kurs tvorby napovedy 2

[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 10.9.1998 14:28:58

[P��loha v souboru: Kurs.zip]
Toto je v�ced�ln� zpr�va form�tu MIME.

Vazeni pratele, prikladam priklad helpu, ve kterem se vyskytuje vetsina
ukazu, ktere se v helpech obvykle pouzivaji (lepe receno, ktere pouzivam
ja). Prohlednete si jej, prosim, priklady, na nich budu demonstrovat
uplatneni postupu. Na cetne zadosti upoustim od diakritiky.

Pozn.: Pro zobrazeni vsech konstrukci je treba ve Wordu povolit zobrazovani
skryteho textu a poznamek pod carou. Pro vyzkouseni volani tohoto helpu z
programu si, prosim, vyrobte form s jednim tlacitkem. U formu nastavte
property HelpContext na 200 a HelpFile na Kurs.hlp>process. Na OnClick
udalost tlacitka napiste Application.HelpContext(300);. Program pak vyvola
jiny topik na F1 a jiny pri kliknuti na tlacitko (viz soubor Kurs.map).
Zkousel jsem to v Delphi 3.

Nyni se zminim podrobneji o oknech. Okna se definuji v projektovem (HPJ)
souboru. Pouziti definovaneho okna se deje automaticky, postaci pouze
presmerovat tema do okna (jak se to dela vysvetlim pozdeji).

Okna pro zobrazeni helpu jsou trojiho druhu:
1. Primarni okno
- je pouze jedno a je k dispozici automaticky, nemusite nic definovat Pokud
udelate chybu ve smerovani topiku (do neexistujiciho okna), zobrazi se v
primarnim okne. Primarni okno jako jedine obsahuje nabidku. Chcete-li jeho
vzhled ovlivnit (tj. zmenit barvu, velikost, umisteni, tlacitka, nabidku,
..) pouzijete pri definici jmeno Main.

2. Sekundarni okna
- narozdil od primarniho okna nemohou obsahovat nabidku (pouze tlacitkovou
listu). Muzete si jich pomoci Help Workshopu definovat celkem 255, ale
najednou jich lze otevrit pouze 9. Jmeno sekundarniho okna (pomoci nehoz se
na nej odkazujete, tedy smerujete zobrazeni topiku do nej) smi mit max. 8
znaku.

3. Popup okna
- pouzivaji se pouze pro popup skoky. O umisteni a velikost se staraji
Windows. Sirka okna je priblizne stejna jako sirka okna, z nehoz byl ucinen
popup skok, a nebo pokud je zakazano wrapovani tak jak je siroky text.
Vyska se automaticky prizpusobuje velikosti topiku. Popup okno existuje jen
do prvniho kliknuti nebo stlaceni klavesy. Vyjimkou jsou tlacitka (makro
button) v popup okne. Toho se obvykle vyuziva k tvorbe tzv. prehledovych
temat.

Jak se rozhodnout, ktere okno pouzit? Dle meho nazoru vsechny helpy, ktere
vypadaji k svetu (tedy i moje :-) vyuzivaji sekundarnich oken. Tohle byla
samozrejme basnicka nadsazka neboli hyperbola. Zalezi na obsahlosti temat a
ocekavane frekvenci a zpusobu uzivani helpu. Pokud je vetsina temat obsahla
a ma stejnou strukturu, je lepsi pouzit primarni okno (napr. helpy k
programatorskym nastrojum) pro vsechny topiky. U helpu davajici navod pro
urcity postup (napr. pri vyplnovani formularu pro vstup dat) je asi lepsi
male sekundarni okno nekde v rohu monitoru aby nezaclanelo.

Mala odbocka: Obecne jsou lepsi kratka strucna temata, obsahujici klicovou
informaci hned na zacatku. Je dobre se vyhybat nutnosti v tematu rolovat.
Lepsi je dlouhe tema rozdelit a vybavit napr. tlacitkem nebo citlivym
mistem "Pokracovani" nebo "Dalsi informace". Nevymyslet zbytecne novinky.
Pouzivat to, nac jsou uzivatele zvykli, aby nemeli s obladanim helpu
problemy. Snazit se, aby help byl opravdu helpem a ne elektronickym
manualem, aby v nem uzivatel nasel snadno a rychle to co hleda. (Mimochodem
toto je ze vseho nejtezsi.)

Vyhody pouzivani sekundarnich oken:
Velikost okna lze (i automaticky) prizpusobit velikosti obvykleho topiku.
Male topiky pak nevypadaji tak osamele. Male sekundarni okno muze byt
zobrazeno i stale (atribut vzdy nahore) a uzivatel pak v nem muze mit navod
stale na ocich aniz by mu prekazel v pristupu k editaci vstupniho formu
nebo musel neustale prepinat. Sekundarni okna lze vsechna najednou zavrit
(jednim makrem), aniz by bylo nutno zkoumat, jsou-li vubec otevrena.

Nevyhody pouzivani sekundarnich oken:
Nevyhoda pouziti vetsiho poctu oken a jejich stridani spociva v existenci
historie skoku pro kazde okno samostatne (videl jsem ovsem reseni tohoto
problemu [myslim ze ve Wordu 6 nebo 7] pro hloubku vnoreni 10 pomoci maker,
ale cely chod helpu to ponekud zpomalovalo). V systemu helpu jsou dale
chyby a nefunguji nektera makra odkazujici se na jmeno sekundarniho okna (s
primarnim funguji). Coz cloveka nuti k nadmernemu opotrebovani chrupu
skripanim a k pouzivani metody viadukt, pripadne vzdat se nadherne
vymyslenych funkci. Samozrejme dalsi nevyhodou je neexistence nabidky.
Ovladani vzhledu okna tim netrpi, plovouci menu na prave tlacitko zustalo.
Pokud chybi treba jen jedna, dve polozky z hlavni nabidky, lze je
presmerovat na doplnena tlacitka do tlacitkove listy (jak se to dela ukazu
pozdeji).

K oknum nerozlucne patri jeste vstupni makra, ale ta zminim, az se budu
venovat makrum.

Priste se uz konecne dame do psani temat.

Vilda

CMOS

[*] Ales Bukovsky <elidisp(zv)mbox.vol(tec)cz> - 10.9.1998 15:09:26

Trochu jsem to popletl, ten programek sice olizne cmosku, ale uz ji dal
nepitva a celou ji frkne do filu... :(

NICMENE! Mam tady dosovsky TechHelp, kde je (mimo jine) velice podrobny
popis struktury CMOS (4 tiskove strany). Nechce se mi to opisovat, ale
poslu to kazdemu zajemci (ma to 230K, takze to nechci posilat sem do
konference). Kdo mate zajem ozvete se!!!

Cteni z CMOS:
OUT 70H,addr
IN 71H

Zapis do CMOS:
OUT 70H,addr
OUT 71H

kde addr je adresa prisluneho zaznamu struktury (viz. zmineny TEchHelp).

-Ales-


Zatvorenie konzoloveho okna

[*] Santik <santik(zv)pronetix.sk> - 10.9.1998 15:19:50

Hello,

prednedavnom sme tu rozoberali zatvorenie konzoloveho okna
pomocou zaskrtnutia policka "Po skonceni zavriet".
Nedalo by sa toto nejako spravit softwarovo (napr. cez DDE s
Program Managerom) ?

Santik
santik(zv)pronetix.sk
misecka(zv)decef.elf.stuba.sk

Popup Menu

[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 10.9.1998 15:53:17



Hallo,

mate prosim nekdo zkusenosti s Popup Menu ?

Ja si ve Form1 vytvorim PopupMenu, ktere je prazdne. Potom bych chtel do nej
v jinem unitu pridat polozky. To se mi dari. problem je v tom, ze se mi do
PopupMenu pridavaji za sebe. Pouzil jsem Delete ( TPopupMenu.Items.Delete(I)
) v cyklu, ale nedari se mi. Porad mi to hlasi chybu.

Nevite nekdo, jak vycistit popup menu pred pridabanim polozek do nej ?

Diky

Vasek


E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247


Pozice PopupMenu

[*] V�t�zslav Gazda������u��n�?��? - 10.9.1998 16:38:39

Pokud mas X, Y v souradnicich nejakeho controlu, tak je musis prevest pomoci
metody TControl.ClientToScreen na souradnice obrazovky.

Vita


referencie

[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 10.9.1998 17:03:59

Tak potom prichadza zrejme do uvahy len vyplnenie AfterDelete eventu...

inak ja som kedysi pouzival Paradoxove tabulky na sieti - asi rok to behalo,
sem tam boli uplne domrsene indexy, ale nikdy som neprisiel o data
(teda aspon nie o vela... :-)

potom som sa na to pozrel a nechapal som, ako to, ze to fakt fungovalo -
nijake zabezpecenie proti subeznemu zapisu dvoch uzivatelov na ten isty
zaznam, atd. (zrejme to robilo BDE (?))

nakoniec som sa rozhodol prejst na IB a celkom to chodi (dokonca bez tych
domrsenych indexov... :-)

Martin Talian wrote:

>
> Je to maly projekt, databazovy server neprichadza do uvahy a potrebujem aby
> to slo cez siet pre viac uzivatelov.

--
Maj sa,
R.

Screen saver.

[*] Lubos Jerabek <lubos(zv)qed(tec)cz> - 10.9.1998 17:15:08

Zkuz to takhle
DefWindowProc(Form1.Handle,WM_SYSCOMMAND,SC_SCREENSAVE,0);

Lubos Jerabek "Bastlir Li"

-----Original Message-----
From: madr(zv)telecom(tec)cz [mailto:madr(zv)telecom(tec)cz]
Sent: Thursday, September 10, 1998 10:07 AM
To: delphi(zv)pinknet(tec)cz
Subject: Screen saver.


Zdravim vsechny.

Nevite prosim nekdo, jestli jde (a jak) z delphi zavolat screen saver,
ktery je prave nastaveny ve vlastnostech obrazovky?

Diky, Michal Madr.

Nulova hodnota Date

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.9.1998 17:25:56

> Navic TDateTimePicker ma tu nevyhodu, ze pokud by si chtel program
> distribuovat, potrebujes na cilovem pocitaci knihovnu COMCTL32.DLL verze
> 4.7 a vyssi (je to ve Win95 OSR 2 nebo v PlusPacku).

Vsak COMCTL32.DLL je volne siritelna CORE knihovna, kterou staci
pridat do instalace... V cem je ta nevyhoda? Kdyz uz se instaluje
nekolikamegove BDE, tak 400 kilova DLL neni problem.


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 ===
==============================================================

Zatuhnuti debuggeru

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.9.1998 17:40:59

> netusite nekdo, proc mi vytuhne pri debuggerovani debugger ?
> Jdu F8 po zdrojaku a najednou stojim a nicim to nemuzu rozhybat.

A mas Delphi 1, Delphi 2, Delphi 3, Delphi 4, C++ Builder 1,
C++ Builder 3 nebo snad jeste neco jineho? A co debuggerujes?
Asi ti nikdo neporadi, kdyz jsi nenapsal konkretne, o co jde...

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 ===
==============================================================

Screen saver.

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1998 18:50:02

madr(zv)telecom(tec)cz wrote:
>
> Zdravim vsechny.
>
> Nevite prosim nekdo, jestli jde (a jak) z delphi zavolat screen saver,
> ktery je prave nastaveny ve vlastnostech obrazovky?

Ahoj,

PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0)

--
Petr Vones, amatersky programator

Komponenta - prav�tko

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.9.1998 18:55:46

> Nevite nahodou o nejake free komponente pravitko kde lze vkladat znacky
> tabulatoru(libovolny pocet) a bylo by mozne s tema znackama hybat ?Diky.

V prikladu RichEdit je to udelane jednoduchym zpusobem pomoci
TPanel a TLabel. Podivej se na to.

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 ===
==============================================================

Zatuhnuti debuggeru

[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 10.9.1998 19:18:44


-----P�vodn� zpr�va-----
Od: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 10. z��� 1998 16:42
P�edm�t: Zatuhnuti debuggeru


>
>Hi,
>
>netusite nekdo, proc mi vytuhne pri debuggerovani debugger ?
>Jdu F8 po zdrojaku a najednou stojim a nicim to nemuzu rozhybat.
>
>Vasek
>
>
>E-mail: Vaclav.Lukes(zv)pvt(tec)cz
>Tel.: 0603-511247

Ahoj,

myslim, ze by to mohlo byt zpusobeno nekterym rezidentnim programem, se
kterym si debuger moc nerozumi. Mel jsem totiz podobny problem a pak po
nekolika instalacich windows i delphi jsem zjistil, ze mi to dela QEMM 8. Od
te doby ho nepouzivam a debuggovani bezi vporadku.

Ricky...

rick.strunc(zv)email(tec)cz
ICQ: 13408022


HELP --- HELP

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.9.1998 19:33:24

Petr Provazn�k wrote:
>
> Nazdar lidi,
>
> prosim o radu ... marne se snazim nacist data s externiho zarizeni pres
> seriovy port (COM2) ...
> Mam nejakou komponentu QCComm32, ale nejak jsem nedosel k prijatelnemu
> reseni
> ...
>
> Help, je to docela nutne ...

Ahoj,

To muzes mit vice duvodu, nicmene komponenta QCComm32 (alespon ta verze kterou
tu mam z 3.5.96) je pomerne dost hrozna. Z free komponent ktere jsem videl
vypadala dobre ASYNC32.PAS (v1.48), najdes ji na DSP, nebo se podivej do Delphi
Kuchyne Martina Nedopila, ten tam ma TPortoBello:

http://www.geocities.com/Athens/Olympus/5260/

--
Petr Vones, amatersky programator

Popup Menu

[*] Richard Strunc <rick.strunc(zv)email(tec)cz> - 10.9.1998 19:34:32


-----P�vodn� zpr�va-----
Od: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 10. z��� 1998 17:53
P�edm�t: Popup Menu


>
>
>Hallo,
>
>mate prosim nekdo zkusenosti s Popup Menu ?
>
>Ja si ve Form1 vytvorim PopupMenu, ktere je prazdne. Potom bych chtel do
nej
>v jinem unitu pridat polozky. To se mi dari. problem je v tom, ze se mi do
>PopupMenu pridavaji za sebe. Pouzil jsem Delete
TPopupMenu.Items.Delete(I)
>) v cyklu, ale nedari se mi. Porad mi to hlasi chybu.
>
>Nevite nekdo, jak vycistit popup menu pred pridabanim polozek do nej ?
>
>Diky
>
>Vasek
>
>
>E-mail: Vaclav.Lukes(zv)pvt(tec)cz
>Tel.: 0603-511247

Takto:
pm: TPopupMenu

while pm.Items.Count>0 do
pm.Items.Delete(0);


Ricky...

rick.strunc(zv)email(tec)cz
rick.strunc(zv)writeme.com
ICQ: 13408022



© Delphi.cz, program netcode.cz, 2008-9.