Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Vesela prihoda s CD-ROMkou (off topic)
[*] Jan Jurenka <honza(zv)way(tec)cz> - 08.10.1998 15:29:18
Petr Zahradnik wrote:
>
> > > >> monitor byl cernej. No tak jsem se pustil do prace.
> > > >> Sehnal jsem si krizovej sroubovak, otevrel kejs, vytah elektriku z
> > > >> cdromky, ksandu. No ... a jeto. Stouchnul jsem do mysi, abych udelal
> > > >> misto na stole ..... dopr**le. Nastartoval hadr, mrkly na mne NTycka a
> > > >> ja se malem pos**l. Nastesti se teda nic nestalo, ale mel jsem nahnano.
> > > >> Vrazil jsem zrovna 25k do apgrejdu z 386 na Pentyjum. :-))
> > >
> > > PZ> Me se tohle stat nemuze, protoze v pocitaci mam vetrak, ktery
> > > PZ> se porad toci :-)))
> >
> > PZ: Ja tam mam taky vetrak, ale nevim, proc by to melo nejak ovlivnit,
> > to co se mi stalo?? ;-)
>
> Je to velmi proste - kdyz sundam plech meho toweru, vidim a slysim,
> ze se vetrak toci, dostanu napad - pred upravami vypnout pocitac ;-)))
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
Vzdyr jsem tikal, ze tam hrala hudba, takze vo nejakym zvuku nemohla
bejt rec. Nehlede na to, za sem mel komp na zemi. Takze dovnitr zboku
vubec nevidim. No ale to uz staci, jestli mi to neveris, nemusis :o).
Nezatezujme konferenci ptakovinama. :-) CUs
Vesela prihoda s CD-ROMkou (off topic)
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 8.10.1998 16:05:25
Problem bude v tom, ze ne vsichni maji plech prisroubovany, dokonce jsou
i taci, co plech maji ve sklepe... :-)))))))))))
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 08. listopadu 1998 13:01
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Vesela prihoda s CD-ROMkou (off topic)
>
> > > >> monitor byl cernej. No tak jsem se pustil do prace.
> > > >> Sehnal jsem si krizovej sroubovak, otevrel kejs, vytah
> elektriku z
> > > >> cdromky, ksandu. No ... a jeto. Stouchnul jsem do mysi, abych
> udelal
> > > >> misto na stole ..... dopr**le. Nastartoval hadr, mrkly na mne
> NTycka a
> > > >> ja se malem pos**l. Nastesti se teda nic nestalo, ale mel jsem
> nahnano.
> > > >> Vrazil jsem zrovna 25k do apgrejdu z 386 na Pentyjum. :-))
> > >
> > > PZ> Me se tohle stat nemuze, protoze v pocitaci mam vetrak, ktery
> > > PZ> se porad toci :-)))
> >
> > PZ: Ja tam mam taky vetrak, ale nevim, proc by to melo nejak
> ovlivnit,
> > to co se mi stalo?? ;-)
>
> Je to velmi proste - kdyz sundam plech meho toweru, vidim a slysim,
> ze se vetrak toci, dostanu napad - pred upravami vypnout pocitac ;-)))
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> Autorizovany dealer TurboPower Software... knihovny pro Delphi
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> === mobilni telefon GSM (hotline): 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================
> ICQ: 21215917
Total off topic: INTERNET PROTI MONOPOLU
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 08.10.1998 19:40:27
Rekl bych, ze nejen DIUL-UPisti, ale VSICHNI :-) Koneckoncu, cim mene
lidi na Internetu, tim mene lidi v konferenci ;-)
Mac
Pavel Serbajlo wrote:
> Pro vsechny DIAL-UPisty,Pokud o tom jeste nevite, tak se podivejte na
> stranky www.bojkot(tec)cza pridejte svuj podpis pod petici proti TELE KOMU
> i vy. Cim vice lidi, tim vetsi sance na uspech akce.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================
Slovnik MS Wordu
[*] Radek Hladik <rhladik(zv)tfc(tec)cz> - 9.10.1998 00:32:40
Ahoj!
potreboval bych se nejakym zpusobem pripojit na slovnik od
MS Wordu. Uplne mi staci dotaz typu MAS SLOVO XYZ????
Radek Hladik
Radek Hlad�k
rhladik(zv)tfc(tec)cz
DBGrid
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 9.10.1998 06:31:49
Zdravim jednu z mala divek v konferenci
Provadi se v OnDrawColumnCell. Uvadim maly priklad
procedure TfrmKniha.gridKnihaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If Not (gdFocused in State) And Not (gdSelected In State)
Then Begin
If Data.tblPokl.FieldByName('Castka').AsCurrency < 0
Then gridKniha.Canvas.Font.Color := clMaroon;
If Data.tblPokl.FieldByName('Ind').AsString = 'A'
Then gridKniha.Canvas.Font.Color := clGreen;
End;
gridKniha.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Katerina Dolezalova studentka FEL <DOLEZAK(zv)feld.cvut(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. listopadu 1998 17:56
P�edm�t: DBGrid
Zdravim,
mam takovy problem.
Zobrazuji v DBGridu polozky databaze pres Table.
A potrebuji v jednom sloupci barevne odlisit ruzne polozky.
V tomto sloupci se vypisuji retezce znaku a ty potrebuji psat kazdy
jinou barvou. Je asi jen 5 moznosti, co ten string obsahuje.
Predem dekuji za odpoved
---------------------------*----*-*-*----*----------------------------
K K DDDDD S pozdravem Katka Dolezalova
K K D D
K K D D email: DOLEZAK(zv)FELD.CVUT.CZ
KK D D DOLEZAK(zv)HWLAB.FELK.CVUT.CZ
K K D D DOLEZAK(zv)CS.FELK.CVUT.CZ
K K D D
K K DDDDD adress and telephone: nepovim :-))
--------------------*--*--*--*--*--*--*--*--*--*----------------------
Ako zachytit Event ?
[*] Branislav Danko <danko(zv)basl.sk> - 09.10.1998 08:06:40
Nazdar,
takze ak mas napriklad triedu formularu TMyForm, ktora bude vlastnikom
dynamicky vytvoreneho objektu typu TClientSocket, tu udalost zachytis
takto:
TMyForm = class (TForm)
...
private
procedure MojaObsluha(....) - prototyp procedury musis opisat podla
originalu
end;
var
MyForm: TMyForm;
procedure TMyForm.FormCreate(Sender: TObject);
var
ClientSocket: TClientSocket;
begin
ClientSocket := TClientSocket.Create;
ClientSocket.OnRead := MojaObsluha;
end;
procedure TMyForm.FormDestroy(Sender: TObject);
begin
ClientSocket.OnRead := nil;
ClientSocket.Free;
end;
procedure TMyForm.MojaObsluha(....);
begin
ShowMessage('Udalost OnRead');
end;
Brano.
Hric Jan wrote:
> Zacinam v Delphi 3 a potrebujem pomoc.
> Ako mam zachytit Event typu(komponentu) , ktory nie je v palete a
> ako pre nho napisat novy Event Handler ?
> Napr. mam socket1 typu TClientSocket (var socket1:TClientSocket) a
> ten ma event OnRead a chcem , aby ked nastane OnRead , sa nieco
> udialo napr.ShowMessage('Prislo OnRead !!!');
> Ako sa to da urobit ( a do ktorych casti programu co mam napisat ) ?
> Prosim o maly priklad v Delphi .
> Dakujem . . .
>
> Jano H.Vesela prihoda s CD-ROMkou (off topic)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.10.1998 08:19:29
Jan Jurenka wrote:
> > Je to velmi proste - kdyz sundam plech meho toweru, vidim a slysim, ze
> > se vetrak toci, dostanu napad - pred upravami vypnout pocitac ;-)))
>
> Vzdyr jsem tikal, ze tam hrala hudba, takze vo nejakym zvuku nemohla
> bejt rec. Nehlede na to, za sem mel komp na zemi. Takze dovnitr zboku
> vubec nevidim. No ale to uz staci, jestli mi to neveris, nemusis :o).
> Nezatezujme konferenci ptakovinama. :-) CUs
>
A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
sam, hec! Tedy - aspon to prodejce tvrdil. :-)
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
Zabava se sdilenim PDX
[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 9.10.1998 08:21:23
No jo, ale:
a) ja nejsem spravce site, jenom programator dane aplikace
b) jeden z tech kompu se nekde vyhrabal a puvodne vubec nebyl urceni
na praci s danym programem - ale to jsem mohl domyslet pri instalaci
c) na druhem kompu jsem to osobne nastavoval (spolu s dalsima 28
kompama), pote jsem vsechny kompy dvakrat kontroloval (vzdy zhruba po
tydnu) a vsude bylo vsechno OK. Dany uzivatel urcite neni schopen sam
nastavovat nejake parametry u tak schovaneho programu jako je
konfigaurace IDAPI v BDE 2.52. A ted zjisti, jak se to nastavilo?
d) ty zaznamy se ztratili az potom, co jsem prisel na nejake chyby
(typicke hlaseni Index ... is out of date), to jsem opravil, vsechno
bylo OK (z teto posledni zalohy jsem obnovil tu poskozenou tabulku) a
na zadnem spatne nastavenem pocitaci se uz nedelalo. No a ted mi rad,
jak se to stalo, kde se to ztratilo? (Sit Novell INetWare, W95
stanice COMPAQ, vsechno sitovani od hodne renomovane firmy, sprava
site v rukach Master CNE)
Az mi nekdo poradi, budu stastny jak blcha.
P.S. ja vim, ze resenim je databazovy server. Uz cekam na objednany
Oracle.
P.S2: Mimochodem, vite ze k Novellu -alespon k 4.11 a IntraNetwaru-
mate narok na zakoupeni 5-uzivatelskeho ORACLA pro Novell?
Objednavkovy formular je nekde na americkem novellu na Webu a uctuji
si manipulacni poplatek 15$.
Jirka
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Odesl�no: 6. listopadu 1998 16:48
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Zabava se sdilenim PDX
>
> No, pokud spravujes sit takhle, tak bys treti den uz letel na
> hodinu........a mohl by ses smat, jak chces.......
> > -----P�vodn� zpr�va-----
> > Pokud se chcete pobavit, zkuste si na siti s cc. 30 stanicemi
> > nahodne
> > vybrat dve, kde nastavite v BDE Local true na false, jinde na
> > true...
> > Pri poctive praci uzivatelu za chvili zacne zabava.
> >
> > P.s.: U mne se to projevilo detektivkou na tema: Kam se ztratilo
> > 65
> > 000 zaznamu z 110 000? Ted to pokracuje dal: Ktere jednoznacne
> > hodnoty autoinkrementu nejsou jednoznacne?, resp. Ke kteremu
> > zaznamu
> > s nejednoznacnym autoinkrementem (cizi klic) patri tyhle zanznamy
> > v
> > podrizenych tabulkach?. Uz treti den se nemuzu vynasmat dosyta...
Tvorba n�pov�dy
[*] Ing. Miroslav Ond��ek <bonnel(zv)telecom(tec)cz> - 9.10.1998 08:27:56
Jestli ten puvodni 16-bit compiler (HCP.EXE) chces, tak jako zip ma 100 kB a
poslu Ti ho soukrome. Jinak v Delphi 1 byl HC-31.EXE (asi 170 kB pred
zipem)!
Cau
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
Internet proti monopolu.
* http://www.bojkot(tec)cz *
* protestni akce *
*************************
E-mail:
ondrisek(zv)atlas(tec)cz - privat mail *********
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage
-----P�vodn� zpr�va-----
Od: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 6. listopadu 1998 12:21
P�edm�t: RE: Tvorba n�pov�dy
>Ahoj,
> kdyz se tak vyznas v te tvorbe napovedy, jiste by jsi mohl pomoci.
>Na serverech microsoftu byl sveho casu ke stazeni kompilator helpu
>pro Win 3.x, pisu ted 16b aplikaci a docela by se mi hodil, jenomze
>ted, abych ho mohl stahnout, musim vyplnit nejaky formular, a to se
>mi moc nechce. Nevis, kde by se dal sehnat ?
>
>Diky za pomoc
> Dobra.
>
Slovnik MS Wordu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 9.10.1998 09:02:53
Myslim, ze slovnik Wordu ma stejny format jako
normalni DOC-umenty jen ma jinou priponu -DIC.
D.
----------
Od: Radek Hladik[SMTP:rhladik(zv)tfc(tec)cz]
Odesl�no: 9. listopadu 1998 0:32
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Slovnik MS Wordu
Ahoj!
potreboval bych se nejakym zpusobem pripojit na slovnik od
MS Wordu. Uplne mi staci dotaz typu MAS SLOVO XYZ????
Radek Hladik
Radek Hlad�k
rhladik(zv)tfc(tec)cz
CreateProcess
[*] mbartone(zv)Synthesia(tec)cz - 9.10.1998 09:03:18
Ahoj
Po diskusi okolo WinExec jsem se take snazil pouzit CreateProcess, lec
bezvysledne.
Nejak nerozumin Helpu.
Jak by mel vypadat tento radek ?
CreateProcess(pprog,psoub,..........
procedure TForm1.Button1Click(Sender: TObject);
var
soub,prog,tempDir : string[254];
psoub,pprog : pchar;
begin
GetTempPath(SizeOf(TempDir)-1,(zv)TempDir[1]);
TempDir[0] := Chr(StrLen((zv)TempDir[1]));
soub := tempdir + 'sestava.csv';
prog := 'D:\Program Files\Microsoft Office\Office\EXCEL.EXE';
if length(soub) = High(soub) then Dec(soub[0]);
soub[Ord(Length(soub))+1] := #0;
psoub := (zv)soub[1];
pprog := (zv)prog[1];
CreateProcess(pprog,psoub,..........
end;
BOOL CreateProcess(
LPCTSTR lpApplicationName, // pointer to name of executable module
LPTSTR lpCommandLine, // pointer to command line string
LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process
security attributes
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread
security attributes
BOOL bInheritHandles, // handle inheritance flag
DWORD dwCreationFlags, // creation flags
LPVOID lpEnvironment, // pointer to new environment block
LPCTSTR lpCurrentDirectory, // pointer to current directory name
LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO
LPPROCESS_INFORMATION lpProcessInformation // pointer to
PROCESS_INFORMATION
);
Dekuji Milan
Vesela prihoda s CD-ROMkou (off topic)
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 9.10.1998 09:06:13
>A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
>sam, hec! Tedy - aspon to prodejce tvrdil. :-)
A co kdyz se chces jen na neco podivat (treba kolik mas jeste
mista na disku :-)) a mas rozdelanou nejakou praci ?
D.
Poradi unit v execku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.10.1998 09:08:18
>No, a nebude to tak, ze se vezme prvni jednotka z projektu,
>projede se uses a inicializuji se vsechny jednotky tam uvedene, a
>pak se pokracuje dal v inicializaci jednotky? Aby nedoslo k
>zacykleni v pripade vzajemnych odkazu, tak je poradi IMHO
>nasledujici:
>1. interface - vsechny jednotky v uses
>2. telo interface
>3. implementation - vsechny jednotky v uses, a je-li v nektere z
>nich odkaz zpet, pak se pouzije telo interface
>4. telo implementation
nevim, o moznem mechanismu jsem nepremyslel, v kazdem pripade kdyz bude
projekt obsahovat vice
unit (konretne me jde cca 70 knihoven), z nichz nektere jsou sice samostatne
ale vetsina ostatnich pouziva funkce z jinych knihoven, nutne neni mozne
udrzet si prehled.
A to, ze Delphi (ale myslim uz u Pascaly) prekladaji trochu jinak pri Build
a Compile neni pochyb.
Zdravi
D. Toman
Font s anglickou vyslovnosti
[*] roman.palarcik(zv)spt(tec)cz - 9.10.1998 09:33:12
Ahoj,
nevite nekdo o nejakem fontu, ktery by obsahoval znaky, ktere se
pouzivaji pri psani vyslovnosti anglickych slovicek ?
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
viac komponent
[*] Ing. J�n Kuch�r�����!j��G - 9.10.1998 09:34:34
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam dojem, ale niesom si isty, ze to tu uz raz bolo, ale i tak este raz. V programe pouzivam povedzme 30 tlacitok, ako by som mohol efektne ( to znamena nie vypisovat jedno po druhom ) zmenit vlastnost enabled povedzme tlacitkam 8 az 25, najlepsie by bolo nejak pomocou cyklu for, ale ako ?
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 viac komponent
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 9.10.1998 10:03:42
for i := 0 to ControlCount -1 do
if Controls[i] is TButton then (Controls[i] as TButton).Enabled :=
False;
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
Komu: Delphi <delphi(zv)pinknet(tec)cz>
Datum: 9. listopadu 1998 10:41
P�edm�t: viac komponent
Caute
Mam dojem, ale niesom si isty, ze to tu uz raz bolo, ale i tak este raz.
V programe pouzivam povedzme 30 tlacitok, ako by som mohol efektne ( to
znamena nie vypisovat jedno po druhom ) zmenit vlastnost enabled povedzme
tlacitkam 8 az 25, najlepsie by bolo nejak pomocou cyklu for, ale ako ?
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
Rodne cislo
[*] Jaroslav N�dhera <csh(zv)czn(tec)cz> - 9.10.1998 10:09:05
Desetimistne rodne cislo musi byt beze zbytku delitelne jedenacti.
Devitimistna cisla (stara) nejsou zabezpecena.
Priklad: 590124/1621 => 5901241621 / 11 = 536476511
J. Nadhera
-----P�vodn� zpr�va-----
Od: Tomas Baloun <baloun(zv)ikos(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 12:01
P�edm�t: Rodne cislo
>Ahoj,
>
>nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
>???
>
>Diky
>
>
>S pozdravem
>
>Tomas Baloun
>IKOS Liberec, s.r.o.
>
>28.rijna 278/46
>460 07 LIBEREC, CZECH REPUBLIC
>tel./fax: +420 48 6131083, 6131082, 485491
>
>http://www.ikos(tec)cz
>E-mail: sales(zv)ikos(tec)cz
>------------------------------------
>
>-----P�vodn� zpr�va-----
>Od: Roman Toda <normex(zv)mail.pvt.sk>
>Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
>Datum: 5. listopadu 1998 13:26
>P�edm�t: Registrovane pripony
>
>
>>Ahoj vsetci.
>>
>>Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
>>by som chcel tejto aplikacii odovzdat ??
>>( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
>>ja spustim Word alebo Acroread)
>>vopred dakujem.
>>
>>--
>>rt
>>normex(zv)mail.pvt.sk; www.technickenormy.com
>>Normex - fulltext retrieval information system for technical standard
>>
>>
>>
>>
>CreateProcess
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 9.10.1998 10:26:48 -0000
Musis predevsim naplnit strukturu StartupInfo. CreateProcess ti pak naplni
strukturu ProcessInfo a pak lze napr. funkci WaitForSingleObject program
spustit, parametr INFINITE zpusobi, ze se ceka, dokud proces neskonci.
Muzes pouzit i jiny parametr, kterym urcis, jak dlouho se ma cekat atd atd.
Proces lze i odstrelit apod. Zde je priklad z praxe:
if FileExists(Dir+'AUDATEX.EXE') then
begin
AudaPadPath := Dir + 'AUDATEX.EXE /tupdate'+#0;
with StartupInfo do
begin
cb:=68; //sizeof(StartupInfo)
lpReserved:=nil;
lpDesktop:=nil;
lpTitle:=nil;
dwX:=0; dwY:=0;
dwFlags:=STARTF_USESTDHANDLES;
wShowWindow:=SW_SHOWDEFAULT;
cbReserved2:=0;
lpReserved2:=nil;
end;
if
CreateProcess(nil,PChar(AudaPadPath),nil,nil,false,CREATE_SEPARATE_WOW_V
DM,nil,
nil, StartupInfo, ProcessInfo) then
WaitForSingleObject(ProcessInfo.hProcess,INFINITE);
AudaPadUpdate:= GetLastError;
end
Preji hodne uspechu.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
Odeslano: 9. listopadu 1998 8:03
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: CreateProcess
Ahoj
Po diskusi okolo WinExec jsem se take snazil pouzit CreateProcess, lec
bezvysledne.
Nejak nerozumin Helpu.
Jak by mel vypadat tento radek ?
CreateProcess(pprog,psoub,..........
procedure TForm1.Button1Click(Sender: TObject);
var
soub,prog,tempDir : string[254];
psoub,pprog : pchar;
begin
GetTempPath(SizeOf(TempDir)-1,(zv)TempDir[1]);
TempDir[0] := Chr(StrLen((zv)TempDir[1]));
soub := tempdir + 'sestava.csv';
prog := 'D:\Program Files\Microsoft Office\Office\EXCEL.EXE';
if length(soub) = High(soub) then Dec(soub[0]);
soub[Ord(Length(soub))+1] := #0;
psoub := (zv)soub[1];
pprog := (zv)prog[1];
CreateProcess(pprog,psoub,..........
end;
BOOL CreateProcess(
LPCTSTR lpApplicationName, // pointer to name of executable module
LPTSTR lpCommandLine, // pointer to command line string
LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process
security attributes
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread
security attributes
BOOL bInheritHandles, // handle inheritance flag
DWORD dwCreationFlags, // creation flags
LPVOID lpEnvironment, // pointer to new environment block
LPCTSTR lpCurrentDirectory, // pointer to current directory name
LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO
LPPROCESS_INFORMATION lpProcessInformation // pointer to
PROCESS_INFORMATION
);
Dekuji Milan
Delphi 16
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 9.10.1998 10:35:37
Nevite nahodou nekdo jake je cislo verze 16 bitovych Delphi dodavanych s
verzi 4.0?
Petr
viac komponent
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 9.10.1998 11:08:40 -0000
Zaved si strukturu rekneme
MyButtons:Array[1..MyButtonsCount] of TButton
a pak se musi do zblbnuti psat :-(
MyButtons[1]:=Button1;
MyButtons[2]:=Button2;
...atd.
A pak uz je to jednoduche:
for i:=8 to 25 do MyButtons[i].Enabed:=false;
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Ing. Jan Kuchar [SMTP:kuchar(zv)tuke.sk]
Odeslano: 9. listopadu 1998 8:35
Komu: Delphi
Poedmit: viac komponent
Caute
Mam dojem, ale niesom si isty, ze to tu uz raz bolo, ale i tak este raz. V
programe pouzivam povedzme 30 tlacitok, ako by som mohol efektne ( to
znamena nie vypisovat jedno po druhom ) zmenit vlastnost enabled povedzme
tlacitkam 8 az 25, najlepsie by bolo nejak pomocou cyklu for, ale ako ?
Dik
Ing. Jan Kuchar
Katedra invacii a rein?inieringu
SjF TU Ko?ice
Letna 9
040 01 Ko?ice
E-mail : kuchar(zv)tuke.sk
<<Soubor: ATT00008.html>> CreateProcess
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 09.10.1998 11:16:31
Ahoj
function ExecMainApp(ExeName: PChar;var ProcessInfo:
TProcessInformation): Boolean;
var
StartupInfo: TStartupInfo;
begin
FillChar(StartupInfo, Sizeof(StartupInfo), 0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.wShowWindow := SW_MINIMIZE;
Result := CreateProcess (nil, ExeName, nil, nil, False,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
nil, StartupInfo, ProcessInfo);
end;
function TerminateMainApp (hProcess : THandle) : boolean;
begin
Result := TerminateProcess(hProcess,0);
end;
Zdroj : tato konference
Vaclav Sazima
mbartone(zv)Synthesia(tec)cz wrote:
>
> Ahoj
>
> Po diskusi okolo WinExec jsem se take snazil pouzit CreateProcess, lec
> bezvysledne.
> Nejak nerozumin Helpu.
>
> Jak by mel vypadat tento radek ?
>
> CreateProcess(pprog,psoub,..........
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> soub,prog,tempDir : string[254];
> psoub,pprog : pchar;
> begin
> GetTempPath(SizeOf(TempDir)-1,(zv)TempDir[1]);
> TempDir[0] := Chr(StrLen((zv)TempDir[1]));
> soub := tempdir + 'sestava.csv';
> prog := 'D:\Program Files\Microsoft Office\Office\EXCEL.EXE';
> if length(soub) = High(soub) then Dec(soub[0]);
> soub[Ord(Length(soub))+1] := #0;
> psoub := (zv)soub[1];
> pprog := (zv)prog[1];
> CreateProcess(pprog,psoub,..........
> end;
>
> BOOL CreateProcess(
> LPCTSTR lpApplicationName, // pointer to name of executable module
> LPTSTR lpCommandLine, // pointer to command line string
> LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process
> security attributes
> LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread
> security attributes
> BOOL bInheritHandles, // handle inheritance flag
> DWORD dwCreationFlags, // creation flags
> LPVOID lpEnvironment, // pointer to new environment block
> LPCTSTR lpCurrentDirectory, // pointer to current directory name
> LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO
> LPPROCESS_INFORMATION lpProcessInformation // pointer to
> PROCESS_INFORMATION
> );
>
> Dekuji Milan
Rodne cislo (cizinci)
[*] Chmelar, Ladislav <chmelar(zv)dcb(tec)cz> - 9.10.1998 11:34:05
To je blbost:
jak� bude kontroln� ��slice nap�. u chlapa narozen�ho 6.11.66 u v�eob.poj. s
po�. ��slem 0
661156110x
obecn� se ned� ��slo doplnit 1 ��slic� aby bylo d�liteln� 11.
> -----P�vodn� zpr�va-----
> Od: Jan Pihrt [SMTP:Jan.Pihrt(zv)pvt(tec)cz]
> Odesl�no: 6. listopadu 1998 15:52
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Rodne cislo (cizinci)
>
> >Pak existuji specialni typy RC. Nekteri cizinci s trvalym pobytem tady,
> >nebo alespon s pojistenim (zdravotnim),
> >kteri maji za lomitkem 3 nebo 4 devitky (YYMMRR/999 nebo YYMMRR/9999)
> >podle roku. Tyto cisla pak nemusi byt delitelne 11. U takovych cizincu
> >pak nastupuje ve zdravotnictvi i tzv. cislo pojistence, a to uz je zase
> >neco jineho.
>
>
>
> Uz je to asi trochu off-topic, ale u tech cizincu je to bohuzel
> jeste o neco slozitejsi. Podle metodiky VZP platne (tusim) od lonska
> se u cizincu s trvalym pobytem v CR nebo zamestnanych na uzemi CR
> konstruuje RC takto:
>
> pozice vyznam
> od do
> ===============================================
>
> 1 2 rok narozeni
> 3 4 mesic narozeni (u zen + 50)
> 5 6 den narozeni + 50
> 7 8 posledni 2 cisla z kodu zdr.pojistovny
> 9 9 poradi v ramci dne narozeni (0 az 9)
> 10 10 kontrolni cislice na modulo 11
>
> Tento udaj se bere ve vyznamu rodneho cisla i cisla pojistence.
>
> Honza
>
>
> Jan Pihrt
> PVT a.s., o.z. Chomutov
> Jan.Pihrt(zv)pvt(tec)cz
> Rodne cislo (cizinci)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.10.1998 12:16:53
> obecn� se ned� ��slo doplnit 1 ��slic� aby bylo d�liteln� 11.
To je pravda, urcite se to musi nejak upravovat.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
Delphi 16
[*] Jaroslav Posp�il - 9.10.1998 12:33:05
Verze je stejna jako u Delphi 3.01, Delphi 3.0 a Delphi 2.0
JAPOS
-----P�vodn� zpr�va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 9. listopadu 1998 11:11
P�edm�t: Delphi 16
>Nevite nahodou nekdo jake je cislo verze 16 bitovych Delphi dodavanych s
>verzi 4.0?
>
>Petr
MSAcces
[*] SCT Softmaker, s.r.o. <sm(zv)sct(tec)cz> - 9.10.1998 13:02:38
Nevim jak v D4...
Ale delal jsem v D3 aplikaci nad databazemi Access97, bylo to docela
laborovani to rozchodit. Nevim, jestli jsem mel smulu :-(, ale bylo to dost
slozite.
Nakonec jsem to vyresil tak, ze instaluji (pro jistotu vse)
- kompletni BDE (delal jsem to s verzi 4.51)
- do slozky Program Files\Borland\Common Files\Bde
idda3532.dll
- do slozky Windows\MsApps\Dao
dao2532.tlb
dao2535.tlb
dao3032.dll
dao350.dll
- do slozky Windows\System
msjt3032.dll
- v BDEadministrator jsem pak nastavil pro
Configuration/Drivers/Native/MsAccess volbu IDDA3532.DLL
Zkousel jsem konfiguraci asi dva dni, a toto je vysledek, ktery mi zatim
chodi vsude...
Vim, ze je to drbani se pravou rukou za levym uchem, ale me se dely ruzne
veci: pri nektere instalaci Office/Access to MSJT nainstalovalo, pri jine ne
a tak podobne.
Nekdy chybely knihovny IDDA a tak podobne.
Cele jsem to delal v InstallShieldu Express pro D3 :-(((, ale chodi to, na
privat mohu poslat ukazku instalacniho skriptu...
Vubec jsou s praci nad MsAccess problemy, kdyz tak soukrome, nebo kdyz bude
mit jeste nekdo zajem (napriklad nekompatibility mezi Win OSR1 a OSR2)
Ing. Ludek Svoboda
FDsystem(zv)OASAnet(tec)cz
www.FDsystem(tec)cz
-----P�vodn� zpr�va-----
Od: Miki Vom��ka <vmiki(zv)atlas(tec)cz>
Komu: DelphiForum <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 21:41
P�edm�t: MSAcces
>Pekny den vsem, pokousim se v D4 pracovat s databazi MSAcces. Vytvoril jsem
>si v BDE Administrator Alias MSAcces, ale pri pokusu otevrit databazi
>obdrzim chybove hlaseni:
>Cannot load an IDAPI service library.
>File: IDDA3532.DLL
>Alias: MSACCESS
>Poradi mi prosim nekdo?
>
>Miki Vomacka
viac komponent
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 9.10.1998 13:10:14
> Mam dojem, ale niesom si isty, ze to tu uz raz bolo, ale i tak este raz.
V programe
> pouzivam povedzme 30 tlacitok, ako by som mohol efektne ( to znamena nie
vypisovat
> jedno po druhom ) zmenit vlastnost enabled povedzme tlacitkam 8 az 25,
najlepsie by
> bolo nejak pomocou cyklu for, ale ako ?
Nazdar,
ku komponentam na forme sa da pristupovat:
a) vyhladavanim podla mena
procedure TForm1.Button1Click(Sender: TObject);
var
a:TComponent;
begin
a:=FindComponent('Button44');
if a<>nil then (a as TButton).Enabled:=false;
end;
b) podla ich poradoveho cisla
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
i:=ComponentCount;
while i>0 do
begin
dec(i);
if Components[i] is TButton then TButton(Components[i]).Enabled:=false;
end;
end;
Viac help.
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Delphi 16
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 9.10.1998 13:29:50 -0000
Nastartuj D16 a zobraz okno About. Pak pridrz levou klavesu Alt a napis VERSION. Az Alt pustis, zobrazi se presne cislo verze.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
Odeslano: 9. listopadu 1998 9:36
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: Delphi 16
Nevite nahodou nekdo jake je cislo verze 16 bitovych Delphi dodavanych s
verzi 4.0?
Petr
Blikajici text
[*] DvorakS(zv)95.gyarab(tec)cz - 9.10.1998 13:37:09
> Date sent: Wed, 04 Nov 1998 13:54:33 +0100
> From: Dusanic Lubos <lubos(zv)iname.com>
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Blikajici text
> Send reply to: delphi-l(zv)fwd(tec)cz
> TP+ wrote:
>
> > Nazdarek,
> >
> > rad bych se zeptal, jak udelat "blikajici" text (ekvivalent stareho "blink"
> > z pascalu).
> >
> > Diky
> > Baluch
> > TP+
>
> caves,
>
> skus si zadefinovat novu komponentu odvodenu od tlabel a vytvorit si v nej
> timer. na ontimer potom men farbu fontu komponenty - raz na farbu rodica
> (hide), raz na vlastnu (show).
>
> si myslim ...
pres ten timer bzch to nedelal, protoze WOKNA umoynuji jen 32 timeru>
> --
> lubos dusanic
>
> mailto:lubos(zv)iname.com
> http://www.geocities.com/SiliconValley/Haven/7613
>
>
> viac komponent
[*] DvorakS(zv)95.gyarab(tec)cz - 9.10.1998 13:46:18
> From: "Ing. Jan Kuchar" <kuchar(zv)tuke.sk>
> To: "Delphi" <delphi(zv)pinknet(tec)cz>
> Subject: viac komponent
> Date sent: Mon, 9 Nov 1998 09:34:34 +0100
> Send reply to: delphi-l(zv)fwd(tec)cz
> Caute
>
> Mam dojem, ale niesom si isty, ze to tu uz raz bolo, ale i tak este raz. V programe pouzivam povedzme 30 tlacitok, ako by som mohol efektne ( to znamena nie vypisovat jedno po druhom ) zmenit vlastn
>
> Dik
>
> Ing. Jan Kuchar
> Katedra invacii a rein inieringu
> SjF TU Ko ice
> Letna 9
> 040 01 Ko ice
> E-mail : kuchar(zv)tuke.sk
>
>
Nejlepsi zpusob, by byl si udelat pole handlu kde by kazda polozka
ukazovala na urcitej buton a pak menit enabled buttonu toho hwnd.
var pole:array[0..XX] of handle;
pom: Tbutton;
i:word;
begin
for i:=0 to xx do
begin
pom.handle:=pole[i];
pom.enabled:=true;
end;
end; viac komponent
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 9.10.1998 13:51:22
Zkus Nasledujici kod
For i := 0 To Form1.ComponentCount Do Begin
If Form1.Components[i] Is TButton Then
(Form1.Components[i] as TButton).Enabled := False;
End;
> Caute
>
> Mam dojem, ale niesom si isty, ze to tu uz raz bolo, ale i tak este raz. V programe pouzivam povedzme 30 tlacitok, ako by som mohol efektne ( to znamena nie vypisovat jedno po druhom ) zmenit vlastnost enabled povedzme tlacitkam 8 az 25, najlepsie by bolo nejak pomocou cyklu for, ale ako ?
>
> 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
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Delphi 16
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 9.10.1998 13:52:15
1
> Nevite nahodou nekdo jake je cislo verze 16 bitovych Delphi dodavanych s
> verzi 4.0?
>
> Petr
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Hromadna zmena vlastnosti
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 9.10.1998 14:15:49
Zdravim,
mam nasledujici problem: Potrebuji hromadne v nekolika formularich
zmenit font u nekterych komponent. V archvu konference jsem nasel
nekolik reseni, ale ty se daji pouzit pouze na nektere vlastnosti,
jako je treba 'Enabled'. Vlastnost 'Font' je v TControl protected.
Jak se to da jednoduse udelat ???
Pozn.: fontPopis a fontData jsou TFont.
Diky za rady.
procedure nastavFontyFormulare(forma: TForm);
var
i: cardinal;
begin
with Forma do begin
for I :� to ControlCount-1 do begin
if ((Controls[I] is TLabel) or
(Controls[I] is TCheckBox) or
(Controls[I] is TRadioButton) or
(Controls[I] is TBitBtn) or
(Controls[I] is TButton)) then begin
//barva funguje
TControl(Controls[I].enabled:�ue;
//font nefunguje - nelze zkompilovat
TControl(Controls[I]).font:�ntPopis;
end;
if ((Controls[I] is TEdit) or
(Controls[I] is TDBEdit) or
(Controls[I] is TMemo) or
(Controls[I] is TDBMemo) or
(Controls[I] is TComboBox) or
(Controls[I] is TDBComboBox) or
(Controls[I] is TListBox) or
(Controls[I] is TDBListBox)or
(Controls[I] is TDBLookupCombo)) then begin
TControl(Controls[I]).font:�ntData;
end;
end;
end;
end;
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
Quick report a vice stran
[*] Svatopluk V�t <vit(zv)ardo(tec)cz> - 9.10.1998 14:22:54
Zdravim!
Lze nejakym jednoduchym zpusobem donutit QuickReport 2.0k z D3 aby tiskl
vice stran? Mam vytvorit smlouvu, ktera ma nekolik stran. Z databaze do ni
vkladam udaje jako napr. datum narozeni, adresu atd. Smlouva ma 6 stran a
tak vytvorim v programu 6 formularu, na kazdy dam QuickReport a tabulku a
vytvorim to sestkrat. Napisu text na jednotlive stranky a pomoci hlavniho
programu volam Form1.QuickRep1.Print (Form2.QuickRep1.Print....). Cetl jsem
v helpu neco o NewPage a EndPage, ale nejak jsem to nepochopil (help je
dost skoupy). Muzete mi nekdo poradit?
Svatopluk Vit
East Trading Company s.r.o. Karvina (www.ardo(tec)cz)
spravce pocitacove site - network administrator
zacinajici delphista - beginner in Delphi
E-mail : vit(zv)ardo(tec)cz ; svatopluk.vit(zv)post(tec)cz
tel : +420 69 63 06 085
ICQ : 11455617
...sem si dovolil....svesticky z moji zahradky...Rodne cislo (cizinci)
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 9.10.1998 15:14:57
> To je blbost:
> jak� bude kontroln� ��slice nap�. u chlapa narozen�ho 6.11.66 u v�eob.poj. s
> po�. ��slem 0
>
> 661156110x
>
> obecn� se ned� ��slo doplnit 1 ��slic� aby bylo d�liteln� 11.
U VZP maji cizinci (a zvlastni pojistenci) cisla pojistence ve tvaru
RRBBXX/NNNP
Kde RR je rok narozeni,
BB je u zen mesic narozeni + 50 (MM+50), u chlapu mesic narozeni (MM)
XX je den narozeni + 50 (DD+50),
NNN je rozlisovaci cislo pojistence v danem dni (Vetsinou je to pres 400)
P je doplnkove cislo (pro delitelnost 11).
Ostatni ("zamestnanecke") pojistovny maji ten tvar
RRBBXX/ZZNP
Kde RR, BB a XX viz vyse,
ZZ jsou posledni dve cislice z kodu pojistovny (tj. napr. pojistenec
Vojenske ZP (201) tady bude mit 01, HZP (205) 05 apod.)
N je rozlisovaci cislo pojistence v danem dni
P je doplnkove cislo pro delitelnost 11
To je strucny vytah z "Metodiky pridelovani zvlastnich cisel pojistencu".
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: pavel.zichovsky(zv)sms.paegas(tec)cz (120 znaku)
PGP podporovano a vitano
***************************************************
* INTERNET OHROZEN! * INTERNET PROTI MONOPOLU! *
* http://www.bojkot(tec)cz * PRIPOJ SE I TY! *
***************************************************Sedy text v DBEdit
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 9.10.1998 15:25:42
At koukam jak koukam tak ja Align u komponenty
DBEdit nemam, nevi kde se tam vzala tobe ?
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
-----P�vodn� zpr�va-----
Od: ��ad pr�ce v Teplic�ch <celonk(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. listopadu 1998 11:32
P�edm�t: Re: Sedy text v DBEdit
-----P�vodn� zpr�va-----
> Nevite nekdo jak obejit zsednuti textu v DBEdit pokud je DISABLE, > Pavel
Bare�
> Atoll s.r.o.
> www.atoll(tec)cz
>
No ja jsem prisel na jednu vec. Zkus si zmenit vlastnost Align u komponenty
DBEdit na Center nebo Right (def. je left)
No a uvidis.
Tonda �elonk
^Jumper^
Pouzivani DLL
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 9.10.1998 15:29:04
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zkousel jsem pracovat s DLL, vse funguje, jenom kdyz vlastne spoustim *.exe
a neni tam DLL tak mi to vyhlasi ze tam neni soubor DLL a program se nerozjede, nevite nekdo jak to upravit aby mi to vyhlasilo az budu potrebovat DLL (zavolam proceduru v DLL)
Milan Fiedler
Pouzivani DLL
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 9.10.1998 15:52:59
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Haj hou!
Z popisu predpokladam, ze pouzivas implicitni import z DLL (pomoci external <dll>). Pokud nema byt program zavysly na existenci DLL, pak musis pouzit explicitni zavadeni DLL pomoci funkci LoadLibrary a GetProcAddress (podivej se do helpu Win32, pripadne do Windows.PAS).
HTH
-----P�vodn� zpr�va-----
Zkousel jsem pracovat s DLL, vse funguje, jenom kdyz vlastne spoustim *.exe
a neni tam DLL tak mi to vyhlasi ze tam neni soubor DLL a program se nerozjede, nevite nekdo jak to upravit aby mi to vyhlasilo az budu potrebovat DLL (zavolam proceduru v DLL)
Quick report a vice stran
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 9.10.1998 16:29:09
Asi jsem plne nepochopil, co by jsi rad udelal. QReport str�nkuje
automaticky. Nav�c kazdy jeho band ma moznost NewPage=true - coz zapricini,
ze tento band nucene odstrankuje tisk.
Lubomir Kupka
----------------------------------------------------------------------------
---------------------------------
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 ICQ :
4747183
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Svatopluk V�t <vit(zv)ardo(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 9. listopadu 1998 16:07
P�edm�t: Quick report a vice stran
>Zdravim!
>
>Lze nejakym jednoduchym zpusobem donutit QuickReport 2.0k z D3 aby tiskl
>vice stran? Mam vytvorit smlouvu, ktera ma nekolik stran. Z databaze do ni
>vkladam udaje jako napr. datum narozeni, adresu atd. Smlouva ma 6 stran a
>tak vytvorim v programu 6 formularu, na kazdy dam QuickReport a tabulku a
>vytvorim to sestkrat. Napisu text na jednotlive stranky a pomoci hlavniho
>programu volam Form1.QuickRep1.Print (Form2.QuickRep1.Print....). Cetl jsem
>v helpu neco o NewPage a EndPage, ale nejak jsem to nepochopil (help je
>dost skoupy). Muzete mi nekdo poradit?
>
>Svatopluk Vit
Pouzivani DLL
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 9.10.1998 16:30:04
Patrne pouzivas importni knihovnu, proto to krici. Nepouzivej ji, a
misto toho si knihovnu natahni az v pripade potreby LoadLibrary a pak
GetProcAdress.......viz API.
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: Milan Fiedler [SMTP:milanf(zv)rts(tec)cz]
> Odesl�no: 09. listopadu 1998 15:29
> Komu: Konference
> P�edm�t: Pouzivani DLL
>
> Zkousel jsem pracovat s DLL, vse funguje, jenom kdyz vlastne spoustim
> *.exe
> a neni tam DLL tak mi to vyhlasi ze tam neni soubor DLL a program se
> nerozjede, nevite nekdo jak to upravit aby mi to vyhlasilo az budu
> potrebovat DLL (zavolam proceduru v DLL)
> �
> Milan Fiedler
QReport - QRDBRichText
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 9.10.1998 16:45:13
Zdravim,
Ve svem programu pouzivam QRDBRichText pro tisk hodnoty
memo pole. Mam nastaveno AutoStrech:�ue. V D3 to fungovalo pomerne
dobre, akorat memo o jednom radku to neroztahlo OK. Stacilo pridat nekolik
prazdnych radek, bylo to v poradku. S prechodem na D4 tento problem zustal
(ale pres to jsem se uz prenesl), jenze navic pribyl dalsi.
QRDBRichText je umisten v reportu ve spodni polovine, pred nim jsou
vsechny ostatni polozky. Pokud text pretece na dalsi stranku, tiskne se NE od
vrsku stranky, ale od sveho zacatku na strane prvni, tedy az v druhe polovine stranky.
Vrsek zustava prazdny. CO S TIM ???????
V reportu jsou dva Bandy - qrTitle a qrDetail. V detailu
jsou QRLabely, QRDBTexty, jeden QRDBImage a zmineny QRDBRichText.
V tistenem dotazu je vzdy jen jeden zaznam.
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
Pouzivani DLL
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 9.10.1998 16:47:05 -0000
Nesmis pripojovat DLL staticky, tj. tim, ze napises procedure
blablabla....external 'library.dll', ale tim, ze pouzijes funkce API
LoadLibrary a GetProcAddress. To umozni i kontrolovat, jestli je ta DLL
pritomna, zda je korektni apod.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Milan Fiedler [SMTP:milanf(zv)rts(tec)cz]
Odeslano: 9. listopadu 1998 14:29
Komu: Konference
Poedmit: Pouzivani DLL
Zkousel jsem pracovat s DLL, vse funguje, jenom kdyz vlastne spoustim *.exe
a neni tam DLL tak mi to vyhlasi ze tam neni soubor DLL a program se
nerozjede, nevite nekdo jak to upravit aby mi to vyhlasilo az budu
potrebovat DLL (zavolam proceduru v DLL)
Milan Fiedler
<<Soubor: ATT00001.html>> Poradi unit v execku
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.10.1998 17:49:03
Dalibor Toman wrote:
> >pak se pokracuje dal v inicializaci jednotky? Aby nedoslo k
> >zacykleni v pripade vzajemnych odkazu, tak je poradi IMHO
> >nasledujici:
>
> >1. interface - vsechny jednotky v uses
> >2. telo interface
> >3. implementation - vsechny jednotky v uses, a je-li v nektere z
> >nich odkaz zpet, pak se pouzije telo interface
> >4. telo implementation
>
> nevim, o moznem mechanismu jsem nepremyslel, v kazdem pripade kdyz bude
> projekt obsahovat vice unit (konretne me jde cca 70 knihoven), z nichz
> nektere jsou sice samostatne ale vetsina ostatnich pouziva funkce z jinych
> knihoven, nutne neni mozne udrzet si prehled.
Jestlize pouzivas krizove (zatracena absence diakritiky, to je od
slova kriz, ne krize :) odkazy mezi unitami, mely by byt odkazy
uvedeny v takovych pripadech vyhradne v sekci implementation,
urcite ne v interface. Samozrejme je pak treba navrhnout program
tak, aby to umoznoval. Kdyz to z nejakeho duvodu nejde, je lepsi
se odkazovat na fromular nebo jiny objekt pres Handle a posilanim
zprav, nez delat krizove odkazy v interface.
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
Zabava se sdilenim PDX
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.10.1998 17:49:03
Jirka wrote:
> No jo, ale:
> a) ja nejsem spravce site, jenom programator dane aplikace
> [...]
>
> Az mi nekdo poradi, budu stastny jak blcha.
>
> P.S. ja vim, ze resenim je databazovy server. Uz cekam na objednany
> Oracle.
Nejen resenim, ale _jedinym_moznym_ resenim. Kdyz chce
nejaky zakaznik nasadit muj program na siti s paradoxem, davam
od zaruk zasadne ruce pryc a dlouze ho varuji. Rada z nich pak na
to prijde casem sama, ze na siti to nefunguje bez neustaleho
oprasovani a obcasnych ztrat dat.
>
> > -----P vodn� zpr�va-----
> > Od: Martin Fron k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> >
> > No, pokud spravujes sit takhle, tak bys treti den uz letel na
> > hodinu........a mohl by ses smat, jak chces.......
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
Vesela prihoda s CD-ROMkou (off topic)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 9.10.1998 17:49:04
Dobromil Mal wrote:
> >A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
> >sam, hec! Tedy - aspon to prodejce tvrdil. :-)
>
> A co kdyz se chces jen na neco podivat (treba kolik mas jeste
> mista na disku :-)) a mas rozdelanou nejakou praci ?
>
No tak se nepodivam, no. Koupil jsem si tak velke disky, ze tam
vzdycky jeste nekde musi kousek byt. Stejne je to tezka krava
prisunuta prave tim deklem ze strany ke stolu, na ni jeste UPS, a
kdo by se s tim kramem tahal, ze?
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
horn� index
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 9.10.1998 17:52:28
Zdrav�m,
nem�te n�kdo zku�enosti se zobrazen�m a tiskem horn�ho indexu. V edit, memo,
labelu...
D�ky za kazdy namet.
Lubomir Kupka
----------------------------------------------------------------------------
---------------------------------
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 ICQ :
4747183
----------------------------------------------------------------------------
---------------------------------
Vesela prihoda s CD-ROMkou (off topic)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.10.1998 18:34:19
Zbysek Hlinka wrote:
> A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
> sam, hec! Tedy - aspon to prodejce tvrdil. :-)
Hm, a kdyz ho tam das zpet tak uz se nerozbehne. Takove pocitace uz jsem take
videl :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Slovnik MS Wordu
[*] Radek Hladik <rhladik(zv)tfc(tec)cz> - 9.10.1998 20:00:31
> Myslim, ze slovnik Wordu ma stejny format jako
> normalni DOC-umenty jen ma jinou priponu -DIC.
>
> D.
To jsou ovsem jen ty uzivatelsky slovniky. Ja bych potreboval ten
hlavni.
> Od: Radek Hladik[SMTP:rhladik(zv)tfc(tec)cz]
> P edm t: Slovnik MS Wordu
>
> Ahoj!
> potreboval bych se nejakym zpusobem pripojit na slovnik od
> MS Wordu. Uplne mi staci dotaz typu MAS SLOVO XYZ????
Radek Hlad�k
rhladik(zv)tfc(tec)cz
Hromadna zmena vlastnosti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.10.1998 20:22:05
"Ing. Zdenek Sraier" wrote:
>
> Zdravim,
>
> mam nasledujici problem: Potrebuji hromadne v nekolika formularich
> zmenit font u nekterych komponent. V archvu konference jsem nasel
> nekolik reseni, ale ty se daji pouzit pouze na nektere vlastnosti,
> jako je treba 'Enabled'. Vlastnost 'Font' je v TControl protected.
> Jak se to da jednoduse udelat ???
>
> Pozn.: fontPopis a fontData jsou TFont.
>
> Diky za rady.
Ahoj,
Da se to udelat treba tak, ze se u kazdeho Control zjisti jestli ma
puslished vlastnost Font.
uses
TypInfo;
function ControlFont(Control: TControl): TFont;
var
PropInfo: PPropInfo;
begin
Result := nil;
if Control <> nil then
begin
PropInfo := GetPropInfo(Control.ClassInfo, 'Font');
if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) and
(GetTypeData(PropInfo^.PropType^)^.ClassType = TFont) then
Result := TFont(GetMethodProp(Control, PropInfo).Code);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
CFont: TFont;
begin
for I := 0 to ControlCount - 1 do
begin
CFont := ControlFont(Controls[I]);
if CFont <> nil then CFont.Style := [fsBold];
end;
end;
end.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Cachovanz update
[*] Marcello <dvo20um(zv)axpsu.fpf.slu(tec)cz> - 9.10.1998 20:58:02
cau,
mam takovy neprijemny problem, pouzivam Cachovany update, ale pri
zavolani DataModul.Database.ApplyUpdates([DataKMT.QueryPristroj]); tzn
pokusu ulozit pouzite zmeny do databaze se apliakce sekne s hlaskou, ze
Queryis not owned by database, nevite nekdo co stim , potreboval bych
pripadnou radu
NUTNE!!!!!
M. Dvorak
Hromadna zmena vlastnosti(2)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.10.1998 21:09:39
Petr Vones wrote:
>
> "Ing. Zdenek Sraier" wrote:
> >
> > Zdravim,
> >
> > mam nasledujici problem: Potrebuji hromadne v nekolika formularich
> > zmenit font u nekterych komponent. V archvu konference jsem nasel
> > nekolik reseni, ale ty se daji pouzit pouze na nektere vlastnosti,
> > jako je treba 'Enabled'. Vlastnost 'Font' je v TControl protected.
> > Jak se to da jednoduse udelat ???
> >
> > Pozn.: fontPopis a fontData jsou TFont.
> >
> > Diky za rady.
Ahoj,
Jeste jedno, ono by to vlastne slo asi i takhle :-) To ze se bude volat
SetFont u controlu ktery nema published vlastnost Font by nemelo az tolik
vadit .....
type
TControlHack = class(TControl);
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
TControlHack(Controls[I]).Font.Style := [fsBold];
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Sedy text v DBEdit
[*] celonk(zv)mbox.vol(tec)cz - 10.10.1998 06:58:50
Velice me to mrzi, ale trosku (vic) jsem uletel, myslenka je spravna, ale
vyklad spatny.
To zarovn�n� je nutn� nastavit u konkr�tn� polo�ky datab�ze (nap�.
TstringField).
Pak uz se to projev� pr�ve ve zmynovan� DBEdit.
Opravdu jsem to zkousel a jde to.
Je mi l�to, ze jsem to nezvladl napoprve.
Tonda �elonk
^Jumper^
Quick report a vice stran
[*] Jirka Mikan <BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz> - 10.10.1998 07:47:15
Cest!
No, ja teda mam az DELPHI 4, a tam si
muzes nastavit na Page Headeru proprietu
ForceNewPage na true.
Strejda Jirka M.
>Zdravim!
>
>Lze nejakym jednoduchym zpusobem donutit QuickReport 2.0k z D3 aby tiskl
>vice stran? Mam vytvorit smlouvu, ktera ma nekolik stran. Z databaze do ni
>vkladam udaje jako napr. datum narozeni, adresu atd. Smlouva ma 6 stran a
>tak vytvorim v programu 6 formularu, na kazdy dam QuickReport a tabulku a
>vytvorim to sestkrat. Napisu text na jednotlive stranky a pomoci hlavniho
>programu volam Form1.QuickRep1.Print (Form2.QuickRep1.Print....). Cetl jsem
>v helpu neco o NewPage a EndPage, ale nejak jsem to nepochopil (help je
>dost skoupy). Muzete mi nekdo poradit?
>
>Svatopluk Vit
>East Trading Company s.r.o. Karvina (www.ardo(tec)cz)
>
Poradte, please, zacatecnikovi
[*] Jirka Mikan <BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz> - 10.10.1998 07:50:25
To je WONO, diky mooc.
Problem byl v tom, ze jsem pred nazev pole neuvadel nazev tabulky.
Paxe mi do obsahu vsech radku dostala hodnota uvedena v uvozovkach,
coz byl nazev toho fieldu. Podle SQL normy je to v poradku, ale kdyz
vono v tech skriptech vod Chudejovy nejni fsecko... :-)))
Jeste jednou diky, Jirka M.
>Ahoj,
>
>V pripade pole ktere ma v nazvu mezeru muze syntaxe vypadat takhle
(Paradox):
>
>SELECT "pokus.DB"."Last Name"
>FROM "pokus.DB"
>WHERE ("pokus.DB"."Last Name" = 'Petr')
>
>Muzes pouzit Database Desktop a tam si pomoci QBE vytvorit ten dotaz a
podivat
>se na nej.
>
Pouzivani DLL
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 10.10.1998 08:20:14
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Diky vsem za odpovedi,
Milan Fiedler
0602-505925
milanf(zv)post(tec)cz
Poradi unit v execku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.10.1998 08:48:49
>> nevim, o moznem mechanismu jsem nepremyslel, v kazdem pripade kdyz bude
>> projekt obsahovat vice unit (konretne me jde cca 70 knihoven), z nichz
>> nektere jsou sice samostatne ale vetsina ostatnich pouziva funkce z
jinych
>> knihoven, nutne neni mozne udrzet si prehled.
>Jestlize pouzivas krizove (zatracena absence diakritiky, to je od
>slova kriz, ne krize :) odkazy mezi unitami, mely by byt odkazy
>uvedeny v takovych pripadech vyhradne v sekci implementation,
>urcite ne v interface.
to je jasne - jinak to ani kompilator neprelozi (Circular Unit reference)
>Samozrejme je pak treba navrhnout program
>tak, aby to umoznoval. Kdyz to z nejakeho duvodu nejde, je lepsi
>se odkazovat na fromular nebo jiny objekt pres Handle a posilanim
>zprav, nez delat krizove odkazy v interface.
cesta se vzdycky najde - ale je to pokazde neprijemne.
Zdravi
D. Toman
IRC
[*] Honza Fiala <fala(zv)imc(tec)cz> - 10.10.1998 09:02:27
Caute,
nevite jestli existuje cesky chat kanal o delphi na IRC nebo ICQ?
Dik Honza Fiala
Stahovani souboru
[*] Nosek Libor <nosek(zv)ujf.cas(tec)cz> - 10.10.1998 09:09:20
Mozna je tento dotay Off-line, ale hledanim na delphi super page jsem si nasel soubor, ktery potrebuju, a kdyz
jej chci stahnout, tak mne odkaze na adresu "www.ftp.com", a hotovo, soubor neexistuje, nelze najit ani nic jineho.
Nevite proc?
Za druhe. Nemohu se dostat na server Delphi na mff, kde byval, nevite take proc?
Diky
Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68
tel: 66173163
fax: 6857003
nosek(zv)ujf.cas(tec)cz
Vesela prihoda s CD-ROMkou (off topic)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.10.1998 09:23:21
Petr Vones wrote:
> > A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
> > sam, hec! Tedy - aspon to prodejce tvrdil. :-)
>
> Hm, a kdyz ho tam das zpet tak uz se nerozbehne. Takove pocitace uz jsem
> take videl :-)
Muj ano, hec! Po odeslani zpravy a uzavreni vseho jsem to hned
vyzkousel. :-)
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
Cachovanz update
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.10.1998 09:23:21
Marcello wrote:
> mam takovy neprijemny problem, pouzivam Cachovany update, ale pri
> zavolani DataModul.Database.ApplyUpdates([DataKMT.QueryPristroj]); tzn
> pokusu ulozit pouzite zmeny do databaze se apliakce sekne s hlaskou, ze
> Queryis not owned by database, nevite nekdo co stim , potreboval bych
> pripadnou radu
Asi nemas Query pripojene k Database, ale mas to napichnute
primo na Alias z BDE?
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
IRC
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 10.10.1998 09:49:47
Jediny IRC, ktery jsem nasel je #Delphi na UNDERNETu, ale ten je anglicky
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Honza Fiala <fala(zv)imc(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. listopadu 1998 10:09
P�edm�t: IRC
Caute,
nevite jestli existuje cesky chat kanal o delphi na IRC nebo ICQ?
Dik Honza Fiala
Slovnik MS Wordu
[*] Roman Toda <normex(zv)mail.pvt.sk> - 10.10.1998 10:15:42
Kedze si nedostal zatial ziadne (skoro) rady, tak aspon tip
http://sunsite.icm.edu.pl/delphi
subor spellers.zip
Autor uvadza: TSpellChecker is native Delphi 3.0 component which
implements MS Office 97 compatible spell-checker for any language in
paneuropean platform.
Je to free su tam zdrojaky, ma to 30kB, v pripade zaujmu poslem.
Este som to sice podrobne neskusal ale malo by to zvladnut to co
potrebujes (a viac samozrejme)
Radek Hladik wrote:
> potreboval bych se nejakym zpusobem pripojit na slovnik od
> MS Wordu. Uplne mi staci dotaz typu MAS SLOVO XYZ????
>
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
InstallShieldExpress pro D4.0 a langdrivery
[*] Petr Bahn�k <bahnikp(zv)ms.anet(tec)cz> - 10.10.1998 10:21:03
Ahoj,
jak mam IS Express pro D4 4.0 oznamit, ze pri uplne instalaci BDE ma
nastavit u DRIVERY, NATIVE specificke Langdrivery ? (Cestinu 852 u DBASE a
PARADOX). Zkousel jsem v IS E. nastavit registr
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database
Engine\Settings\DRIVERS\DBASE\INIT LANGDRIVER="DB852C20", ale to asi
nestaci, BDE si to uklada asi i nekde jinde.
Muzete prosim poradit ?
Petr Bahnik
Chyba v Async Pro 2.52.
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 10.10.1998 10:47:07
Pokud tu je nejaky skalni (rozumej donuceny) uzivatel TurboPower AsyncPro,
dovolil bych si upozornit na malou chybicku, ktera se stava maximalne 1x za
deset let v situaci, kdy casto prehazujete OnTriggerAvail rutinu a potom
posilate
znaky a pak cekate znak (postupne nikoliv asynchronne). Muze se stat, ze pak
3 vteriny nedostanete znak, ktery tam evidentne je. Krokovani je na houby,
protoze tak ty 3 vteriny uleti jak voda a vse se tvari normalne.
Chyba je (ona to vlastne chyba neni, spise nedostatek) v
AwUser.Pas na radku 2365
if not thDeleted then
{$IFDEF WIN32}
SendMessageTimeout(thWnd, Msg, Trigger, lParam,
{!!.52}
SMTO_BLOCK,3000, Res);
{!!.52}
{$ELSE}
SendMessage(thWnd, Msg, Trigger, lParam);
{$ENDIF}
hodnotu 3000 nahradte 500 a pokud bude vse fungovat muzete ji tam nechat.
Jinak ji vratte zase zpatky a metodou pokus-omyl zkuste jinou.
Tak to je vysledek asi tak dvoudenniho patrani, jinak se citim dobre, jen
ty hlasy.... ty hlasy....neco jako "Kdy uz ten P.V. pohne s tou
komponentou"?
Martin
Delphi kitchen�: http://kuchyn.delphi(tec)cz
Taktez se pripojujeme k www.bojkot(tec)cz a 18. nevarime !!!
Takze si odhlaste stravenky.Slovnik MS Wordu
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.10.1998 12:12:39
> Kedze si nedostal zatial ziadne (skoro) rady, tak aspon tip
> http://sunsite.icm.edu.pl/delphi
> Este som to sice podrobne neskusal ale malo by to zvladnut to co
> potrebujes (a viac samozrejme)
Ja to pouzivam a funguje to stejne, jako Speller ve Wordu. Stejne okno,
moznost pridat, preskakovat atd.Poradi unit v execku
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.10.1998 12:48:46
Dalibor Toman wrote:
> >Jestlize pouzivas krizove (zatracena absence diakritiky, to je od
> >slova kriz, ne krize :) odkazy mezi unitami, mely by byt odkazy
> >uvedeny v takovych pripadech vyhradne v sekci implementation,
> >urcite ne v interface.
>
> to je jasne - jinak to ani kompilator neprelozi (Circular Unit reference)
Ne tak docela, protoze za jistych okolnosti to prelozi.
> >Samozrejme je pak treba navrhnout program
> >tak, aby to umoznoval. Kdyz to z nejakeho duvodu nejde, je lepsi
> >se odkazovat na fromular nebo jiny objekt pres Handle a posilanim
> >zprav, nez delat krizove odkazy v interface.
>
> cesta se vzdycky najde - ale je to pokazde neprijemne.
Neustale potykani se s chybovymi hlaskami a problemy s
kompilaci jsou daleko neprijemnejsi. :-)
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
Stahovani souboru
[*] Radim Novotny <delphi(zv)betacontrol(tec)cz> - 10.10.1998 13:03:56
Subject: Stahovani souboru
> Mozna je tento dotay Off-line, ale hledanim na delphi super page
jsem si nasel soubor, ktery potrebuju, a kdyz
> jej chci stahnout, tak mne odkaze na adresu "www.ftp.com", a
hotovo, soubor neexistuje, nelze najit ani nic jineho.
> Nevite proc?
Mam stejny problem a to tehdy, kdyz si necham soubor vyhledat
pres dsp-search.
Aby to fungovalo, tak jsem si musel ten soubor naj�t v klasickem
DSP a odtud uz sel stahnout.
> Za druhe. Nemohu se dostat na server Delphi na mff, kde byval, nevite take proc?
> Diky
>
Nevim.
Radim Novotn�
BetaControl s.r.o.
+42054532112
novotny(zv)beatcontrol(tec)cz
Zmena fontu titulku formu
[*] Jozef Strn�dik <strnadik(zv)mbox.mrp(tec)cz> - 10.10.1998 13:05:32
Je mozne zmenit font titulku formu t.j. font pre Form.Caption ???
Za kazdu radu vopred dakujem.
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
Vesela prihoda s CD-ROMkou (off topic)
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 10.10.1998 13:15:58
>> > A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
>> > sam, hec! Tedy - aspon to prodejce tvrdil. :-)
>>
>> Hm, a kdyz ho tam das zpet tak uz se nerozbehne. Takove pocitace uz jsem
>> take videl :-)
>
>Muj ano, hec! Po odeslani zpravy a uzavreni vseho jsem to hned
>vyzkousel. :-)
-- versus --
>No tak se nepodivam, no. Koupil jsem si tak velke disky, ze tam
>vzdycky jeste nekde musi kousek byt. Stejne je to tezka krava
>prisunuta prave tim deklem ze strany ke stolu, na ni jeste UPS, a
>kdo by se s tim kramem tahal, ze?
Tak ted uz tomu nerozumim ... :-)))
dve tabulky
[*] Marek Falan <falan(zv)atlas(tec)cz> - 10.10.1998 13:18:18
Zdravim vsetkych,
Mam dve tabulky . V jednej su napr polozky cenniku- kody s popisom, v druhej
kod tovaru, datum a k nemu cena.Tieto tabulky su spojene pomocou SQL, cez
polozku KOD . Pouzita je komponenta QUERY.
1.Ak mam v prvej tabulke zaznamy, ktore nemaju v druhej tabulke zaznam, nie
su vysledku dotazu zobrazene.Chcel by som ich tam mat.
2.Ak mam v druhej tabulke polozky kod, datum, cena, pricom kod tovaru moze
mat viac zaznamov s roznym datumom a cenou. A chcem vo vyslednom dotaze
zobrazit iba zaznami s najaktualnejsou cenou . Vie mi niekto poradit ako to
urobit ?Stahovani souboru
[*] RADIK(zv)p15.monet(tec)cz - 10.10.1998 13:43:00
Mirror na mff uz nefunguje hodne dlouho. Pro me je nejrychlejsi mirror v
rakousku.
Pri hledani na DSP to dela problemy a nevim, proc odkazy nejsou spravne.
Ja to resim tak, ze si zjistim spravny prefix odkazu (treba od nejakeho
souboru v seznamech) a ten pak napisu do cesty k tomu nalezenemu. Je to
slozite, ale funguje to.
Ales
----------
Od: Nosek Libor
Komu: "Distribu�n� list DELPHI (el. adresa)"
P�edm�t: Stahovani souboru
Datum: 10. listopad 1998 9:09
Mozna je tento dotay Off-line, ale hledanim na delphi super page jsem si
nasel soubor, ktery potrebuju, a kdyz
jej chci stahnout, tak mne odkaze na adresu "www.ftp.com", a hotovo,
soubor neexistuje, nelze najit ani nic jineho.
Nevite proc?
Za druhe. Nemohu se dostat na server Delphi na mff, kde byval, nevite
take proc?
Diky
Nosek Libor
OJS
UJF AV CR
Rez u Prahy 250 68
tel: 66173163
fax: 6857003
nosek(zv)ujf.cas(tec)cz
Zmena fontu titulku formu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 10.10.1998 14:22:15
Jestli se nepletu, tak jedine ownerdraw by pomohlo. Je to non-client
oblast okna..........
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: Jozef Strn�dik [SMTP:strnadik(zv)mbox.mrp(tec)cz]
> Odesl�no: 10. listopadu 1998 13:06
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Zmena fontu titulku formu
>
> Je mozne zmenit font titulku formu t.j. font pre Form.Caption ???
> Za kazdu radu vopred dakujem.
>
>
> Jozef Strnadik
> E-mail: strnadik(zv)mbox.mrp(tec)cz
dve tabulky
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 10.10.1998 14:36:34
Ad 1)
Pouziti left joinu nebo outer joinu
Ad 2)
select kod, datum, cena from tovar t1
where datum = (select max(datum) from tovar t2 where t2.kod=t1.kod)
Petr
-----Original Message-----
From: Marek Falan [mailto:falan(zv)atlas(tec)cz]
Sent: Tuesday, November 10, 1998 1:18 PM
To: delphi-l(zv)fwd(tec)cz
Subject: dve tabulky
Zdravim vsetkych,
Mam dve tabulky . V jednej su napr polozky cenniku- kody s popisom, v
druhej
kod tovaru, datum a k nemu cena.Tieto tabulky su spojene pomocou SQL,
cez
polozku KOD . Pouzita je komponenta QUERY.
1.Ak mam v prvej tabulke zaznamy, ktore nemaju v druhej tabulke zaznam,
nie
su vysledku dotazu zobrazene.Chcel by som ich tam mat.
2.Ak mam v druhej tabulke polozky kod, datum, cena, pricom kod tovaru
moze
mat viac zaznamov s roznym datumom a cenou. A chcem vo vyslednom dotaze
zobrazit iba zaznami s najaktualnejsou cenou . Vie mi niekto poradit ako
to
urobit ?Zmena fontu titulku formu
[*] RADIK(zv)p15.monet(tec)cz - 10.10.1998 14:39:00
V RX komponentach je komponenta na titulek formu s barevnym prechodem a
i nekolika fonty. Pouzij ji nebo se podivej, jak to delaji....
Ales
----------
Od: Jozef Strn�dik
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Zmena fontu titulku formu
Datum: 10. listopad 1998 13:05
Je mozne zmenit font titulku formu t.j. font pre Form.Caption ???
Za kazdu radu vopred dakujem.
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
IRC
[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 10.10.1998 14:41:51
Existuje take #c++ (MFC, ...) a #C++ Builder
jsou opravdu kvalitni !!!
Petr
> ----------
> Od: Jan Fiala[SMTP:jan.fiala(zv)iname.com]
> Odesl�no: 10. listopadu 1998 9:49
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: IRC
>
> Jediny IRC, ktery jsem nasel je #Delphi na UNDERNETu, ale ten je anglicky
>
> -----------------------------------------------------------------
> ing. Jan Fiala��������� jan.fiala(zv)iname.com
> Prog-Soft s.r.o.
> INFOS - informa�n� system pro n�poj��e
> ---------------------------------------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Honza Fiala < fala(zv)imc(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz < delphi-l(zv)fwd(tec)cz>
> Datum: 10. listopadu 1998 10:09
> P�edm�t: IRC
>
>
> Caute,
> � nevite jestli existuje cesky chat kanal o delphi na IRC nebo ICQ?
>
> Dik Honza Fiala
>
> TZipMaster
[*] RADIK(zv)p15.monet(tec)cz - 10.10.1998 14:44:00
Mate nekdo prakticke zkusenosti s komponentou TZipMaster? Predevsim mi
jde o pripadnou chybovost, kompatibilitu s pkzipem a funkcnost SFX.
Predem dekuji.
Ales
dve tabulky
[*] Kovac <kovac(zv)pvt.sk> - 10.10.1998 14:53:51
Skus :
select * from CENNIK c
left join UDAJE u
/*toto sposobi, ze ak v tabulke UDAJE nie je
zodpovedajuca veta, dosadia sa hodnoty null*/
on u.KOD=c.KOD
/*spojenie*/
where
not exists
(select * from UDAJE u2
where u2.KOD=u.KOD and u2.DATUM>u.DATUM)
/*vyber viet s najvyssim datumom*/
-----Original Message-----
From: Marek Falan <falan(zv)atlas(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 10. november 1998 14:16
Subject: dve tabulky
>Zdravim vsetkych,
>
>Mam dve tabulky . V jednej su napr polozky cenniku- kody s popisom, v
druhej
>kod tovaru, datum a k nemu cena.Tieto tabulky su spojene pomocou SQL, cez
>polozku KOD . Pouzita je komponenta QUERY.
>
>1.Ak mam v prvej tabulke zaznamy, ktore nemaju v druhej tabulke zaznam, nie
>su vysledku dotazu zobrazene.Chcel by som ich tam mat.
>
>2.Ak mam v druhej tabulke polozky kod, datum, cena, pricom kod tovaru moze
>mat viac zaznamov s roznym datumom a cenou. A chcem vo vyslednom dotaze
>zobrazit iba zaznami s najaktualnejsou cenou . Vie mi niekto poradit ako to
>urobit ?
>
>dve tabulky
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 10.10.1998 15:18:35
>
>Mam dve tabulky . V jednej su napr polozky cenniku- kody s popisom, v druhej
>kod tovaru, datum a k nemu cena.Tieto tabulky su spojene pomocou SQL, cez
>polozku KOD . Pouzita je komponenta QUERY.
>
>1.Ak mam v prvej tabulke zaznamy, ktore nemaju v druhej tabulke zaznam, nie
>su vysledku dotazu zobrazene.Chcel by som ich tam mat.
Na informixu se pouziva outer, tedy
select A.KOD_POLOZKY, A.NAZEV_POLOZKY, B.CENA_POLOZKY
from T_SEZNAM A , outer T_CENY B
where A.KOD_POLOZKY=B.KOD_POLOZKY
ale jinak se pouziva toto
select A.KOD_POLZKY, A.NAZEV_POLOZKY, B.CENA_POLOZKY
from T_SEZNAM A left join outer T_CENY B
on A.KOD_POLOZKY=B.KOD_POLOZKY
>
>2.Ak mam v druhej tabulke polozky kod, datum, cena, pricom kod tovaru moze
>mat viac zaznamov s roznym datumom a cenou. A chcem vo vyslednom dotaze
>zobrazit iba zaznami s najaktualnejsou cenou . Vie mi niekto poradit ako to
>urobit ?
No, nevim, jestli to bude fungovat v Delphi, ale melo by jit
prikazy select vkladat do sebe
-me se to ale nepovedlo "Capability not suported" :-(
select A.KOD_POLOZKY, A.NAZEV_POLOZKY, B.CENA_POLOZKY
from T_SEZNAM A left join outer T_CENY B
on A.KOD_POLOZKY=B.KOD_POLOZKY
where A.KOD_POLOZKY=(select max(DATUM_ZMENY) from T_CENY where KOD_POLOZKY=:Polozka)
-doufam, ze je to tak a ze jsem se nesplet, mozna misto toho rovnitka dat "is in"
ale jak rikam, taky se mi to nepovedlo, tak mam dva TQuery, jeden naplnim a dosadim
do druhyho.
Dobra.Jak na indexovani databazove tabulky ?
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 10.10.1998 15:39:09 -0000
Ahoj vespolek,
jako trapny zacatecnik v oblasti databazi mam nepochybne trivialni dotaz:
Mam dbf tabulku, ktera je oindexovana souborem MDX nebo CDX. Kdyz se tento
indexovy soubor smaze, nepujde uz tabulka komponentou TTable otevrit. Je
nejaka cesta, jak pomoci ji pomoci BDE zase oindexovat (ne ovsem Database
Desktopem) ?
Pokud mohu prosit, radeji podrobne, v databazich i BDE jsem skutecne trapny
zacatecnik.
Diky predem.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
Zmena fontu titulku formu
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 10.10.1998 17:45:41
> Jestli se nepletu, tak jedine ownerdraw by pomohlo. Je to non-client
> oblast okna..........
No, neni tezke kreslit primo na okno...
Can := TCanvas.Create;
Can.Handle := GetWindowDC( Handle );
Can.Font... := ...
Can.TextOut( .... - pisu na okno (ne na Canvas okna)
Tom
Jak na indexovani databazove tabulky ?
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 10.10.1998 17:54:18
> Mam dbf tabulku, ktera je oindexovana souborem MDX nebo CDX. Kdyz se tento
> indexovy soubor smaze, nepujde uz tabulka komponentou TTable otevrit. Je
> nejaka cesta, jak pomoci ji pomoci BDE zase oindexovat (ne ovsem Database
> Desktopem) ?
Nastav 28. byte (cislovano od 1) na 00.
(01 znamena, ze ma .MDX).
Zdroj - TI2821.
Tom
Poradte, please, zacatecnikovi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 18:02:07
Jirka Mikan wrote:
>
> To je WONO, diky mooc.
> Problem byl v tom, ze jsem pred nazev pole neuvadel nazev tabulky.
> Paxe mi do obsahu vsech radku dostala hodnota uvedena v uvozovkach,
> coz byl nazev toho fieldu. Podle SQL normy je to v poradku, ale kdyz
> vono v tech skriptech vod Chudejovy nejni fsecko... :-)))
Ahoj,
Pokud pracujes s databazemi typu Paradox & spol, tak se podivej do Local SQL
helpu (localsql.hlp). Tam to mas popsane.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Wintypes.pas
[*] Jan Janecek <stoupa(zv)vos-sps-jicin(tec)cz> - 10.10.1998 18:04:03
Vazeni pratele,
Zkousel jsem nainstalovat komponentu NTSET a ta po me pozaduje soubor
wintypes.pas. Pouzivam Delphi 2 Proffesional.
Prosim o radu, kde tento soubor ziskat.
Dekuji za pomoc
-------------------------------------
Jan Janecek - STOUPA
VOS_SPS
Pod Kozeluhy 100
Jicin 50601
EMAIL:stoupa(zv)vos-sps-jicin(tec)cz
stoupik(zv)xoommail.com
jan.janecek(zv)post(tec)cz
WEB: HTTP://members.xoom.com/stoupik
ICQ: 12364149
-------------------------------------
Zmena fontu titulku formu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 18:07:35
Martin Fron�k wrote:
>
> Jestli se nepletu, tak jedine ownerdraw by pomohlo. Je to non-client
> oblast okna..........
Ahoj,
presne tak. Asi nejjednodusi bude pouzit TRxGradientCaption z RxLib.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Jak na indexovani databazove tabulky ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 18:20:28
Petr Brant wrote:
>
> Ahoj vespolek,
>
> jako trapny zacatecnik v oblasti databazi mam nepochybne trivialni dotaz:
>
> Mam dbf tabulku, ktera je oindexovana souborem MDX nebo CDX. Kdyz se tento
> indexovy soubor smaze, nepujde uz tabulka komponentou TTable otevrit. Je
> nejaka cesta, jak pomoci ji pomoci BDE zase oindexovat (ne ovsem Database
> Desktopem) ?
>
> Pokud mohu prosit, radeji podrobne, v databazich i BDE jsem skutecne trapny
> zacatecnik.
Ahoj,
Pokud smazes indexovy soubor, tak je problem v tom, ze v DBF souboru je ulozena
informace o existenci indexu. Nejdriv ji tedy musis odstranit, a to tak ze
vynulujes 28my byte v souboru. Hodnota 0 znamena ze index neexistuje, 1 ze existuje.
Teprve potom muzes tabulku otevrit a znovu indexovat pomoci TTable.AddIndex, nebo
pouzitim BDE API funkci. Oba priklady mas v helpu.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
InstallShieldExpress pro D4.0 a langdrivery
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 18:34:46
Petr Bahn�k wrote:
>
> Ahoj,
>
> jak mam IS Express pro D4 4.0 oznamit, ze pri uplne instalaci BDE ma
> nastavit u DRIVERY, NATIVE specificke Langdrivery ? (Cestinu 852 u DBASE a
> PARADOX). Zkousel jsem v IS E. nastavit registr
> HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database
> Engine\Settings\DRIVERS\DBASE\INIT LANGDRIVER="DB852C20", ale to asi
> nestaci, BDE si to uklada asi i nekde jinde.
Ahoj,
to nastaveni je v .cfg souboru. Otevri si pomoci BDE Administratoru soubor
idapi32.cfg nebo idapi.cnf (ted si to presne nepamatuju) v adresari \redist
v InstallShieldu. V nem si to uprav. Ale pak ho nedavej jako default
konfiguraci pro BDE :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Zjisteni casu na servru
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 10.10.1998 18:43:02
Nevite nekdo jak zjistit cas na servru ? Myslim tim standartnimi sluzbami
windows. Potrebuji napsat program ktery zjistuje cas z NT servru. (Tak jak
to dela "net time"). Co sem zkousel monitorovat sit tak to vypada ze "net
time" to dela pres nake volani RPC, ale do toho bohuzel nevidim. Muze nekdo
poradit?
(Nechci na servru poustet zadny time-server atd ....)
Diky
McLEI
Zmena barvy v bitmape
[*] Micrel <micrel(zv)micrel(tec)cz> - 10.10.1998 18:51:31
Ahoj, prosim o radu. Potrebuji nahradit v bitmape jednu barvu barvou jinou.
Nevite, prosim, nekdo jak to jednoduse udelat? Potrebuji tez zkopirovat kus
bitmapy do jine bitmapy. Dekuji Jaro B.Font s anglickou vyslovnosti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 18:53:49
roman.palarcik(zv)spt(tec)cz wrote:
>
> Ahoj,
> nevite nekdo o nejakem fontu, ktery by obsahoval znaky, ktere se
> pouzivaji pri psani vyslovnosti anglickych slovicek ?
Ahoj,
Asi ti nezbyde nic jineho nez hledat na Internetu :-) V UDDF FAQ jsou odkazy
na Font Sites. Take AltaVista byva v tomto pripade dobry pomocnik.
http://www.gnomehome.demon.nl/uddf/
P.S.
Doufam ze se tez pridas k Bojkotu ... :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Relativni posunuti vice komponent na formu
[*] Micrel <micrel(zv)micrel(tec)cz> - 10.10.1998 18:56:19
Ahoj,
potrebuji, prosim, trochu poradit.
Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne ruzne LEFT a
TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
trivialita, ale moc by mi to pomohlo.
Diky
Jaro B.Problem s TOvcTransfer
[*] Micrel <micrel(zv)micrel(tec)cz> - 10.10.1998 19:06:10
Ahoj,
Pri pouziti TOvcTransfer z Orphea se mi vyskytl problem. Pri pouzit
nekterych komponent z RX-library se mi jejich property nenabizi k
transferu. Nesetkal jste se s t�m, pros�m, n�kdo? Lze to nejak resit?
D�ky
Jaro B.Wintypes.pas
[*] pcuhel(zv)deltax(tec)cz - 10.10.1998 19:10:51
Ahoj
U delphi 3 jsou zavedeny alias jmena na jednotky takto.
WinTypes=Windows
WinProcs=Windows
DbiTypes=BDE
DbiProcs=BDE
DbiErrs=BDE
Bye
Vazeni pratele,
Zkousel jsem nainstalovat komponentu NTSET a ta po me pozaduje soubor
wintypes.pas. Pouzivam Delphi 2 Proffesional.
Prosim o radu, kde tento soubor ziskat.
Dekuji za pomoc
Vesela prihoda s CD-ROMkou (off topic)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 19:14:02
Zbysek Hlinka wrote:
>
> Petr Vones wrote:
>
> > > A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
> > > sam, hec! Tedy - aspon to prodejce tvrdil. :-)
> >
> > Hm, a kdyz ho tam das zpet tak uz se nerozbehne. Takove pocitace uz jsem
> > take videl :-)
>
> Muj ano, hec! Po odeslani zpravy a uzavreni vseho jsem to hned
> vyzkousel. :-)
Hm, a dalsi zpravy uz jsi urcite musel napsat z Internet-kavarny, aby to
nevypadalo trapne :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Chyba v Async Pro 2.52.
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.10.1998 19:15:44
Martin Nedopil wrote:
> Pokud tu je nejaky skalni (rozumej donuceny) uzivatel TurboPower AsyncPro,
Poslal jsi tento popis take TurboPowerum? Zkousel jsi novy
update?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ulozeni property THeader
[*] Micrel <micrel(zv)micrel(tec)cz> - 10.10.1998 19:20:10
Ahoj,
Prosim o radu. Potrebuji ulozit u komponentu THeader i sirku jednotlivych
sekci ulozenou v runtime property SectionWidth[I]. Pouzil jsem TFormStorage
z RX library, s jejiz pomoci jsem ulozil vetsinu potrebnych veci ale
SectionWidth normalne nejde. Je mozne zabezpecit ulozeni do INI souboru i
jinak - ale tak, aby se pri uzavreni formulare samo do ini souboru ulozilo
a pri vyrvoreni formulare se z neho restaurovalo ?
Diky za kazdou radu
Jaro B.Wintypes.pas
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 19:29:28
Jan Janecek wrote:
>
> Vazeni pratele,
>
> Zkousel jsem nainstalovat komponentu NTSET a ta po me pozaduje soubor
> wintypes.pas. Pouzivam Delphi 2 Proffesional.
> Prosim o radu, kde tento soubor ziskat.
Ahoj,
WinTypes a WinProcs je pozustatek ze 16bit Delphi. V D2 mas Unit aliasy, pomoci
kterych muzes prirazovat puvodnim nazvum i jine. V tomto pripade je to Windows,
podivej se do Projects|Options -> Directories/Conditionals jestli tam mas v Unit
aliases alespon WinTypes=Windows;WinProcs=Windows; , melo by to tam byt jiz od
instalace Delphi.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
InstallShieldExpress pro D4.0 a langdrivery
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 10.10.1998 19:51:49
V adresari IS je soubor idapi.cnf (nebo idapi32.cnf, ted nevim),
prejmenuj ho na *.cfg, otevri v BDEAdmin a nastav si co chces,
pak to zase prejmenuj zpatky.
S pozdravem Zdenek
*********** Podporuji bojkot Telecomu http://www.bojkot(tec)cz/ ************
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
----------
> Odes�latel: Petr Bahn�k <bahnikp(zv)ms.anet(tec)cz>
> Komu: 'DELPHI Distribution List' <delphi-l(zv)fwd(tec)cz>
> P�edm�t: InstallShieldExpress pro D4.0 a langdrivery
> Datum: 10. listopadu 1998 10:21
>
> Ahoj,
>
> jak mam IS Express pro D4 4.0 oznamit, ze pri uplne instalaci BDE ma
> nastavit u DRIVERY, NATIVE specificke Langdrivery ? (Cestinu 852 u DBASE a
> PARADOX). Zkousel jsem v IS E. nastavit registr
> HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database
> Engine\Settings\DRIVERS\DBASE\INIT LANGDRIVER="DB852C20", ale to asi
> nestaci, BDE si to uklada asi i nekde jinde.
>
> Muzete prosim poradit ?
>
> Petr Bahnik
> Chyba v Async Pro 2.52.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.10.1998 20:32:16
Martin Nedopil wrote:
>
> Pokud tu je nejaky skalni (rozumej donuceny) uzivatel TurboPower AsyncPro,
> dovolil bych si upozornit na malou chybicku, ktera se stava maximalne 1x za
> deset let v situaci, kdy casto prehazujete OnTriggerAvail rutinu a potom
> posilate
> znaky a pak cekate znak (postupne nikoliv asynchronne). Muze se stat, ze pak
> 3 vteriny nedostanete znak, ktery tam evidentne je. Krokovani je na houby,
> protoze tak ty 3 vteriny uleti jak voda a vse se tvari normalne.
> Chyba je (ona to vlastne chyba neni, spise nedostatek) v
> AwUser.Pas na radku 2365
>
> if not thDeleted then
> {$IFDEF WIN32}
> SendMessageTimeout(thWnd, Msg, Trigger, lParam,
> {!!.52}
> SMTO_BLOCK,3000, Res);
> {!!.52}
> {$ELSE}
> SendMessage(thWnd, Msg, Trigger, lParam);
> {$ENDIF}
>
> hodnotu 3000 nahradte 500 a pokud bude vse fungovat muzete ji tam nechat.
> Jinak ji vratte zase zpatky a metodou pokus-omyl zkuste jinou.
Ahoj,
Nejdrive bych zkusil nejnovejsi update, potom k te uprave. Vypada to, ze je to
v casti kde se posilaji zpravy ze kterych se pak vytvareji triggery. Zmenou te
hodnoty dosahnes toho, ze se bude mensi dobu cekat na odpoved na zpravu zasilanou
do jineho threadu. Otazka je, jestli neni chyba nekde jinde (ted nemyslim jen
tvuj kod, ale i AsyncPro). To ze se vyrizeni zpravy zablokuje na tak velkou dobu
je samo o sobe dost podezrele a spise signalizuje nejakou jinou chybu. Zkusil bych
ale jinou vec, misto zmeny te casove hodnoty bych tam pridal do fuFlags jeste
SMTO_ABORTIFHUNG. Pokud chces vice experimentovat, tak muzes jeste kontrolovat
jestli funkce probehla v poradku nebo ne. Kdysi jsem delal nejakou vlastni
komunikaci, kde bylo take treba predavat nejake zpravy z threadu do aplikace s tim,
ze bylo nutne se vyhnout zdrzeni kodu threadu v pripade, ze se vyrizovani zprav z
hlavniho threadu aplikace zdrzelo. Delal jsem si prave takto statistiku kolik zprav
se "zahodi" kdyz dam timeout na pozadovanou mez. Rozdil byl ale ten, ze v mem pripade
nevyrizeni nekterych zprav nebylo na zavadu (vlastne jen obnovovaly indikator prenosu
a stavu zarizeni).
Pokud pouzivas nejake udalosti (triggery) AsyncPro tak je dobre se vyhnout pouzivani
vsech metod typu WaitForString, WaitForMultiString ci dalsich smycek ve kterych
v tu dobu aplikace "visi". Mel jsem s tim kdysi problemy, po pouziti vyse uvedenych
funkci se pak obcas stavalo, ze se nespustil datovy trigger kdyz zrovna mel. Neco
o tom psali i na TP newsech. Jakmile jsem je prestal pouzivat, tak bylo po problemech.
> Tak to je vysledek asi tak dvoudenniho patrani, jinak se citim dobre, jen
> ty hlasy.... ty hlasy....neco jako "Kdy uz ten P.V. pohne s tou
> komponentou"?
Jo, to bych take rad vedel :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************InstallShieldExpress pro D4.0 a langdrivery
[*] Roman Toda <normex(zv)mail.pvt.sk> - 10.10.1998 21:14:14
Petr Bahn�k wrote:
> jak mam IS Express pro D4 4.0 oznamit, ze pri uplne instalaci BDE ma
> nastavit u DRIVERY, NATIVE specificke Langdrivery ? (Cestinu 852 u DBASE a
> PARADOX). Zkousel jsem v IS E. nastavit registr
> HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database
> Engine\Settings\DRIVERS\DBASE\INIT LANGDRIVER="DB852C20", ale to asi
> nestaci, BDE si to uklada asi i nekde jinde.
Ja mam D3 ale asi je to to iste. Ked sa pozries v IS "Group and Files" zistis
ze Ti pridal BDE - CNF a v nej je subor idapi.cnf
Tento otvor v BDE admin, oprav co potrebujes a uloz na povodne miesto ako
idapi.cnf.
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
Problem s TOvcTransfer
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.10.1998 22:58:16
> Pri pouziti TOvcTransfer z Orphea se mi vyskytl problem. Pri pouzit
> nekterych komponent z RX-library se mi jejich property nenabizi k
> transferu. Nesetkal jste se s t�m, pros�m, n�kdo? Lze to nejak resit?
To bude zrejme proto, ze nezna jejich typy a tak nevi, co ma vygenerovat,
u kterych to dela?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
Problem s TOvcTransfer
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.10.1998 06:08:09
Jedna se mi napr. o TCurrencyEdit. Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 10. listopadu 1998 22:58
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Problem s TOvcTransfer
>
> > Pri pouziti TOvcTransfer z Orphea se mi vyskytl problem. Pri pouzit
> > nekterych komponent z RX-library se mi jejich property nenabizi k
> > transferu. Nesetkal jste se s t�m, pros�m, n�kdo? Lze to nejak resit?
>
> To bude zrejme proto, ze nezna jejich typy a tak nevi, co ma vygenerovat,
> u kterych to dela?
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> Autorizovany dealer TurboPower Software... knihovny pro Delphi
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> === mobilni telefon GSM (hotline): 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================
> ICQ: 21215917
Vesela prihoda s CD-ROMkou (off topic)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.10.1998 07:06:44
Dobromil Mal wrote:
> >> > A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
> >> > sam, hec! Tedy - aspon to prodejce tvrdil. :-)
> >>
> >> Hm, a kdyz ho tam das zpet tak uz se nerozbehne. Takove pocitace uz
> >> jsem take videl :-)
> >
> >Muj ano, hec! Po odeslani zpravy a uzavreni vseho jsem to hned
> >vyzkousel. :-)
>
> -- versus --
>
> >No tak se nepodivam, no. Koupil jsem si tak velke disky, ze tam
> >vzdycky jeste nekde musi kousek byt. Stejne je to tezka krava
> >prisunuta prave tim deklem ze strany ke stolu, na ni jeste UPS, a
> >kdo by se s tim kramem tahal, ze?
>
> Tak ted uz tomu nerozumim ... :-)))
>
A potrebujes tomu nutne rozumet? :-)
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
Relativni posunuti vice komponent na formu
[*] rys(zv)zas-me(tec)cz - 11.10.1998 7:22:26
Ahoj,
jestli myslis posun pri navrhu formulare, je treba nejprve ty komponenty
oznacit (bud "zaramovat" nebo drzet Shift a postupne na ne klepnout mysi;
druhym klepnutim se da ta komponenta zase odznacit). Pak na klavesnici
pomoci Ctrl+kurzorove sipky.
Karel Rys
>potrebuji, prosim, trochu poradit.
>Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
>Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne ruzne LEFT a
>TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
>vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
>trivialita, ale moc by mi to pomohlo.Relativni posunuti vice komponent na formu
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 11.10.1998 07:43:21
Micrel wrote:
>
> Ahoj,
>
> potrebuji, prosim, trochu poradit.
> Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
> Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne ruzne LEFT a
> TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
> vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
> trivialita, ale moc by mi to pomohlo.
>
> Diky
>
> Jaro B.
Oznacis si vsechny komponenty pomoci shift a pak drzis ctrl a sipkami
si to vsechno posunes o stejny kus na formulari.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
StdErr
[*] Ales Zeleny <zelenya-l(zv)mlp(tec)cz> - 11.10.1998 07:44:25
DDV,
nevi nekdo jak zapisovat na standadni chybovy vystup v konzolovce?
Diky a.+------------------------+ +---------------------------+
|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.Relativni posunuti vice komponent na formu
[*] Lubo Fule <fule(zv)sct.sk> - 11.10.1998 07:50:18
Skutocne nechapem, v com je problem:
KomponentaXY.Left := KomponentaXY.Left-3;
KomponentaXY.Top := KomponentaXY.Top-3;
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Micrel
> Sent: Tuesday, November 10, 1998 6:56 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Relativni posunuti vice komponent na formu
>
>
> Ahoj,
>
> potrebuji, prosim, trochu poradit.
> Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
> Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne
> ruzne LEFT a
> TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
> vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
> trivialita, ale moc by mi to pomohlo.
>
> Diky
>
> Jaro B.
>
>
DB Cursor
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 11.10.1998 07:56:08
Som zastancon relacnych databaz - ovsem robim program
DB view ktory a vediet pracovat s lubovolnou databazou , aj dbf .
Table komponenta bez problemu vie modifikovat zaznam na ktorom stojim.
Query iba vtedy ak mam nieco jednoznacny vo vete - ale predsa aj Query
by mohol mat vlastnost pracovat s vetou kde je zrovna databazovy kurzor.
Cudujem sa ze to nevie.
Je mozne ziskat nejako implicitny databazovy kurzor ?
TUNGLI Jan
tungli(zv)pvt.sk
Relativni posunuti vice komponent na formu
[*] Lubo Fule <fule(zv)sct.sk> - 11.10.1998 08:07:08
A este, kazdy objekt na ktorom mozu byt nejake komponenty ma vlastnost
Controls a ControlsCount teda jednoduchy cyklus:
for i:=0 to ControlsCount-1 do with Controls[i] do begin
Left:=Left-3;
Top:=Top-3;
end;
posunie vsetky vizualne komponenty nachadzajuce sa na danom objekte. Ak vsak
nechces posuvat vsetky, tak asi najjednoduchsie je nastavit tym, ktore chces
posuvat Tag napr. na 1 a potom by to vyzeralo takto:
for i:=0 to ControlsCount-1 do with Controls[i] do if Tag=1 then begin
Left:=Left-3;
Top:=Top-3;
end;
Este upozornenie, v Controls su len objekty, ktorych Parent je dany
nadradeny objekt, teda napr. ak su komponenty ktore chces posuvat na nejakom
paneli, tak musis pouzit Controls a ControlsCount pre dany panel. Ak chces
posunut komponety ktore vlastni dany formular bez ohladu na to, kto je ich
Parent, tak musis pouzit Components a ComponentsCount, pricom ale treba
robit type casting a kontrolovat ci dany komponent je potomkom TControl:
for i:=0 to ComponentsCount-1 do if Components[i] is TControl then with
(Components[i] as TControl) do begin
Left:=Left-3;
Top:=Top-3;
end;
resp.:
for i:=0 to ComponentsCount-1 do if Components[i] is TControl then with
(Components[i] as TControl) do if Tag=1 then begin
Left:=Left-3;
Top:=Top-3;
end;
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Micrel
> Sent: Tuesday, November 10, 1998 6:56 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Relativni posunuti vice komponent na formu
>
>
> Ahoj,
>
> potrebuji, prosim, trochu poradit.
> Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
> Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne
> ruzne LEFT a
> TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
> vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
> trivialita, ale moc by mi to pomohlo.
>
> Diky
>
> Jaro B.
>
>
Zmena fontu titulku formu
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.10.1998 08:09:09
Neni......samozrejme.......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Tomas Holan [SMTP:HOLAN(zv)ksvi.mff.cuni(tec)cz]
> Odesl�no: 10. listopadu 1998 16:46
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Zmena fontu titulku formu
>
> > Jestli se nepletu, tak jedine ownerdraw by pomohlo. Je to non-client
> > oblast okna..........
>
> No, neni tezke kreslit primo na okno...
>
> Can := TCanvas.Create;
> Can.Handle := GetWindowDC( Handle );
>
> Can.Font... := ...
> Can.TextOut( .... - pisu na okno (ne na Canvas okna)
>
> Tom
>
> Zjisteni casu na servru
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.10.1998 08:10:28
Coz takhle zkusit DAYTIME od TCP/IP?
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: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
> Odesl�no: 10. listopadu 1998 18:43
> Komu: Delphi-L(zv)Fwd. Cz
> P�edm�t: Zjisteni casu na servru
>
> Nevite nekdo jak zjistit cas na servru ? Myslim tim standartnimi
> sluzbami
> windows. Potrebuji napsat program ktery zjistuje cas z NT servru. (Tak
> jak
> to dela "net time"). Co sem zkousel monitorovat sit tak to vypada ze
> "net
> time" to dela pres nake volani RPC, ale do toho bohuzel nevidim. Muze
> nekdo
> poradit?
> (Nechci na servru poustet zadny time-server atd ....)
>
> Diky
> McLEI
OffTopic VC++
[*] V�t�zslav Gazda������u��n�?��? - 11.10.1998 08:20:15
Nevi nekdo jestli existuje take nejaka ceska konference o VC++ ?
Diky Vita
Chyba v Async Pro 2.52.
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 11.10.1998 08:31:41
>Poslal jsi tento popis take TurboPowerum?
Ano. Jeste si v tomto smyslu mailujeme. Ja porad nejak
nemuzu stravit, ze nelze udelat vstupni buffer vetsi nez 8kb (ve Win32).
>Zkousel jsi novy update?
Mam 2.54, psali, ze neco podniknou ve verzi 2.55.
Martin
ComboBox
[*] V�t�zslav Gazda������u��n�?��? - 11.10.1998 08:50:43
Zajimalo by mne jak se da vytvorit ComboBox, do ktereho kdyz se pise tak
automaticky doplnuje text. Neco jako ComboBox v IE pro zadani adresy.
Existuje pro toto nejaka podpora v API nebo si to musim udelat cele sam ?
Nevi nekdo o nejakem prikladu ?
Diky Vita
Zjisteni casu na servru
[*] kelleon(zv)nnsk.sk - 11.10.1998 08:53:42
> -----Original Message-----
> From: Michal Leinweber [mailto:M.Leinweber(zv)sh.cvut(tec)cz]
> Nevite nekdo jak zjistit cas na servru ? Myslim tim
> standartnimi sluzbami
> windows. Potrebuji napsat program ktery zjistuje cas z NT
> servru. (Tak jak
> to dela "net time").
unit NetApi;
interface
uses
SysUtils;
type
TTODInfo = record
ElapsedTime : Integer; {number of seconds since 00:00:00 January 1,
1970}
Milliseconds : Integer; {number of milliseconds since last system reset}
Hours : Integer; {current hour (0-23)}
Minutes : Integer; {current minute (0-59)}
Seconds : Integer; {current second (0-59)}
Hunds : Integer; {current hundredth of a second (0-99)}
TimeZone : Integer; {time against GMT in minutes}
{west of Greenwich gives positive, east negative values}
{value of -1 means undefined time zone}
Interval : Integer; {clock tick interval in ten-thousandth of a second
(0.0001 s)}
Day : Integer; {day of the month (1-31)}
Month : Integer; {month of the year (1-12)}
Year : Integer; {year}
Weekday : Integer; {day of the week (0-6) 0 = Sunday, 1 = Monday etc.}
end;
PTODInfo = ^TTODInfo;
const
netapi32 = 'netapi32.dll';
function NetApiBufferFree(Buffer : Pointer) : Integer; stdcall;
function NetRemoteTOD(UNCServerName : PWideChar; Info : Pointer) : Integer;
stdcall;
function ServerTime(const UNCServer : String; var Stamp : TDateTime) :
Integer;
implementation
function NetApiBufferFree; external netapi32 name 'NetApiBufferFree';
function NetRemoteTOD; external netapi32 name 'NetRemoteTOD';
function ServerTime(const UNCServer : String; var Stamp : TDateTime) :
Integer;
var
ServerName : PWideChar;
tod : PTODInfo;
Year, Month, Day, Hour, Min, Sec, MSec : Word;
begin
GetMem(ServerName, (Length(UNCServer) + 1) * SizeOf(WideChar));
try
ServerName := StringToWideChar(UNCServer, ServerName, Length(UNCServer)
+ 1);
{if ServerName is an empty string local machine tod is returned}
Result := NetRemoteTOD(ServerName, (zv)tod);
if Result = 0 then
begin
try
Year := tod^.Year;
Month := tod^.Month;
Day := tod^.Day;
Hour := tod^.Hours;
Min := tod^.Minutes;
Sec := tod^.Seconds;
MSec := tod^.Hunds * 10;
if tod^.TimeZone = -1 then {undefined timezone}
Stamp := EncodeDate(Year, Month, Day) +
EncodeTime(Hour, Min, Sec, MSec)
else
Stamp := EncodeDate(Year, Month, Day) +
EncodeTime(Hour, Min, Sec, MSec) - (tod^.TimeZone / 1440);
finally
NetApiBufferFree(tod);
end;
end;
finally
FreeMem(ServerName);
end;
end;
end.
Ondrej Kelle
kelleon(zv)nnsk.sk
Relativni posunuti vice komponent na formu
[*] Pavel Kral <kral(zv)afx(tec)cz> - 11.10.1998 09:04:46
Ahoj,
co takhle zmenit si grid size na 3 pixely?
(Menu Tools - Environment Options -Preferences)
Neni to idealni, ale schudne.
Pavel
-----Original Message-----
>Ahoj,
>
>potrebuji, prosim, trochu poradit.
>Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
>Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne ruzne LEFT a
>TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
>vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
>trivialita, ale moc by mi to pomohlo.
>
>Diky
>
>Jaro B.
>
>
Relativni posunuti vice komponent na formu
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 11.10.1998 09:04:46
> potrebuji, prosim, trochu poradit.
> Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
> Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne ruzne LEFT
a
> TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
> vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
> trivialita, ale moc by mi to pomohlo.
Nazdar,
kedy chces posuvat tie komponenty? Pri navrhu, alebo pocas behu programu?
Ak pri navrhu, tak je mozne oznacit viac komponent(stlaceny SHIFT)
a potom ich naraz posunut(CTRL+sipka(+SHIFT)). Nefunguje to, ak su
komponenty
rozmiestnene na roznych paneloch. Ak nie je pod komponentami panel(velmi
zriedkave), tak sa daju oznacit myskou(natiahnutim obdlznika(stlacene lave
tlacitko)).
Ak ich chces posunut za behu, tak ... vcera(?) na tuto temu bezala
diskusia. Hladaj v archive na www.delphi(tec)cz heslo "viac komponent".
Marek Repisky
mrepisky_zl(zv)zsnp.sk
instalace BDE s InstallShieldem
[*] Pavel Kral <kral(zv)afx(tec)cz> - 11.10.1998 09:07:51
Ahoj,
jak je to s korektnosti instalace BDE s IS Express? Podle
Deploy.txt jsem zil v domneni, ze IS Express je zarukou
korektni instalace, ale jeden zakaznik mi tvrdil, ze mu
muj program zrusil jeho puvodni instalaci BDE a po odinsta-
lovani dokonce vsechno odinstaloval. Jak je to mozne?
Jake mate zkusenosti?
Pouzivam D3.
Pavel
TMaskEdit II
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 11.10.1998 09:25:02
Zdravim all!
Nevite nahodou nekdo jak obejit v TMaskEdit hlasku o vadnem formatu (napr.
vyplneny jen 3 znaky misto 4) a nahradit vlastni, nemohu nejak zjistit kdy
se vlastne kontroluje. Dik vsem za namety.
M&B
TZipMaster
[*] Vojtech Albrecht <supervisor(zv)unicontrols(tec)cz> - 11.10.1998 09:27:21
Ahoj
Takze pokud jde o prvni cast otazky
ZipMaster chodi vcelku dobre, mam napsanou aplikaci a uzivatele jsou
spokojeni
Kompaktabilita se ZIP taky funguje je tzn. ze soubor bez problemu otevru i v NC
a muzu vesele kopirovat soubory
Pokud se jedna o SFX tak to jsem nepouzil takze nevim
Vojtech Albrecht
supervisor(zv)unicontrols(tec)cz
----------
Od: RADIK(zv)p15.monet(tec)cz[SMTP:RADIK(zv)p15.monet(tec)cz]
Odesl�no: 10. listopadu 1998 14:44
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: TZipMaster
Ahoj
Takze pokud jde o prvni cast otazky
ZipMaster chodi vcelku dobre, mam napsanou aplikaci a uzivatele jsou
spokojeni
Kompaktabilita se ZIP taky funguje je tzn. ze soubor bez problemu otevru i v NC
a muzu vesele kopirovat soubory
Pokud se jedna o SFX tak to jsem nepouzil takze nevim
Vojtech Albrecht
supervisor(zv)unicontrols(tec)cz
Mate nekdo prakticke zkusenosti s komponentou TZipMaster? Predevsim mi
jde o pripadnou chybovost, kompatibilitu s pkzipem a funkcnost SFX.
Predem dekuji.
Ales
Relativni posunuti vice komponent na formu
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 11.10.1998 09:30:22
>Ak nie je pod komponentami panel(velmi zriedkave), tak sa daju >oznacit
myskou(natiahnutim obdlznika(stlacene lave tlacitko)).
>
>Marek Repisky
>
Vice komponent rozmistene na jine komponente (viz. treba na panelu) se da
oznacit tazenim mysi se stisknutym levym tlacitkem a klavesou CTRL (ovsem
jen v ramci jednoho panelu, ...)
Pavel CABAK
Relativni posunuti vice komponent na formu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.10.1998 09:39:27
Ahoj,
spatne jsem se vyjadril, jednalo se mi o posun pomoci CTRL+sipky pri
navrhu formu. Moc Vam vsem dekuji, ani nevite, co jste mi usetrili prace.
Diky. Jaro B.Problem s TOvcTransfer
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.10.1998 09:54:08
> Jedna se mi napr. o TCurrencyEdit. Jaro B.
Dival jsem se na to, podivej do jednotky OvcXfer.pas (Orpheus),
je tam napsano:
{***************************************************************
Supported types Data to transfer
----------------------------------------------------------------
TLabel ShortString or char array
TPanel ShortString or char array
TEdit ShortString or char array
TMemo TStrings
TCheckBox Boolean
TRadioButton Boolean
TListBox Integer, TStrings
TComboBox Integer, string, TStrings
TOvcRotatedLabel ShortString or char array
TOvcBaseEntryField variable (size obtained from field)
*****************************************************************}
No a TCurrencyEdit je potomek TCustomNumEdit, ten je potomek
TCustomComboEdit a ten potomek TCustomMaskEdit (to uz je VCL Delphi).
A prave ten TCustomMaskEdit neni podporovan, jak vidis vyse.
Pokud bys chtel tu podporu dodelat, pak musis zmenit vlastne
temer vsechny metody TOvcTransfer:
TOvcTransfer.TransferFromForm
TOvcTransfer.TransferFromFormZ
TOvcTransfer.TransferToForm
TOvcTransfer.TransferToFormZ
TOvcTransfer.xfrFillTransferList
TOvcTransfer.xfrGetComponentDataSize
Neni to ani moc slozite...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
Velka a mala pismena v TQuery
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 11.10.1998 10:16:32
Dobry den,
chtel bych se zeptat jak resite pri Query velka a mala pismena. Treba
chci najit firmu Intel, ale ta muze byt zapsana takto"Intel" nebo i
takto "INTEL". Databaze jsou v paradoxovskych tabulkach.
Za kazdou odpoved predem diky
Petr Riedel
mailto:petr.riedel(zv)ipbpojistovna(tec)cz
ComboBox
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 11.10.1998 10:23:01
Mam taku komponentu odvodenu od ComboBox - ked chcete posem.
TUNGLI Jan
tungli(zv)pvt.sk
----------
> Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
> Pre: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> Predmet: ComboBox
> D�tum: 11. november 1998 8:50
>
> Zajimalo by mne jak se da vytvorit ComboBox, do ktereho kdyz se pise tak
> automaticky doplnuje text. Neco jako ComboBox v IE pro zadani adresy.
> Existuje pro toto nejaka podpora v API nebo si to musim udelat cele sam ?
> Nevi nekdo o nejakem prikladu ?
>
> Diky Vita
> Velka a mala pismena v TQuery
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 11.10.1998 10:41:47
Prevest pri dotazu obe strany ve WHERE na velka pismena. Napr. takto (pouze
fragment kodu)
SQL.Add('select * from adresy');
SQL.Add('where UPPER(organizace) like ''%' + AnsiUpperCase(SeekLine.Text) +
'%''');
Ale jestli to bude fungovat v Pradoxu to teda vazne nevim.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Riedel Petr [SMTP:Petr.Riedel(zv)ipbpojistovna(tec)cz]
> Odesl�no: 11. listopadu 1998 10:17
> Komu: DELPHI Distribution List (el. adresa 2)
> P�edm�t: Velka a mala pismena v TQuery
>
> Dobry den,
>
> chtel bych se zeptat jak resite pri Query velka a mala pismena. Treba
> chci najit firmu Intel, ale ta muze byt zapsana takto"Intel" nebo i
> takto "INTEL". Databaze jsou v paradoxovskych tabulkach.
>
> Za kazdou odpoved predem diky
>
> Petr Riedel
> mailto:petr.riedel(zv)ipbpojistovna(tec)cz
ComboBox
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 11.10.1998 10:46:23
Hotove komponenty jsou na DSP nebo TSP(Torry super page). Ty to delaji
tak ze si vlozene polozky zapisou do registru nebo ini souboru. Jejich
presne nazvy ale z hlavy nevim.
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 11. listopadu 1998 8:51
> Komu: DELPHI Distribution List
> P�edm�t: ComboBox
>
> Zajimalo by mne jak se da vytvorit ComboBox, do ktereho kdyz se pise
> tak
> automaticky doplnuje text. Neco jako ComboBox v IE pro zadani adresy.
> Existuje pro toto nejaka podpora v API nebo si to musim udelat cele
> sam ?
> Nevi nekdo o nejakem prikladu ?
>
> Diky Vita
PRECO TO NEJDE
[*] Ing. J�n Kuch�r�����!j��G - 11.10.1998 11:21:52
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledovny problem. V D3 som napisal jednoduchy program a pomocou
IS Express som vytvoril instalacky, otestoval som na svojom stroji a fungovalo vsetko tak ako malo, ale ked som to chcel nainstalovat na iny stroj, tak instalacia prebehla v poriadku, ale samotny program sa nespustil, preco ?
Len pre uplnost dodavam ze moj stroj je Pentium 233 MMX - Intel a tie dalsie dotycne boli Pentium IBM a 486 Intel.
Beriem vsetky podnety.
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 Hromadna zmena vlastnosti - reseni
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 11.10.1998 11:32:10
----------
>Odes�latel: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
>
>mam nasledujici problem: Potrebuji hromadne v nekolika formularich >zmenit
>font u nekterych komponent. V archvu konference jsem nasel nekolik
>reseni, ale ty se daji pouzit pouze na nektere vlastnosti,
>jako je treba 'Enabled'.
>Vlastnost 'Font' je v TControl protected.
>Jak se to da jednoduse udelat ???
-----------
Dekuji vsem za rady, hlavne Petrovi Vonesovi.
Bohuzel, ani jeho :-)))) varianta nefungovala.
Po nekolika experimentech jsem dospel k nasledujicimu reseni:
Neda se pouzit TControl nebo TControlHack=class(TControl) a
TControlHack(Controls[I]).Font:=xxx, protoze nenastavi DB komponenty
ani komponenty umistene treba v TGroupBoxu.
Neda se pouzit TComponent a TComponent(Components[I]).Font:=xxx,
protoze nema vlastnost font.
Musi se pouzit pretypovani (Sender as TNeco).font:=xxx a holt
vypsat vsechny typy, ktere chci zmenit.
Priklad:
--------
fontData a fontPopis jsou globalni promene typu TFont
procedure nastavFontyFormulare(forma: TForm);
var
i: cardinal;
begin
with Forma do begin
for I := 0 to ComponentCount-1 do begin
if Components[i] is TButton then
(Components[i] as TButton).font:=fontPopis;
if Components[i] is TRadioButton then
(Components[i] as TRadioButton).font:=fontPopis;
if Components[i] is TCheckBox then
(Components[i] as TCheckBox).font:=fontPopis;
if Components[i] is TDBCheckBox then
(Components[i] as TDBCheckBox).font:=fontPopis;
if Components[i] is TBitBtn then
(Components[i] as TBitBtn).font:=fontPopis;
if Components[i] is TLabel then
(Components[i] as TLabel).font:=fontPopis;
if Components[i] is TGroupBox then
(Components[i] as TGroupBox).font:=fontPopis;
if Components[i] is TEdit then
(Components[i] as TEdit).font:=fontData;
if Components[i] is TDBEdit then
(Components[i] as TDBEdit).font:=fontData;
if Components[i] is TDBGrid then
(Components[i] as TDBGrid).font:=fontData;
if Components[i] is TMemo then
(Components[i] as TMemo).font:=fontData;
if Components[i] is TDBMemo then
(Components[i] as TDBMemo).font:=fontData;
if Components[i] is TComboBox then
(Components[i] as TComboBox).font:=fontData;
if Components[i] is TDBComboBox then
(Components[i] as TDBComboBox).font:=fontData;
if Components[i] is TListBox then
(Components[i] as TListBox).font:=fontData;
if Components[i] is TDBListBox then
(Components[i] as TDBListBox).font:=fontData;
if Components[i] is TDBLookupCombo then
(Components[i] as TDBLookupCombo).font:=fontData;
end;
end;
end;
Snad to jeste nekomu pomuze.
S pozdravem Zdenek
*********** Podporuji bojkot Telecomu http://www.bojkot(tec)cz/ ************
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
ComboBox (2)
[*] V�t�zslav Gazda������u��n�?��? - 11.10.1998 11:38:54
>Hotove komponenty jsou na DSP nebo TSP(Torry super page). Ty
>to delaji tak ze si vlozene polozky zapisou do registru nebo ini
>souboru. Jejich presne nazvy ale z hlavy nevim.
Nejde mi tak ani o to kde ty retezce budu ukladat, ale o to jak
implementovat to automatick� doplnovani pri psani. Pri vlozeni znaku
(WM_CHAR) by to melo prohledat polozky a doplnit zbyvajici text. Ten
doplneny text bude potom vyselektovany, takze se pri dalsim znaku vymaze a
prohledavani zacne znovu. Melo by to asi fungovat jako samostatny thread,
aby pri prohledavani mohl uzivatel dale psat. Protoze takto funguje spousta
aplikaci, zajimalo by mne zda neexistuje podpora v API. Treba nejaky
nedokumentovany ExStyle pro tridu COMBOBOX. Zkusim se podivat po nejakych
komponentach, ale problem je v tom, ze to potrebuji nejen pro Delphi, ale i
pro C++, takze bych radsi uvital nejakou tu podporu v API.
Vita
Vesela prihoda s CD-ROMkou (off topic)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.10.1998 12:08:42
Petr Vones wrote:
> > > > A ja kdyz sundam dekl z meho toweru, tak se mi zastavi pocitac
> > > > sam, hec! Tedy - aspon to prodejce tvrdil. :-)
> > >
> > > Hm, a kdyz ho tam das zpet tak uz se nerozbehne. Takove pocitace uz
> > > jsem take videl :-)
> >
> > Muj ano, hec! Po odeslani zpravy a uzavreni vseho jsem to hned
> > vyzkousel. :-)
>
> Hm, a dalsi zpravy uz jsi urcite musel napsat z Internet-kavarny, aby to
> nevypadalo trapne :-)
>
A vubec, co je ti po tom?
:-)
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
Relativni posunuti vice komponent na formu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.10.1998 12:08:42
Micrel wrote:
> potrebuji, prosim, trochu poradit.
> Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
> Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne ruzne LEFT a
> TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
> vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
> trivialita, ale moc by mi to pomohlo.
Uchopit do bloku, a posunovat Shift+sipky (nebo Ctrl+ ? ted z hlavy
nevim). Nebo tam mas align.
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
Kalendar
[*] Daniel SICHTA <Sichta(zv)asset.sk> - 11.10.1998 13:47:25
Nazdarek vsetci !!!
Problem :
Ako najlepsie (najefektivnejsie) sa da zistit pocet pracovnych dni v
zadanom mesiaci (combobox D3) alebo za vsetky mesiace v zadanom roku !!!
Vopred dakujem !!
Ing. Daniel �ICHTA
* sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> Editace SQL databaze
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 11.10.1998 13:53:53
Ahojte,
mam na vas dotaz ohledne databaze. Jakym zpusobem resite editaci SQL
databaze v dbgridu, jestlize je primarni index tabulky generovan triggerem?
Jedna se o to, ze trigger vygeneruje spravne cislo, ale BDE se ho nedozvi.
Napada me, ze by to slo resit takto:
Zapisu novy zaznam, pak zjistim aktualni hodnotu sekvence (toto poradi je na
Oracle nutne) a pak zaznam zedituju s touto hodnotou. Zda se mi to ale hodne
neciste.
Urcite jste se s tim uz nekdo setkal, tak se, prosim, o sve zkusenosti
podelte.
Konkretne me zajima reseni na Oracle, ale myslim, ze na vsech SQL databazich
se to resi obdobne.
Ing. Pavel CABAK
cabak(zv)zl.inext(tec)cz
Printer Canvas
[*] Tomas Baloun <baloun(zv)ikos(tec)cz> - 11.10.1998 14:00:11
Mam takovy problem:
Mam nekolik grafickych objektu (text, linka, obdelnik, carovy kod, obrazek
BMP),
ktere tisknu (opakovane za sebou) na Canvas tiskarny. Pokud mezi objekty
neni BMP, pak se vytisknou vsechny ve vsech opakovanich, pokud mezi nimi BMP
je, pak se BMP vytiskne jen nekdy, ale "ztraceji" se
i jine objekty.
Aplikace je v D1, a tiskarny HP. Poradi nekdo ?
Diky
Tomas Baloun
http://www.ikos(tec)cz
E-mail: baloun(zv)ikos(tec)cz
------------------------------------
Ulozeni property THeader
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.10.1998 14:02:35
Podivej se po AOB od RSD, tam maji komponentu, ktere (dle jejich
reklamy) umi ulozit JAKEKOLIV PROPERTY. Je to free, ale bez zdrojaku.
Ten je za $$$$.
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: Micrel [SMTP:micrel(zv)micrel(tec)cz]
> Odesl�no: 10. listopadu 1998 19:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ulozeni property THeader
>
> Ahoj,
>
> Prosim o radu. Potrebuji ulozit u komponentu THeader i sirku
> jednotlivych
> sekci ulozenou v runtime property SectionWidth[I]. Pouzil jsem
> TFormStorage
> z RX library, s jejiz pomoci jsem ulozil vetsinu potrebnych veci ale
> SectionWidth normalne nejde. Je mozne zabezpecit ulozeni do INI
> souboru i
> jinak - ale tak, aby se pri uzavreni formulare samo do ini souboru
> ulozilo
> a pri vyrvoreni formulare se z neho restaurovalo ?
>
> Diky za kazdou radu
>
> Jaro B.PRECO TO NEJDE
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 11.10.1998 14:53:23
Dotaz formulovany jako proc mi muj program nechodi na jinem pocitaci ve
mne vyvolava usmev nebot to muze byt z tisicu ruznych duvodu. Pokud svuj
problem vice nespecifikujes tak ti tezko nekdo odpovi. Presto se pokusim
se formulovat nektere upresnujici dotazy:
1. PRVNI A NEJDULEZITEJSI UPRESNENI JE CO PROGRAM DELA PO SPUSTENI tedy
co mame rozumet pod vagnim pojmem "se nespusti" - co presne po spusteni
dela? ( chybova hlaska?, naruseni systemu?, jiny problem? )
2. Funguje na jinem pocitaci pokud ho neinstalujes ale jen prekopirujes?
3. Nepouziva program nejakou DLL, OCX , databazi nebo jine soubory,
ktere na tvem pocitaci jsou ale do instalace jsi je nedal?
4.Neni zavisly na urcitem hardwaru?
5.Dal jsi do instalace vsechny spravne adresare?
6.Nemas v programu natvrdo nejaky adresar, ktery na tvem pocitaci je a
na jinem ne?
7. atd. atd.
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: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 11. November 1998 11:22
> Komu: Delphi
> P�edm�t: PRECO TO NEJDE
>
> Caute
> �
> Mam nasledovny problem. V D3 som napisal jednoduchy program a pomocou
> IS Express som vytvoril instalacky, otestoval som na svojom stroji a
> fungovalo vsetko tak ako malo, ale ked som to chcel nainstalovat na
> iny stroj, tak instalacia prebehla v poriadku, ale samotny program sa
> nespustil, preco ?
> Len pre uplnost dodavam ze moj stroj je Pentium 233 MMX - Intel a tie
> dalsie dotycne boli Pentium IBM a 486 Intel.
> Beriem vsetky podnety.
> ����������������������������������������������������������������������
> ����������������� 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 <mailto:kuchar(zv)tuke.sk> Printer Canvas
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 11.10.1998 15:02:48
Myslim ze kdyz jsem kdysi davno delal s Delphi 1 tak jsem narazil na
podobny problem a mam dojem ze to bylo nedostakem pameti pro objekty.
Canvas tiskarny je dost velky a obecne DC ve windows je velky zrout
pameti a kdyz si uvedomis jak musi byt DC velky aby pri beznem DPI
tiskarny se obrazek vytiskl dostatecne velky tak se neni co divit.
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: Tomas Baloun [SMTP:baloun(zv)ikos(tec)cz]
> Odesl�no: 11. November 1998 14:00
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Printer Canvas
>
> Mam takovy problem:
>
> Mam nekolik grafickych objektu (text, linka, obdelnik, carovy kod,
> obrazek
> BMP),
> ktere tisknu (opakovane za sebou) na Canvas tiskarny. Pokud mezi
> objekty
> neni BMP, pak se vytisknou vsechny ve vsech opakovanich, pokud mezi
> nimi BMP
> je, pak se BMP vytiskne jen nekdy, ale "ztraceji" se
> i jine objekty.
>
> Aplikace je v D1, a tiskarny HP. Poradi nekdo ?
>
>
> Diky
>
> Tomas Baloun
>
> http://www.ikos(tec)cz
> E-mail: baloun(zv)ikos(tec)cz
> ------------------------------------
> TZipMaster
[*] RADIK(zv)p15.monet(tec)cz - 11.10.1998 15:06:00
Prave na DSP jsem to nasel. A jinak je homepage uvedena v odkazech na
www.delphi(tec)cz (zcela otevrena reklama) jako Eric Engler's Delphi Mini
Page....
Ales
----------
Od: Karel_Babka(zv)eurotel(tec)cz
Komu: radik(zv)p15.monet(tec)cz
P�edm�t: Re: TZipMaster
Datum: 11. listopad 1998 13:23
Mate nekdo prakticke zkusenosti s komponentou TZipMaster? Predevsim mi
jde o pripadnou chybovost, kompatibilitu s pkzipem a funkcnost SFX.
Predem dekuji.
Ales
Ahoj,
Chtel jsem se zeptat, kde se da najit tahle komponenta, hledal jsem neco
podobneho, co ma v sobe nejakou klasickou kompresi, ale ani na DSP nic
neni
...
Diky
Karel
Relativni posunuti vice komponent na formu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 11.10.1998 15:20:17
Urcite to pujde i jinak, ale muzes si pri
create toho formu napsat
Delta:=0;
Button2.Left:=150+Delta;
Edit1.Left:=50+Delta;
Label1.Left:=100+Delta;
A potom zmenou promenne Delta by se Ti to melo posunout.
Zrejme to pujde i pres FindComponent
----------
Od: Micrel[SMTP:micrel(zv)micrel(tec)cz]
Odesl�no: 10. listopadu 1998 18:56
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Relativni posunuti vice komponent na formu
Ahoj,
potrebuji, prosim, trochu poradit.
Musim vetsi mnozstvi komponent posunout napr o 3 body vlevo ci nahoru.
Komponenty na formu nejsou v rade, ale ruzne pohazene (obecne ruzne LEFT a
TOP). Lze to nejak resit? S timto bojuji tedka denne a musim to delat
vsechno po jedne komponente coz se mi zda dost pracne. Mozna je to
trivialita, ale moc by mi to pomohlo.
Diky
Jaro B.Kalendar
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.10.1998 15:29:14
Kdyz si uvedomis, ze toto podleha zmenam vlady a jeste je to v kazdem
state jinak......tak nezbyva, nez to nekam rucne zapsat, leda by to uz
mel nekdo hotove.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Daniel SICHTA [SMTP:Sichta(zv)asset.sk]
> Odesl�no: 11. listopadu 1998 13:47
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Kalendar
>
> Nazdarek vsetci !!!
>
> Problem :
> Ako najlepsie (najefektivnejsie) sa da zistit pocet pracovnych dni v
> zadanom mesiaci (combobox D3) alebo za vsetky mesiace v zadanom roku
> !!!
> Vopred dakujem !!
>
> Ing. Daniel �ICHTA
> * sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> ComboBox (2)
[*] Tool Tim <tool_tim(zv)tyhan(tec)cz> - 11.10.1998 15:39:20
To jsem delal, teda ne primo pro ComboBox, ale neni to zas tak slozity,
myslim, uz je to dlouho, ale jestli chces, mrknu se ti po tom.
Tim
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda <softda(zv)mbox.vol(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 11. listopadu 1998 13:22
P�edm�t: ComboBox (2)>>Hotove komponenty jsou na DSP nebo TSP(Torry super page). Ty
>>to delaji tak ze si vlozene polozky zapisou do registru nebo ini
>>souboru. Jejich presne nazvy ale z hlavy nevim.
>
>Nejde mi tak ani o to kde ty retezce budu ukladat, ale o to jak
>implementovat to automatick� doplnovani pri psani. Pri vlozeni znaku
>(WM_CHAR) by to melo prohledat polozky a doplnit zbyvajici text. Ten
>doplneny text bude potom vyselektovany, takze se pri dalsim znaku vymaze a
>prohledavani zacne znovu. Melo by to asi fungovat jako samostatny thread,
>aby pri prohledavani mohl uzivatel dale psat. Protoze takto funguje spousta
>aplikaci, zajimalo by mne zda neexistuje podpora v API. Treba nejaky
>nedokumentovany ExStyle pro tridu COMBOBOX. Zkusim se podivat po nejakych
>komponentach, ale problem je v tom, ze to potrebuji nejen pro Delphi, ale i
>pro C++, takze bych radsi uvital nejakou tu podporu v API.
>
>Vita
DB Cursor
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 11.10.1998 15:39:07
>Som zastancon relacnych databaz - ovsem robim program
>DB view ktory a vediet pracovat s lubovolnou databazou , aj dbf .
>Table komponenta bez problemu vie modifikovat zaznam na ktorom stojim.
>Query iba vtedy ak mam nieco jednoznacny vo vete - ale predsa aj Query
>by mohol mat vlastnost pracovat s vetou kde je zrovna databazovy kurzor.
>Cudujem sa ze to nevie.
Ale vie, co take ako RequestLive ? :-)
Velka a mala pismena v TQuery
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 11.10.1998 15:42:30
>chtel bych se zeptat jak resite pri Query velka a mala pismena. Treba
>chci najit firmu Intel, ale ta muze byt zapsana takto"Intel" nebo i
>takto "INTEL". Databaze jsou v paradoxovskych tabulkach.
select * from T_Tap where UPPER(Col)="INTEL"
D.Kalendar
[*] Daniel SICHTA <Sichta(zv)asset.sk> - 11.10.1998 16:07:09
Da sa teda zistit pocet vsetkych dni (pracovne + sviatky) okren sobot a
nediel v danom mesiaci alebo za cely rok zo systemu (W98) alebo treba na
to �nieco� urobit v D3?
Ing. Daniel �ICHTA
* sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> -----Original Message-----
From: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
Sent: 11. november 1998 15:29
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Kalendar
Kdyz si uvedomis, ze toto podleha zmenam vlady a jeste je to v
kazdem
state jinak......tak nezbyva, nez to nekam rucne zapsat, leda by
to uz
mel nekdo hotove. Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Daniel SICHTA [SMTP:Sichta(zv)asset.sk]
> Odesl�no: 11. listopadu 1998 13:47
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Kalendar
>
> Nazdarek vsetci !!!
>
> Problem :
> Ako najlepsie (najefektivnejsie) sa da zistit pocet pracovnych
dni v
> zadanom mesiaci (combobox D3) alebo za vsetky mesiace v
zadanom roku
> !!!
> Vopred dakujem !!
>
> Ing. Daniel �ICHTA
> * sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> Printer Canvas
[*] Tomas Baloun <baloun(zv)ikos(tec)cz> - 11.10.1998 16:12:56
Dobra, asi to bude tou pameti, ale tento problem se projevuje i v pripade,
ze tisknu pouze 2 sady objektu,
pricemz kazda sada obsahuje jen 1 BMP (monochrom, fyzicka velikost souboru
cca 10 kB, StretchDraw na cca 15 x 15 mm). Zatimco, kdyz potisknu celou
stranku sadami, ktere neobsahuji BMP, je vse OK.
Diky
Tomas Baloun
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: baloun(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. listopadu 1998 14:38
P�edm�t: RE: Printer Canvas
Myslim ze kdyz jsem kdysi davno delal s Delphi 1 tak jsem narazil na
podobny problem a mam dojem ze to bylo nedostakem pameti pro objekty.
Canvas tiskarny je dost velky a obecne DC ve windows je velky zrout
pameti a kdyz si uvedomis jak musi byt DC velky aby pri beznem DPI
tiskarny se obrazek vytiskl dostatecne velky tak se neni co divit.
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: Tomas Baloun [SMTP:baloun(zv)ikos(tec)cz]
> Odesl�no: 11. November 1998 14:00
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Printer Canvas
>
> Mam takovy problem:
>
> Mam nekolik grafickych objektu (text, linka, obdelnik, carovy kod,
> obrazek
> BMP),
> ktere tisknu (opakovane za sebou) na Canvas tiskarny. Pokud mezi
> objekty
> neni BMP, pak se vytisknou vsechny ve vsech opakovanich, pokud mezi
> nimi BMP
> je, pak se BMP vytiskne jen nekdy, ale "ztraceji" se
> i jine objekty.
>
> Aplikace je v D1, a tiskarny HP. Poradi nekdo ?
>
> Diky
>
> Tomas Baloun
>
> http://www.ikos(tec)cz
> E-mail: baloun(zv)ikos(tec)cz
> ------------------------------------
>
Editace SQL databaze
[*] rado(zv)nnsk.sk - 11.10.1998 16:54:24
>mam na vas dotaz ohledne databaze. Jakym zpusobem resite editaci SQL
>databaze v dbgridu, jestlize je primarni index tabulky
>generovan triggerem?
>Jedna se o to, ze trigger vygeneruje spravne cislo, ale BDE se
>ho nedozvi.
>
>Napada me, ze by to slo resit takto:
>Zapisu novy zaznam, pak zjistim aktualni hodnotu sekvence
>(toto poradi je na
>Oracle nutne) a pak zaznam zedituju s touto hodnotou. Zda se
>mi to ale hodne
>neciste.
>
>Urcite jste se s tim uz nekdo setkal, tak se, prosim, o sve zkusenosti
>podelte.
No s Oracle nerobim, ale v Interbase je postup takyto:
1. Vytvorim generator primarneho indexu na servri.
CREATE GENERATOR GEN_BLABLA;
SET GENERATOR GEN_BLABLA TO 1;
2. Napisem stored proceduru, ktora mi vrati aktualnu
hodnotu generatora.
CREATE PROCEDURE GET_NEW_BLABLA RETURNS (
AVALUE INTEGER
) AS BEGIN
AVALUE = GEN_ID(GEN_BLABLA, 0);
END
3. Napisem handler before insert pre tabulku, do ktorej
chcem vkladat. Ten zavola stored proceduru a
mam, co som chcel.
Toto riesenie nie je prave elegantne. Osobne to riesim
tak, ze nevkladam vety cez insert, ale cez stored proceduru.
Postup:
1. Napisem stored proceduru, ktora spravi ten insert.
(Nepotrebujem ten dbgrid, staci mi "normalny" grid,
alebo ine kontrolky)
2. Tesim sa zo sladkych plodov svojej prace.
Zdravim,
Rado Benc
http://www.angelfire.com/me/BencRado
Kalendar
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 11.10.1998 17:25:23
Kdyz si projdes RXLib, tak tam najdes celou knihovnu podobnych
blbosticek.........
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Daniel SICHTA [SMTP:Sichta(zv)asset.sk]
> Odesl�no: 11. listopadu 1998 16:07
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Kalendar
>
> Da sa teda zistit pocet vsetkych dni (pracovne + sviatky) okren sobot
> a
> nediel v danom mesiaci alebo za cely rok zo systemu (W98) alebo treba
> na
> to 'nieco' urobit v D3?
>
> Ing. Daniel �ICHTA
> * sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk>
>
>
> -----Original Message-----
> From: Martin Fron�k [SMTP:FRONEK(zv)ZZNSLANY.CZ]
> Sent: 11. november 1998 15:29
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Kalendar
>
> Kdyz si uvedomis, ze toto podleha zmenam vlady a jeste je to v
> kazdem
> state jinak......tak nezbyva, nez to nekam rucne zapsat, leda by
> to uz
> mel nekdo hotove.
>
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: Daniel SICHTA [SMTP:Sichta(zv)asset.sk]
> > Odesl�no: 11. listopadu 1998 13:47
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: Kalendar
> >
> > Nazdarek vsetci !!!
> >
> > Problem :
> > Ako najlepsie (najefektivnejsie) sa da zistit pocet pracovnych
> dni v
> > zadanom mesiaci (combobox D3) alebo za vsetky mesiace v
> zadanom roku
> > !!!
> > Vopred dakujem !!
> >
> > Ing. Daniel �ICHTA
> > * sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> Vyska taskbaru
[*] Slavek Zika <slavek(zv)bsc-net(tec)cz> - 11.10.1998 17:36:07
Lze nejak zjistit vyska TaskBaru, jelikoz
Screen.Height vrati velikost obrazovky
a bych potreboval umistit okno tesne nad Taskbar.
Predem Dik
Slavek Zika
I/O port ve Win95
[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 11.10.1998 18:18:01
Ahoj vsichni,
mam nasledujici problem. Program jehoz source kod je nize potrebuji
zkompilovat a spustit pod Windows95. Pod DOS/Win 3.1 jde vsechno v poradku
jak ma jit, ale pod Windows95 to nedela co ma.
Jedna se o cteni SN fyz. disku, tedy o primi pristup na I/O port.
Diik Petr
Unit HardDisk;
INTERFACE
FUNCTION GetHardDiskNaam : STRING;
FUNCTION GetHardDiskSerieNummer : STRING;
FUNCTION GetHardDiskControlleNummer : STRING;
PROCEDURE GetHardDiskGegevens;
CONST
CodeerTabel : ARRAY[0..24] OF BYTE =
(3,1,2,1,4,1,3,2,6,4,6,5,1,2,6,4,2,6,3,4,6,2,4,1,2);
TYPE
CharArray = ARRAY[0..24] OF CHAR;
VAR
HardDiskGegevens : ARRAY[1..256] OF INTEGER;
HardDiskNaam : CharArray;
SerieNummer : CharArray;
ControlleNummer : CharArray;
C_HardDiskNaam : STRING;
C_HardDiskSerieNummer : STRING;
C_HardDiskControlleNummer : STRING;
C_LicentieNaam : STRING;
IMPLEMENTATION
FUNCTION GetHardDiskNaam : STRING;
VAR
Teller : INTEGER;
Lus : INTEGER;
BEGIN
GetHardDiskNaam := '';
Teller := 1;
FOR Lus := 1 TO 18 DO
BEGIN
HardDiskNaam[Teller] := CHR( ( HardDiskGegevens[27+Lus] DIV 256 ));
Inc(Teller);
HardDiskNaam[Teller] := CHR( ( HardDiskGegevens[27+Lus] MOD 256 ));
Inc(Teller);
END;
GetHardDiskNaam := HardDiskNaam;
END;
FUNCTION GetHardDiskSerieNummer : STRING;
VAR
Teller : INTEGER;
Lus : INTEGER;
BEGIN
GetHardDiskSerieNummer := '';
Teller := 1;
FOR Lus := 1 TO 8 DO
BEGIN
SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] DIV 256 ));
Inc(Teller);
SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] MOD 256 ));
Inc(Teller);
END;
GetHardDiskSerieNummer := SerieNummer;
END;
FUNCTION GetHardDiskControlleNummer : STRING;
VAR
Teller : INTEGER;
Lus : INTEGER;
BEGIN
GetHardDiskControlleNummer := '';
Teller := 1;
FOR Lus := 1 TO 3 DO
BEGIN
ControlleNummer[Teller] := CHR( ( HardDiskGegevens[23+Lus] DIV 256
));
Inc(Teller);
ControlleNummer[Teller] := CHR( ( HardDiskGegevens[23+Lus] MOD 256
));
Inc(Teller);
END;
GetHardDiskControlleNummer := ControlleNummer;
END;
PROCEDURE GetHardDiskGegevens;
VAR
Lus : INTEGER;
BEGIN
WHILE ( Port[$1f7] <> $50) DO ;
Port[$1F6] := $A0 ;
Port[$1F7] := $EC ;
WHILE ( Port[$1f7] <> $58 ) DO ;
FOR Lus := 1 TO 256 DO
BEGIN
HardDiskGegevens[Lus] := Portw[$1F0] ;
END;
END;
END.Relativni posunuti vice komponent na formu
[*] Roman Toda <normex(zv)mail.pvt.sk> - 11.10.1998 20:00:15
> spatne jsem se vyjadril, jednalo se mi o posun pomoci CTRL+sipky pri
> navrhu formu. Moc Vam vsem dekuji, ani nevite, co jste mi usetrili prace.
Snad Ti este pomoze:
1.) Ked drzis Shift a vyberies komponentu z palety tak ju mozes opakovane
vkladat na form.
2.) Ked mas zlozitejsie okno (panely, bevely gridy) a chces vybrat niektory
panel alebo formu v Object inspectore tak nemusis pracne vyhladavat v comboboxe
inspectora ale mozes vybrat komponentu a tak dlho stlacat ESC kym sa nedostanes
k parentovy ktoreho potrebujes
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
PRECO TO NEJDE
[*] Trhlik Jaroslav <aatsoft(zv)isternet.sk> - 11.10.1998 20:29:22
Spr�va vo form�te MIME rozdelen� na viac �ast�.
Mozem iba potvrdit rovnaku skusenost s D2, navyse ide o predtym stovky uspesnych instalacii z lisovaneho CD. Ked som to chcel konzultovat na INVEXe u INPRISu, tak mi bolo povedane, ze to je nemozne. Osobne mam dojem, ze BDE (dBase) je haklive na Pentium II alebo na zvysky po predchadzajucich instalaciach.
Jaroslav Trhlik
A&T Software s.r.o., Nove Mesto n/Vah.
e-mail: aatsoft(zv)isternet.sk
-----P�vodn� spr�va-----
Od: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
Pre: Delphi <delphi(zv)pinknet(tec)cz>
D�tum: 11. november 1998 12:20
Predmet: PRECO TO NEJDE
Caute
Mam nasledovny problem. V D3 som napisal jednoduchy program a pomocou
IS Express som vytvoril instalacky, otestoval som na svojom stroji a fungovalo vsetko tak ako malo, ale ked som to chcel nainstalovat na iny stroj, tak instalacia prebehla v poriadku, ale samotny program sa nespustil, preco ?
Len pre uplnost dodavam ze moj stroj je Pentium 233 MMX - Intel a tie dalsie dotycne boli Pentium IBM a 486 Intel.
Beriem vsetky podnety.
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