Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
MPEG
[*] Jan Macej <jasencak(zv)ssl.sk> - 14.9.1998 10:03:35
Stiahol som komponentu MPEG a pri instalacii som obdrzal hlasku mpegplay.dcr not found
a pritom v zlozke z ktorej to instalujem samozrejme je.
Ked som prepisal v dclusr.dpk $R 'mpegplay.dcr' na $R aj s cestou tak to preslo.
Druha vec pri otvoreni demo sa mi zrusil package s user def. componentami teda aj s MPEG.
Mal si aj ty s tym take problemy, alebo ako to spravit?
Jan Macej
----------
> Odes�latel: Jiri Fajtl <chip(zv)oku-pi(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: Re: MPEG
> Datum: 9. september 1998 8:47
>
> 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
>
>
> bsDialog okno a TMenu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 14.9.1998 10:15:50
Hi,
zase nekdo, koho bavi kydat hnuj na Windows!
cti poradne, nejedna se o chybu, ale o nedostatek prepinacu v
CreateWindow. Proto byla zavedena funkce CreateWindowEx
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: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] za
> u�ivatele Dobromil Mal�
> Odesl�no: 14. z��� 1998 8:48
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: bsDialog okno a TMenu
>
> Ahoj, myslim, ze v "Mistrovstvi v Delphi" jsem cetl, ze kvuli nejake
> chybe
> Windows (nebo co) to Delphi proste neudelaji, ale da se to udelat
> pomoci
> API (osidit Delphi), ale to menu potom za moc nestoji.
>
> Dobra.
>
> ----------
> Od: Pavel Malinsk�[SMTP:spiderland(zv)usa.net]
> Odesl�no: 12. z��� 1998 17:29
> Komu: DELPHI Distribution List
> P�edm�t: bsDialog okno a TMenu
>
> <<Soubor: ATT00001.html>>
> Zdravim,
>
> nevite prosim nekdo jak pri pouziti stylu okna bsDialog
> soucastne pouzit i cmp. TMenu.
> V tomto rezimu okna je menu ignorovano a je nepouzitelne.
>
> Diky za kazdy napad
>
> S pozdravem
> Pavel Malinsky
> spiderland(zv)usa.net
>
> SQL Server na CD-ROM
[*] Martin UHER <tlanik(zv)zvt.csas(tec)cz> - 14.9.1998 10:26:26
Jde to i pro MS SQL Server 6.5
Martin UHER
-----Original Message-----
From: Ladislav Nagy [mailto:lada(zv)kolej.mff.cuni(tec)cz]
Sent: Friday, September 11, 1998 12:16 PM
To: DELPHI Distribution List
Subject: Re: SQL Server na CD-ROM
Ahoj,
MS SQL Server pouziva pro vysledky vsech dotazu a mezivysledky ulozenych
procedur specialni databazi (ta musi byt na HDD) a nevadi tedy, ze potrebna
databaze (*.mdf) je na CD (a tedy read-only).
Pak jeste zbyva nasmerovat nekam jinam (nez na CD) transactionlog file
(*.ldf).
Zkusil jsem si pod MS SQL 7.0 B3 databazi nastavit vse potrebne a klast
nejake jednoduche dotazy. Vysledkem bylo, ze datum posledni modifikace
souboru s databazi (*.mdf) se nezmenil.
CD s MS SQL 7.0 B3 lze poridit zdarma pres Microsofty.
Ladislav Nagy
lada(zv)kolej.mff.cuni(tec)cz
> Ahoj,
>
> lze nejak zaridit, aby nejaky SQL Server pracoval,
> pokud je databaze ulouena na CD-ROM, tedy chranena
> proti zapisu? Asi ne, co?
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
Diskety 8"
[*] Martin UHER <tlanik(zv)zvt.csas(tec)cz> - 14.9.1998 10:35:11
Ve sklepe mam dve mechaniky a k tomu i nejaky HW s monitorem.
Nemam systemovou 8" disketku a tak s tim nemohu nic delat.
Melo by to fungovat; kdyz to zapnu trochu v tom krupne a zabzuci a chce to
z jedne mechaniky cist. Mozna bych to za nejake pivo prenechal.
To jsou jedine info, ktere mohu poskytnout.
-----Original Message-----
From: Jaro [mailto:jaro(zv)sinea(tec)cz]
Sent: Friday, September 11, 1998 8:20 AM
To: DELPHI Distribution List
Subject: Fw: Diskety 8"
Vazeni pratele
nevite o nekom, kdo umi precist disketu 8", dve strany, 40 stop, 9
sektoru, 512 bajtu na sektor?
Za jakoukoliv informaci predem dekuji.
V�clav Krmela
krmela(zv)stapro(tec)cz
krmela(zv)sinea(tec)cz
MS Outlook
[*] Rul��ek Daniel <dan.r(zv)avizo(tec)cz> - 14.9.1998 11:03:39
Zdravim Vas vsechny. Potreboval bych poradit s nasledujicim problemem.
Musim udelat program, ktery by mel pracovat s kontaky v Outlooku.
Bohuzel jsem nikde nenasel popis funkci nebo objektu. V helpu je jenom
to, ze muzu pouzit asi 30 objektu a nic vic (nebo jsem nic vic nenasel).
Nedelali jste nekdo neco podobneho?
diky za kazdou radu
Dan
Osahani procesu po siti
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 14.9.1998 11:15:10
Ahoj vsem,
resime momentalne problem: na pocitacich v siti bezi nekolik (nasich)
programu. Jde jen o to, aby uzivatel mohl v siti spustit jen tolik
programu, kolik si zakoupil licenci. Tusite nekdo, co s tim ? (Resime to
sice v C++, ale i reseni v Delphi snad bude mit svou cenu).
Diky za vsechny napady a odpovedi
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************HSCROLL & VSCROLL
[*] Kosta <kosta(zv)iol(tec)cz> - 14.9.1998 11:17:59
Diky za rady, nakonec se dobra vec podarila: v zavislosti na FList ze
zobrazuje stridave VSCROLL a HSCROLL
procedure TFileList.CreateParams(var Params: TCreateParams);
//**********************************************************
begin
inherited CreateParams(Params);
with Params do begin
if FList then Style:= Style AND NOT(WS_HSCROLL OR WS_BORDER)
else Style:= Style AND NOT(WS_VSCROLL OR WS_BORDER);
ExStyle := ExStyle or WS_EX_CLIENTEDGE;
WindowClass.Style := WindowClass.Style and not (CS_HREDRAW or
CS_VREDRAW);
end;
end;
procedure TFileList.SetList(Value: boolean);
//******************************************
begin
if FList = Value then Exit;
FList:= Value;
if FList then Columns:= 0
else Columns:= 3;
RecreateWnd;
if HandleAllocated then Change;
end;
List View
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 14.9.1998 11:43:30
Ahoj,
muzete mi prosim nekdo poradit, jak u ListView aktualizovat Item.Index ?
Jde mi o to, ze se chci po kliknuti na polozce v ListView dozvedet jeji
index. OK. Da se toho dociliti takto:
Do onSelectItem napisi treba:
ShowMessage(IntToStr(Item.Index));
To funguje. Potiz je ale v tom, ze kdyz kliknu na jinou polozku v ListView,
nejprve se mi zobrazi Item.Index polozky predchozi a teprve az potom se
zobrazi ten Item.Index, na ktery jsem kliknul podruhe.
Vasek
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Ttvorba datoveho slovnik
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 14.9.1998 12:19:37
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Mel bych jeden dotaz ohledne vytvareni datoveho slovniku
Lze vytvorit polozky datoveho slovniku nejak jinak nez rucne?
Zkousel jesem Import v DbExploreru ale ten importuje jen relace a tabulky ne vsak pole.
dekuji za odpoved
Pavel Bare�
Atoll s.r.o.
http://www.atoll(tec)cz
OffTopic: WWW Server ve Windows 95
[*] Zbyn�k Grygar <zgrygar(zv)zeal(tec)cz> - 14.9.1998 12:22:16
[P��loha v souboru: vcard.vcf]
Mgr. Jan Sluka wrote:
> Vazeni,
>
> muzete mi nekdo poradit, jak nejjednoduseji
> testovat CGI skripty v Perlu ve Windows 95?
> Tj. exituje nejaky WWW server, ktery lze
> rozchodit na lokalni stanici?
>
> Dekuji Vam vse za namety
Uplne v pohode co do serveru je Smabar 4.1, kter� je zadarmo, ma v sobe
zabudovany Perl a navic podporuje cgi-win, a ma v sob� zabudovanou
podporu databazi. No a najdete ho na adrese http://www.sambar.com
Zbynek Grygar
zgrygar(zv)zeal(tec)cz
DMA & Win95 ... + vyvoj VxD ???
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 14.9.1998 12:33:27
At 18:05 6.9.1998 +0200, you wrote:
>> potrebuji poradit. Mate nekdo povedomost o tom, jak se ve Win95
>> obsluhuje DMA ?
Pomoci sluzeb VDMAD (viz DDK)
>> (presneji, jestli existuji nejake funkce pro praci s DMA
>> ve Win32 API
Ne - resp. o nicem pouzitelnem nevim..
>obavam se ze jedina moznost je pomoci napsani VxD k danemu ucelu. Je to
podobny
>problem jako pristup k paralenimu portu pro jinou komunikaci nez s tiskarnou.
>Psani VxD neni nijak jednoducha zalezitost. Existuji sice jakesi
"univerzalni"
>drivery ktere lze pak nastavovat programove
A to vypada jak ? Jake univerzalni drivery mas na mysli ?
>Dalsi problem vyvoje VxD je nutnost pouziti MS VC++ i kdyz C++ Builder 3
by to
>jiz take mel umet. Pracuje s nim zde nekdo ?
Pro vyvoj VxD (a Kernel Level driveru pro WINNT) pouzivam vyhradne MSVC 4.2.
Na ladeni doporucuji SoftICE
> Mam zde priklad jednoducheho VxD
>ktery sice umi jen "ukrast" LPT port, ale patrne by sel rozsirit i o dalsi
>jednoduche funkce. Umistil jsem jej sem:
>ftp://ftp.mlp(tec)cz/misc/Delphi/konference/Other/MSVC/HAZZAH.ZIP
Nejak se tam nemohu dostat ?
Co a jak to dela ? Tipnul bych si, ze jen zahookuje volani driveru
paralelniho portu via Hook_Device_Service (coz je ovsem zalezitost od
ovladani DMA dost vzdalena ;-)
S. Kolar (standa(zv)winroute.com)
SQL - vyber dle datumu
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 14.9.1998 12:53:51
Zapomnel jsem tam uvest, ze je jedna o SQL.Add.
Zapis:
Dnes := FormatDateTime('d.m.yyyy', now);
...
...
SQL.Add(' where Datum="'+Dnes+'"'); { mne zahlasi chybu typu. V cem delam
chybu? }
...
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Jan Fiala <fiala(zv)iname.com>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 14. z��� 1998 12:23
P�edm�t: Re: SQL - vyber dle datumu
pokud datum pouzivas jako parametr, tak to jde normalne pres
Query.ParamByName('Datum').AsString := MaskEdit.Text; nebo
Query.ParamByName('Datum').AsDate := StrToDate(MaskEdit.Text);
Pokud si skladas select tak
Query.SQL.Add('Datum = "' + MaskEdit.Text + '"'); ta hodnota musio byt
v uvozovkach (nebo v apostrofech, pokud mas cely string v uvozovkach )
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: SATON Glass s.r.o. <info(zv)saton(tec)cz> Zdravim,
vim ze se o tom v konferenci uz debatovalo, ale nepodarilo se mi to
v
archivu najit.
Mam Pdox databazi a v ni polozku typu Date. Potreboval bych v SQL
dotazu dle
teto polozky vybirat. Nedari se mi.
Je to zajimave, jak si uvedomuji nikdy jsem zatim test dle celeho
datumu
nepotreboval. Vzdy mne stacil jen dotaz na rok.
Diky za kazdou radu.
Kuba
RX - datum
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 14.9.1998 12:55:29
Diky za rady. Mam jen standard verzi, takze budu muset jit tou mene schudnou
cestou.
Diky vsem.
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 14. z��� 1998 12:43
P�edm�t: RE: RX - datum
Ahoj
nazvy mesicu jsou v systemovych souborech RES Delphi. Pokud mas
zdrojove soubory, pak je muzes primo pocestit (v RS - resource scriptech)
jinak musis pouzit Resource Workshop a pocestit je jako stringtables (jde to
ale je to hruza). Stingtables jsou v Sysutils.Res a cisla jsou 65504 az
65517 (tak to mam ja).
Jaro B. micrel(zv)micrel(tec)cz
OffTopic: WWW Server ve Windows 95
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 14.9.1998 13:22:19
> .pl "c:\perl\bin\perl.exe %s"
>
Tradicni problem...
Spravne je
.pl "c:\perl\bin\perl.exe %s %s"
Neptejte se proc - je to std. FAQ z ActiveState (bavime se o jejich Perlu,
ze ano?)
Tomas
bsDialog okno a TMenu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 14.9.1998 13:40:46
>Hi,
Hi hi hi,
>zase nekdo, koho bavi kydat hnuj na Windows!
Hele, Fesaku, tohle si nech od cesty, jo.
>cti poradne, nejedna se o chybu, ale o nedostatek prepinacu v
>CreateWindow. Proto byla zavedena funkce CreateWindowEx
Za zavorka "(nebo co)" snad mluvi za vsechno, nebudu cist
celou knizku a ani to nebudu nikde pracne zjistovat.
Nemam na to cas. Zkratka jsem napsal to, co mi uvizlo
v pameti a doufal jsem, ze se toho nekdo chytne a poradi tomu
cloveku vice a konkretneji.
Koukam, ze se chyt ten pravej :-(
Dobra.
{----------------------------------------}
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: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] za
> u�ivatele Dobromil Mal�
> Odesl�no: 14. z��� 1998 8:48
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: bsDialog okno a TMenu
>
> Ahoj, myslim, ze v "Mistrovstvi v Delphi" jsem cetl, ze kvuli nejake
> chybe
> Windows (nebo co) to Delphi proste neudelaji, ale da se to udelat
> pomoci
> API (osidit Delphi), ale to menu potom za moc nestoji.
>
> Dobra.
>
> ----------
> Od: Pavel Malinsk�[SMTP:spiderland(zv)usa.net]
> Odesl�no: 12. z��� 1998 17:29
> Komu: DELPHI Distribution List
> P�edm�t: bsDialog okno a TMenu
>
> <<Soubor: ATT00001.html>>
> Zdravim,
>
> nevite prosim nekdo jak pri pouziti stylu okna bsDialog
> soucastne pouzit i cmp. TMenu.
> V tomto rezimu okna je menu ignorovano a je nepouzitelne.
>
> Diky za kazdy napad
>
> S pozdravem
> Pavel Malinsky
> spiderland(zv)usa.net
>
>
MS Outlook
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 14.9.1998 13:42:59
Ahoj,
Pozri si VBAOUTL.HLP, kde je popis Automation objektov pre Outlook.
Normalne by Ti malo fungovat CreateOleObject('Outlook.Application'). Na
kontakty sa dostanes napr. takto:
procedure TForm1.Button1Click(Sender: TObject);
const
olFolderContacts = 10;
var
Outlook, Contacts, Contact : Variant;
i : Integer;
begin
Outlook := CreateOleObject('Outlook.Application');
Contacts :=
Outlook.GetNameSpace('MAPI').GetDefaultFolder(olFolderContacts);
for i := 1 to Contacts.Items.Count do {index zacina 1}
begin
Contact := Contacts.Items.Item(i);
{Contact je typu ContactItem, vid Help}
ListBox1.Items.Add(Format('%s (%s)', [Contact.FullName,
Contact.Email1Address]));
end;
end;
Princip je myslim jasny. Pripadne si skus naimportovat type library
MSOUTL8.OLB.
Ondrej Kelle
kelleon(zv)nnsk.sk
> -----Original Message-----
> From: Rul�eek Daniel [SMTP:dan.r(zv)avizo(tec)cz]
> Sent: Monday, September 14, 1998 11:04 AM
> To: DELPHI Distribution List
> Subject: MS Outlook
>
> Zdravim Vas vsechny. Potreboval bych poradit s nasledujicim problemem.
> Musim udelat program, ktery by mel pracovat s kontaky v Outlooku.
> Bohuzel jsem nikde nenasel popis funkci nebo objektu. V helpu je jenom
> to, ze muzu pouzit asi 30 objektu a nic vic (nebo jsem nic vic nenasel).
> Nedelali jste nekdo neco podobneho?
>
> diky za kazdou radu
> Dan
Delphi 2 a Btrieve
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 14.9.1998 13:50:49
Zdravim,
lze pristupovat napr. pres ODBC drivery.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Milan Scho�ovsk�
> Odesl�no: 14. z��� 1998 9:22
> Komu: DELPHI
> P�edm�t: Delphi 2 a Btrieve
>
> Dobre jeste rano,
>
> mate nekdo zkusenost s Delphi 2 a Btrieve na Novellu. Lze
> pristupovat k
> databazim na Btirieve pomoci Delphi?
>
> Diky Krtek
>
> krte(zv)jd(tec)cz
Delphi 2 a Btrieve
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 14.9.1998 13:56:11
Ahoj,
z Delphi lze pristupovat do BTrieve nekolika zpusoby. 1/ Lze pres
ODBC (+BDE) ovladac //nezkousel jsem, ale ODBC ovladace pro verse do 5
dodaval primo NOVELL, kdyz mu patrila firma produkujici BTrieve// nebo 2/
pres DOSovsky program BTrieve (bez BDE) a pomocny ovladac, ktery je
prilinkovany k Delphi EXE //tohle mi funguje// nebo 3/ pres primy ovladac
napriklad Titan BTrieve (prodavalo ho APRO i se zdroji, kter� fungoval ve
vsech versich Delphi, ale myslim ze potreboval verzi BTrieve vyssi jak 5).
Jaro micrel(zv)micrel(tec)cz
> -----P�vodn� zpr�va-----
> Od: Milan Scho�ovsk� [SMTP:krtek(zv)jd(tec)cz]
> Odesl�no: 14. z��� 1998 9:22
> Komu: DELPHI
> P�edm�t: Delphi 2 a Btrieve
>
>
>
> Dobre jeste rano,
>
> mate nekdo zkusenost s Delphi 2 a Btrieve na Novellu. Lze pristupovat k
> databazim na Btirieve pomoci Delphi?
>
> Diky Krtek
>
> krte(zv)jd(tec)cz
> Nenapadny puvab multithreadingu
[*] Peter Arbet <arbet(zv)px.psg.sk> - 14.9.1998 14:10:06
-----Original Message-----
From: Martin Nedopil <nedopil(zv)eskon(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 14. september 1998 10:32
Subject: Re: Nenapadny puvab multithreadingu
.
.
.
.
>doporucuji dat Sleep(0) coz zpusobi jen prepnuti bez cekani. Ja se spise
>bojim
>toho indikatoru CPU, ktery takto ukazuje 100%. Nerad bych, aby mi zase
>uzivatele
>hodili na hlavu, ze muj 32bit program jim sezral veskery vykon.
>
>Martin
Hi.
Pre takychto "uzivatelov" mam jednoduchy priklad. Vo Win 98 pustim
System Monitor, kde sa da sledovat zatazenie CPU v %. Nastavim
Options/Chart - Update Interval na 1 sekundu. Potom sa kurzorom presuniem na
systemove ikony okna (Minimize, Maximize, Close) a pockam, kedy zacne
naskakovat "plavajuca" napoveda. Vtedy staci behat kurzorom mysi po tychto
troch ikonkach, aby sa napoveda stale objavovala a stracala. V urcitych
okamihoch bude Processor Usage ukazovat zatazenie nad 50%. S takymto
prikladom snad presvedcis uz kazdeho uzivatela, nech si z toho ukazatela moc
tazku hlavu nerobi.
Btw. takyto vysledok sa da dosiahnut na Intel Pentium 233 MMX, 64 MB RAM
a priemerne rychlej graf. karte.
S pozdravom
RAZIIARS of Aqabin
e-mail:
arbet(zv)px.psg.sk
arbet(zv)fred.utc.sk
Kurs tvorby napovedy 3
[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 14.9.1998 14:38:30
Pratele, jsem opet zde s dalsim pokracovanim. Tentokrat o tematech cili
topicich.
Tema neboli topik obsahuje vse, co se ma v helpu objevit najednou v okne.
Tedy texty, odkazy na jina temata (tzv. citliva mista), obrazky (grafiku),
obrazky s citlivymi misty (segmentovanou hypergrafiku) a ve Windows 95 nove
i tlacitka. O nekterych zasadach psani temat tak, aby jejich obsah byl pro
uzivatele uzitecny jsem se uz zminil minule. Nyni se budu venovat hlavne
konstrukci temat.
Topik = jedna stranka ve Wordu. Mysli se tim stranka vynucena, tedy
ukoncena tzv. tvrdym koncem stranky (viz. polozka Zalomeni z menu Vlozit).
Mekky konec stranky nema na strukturu topiku vliv. Nyni je teoreticky mozne
pouzit pro topiky ruzne fonty ale prakticky se pouziva jen MS Sans Serif a
ostatni pouzite fonty se na tento prevadeji v Help Workshopu (viz. Options
- Fonts). Tim je zarucena citelnost a rozumna velikost pisma. Ja napr.
pouzivam ve Wordu font Arial CE, ktery pak help compiler nahrazuje fontem
MS Sans Serif. Je take dobre se vyhybat sikmemu pismu (kurzive), ktere je
hure citelne.
Text, rolujici a nerolujici cast topiku
Na zacatku topiku je obvykle nadpis, ktery pokud zformatujete jako odstavec
s tokem textu svazanym s dalsim, bude v okne helpu tvorit tzv. nerolujici
cast. Ta muze mit jeden nebo vice radku a je od druhe rolujici casti
oddelena carou prip. barevne odlisena. V topiku je mozne mit pouze jednu
nerolujici cast, ktera musi byt zasadne pred casti rolujici (ne naopak).
Rolujici cast je v topiku vzdy, nijak se nedefinuje. V textu topiku lze
obarvovat pismo, ne vsak pozadi. Formatovani jake pouzijete ve Wordu se
objevi mozna i v helpu. Rikam mozna a vim o cem mluvim. Ze zkusenosti
doporucuji nastavit si meritko zobrazeni v bodech a pak zkouset a pocitat.
Odsazeni odstavce, prvniho radku, vzdalenost odrazky velikost tabulatoru.
Nekdy da velkou praci vyladit jeden styl. Pak na zkousku zmenite v helpu
velikost pisma a vsechno jde vnivec. Pokud kombinujte text s obrazky (napr.
jako odrazky, protoze ty co dela Word jsou desne), vezte, ze se zvetsenim
pisma (v helpu, ne ve Wordu) se obrazky ani odsazeni nezmeni. Pro bezny
text se doporucuje velikost pisma 8 a radkovani pevne 12 bodu.
Tabulky a cary
V textu topiku muzete pouzit tabulku, ale pouze holou bez car. Da se vyuzit
i kombinace ruznych rozmeru bunek a respektuje se i formatovani textu v
bunkach. Toho lze nekdy vyuzit k prekryvani napr. obrazku textem. Zvlastni
vlastnosti tabulky je, ze text vrapuje podle rozmeru bunek. Pokud tedy
udelate tabulku sirsi nez okno, bude treba helpem vodorovne rolovat. Dalsi
a uz patrne jediny zvlastni efekt Wordu, ktery lze pouzit, je vodorovne
ohraniceni odstavce, kterym lze realizovat oddelovaci caru. Ostatni je
nutne resit vkladanymi obrazky.
Obrazky
Primo do textu topiku lze vkladat obrazky. Musi byt ve skutecne velikosti a
nejlepe sestnactibarevne. Pak odpadaji problemy se zobrazenim na ruzne
nastavenych displejich. Obrazek vlozeny ve Wordu ma vyhodu, ze je videt v
dobe editace. Kvuli uspore mista je ale lepsi pouzit importovaci prikaz.
Ten ma tvar: {bm?? Obrazek.bmp} Na miste prvniho otazniku se dosadi jedno
ze tri pismen l, r, nebo c. Obrazek je pak umisten na radku vlevo, vpravo
nebo v miste pouziti prikazu. Misto druheho otazniku se muze zapsat pismeno
t. To pak znamena, ze vsechna bila barva v obrazku bude transparentni
(napr.: {bmct sipka.bmp}). Normalne text vlozeny obrazek obteka. Zvlastni
efekty (obrazek jako pozadi) se delaji tak, ze se importovaci prikaz
obrazku umisti do prvni bunky tabulky a text do druhe. Bunka s obrazkem se
udela siroka prave jeden znak. Pak uz zbyva jen doladit odsazeni a
predsazeni, aby byl obrazek jako pozadi pres cele okno. Pro vkladani
segmentovane hypergrafiky (soubory SHG) plati stejna pravidla. Pokud
udelate chybu a vlozeny obrazek neexistuje, help compiler chybu vyhlasi a v
postizenem miste se objevi implicitni obrazek - letecky pohled na kouzelnou
krajinu. Je velmi potesujici nachazet je v helpech profesionalu z dilen
svetovych firem :-) Vkladate-li obrazky do radku, je treba je zmensit na 11
bodu vysky, aby text nerozbily.
Citliva mista
Citliva mista jsou prvky, ktere s trochou nadsazky udelaji z textu
hypertext. Obsahuji odkazy na jine topiky. Jak to funguje kazdy vime, tedy
jak se to dela. Jsou dva druhy citlivych mist: Jump a Popup. Jump vede k
zobrazeni topiku v temze okne (nebo jinem), tedy ke skoku na jiny topik.
Vznikne tak, ze se pozadovany text nebo obrazek (ci importovaci prikaz
obrazku) oznaci jako dvakrat podtrzeny. Popup citlive misto vznikne
jednoduchym podtrzenim pozadovaneho. Nedojde k opusteni aktualniho topiku
ale jen k zobrazeni pozadovaneho topiku v popup okne. Za oznacenym
(podtrzenym) textem nasleduje bez mezery identifikator topiku (ID), ktery
se ma zobrazit a dale pak znak (zv) a jmeno helpoveho souboru (lze vynechat
pokud se cilovy topik nachaci v temze HLP souboru jako vychozi) > a jmeno
okna, v nemz se ma novy topik zobrazit (lze vynechat jedna-li se o totez
okno a je treba vynechat, jedna-li se popup skok). To vse bez mezer a vse
oznaceno jako skryty text. Misto ID topiku muze figurovat vykricnik a makro
nebo makra oddelena strednikem. Ta maji ovsem obvykle okno a HLP soubor
jako parametr. Takto upravene citlive misto se zobrazi standardne (zelene a
podtrzene plne nebo carkovane). Uzivatele vedi, ze se na ne da kliknout
nebo tabulatorem umistit fokus. Menit tyto konvence se tedy doporucuje jen
v oduvodnenych pripadech (napr. skoky na internetove adresy, ktere jako
citliva mista byvaji nejcasteji modre). Pokud si tedy prejete ovlivnit
zobrazeni citliveho mista, muzete mezi text citliveho mista a ID topiku (do
skryteho textu bez mezer) vlozit znak:
% - citlive misto bude mit barvu textu helpu a nebude podtrzene
* - citlive misto bude mit barvu jakou mu date a bude podtrzene
Pri oznacovani textu jako skryteho davejte dobry pozor, abyste neoznacili
jako skryty i konec odstavce. Help Compiler pak hlasi varovani a nezridka
velmi obtizne se takto postizene misto hleda (bodejt ne, kdyz je skryte
:-).
Identifikatory
Nazval jsem tak skupinu udaju, ktere se k topikum pripojuji jako poznamky
pod carou a ktere teprve z wordovskeho textu udelaji helpovy topik.
Skutecnym identifikatorem je vsak pouze jeden z nich. Poznamky pod carou se
vkladaji ve Wordu volbou Poznamka pod carou z menu Vlozit. Je dobre si dat
pozor na nastaveni Wordu respektive jeho kouzelnickych schopnosti. Jinak
vam bude vkladat za nektere znaky (pohrichu prave za nektere znacky
poznamek pod carou) tvrde mezery a vzniknou zajimave chyby, ktere, dokud
neni znam jejich puvod, mohou rozcilit i velmi otrleho programatora ve
Windows. Poznamky pod carou se vkladaji obvykle na zacatek topiku a obvykle
po jednom exemplari do kazde pozadovane (vyjimky vysvetlim). Vkladaji se
bez mezery nebo od prvniho znaku textu topiku oddeleny jednou mezerou,
ktera se dosadi automaticky (tvrda :-). Na poradi nezalezi, ale je vhodne
pro pozdejsi snadnou orientaci dodrzovat ustalene poradi (napr.
nasledujici):
#
Identifikator topiku (ID topiku). Je povinny; na nej se odkazujete v MAP
sekci HPJ souboru, ve vsech skocich z citlivych mist a z obsahu (CNT), v
nekterych makrech a segmentovane hypergrafice. Jeho syntax neni nijak
omezena. Smi byt libovolne delky, obsahovat i diakritiku a mezery. Pouze v
starsich verzich editoru segmentovane hypergrafiky bylo omezeni, ze nesmel
obsahovat diakritiku a mezery. Je vyhodne, zacina-li ID topiku tremi znaky
IDH_, nebot v tomto pripade help compiler kontroluje jeho pritomnost v
sekci MAP. Nestane se vam potom, ze byste na nejaky topik zapomneli nebo
zkomolili jeho identifikator. (Takove chyby se jinak odhali az skokem na
neexistujici odkaz.) Jina specialni syntax se vyzaduje, pokud ohelpovavate
dialogy. Pri programovani v Delfi se toho nevyuzije, nebot cistokrevne
dialogy se, nemylim-li se, nepouzivaji. Na vsechno jsou formy.
$
Titul topiku. Je povinny pouze pokud zaroven pouzijete K nebo A poznamku
pod carou. Smi obsahovat libovolny text. Zobrazuje se jako polozka nabidky
pri vyberu z rejtriku, nebo ve spojeni s Alink a Klink makry.
K
Uvedete-li k topiku K-poznamku pod carou, doplni se automaticky do
rejstriku, pricemz text K-poznamky bude tvorit heslo v rejstriku. Lze k
jednomu topiku pripojit i vice ruznych hesel (oddeluji se strednikem).
Pokud uvedete stejne heslo k vice topikum, pak kliknete-li na toto heslo v
rejstriku, objevi se nabidka vsech topiku s timto heslem (viz $-poznamka
pod carou). Stejna nabidka se objevi spustite-li KLink makro s timto
heslem. Rejstrik muzete pripravit dvouurovnovy. Zde je treba presne dodrzet
pozadovanou syntax a skutecnost (ktera neni nikde uvadena), ze heslo prvni
urovne nesmi u zadneho topiku figurovat jako samostatne. Jinak nebudete s
vysledkem spokojeni. Priklad:
Topik 1
zarizovaci predmety;zarizovaci predmety, okna; vyplne otvoru;vyplne otvoru,
okennich; okna
Topik 2
zarizovaci predmety;zarizovaci predmety, dvere; vyplne otvoru;vyplne
otvoru, dvernich; dvere
Vysledny efekt:
dvere
okna
vyplne otvoru
dvernich
okennich
zarizovaci predmety
dvere
okna
Pokud chcete mermomoci v rejstrikovem heslu pouzit carku nebo dvojtecku,
musite v HPJ souboru provest redefinici techto default oddelovacu na jine
znaky, ktere jinak nepouzivate. Uvadi se, ze toho lze vyuzit i k ovlivneni
poradi hesel druhe urovne, ktere je jinak tvrdosijne abecedni. Myslim, ze
jsem to kdysi zkousel, ale bez zadaneho efektu.
A
A-poznamka pod carou se pouziva podobne jako K-poznamka, ale nefiguruje v
zadnem rejstriku. Vyuziti je tedy k tvorbe seznamu pribuznych topiku, ktery
se vyvolava pouze Alink makrem. Dalsim pouzitim je testovani pritomnosti
helpu. Jeden topik oznacite A-poznamkou pod carou a volanim ALink makra se
specialnim parametrem se dosahne, ze misto seznamu nebo skoku vrati true
nebo false. To je uzitecne pri dynamickem slucovani vice helpu. Je to
vyhodnejsi nez proste testovani pritomnosti souboru, nebot se nemusite
starat o jeho presnou lokalizaci na disku.
+
Touto jinak nepovinnou poznamkou pod carou definujete listovaci (browse)
sekvence. Vsechny + poznamky pod carou oznacene stejnym slovem se slouci do
jedne browse sekvence. Pro vyuziti je treba povolit v definici okna helpu
browse tlacitka. Neni nutne, aby topiky sdruzene do browse sekvenci ve
Wordu nasledovaly nepretrzite za sebou. Pokud si prejete jine poradi nez
prirozene (tedy takove v jakem jste topiky seradili ve Wordu), musite
browse heslo vybavit poradovym cislem oddelenym dvojteckou (napr.
postup:001).
!
Vykricnikova poznamka uvozuje vstupni makro (nebo makra oddelena
strednikem), ktere se provede vzdy pri zobrazeni topiku. Vyuziti a
prikladum se budu venovat az v kapitole o makrech.
*
Hvezdickovou poznamkou se oznacuji topiky pro podminene zarazeni do HLP
souboru. To v kombinaci s BUILD TAGS sekci HPJ souboru. Pro tuto moznost
jsem ve svych helpech nenasel uplatneni. Jestli tomu dobre rozumim, tak
pouhou zmenou v BUILD TAGS sekci lze ziskat helpy obsahujici ruzne topiky.
Neco jako staticke linkovani.
>
Touto poznamkou se smeruje zobrazeni topiku do urciteho okna. Za znacku se
uvadi jmeno okna. Nyni jiz mohu s temer klidnym svedomim konstatovat, ze
tato poznamka je nefunkcnim reziduem minulych verzi WinHelpu. Pokud si
prejete zobrazit topik v jinem nez prave otevrenem okne, je nutne smerovani
ucinit jiz ve stadiu volani topiku, tedy v citlivem miste, jak bylo uvedeno
vyse resp. parametrem v makru. Tento postup presmerovani se pouziva i v
obsahu (CNT souboru).
Jak jsem predeslal, mohou se poznamky pod carou vyskytovat nejen na zacatku
topiku. Umistovat je nekam jinam ma ovsem smysl patrne pouze v jednom
pripade. Pri tvorbe tzv. prehledovych temat. Prehledove tema je topik,
ktery obsahuje jakysi prehled nebo seznam skoku na ruzna mista jineho velmi
dlouheho topiku a ma pouze usnadnit listovani timto topikem. Samotny
prehledovy topik je realizovan obvykle popup oknem, takze jakmile se klikne
na citlive misto, realizuje se skok na prislusny radek dlouheho topiku
(oznaceny samostatnym ID) a popup okno se zavre). Dlouhy topik se pak
zobrazi tak, ze jmenovany radek se zvlastnim ID bude jako prvni v okne.
Otevirani prehledoveho tematu je zajimave pomoci makra napojit na tlacitko
v tlacitkove liste okna. Ale nic nebrani tomu dat jeho zobrazeni na citlive
misto nebo mista primo v dlouhem topiku. Je zajimave, ze tato konstrukce
(skoky na ruzna mista jednoho topiku) nefunguje, pokud se pokusite na
vnitrni ID topiku skocit z jineho nez prehledoveho topiku. Skok se podari,
ale topik se zobrazi stejne od zacatku. Myslim, ze prehledova temata nejsou
az tak pouzivana, takze priklad zaslu cilene na pozadani.
Preji hodne dobrych napadu pri psani temat.
Vilda Svoboda
E-Mail: vilem_s(zv)mrp(tec)cz
MS Outlook
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 14.9.1998 14:41:07
Hi,
no, az ti na tohle nekdo odpovi, a bude to pouzitelny, tak mi dej prosim
vedet......
zkousim to taky (dost dlouho) asi to neumim...
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: Rul��ek Daniel [SMTP:dan.r(zv)avizo(tec)cz]
> Odesl�no: 14. z��� 1998 11:04
> Komu: DELPHI Distribution List
> P�edm�t: MS Outlook
>
> Zdravim Vas vsechny. Potreboval bych poradit s nasledujicim problemem.
> Musim udelat program, ktery by mel pracovat s kontaky v Outlooku.
> Bohuzel jsem nikde nenasel popis funkci nebo objektu. V helpu je jenom
> to, ze muzu pouzit asi 30 objektu a nic vic (nebo jsem nic vic
> nenasel).
> Nedelali jste nekdo neco podobneho?
>
> diky za kazdou radu
> Dan
SQL Server 6.5 na CD-ROM
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 14.9.1998 15:02:14
Jde to.
-----P�vodn� zpr�va-----
Od: Martin UHER [SMTP:tlanik(zv)zvt.csas(tec)cz]
Odesl�no: 14. z��� 1998 14:59
Komu: 'DELPHI Distribution List'
P�edm�t: RE: SQL Server na CD-ROM
Jde to i pro MS SQL Server 6.5
Martin UHER
-----Original Message-----
From: Ladislav Nagy [mailto:lada(zv)kolej.mff.cuni(tec)cz]
Sent: Friday, September 11, 1998 12:16 PM
To: DELPHI Distribution List
Subject: Re: SQL Server na CD-ROM
Ahoj,
MS SQL Server pouziva pro vysledky vsech dotazu a mezivysledky ulozenych
procedur specialni databazi (ta musi byt na HDD) a nevadi tedy, ze potrebna
databaze (*.mdf) je na CD (a tedy read-only).
Pak jeste zbyva nasmerovat nekam jinam (nez na CD) transactionlog file
(*.ldf).
Zkusil jsem si pod MS SQL 7.0 B3 databazi nastavit vse potrebne a klast
nejake jednoduche dotazy. Vysledkem bylo, ze datum posledni modifikace
souboru s databazi (*.mdf) se nezmenil.
CD s MS SQL 7.0 B3 lze poridit zdarma pres Microsofty.
Ladislav Nagy
lada(zv)kolej.mff.cuni(tec)cz
> Ahoj,
>
> lze nejak zaridit, aby nejaky SQL Server pracoval,
> pokud je databaze ulouena na CD-ROM, tedy chranena
> proti zapisu? Asi ne, co?
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
SQL - vyber dle datumu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 14.9.1998 15:11:04
Hi,
necitim se byt odbornikem na SQL, nicmene bych rekl, ze zalezi na
formatu. Jaky je format data na tom SQL serveru, a jaky se tam snazis
vlozit. Jsou stejne?
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: info(zv)saton(tec)cz [SMTP:info(zv)saton(tec)cz]
> Odesl�no: 14. z��� 1998 12:54
> Komu: DELPHI Distribution List
> P�edm�t: Re: SQL - vyber dle datumu
>
> Zapomnel jsem tam uvest, ze je jedna o SQL.Add.
>
> Zapis:
>
>
> Dnes := FormatDateTime('d.m.yyyy', now);
> ...
>
> ...
> SQL.Add(' where Datum="'+Dnes+'"'); { mne zahlasi chybu typu. V cem
> delam
> chybu? }
> ...
>
> ----------------------------------------------------------------------
> ------
> ---------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Jan Fiala <fiala(zv)iname.com>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 14. z��� 1998 12:23
> P�edm�t: Re: SQL - vyber dle datumu
>
>
> pokud datum pouzivas jako parametr, tak to jde normalne pres
> Query.ParamByName('Datum').AsString := MaskEdit.Text; nebo
> Query.ParamByName('Datum').AsDate := StrToDate(MaskEdit.Text);
>
> Pokud si skladas select tak
> Query.SQL.Add('Datum = "' + MaskEdit.Text + '"'); ta hodnota
> musio byt
> v uvozovkach (nebo v apostrofech, pokud mas cely string v uvozovkach )
>
> 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: SATON Glass s.r.o. <info(zv)saton(tec)cz>
>
>
> Zdravim,
> vim ze se o tom v konferenci uz debatovalo, ale nepodarilo se
> mi to
> v
> archivu najit.
> Mam Pdox databazi a v ni polozku typu Date. Potreboval bych v
> SQL
> dotazu dle
> teto polozky vybirat. Nedari se mi.
> Je to zajimave, jak si uvedomuji nikdy jsem zatim test dle
> celeho
> datumu
> nepotreboval. Vzdy mne stacil jen dotaz na rok.
> Diky za kazdou radu.
> Kuba
>
> SQL - vyber dle datumu
[*] REAiA consulting <contact(zv)reaia(tec)cz> - 14.9.1998 15:15:41
SQL bohuzel umi jen anglicky datum, tj. 'm.d.yyyy'.
Jiri Becvar
-----P�vodn� zpr�va-----
Od: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 14. z��� 1998 14:52
P�edm�t: Re: SQL - vyber dle datumu
>Zapomnel jsem tam uvest, ze je jedna o SQL.Add.
>
>Zapis:
>
>
>Dnes := FormatDateTime('d.m.yyyy', now);
>...
>
>...
>SQL.Add(' where Datum="'+Dnes+'"'); { mne zahlasi chybu typu. V cem
delam
>chybu? }
>...
>
>---------------------------------------------------------------------------
-
>---------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Jan Fiala <fiala(zv)iname.com>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 14. z��� 1998 12:23
> P�edm�t: Re: SQL - vyber dle datumu
>
>
> pokud datum pouzivas jako parametr, tak to jde normalne pres
> Query.ParamByName('Datum').AsString := MaskEdit.Text; nebo
> Query.ParamByName('Datum').AsDate := StrToDate(MaskEdit.Text);
>
> Pokud si skladas select tak
> Query.SQL.Add('Datum = "' + MaskEdit.Text + '"'); ta hodnota musio
byt
>v uvozovkach (nebo v apostrofech, pokud mas cely string v uvozovkach )
>
> 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: SATON Glass s.r.o. <info(zv)saton(tec)cz>
>
> Zdravim,
> vim ze se o tom v konferenci uz debatovalo, ale nepodarilo se mi to
>v
> archivu najit.
> Mam Pdox databazi a v ni polozku typu Date. Potreboval bych v SQL
>dotazu dle
> teto polozky vybirat. Nedari se mi.
> Je to zajimave, jak si uvedomuji nikdy jsem zatim test dle celeho
>datumu
> nepotreboval. Vzdy mne stacil jen dotaz na rok.
> Diky za kazdou radu.
> Kuba
>
>
>
" Hint okno "
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 14.9.1998 15:31:21
Ahoj,
muzete mi prosim nekdo poradit, jak udelat nasledujici trivialni vec ?
Chtel bych, aby se mi pri najeti mysi na tlacitko objevilo okno ( vim,
pouziji OnMouseMove a Form.Show )
a aby to okno zase zmizelo, kdyz s mysi odjedu mimo tlacitko nebo ono okno (
to uz prave nevim ).
Neco jak Hint, ale misto bubliny bych chtel mit okno.
Diky
Vasek
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
RX - datum
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 14.9.1998 16:00:55
Hi,
to je ale opravdu velke nedorozumneni, jde o zdroje od RX, nikoliv od
komponent Borlandu!
I tak bych ti doporucil ty komponenty od Bourmada Mehdiho. Porovnaval
jsem je, a nenasel jsem nic, co by bylo v tomto smeru v RX lepsi (jinak
je RX squela vec)...
Nemas-li a chces-li, mohu poslat.
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: info(zv)saton(tec)cz [SMTP:info(zv)saton(tec)cz]
> Odesl�no: 14. z��� 1998 12:55
> Komu: DELPHI Distribution List
> P�edm�t: Re: RX - datum
>
> Diky za rady. Mam jen standard verzi, takze budu muset jit tou mene
> schudnou
> cestou.
> Diky vsem.
> Kuba
> ----------------------------------------------------------------------
> ------
> ---------------------------------
> SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn�
> techniky
> Klicperova 26, Brno, 628 00 �R
> Tel.:+420 5 44217819 Fax.:+420 5 44217529
> Mob:+420 603 429505
> mail: info(zv)saton(tec)cz
> ----------------------------------------------------------------------
> ------
> ---------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
> Datum: 14. z��� 1998 12:43
> P�edm�t: RE: RX - datum
>
>
> Ahoj
> nazvy mesicu jsou v systemovych souborech RES Delphi. Pokud mas
> zdrojove soubory, pak je muzes primo pocestit (v RS - resource
> scriptech)
> jinak musis pouzit Resource Workshop a pocestit je jako stringtables
> (jde to
> ale je to hruza). Stingtables jsou v Sysutils.Res a cisla jsou 65504
> az
> 65517 (tak to mam ja).
>
> Jaro B. micrel(zv)micrel(tec)cz
>
> Osahani procesu po siti
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 14.9.1998 17:36:22
At 11:15 14.9.1998 +0200, you wrote:
>resime momentalne problem: na pocitacich v siti bezi nekolik (nasich)
>programu. Jde jen o to, aby uzivatel mohl v siti spustit jen tolik
>programu, kolik si zakoupil licenci. Tusite nekdo, co s tim ? (Resime to
>sice v C++, ale i reseni v Delphi snad bude mit svou cenu).
V jake siti to je ? (Protokol) Nebo to ma byt nezavisle ?
V TCP/IP sitich bych doporucoval rozesilat bradcasty, kterymi se budou
aplikace navzajem hlidat (to plati pro jednosegmentove site), nebo nekde
spustte server, ktery to bude hlidat spolecne pro vsechny dohromady...
S. Kolar (standa(zv)winroute.com)
Volani preruseni ve W95
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 14.9.1998 17:45:27
Ahoj,
nevite nekdo, jak se volaji preruseni ve W95 a Delphi ?
Jedna se mi konkretne o volani PCI biosu, t.j. preruseni 1A, funkce B1.
Dekuji
Vaclav Sazima
Nenapadny puvab multithreadingu
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 14.9.1998 18:52:00
Na tom neni nic divnyho, ze se to chova tak divne. Ty indikatory zateze
rozumne udelat nejdou, vzdycky jsou trochu osvindlovane. Napriklad na Linux lze
napsat program, ktery sice zere skoro 100% CPU, ale pocita se mu jen velice
malo.
Michal Kara alias lemming
Runtime Error
[*] heinisch(zv)post(tec)cz - 14.9.1998 19:05:03
procedure TfoParametry.UvolniImage;
Var
b:integer;
begin
for B := 0 to (ListView1.Items.Count - 1) do
begin
if ListView1.Items[B].data<> nil then
TImage(ListView1.Items[B].data).Free;
ListView1.Items[B].data:=nil;
end;
Pri uvolnovani objektu touto metodou se pri ukonceni aplikace objevi chybova
hlaska
s textem
"Exception EAccessViolation in module VCL30.DPL at FFFFF017"
" Access violation at adress 00000017. Write of address F010F818"
A ja nikde v programu nezapisuju do techto uvolnenych objektu
Do doby ukonceni programu se objekty uvolni a nic se nedeje.
Nikde v programu jiz zadny kod nemam ktery by po zruseni objektu na nej
sahal.
Achjo a tak to vypadalo krasne
HeiJu Diky
P.S. Uz jsem na to prisel /aspon doufam/
Nesmi se pouzit TImage a u nej pouzivat TPicture ale primo TPicture.Create
a TPicture.Free
hlaska je pryc a pamet to uvolnuje.
Pisu to jen pro pripad kdyby s tim nekdo v budoucnu potykal a sel se podivat
do archivu.
Osahani procesu po siti
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 14.9.1998 19:11:14
Jestli se nepletu tak tohle by mela umet knihovna OnGuard od TurboPower.
viz http://www.turbopower(tec)cz
nebo v prijemnejsi cestine na
http://www.clexpert(tec)cz/software/turbopower/onguard.asp
Mac
Petr Brant wrote:
>
> Ahoj vsem,
>
> resime momentalne problem: na pocitacich v siti bezi nekolik (nasich)
> programu. Jde jen o to, aby uzivatel mohl v siti spustit jen tolik
> programu, kolik si zakoupil licenci. Tusite nekdo, co s tim ? (Resime to
> sice v C++, ale i reseni v Delphi snad bude mit svou cenu).
>
> Diky za vsechny napady a odpovedi
>
> *************************************************************************
> Petr Brant [pbrant(zv)softhome.net]
> programator v MSVC++, obcas Delphi nebo Visual Basic
> *************************************************************************
--
==============================================================
= 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 =
==============================================================Delphi 2 a Btrieve
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.9.1998 19:42:42
> mate nekdo zkusenost s Delphi 2 a Btrieve na Novellu. Lze pristupovat k
> databazim na Btirieve pomoci Delphi?
Pervasive software prodava ODBC driver, pokud uz ho nemas.
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 ===
==============================================================Osahani procesu po siti
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.9.1998 19:42:43
> resime momentalne problem: na pocitacich v siti bezi nekolik (nasich)
> programu. Jde jen o to, aby uzivatel mohl v siti spustit jen tolik
> programu, kolik si zakoupil licenci. Tusite nekdo, co s tim ? (Resime to
> sice v C++, ale i reseni v Delphi snad bude mit svou cenu).
Lze to velmi jednoduse vyresit pomoci knihovny OnGuard, ktera na to
ma primo jednu komponentu (mimo dalsich ochran). Pracuje pod
Delphi 1-4 a C++ Builder 1,3. Podrobny popis, trial verze a dalsi
informace zde:
http://www.clexpert(tec)cz/software/turbopower/onguard.asp
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 ===
==============================================================SQL - vyber dle datumu
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 14.9.1998 21:26:43
Jo, jo, jo,
SQL.Add(SQLPrefix+' C.DPripPl=:Datum');
ParamByName('Datum').AsDateTime:=StrToDate('14.9.1998');
..... konecne funguje. V tomhle tvaru se mne bude delat i podminka mnohem
lepe.
Diky vsem! :-)))))))))))))
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - sluzby v oblasti programov�n� a v�pocetn� techniky
Klicperova 26, Brno, 628 00 CR
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Dusanic Lubos <lubos(zv)iname.com>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 14. z��� 1998 19:28
P�edm�t: Re: SQL - vyber dle datumu
>>
>> Dnes := FormatDateTime('d.m.yyyy', now);
>> ...
>>
>> ...
>> SQL.Add(' where Datum="'+Dnes+'"'); { mne zahlasi chybu typu. V cem
delam
>> chybu? }
>> ...
>>
>
>najprv si musis zistit, ci tvoja databaza podporuje uvodzovky (") alebo
>apostrofy ('). a potom, aky format datumu je nastaveny v databaze - ak je
tam
>napr. yyyymmdd, tak potom horeuvedena kombinacia je samozrejme chyba ...
>
>preto je ovela istejsie postupovat nasledovne:
>query.sql.add('where datum=:datum');
>query.parambyname('datum').asdatetime:= ...;
>
>v tom pripade potom nezalezi na formate datumu, uvodzovkach/apostrofoch,
...
>
>lubos dusanic
>DMA & Win95 ... + vyvoj VxD ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.9.1998 21:27:47
Stanislav Kolar wrote:
> >obavam se ze jedina moznost je pomoci napsani VxD k danemu ucelu. Je to
> podobny
> >problem jako pristup k paralenimu portu pro jinou komunikaci nez s tiskarnou.
> >Psani VxD neni nijak jednoducha zalezitost. Existuji sice jakesi
> "univerzalni"
> >drivery ktere lze pak nastavovat programove
>
> A to vypada jak ? Jake univerzalni drivery mas na mysli ?
Napriklad Driver::Agent od Vireo (http://www.vireo.com). Jedna se o jakysi
"programovatelny" driver ktery lze pouzit z vetsiny dnesnich vyvojovych prostredi.
> > Mam zde priklad jednoducheho VxD
> >ktery sice umi jen "ukrast" LPT port, ale patrne by sel rozsirit i o dalsi
> >jednoduche funkce. Umistil jsem jej sem:
> >ftp://ftp.mlp(tec)cz/misc/Delphi/konference/Other/MSVC/HAZZAH.ZIP
>
> Nejak se tam nemohu dostat ?
Poslu ti to malilem....
> Co a jak to dela ? Tipnul bych si, ze jen zahookuje volani driveru
> paralelniho portu via Hook_Device_Service (coz je ovsem zalezitost od
> ovladani DMA dost vzdalena ;-)
To ano...
--
Petr Vones, amatersky programator
Sireni COMCTL32.DLL (Was: Nulova hodnota Date)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.9.1998 21:29:59
Milan Schembera wrote:
>
> > > > > 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).
> > > >
>
> Nevyhoda spociva prave v tom, ze ji MUSI sirit, pokud nema jistotu, ze na
> cilovem pocitaci je. Tvrdis, ze nejakejch 400kB se v megabajtech BDE
> ztrati, ale co kdyz budu chtit distribuovat program, kterej bude mit radove
> 150kB, to uz je pak 400kB pekne dost navrch ...
Nevim proc z toho delas takovou desnou katastrofu, napriklad inslalace asi 270k
aplikace plus COMCTL32.DLL ma v InstallShieldu okolo 1M, takze se ti v pohode
vejde i na disketu. Navic se nekdy podivej co vsechno se distribuuje s vetsimi
aplikacemi, kolik knihoven je tam obvykle "zbytecne" pribaleno.
--
Petr Vones, amatersky programator
Asociace souboru s aplikaci
[*] micrel <micrel(zv)bohem-net(tec)cz> - 14.9.1998 21:34:10
Ahoj,
Podarilo se mi ud�lat procedury, ktere dokazi zaregistrovat soubor podle
extense a priradit ICO. Jediny problem nicmene zustava. Odstranuji-li
zaregistrovanou extensi, vse se zrusi tj. i registrovana extense, ale
soubor v pruzkumnikovi si podrzi moji ikonu. Je potreba dat nejakym
zpusobem ( poslat zpravu... ) vedet ostatnim programum po odstraneni, aby
byla moje ikona nahrazena defaultni ikonou Windows? Tento problem se mi
nepodarilo vyresit. Dekuji dopredu za pripadnou radu.
Jaro B. micrel(zv)micrel(tec)cz
bsDialog okno a TMenu - UZ NENI CO RESIT
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 14.9.1998 21:59:16
Ahoj,
uz skutecne neni co resit. To co poradil P. Vones
jsem vyzkousel (SetMenu()) a jje to bez problemu.
Bohuzel jsem asi slepy, protoze jsem na ten prikaz
urcite uz nekdy v API koukal.
Jeste jednou dik PM, spiderland(zv)usa.net
-----P�vodn� zpr�va-----
Od: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 14. z��� 1998 12:15
P�edm�t: RE: bsDialog okno a TMenu
Hi,
zase nekdo, koho bavi kydat hnuj na Windows!
cti poradne, nejedna se o chybu, ale o nedostatek prepinacu v
CreateWindow. Proto byla zavedena funkce CreateWindowEx
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: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] za
> u�ivatele Dobromil Mal�
> Odesl�no: 14. z��� 1998 8:48
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: bsDialog okno a TMenu
>
> Ahoj, myslim, ze v "Mistrovstvi v Delphi" jsem cetl, ze kvuli nejake
> chybe
> Windows (nebo co) to Delphi proste neudelaji, ale da se to udelat
> pomoci
> API (osidit Delphi), ale to menu potom za moc nestoji.
>
> Dobra.
>
> ----------
> Od: Pavel Malinsk�[SMTP:spiderland(zv)usa.net]
> Odesl�no: 12. z��� 1998 17:29
> Komu: DELPHI Distribution List
> P�edm�t: bsDialog okno a TMenu
>
> <<Soubor: ATT00001.html>>
> Zdravim,
>
> nevite prosim nekdo jak pri pouziti stylu okna bsDialog
> soucastne pouzit i cmp. TMenu.
> V tomto rezimu okna je menu ignorovano a je nepouzitelne.
>
> Diky za kazdy napad
>
> S pozdravem
> Pavel Malinsky
> spiderland(zv)usa.net
>
>RX - datum
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 14.9.1998 22:02:39
Jo, jo. Bylo to v resource. Uz je vse v poradku.
Jeste jednou dik.
Kuba
Obsah casti obrazovky
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 14.9.1998 22:06:36
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
nenapada nekoho jak co nejjednoduseji sliznout
do clipboardu urcitou cast obrazovky jako to umi napr.
Corel Capture.
Myslim tim napr. zadat souradnice Rect, elipsy, polygonu,
kruznice apod.
Diky
Pavel Malinsky
Hradec Kralove
spiderland(zv)usa.net
kalkulacka vo W95
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 14.9.1998 23:10:50
Ahoj,
trosku jsem testoval fci GetCalcResult a tak jak
jsi ji prezentoval chodi OK, ale pouze je-li kalkulacka
prepnuta v rezimu "Standartni" pro rezim "Vedecka"
to bude chtit asi upravit. Odhadem bych rekl,
ze je treba upravit const CALC_EDITID.
S pozdravem PM
spiderland(zv)usa.net
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 14. z��� 1998 16:45
P�edm�t: Re: kalkulacka vo W95
>Tato funkce zjisti aktualni hodnotu z kalkulacky.
>
>function GetCalcResult;
>const
> CALC_WNDCLASS = 'SciCalc';
> CALC_EDITID = 414;
>var
> hFind:HWND;
> pText:PChar;
> nLength:Integer;
>begin
> Result := '';
> hFind := FindWindow(CALC_WNDCLASS,nil);
> if hFind <> 0 then
> begin
> hFind := GetDlgItem(hFind,CALC_EDITID);
> if hFind <> 0 then
> begin
> nLength := GetWindowTextLength(hFind);
> if nLength > 0 then
> begin
> pText := StrAlloc(nLength + 1);
> GetWindowText(hFind,pText,nLength);
> Result := StrPas(pText);
> StrDispose(pText);
> end;
> end;
> end;
>end;
>
>Vita
>
Nulova hodnota Date
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.9.1998 00:09:57
> Nevyhoda spociva prave v tom, ze ji MUSI sirit, pokud nema jistotu, ze na
> cilovem pocitaci je. Tvrdis, ze nejakejch 400kB se v megabajtech BDE
> ztrati, ale co kdyz budu chtit distribuovat program, kterej bude mit radove
> 150kB, to uz je pak 400kB pekne dost navrch ...
>
> Sorry, ale nemusis se hnedka rozcilovat, kdyz neco nevis ;-)
Hm, to mas pravdu. Prosim posli mi nejakou aplikaci s komponentou
TDateTimePicker. Nevim, asi jsem natvrdlej, ale at to delam, jak
to delam, kdyz udelam aplikaci v Delphi 4, kde je jen jeden formular
a na nem jen jeden TDateTimePicker, hodi to EXE veliky 299.520 bajtu.
Jinak se to v pohode vejde na 1 disketu, takze problem nevidim.
Pokud nekdo vybira datum pomoci TDateTimePicker, da se docela
predpokladat, ze to nebude program, kde je kriticka velikost,
400 kB bude jen malickost. To je muj nazor. Ja totiz v Delphi
opravdu programuji a vidim, jak velike z toho lezou programy,
pokud delas neco jineho nez 1 tabulka a 1 grid.
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 ===
==============================================================Dotaz o Maile
[*] ikino(zv)pobox.sk - 15.9.1998 05:26:48
Zdar,
neviete nahodou, ze ked spravim program na odosielanie posty cez
winsock, tak ci tam musim dat ako host server adresu servera, na
ktoreho sa cez telefon pripajam, alebo tam mozem dat lubovny
smtp server?
A este co su to tie RX komponenty? Kde sa daju zohnat?
IKO
ikino(zv)pobox.sk
" Hint okno "
[*] Jan Fiala <fiala(zv)iname(tec)com> - 15.9.1998 05:41:19
Staci Application.OnHint := Vlastni Hint;
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: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
muzete mi prosim nekdo poradit, jak udelat nasledujici trivialni vec ?
Chtel bych, aby se mi pri najeti mysi na tlacitko objevilo okno ( vim,
pouziji OnMouseMove a Form.Show )
a aby to okno zase zmizelo, kdyz s mysi odjedu mimo tlacitko nebo ono okno (
to uz prave nevim ).
Neco jak Hint, ale misto bubliny bych chtel mit okno.
Diky
Vasek
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Runtime Error
[*] Jan Fiala <fiala(zv)iname(tec)com> - 15.9.1998 05:58:16
Zkus to uvolnovat vzdy s indexem 0. Neco podebneho uz tu bylo s MenuItem.
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: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
To: Konference Delphi <delphi(zv)pinknet(tec)cz>
Date: 14. z��� 1998 21:23
Subject: Runtime Error
procedure TfoParametry.UvolniImage;
Var
b:integer;
begin
for B := 0 to (ListView1.Items.Count - 1) do
begin
if ListView1.Items[B].data<> nil then
TImage(ListView1.Items[B].data).Free;
ListView1.Items[B].data:=nil;
end;
Pri uvolnovani objektu touto metodou se pri ukonceni aplikace objevi chybova
hlaska
s textem
"Exception EAccessViolation in module VCL30.DPL at FFFFF017"
" Access violation at adress 00000017. Write of address F010F818"
A ja nikde v programu nezapisuju do techto uvolnenych objektu
Do doby ukonceni programu se objekty uvolni a nic se nedeje.
Nikde v programu jiz zadny kod nemam ktery by po zruseni objektu na nej
sahal.
Achjo a tak to vypadalo krasne
HeiJu Diky
P.S. Uz jsem na to prisel /aspon doufam/
Nesmi se pouzit TImage a u nej pouzivat TPicture ale primo TPicture.Create
a TPicture.Free
hlaska je pryc a pamet to uvolnuje.
Pisu to jen pro pripad kdyby s tim nekdo v budoucnu potykal a sel se podivat
do archivu.
Volani preruseni ve W95
[*] Jan Fiala <fiala(zv)iname(tec)com> - 15.9.1998 06:03:38
Muze zkusit assembler. Neco jako
Asm
Int....
End;
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: Vaclav Sazima <sazima(zv)comp(tec)cz>
To: Delphi <delphi(zv)io.pinknet(tec)cz>
Date: 14. z��� 1998 20:28
Subject: Volani preruseni ve W95
Ahoj,
nevite nekdo, jak se volaji preruseni ve W95 a Delphi ?
Jedna se mi konkretne o volani PCI biosu, t.j. preruseni 1A, funkce B1.
Dekuji
Vaclav Sazima
Zjisteni rozliseni
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 15.9.1998 06:39:17
Ahoj,
mam trivialni dotaz, jak zjistit aktualni rozliseni?
Predem diky
Petr Riedel
petr.riedel(zv)ipbpojistovna(tec)cz
TRichEdit
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 15.9.1998 07:14:41
Zdravim,
da se zamezit, aby TRichEdit reagoval na prepnuti klavesnice (napr. z
ceske na anglickou) nastavenim atributu textu?
Doyfam ze jsem to popsal srozumitelne
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://members.tripod.com/~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 .
.........................................................
Zjisteni rozliseni
[*] Jan Fiala <fiala(zv)iname(tec)com> - 15.9.1998 07:22:59
Zkus Screen.Width a Screen.Height
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: Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz>
To: DELPHI Distribution List (el. adresa) <delphi(zv)pinknet(tec)cz>
Date: 15. z��� 1998 7:17
Subject: Zjisteni rozliseni
Ahoj,
mam trivialni dotaz, jak zjistit aktualni rozliseni?
Predem diky
Petr Riedel
petr.riedel(zv)ipbpojistovna(tec)cz
Ikonka v informa�n�m pruhu vedle hodin
[*] V�t�zslav Gazda������u��n�?��? - 15.9.1998 08:02:35
Velice casto se tady objevuje otazka jak vytvorit aplikaci, ktera nema
tlacitko na taskbaru, ale pouze malou ikonku v informacnim pruhu uloh vedle
hodin. Pokud to nekoho jeste zajima tak na Builderu http://www.builder(tec)cz/
byl zverejnen muj clanek i z ukazkovou aplikaci na toto tema.
Vita
Nahrazeni prikazu D1 na D3
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 15.9.1998 08:11:06
Jednou jsem taky hledal GetFreeSystemResources.
Nasel jsem ale jinou - SystemHeapInfo - libi se mi vic.
Zjistil jsem, ze je tato funkce k dispozici pouze v 16 bitove verzi
a musi se tedy volat 16 bitove. Neprisel jsem na jiny zpusob,
jak provolat 16 bit. DLL z 32 bit. aplikace, nez spustit 16 bit.
aplikaci,
ktera zjisti data a preda nam je.
Neni to vubec pekne, ale myslim, ze Microsoft ve sve aplikaci MSINFO32
to dela stejnym zpusobem.
Konkretne tedy mam sestnactibitovou okenni aplikaci, ktera po obdrzeni
zpravy zjisti stav Resources a zapise ho do souboru
v 16. bitove aplikaci zjistim Resources takto(BorlandPascal 7.0):
uses
WinTypes, WinProcs, OWindows, ODialogs, strings, ToolHelp;
{
nezbytnosti pro aplikaci ...vynechano
}
procedure TMonitor.WMUser(var Msg: TMessage);
var
SysHeapInfo: PSysHeapInfo;
f: Text;
USERRes, GDIRes: string;
begin
{zjisteni resources do promennych (string) GDIRes, USERRes}
New(SysHeapInfo);
SysHeapInfo^.dwSize := SizeOf(SysHeapInfo^);
SystemHeapInfo(SysHeapInfo);
Str(SysHeapInfo^.wUserFreePercent, USERRes);
Str(SysHeapInfo^.wGDIFreePercent, GDIRes);
Dispose(SysHeapInfo);
//dale predani zjistenych hodnot USERRes a GDIRes
//(ja je pouze zapisuji do sveho *.log souboru)
//....
end;
HTH
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
> -----Original Message-----
> From: /O=INEQ/OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON On Behalf Of Bardon
> Sent: Thursday, September 10, 1998 10:24 AM
> To: 'DELPHI Distribution List'
> Subject: RE: Nahrazeni prikazu D1 na D3
>
> 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
> Dotaz o Maile
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.9.1998 08:19:56
>Zdar,
>
>neviete nahodou, ze ked spravim program na odosielanie posty cez
>winsock, tak ci tam musim dat ako host server adresu servera, na
>ktoreho sa cez telefon pripajam, alebo tam mozem dat lubovny
>smtp server?
libovolny SMTP server, ktery Te nevykope kvuli antispam nastaveni.
Nejlepsi je ale ten u providera, protoze s nim mas zarucene nejrychlejsi
komunikaci.
Zdravi
D. Toman
" Hint okno "
[*] V�t�zslav Gazda������u��n�?��? - 15.9.1998 08:24:52
Nejlepsi je si odvodit svou vlastni komponentu tlacitko z toho originalniho
a obslouzit v nem tyto dve zpravy.
CM_MOUSEENTER - nastane, kdyz mys vstoupi do oblasti controlu
CM_MOUSELEAVE - nastane, kdyz mys opusti oblast controlu
Vita
kalkulacka vo W95
[*] V�t�zslav Gazda������u��n�?��? - 15.9.1998 08:40:38
>trosku jsem testoval fci GetCalcResult a tak jak
>jsi ji prezentoval chodi OK, ale pouze je-li kalkulacka
>prepnuta v rezimu "Standartni" pro rezim "Vedecka"
>to bude chtit asi upravit. Odhadem bych rekl,
>ze je treba upravit const CALC_EDITID.
Je to mozne, to jsem si neuvedomil. Psal jsem to narychlo jen jako priklad
pro nasmerovani. Sam jsem to jeste nikdy nepouzival.
Vita
Ukladani na server
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 15.9.1998 09:05:28
Cau,
mam nasledujici problem. Po zalozeni vety v datasetu
(Dataset.Insert) a nasledujici editaci teto vety ulozim data na SQL
server (MS SQL6.5) pomoci Query.post.
Vse probehne OK, ale pokud znovu zedituju stejnou vetu a pokusim se ji
ulozit, tak akce skonci s chybou, �e tuto vetu zmenil jiny uzivatel. Ale
pritom na tom nikdo jiny nedela. Nevite nekdo jak na to.
Pavel
Ulozeni dat do TMemoField
[*] Franta <macala(zv)praktik(tec)cz> - 15.9.1998 09:08:58
ahoj,
do tabulky jsem si zalozil kalkulovanou polozku typu TMemo. Netusim Vsak, jak do ni dostat ve fci OnCalcField nejaka data. Tzn. pred naplnenim (posun na dalsi zaznam) vymazat obsah Mema a naplnit jej urcitym poctem stringovych radku .
Diky za kazdou radu
Franta
macala(zv)praktik(tec)cz
Automatick� odpov�da�
[*] ml_software(zv)email(tec)cz - 15.9.1998 09:35:40
D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
zapome�te tuto adresu, v opa�n�m p��pad� se
pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
zpr�vy vy�aduje.
--- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]Zjisteni rozliseni
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.9.1998 10:02:25
> mam trivialni dotaz, jak zjistit aktualni rozliseni?
Treba Screen.Width a Screen.Height.
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 ===
==============================================================Dotaz o Maile
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.9.1998 10:02:25
> neviete nahodou, ze ked spravim program na odosielanie posty cez
> winsock, tak ci tam musim dat ako host server adresu servera, na
> ktoreho sa cez telefon pripajam, alebo tam mozem dat lubovny
> smtp server?
Elektronicka posta se posila pres SMTP server, takze pochopitelne
tam musi byt libovolny SMTP server, ktery je dostupny.
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 ===
==============================================================DMA & Win95 ... + vyvoj VxD ???
[*] Stanislav Kolar <standa(zv)winroute(tec)cz> - 15.9.1998 10:05:26
At 21:27 14.9.1998 +0200, you wrote:
>> A to vypada jak ? Jake univerzalni drivery mas na mysli ?
>Napriklad Driver::Agent od Vireo (http://www.vireo.com). Jedna se o jakysi
>"programovatelny" driver ktery lze pouzit z vetsiny dnesnich vyvojovych
prostredi.
A dival jsi se, co to umi ? Namapovat pamet jadra pro user space aplikaci,
sahat na I/O porty, presmerovat na sebe Interrupt a tot vsechno. Nenech se
zmast - moznost sahat na I/O porty jeste neznamena, ze si muzes takto
privlastnit DMA, nebo jiny HW
Je to IMHO spis urcene k rychlemu napsani "testovaciho" driveru nejakeho
HW, takze je to spis urcene pro vyvojare hardwaru...
S. Kolar (standa(zv)winroute.com)
Automatick� odpov�da�
[*] ml_software(zv)email(tec)cz - 15.9.1998 10:09:10
D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
zapome�te tuto adresu, v opa�n�m p��pad� se
pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
zpr�vy vy�aduje.
--- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]Problem s grafickym nastavenim formularu
[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 15.9.1998 10:22:00
U sveho programu resim problem, jak jednoduse zajisti pri create formulare
zmenu properties Color a Font.Color u visualnich komponent ( i
standardnich). Nechci toto resit pretypovanim pro kazdou komponentu (jsou
jich mraky).
Snad jsem nasel cestu pres pouziti typu TWinControl, ale tady jsou ty
propertie v sekci protected. Nevite nekdo o o zpusobu, ktery by dokazal
tuto zmenu jednoduse a pritom provest univerzalne provest?
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho
software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
=======================================================
Delphi 4.0 & RX
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 15.9.1998 10:42:13
Stahni si verzi 2.50 + bugfixy na http://rx.demo.ru a presne nasleduj
instalacni instrukce a vse je ok. Dulezity je ten bugfix!
Mac
Dusan Jirasko wrote:
>
> Ahoj All ..
>
> Podarilo se nekomu zkompilovat RX knihovny pro D4 ? Nebo uz jsou RX primo pro
> novy Delphi ?
>
> ByE, [ E-Mail : Dusan(zv)Sameleon.Fido(tec)cz ]
> Tameleon [HGC-Team] [ICQ] [ http://www.psynet.net/Sameleon ]
>
> ... Lepsi byt zdravy a bohaty nez chudy a nemocny ...
--
==============================================================
= 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 =
==============================================================Automatick� odpov�da�
[*] ml_software(zv)email(tec)cz - 15.9.1998 10:43:33
D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
zapome�te tuto adresu, v opa�n�m p��pad� se
pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
zpr�vy vy�aduje.
--- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]Automatick} odpovmdah
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 15.9.1998 10:50:26
:-))) Bacha at se ti to nezacykli
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
> -----Original Message-----
> From: ml_software(zv)email(tec)cz [SMTP:ml_software(zv)email(tec)cz]
> Sent: Tuesday, September 15, 1998 10:09 AM
> To: delphi(zv)pinknet(tec)cz
> Subject: Automatick} odpovmdah
>
> D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
> zapome�te tuto adresu, v opa�n�m p��pad� se
> pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
> zpr�vy vy�aduje.
>
> --- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]Cestina v RX
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 15.9.1998 11:18:03
Zdravim vsechny,
mam jeden problem s RX komponentama. Stahnul jsem si ceske resource k RX,
nainstaloval jsem RX 2.5 a zjistil jsem, ze se mi nektere texty nezobrazuji
spravne s ceskou diakritikou. Konkretne jde o dialog pro uzivatelskou upravu
nastrojove listy.
Nevite nekdo, cim je to zpusobene? Naposledy mi to spravne fungovalo tusim
nekde ve verzi RX 2.30.
Pouzivam D4.
Diky za kazdou radu.
Michal Motalik
motalik(zv)zl.inext(tec)cz
List View
[*] heinisch(zv)post(tec)cz - 15.9.1998 11:52:19
AHOJ
Ja to pouzivam asi takto
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
var i:integer;
begin
if item.Selected then begin
i:=ListView1.Selected.Index ;
// index zacina od nuly
Label1.Caption:=Format('Po�adov� ��slo %d',[i+1]);
end;
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: 14. z��� 1998 12:43
P�edm�t: List View
>
>Ahoj,
>
>muzete mi prosim nekdo poradit, jak u ListView aktualizovat Item.Index ?
>Jde mi o to, ze se chci po kliknuti na polozce v ListView dozvedet jeji
>index. OK. Da se toho dociliti takto:
>
>Do onSelectItem napisi treba:
>ShowMessage(IntToStr(Item.Index));
>
>To funguje. Potiz je ale v tom, ze kdyz kliknu na jinou polozku v ListView,
>nejprve se mi zobrazi Item.Index polozky predchozi a teprve az potom se
>zobrazi ten Item.Index, na ktery jsem kliknul podruhe.
>
>Vasek
>
>
>E-mail: Vaclav.Lukes(zv)pvt(tec)cz
>Tel.: 0603-511247
>Help -- Netware Client & WinPopup
[*] medisoft(zv)uo.fairnet(tec)cz (Medisoft International - Usti) - 15.9.1998 12:01:58
Mam problem s p�ijimanim novelovskych zprav. Konfigurace o kterou jde je:
Server - Novel NetWare 4.11
Klient - W95 osr2, Microsoft Netware Client
Ten standardni netwarovsky klient toti� p�eklada zpravy od serveru do WinPopup formatu - cili do MailSlotu messngr. OK, v�echno funguje, kdy� pomoc� API otev�u ten MailSlot a p�ijimam, je v�e OK. Jen�e po n�jak�m po�tu zprav (tak 10..30, ale jak kdy), prost� cel� pos�l�n� zpr�v z Novellu "vytuhne". Stanice ze kter� zpr�vy pos�l�m, vypisuje, n�co jako, �e je pln� fronta zpr�v na Serveru. A p�itom po�lu-li zpr�vu z jin� W95 stanice p��mo WinPopupem, dojde bez probl�m�.
!!!! Toto cel� nastane i tehdy, kdy� aplikace "pouze otev�e onen MailSlot" a v�bec nez�le�� na tom jestli zpr�vy vyb�r�m nebo ne.
Zkou�el jsem to jinde A) na NW 4.10 - Chod� bezchybn�
B) na Emulatoru Mars na Linuxu - Zase bezchybn�
Po tom co mi to ne�lo, zkou�el jsem n�jake sta�en� komponenty na MailSloty a ty nefunguj� tak�.
V�te o tom n�kdo n�co? Je snad chyba v Novellu?
???????????????
D�ky p�edem
Jarda
Typ databaze
[*] heinisch(zv)post(tec)cz - 15.9.1998 12:10:48
Ahoj all
kdo vi v jakem formatu pracuje databaze / tabulky/ v
v ucetnim software Money 97 od firmy Cigler.
HeiJu Automatick� odpov�da�
[*] Svatopluk V�t <vit(zv)ardo(tec)cz> - 15.9.1998 12:15:35
Taky dostavate zpravy od auto odpovidace? Nechci dostavat tuto zpravu.
Nevite, kdo je autorem? (tzn. ma nastaveno auto odpovidani na
WWW.EMAIL.CZ). S kazdou odeslanou zpravou prijde odpoved....
D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
zapome�te tuto adresu, v opa�n�m p��pad� se
pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
zpr�vy vy�aduje.
--- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]
Jeste jednou SQL
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 15.9.1998 12:17:56
Zdravim,
mel bych jeste jedne dotaz na SQL.
Mam:
SQL.Add('select C.*, K.Nazev from "CYKLUS.DB" C, "KUSY.DB" K');
SQL.Add('where C.Ident=K.Ident');
vse fungovalo, dokud jsem nepotreboval v pripojenem DBGridu trochu poopravit
nektera pole. Ve chvili kdy zapnu FieldEditor/Add, se dostanu na vsechna
pole souboru C, ale nedostanu se na ten Nazev v souboru K.
Jak se na nej mohu odkazat??
Dik za kazde nakopnuti. (D1)
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
Cestina v RX
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 15.9.1998 12:17:24
Ahoj
a jake pouzivas fonty (nastaveni skriptu stredoevropske, zapadni)...
Jaro micrel(zv)micrel(tec)cz
> -----P�vodn� zpr�va-----
> Od: Michal Motalik [SMTP:motalik(zv)zl.inext(tec)cz]
> Odesl�no: 15. z��� 1998 11:18
> Komu: Delphi konference
> P�edm�t: Cestina v RX
>
> Zdravim vsechny,
> mam jeden problem s RX komponentama. Stahnul jsem si ceske resource k RX,
> nainstaloval jsem RX 2.5 a zjistil jsem, ze se mi nektere texty
> nezobrazuji
> spravne s ceskou diakritikou. Konkretne jde o dialog pro uzivatelskou
> upravu
> nastrojove listy.
> Nevite nekdo, cim je to zpusobene? Naposledy mi to spravne fungovalo tusim
> nekde ve verzi RX 2.30.
> Pouzivam D4.
>
> Diky za kazdou radu.
>
> Michal Motalik
> motalik(zv)zl.inext(tec)cz
>
>
> Automatick� odpov�da�
[*] ml_software(zv)email(tec)cz - 15.9.1998 12:38:53
D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
zapome�te tuto adresu, v opa�n�m p��pad� se
pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
zpr�vy vy�aduje.
--- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]Automatick� odpov�da�
[*] ml_software(zv)email(tec)cz - 15.9.1998 12:40:08
D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
zapome�te tuto adresu, v opa�n�m p��pad� se
pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
zpr�vy vy�aduje.
--- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]Automatick� odpov�da�
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.9.1998 12:43:32
>D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
>zapome�te tuto adresu, v opa�n�m p��pad� se
>pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
>zpr�vy vy�aduje.
navrhuji automaticky vyhazovat ze seznamu konference adresy lidi, kteri
si dovoli neco takoveho....
Plus pridat do FAQ (pokud to tam neni)
Zdravi
D. Toman
Ulozeni dat do TMemoField
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 15.9.1998 12:46:40
Kdyby to byla databazova polozka, slo by to pres Stream. Skousel jsi property Text a Value ?
-----P�vodn� zpr�va-----
Od: Franta [SMTP:macala(zv)praktik(tec)cz]
Odesl�no: 15. z��� 1998 9:09
Komu: DELPHI Distribution List
P�edm�t: Ulozeni dat do TMemoField
ahoj,
do tabulky jsem si zalozil kalkulovanou polozku typu TMemo. Netusim Vsak, jak do ni dostat ve fci OnCalcField nejaka data. Tzn. pred naplnenim (posun na dalsi zaznam) vymazat obsah Mema a naplnit jej urcitym poctem stringovych radku .
Diky za kazdou radu
Franta
macala(zv)praktik(tec)cz
Ukladani na server
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 15.9.1998 12:50:44
Nemas na te tabulce nahodou nejaky trigger? Nejsnazsi reseni je nezarazovat do datasetu fieldy, ktere trigger meni. Pokud takove fieldy v datasetu nevyhnutne potrtebujes, muzes si pohrat s property UpdateMode, ale nerucim za to, ze to pomuze. Krajni moznost je po postu udelat Close a Open - to pomaha zarucene, jen to trochu spomaluje.
-----P�vodn� zpr�va-----
Od: Hojda Pavel [SMTP:hojda(zv)mmp.plzen-city(tec)cz]
Odesl�no: 15. z��� 1998 11:05
Komu: 'delphi(zv)pinknet(tec)cz'
P�edm�t: Ukladani na server
Cau,
mam nasledujici problem. Po zalozeni vety v datasetu
(Dataset.Insert) a nasledujici editaci teto vety ulozim data na SQL
server (MS SQL6.5) pomoci Query.post.
Vse probehne OK, ale pokud znovu zedituju stejnou vetu a pokusim se ji
ulozit, tak akce skonci s chybou, �e tuto vetu zmenil jiny uzivatel. Ale
pritom na tom nikdo jiny nedela. Nevite nekdo jak na to.
Pavel
Ukladani na server
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 15.9.1998 12:55:38
Tento problem nastava v pripade, ze primarni klic je Identity. Pred ulozenim
klient nevi, jakou hodnotu bude klic mit, ta se dosadi az v prubehu ukladani
na serveru, ale pri pokusu o opetovnou editaci klient tento klic dostane a
zahlasi, ze se veta zmenila.....
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: Hojda Pavel [SMTP:hojda(zv)mmp.plzen-city(tec)cz]
> Odesl�no: 15. z��� 1998 9:05
> Komu: 'delphi(zv)pinknet(tec)cz'
> P�edm�t: Ukladani na server
>
> Cau,
> mam nasledujici problem. Po zalozeni vety v datasetu
> (Dataset.Insert) a nasledujici editaci teto vety ulozim data na SQL
> server (MS SQL6.5) pomoci Query.post.
> Vse probehne OK, ale pokud znovu zedituju stejnou vetu a pokusim se ji
> ulozit, tak akce skonci s chybou, �e tuto vetu zmenil jiny uzivatel. Ale
> pritom na tom nikdo jiny nedela. Nevite nekdo jak na to.
>
> Pavel
Automatick} odpovmdah
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 15.9.1998 12:59:54
Uz jsem ho nechal sestrelit...
Tomas
> -----Original Message-----
> From: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Sent: Tuesday, September 15, 1998 10:50 AM
> To: 'DELPHI Distribution List'
> Subject: RE: Automatick} odpovmdah
>
> :-))) Bacha at se ti to nezacykli
>
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
>
> > -----Original Message-----
> > From: ml_software(zv)email(tec)cz [SMTP:ml_software(zv)email(tec)cz]
> > Sent: Tuesday, September 15, 1998 10:09 AM
> > To: delphi(zv)pinknet(tec)cz
> > Subject: Automatick} odpovmdah
> >
> > D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
> > zapome�te tuto adresu, v opa�n�m p��pad� se
> > pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
> > zpr�vy vy�aduje.
> >
> > --- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]Zjisteni rozliseni
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 15.9.1998 13:11:59
Hi,
podivej se do helpu WIN32 na funkci: GetSystemMetrics
The GetSystemMetrics function retrieves various system metrics and
system configuration settings.
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: Riedel Petr [SMTP:Petr.Riedel(zv)ipbpojistovna(tec)cz]
> Odesl�no: 15. z��� 1998 6:39
> Komu: DELPHI Distribution List (el. adresa)
> P�edm�t: Zjisteni rozliseni
>
> Ahoj,
>
> mam trivialni dotaz, jak zjistit aktualni rozliseni?
> Predem diky
>
> Petr Riedel
> petr.riedel(zv)ipbpojistovna(tec)cz
Problem s grafickym nastavenim formularu
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 15.9.1998 13:13:35
Ahoj Martine,
ne�lo by nastavit ParentColor na True a pak m�nit barvu na parentovi - a� u� je to formul��, nebo t�eba polo�it v�e na panel ?
-----P�vodn� zpr�va-----
Od: Martin Lasevi� [SMTP:ml software(zv)email(tec)cz]
Odesl�no: 15. z��� 1998 13:09
Komu: 'delphi(zv)pinknet(tec)cz'
P�edm�t: Problem s grafickym nastavenim formularu
U sveho programu resim problem, jak jednoduse zajisti pri create formulare
zmenu properties Color a Font.Color u visualnich komponent ( i
standardnich). Nechci toto resit pretypovanim pro kazdou komponentu (jsou
jich mraky).
Snad jsem nasel cestu pres pouziti typu TWinControl, ale tady jsou ty
propertie v sekci protected. Nevite nekdo o o zpusobu, ktery by dokazal
tuto zmenu jednoduse a pritom provest univerzalne provest?
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho
software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml software
=======================================================
Jen jedna instance
[*] REAiA consulting <contact(zv)reaia(tec)cz> - 15.9.1998 13:49:59
Je to asi trivialni, ale porad nemuzu dosahnout toho, aby nesla spustit
dalsi instance tehoz programu. Zkusil jsem toto v Project Source:
Hwnd := FindWindow('F_Main','OneCopy');
if Hwnd = 0 then
begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TF_Main, F_Main);
ShowWindow(Application.Handle, SW_HIDE);
Application.Run;
end;
ale klidne to dela dalsi instance i nadale.
Jiri Becvar
Automatick� odpov�da�
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 15.9.1998 13:52:46
Dostavam. A nelibi se mi to. Jenze odesilatelem je konference, takze
bude na spravci aby s tim neco udelal.
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: Svatopluk V�t [SMTP:vit(zv)ardo(tec)cz]
> Odesl�no: 15. z��� 1998 12:16
> Komu: 'DELPHI Distribution List'
> P�edm�t: RE: Automatick� odpov�da�
>
> Taky dostavate zpravy od auto odpovidace? Nechci dostavat tuto zpravu.
>
> Nevite, kdo je autorem? (tzn. ma nastaveno auto odpovidani na
> WWW.EMAIL.CZ). S kazdou odeslanou zpravou prijde odpoved....
>
> D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
> zapome�te tuto adresu, v opa�n�m p��pad� se
> pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
> zpr�vy vy�aduje.
>
> --- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]
> OffTopic: WWW Server ve Windows 95
[*] v-soft(zv)mbox.lantanet(tec)cz - 15.9.1998 14:00:55
> muzete mi nekdo poradit, jak nejjednoduseji
> testovat CGI skripty v Perlu ve Windows 95?
> Tj. exituje nejaky WWW server, ktery lze
> rozchodit na lokalni stanici?
Ja pouzivam OmniHTTPd server - velmi jednoduchy web server,
bezi i na lokale a umoznuje jednotlivym souborovym extenzim
priradit program, ktery to prezvejka, nez to pusti ven.
( napr. interpret perlu pro extenzi *.pl ( ale ten interpret
musis mit svuj )).
Najdes ho na http://www.omnicron.ab.ca/httpd/
Vojtech Semecky
Automatick� odpov�da� ...
[*] M-PRO s.r.o. <software(zv)mpro(tec)cz> - 15.9.1998 14:08:49
Jesli by by nestalo za to Automatick� odpov�da�(alias ml software(zv)email(tec)cz) vyhodit (ani ne vy�krtnout) z konference ...
M.Macko, martinm(zv)m-pro(tec)cz,
Software pro ��ZEN� LIDSK�CH ZDROJ�, MZDY A PERSONALISTIKA - www.m-pro(tec)cz
Automatick� odpov�da�
[*] kchmel(zv)post(tec)cz - 15.9.1998 14:22:31
Jo, to si to nekdo zapnul a prihlasil se do konference. Navrhuji
spravic teto konference, aby tohoto cloveka vyloucil.
(Mam ted v poste 5 zprav, z toho 3 od nej)
Karel
> Taky dostavate zpravy od auto odpovidace? Nechci dostavat tuto zpravu.
> Nevite, kdo je autorem? (tzn. ma nastaveno auto odpovidani na
> WWW.EMAIL.CZ). S kazdou odeslanou zpravou prijde odpoved....
>
> D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
> zapome�te tuto adresu, v opa�n�m p��pad� se
> pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
> zpr�vy vy�aduje.
>
> --- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]
>
>
>
CGI script help
[*] Jochman Jan <JJochman(zv)cpoj(tec)cz> - 15.9.1998 15:01:59
V jake verzi Delphi ? Ve trojce jsou na to komponenty, se kterymi se pri
trose dobre vule da delat.
Jinak existuje komponenta CGIExpert na www.cgiexpert.com.
Cau Honza
> -----P�vodn� zpr�va-----
> Od: SIMKOVIC Peter [SMTP:simicek(zv)vadium.sk]
> Odesl�no: 14. z��� 1998 8:30
> Komu: DELPHI Distribution List
> P�edm�t: CGI script help
>
> Zdravim vsetkych,
>
> mam na Vas jenu malu otazku. Nevedel by mi tu niekto z Vas poradit ohladom
> vyroby CGI scriptu v Delphi. Ide mi hlavne o tu cast kodu, kde program
> prebera hodnotu z WEBU (napriklad z formulara). Akym sposobom som schopny
> precitat nejaku polozku do mojho programu a po vyhodnoteni ako mozem
> nejaky
> vysledok odoslat do WEB browsera k danemu klientovi.
>
> Peter SIMKOVIC
> http://simi.vadium.sk
> simkovic(zv)vadium.sk
> simicek(zv)vadium.sk
> auxsetvolume(Device,v)
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 15.9.1998 15:04:07
Nevite nekdo jak zjistit Device pro funkci auxsetvolume(Device,v) .
Potrebuju to pro nastaveni hlasitosti prehravani audio CD a nekde v
nejakem prikladovem zdrojaku CD prehravace to byla natvrdo konstanta
Device=2. U meho audio mixeru na mem pocitaci to fungovalo, ale u kolegy
na jinem mixeru to nefungovalo a metodou pokusu a omylu jsem zjistil ze
u neho pro CD Device=1 .
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
Automatick� odpov�da�
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 15.9.1998 15:41:47
Co dela spravce? Proc uz to nevyhodil?
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: Dalibor Toman [SMTP:dtoman(zv)fortech(tec)cz]
> Odesl�no: 15. z��� 1998 12:44
> Komu: DELPHI Distribution List
> P�edm�t: Re: Automatick� odpov�da�
>
>
>
> >D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
> >zapome�te tuto adresu, v opa�n�m p��pad� se
> >pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
> >zpr�vy vy�aduje.
>
>
> navrhuji automaticky vyhazovat ze seznamu konference adresy lidi,
> kteri
> si dovoli neco takoveho....
> Plus pridat do FAQ (pokud to tam neni)
>
> Zdravi
> D. Toman
> Help -- Netware Client & WinPopup
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 15.9.1998 15:43:57
Odpovedel sis sam.
Kdyz to na jine konfiguraci serveru funguje, tak je to jednoznacne chyba
serveru. Napis o tom k No-well um.
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: medisoft(zv)uo.fairnet(tec)cz [SMTP:medisoft(zv)uo.fairnet(tec)cz]
> Odesl�no: 15. z��� 1998 14:02
> Komu: 'delphi(zv)pinknet(tec)cz'
> P�edm�t: Help -- Netware Client & WinPopup
>
> Mam problem s p�ijimanim novelovskych zprav. Konfigurace o kterou jde
> je:
> Server - Novel NetWare 4.11
> Klient - W95 osr2, Microsoft Netware Client
>
> Ten standardni netwarovsky klient toti� p�eklada zpravy od serveru do
> WinPopup formatu - cili do MailSlotu messngr. OK, v�echno funguje,
> kdy� pomoc� API otev�u ten MailSlot a p�ijimam, je v�e OK. Jen�e po
> n�jak�m po�tu zprav (tak 10..30, ale jak kdy), prost� cel� pos�l�n�
> zpr�v z Novellu "vytuhne". Stanice ze kter� zpr�vy pos�l�m, vypisuje,
> n�co jako, �e je pln� fronta zpr�v na Serveru. A p�itom po�lu-li
> zpr�vu z jin� W95 stanice p��mo WinPopupem, dojde bez probl�m�.
>
> !!!! Toto cel� nastane i tehdy, kdy� aplikace "pouze otev�e onen
> MailSlot" a v�bec nez�le�� na tom jestli zpr�vy vyb�r�m nebo ne.
>
> Zkou�el jsem to jinde A) na NW 4.10 - Chod� bezchybn�
> B) na Emulatoru Mars na Linuxu - Zase bezchybn�
>
> Po tom co mi to ne�lo, zkou�el jsem n�jake sta�en� komponenty na
> MailSloty a ty nefunguj� tak�.
>
> V�te o tom n�kdo n�co? Je snad chyba v Novellu?
>
> ???????????????
>
> D�ky p�edem
> Jarda
SQL datum HEEEELP
[*] Marek Koci <koci(zv)servodata(tec)cz> - 15.9.1998 15:45:03 met
Panove existuje v sql serveru od microsoftu
nejakej prikaz na formatovani datumu aby vracel jenom
ddmmyyyy a nedaval tam cas?
dik
RxDBGrid
[*] Boris Pe�ka <baris(zv)email(tec)cz> - 15.9.1998 15:49:25
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim !
Kdyz v RxDBGridu nastavim vlastnost MultiSelect na true, tak jak mam zjistit,
ktere zaznamy jsem vybral ? Diky za odpoved
Boris
Automatick} odpovmdah
[*] ml_software(zv)email(tec)cz - 15.9.1998 16:18:58
Jiri.Polak(zv)tconsult(tec)cz napsal:
>> :-))) Bacha at se ti to nezacykli
>>
>> ----------
>> Jiri Polak
>> e-mail:jura.polak(zv)email(tec)cz
>> jiri.polak(zv)tconsult(tec)cz
>>
>> > -----Original Message-----
>> > From: ml software(zv)email(tec)cz [SMTP:ml software(zv)email(tec)cz]
>> > Sent: Tuesday, September 15, 1998 10:09 AM
>> > To: delphi(zv)pinknet(tec)cz
>> > Subject: Automatick} odpovmdah
>> >
>> > D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
>> > zapome�te tuto adresu, v opa�n�m p��pad� se
>> > pokus�m odpov�d�t co nejd��ve, pokud to povaha Va��
>> > zpr�vy vy�aduje.
>> >
>> > --- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]
>>
ing. Martin Lasevi�
ML Software - Martin Lasevi�
tvorba zak�zkov�ho software
Budovatelsk� 459
708 00 Ostrava - Poruba
Diky za info, stalo se to omylem, takze se omlouvam.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Jeste jednou SQL
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 15.9.1998 16:24:53
Uz je to vyreseno.
Zacinal jsem s 'select * from cyklus' a teprve v prubehu programu tam plnil
ten slozitejsi select. Proto jsem na pocatku nevidel ten Nazev.
Kuba
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 15:21
P�edm�t: Jeste jednou SQL
Zdravim,
mel bych jeste jedne dotaz na SQL.
Mam:
SQL.Add('select C.*, K.Nazev from "CYKLUS.DB" C, "KUSY.DB" K');
SQL.Add('where C.Ident=K.Ident');
vse fungovalo, dokud jsem nepotreboval v pripojenem DBGridu trochu poopravit
nektera pole. Ve chvili kdy zapnu FieldEditor/Add, se dostanu na vsechna
pole souboru C, ale nedostanu se na ten Nazev v souboru K.
Jak se na nej mohu odkazat??
Dik za kazde nakopnuti. (D1)
Kuba
----------------------------------------------------------------------------
Zmena vzhledu formulare
[*] ml_software(zv)email(tec)cz - 15.9.1998 16:33:56
Kdo mi muze poradit?
Resim problem, jak jednoduse a pritom univerzalne zmenit barevny vzhled vsech komponent, ktere jsou polozeny na libovolnem formulari. Jde o to, ze TWinControl ma properties Color a Font.Color v sekci protected, takze se k nim zvenku nedostanu.
Jedine reseni, ktere jsem nasel je kazdou komponentu pretypovat, coz neni zrovna koser. Dale mne napadlo pokusit se odchytit nejaky windows message ( WM nebo CM ), ale tady jsem zatim neutrpel uspech.
Diky za odpovedi
Martens
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Ukladani na server
[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 15.9.1998 16:33:12
Ahoj.
Mozne reseni 1
-------------------
Po Query.Post volej Query.Close, Query.Open a skoc na zaznam, ktery
potrebujes.
(kdybys pouzival TTable komponentu, tak staci Refresh)
Duvod je ten, ze
a) pouzivas IDENTITY
b) trigger meni data v tabulce
Oba typy zmen se jevi pro BDE jako kdyby je udelal jiny uzivatel (proto ta
hlaska).
Mozne reseni 2
-------------------
Myslim, ze BDE 5.0 ma zabudovanou podporu datoveho typu IDENTITY. To by
mohlo pomoci s pripadem a). Zatim jsem si s tim nehral.
Mozna by slo uzit i ve starsim BDE field type AUTOINC (nezkousel jsem).
S pozdravem,
=================================
Mgr. Ladislav Nagy
MFF UK & Baader Computer spol. s r.o.
lada(zv)kolej.mff.cuni(tec)cz
Nulova hodnota Date
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 15.9.1998 17:18:13
Ahoj,
nechci se michat do Vaseho sporu, ale muzu poslat
jeden vzorek. Ma 188 kB a je zkompilovan v D3.
PS: Ale ja taky nevidim problem v tom, pribalit
jednu knihovnu navic, spis by me delalo problemy
zjistit, ktery vsechny knihovny mam (a hlavne,
ktere muzu) pribalit.
Dobra.
----------
Od: Petr Zahradnik[SMTP:clexpert(zv)clexpert(tec)cz]
Odesl�no: 15. z��� 1998 1:09
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: RE: Nulova hodnota Date
> Nevyhoda spociva prave v tom, ze ji MUSI sirit, pokud nema jistotu, ze na
> cilovem pocitaci je. Tvrdis, ze nejakejch 400kB se v megabajtech BDE
> ztrati, ale co kdyz budu chtit distribuovat program, kterej bude mit radove
> 150kB, to uz je pak 400kB pekne dost navrch ...
>
> Sorry, ale nemusis se hnedka rozcilovat, kdyz neco nevis ;-)
Hm, to mas pravdu. Prosim posli mi nejakou aplikaci s komponentou
TDateTimePicker. Nevim, asi jsem natvrdlej, ale at to delam, jak
to delam, kdyz udelam aplikaci v Delphi 4, kde je jen jeden formular
a na nem jen jeden TDateTimePicker, hodi to EXE veliky 299.520 bajtu.
Jinak se to v pohode vejde na 1 disketu, takze problem nevidim.
Pokud nekdo vybira datum pomoci TDateTimePicker, da se docela
predpokladat, ze to nebude program, kde je kriticka velikost,
400 kB bude jen malickost. To je muj nazor. Ja totiz v Delphi
opravdu programuji a vidim, jak velike z toho lezou programy,
pokud delas neco jineho nez 1 tabulka a 1 grid.
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 ===
==============================================================Jen jedna instance
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 15.9.1998 17:28:18
----------
Od: REAiA consulting[SMTP:contact(zv)reaia(tec)cz]
Odesl�no: 15. z��� 1998 13:49
Komu: DELPHI Distribution List
P�edm�t: Jen jedna instance
<<Soubor: ATT00035.txt>>
Je to asi trivialni, ale porad nemuzu dosahnout toho, aby nesla spustit
dalsi instance tehoz programu. Zkusil jsem toto v Project Source:
Hwnd := FindWindow('F Main','OneCopy');
{!!!!!!!! Tady chybi "T" tedy "TF Main" !!!!!}
if Hwnd = 0 then
begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TF Main, F Main);
ShowWindow(Application.Handle, SW HIDE);
Application.Run;
end;
ale klidne to dela dalsi instance i nadale.
Jiri Becvar
Jen jedna instance
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 15.9.1998 17:45:20
Me to funguje takhle :
var
OldHWnd : word;
begin
OldHWnd := FindWindow ('TForm1',NIL);
if OldHWnd = 0 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
if not IsWindowVisible(OldHwnd) then
PostMessage(OldHwnd, WM_USER, 0, 0);
SetForegroundWindow(OldHwnd);
end;
end.
I kdyz mam dojem, ze se v teto konferenci psalo, ze to neni optimalni.
Vaclav Sazima
REAiA consulting wrote:
> Je to asi trivialni, ale porad nemuzu dosahnout toho, aby nesla spustit
> dalsi instance tehoz programu. Zkusil jsem toto v Project Source:
>
> Hwnd := FindWindow('F_Main','OneCopy');
> if Hwnd = 0 then
> begin
> Application.Initialize;
> Application.ShowMainForm := False;
> Application.CreateForm(TF_Main, F_Main);
> ShowWindow(Application.Handle, SW_HIDE);
> Application.Run;
> end;
> ale klidne to dela dalsi instance i nadale.
> Jiri Becvar
TRichEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.9.1998 18:03:38
Krayzel Libor wrote:
>
> Zdravim,
>
> da se zamezit, aby TRichEdit reagoval na prepnuti klavesnice (napr. z
> ceske na anglickou) nastavenim atributu textu?
> Doyfam ze jsem to popsal srozumitelne
Ahoj,
melo by to jit pomoci prepsani zpravy WM_INPUTLANGCHANGEREQUEST:
type
TXYRichEdit = class(TRichEdit)
private
procedure WMInputLangChangeRequest(var Msg: TMessage); message WM_INPUTLANGCHANGEREQUEST;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
RichEdit: TXYRichEdit;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TXYRichEdit }
procedure TXYRichEdit.WMInputLangChangeRequest(var Msg: TMessage);
begin
Msg.Result := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit := TXYRichEdit.Create(Self);
RichEdit.Parent := Self;
end;
--
Petr Vones, amatersky programator
Jen jedna instance
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.9.1998 18:31:58
REAiA consulting wrote:
>
> Je to asi trivialni, ale porad nemuzu dosahnout toho, aby nesla spustit
> dalsi instance tehoz programu. Zkusil jsem toto v Project Source:
>
> Hwnd := FindWindow('F_Main','OneCopy');
> if Hwnd = 0 then
> begin
> Application.Initialize;
> Application.ShowMainForm := False;
> Application.CreateForm(TF_Main, F_Main);
> ShowWindow(Application.Handle, SW_HIDE);
> Application.Run;
> end;
> ale klidne to dela dalsi instance i nadale.
> Jiri Becvar
Ahoj,
pro zabraneni spusteni vice instanci pouzij radeji zpusob uvedeny zde:
http://www.inprise.com/devsupport/delphi/qanda/844.html
Toto reseni je vyhodnejsi protoze neni zavisle na nastaveni titulku aplikace.
--
Petr Vones, amatersky programator
RxDBGrid
[*] Pavel Kral <kral(zv)afx(tec)cz> - 15.9.1998 19:22:33
-----Original Message-----
Kdyz v RxDBGridu nastavim vlastnost MultiSelect na true, tak jak mam zjistit,
ktere zaznamy jsem vybral ?
Diky za odpoved
Boris
DBGrid1.SelectedRows je seznam bookmarku
takze treba takto smazete oznacene radky
procedure TForm1.DeleteRows;
begin
if DBGrid1.SelectedRows.count>0 then
begin
for i:=0 to DBGrid1.SelectedRows.count-1 do
begin
Table1.Bookmark:= DBGrid1.SelectedRows[i];
Table1.Delete;
end;
end;
end;
Zdravim
Pavel Kral
OffTopic: WWW Server ve Windows 95
[*] Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz> - 15.9.1998 19:34:21
Je nutno nastavit pripojovani mistni siti LAN,
ne pres modem.
Kdyz se budes chtit pripojit musis explicitne
spustit pripojeni pres ikonu pripojeni.
Automaticke pripojovani jiz nebude fungovat.
P.S. dekuji vsem za "Platba progamu do zahranici",
jiz je mi to mnohem jasnejsi.
Jaroslav KULHEIM
kulheim(zv)fp-brno(tec)cz
-----P�vodn� zpr�va-----
Od: Zdenek Drvota <zds(zv)pce.fairnet(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 13. z��� 1998 23:50
P�edm�t: Re: OffTopic: WWW Server ve Windows 95
Nevite nekdo v teto souvislosti, jak jej rozchodit na PC W95,
ktere ma dial-up napojeni na internet?
Respektive, jak spravne nakonfigurovat TCP/IP, aby to fungovalo.
Bud mi chodi lokalni server, a nejde se pripojit do internetu
(nefunguje TCP/IP), nebo naopak.
Jen jedna instance
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 15.9.1998 19:59:11
No, ja na to mam komponentu. Nechces ji?
Radek
------------------
Je to asi trivialni, ale porad nemuzu dosahnout toho, aby nesla spustit
dalsi instance tehoz programu. Zkusil jsem toto v Project Source:
Hwnd := FindWindow('F_Main','OneCopy');
if Hwnd = 0 then
begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TF_Main, F_Main);
ShowWindow(Application.Handle, SW_HIDE);
Application.Run;
end;
ale klidne to dela dalsi instance i nadale.
Jiri Becvar
auxsetvolume(Device,v)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.9.1998 20:14:53
Zdenek Petruj wrote:
>
> Nevite nekdo jak zjistit Device pro funkci auxsetvolume(Device,v) .
> Potrebuju to pro nastaveni hlasitosti prehravani audio CD a nekde v
> nejakem prikladovem zdrojaku CD prehravace to byla natvrdo konstanta
> Device=2. U meho audio mixeru na mem pocitaci to fungovalo, ale u kolegy
> na jinem mixeru to nefungovalo a metodou pokusu a omylu jsem zjistil ze
> u neho pro CD Device=1 .
Ahoj,
To je podobny problem na jaky jsi se ptal nedavno, melo by to sice jit
nejak takhle:
function SetAuxCDAudioVolume(Volume: DWORD): Boolean;
var
AuxCaps: TAuxCaps;
I: UINT;
begin
Result := False;
for I := 0 to auxGetNumDevs - 1 do
begin
FillChar(AuxCaps, Sizeof(AuxCaps), 0);
if (auxGetDevCaps(I, (zv)AuxCaps, Sizeof(AuxCaps)) = MMSYSERR_NOERROR) and
(AuxCaps.wTechnology = AUXCAPS_AUXIN) then
Result := (auxSetVolume(I, Volume) = MMSYSERR_NOERROR);
end;
end;
ale je tam opet urcita nesrovnalost v tou konstantou AUXCAPS_AUXIN, podle me
by spravne melo byt AUXCAPS_CDAUDIO jenze to u me zvukovky nefunguje (jen pro
informaci u ni ma CD Device = 0).
Dalsi moznost je nastavit hlasitost u vstupu mixeru s nazvem "CD":
procedure CheckMMResult(Value: MMRESULT);
begin
if Value <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('Mixer Error %d', [Value]);
end;
procedure SetCDInputVolume(Volume: DWORD);
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I, Inputs: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
VolumeCD: MIXERCONTROLDETAILS_UNSIGNED;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
Inputs := 0;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine, MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
Inputs := MixerLine.cConnections;
Break;
end;
end;
MixerControls.cControls := 0;
for I := 0 to Inputs - 1 do
begin
MixerLine.dwSource := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine, MIXER_GETLINEINFOF_SOURCE));
if Pos('CD', MixerLine.szShortName) = 1 then
begin
MixerControls.cControls := MixerLine.cControls;
Break;
end;
end;
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls, MIXER_GETLINECONTROLSF_ONEBYTYPE));
MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(VolumeCD);
MixerControlDetails.paDetails := (zv)VolumeCD;
VolumeCD.dwValue := Volume;
CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails, MIXER_SETCONTROLDETAILSF_VALUE));
finally
mixerClose(Mixer);
end;
end;
--
Petr Vones, amatersky programator
Nahrazeni prikazu D1 na D3
[*] heinisch(zv)post(tec)cz - 15.9.1998 20:16:49
Ahoj all
Priklad pouziti funkce GlobalMemoryStatus
procedure TAboutBox.FormCreate(Sender: TObject);
var MS: TmemoryStatus;
begin
GlobalMemoryStatus(Ms);
Label4.Caption:=FormatFloat('#,### KB', MS.dwTotalPhys/1024);
Label5.Caption:=Format('%d %%', [MS.dwMemoryLoad]);
end;
end.
HeiJu
-----P�vodn� zpr�va-----
Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 2:00
P�edm�t: RE: Nahrazeni prikazu D1 na D3
>Jednou jsem taky hledal GetFreeSystemResources.
>Nasel jsem ale jinou - SystemHeapInfo - libi se mi vic.
>Zjistil jsem, ze je tato funkce k dispozici pouze v 16 bitove verzi
>a musi se tedy volat 16 bitove. Neprisel jsem na jiny zpusob,
>jak provolat 16 bit. DLL z 32 bit. aplikace, nez spustit 16 bit.
>aplikaci,
>ktera zjisti data a preda nam je.
>Neni to vubec pekne, ale myslim, ze Microsoft ve sve aplikaci MSINFO32
>to dela stejnym zpusobem.
>
>Konkretne tedy mam sestnactibitovou okenni aplikaci, ktera po obdrzeni
>zpravy zjisti stav Resources a zapise ho do souboru
>
>v 16. bitove aplikaci zjistim Resources takto(BorlandPascal 7.0):
>
>uses
> WinTypes, WinProcs, OWindows, ODialogs, strings, ToolHelp;
>
>{
>nezbytnosti pro aplikaci ...vynechano
>}
>
>procedure TMonitor.WMUser(var Msg: TMessage);
>var
> SysHeapInfo: PSysHeapInfo;
> f: Text;
> USERRes, GDIRes: string;
>begin
> {zjisteni resources do promennych (string) GDIRes, USERRes}
> New(SysHeapInfo);
> SysHeapInfo^.dwSize := SizeOf(SysHeapInfo^);
> SystemHeapInfo(SysHeapInfo);
> Str(SysHeapInfo^.wUserFreePercent, USERRes);
> Str(SysHeapInfo^.wGDIFreePercent, GDIRes);
> Dispose(SysHeapInfo);
>
> //dale predani zjistenych hodnot USERRes a GDIRes
> //(ja je pouze zapisuji do sveho *.log souboru)
> //....
>end;
>
>HTH
>
>Jura
>----------
>Jiri Polak
>e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
>
>> -----Original Message-----
>> From: /O=INEQ/OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON On Behalf Of Bardon
>> Sent: Thursday, September 10, 1998 10:24 AM
>> To: 'DELPHI Distribution List'
>> Subject: RE: Nahrazeni prikazu D1 na D3
>>
>> 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
>>
>kalkulacka vo W95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.9.1998 20:23:51
Pavel Malinsk� wrote:
>
> Ahoj,
>
> trosku jsem testoval fci GetCalcResult a tak jak
> jsi ji prezentoval chodi OK, ale pouze je-li kalkulacka
> prepnuta v rezimu "Standartni" pro rezim "Vedecka"
> to bude chtit asi upravit. Odhadem bych rekl,
> ze je treba upravit const CALC_EDITID.
Ano, to je treba, posilal jsem sem podobny priklad a tam jsem to rozlisoval. Ma
to vsak jeste dalsi problem, treba to ze v jine verzi Windows to nemusi fungovat
protoze ID daneho prvku Kalkulacky muze byt jine (mimochodem, ty konstanty ID
jsou nekde dokumentovane nebo si je clovek vzdy musi zjistit ?).
--
Petr Vones, amatersky programator
RxDBGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.9.1998 20:30:37
> Boris Pe�ka wrote:
>
> Zdravim !
>
> Kdyz v RxDBGridu nastavim vlastnost MultiSelect na true, tak jak mam
> zjistit,
> ktere zaznamy jsem vybral ?
Ahoj,
Tady se doctes jak na to:
http://www.inprise.com/devsupport/delphi/ti_list/TI2976.html
--
Petr Vones, amatersky programator
Problem s grafickym nastavenim formularu
[*] heinisch(zv)post(tec)cz - 15.9.1998 21:28:56
Ahoj posilam ti vysledek tak jak to slo udelat mne ale pokud to tak budes
delat tak
podekuj zasilateli napadu s
TWinControlHack = class(TWinControl);
a to je Jan Najvarek najvarek(zv)dame.fee.vutbr(tec)cz
nefunguje akorat Button a i BitBtn coz je zajimave. kdyz bude nekdo vedet
proc
tak at se ozve.
Ahoj HeiJu
//// form
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VCtrls, ComCtrls, Buttons, ExtCtrls, Grids, Mask,
SpeedButtonColor, Rulers, ComboBoxFlat;
type
TWinControlHack = class(TWinControl);
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
CheckBox1: TCheckBox;
ComboBox1: TComboBox;
ListBox1: TListBox;
GroupBox1: TGroupBox;
Label1: TLabel;
TreeView1: TTreeView;
ListView1: TListView;
BitBtn1: TBitBtn;
SpeedButton1: TSpeedButton;
Bevel1: TBevel;
StaticText1: TStaticText;
MaskEdit1: TMaskEdit;
StringGrid1: TStringGrid;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
// rucne dodane funkce
function Obarvi( Ob:TObject):boolean;
function ZmenFont( Ob:TObject):boolean;
function GetRandomRange(const Min,Max:integer;const
VcetneMax:boolean):integer;
var
Form1: TForm1;
implementation
{$R *.DFM}
function GetRandomRange(const Min,Max:integer;const
VcetneMax:boolean):integer;
var C:ShortInt;
begin
C:=(ShortInt(VcetneMax));
Result:=Random(Max-Min+C)+Min;
end;
function Obarvi(Ob:TObject):boolean;
begin
TWinControlHack(Ob).Brush.Color:=RGB(Random(255),Random(255),Random(255));;
end;
function ZmenFont(Ob:TObject):boolean;
begin
TWinControlHack(Ob).Font.size:=GetRandomRange(5,20,true);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I :=0 to ComponentCount - 1 do
begin
if (Components[I] is TwinControl) then begin
Obarvi(Components[I]);
ZmenFont(Components[I]);
end;
end;
end;
end.
-----P�vodn� zpr�va-----
Od: Bardon <INEQSW(zv)ova.pvtnet(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 14:13
P�edm�t: RE: Problem s grafickym nastavenim formularu
Ahoj Martine,
ne�lo by nastavit ParentColor na True a pak m�nit barvu na parentovi - a� u�
je to formul��, nebo t�eba polo�it v�e na panel ?
-----P�vodn� zpr�va-----
Od: Martin Lasevi� [SMTP:ml_software(zv)email(tec)cz]
Odesl�no: 15. z��� 1998 13:09
Komu: 'delphi(zv)pinknet(tec)cz'
P�edm�t: Problem s grafickym nastavenim formularu
U sveho programu resim problem, jak jednoduse zajisti pri create formulare
zmenu properties Color a Font.Color u visualnich komponent ( i
standardnich). Nechci toto resit pretypovanim pro kazdou komponentu (jsou
jich mraky).
Snad jsem nasel cestu pres pouziti typu TWinControl, ale tady jsou ty
propertie v sekci protected. Nevite nekdo o o zpusobu, ktery by dokazal
tuto zmenu jednoduse a pritom provest univerzalne provest?
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho
software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
=======================================================
Runtime Error
[*] heinisch(zv)post(tec)cz - 15.9.1998 21:34:41
Ahoj
to myslis jako v cyklu / treba repeat ci while / ?
jenze to bych musel mazat i objekt z ktereho jsem napojen na dalsi objekt
/ten mazany/ abych se me ten dalsi dostal na 0 index.
nebo je to jinak
HeiJu
-----P�vodn� zpr�va-----
Od: Jan Fiala <fiala(zv)iname.com>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 2:00
P�edm�t: Re: Runtime Error
>
>Zkus to uvolnovat vzdy s indexem 0. Neco podebneho uz tu bylo s MenuItem.
>
>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: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
> To: Konference Delphi <delphi(zv)pinknet(tec)cz>
> Date: 14. z��� 1998 21:23
> Subject: Runtime Error
>
>
> procedure TfoParametry.UvolniImage;
> Var
> b:integer;
> begin
> for B := 0 to (ListView1.Items.Count - 1) do
> begin
> if ListView1.Items[B].data<> nil then
> TImage(ListView1.Items[B].data).Free;
> ListView1.Items[B].data:=nil;
> end;
>
>
> Pri uvolnovani objektu touto metodou se pri ukonceni aplikace objevi
chybova
> hlaska
> s textem
>
> "Exception EAccessViolation in module VCL30.DPL at FFFFF017"
> " Access violation at adress 00000017. Write of address F010F818"
>
> A ja nikde v programu nezapisuju do techto uvolnenych objektu
> Do doby ukonceni programu se objekty uvolni a nic se nedeje.
> Nikde v programu jiz zadny kod nemam ktery by po zruseni objektu na nej
> sahal.
>
> Achjo a tak to vypadalo krasne
>
>
> HeiJu Diky
>
>
> P.S. Uz jsem na to prisel /aspon doufam/
>
> Nesmi se pouzit TImage a u nej pouzivat TPicture ale primo
TPicture.Create
> a TPicture.Free
> hlaska je pryc a pamet to uvolnuje.
>
> Pisu to jen pro pripad kdyby s tim nekdo v budoucnu potykal a sel se
podivat
> do archivu.
>
>
>OpenGL filling - problem
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 15.9.1998 22:44:23
Prosim ak viete niekto ako funguje vyfarbovanie /filling/ pre polyline.
Pouzivam len 2D. Ide mi o vyfarbenie plochy. Stvorec vyfarbit viem.
Mnohouholnik tiez. Problem je ked chcem vyfarbit obrazec typu
hviezda. Napriklad stvorec so stranami zalomenymi dovnutra.
(Nieco ako stvorcipa hviezda).
Prax je nasledovna:
Prve dve strany v smere vytvarania hviezdy su OK, tretia a stvrta
strana tohoto /kvazi stvorcoveho / utvaru - so zalomeneymi hranami
smerom dovnutra sa vyfarbia ako by islo skutocne len o stvorec.
Teda zalomenie stran dovnutra akoby neexistovalo.
Pritom obrysova kresba bez vyfarbenia jasne zobrazi stvorcipu
hviezdu, ale vyfarbenie na poslednych dvoch stranach /zalomeneho/
stvorca prekryje toto zalomenie stran. Neviem tomu nijako zabranit.
Je mozne, ze OpenGL nedokaze normalne vyfarbit normalny plosny
utvar ?
Dakujem za kazdy poznato veduci k rieseniu
Miro
Typ databaze
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 16.9.1998 05:49:36
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Cigleri maji vlastni engine
-----P�vodn� zpr�va-----
Od: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
Komu: Konference Delphi <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 20:20
P�edm�t: Typ databaze
Ahoj all
kdo vi v jakem formatu pracuje databaze / tabulky/ v
v ucetnim software Money 97 od firmy Cigler.
HeiJu
Jen jedna instance
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 16.9.1998 05:56:20
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
V FindWindow musi byt trida, cili TF Main. Druhy parametr je lepsi dat na NIL, tak nebudes zavisly na titulku aplikace (pokud ji programove menis)
Hwnd := FindWindow('TF Main', nil);
-----P�vodn� zpr�va-----
Od: REAiA consulting <contact(zv)reaia(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 16:56
P�edm�t: Jen jedna instance
Je to asi trivialni, ale porad nemuzu dosahnout toho, aby nesla spustit
dalsi instance tehoz programu. Zkusil jsem toto v Project Source:
Hwnd := FindWindow('F Main','OneCopy');
if Hwnd = 0 then
begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TF Main, F Main);
ShowWindow(Application.Handle, SW HIDE);
Application.Run;
end;
ale klidne to dela dalsi instance i nadale.
Jiri Becvar
Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.9.1998 06:20:13
Dobre rano,
prosim o radu. Je mozne vyvolat 16bit DLL z 32bit programu nebo DLL
? Pokud ano, pak za jakych podminek a pokud ne, pak jak to obejit. Dekuji za
jakoukoliv radu.
Jaro B. micrel(zv)micrel(tec)cz
Typ databaze
[*] Milan Scho�ovsk� - 16.9.1998 06:26:17
Tady to by nepomohlo?
http://www.inprise(tec)cz/ciglersw.htm
-----P�vodn� zpr�va-----
Od: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
Komu: Konference Delphi <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 20:24
P�edm�t: Typ databaze
>Ahoj all
>kdo vi v jakem formatu pracuje databaze / tabulky/ v
>v ucetnim software Money 97 od firmy Cigler.
>
>HeiJu
Skoleni
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.9.1998 07:08:25
Ahoj all,
domlouvam s Inprise lektorstvi na kurzech o Delphi. Na namet
"Pokrocile programovani v Delphi" mam dohodnute dva kurzy, jeden
o tvorbe komponent a wizardu (do New Items), druhy o
databazovych aplikacich.
Chtel jsem se zeptat, kdybyste treba na nejaky takovy kurz sli, co
byste se tam chteli dozvedet. Pripadne zda mate pro pokrocile
programovani dalsi namety, ktere byste se na takovem skoleni
chteli dozvedet.
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
How to encrypt a string
[*] Jan Nov�k���r����n�?��? - 16.9.1998 07:26:38
Ahoj.
Zajimalo by mne jak se da udelat encryptace a decryptace stringu.
funkce Ecrypt( .......): String; funkce Decrypt( ): string;
Nema nekdo ZDROJAk !!! techto sfirovacich funkci nebo komponentu , ktera by
to umela. Sifrovaci funkce Delphi nemaji.
Da se koupit nejaka knihovna , ktera by to umela.?
Tento dotaz jsem uz posilal , taky tu byl dotaz na komponentu,
bohuzel jsem se nedozvedel nic konkretniho.
Na technickych informacich Inprise JE to c. 2803 je priklad. Ten mi vsak
nefunguj. Mam Delphi 3.
Diky vsem pratelum Delphi za radu.Aktivace okna podruhe
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 16.9.1998 07:30:23
Ahoj!
Moc jsem se toho o aktivacich okna nedozvedel... vi tu nekdo, jak
poslat oknu/aplikaci zpravu, ze ma bejt aktivni?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Nahrazeni prikazu D1 na D3
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.9.1998 07:38:42
Asi jsem to zapomnel zduraznit ve svem prispevku.
Ackoliv Microsoft v MSDN uvadi, ze GlobalMemoryStatus
je nahrada funkce GetFreeSystemResources, neni tomu tak.
GlobalMemoryStatus vraci udaje o stavu pameti, kdezto
GetFreeSystemResources vraci udaje o systemovych resources,
coz je neco jineho. Tyto resources maji ve Win95
16bitovou spravu a pevnou velikost (64KB?). Z resources
uzira bajtiky kazdy handle - podrobnosti neznam, ale to zpusobi,
ze po vice otevrenych oknech (pokud mozno s mnoha controls)
nejde otevrit dalsi okno/aplikace a musime neco zavrit.
Pritom pameti je v tomto okamziku jeste volne dost.
Na WinNT patrne nemaji system resources uz vyznam,
protoze tam je sprava prostredku 32bitova.
Z toho duvodu neni mozne jednoduse zjistovat systemove
resources z 32bitove aplikace a plati muj prvni prispevek
k tematu (nize). Videl jsem ale, ze se tady nekdo pta na moznost
provolani 16bit. dll z 32bit. aplikace, takze se to treba jeste naucime.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
> -----Original Message-----
> From: heinisch(zv)post(tec)cz [SMTP:heinisch(zv)post(tec)cz]
> Sent: Tuesday, September 15, 1998 8:17 PM
> To: 'DELPHI Distribution List'
> Subject: Re: Nahrazeni prikazu D1 na D3
>
> Ahoj all
>
>
> Priklad pouziti funkce GlobalMemoryStatus
>
> procedure TAboutBox.FormCreate(Sender: TObject);
> var MS: TmemoryStatus;
> begin
> GlobalMemoryStatus(Ms);
> Label4.Caption:=FormatFloat('#,### KB', MS.dwTotalPhys/1024);
> Label5.Caption:=Format('%d %%', [MS.dwMemoryLoad]);
> end;
> end.
>
>
> HeiJu
>
>
>
> -----P�vodn� zpr�va-----
> Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
> Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
> Datum: 15. z��� 1998 2:00
> P�edm�t: RE: Nahrazeni prikazu D1 na D3
>
>
> >Jednou jsem taky hledal GetFreeSystemResources.
> >Nasel jsem ale jinou - SystemHeapInfo - libi se mi vic.
> >Zjistil jsem, ze je tato funkce k dispozici pouze v 16 bitove verzi
> >a musi se tedy volat 16 bitove. Neprisel jsem na jiny zpusob,
> >jak provolat 16 bit. DLL z 32 bit. aplikace, nez spustit 16 bit.
> >aplikaci,
> >ktera zjisti data a preda nam je.
> >Neni to vubec pekne, ale myslim, ze Microsoft ve sve aplikaci
> MSINFO32
> >to dela stejnym zpusobem.
> >
> >Konkretne tedy mam sestnactibitovou okenni aplikaci, ktera po
> obdrzeni
> >zpravy zjisti stav Resources a zapise ho do souboru
> >
> >v 16. bitove aplikaci zjistim Resources takto(BorlandPascal 7.0):
> >
> >uses
> > WinTypes, WinProcs, OWindows, ODialogs, strings, ToolHelp;
> >
> >{
> >nezbytnosti pro aplikaci ...vynechano
> >}
> >
> >procedure TMonitor.WMUser(var Msg: TMessage);
> >var
> > SysHeapInfo: PSysHeapInfo;
> > f: Text;
> > USERRes, GDIRes: string;
> >begin
> > {zjisteni resources do promennych (string) GDIRes, USERRes}
> > New(SysHeapInfo);
> > SysHeapInfo^.dwSize := SizeOf(SysHeapInfo^);
> > SystemHeapInfo(SysHeapInfo);
> > Str(SysHeapInfo^.wUserFreePercent, USERRes);
> > Str(SysHeapInfo^.wGDIFreePercent, GDIRes);
> > Dispose(SysHeapInfo);
> >
> > //dale predani zjistenych hodnot USERRes a GDIRes
> > //(ja je pouze zapisuji do sveho *.log souboru)
> > //....
> >end;
> >
> >HTH
> >
> >Jura
> >----------
> >Jiri Polak
> >e-mail:jura.polak(zv)email(tec)cz
> > jiri.polak(zv)tconsult(tec)cz
> >
> >> -----Original Message-----
> >> From: /O=INEQ/OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON On Behalf Of
> Bardon
> >> Sent: Thursday, September 10, 1998 10:24 AM
> >> To: 'DELPHI Distribution List'
> >> Subject: RE: Nahrazeni prikazu D1 na D3
> >>
> >> 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
> >>
> >Jen jedna instance
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 16.9.1998 08:10:34
Ja bych prispel se svou troskou do mlyna a pro priznivce RxLib uvadim jeste
tuto moznost:
uses VclUtils;
if (FindPrevInstance('TAppBuilder','')=0) and
(FindPrevInstance('TTvujForm','')<>0) then begin
Showmessage('B�� jin� aplikace!'+#13#10);
Application.Terminate;
Exit;
end;
Pouzito v D3 a testovano na Win95 a WinNT.
Reseni od Borlandu se mi zda trosku prekombinovane.
Dalsi ponekud jednodussi je pouziti Atomu. Prvni aplikace vytvori atom a ty
dalsi uz se jen zeptaji jestli tam je nebo neni. Kdyz je ukonci se.
StrPCopy((zv)Cha,'PUMPINO');
Atom:=GlobalFindAtom((zv)Cha);
if Atom <> 0 then begin
Showmessage('Aplikace je ji� spu�t�na. Tato instance se
ukon��.'+#13#10+'(ForceStart)');
Application.Terminate;
end else begin
Atom:=GlobalAddAtom((zv)Cha);
end;
end;
a na konci
GlobalDeleteAtom(Atom);
Martin
>REAiA consulting wrote:
>>
>> Je to asi trivialni, ale porad nemuzu dosahnout toho, aby nesla spustit
>> dalsi instance tehoz programu. Zkusil jsem toto v Project Source:
>>
>> Hwnd := FindWindow('F_Main','OneCopy');
>> if Hwnd = 0 then
>> begin
>> Application.Initialize;
>> Application.ShowMainForm := False;
>> Application.CreateForm(TF_Main, F_Main);
>> ShowWindow(Application.Handle, SW_HIDE);
>> Application.Run;
>> end;
>> ale klidne to dela dalsi instance i nadale.
>> Jiri Becvar
>
>Ahoj,
>
>pro zabraneni spusteni vice instanci pouzij radeji zpusob uvedeny zde:
>
>http://www.inprise.com/devsupport/delphi/qanda/844.html
>
>Toto reseni je vyhodnejsi protoze neni zavisle na nastaveni titulku
aplikace.
Automatick� odpov�da�
[*] Pavel ZIDEK <kopr(zv)applet(tec)cz> - 16.9.1998 08:23:45
Laskav� tento automatick� odpov�da� vypni z t�to konference.
P�ece nemus�m po��d ��st po��d stejnou zpr�vu
----------------------------------------------------
KOPR software Pavel ZIDEK
voice 069 / 66 02 156
mailto:kopr(zv)applet(tec)cz http://www.applet(tec)cz/~kopr
pridej svou ikonu: http://www.applet(tec)cz/~kopr/www
----------------------------------------------------
----------
> Odes�latel: ml_software(zv)email(tec)cz
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Automatick� odpov�da�
> Datum: 15. z��� 1998 9:35
>
> D�kuji za doru�enou zpr�vu. Pokud se jedn� o spamming,
> zapome�te tuto adresu, v opa�n�m p��pad� se
> pokus�m odpov�d�t co nejd��ve, pokud to povaha Va?�
> zpr�vy vy?aduje.
>
> --- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]ScreenSaver
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 16.9.1998 08:39:24
Ahoj,
vite nekdo jak v D3 udelat vlastni screensaver ?
Chtel bych napriklad neco takoveho, kde by po obrazovce behal "objekt", ktery
by se odrazel o steny jako micek a aby tim "objektem" byl uzivatelem nebo mnou
zvolitelny animovany GIF.
Diky za pomoc.
Dobromil Maly
mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
Automatick� odpov�da�
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 16.9.1998 08:49:43
> -----Original Message-----
> From: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Co dela spravce? Proc uz to nevyhodil?
Podle meho mailboxu probehla komunikace se spravcem listserveru nekdy po
jedne hodine odpoledne (pres gsm)...
Zlikvidovani utocnika problehlo bez varovani v nasledujicich minutach -
zbytek jsou uz jen echa...
Krome toho jsem informoval o tomto kroku i samotneho vinika a zaplevelil
jsem si automatikou i privatni mailbox...
Rychlejc to neslo, za coz se omlouvam...
Tomas
ps. Kdyz nekdo zpozorujete nejaky problem, klidne me upozornete na mem
privat mailboxu (Tomas.Burger(zv)mius(tec)cz nebo
stylove TomasB(zv)pinknet(tec)cz), kontroluju konferenci jednou az dvakrat denne a
tudiz muze nekdy zpozorovani takoveho nesvaru chvilku trvat... T.
Nulova hodnota Date
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 16.9.1998 08:54:23
> Hm, to mas pravdu. Prosim posli mi nejakou aplikaci s komponentou
> TDateTimePicker. Nevim, asi jsem natvrdlej, ale at to delam, jak
> to delam, kdyz udelam aplikaci v Delphi 4, kde je jen jeden formular
> a na nem jen jeden TDateTimePicker, hodi to EXE veliky 299.520 bajtu.
Ad absurdum: Kdyz udelam aplikaci v Delphi 3, kde je jenom 1 formular a 1
TDateTimePicker, ma EXE soubor velikost 193536 bajtu.
> Jinak se to v pohode vejde na 1 disketu, takze problem nevidim.
> Pokud nekdo vybira datum pomoci TDateTimePicker, da se docela
> predpokladat, ze to nebude program, kde je kriticka velikost,
> 400 kB bude jen malickost. To je muj nazor. Ja totiz v Delphi
> opravdu programuji a vidim, jak velike z toho lezou programy,
> pokud delas neco jineho nez 1 tabulka a 1 grid.
Ja taky programuju v Delphi radove 12 hodin denne (nechci se ted prit, kdo
dyl, nejsme deti, ze). Uvazuju ale tak, ze je lepsi pouzit nejakou
komponentu, ktera nevyzaduje sireni dalsich knihoven (napr. TDateEdit a
TDBDateEdit od RX), nehlede na to, ze kdyz pracuju s databazi, nezda se mi
TDateTimePicker zrovna nejvhodnejsi. Jestli jsi jineho nazoru, muzeme se tu
prit do doby, nez Micorosoft vymysli nejaky nepadajici system. ;-)
Ahoj
Milan
<mailto:schemberam(zv)avx(tec)cz>
Problem s grafickym nastavenim formularu
[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 16.9.1998 08:55:02
Ahoj, je to asi ono a je to tak trivialni, ze se az stydim, ze me to hned nenapadlo.
:-)
-----Puvodni zprava-----
Od: heinisch(zv)post(tec)cz [SMTP:heinisch(zv)post(tec)cz]
Odeslano: 15. zaoi 1998 21:29
Komu: 'DELPHI Distribution List'
Poedmit: Re: Problem s grafickym nastavenim formularu
Ahoj posilam ti vysledek tak jak to slo udelat mne ale pokud to tak budes
delat tak
podekuj zasilateli napadu s
TWinControlHack = class(TWinControl);
a to je Jan Najvarek najvarek(zv)dame.fee.vutbr(tec)cz
nefunguje akorat Button a i BitBtn coz je zajimave. kdyz bude nekdo vedet
proc
tak at se ozve.
Ahoj HeiJu
//// form
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VCtrls, ComCtrls, Buttons, ExtCtrls, Grids, Mask,
SpeedButtonColor, Rulers, ComboBoxFlat;
type
TWinControlHack = class(TWinControl);
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
CheckBox1: TCheckBox;
ComboBox1: TComboBox;
ListBox1: TListBox;
GroupBox1: TGroupBox;
Label1: TLabel;
TreeView1: TTreeView;
ListView1: TListView;
BitBtn1: TBitBtn;
SpeedButton1: TSpeedButton;
Bevel1: TBevel;
StaticText1: TStaticText;
MaskEdit1: TMaskEdit;
StringGrid1: TStringGrid;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
// rucne dodane funkce
function Obarvi( Ob:TObject):boolean;
function ZmenFont( Ob:TObject):boolean;
function GetRandomRange(const Min,Max:integer;const
VcetneMax:boolean):integer;
var
Form1: TForm1;
implementation
{$R *.DFM}
function GetRandomRange(const Min,Max:integer;const
VcetneMax:boolean):integer;
var C:ShortInt;
begin
C:=(ShortInt(VcetneMax));
Result:=Random(Max-Min+C)+Min;
end;
function Obarvi(Ob:TObject):boolean;
begin
TWinControlHack(Ob).Brush.Color:=RGB(Random(255),Random(255),Random(255));;
end;
function ZmenFont(Ob:TObject):boolean;
begin
TWinControlHack(Ob).Font.size:=GetRandomRange(5,20,true);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I :=0 to ComponentCount - 1 do
begin
if (Components[I] is TwinControl) then begin
Obarvi(Components[I]);
ZmenFont(Components[I]);
end;
end;
end;
end.
-----Puvodni zprava-----
Od: Bardon <INEQSW(zv)ova.pvtnet(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 15. zaoi 1998 14:13
Poedmit: RE: Problem s grafickym nastavenim formularu
Ahoj Martine,
ne?lo by nastavit ParentColor na True a pak minit barvu na parentovi - a? u?
je to formulao, nebo toeba polo?it v?e na panel ?
-----Puvodni zprava-----
Od: Martin Lasevie [SMTP:ml_software(zv)email(tec)cz]
Odeslano: 15. zaoi 1998 13:09
Komu: 'delphi(zv)pinknet(tec)cz'
Poedmit: Problem s grafickym nastavenim formularu
U sveho programu resim problem, jak jednoduse zajisti pri create formulare
zmenu properties Color a Font.Color u visualnich komponent ( i
standardnich). Nechci toto resit pretypovanim pro kazdou komponentu (jsou
jich mraky).
Snad jsem nasel cestu pres pouziti typu TWinControl, ale tady jsou ty
propertie v sekci protected. Nevite nekdo o o zpusobu, ktery by dokazal
tuto zmenu jednoduse a pritom provest univerzalne provest?
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho
software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
=======================================================
Zmena vzhledu formulare
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 16.9.1998 09:00:35
Tento problem ma elegantni reseni ve vyuziti RTTI (Runtime Type
Information).
Nasledujici priklad obarvi vsechny komponenty na formu majici
vlastnost Color na cerveno:
procedure TForm1.Button1Click(Sender: TObject);
var
PropInfo: PPropInfo;
I: integer;
begin
for I := 0 to Self.ControlCount-1 do begin
PropInfo := GetPropInfo(Self.Controls[I].ClassInfo, 'Color');
if Assigned(PropInfo) then SetOrdProp(Self.Controls[I], PropInfo,
clRed);
end;
Cau
Martin
ml_software(zv)email(tec)cz wrote:
>
> Kdo mi muze poradit?
>
> Resim problem, jak jednoduse a pritom univerzalne zmenit barevny vzhled vsech komponent, ktere jsou polozeny na libovolnem formulari. Jde o to, ze TWinControl ma properties Color a Font.Color v sekci protected, takze se k nim zvenku nedostanu.
>
> Jedine reseni, ktere jsem nasel je kazdou komponentu pretypovat, coz neni zrovna koser. Dale mne napadlo pokusit se odchytit nejaky windows message ( WM_ nebo CM_), ale tady jsem zatim neutrpel uspech.
>
> Diky za odpovedi
> Martens
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
--
+----------------------------------+
| Ing. Martin Dupal |
| address: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: +420/68/5313130 |
| fax.: +420/68/5313132 |
| http://www.vision(tec)cz |
| mailto:mdupal(zv)vision(tec)cz |
+----------------------------------+Aktivace okna podruhe
[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 16.9.1998 09:04:51
Melo by stacit poslat oknu WM_NCACTIVATE ( jedine na tuto zpravu reaguje
udalost OnActivate) nebo WM_ACTIVATE standardnim SendMessage
Pokud vis handle toho okna, mela by to byt hracka. Pokud ne, je potreba
pres WINAPI zjistit handle okna a to pres WINAPI funkci EnumWindow
prochazet vsechna TOP okna a s jejich handle pak delat, co uznas za
vhodne. Je to asi na dlouhe povidani, protoze nevim o jake okno se jedna a
co se s nim pak bude dit.
Jo a jeste existuje WINAPI SetActiveWindow - podrobniji ve WinAPI32.hlp.
Cau :-)
-----Puvodni zprava-----
Od: Kolar Lubor [SMTP:LuborK(zv)tnet(tec)cz]
Odeslano: 16. zaoi 1998 7:30
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Aktivace okna podruhe
Ahoj!
Moc jsem se toho o aktivacich okna nedozvedel... vi tu nekdo, jak
poslat oknu/aplikaci zpravu, ze ma bejt aktivni?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
How to encrypt a string
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 16.9.1998 09:06:07
> Ahoj.
> Zajimalo by mne jak se da udelat encryptace a decryptace stringu.
> funkce Ecrypt( .......): String; funkce Decrypt( ): string;
> Nema nekdo ZDROJAk !!! techto sfirovacich funkci nebo komponentu , ktera by
> to umela. Sifrovaci funkce Delphi nemaji.
> Da se koupit nejaka knihovna , ktera by to umela.?
> Tento dotaz jsem uz posilal , taky tu byl dotaz na komponentu,
> bohuzel jsem se nedozvedel nic konkretniho.
> Na technickych informacich Inprise JE to c. 2803 je priklad. Ten mi vsak
> nefunguj. Mam Delphi 3.
>
Koukni na Web a hledej "xProcs". Kdybys to nenasel, kouknu se po tom nekde na disku a kdyz tak ti to poslu.
S pozdravem
Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>
Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 16.9.1998 09:09:38
Taky resim tento problem, ale zatim nevim jak.Nekde uz jsem o tom slysel v
souvislosti s Win BTrieve 16 bit v D2. Snad to mam doma. Podivam se a poslu
Ti to.
Pokud bys to vsak nasel driv, dej mi vedet.
Diky
Martens
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho
software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
=======================================================
-----Puvodni zprava-----
Od: Bene? Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
Odeslano: 16. zaoi 1998 6:20
Komu: 'DELPHI Distribution List'
Poedmit: Vyvolani 16bit DLL z 32bit EXE/DLL
Dule?itost: Velka
Dobre rano,
prosim o radu. Je mozne vyvolat 16bit DLL z 32bit programu nebo DLL
? Pokud ano, pak za jakych podminek a pokud ne, pak jak to obejit. Dekuji
za
jakoukoliv radu.
Jaro B. micrel(zv)micrel(tec)cz
Vlastnosti komponent za behu
[*] Robert Walaski <robert(zv)silesnet(tec)cz> - 16.9.1998 09:22:24
Ahoj,
Ve svem programu potrebuji cist vlastnosti komponent za behu programu.
Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na vlastnost,
ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu se k
tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho vlastnosti. Da
se to nejak rozumne udelat?
Za vsechny odpovedi predem DIK.
S pozdravem
Robert Walaski
__________________
robert(zv)silesnet(tec)cz
ScreenSaver
[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 16.9.1998 09:33:47
Nevim, ale pokud by ses to dozvedl, dej mi vedet. Rad bych se poucil taky.
Diky
Martin Lasevie
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
=======================================================
-----Puvodni zprava-----
Od: Dobromil Maly [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odeslano: 16. zaoi 1998 8:39
Komu: '- Konf Delphi'
Poedmit: ScreenSaver
Ahoj,
vite nekdo jak v D3 udelat vlastni screensaver ?
Chtel bych napriklad neco takoveho, kde by po obrazovce behal "objekt", ktery
by se odrazel o steny jako micek a aby tim "objektem" byl uzivatelem nebo mnou
zvolitelny animovany GIF.
Diky za pomoc.
Dobromil Maly
mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
auxsetvolume(Device,v)
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 16.9.1998 09:35:24
No tak asi jsem narazil na podobny problem jako ty. Zkousel jsem zatim
jen ten tvuj prvni priklad - pokud pouziju konstantu AUXCAPS_CDAUDIO tak
u me zvukovky to vraci CD Device spravne ale u kolegy to nevraci vubec
nic. Pokud pouziju AUXCAPS_AUXIN tak to zase funguje u kolegy ale u mne
ne. Nechal jsem si vypisovat AuxCaps.szPName a zjistil jsem ze u mne to
naslo CD ale u kolegy to nedetekovalo CD ale jsou tam dva Aux vystupy
kde Aux2 je CD. Tak ted jsem z toho jelen a navic u kolegy ten tvuj
priklad vracel CD Device toho Aux1 takze k CD se to vubec nedostalo.
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 15. z��� 1998 20:15
> Komu: DELPHI Distribution List
> P�edm�t: Re: auxsetvolume(Device,v)
>
> Zdenek Petruj wrote:
> >
> > Nevite nekdo jak zjistit Device pro funkci auxsetvolume(Device,v) .
> > Potrebuju to pro nastaveni hlasitosti prehravani audio CD a nekde v
> > nejakem prikladovem zdrojaku CD prehravace to byla natvrdo konstanta
> > Device=2. U meho audio mixeru na mem pocitaci to fungovalo, ale u
> kolegy
> > na jinem mixeru to nefungovalo a metodou pokusu a omylu jsem zjistil
> ze
> > u neho pro CD Device=1 .
>
> Ahoj,
>
> To je podobny problem na jaky jsi se ptal nedavno, melo by to sice jit
> nejak takhle:
>
> function SetAuxCDAudioVolume(Volume: DWORD): Boolean;
> var
> AuxCaps: TAuxCaps;
> I: UINT;
> begin
> Result := False;
> for I := 0 to auxGetNumDevs - 1 do
> begin
> FillChar(AuxCaps, Sizeof(AuxCaps), 0);
> if (auxGetDevCaps(I, (zv)AuxCaps, Sizeof(AuxCaps)) =
> MMSYSERR_NOERROR) and
> (AuxCaps.wTechnology = AUXCAPS_AUXIN) then
> Result := (auxSetVolume(I, Volume) = MMSYSERR_NOERROR);
> end;
> end;
>
> ale je tam opet urcita nesrovnalost v tou konstantou AUXCAPS_AUXIN,
> podle me
> by spravne melo byt AUXCAPS_CDAUDIO jenze to u me zvukovky nefunguje
> (jen pro
> informaci u ni ma CD Device = 0).
>
> Dalsi moznost je nastavit hlasitost u vstupu mixeru s nazvem "CD":
>
> procedure CheckMMResult(Value: MMRESULT);
> begin
> if Value <> MMSYSERR_NOERROR then
> raise Exception.CreateFmt('Mixer Error %d', [Value]);
> end;
>
> procedure SetCDInputVolume(Volume: DWORD);
> var
> Mixer: HMixer;
> MixerCaps: TMixerCaps;
> MixerLine: TMixerLine;
> I, Inputs: Integer;
> MixerControls: TMixerLineControls;
> MixerControl: TMixerControl;
> MixerControlDetails: TMixerControlDetails;
> VolumeCD: MIXERCONTROLDETAILS_UNSIGNED;
> begin
> CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
> try
> CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
> MixerLine.cbStruct := Sizeof(MixerLine);
> Inputs := 0;
> for I := 0 to MixerCaps.cDestinations - 1 do
> begin
> MixerLine.dwDestination := I;
> CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
> MIXER_GETLINEINFOF_DESTINATION));
> if MixerLine.dwComponentType =
> MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
> begin
> Inputs := MixerLine.cConnections;
> Break;
> end;
> end;
>
> MixerControls.cControls := 0;
> for I := 0 to Inputs - 1 do
> begin
> MixerLine.dwSource := I;
> CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
> MIXER_GETLINEINFOF_SOURCE));
> if Pos('CD', MixerLine.szShortName) = 1 then
> begin
> MixerControls.cControls := MixerLine.cControls;
> Break;
> end;
> end;
>
> MixerControls.cbStruct := Sizeof(MixerControls);
> MixerControls.cbmxctrl := Sizeof(TMixerControl);
> MixerControls.pamxctrl := (zv)MixerControl;
> MixerControls.cControls := 1;
> MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
> MixerControls.dwLineID := MixerLine.dwLineID;
> CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls,
> MIXER_GETLINECONTROLSF_ONEBYTYPE));
>
> MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
> MixerControlDetails.dwControlID := MixerControl.dwControlID;
> MixerControlDetails.cChannels := 1;
> MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
> MixerControlDetails.cbDetails := Sizeof(VolumeCD);
> MixerControlDetails.paDetails := (zv)VolumeCD;
>
> VolumeCD.dwValue := Volume;
> CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails,
> MIXER_SETCONTROLDETAILSF_VALUE));
> finally
> mixerClose(Mixer);
> end;
> end;
>
>
> --
> Petr Vones, amatersky
> programator
> Automaticky odpovidae
[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 16.9.1998 09:37:51
Ahoj, omlouvam se za ten odpovidac,ale nejak jsem se zapomel, a pak uz bylo pozde.
Takze jeste jednou, pardon. Uz je mrtvej
Diky
Martin Lasevic
-----Puvodni zprava-----
Od: Martin Fronik [SMTP:FRONEK(zv)ZZNSLANY.CZ]
Odeslano: 15. zaoi 1998 13:53
Komu: 'DELPHI Distribution List'
Poedmit: RE: Automaticky odpovidae
Dostavam. A nelibi se mi to. Jenze odesilatelem je konference, takze
bude na spravci aby s tim neco udelal.
Martin Fronik
ZZN Slany a.s.
Pra?ska 1579, 274 49, Slany
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----Puvodni zprava-----
> Od: Svatopluk Vit [SMTP:vit(zv)ardo(tec)cz]
> Odeslano: 15. zaoi 1998 12:16
> Komu: 'DELPHI Distribution List'
> Poedmit: RE: Automaticky odpovidae
>
> Taky dostavate zpravy od auto odpovidace? Nechci dostavat tuto zpravu.
>
> Nevite, kdo je autorem? (tzn. ma nastaveno auto odpovidani na
> WWW.EMAIL.CZ). S kazdou odeslanou zpravou prijde odpoved....
>
> Dikuji za dorueenou zpravu. Pokud se jedna o spamming,
> zapomeote tuto adresu, v opaenem poipadi se
> pokusim odpovidit co nejdoive, pokud to povaha Va?i
> zpravy vy?aduje.
>
> --- Automaticky odpovidac [ATC ORGANIZER http://email(tec)cz/]
>
Typ databaze
[*] Martin Lasevi� <ml_software(zv)email(tec)cz> - 16.9.1998 09:40:06
Nevim, ikdyz jej taky pouzivam. Mam ale na INVEXU s CIglerem domluvenou schuzku, tak se jej optam.
Jinak ale MONEY 97 podporuje export tabulek v DBF.
Ahoj
Martin
-----Puvodni zprava-----
Od: heinisch(zv)post(tec)cz [SMTP:heinisch(zv)post(tec)cz]
Odeslano: 15. zaoi 1998 12:11
Komu: Konference Delphi
Poedmit: Typ databaze
Ahoj all
kdo vi v jakem formatu pracuje databaze / tabulky/ v
v ucetnim software Money 97 od firmy Cigler.
HeiJu
Kurs tvorby napovedy 1
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 16.9.1998 09:52:59
Funguje vam toto URL na download help compileru pro
RTF z Wordu 97 ?. Mne ne.
http://support.microsoft.com/support/kb/articles/Q164/0/12.asp
Jestli mate nejaky jiny tip, tak dejte, prosim, vedet.
Dik
Martin
--
+----------------------------------+
| Ing. Martin Dupal |
| address: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: +420/68/5313130 |
| fax.: +420/68/5313132 |
| http://www.vision(tec)cz |
| mailto:mdupal(zv)vision(tec)cz |
+----------------------------------+BDE
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 16.9.1998 10:25:11
Sa se pouzit nova verze BDE 5.0 i v Delphi 3.0 CS ?
Petr
SQL datum HEEEELP
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 16.9.1998 10:28:45
ANO existuje. Nastuduj si z transact SQL helpu funkci CONVERT, zjistis ze umi nejen to co chces, ale i mnoho dalsich veci. Soustred se zejmena na treti nepovinny parametr funkce. Pokud by ti nevadilo dd.mm.yyyy, pak reseni tveho pripadu bude CONVERT( char(10), DATUM, 102). Jestli ti vadi tecky, pohledej operace s retezci a odstran si je. Kdybys to chtel delat slozite, muzes vyuzivat take funkci DATEPART a skladat vysledek. Kdybys to chtel resit na urovni Delphi, pouzij FormatDateTime. Kdybys to chtel resit na urovni BDE, je to v systemovych parametrech BDE, asi to pujde zmenit i docasne v runtime. Jde to resit i na urovni parametru Windows. Vsechno zalezi na tom, kde a k cemu to potrebujes.
-----P�vodn� zpr�va-----
Od: Marek Koci [SMTP:koci(zv)servodata(tec)cz]
Odesl�no: 16. z��� 1998 7:53
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: SQL datum HEEEELP
Panove existuje v sql serveru od microsoftu
nejakej prikaz na formatovani datumu aby vracel jenom
ddmmyyyy a nedaval tam cas?
dik
Problem s MEMO
[*] Ing. J�n Kuch�r�����!j��G - 16.9.1998 10:33:40
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledujuci problem. Potrebujem aby sa mi v komponente MEMO posuval kurzor vzdy o jeden znak a zistil ake pismeno sa na tej danej pozicii nachadza a neviem ako na to. Beriem vsetky redy.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk TRichEdit
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 16.9.1998 10:46:43
> melo by to jit pomoci prepsani zpravy WM_INPUTLANGCHANGEREQUEST:
Bezvadne. V te souvislosti se zeptam jeste na jednu vec.
Kdyz vkladam do TRichEditu pomoci PasteFromClipboard, prenaseji se mi i
atributy textu (coz nechci). Jak tomu zamezit? Chci pouze cisty text
podle nastaveni fontu TRicheditu.
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://members.tripod.com/~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 .
.........................................................auxsetvolume(Device,v)
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 16.9.1998 10:56:44
Tak uz jsem vyzkousel i tvuj druhy priklad - pristup primo na mixer
funguje vsude - to je OK, ale nezlob se ze jeste otravuju ale potreboval
bych jeste zjistit aktualni nastaveni Volume. Driv jsem pouzival
auxgetvolume, no ale to jsem zase tam kde jsem byl. Prosimte pomoz mi
jeste s timhle. Asi to pujde nejak tak jak se Volume nastavuje, ale
vzhledem k tomu, ze hlavni gro me prace nespociva v nastavovani audio
funkci ve windows, tak nemam mmsystem v malicku a nez bych na to metodou
pokusu a omylu prisel, tak by hodne vody uplynulo. Zatim dik za
dosavadni pomoc.
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: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 15. z��� 1998 20:15
> Komu: DELPHI Distribution List
> P�edm�t: Re: auxsetvolume(Device,v)
>
> Dalsi moznost je nastavit hlasitost u vstupu mixeru s nazvem "CD":
>
> procedure CheckMMResult(Value: MMRESULT);
> begin
> if Value <> MMSYSERR_NOERROR then
> raise Exception.CreateFmt('Mixer Error %d', [Value]);
> end;
>
> procedure SetCDInputVolume(Volume: DWORD);
> var
> Mixer: HMixer;
> MixerCaps: TMixerCaps;
> MixerLine: TMixerLine;
> I, Inputs: Integer;
> MixerControls: TMixerLineControls;
> MixerControl: TMixerControl;
> MixerControlDetails: TMixerControlDetails;
> VolumeCD: MIXERCONTROLDETAILS_UNSIGNED;
> begin
> CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
> try
> CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
> MixerLine.cbStruct := Sizeof(MixerLine);
> Inputs := 0;
> for I := 0 to MixerCaps.cDestinations - 1 do
> begin
> MixerLine.dwDestination := I;
> CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
> MIXER_GETLINEINFOF_DESTINATION));
> if MixerLine.dwComponentType =
> MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
> begin
> Inputs := MixerLine.cConnections;
> Break;
> end;
> end;
>
> MixerControls.cControls := 0;
> for I := 0 to Inputs - 1 do
> begin
> MixerLine.dwSource := I;
> CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine,
> MIXER_GETLINEINFOF_SOURCE));
> if Pos('CD', MixerLine.szShortName) = 1 then
> begin
> MixerControls.cControls := MixerLine.cControls;
> Break;
> end;
> end;
>
> MixerControls.cbStruct := Sizeof(MixerControls);
> MixerControls.cbmxctrl := Sizeof(TMixerControl);
> MixerControls.pamxctrl := (zv)MixerControl;
> MixerControls.cControls := 1;
> MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
> MixerControls.dwLineID := MixerLine.dwLineID;
> CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls,
> MIXER_GETLINECONTROLSF_ONEBYTYPE));
>
> MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
> MixerControlDetails.dwControlID := MixerControl.dwControlID;
> MixerControlDetails.cChannels := 1;
> MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
> MixerControlDetails.cbDetails := Sizeof(VolumeCD);
> MixerControlDetails.paDetails := (zv)VolumeCD;
>
> VolumeCD.dwValue := Volume;
> CheckMMResult(mixerSetControlDetails(Mixer, (zv)MixerControlDetails,
> MIXER_SETCONTROLDETAILSF_VALUE));
> finally
> mixerClose(Mixer);
> end;
> end;
>
>
> --
> Petr Vones, amatersky
> programator
> NT groups
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 16.9.1998 11:00:58
> Hm. No tak sorry, ze jsem se obtezoval ti to napsat a myslel si, ze by ti
> to treba mohlo pomoci. Priste si dam pozor, abych zrovna tobe specialne
> neporadil neco, co by snad mohlo byt pod tvou uroven. Jinak asi takhle -
> ja kdyz vidim to, co jsem ti okopiroval z helpu, neni pro me nejmensi
> problem si k tomu napsat hlavicku...
To neni o urovni, o te si nedelam iluze, je to o tom, ze jsem se ptal na neco
jineho, bylo-li to spatnym dotazem, pak se omlouvam. Je to spise o neurovni,
neb pro mne to psani hlavicek obcas problem je.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Skoleni
[*] Lubo Fule <fule(zv)sct.sk> - 16.9.1998 11:16:30
Napriklad tvorba vlastnich komponent odvodenych z TDataset.
> -----Original Message-----
> From: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
> Sent: Wednesday, September 16, 1998 7:08 AM
> To: delphi(zv)pinknet(tec)cz
> Subject: Skoleni
>
>
> Ahoj all,
>
> domlouvam s Inprise lektorstvi na kurzech o Delphi. Na namet
> "Pokrocile programovani v Delphi" mam dohodnute dva kurzy, jeden
> o tvorbe komponent a wizardu (do New Items), druhy o
> databazovych aplikacich.
>
> Chtel jsem se zeptat, kdybyste treba na nejaky takovy kurz sli, co
> byste se tam chteli dozvedet. Pripadne zda mate pro pokrocile
> programovani dalsi namety, ktere byste se na takovem skoleni
> chteli dozvedet.
>
>
> 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
> Interbase 4.0 vs 4.2
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 16.9.1998 11:24:55
> 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.
Z hlavy ma 4.2 navic moznost shadow a pak tu odpornou vlastnost, ze je
superserver.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Kurs tvorby napovedy 1
[*] Milan Scho�ovsk� - 16.9.1998 12:45:32
co treba tohle
ftp://ftp.microsoft.com/Softlib/MSLFILES/hcwsetup.EXE
-----P�vodn� zpr�va-----
Od: Martin Dupal <mdupal(zv)vision(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 11:08
P�edm�t: Re: Kurs tvorby napovedy 1
>Funguje vam toto URL na download help compileru pro
>RTF z Wordu 97 ?. Mne ne.
>
>http://support.microsoft.com/support/kb/articles/Q164/0/12.asp
>
>Jestli mate nejaky jiny tip, tak dejte, prosim, vedet.
>
> Dik
> Martin
>
>--
>+----------------------------------+
>| Ing. Martin Dupal |
>| address: Geislerova 6 |
>| Olomouc 2, 772 00 |
>| Czech republic |
>| tel.: +420/68/5313130 |
>| fax.: +420/68/5313132 |
>| http://www.vision(tec)cz |
>| mailto:mdupal(zv)vision(tec)cz |
>+----------------------------------+Pripojeni na MS SQL z Delphi
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 16.9.1998 13:08:43
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Pokousim se pripojit na MS SQL 6.5 z Delphi 3.0. K pripojeni pouzivam komponentu TDatabase. Podarilo se mi bez problemu pripojit na device databaze timto zpusobem:
DATABASE NAME=device databaze
SERVER NAME=server
Z klediska koncepce nasich progamu by bylo pro me (a zejmena pro administraci naseho softu) jednodussi jako parametr uvest primo nazev databaze, tedy nevytvaret device. Tedy neco jako:
DATABASE NAME=C:\data\databaze.dat
SERVER NAME=server
Nevite nekdo, jestli je to mozne? A jestli ano, muze mit tento zpusob nejake nevyhody?
Predem moc dik za odpoved. Radek
zavreni externi aplikace
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 16.9.1998 13:35:01
Ahoj,
Mam takovy problem spustim aplikaci A a uvnitr ni spoustim aplikaci B
(napriklad pomoci WinExec) a uvnitr aplikace B pak po urcite dobe
(napriklad az po zobrazeni hlavniho formulare) chci zavrit aplikaci A.
Chtel bych ji zavrit asi pomoci TerminateProcess(hProcess,0) a z
aplikace A bych HProcess predal do aplikace B napriklad pomoci parametru
ale nevim jak uvnitr aplikace A zjistit handle jejiho procesu. ( Vim ze
handle bych mel kdybych aplikaci oteviral pomoci CreateProcess, ale ja
chci zrusit aplikaci jakkoliv spustenou! )
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
Kurs tvorby napovedy 1
[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 16.9.1998 14:00:39
> Funguje vam toto URL na download help compileru pro
> RTF z Wordu 97 ?. Mne ne.
>
> http://support.microsoft.com/support/kb/articles/Q164/0/12.asp
>
Funguje. Zkousel jsem to pred zverejnenim a ted znovu (pouzivam MSIE 3.0).
Ma to pres 1,5MB. Pokud se ti to vejde do schranky, klidne ti to (a
komukoli jinemu) poslu.
Vilda Svoboda
TreeView & hint
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 16.9.1998 14:03:34
Ahoj,
nevite nekdo, jak se zbavit hintu objevujiciho se nad
jednotlivymi uzly v TTreeView? Vlastnost ShowHint mam
nastavenou na False, ale stejne s tim nema nic spolecneho,
protoze Hint, o kterem pisu se tyka jednotlivych uzlu a ne
celeho stromu. Pres Application.OnHint to taky nelita.
Dik za rady
Martin
+----------------------------------+
| Ing. Martin Dupal |
| address: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: +420/68/5313130 |
| fax.: +420/68/5313132 |
| http://www.vision(tec)cz |
| mailto:mdupal(zv)vision(tec)cz |
+----------------------------------+Zvukova karta - laskava prosba
[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 16.9.1998 14:26:08
Dobry den.
Mam zvukovou kartu a rad bych si udelal programek na ovladani a neco podobneho jako je
prehravani, zaznamenavani zvuku pisnicek atd.
Nemate nekdo nejake idee, nebo zkusennosti.
Za jakekoli informace jsem vdecny.
S pozdravem
Libor.
Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68
tel: 66173163
fax: 6857003
nosek(zv)ujf.cas(tec)cz
Typ databaze
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.9.1998 14:47:53
> Cigleri maji vlastni engine
Kdepak, je to B-Tree Filer od TurboPower Software.
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 ===
==============================================================