Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
spustenie programu
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 17.5.1999 13:03:26
Pokud se jedna o nejaky standardni program (nejaky Internet browser
apod.), sla by pouzit funkce ShellExecute, ktera je schopna jej spustit
jen na zaklade jmena souboru, se kterym je program asociovany. Pokud se
jedna o neco obecneho a neni ani zadny defaultni adresar, kde by ten
program mohl byt (Windows, Windows\System apod.), nezbyde nic jineho,
nez projit rekurzivne vsechny adresare na vsech discich a hledat.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 17. kv�tna 1999 11:28
> Komu: Delphi konferencia
> P�edm�t: spustenie programu
>
> Caute
> Mam nasledovnu otazku ? Je mozne nejakym sposobom zistit ci sa v
> pocitaci nachadza urcity program a ak ano tak ho spustit ( viem presny
> nazov exe suboru ). Pre upresnenie pracujem v D4.
> ����������������������������������������������������������������������
> ��������� Dik
> �
> Ing. J�n Kuch�r
> KIaR SjF TU Ko�ice
> Park Komensk�ho 9
> 041 27 Ko�ice
> tel. : 095 / 602 2589
> e-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk>
> spustenie programu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 17.5.1999 14:14:09
> -----Original Message-----
> From: Petr�j Zden�k [mailto:ZPetruj(zv)qgir(tec)cz]
> Sent: Monday, May 17, 1999 2:41 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: spustenie programu
>
>
> No ale asi je nejjednodussi pokud je program korektne
> nainstalovany tak z
> registru.
>
??? Jak z registru spustim treba arj.exe?
Mam ho korektne nainstalovany a v registrech o nem neni nic :-)
Pokud se nejedna o Office nebo podobne univerzalneji postavene
programy, tak je jedinou cestou to prohledavani disku.
A pokud ano, tak nema cenu spoustet program "radkovym" prikazem,
je lepsi ho ovladat pomoci DDE nebo OLE.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!> > -----P�vodn� zpr�va-----
> > Od: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> > Odesl�no: 17. kv�tna 1999 12:20
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: spustenie programu
> >
>
> > tady mas ukazku, jak to jde udelat (je to z dosu a vytazene
> > z kontextu, ale do delphi neni problem snad jiz predelat).
> >
>
> > > Caute
> > > Mam nasledovnu otazku ? Je mozne nejakym sposobom zistit ci
> > sa v pocitaci
> > > nachadza urcity program a ak ano tak ho spustit ( viem
> > presny nazov exe
> > > suboru ). Pre upresnenie pracujem v D4.
> > > Dik
> spustenie programu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.5.1999 14:33:12
Martin Lasevic wrote:
>
> Prohledat pocitac a pokud jej najde, tak spustit pres ShellExecute.
>
> Pro prohledavani je potoeba udilat rekurzivni proceduru.
Ahoj,
nebo pouzit jiz hotovou funkci z IMAGEHLP.DLL:
uses
Imagehlp;
procedure TForm1.Button1Click(Sender: TObject);
var
FoundPath: array[0..MAX_PATH] of Char;
begin
if SearchTreeForFile('C:\', 'DELPHI32.EXE', FoundPath) then
ShowMessage(FoundPath);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************spustenie programu
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 17.5.1999 14:41:02
No ale asi je nejjednodussi pokud je program korektne nainstalovany tak z
registru.
> -----P�vodn� zpr�va-----
> Od: Slavek Rydval [mailto:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 17. kv�tna 1999 12:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: spustenie programu
>
> tady mas ukazku, jak to jde udelat (je to z dosu a vytazene
> z kontextu, ale do delphi neni problem snad jiz predelat).
>
> > Caute
> > Mam nasledovnu otazku ? Je mozne nejakym sposobom zistit ci
> sa v pocitaci
> > nachadza urcity program a ak ano tak ho spustit ( viem
> presny nazov exe
> > suboru ). Pre upresnenie pracujem v D4.
> > Dik
Hanle okna
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 17.5.1999 15:19:59
Hi all,
mam problem. Pri modularni strukture nasi aplikace obcas dojde k tomu, ze
po havarii nektereho modulu ( vypadek, chyba) zustane nektera sekce "viset"
s privlastkem [ aplikace
neodpovida].
Lze takto zjistit, handle tohoto okna?
Diky
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
Detekce CD
[*] Lukas Marsalek ** student ** <MARSALEL.vos97(zv)vsps-su(tec)cz> - 17.5.1999 13:51:24
> Datum odesl�n�: Wed, 12 May 1999 21:21:34 +0200
> Od: Petr Kundrata <pksoft(zv)atlas(tec)cz>
> Post. program: Mozilla 4.51 [en] (Win95; I)
> Komu: delphi-l(zv)fwd(tec)cz
> Vec: Re: Detekce CD
> Odpoved kam: delphi-l(zv)fwd(tec)cz
> Lukas Marsalek ** student ** wrote:
> >
> > AHoj vespolek,
> >
> > Nevite nekdo jak by se dalo v D3 zjistit, jestli je v mechanice
> > vlozeno zvukove nebo datove CD ? Priapadne, jestli je mechanika
> > otevrena ?
> > Kdyz jsem mel v programu tuhle konstrukci :
> > .
> > .
> > .
> > with MediaPlayer do
> > DataType := dtCDAudio;
> > Open;
> > Play;
> > .
> > .
> > .
> > tak Delphi ani nepoznalo, ze mam otevrenou mechaniku a tvarily se
> > jako ze to CD prehravaji. Cekal jsem nejakou chybovou hlasku, ale nic.
> > POtreboval bych, aby se vyhodila nejaka hlaska v pripade, ze v
> > mechanice neni zvukove CD. Mate najake napady ?
> >
> > Lukas
> Zkus to takhle:
>
> uses MMsystem;
>
> function mci(const S : string) : string;
> begin
> SetLength(Result,1000);
> mciSendString(PChar(S),//lpstrCommand,
> PChar(Result),Length(Result),//lpstrReturnString:
> PChar;uReturnLength: UINT;
> 0);//hWndCallback: HWND
> SetLength(Result,StrLen(PChar(Result)));
> end;
>
> ....
> mci('open mcicda.drv alias PM_CD');
> ShowMessageFmt( '%s'#13#10#13#10+
> 'M�dium pr�tomno: %s'#13#10+
> 'Identifikace: %s'#13#10+
> 'UPC: %s'#13#10+
> 'Pocet stop: %s'#13#10+
> 'Aktu�ln� stopa: %s'#13#10+
> 'D�lka: %s'#13#10+
> 'M�d: %s',[
> mci('info PM_CD product'),
>
> mci('status PM_CD media present'),
> mci('info PM_CD identity'),
> mci('info PM_CD upc'),
> mci('status PM_CD number of tracks'),
> mci('status PM_CD current track'),
> mci('status PM_CD length'),
> mci('status PM_CD mode')
> ]);
> mci('close PM_CD');
> ....
>
> Petr Kundrata
>
A neco TROSICKU jednodussiho (treba jeden dva radky) neexistuje ???
Diky za snahu.
spustenie programu + jeden namet i dotaz navic
[*] Daniel Dedek <admin2.ok.prague(zv)embassy.mzv(tec)cz> - 17.5.1999 15:59:28
nazdar,
ja na tohle pouzivam fci GetExitCodeProcess, asi takhle:
B := CreateProcess( parametry...); //timhle se spusti
program, vraci strukturu PI, ...
WaitForInputIdle( GetCurrentProcess, infinite ); // ...kde je handle
novyho procesu
if B then
repeat
WaitForSingleObject( PI.hProcess, 1000 );
GetExitCodeProcess( PI.hProcess, X ); // vraci v X stav procesu
until X<>STILL_ACTIVE
else ShowMessage( 'Chyba pri spousteni...' )
peknej den
Dan
> aplikace pomoci funkce getmoduleusage.
> Dotaz do konference:
> Kdyz jsem zkousel aplikaci preklopit do D3, zjistil jsem, ze funkce
> getmoduleusage nefunguje v 32bit prostredi (u mne konkretne ve WinNT). V
> dokumentaci jsem nasel vysvetleni proc nemuze fungovat, ale neni tam
> popsana ekvivalentni nahrada. Neresil nekdo z vas neco podobneho?
> Diky Ivan p
RxRichEdit - zobrazov�n� str�nek dle tisk�rny
[*] Jan Linhart <delphi(zv)mis-net(tec)cz> - 17.5.1999 16:10:08
Zdar,
MS Word tak nejak naznacuje odkud bude zac�nat/koncit str�nka, kdyz se to
vytiskne.
Netu��te zde nekdo alespon priblizne jak by to slo resit v RxRichEditu ?
/// v 2.60
//ten probl�m s tiskem jsem tak nejak zaz�platoval, tiskne to jak m� a
kdyby to nekdo chtel tak stac� r�ct
Predem d�ky :-)
.............................Honza
ActiveX- Graph
[*] Ing. Jaroslav K�e�ek - 17.5.1999 16:49:02
Pro prekresleni grafu je potreba
Graph1.DrawMode := 2;
A to v realtime, pro kazde prekresleni, nehlede na to, jaka hodnota DrawMode
byla nastavena.
Vice viz help ocx\graph.hlp
2 (Default) At design time, this redraws your graph every time you change
a property. At run time, resetting DrawMode to 2 causes the graph to be
redrawn.
Taky jsem na to prichazel dlouho.
Jaroslav Krecek
**********************************************
Ing. Jaroslav K�e�ek
-------------------------------------------------------------
GRAFEX - software �it� na m�ru
- hardware pro Va�e pot�eby
-------------------------------------------------------------
http://web.iol(tec)cz/grafex
mailto:grafex(zv)iol(tec)cz
-------------------------------------------------------------
tel + SMS: +420.603.226103
tel + fax: +420.327.761992
**********************************************
-----P�vodn� zpr�va-----
Od: Martin Bobak <bobak(zv)minv.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. kv�tna 1999 13:39
P�edm�t: ActiveX- Graph
Vazeny kto mi vie poradit ako prekreslovat ActiveX graf (TGraph) po
zadani novych hodnot, totizto pri spusteni aplikacie sa graf vykresli ale
ked mu priradim nove hodnoty neprekresluje sa. Vopred thx..........
Martin
Detekce CD
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 17.5.1999 17:10:20
Kazde zvukove CD m� ve jmenu disku napsano AUDIO.
Novak
> -----P�vodn� zpr�va-----
> Od: Lukas Marsalek ** student ** [SMTP:MARSALEL.vos97(zv)vsps-su(tec)cz]
> Odesl�no: 17. kv�tna 1999 15:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Detekce CD
>
> > Datum odesl�n�: Wed, 12 May 1999 21:21:34 +0200
> > Od: Petr Kundrata <pksoft(zv)atlas(tec)cz>
> > Post. program: Mozilla 4.51 [en] (Win95; I)
> > Komu: delphi-l(zv)fwd(tec)cz
> > Vec: Re: Detekce CD
> > Odpoved kam: delphi-l(zv)fwd(tec)cz
>
> > Lukas Marsalek ** student ** wrote:
> > >
> > > AHoj vespolek,
> > >
> > > Nevite nekdo jak by se dalo v D3 zjistit, jestli je v mechanice
> > > vlozeno zvukove nebo datove CD ? Priapadne, jestli je mechanika
> > > otevrena ?
> > > Kdyz jsem mel v programu tuhle konstrukci :
> > > .
> > > .
> > > .
> > > with MediaPlayer do
> > > DataType := dtCDAudio;
> > > Open;
> > > Play;
> > > .
> > > .
> > > .
> > > tak Delphi ani nepoznalo, ze mam otevrenou mechaniku a tvarily se
> > > jako ze to CD prehravaji. Cekal jsem nejakou chybovou hlasku, ale nic.
> > > POtreboval bych, aby se vyhodila nejaka hlaska v pripade, ze v
> > > mechanice neni zvukove CD. Mate najake napady ?
> > >
> > > Lukas
> > Zkus to takhle:
> >
> > uses MMsystem;
> >
> > function mci(const S : string) : string;
> > begin
> > SetLength(Result,1000);
> > mciSendString(PChar(S),//lpstrCommand,
> > PChar(Result),Length(Result),//lpstrReturnString:
> > PChar;uReturnLength: UINT;
> > 0);//hWndCallback: HWND
> > SetLength(Result,StrLen(PChar(Result)));
> > end;
> >
> > ....
> > mci('open mcicda.drv alias PM_CD');
> > ShowMessageFmt( '%s'#13#10#13#10+
> > 'M�dium pr�tomno: %s'#13#10+
> > 'Identifikace: %s'#13#10+
> > 'UPC: %s'#13#10+
> > 'Pocet stop: %s'#13#10+
> > 'Aktu�ln� stopa: %s'#13#10+
> > 'D�lka: %s'#13#10+
> > 'M�d: %s',[
> > mci('info PM_CD product'),
> >
> > mci('status PM_CD media present'),
> > mci('info PM_CD identity'),
> > mci('info PM_CD upc'),
> > mci('status PM_CD number of tracks'),
> > mci('status PM_CD current track'),
> > mci('status PM_CD length'),
> > mci('status PM_CD mode')
> > ]);
> > mci('close PM_CD');
> > ....
> >
> > Petr Kundrata
> >
>
> A neco TROSICKU jednodussiho (treba jeden dva radky) neexistuje ???
> Diky za snahu.
> Spousteni mail klienta
[*] pvales(zv)post(tec)cz - 17.5.1999 17:13:58
Ahoj,
nevite nahodou nekdo jak spoustet defaultniho mail klienta ? Videl jsem jednou v konferenci, kde se primo zadala cilova emailova adresa, subject, atd.
Ovsem nemohu to najit.
S pozdravem Petr Vales
Spousteni mail klienta
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 17.5.1999 18:28:00
ShellExecute(..., "mailto:nekdo(zv)nekde(tec)cz <mailto:nekdo(zv)nekde(tec)cz> ", ...)
-----Original Message-----
From: pvales(zv)post(tec)cz [mailto:pvales(zv)post(tec)cz]
Sent: Monday, May 17, 1999 5:14 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Spousteni mail klienta
Ahoj,
nevite nahodou nekdo jak spoustet defaultniho mail klienta ? Videl
jsem jednou v konferenci, kde se primo zadala cilova emailova adresa,
subject, atd.
Ovsem nemohu to najit.
S pozdravem Petr Vales
Mistrovstvi v Delphi 4
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 17.5.1999 18:31:45
Prave vidim v katalogu Computer Pressu knizku Mistrovstvi
v Delphi 4, autor nejaky Tom Swan. Zna nekdo tuhle knizku
v originale ?
Radim
p.s. Je u toho poznamka Pripravujeme, takze to nejspis bude
az po vyjiti Delphi 5.
SQL
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 17.5.1999 18:33:16
> >
> > select a, b, c from ... order by c.
> >
> > kde c by bolo nieco ako MAX(a,b). Inak povedane by som chcel
> > vytvorit dalsiu
> > calculated polozku, ktorej hodnota by bola maximum z dalsich dvoch.
> >
>
> select a, b, c, Max(a,b) d from ... order by d.
>
> Zalezi na pouzite databazi, jak vypada funkce Max(a,b).
je to access, idem to vyskusat.
dakujem
richard
SQL - podminka
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 17.5.1999 19:57:07
K cemu je mi pak cele slavne SQL, pokud na nem nemohu vystavit obycejnou
fakturu ???
Ach jo !
> Obavam se, ze v Paradoxu ti nic jineho nezbyde. U SQL serveru bys
> jeste mohl
> pouzit vnorene selecty, ale ani to by nebylo asi to prave z
> hlediska vykonu.
>
> Napr.
> select doklad, (select sum(dan22) from ucty where
> doklad=X.doklad) sumdan22,
> (select sum(dan5) from ucty where doklad=X.doklad) sumdan5 from ucty X
> group by 1
> atd.
>
> Leos
>
>Spousteni mail klienta
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 17.5.1999 17:57:55 met
>
> Ahoj,
>
> nevite nahodou nekdo jak spoustet defaultniho mail klienta ? Videl jsem jednou v konferenci, kde se primo zadala cilova emailova adresa, subject, atd.
>
> Ovsem nemohu to najit.
>
> S pozdravem Petr Vales
Cau,
Nekde jsem zahlid toto:
ShellExecute(Application.Handle, nil, 'mailto:nekdo(zv)nekde(tec)cz',
nil,nil, SW_SHOWNOACTIVATE);
svatos(zv)af(tec)czu(tec)cz
Spousteni mail klienta (3)
[*] Roman Fi�er <fiser(zv)gbn(tec)cz> - 17.5.1999 21:10:35
To neni tak uplne spolehlive napriklad na mych windows to hazi acess
violation,
ja osobne doporucuju vytvorit soubor typu *.URL
a tam napsat neco ve snyslu tohoto:
[InternetShortcut]
URL= mailto:nekdo(zv)nekde(tec)cz?subject=ahoj
a ten pak spustit pres shellexecute
Mozna by bylo lepsi este pred spustenim URL souboru zjistit jestli je s
necim asociovany (prohledat registry)
a pokud ne zkusit to s nize uvedenym zpusobem.
Tohle mi zatim fungovalo spolehlive vsude.
------------------------------------------------------
- Roman Fiser jr.
- programatorska skupina NGSoft
- software nove generace
- fiser(zv)gbn(tec)cz www.gbn(tec)cz/ngsoft
------------------------------------------------------
telefon: 0301/24632, ICQ: 25542226
----- Original Message -----
From: Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 17. kv�tna 1999 18:28
Subject: RE: Spousteni mail klienta
>
> ShellExecute(..., "mailto:nekdo(zv)nekde(tec)cz <mailto:nekdo(zv)nekde(tec)cz> ", ...)
>
> -----Original Message-----
> From: pvales(zv)post(tec)cz [mailto:pvales(zv)post(tec)cz]
> Sent: Monday, May 17, 1999 5:14 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Spousteni mail klienta
>
>
> Ahoj,
>
> nevite nahodou nekdo jak spoustet defaultniho mail klienta ? Videl
> jsem jednou v konferenci, kde se primo zadala cilova emailova adresa,
> subject, atd.
>
> Ovsem nemohu to najit.
>
> S pozdravem Petr Vales
>
>Mistrovstvi v Delphi 4
[*] E&J soft <uli(zv)internet.sk> - 17.5.1999 22:01:00
Pekny den preji,
volal jsem do CPressu, a tam rikali, ze by mela byt koncem kvetna.
Tak snad je to pravda.
Jaro
_________________________________
E&J soft
Jaro Hrabe, Ing.
Zizkova 24
811 02 Bratislava
Slovakia
e-mail : uli(zv)internet.sk
tel. : 00421-7-63 812 712; GSM : 0905 510 072
typ funkce TStrings
[*] Petr Medek <xmedekp(zv)sun.felk.cvut(tec)cz> - 17.5.1999 22:19:07
> houby po desti. Lepsi je predavat jiz vytvoreny objekt jako var parametr,
a
> nikoliv ho tvorit ve funkci.>procedure neco(S:String;var AList:TStrings);
S malou poznamkou.
Neni treba objekt predavat odkazem (var), protoze se predava stejne jen
ukazatel na instanci a ten zustava konstantni.
Petr Medek
Mistrovstvi v Delphi 4
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 17.5.1999 22:29:13
A ptal ses na rok ? :-))))
Radim >Pekny den preji,
>
>volal jsem do CPressu, a tam rikali, ze by mela byt koncem kvetna.
>Tak snad je to pravda.
>
>Jaro
typ funkce TStrings
[*] Mirun <forcom(zv)telecom(tec)cz> - 17.5.1999 22:51:08
Pravda, nekdy mam jistou nesynchronizaci mezi tim co chci napsat, a tim co
opravdu napisu :-(((
Mirun
----- Original Message -----
From: Petr Medek <xmedekp(zv)sun.felk.cvut(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 17, 1999 10:19 PM
Subject: Re: typ funkce TStrings
> > houby po desti. Lepsi je predavat jiz vytvoreny objekt jako var
parametr,
> a
> > nikoliv ho tvorit ve funkci.
>
> >procedure neco(S:String;var AList:TStrings);
>
> S malou poznamkou.
> Neni treba objekt predavat odkazem (var), protoze se predava stejne jen
> ukazatel na instanci a ten zustava konstantni.
>
> Petr Medek
>
>SQL - podminka
[*] Jaro <jaro(zv)sinea(tec)cz> - 17.5.1999 23:01:34
Tak ja (mimo jine) taky vystavuji faktury s pouzitim SQL.
Nemyslim se, ze chyba je v SQL. Mozna by namisto rozcilovani se,
pomohlo znovu se zamyslet nad datovou strukturou.
Jaro
>
>K cemu je mi pak cele slavne SQL, pokud na nem nemohu vystavit
obycejnou
>fakturu ???
>
>Ach jo !
>
>> Obavam se, ze v Paradoxu ti nic jineho nezbyde. U SQL serveru bys
>> jeste mohl
>> pouzit vnorene selecty, ale ani to by nebylo asi to prave z
>> hlediska vykonu.
>>
>> Napr.
>> select doklad, (select sum(dan22) from ucty where
>> doklad=X.doklad) sumdan22,
>> (select sum(dan5) from ucty where doklad=X.doklad) sumdan5 from
ucty X
>> group by 1
>> atd.
>>
>> Leos
>>
>>
>Mistrovstvi v Delphi 4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.5.1999 23:26:43
Radim Kunz wrote:
>
> Prave vidim v katalogu Computer Pressu knizku Mistrovstvi
> v Delphi 4, autor nejaky Tom Swan. Zna nekdo tuhle knizku
> v originale ?
Ahoj,
Je treba na Amazonu:
http://www.amazon.co.uk/exec/obidos/ASIN/0764532375/qid=926973611/sr=1-20/026-5013534-9184600
> p.s. Je u toho poznamka Pripravujeme, takze to nejspis bude
> az po vyjiti Delphi 5.
Proto je obcas lepsi si ji objednat v originale. Trochu problem je ale cena :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
ActiveX- Graph
[*] Mgr. Anton�n Blatn� - 17.5.1999 23:35:56
DrawMode:=2 vykresli graf jako MetaFile, coz muze pri castem prekreslovani
(napr. pokud je graf ulozen ve scrollboxu) zpusobovart neprijemne blikani.
Oproti tomu DrawMode:=3 vykresli graf jako celistvou bitmapu.
-----P�vodn� zpr�va-----
Od: Ing. Jaroslav K�e�ek <grafex(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. kv�tna 1999 16:46
P�edm�t: Re: ActiveX- Graph
>Pro prekresleni grafu je potreba
> Graph1.DrawMode := 2;
>A to v realtime, pro kazde prekresleni, nehlede na to, jaka hodnota
DrawMode
>byla nastavena.
>
>Vice viz help ocx\graph.hlp
> 2 (Default) At design time, this redraws your graph every time you
change
>a property. At run time, resetting DrawMode to 2 causes the graph to be
>redrawn.
>
>Taky jsem na to prichazel dlouho.
>
>Jaroslav Krecek
>**********************************************
> Ing. Jaroslav K�e�ek
>-------------------------------------------------------------
> GRAFEX - software �it� na m�ru
> - hardware pro Va�e pot�eby
>-------------------------------------------------------------
>http://web.iol(tec)cz/grafex
>mailto:grafex(zv)iol(tec)cz
>-------------------------------------------------------------
>tel + SMS: +420.603.226103
>tel + fax: +420.327.761992
>**********************************************
>
> -----P�vodn� zpr�va-----
> Od: Martin Bobak <bobak(zv)minv.sk>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 13. kv�tna 1999 13:39
> P�edm�t: ActiveX- Graph
>
>
> Vazeny kto mi vie poradit ako prekreslovat ActiveX graf (TGraph) po
>zadani novych hodnot, totizto pri spusteni aplikacie sa graf vykresli ale
>ked mu priradim nove hodnoty neprekresluje sa. Vopred thx..........
>
> Martin
>Spousteni mail klienta
[*] Miro Mrazik <miro_mr(zv)hotmail(tec)com> - 18.5.1999 01:18:22 pdt
>From: pvales(zv)post(tec)cz
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: delphi-l(zv)fwd(tec)cz
>Subject: Spousteni mail klienta
>Date: Mon, 17 May 1999 17:13:58 +0200
>
>Ahoj,
>
>nevite nahodou nekdo jak spoustet defaultniho mail klienta ? Videl jsem
>jednou v konferenci, kde se primo zadala cilova emailova adresa, subject,
>atd.
>
>Ovsem nemohu to najit.
>
>S pozdravem Petr Vales
>
ahoj,
Pomocou File/New/Application - vygeneruj Win95 logo aplikaciu.
Potom si pozri v menu File vygenerovanej aplikacie ako to robi Delphi.
>
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
SQL - podminka
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 18.5.1999 06:16:51
-----P�vodn� zpr�va-----
Od: Jiri Heinisch <HeiJu(zv)sol(tec)cz>>
>K cemu je mi pak cele slavne SQL, pokud na nem nemohu vystavit obycejnou
>fakturu ???
>
>Ach jo !
>
A co to zpracovat v reportu ?
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
P.S. K cemu je mi cele slavne SQL, kdyz si na nem nemuzu hrat hry ? ;-)
SQL
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 18.5.1999 07:22:52
> -----Original Message-----
> From: No Comemnt Group, s.r.o. / Sales Department
> [mailto:sales(zv)nocomment.sk]
> Sent: Monday, May 17, 1999 6:33 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL
>
> > select a, b, c, Max(a,b) d from ... order by d.
> >
> > Zalezi na pouzite databazi, jak vypada funkce Max(a,b).
>
> je to access, idem to vyskusat.
>
V tom pripade...
Neznam Access, takze jsem se zkusil podivat do helpu.
Pusobilo to na mne dojmem, ze Max je zde pouze jako
agregovana funkce (oproti treba MS SQL Serveru, kde je mozne
zadat do ni mnozinu).
Pokud nenajdes neco lepsiho, zkus pouzit IIF (nezkousel jsem to,
vycucal jsem si to z helpu: IIf(expr, truepart, falsepart)).
SELECT a, b, c, IIF(a >= b, a, b) maxab, d, e
FROM ...
ORDER BY maxab
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!spustenie programu
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 18.5.1999 07:34:39
Je ta knihovna IMAGEHLP nekde dokumentovana nebo zase pro oci nevidim ?
Dival jsem se do User's i Developer's Guide, prohledaval jsem demos,
help i zdrojove kody, kde jsem sice nasel imagehlp.pas, nicmene to je
jen deklarace knihovny s tim, ze se vklada soubor imagehlp.h, ktery na
disku ani na CD (D4.02 Prof) neni. Himbajs, kde ty informace, Petre,
porad beres ? :-))
Mira
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. kv�tna 1999 15:04
P�edm�t: Re: spustenie programu
>
>nebo pouzit jiz hotovou funkci z IMAGEHLP.DLL:
>
>Internet proti monopolu. Petr Vones, amatersky
programator
>* http://www.bojkot(tec)cz *
>************************
>
>Tisk z datove mnoziny pro B-Tree Filer
[*] Petr Danek <petrd(zv)atlas(tec)cz> - 18.5.1999 07:42:45
Ahoj,
pred casem jsem zde sehnal uzivatelskou datovou mnozinu pro pristup k datum B-Tree Filer. Ted jsem ji chtel pouzit pro tisk pomoci
Quick Reportu. Od zacatku mi nenabizela slova vety pri definovani tabulky v DbGridu a ted pri definovani slov do sestavy. Pri tisku vytiskne jenom jednu vetu souboru. Nemate s tim nejake zkusenosti.
Dik.
Petr Danek
petrd(zv)atlas(tec)cz
Cestina...
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 18.5.1999 07:55:13
Halloa ALL!
Mam skromny dotaz...existuje nekde cesky help do D3 nebo D4? Diky predem....
Tma
Piktogramy
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 18.5.1999 08:36:49
Zdravim,
mam dotaz mimo DELPHI,
jeste z nedavne doby BBSek existovaly piktogramy napr. :-))), ktere prezivaji do dnesnich dnu. ma nekdo nekde seznam techto znacek.
Pekny den preje
Pavel ZIDEK
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~RichEdit98
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 18.5.1999 08:41:07
ahoj,
zna nekdo komponentu RichEdit98 ?
Rad bych vedel cim se lisi od TRichEditu,
ktery je dodavan standardne s Delphi(3),
event. kde lze tuto komponentu ziskat...
diky za pripadne odpovedi
Zdenek Fryz
SQL - podminka
[*] Kovac <kovac(zv)pvt.sk> - 18.5.1999 08:46:47
A co tak
select
u.doklad,
sum(u1.pocet*u1.cena)/count(*),
sum(u2.pocet*u2.cena)/count(*),
sum(u3.pocet*u3.cena)/count(*)
from ucty u
left join ucty u1
on u.doklad=u1.doklad and u1.sadzba_dph=0
left join ucty u2
on u.doklad=u2.doklad and u2.sadzba_dph=5
left join ucty u3
on u.doklad=u3.doklad and u3.sadzba_dph=22
group by u.doklad
-----Original Message-----
From: Jaro <jaro(zv)sinea(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 18. m�j 1999 0:11
Subject: Re: SQL - podminka
>Tak ja (mimo jine) taky vystavuji faktury s pouzitim SQL.
>Nemyslim se, ze chyba je v SQL. Mozna by namisto rozcilovani se,
>pomohlo znovu se zamyslet nad datovou strukturou.
>Jaro
>
>
>>
>>K cemu je mi pak cele slavne SQL, pokud na nem nemohu vystavit
>obycejnou
>>fakturu ???
>>
>>Ach jo !
>>
>>> Obavam se, ze v Paradoxu ti nic jineho nezbyde. U SQL serveru bys
>>> jeste mohl
>>> pouzit vnorene selecty, ale ani to by nebylo asi to prave z
>>> hlediska vykonu.
>>>
>>> Napr.
>>> select doklad, (select sum(dan22) from ucty where
>>> doklad=X.doklad) sumdan22,
>>> (select sum(dan5) from ucty where doklad=X.doklad) sumdan5 from
>ucty X
>>> group by 1
>>> atd.
>>>
>>> Leos
>>>
>>>
>>
>
>Piktogramy
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 18.5.1999 09:06:58
[P��loha v souboru: EMOTICON.doc]
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj, zrovna v�era mi to kolega opsal. Snad ti to pom��e.
<<EMOTICON.doc>>
Adam
> -----P�vodn� zpr�va-----
> Od: Pavel ZIDEK [SMTP:kopr(zv)kopr(tec)cz]
> Odesl�no: 18. kv�tna 1999 8:37
> Komu: DELPHI forum
> P�edm�t: Piktogramy
>
> Zdravim,
> mam dotaz mimo DELPHI,
> jeste z nedavne doby BBSek existovaly piktogramy napr. :-))), ktere
> prezivaji do dnesnich dnu. ma nekdo nekde seznam techto znacek.
>
>
> Pekny den preje
> Pavel ZIDEK
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~ ~ ~
> KOPR software Pavel ZIDEK voice 069 / 66 02 156
> mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz
> http://www.kopr(tec)cz/w-delphi
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~ ~ ~Piktogramy
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 18.5.1999 09:22:01
Staci snad zadat v libovolnem vyhledavaci "smileys"... Infoseek 9.600 odkazu
napr.
http://wellweb.com/behappy/smiley.htm
----------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
----------------------------------
> -----P�vodn� zpr�va-----
> Od: Pavel ZIDEK [mailto:kopr(zv)kopr(tec)cz]
> Odesl�no: 18. kv�tna 1999 8:37
> Komu: DELPHI forum
> P�edm�t: Piktogramy
>
>
> Zdravim,
> mam dotaz mimo DELPHI,
> jeste z nedavne doby BBSek existovaly piktogramy napr. :-))),
> ktere prezivaji do dnesnich dnu. ma nekdo nekde seznam techto znacek.
>
>
> Pekny den preje
> Pavel ZIDEK
Mistrovstvi v Delphi 4
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 18.5.1999 09:24:08
>Radim Kunz wrote:
>>
>> Prave vidim v katalogu Computer Pressu knizku Mistrovstvi
>> v Delphi 4, autor nejaky Tom Swan. Zna nekdo tuhle knizku
>> v originale ?
>
>Ahoj,
>
>Je treba na Amazonu:
>
>http://www.amazon.co.uk/exec/obidos/ASIN/0764532375/qid=926973611/sr=1-20/0
26-5013534-9184600
>
>> p.s. Je u toho poznamka Pripravujeme, takze to nejspis bude
>> az po vyjiti Delphi 5.
>
>Proto je obcas lepsi si ji objednat v originale. Trochu problem je ale cena
:-)
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
Ja o ni neco nasel na www.idgbooks.com
Je tam obsah a ukazkova kapitola. Vypada to, ze neni o co
stat, je to jen trosku lepsi manual.
Radim
Piktogramy
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 18.5.1999 10:11:17
> -----Original Message-----
> From: Pavel ZIDEK [mailto:kopr(zv)kopr(tec)cz]
> Sent: Tuesday, May 18, 1999 8:37 AM
> To: DELPHI forum
> Subject: Piktogramy
>
>
> Zdravim,
> mam dotaz mimo DELPHI,
> jeste z nedavne doby BBSek existovaly piktogramy napr. :-))),
> ktere prezivaji do dnesnich dnu. ma nekdo nekde seznam techto znacek.
To nejsou piktogramy, ale emotikony. Piktogramy jsou obrazky.
Koukni sem:
http://www.pe.bohem-net(tec)cz/servis.htm#zkratky
http://www.fi.muni(tec)cz/tech/UNIX/zkratky.html(tec)cz
http://www-kiv.zcu(tec)cz/win/~brada/vyuka/zps/netiq/cz/celec.html
BTW emotikony lze snadno odhadnout. IMHO dulezitejsi
je naucit se zkratky.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Kazdy formular jinak
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.5.1999 10:21:45
Preji vsem pekneho dne,
mohu (v D4, SP3) nejak rict, aby se nektere unity prekladaly jako
DLL a byly soucasti apliakce?
Potrebuji udelat aplikaci, kdy pak zakaznikum budu davat jiz jen
napriklad opraveny formular (typicky jedno DLL). Mohl bych to sice
prekladat oddelene, ale spousta formularu a unit vyuziva napr.
datovy modul.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
MDI
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 18.5.1999 10:54:10
Zdravim,
jeste jednou se zeptam (mozna nekdo bude vedet), jak zamezit problikavani
child formulare pri otevreni jako wsMaximized.
Diky.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================== spustenie programu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 10:57:26
"Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o." wrote:
>
> Je ta knihovna IMAGEHLP nekde dokumentovana nebo zase pro oci nevidim ?
> Dival jsem se do User's i Developer's Guide, prohledaval jsem demos,
> help i zdrojove kody, kde jsem sice nasel imagehlp.pas, nicmene to je
Ahoj,
V adresari ..\Delphi4\Source\Rtl\Win by jsi mel mit imagehlp.pas (D4.03).
> jen deklarace knihovny s tim, ze se vklada soubor imagehlp.h, ktery na
> disku ani na CD (D4.02 Prof) neni. Himbajs, kde ty informace, Petre,
> porad beres ? :-))
Takhle funkce je (kupodivu) popsana i ve Win32API helpu u Delphi. Lepsi
je se ale podivat na MSDN:
http://msdn.microsoft.com/library/sdkdoc/winbase/imagehlp_3u9f.htm
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Ikony v ListView na st�ed
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 18.5.1999 10:58:59
Hi,
m��ete mi pros�m n�kdo poradit, jak v ListView dostanu ikony na st�ed ?
D�ky
Va�ek
V�clav Lukes
0603-511247
Vaclav.Lukes(zv)pvt(tec)cz
MicroSoft MediaView
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.1999 11:04:43
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Vite prosim nekdo neco blizsiho o %subj% ?
Podle mych ubohych znalosti na toto tema
by se v tom daly psat i databaze (tedy
ukladat udaje do tabulek)
a jak lze potom k nim pristupovat z Delphi ?
Diky.
Dobra.Vykreslovani formulare
[*] Konference <konference(zv)ecommerce(tec)cz> - 18.5.1999 11:54:43
Ahoj,
potreboval bych poradit jak lze zakazat vykreslovani na formular.
Tedy, nejprve si vsechno vykreslim do pameti(?) a az jsem spokojeny tak reknu ted a vsechno se vykresli do okna na monitoru.
Diky
Ales
RxRichEdit - zobrazov�n� str�nek dle tisk�r
[*] Jan Linhart <delphi(zv)mis-net(tec)cz> - 18.5.1999 11:57:49
Zdar,
pomoc� message EM_FORMATRANGE se prov�d� tisk, vrac� polohu/pocet znaku, co
byly vytisknuty pri kazd� str�nce.
No a tech RichEdit ukazuje pouze "obdelnik" z toho cel�ho "p�su textu" a j�
bych potreboval zjistit jestli je zrovna zobrazov�n znak cislo 255 nebo i
355 nebo jenom 255 na te screene a jeste k tomu jeho relativni
Y-souradnici. Potom uz jenom staci "LineTo"
Nev�te pros�m nekdo jak to zjistit?
Predem d�ky moc
............Honza
PS: Pozice kurzoru me vlastne asi vubec nezaj�m�...> MS Word tak nejak naznacuje odkud bude zac�nat/koncit str�nka, kdyz se to
> vytiskne.
>
> Netu��te zde nekdo alespon priblizne jak by to slo resit v RxRichEditu ?
> /// v 2.60
>
> //ten probl�m s tiskem jsem tak nejak zaz�platoval, tiskne to jak m� a
> kdyby to nekdo chtel tak stac� r�ct
>
> Predem d�ky :-)
>
> .............................Honza
PARADOX
[*] delphi(zv)alf.dingo(tec)cz - 18.5.1999 10:06:45 gmt
Ahojte lidicky,
potreboval bych sehnat nejaky dokumenty pokud mozno v cestine.
Nevite kde? (Nejlepe el. podoba)
Diky.
Bob
String - PChar
[*] Michal Vojta <crawly(zv)iol(tec)cz> - 18.5.1999 12:11:28
Ahoj!
Potrebuji prevest String na PChar, existuje nejaka funkce?
Michal
QRReport /Preview/
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 18.5.1999 11:21:12
Cau,
mozna ze uz to tu bylo, mam jenom malou poznamecku k ty sr****
uvedene v %subj%:
pokud se Vam /jako me/ bude stavat, ze po kazdem! Preview se objevi
chyba "Access violation at adress... Read of address FFFFFF" /sender
class=TQRStandardPreview/, tak staci opravdu malo: presunout nejakou
komponentu na QR formulari nebo cutnout a vlepit zpatky apod... fakt
sranda, odzkouseno asi na peti ruznych sestavach /i zcela prazdnych/
a vzdy to fungovalo. A vhledem k tomu, ze se to stava az k veceru,
pricemz pocitac bezi bez skobrtnuti od rana, tak to oni u qusoftu asi
nepredpokladali, ze nekomu taky nemuseji co pul hodiny padat windcows
:-))
Preju prijemnou praci s QR...
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/String - PChar
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.1999 12:25:51
Melo by stacit jednoduse pretypovat
var S:string;
P:PChar;
begin
S:='Kuk na strejdu.';
P:=PChar(S);
end;> ----------
> Potrebuji prevest String na PChar, existuje nejaka funkce?
> String - PChar
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.5.1999 12:31:22
Haj hou!
> Potrebuji prevest String na PChar, existuje nejaka funkce?
Ano, PChar(tvujstring).
spustenie programu + jeden namet i dotaz navic
[*] Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz> - 18.5.1999 12:33:32
Namet
Pred nejakou dobou jsem resil obdobny problem pro 16bit prostredi v D1:
spousteni urcitych souboru v definovanem casovem okamziku. Musel jsem
vsak kontrolovat zda se spusteny proces po urcite dobe korektne ukonci.
Nepouzil jsem vsak ShellExecute, ale WinExec, ktery po spusteni vraci ID
pridelene spustenemu procesu, coz umoznilo sledovani behu spustene
aplikace pomoci funkce getmoduleusage.
Dotaz do konference:
Kdyz jsem zkousel aplikaci preklopit do D3, zjistil jsem, ze funkce
getmoduleusage nefunguje v 32bit prostredi (u mne konkretne ve WinNT). V
dokumentaci jsem nasel vysvetleni proc nemuze fungovat, ale neni tam
popsana ekvivalentni nahrada. Neresil nekdo z vas neco podobneho?
Diky Ivan p
ukazka pro 16bit
var
Pcharline: pchar;
id:integer;
Fsize:word;
begin
try
FSize:=length(ProgramkeSpusteni)+length(PripadneSpousteciParametry)+2;
Pcharline:=allocmem(FSize);
strpcopy(Pcharline,ProgramkeSpusteni+' '+PripadneSpousteciParametry);
id:=winexec(Pcharline,SW_SHOWNORMAL); {ID spusteneho procesu:integer }
{ V id se vraci bud cislo chyby spusteni <32, nebo cislo procesu }
{nasledujici smycka umoznuje testovat stav spusteneho procesu}
If id>=32 {spusteni se povedlo}
while getmoduleusage(id) > 0 do
begin
application.processmessages; {aby bezeli ostatni aplikace}
testnatimeout
end;
finally
freemem(szcline,FSize);
end;
>-----Original Message-----
>From: Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o.
>[SMTP:bonnel(zv)telecom(tec)cz]
>Sent: Tuesday, May 18, 1999 7:35 AM
>To: delphi-l(zv)fwd(tec)cz
>Subject: Re: spustenie programu
>
>Je ta knihovna IMAGEHLP nekde dokumentovana nebo zase pro oci nevidim ?
>Dival jsem se do User's i Developer's Guide, prohledaval jsem demos,
>help i zdrojove kody, kde jsem sice nasel imagehlp.pas, nicmene to je
>jen deklarace knihovny s tim, ze se vklada soubor imagehlp.h, ktery na
>disku ani na CD (D4.02 Prof) neni. Himbajs, kde ty informace, Petre,
>porad beres ? :-))
>
>Mira
>
>-----P�vodn� zpr�va-----
>Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 17. kv�tna 1999 15:04
>P�edm�t: Re: spustenie programu
>
>
>>
>>nebo pouzit jiz hotovou funkci z IMAGEHLP.DLL:
>>
>
>>Internet proti monopolu. Petr Vones, amatersky
>programator
>>* http://www.bojkot(tec)cz *
>>************************
>>
>>Vykreslovani formulare
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.5.1999 12:43:45
Haj hou!
> potreboval bych poradit jak lze zakazat vykreslovani na formular.
>
> Tedy, nejprve si vsechno vykreslim do pameti(?) a az jsem spokojeny tak
reknu ted a vsechno >se vykresli do okna na monitoru.
No, pokud nepotrebujes mit vsechno v rukach, pak staci ve formu nastavit
promennou FDoubleBuffered na TRUE, a dela se to samo (nejdriv do pameti a
pak vse najednou na obrazovku). FDoubleBuffered je protected promenna
TWinControlu (D3, nejspise i D4), takze na potomkovi TCustomFormu je rovnez
pristupna.
Pokud touzis mit vse pod kontrolou, tak budes mit spoustu prace. Podivej se
na implementaci
TWinControl.WMPaint a TCustomForm.WMPaint.
Hodne zdaru.
spustenie programu
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 18.5.1999 12:51:05
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. kv�tna 1999 11:05
P�edm�t: Re: spustenie programu
>V adresari ..\Delphi4\Source\Rtl\Win by jsi mel mit imagehlp.pas
(D4.03).
No jo, to jsem psal, ze jsem to nasel, ale to jsou jen deklarace
konstant, typu a hlavicek. Popis veskery zadny a vklada to imagehlp.h a
ten neexistuje ani na orig. CD.
>
>Takhle funkce je (kupodivu) popsana i ve Win32API helpu u Delphi. Lepsi
>je se ale podivat na MSDN:
>
>http://msdn.microsoft.com/library/sdkdoc/winbase/imagehlp_3u9f.htm
Zajimave je, ze tentokrat me help v D4 zklamal a tu funkci mi nenasel
(nebo jsem udelal nejakou botu), pokud se podivam primo do helpu k API,
opravdu to tam je, dokonce se tam zminuji o imagehlp, nicmene jakakoli
dalsi informace o tom, co je v imagehlp za dalsi funkce atd., to tam
neni. Me by spis zajimalo, jak se da vubec prijit na to, ze takova
funkce existuje :-))
Cau Mira
Detekce CD
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.1999 13:36:39
Label disku se da zjistit funkci FindFirst.
> ----------
>
> Tohle vypada moc nadejne, a jak zjistim label disku ? Diky.
> Undo,redo
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 18.5.1999 13:57:10
Ahoj vsichni,
udelat richedit1.undo bylo snadne, ale jak udelat undo na vic kroku a pak redo ?
Jde to ? A kdyz, kolik kroku to registruje ?
Diky za pripadne rady
Daniel Kminek
Et iritis sicut dii, scientes bonum et malum.
kminek(zv)mite(tec)cz
www.mite(tec)cz
RTF to HTML
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.1999 14:17:38
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Nekdo, uz nevim kdo shanel program na prevod
z RTF-ormatu do HTML-anguage. Neco jsem nahodou
nasel tady:
http://www.sinterphase.com/WHRhelputil.htm
konkretne jde o tento soubor:
ftp://sinterphase.com/pub/web78131/repository/r2hwin.zip
Dobra.
RTFtoHTML version 3.01
ZIP archive size: 29KB
Disk space needed: approx. 1 to 2MB
This is a scriptable DOS-style command line utility designed to convert
RTF documents to HTML. This release supports HTML 3.0 tables and some
Netscape/Internet Explorer extensions with documentation in HTML format.
Trialware from Chris Hector. (Single user licenses $29.00.)
Undo,redo
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 18.5.1999 14:17:03
> udelat richedit1.undo bylo snadne, ale jak udelat undo na vic kroku a pak
redo ?
> Jde to ? A kdyz, kolik kroku to registruje ?
Richedit umi jen jednourovnove undo. Doporucuju z RXLib TRXRichEdit. Ten umi
viceurovnove undo i redo.
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================== Jak spusti OnMouseDown
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 18.5.1999 14:19:14
Hallo,
cht�l bych vyvolat OnMouseDown, ale jaksi m�m probl�my s parametry ...
Va�ek
V�clav Lukes
0603-511247
Vaclav.Lukes(zv)pvt(tec)cz
Vykreslovani formulare
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 18.5.1999 13:32:56
Ahoj,
vim, jak to zakazat: staci odchytit WM_ERASEBKGND a _neprovest_
inherited. Povoleni by pak patrne znamenalo _provest_ inherited. Zkus
to, ja ted na to nemam cas.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Konference [SMTP:konference(zv)ecommerce(tec)cz]
> Odesl�no: 18. kv�tna 1999 11:55
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Vykreslovani formulare
>
> Ahoj,
>
> potreboval bych poradit jak lze zakazat vykreslovani na formular.
>
> Tedy, nejprve si vsechno vykreslim do pameti(?) a az jsem spokojeny
> tak reknu ted a vsechno se vykresli do okna na monitoru.
>
> Diky
>
> Ales
Komprimator EXE
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 18.5.1999 14:36:09
Ahoj
Nevite, prosim, nekdo o komprimatoru pro 16-bit. programy?
Potreboval bych nutne zkomprimovat 16-bit program v exe tvaru. V konferenci
se problem resil, ale uvedene komprimatory jsou patrne pouze pro 32-bit kod.
Dekuji
Jaro B.Opet PARADOX
[*] delphi(zv)alf.dingo(tec)cz - 18.5.1999 12:50:20 gmt
Hi,
prave se vrham do tabulek Paradoxu, ale mam problemy.
Nastavil jsem si validace k jednotlivym polim.
Ted otevru tabulku v komponente TTable a chci pridavat vety,
tak nadefinovane kriteria nefunguji.
napr. mam nastaven picture: {Prijem, Vydej}
ale vezme to i cokoliv jinyho.
Nevite, kde je chbyba?
Diky moc.
Bob
Komprimator EXE
[*] rdocekal(zv)csas(tec)cz - 18.5.1999 14:51:27
Hledej napr. Shrinker na
http://www.blinkinc.com
S pozdravem
Radek Docekal
<rdocekal(zv)csas(tec)cz> ICQ: 9008367
> Ahoj
> Nevite, prosim, nekdo o komprimatoru pro 16-bit. programy?
> Potreboval bych nutne zkomprimovat 16-bit program v exe
> tvaru. V konferenci
> se problem resil, ale uvedene komprimatory jsou patrne pouze
> pro 32-bit kod.
>
> Dekuji
> Jaro B.
> Detekce CD
[*] Lukas Marsalek ** student ** <MARSALEL.vos97(zv)vsps-su(tec)cz> - 18.5.1999 13:05:13
Tohle vypada moc nadejne, a jak zjistim label disku ? Diky.
> Od: Novak Josef <jnovak(zv)anect(tec)cz>
> Komu: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
> Vec: RE: Detekce CD
> Datum odesl�n�: Mon, 17 May 1999 17:10:20 +0200
> Post. program: Internet Mail Service (5.5.2448.0)
> Odpoved kam: delphi-l(zv)fwd(tec)cz
> Kazde zvukove CD m� ve jmenu disku napsano AUDIO.
> Novak
>
> > -----P�vodn� zpr�va-----
> > Od: Lukas Marsalek ** student ** [SMTP:MARSALEL.vos97(zv)vsps-su(tec)cz]
> > Odesl�no: 17. kvetna 1999 15:51
> > Komu: delphi-l(zv)fwd(tec)cz
> > Predmet: Re: Detekce CD
> >
> > > Datum odesl�n�: Wed, 12 May 1999 21:21:34 +0200
> > > Od: Petr Kundrata <pksoft(zv)atlas(tec)cz>
> > > Post. program: Mozilla 4.51 [en] (Win95; I)
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > Vec: Re: Detekce CD
> > > Odpoved kam: delphi-l(zv)fwd(tec)cz
> >
> > > Lukas Marsalek ** student ** wrote:
> > > >
> > > > AHoj vespolek,
> > > >
> > > > Nevite nekdo jak by se dalo v D3 zjistit, jestli je v mechanice
> > > > vlozeno zvukove nebo datove CD ? Priapadne, jestli je mechanika
> > > > otevrena ?
> > > > Kdyz jsem mel v programu tuhle konstrukci :
> > > > .
> > > > .
> > > > .
> > > > with MediaPlayer do
> > > > DataType := dtCDAudio;
> > > > Open;
> > > > Play;
> > > > .
> > > > .
> > > > .
> > > > tak Delphi ani nepoznalo, ze mam otevrenou mechaniku a tvarily se
> > > > jako ze to CD prehravaji. Cekal jsem nejakou chybovou hlasku, ale nic.
> > > > POtreboval bych, aby se vyhodila nejaka hlaska v pripade, ze v
> > > > mechanice neni zvukove CD. Mate najake napady ?
> > > >
> > > > Lukas
> > > Zkus to takhle:
> > >
> > > uses MMsystem;
> > >
> > > function mci(const S : string) : string;
> > > begin
> > > SetLength(Result,1000);
> > > mciSendString(PChar(S),//lpstrCommand,
> > > PChar(Result),Length(Result),//lpstrReturnString:
> > > PChar;uReturnLength: UINT;
> > > 0);//hWndCallback: HWND
> > > SetLength(Result,StrLen(PChar(Result)));
> > > end;
> > >
> > > ....
> > > mci('open mcicda.drv alias PM_CD');
> > > ShowMessageFmt( '%s'#13#10#13#10+
> > > 'M�dium pr�tomno: %s'#13#10+
> > > 'Identifikace: %s'#13#10+
> > > 'UPC: %s'#13#10+
> > > 'Pocet stop: %s'#13#10+
> > > 'Aktu�ln� stopa: %s'#13#10+
> > > 'D�lka: %s'#13#10+
> > > 'M�d: %s',[
> > > mci('info PM_CD product'),
> > >
> > > mci('status PM_CD media present'),
> > > mci('info PM_CD identity'),
> > > mci('info PM_CD upc'),
> > > mci('status PM_CD number of tracks'),
> > > mci('status PM_CD current track'),
> > > mci('status PM_CD length'),
> > > mci('status PM_CD mode')
> > > ]);
> > > mci('close PM_CD');
> > > ....
> > >
> > > Petr Kundrata
> > >
> >
> > A neco TROSICKU jednodussiho (treba jeden dva radky) neexistuje ???
> > Diky za snahu.
> >
> end user Report Builder, ??? OnLoadEnd ???
[*] Jansta Kv�toslav <KJ(zv)lcs(tec)cz> - 18.5.1999 15:23:03
��go,
tak mi po�li demo, a� se na to kouknu, jestli je to od
digital-metaphors.com tak demo m�m,
sp� by m� zaj�malo jestli n�kdo nev� jak tu v procedu�e
OnSaveEnd(Sender: TObject; aStream: TStream)
p�e�tu SReport : TppReport z aStream a po �prav� jeho vlastnost� ho korektn�
zase zap�u :
procedure OnSaveEnd(Sender: TObject; sStream: TStream);
var SReport : TppReport;
begin
SReport := TppReport.Create(nil);
sStream.ReadComponent(SReport);
(sStream as TMemoryStream).SaveToFile('c:\BeforeRead.txt');
// SReport.Name:='ReportSave';
(sStream as TMemoryStream).Clear;
sStream.WriteComponent(SReport);
(sStream as TMemoryStream).SaveToFile('c:\AfterWrite.txt');
SReport.Free;
end;
st�le se oba Streamy li�� .......... v prvn�m jsou znaky
00h nahrazeny 20h , bez jak�koli zm�ny,
kdy� zm�n�m n�jak� vlastnosti , tak tam je�t� n�jak� znaky p�id�, a pak p�i
n�sledn�m �ten� tiskov� p�edlohy
nev� co s t�m m� ud�lat ......----> EReadError 'Property dose not exist'
Nev� n�kdo co s t�m
??????????????????????????????????????????????????????????
d�ky za ka�dou radu
Sl�va . KJ(zv)lcs(tec)cz
> ----------
> Odes�latel: TUNGLI Jan[SMTP:tungli(zv)pvt.sk]
> Odpov�di: delphi-l(zv)fwd(tec)cz
> Odesl�no: 17. kv�tna 1999 8:19
> Komu: DELPHI Distribution List
> P�edm�t: end user Report Builder
>
> Chladam najaku firmu, ktora by chcela predavat moj SQL Report Builder,
> ktora umoznuje aj pre uzivatelov vytvarat reporty. Program dokonca
> umoznuje v run time programovat udalosti, menit SQLdotazy, modifikovat
> vlastnosti (properties) komponentov a vela ineho. Pripade seriozneho
> zaujmu mozem poslat demo.
> �
> TUNGLI� Jan
> tungli(zv)pvt.sk
> Kazdy formular jinak
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 18.5.1999 16:27:52
> mohu (v D4, SP3) nejak rict, aby se nektere unity prekladaly jako
> DLL a byly soucasti apliakce?
>
Unita se neda prelozit jako .DLL
DLL je projekt (.dpr), kde prvni slovo zni "library" misto "program".
Z DLL knihovny muzes pouze volat funkce a procedury.
Nemas primy pristup na promenne, konstanty, datove typy.
Chces-li v DLL naprogramovat formular, musis si (obvykle) udelat DLL knihovnu, ktera ma uses na nejakou unitu s formularem a jedinou funkci:
function ShowForm1: TModalResult; stdcall; export;
begin
with TForm1.Create(nil) do
try
Result:=ShowModal;
finally
Free;
end;
end;
a pak
exports ShowForm1;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================Paradox a validace
[*] tomas.mazurek(zv)vitkovice(tec)cz - 18.5.1999 15:19:47
Hello,
pokud je mi znamo a castecne i vyskouseno, validace typu PICTURE neni
funkcni, resp. neni podporovana. Ostatni - napr. max, min, default, table lookup a ref. int.
jsou OK.
Tomas
Neni centrovani jako centrovani
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.5.1999 18:39:18
Preji vsem pekneho dne,
nastavuji promennou formulare Position na poScreenCenter tak,
aby byl formular vycentrovan, coz se sice udela, formular je pekne
vycentrovany, ale bez ohledu na listu. Jak zaridit, aby se formular
centroval jen na obrazovce minus lista?
Predem dekuji za odpoved
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
CD-Romka a bily Verbatim...
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 18.5.1999 21:57:16
Ahoj,
metod vypalovani je vic, krom toho kazda mechanika a kazda vypalovacka ma
nastavenou jinak cteci hlavicku s nejakou vuli, ktera zajistuje cteni ruzne
vypalenych medii. Proto nektere mechaniky nedokazi cist zlate media (presto se
vam muze stat ze to nekdy je). Neda se s tim delat nic - tedy pokud si
nevezmete sroubovak a neponorite se do vnitrnosti (vrele nedoporucuji).
S pozdravem
Marek Soukup
M�ra Tom� wrote:
> Halloa ALL!
> Omlouvam se za ne-delphi dotaz....
> Mam takovou zajimovou CD-Romku (4X, GoldStar), kter� je asi 5 let stara. A
> nacita jenom orig.CD (audio,PC) a bile Verbatimy...jin� CD nenacte ani za
> mak...kdyby nenacitala ani ty Verbatimy, tak uz je davno v aute, ale tohle
> me mate...Nevite nahodou, cim by to mohlo byt a zda se s tim da n�co udelat
> (krome vyhozeni :o) ?
>
> Dankuju....Tma
Jak spusti OnMouseDown
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:35:46
Lukes V�clav wrote:
>
> Hallo,
>
> cht�l bych vyvolat OnMouseDown, ale jaksi m�m probl�my s parametry ...
Ahoj,
A k cemu potrebujes vyvolavat tuto udalost programove ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Vykreslovani formulare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:36:45
Konference wrote:
>
> Ahoj,
>
> potreboval bych poradit jak lze zakazat vykreslovani na formular.
>
> Tedy, nejprve si vsechno vykreslim do pameti(?) a az jsem spokojeny tak reknu ted a vsechno se vykresli do okna na monitoru.
Ahoj,
V zasade mas dve moznosti:
1. Vykreslovat vse do pametove bitmapy (zvlaste v pripade ze se jedna o
slozitejsi kresbu ktera se dele vykresluje) a tuto bitmapu kopirovat
pri pozadavku na prekresleni do formulare. Timto zpusobem pracuje
napriklad komponenta TImage.
2. Pouze omezit neprijemne rusive efekty pri kazdem pozadavku o prekresleni
napriklad nastavenim DoubleBuffered jak uz ti radil Pavel Cisar. V tomto
pripade nepotrebujes zadnou pametovou bitmapu, protoze ta se vytvori a
pak zrusi pri kazdem pozadavku na prekresleni formulare kodem VCL.
Rozdil mezi obema pristupy spociva v tom, ze v prvnim pripade se do bitmapy
v pameti vykresli slozitejsi kresba a pri naslednych pozadavcich o vykresleni
formulare se bude jen kopirovat obsah, coz je velmi rychle. V druhem pripade
bude vykreslovani kresby volano pri kazdem pozadavku na prekresleni coz muze
znacne zpomalovat celou aplikaci. Zalezi tedy na tom k cemu to potrebujes.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
spustenie programu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:38:53
"Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o." wrote:
> >Takhle funkce je (kupodivu) popsana i ve Win32API helpu u Delphi. Lepsi
> >je se ale podivat na MSDN:
> >
> >http://msdn.microsoft.com/library/sdkdoc/winbase/imagehlp_3u9f.htm
>
> Zajimave je, ze tentokrat me help v D4 zklamal a tu funkci mi nenasel
> (nebo jsem udelal nejakou botu), pokud se podivam primo do helpu k API,
> opravdu to tam je, dokonce se tam zminuji o imagehlp, nicmene jakakoli
Ahoj,
Delphi Help (z IDE) nenajde obvykle nic, musis vzdy hledat v prislusnem
helpu primo (Win32API, MAPI, MMSystem, Winsock2 ...).
> dalsi informace o tom, co je v imagehlp za dalsi funkce atd., to tam
> neni. Me by spis zajimalo, jak se da vubec prijit na to, ze takova
> funkce existuje :-))
No, tezko rict, ale asi jen casem :-) Napriklad studovanim ruznych prikladu
a podobne. Nekdy na to narazis ciste nahodou (vetsinou kdyz hledas neco uplne
jineho :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Kazdy formular jinak
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:38:15
Slavek Rydval wrote:
>
> Preji vsem pekneho dne,
>
> mohu (v D4, SP3) nejak rict, aby se nektere unity prekladaly jako
> DLL a byly soucasti apliakce?
>
> Potrebuji udelat aplikaci, kdy pak zakaznikum budu davat jiz jen
> napriklad opraveny formular (typicky jedno DLL). Mohl bych to sice
> prekladat oddelene, ale spousta formularu a unit vyuziva napr.
> datovy modul.
Ahoj,
Jelikoz mas D4 ve kterem jsou uz packages, tak muzes vytvorit jednotlive
formulare jako balicky a ty pak dynamicky nahravat do tve aplikace. Je to
snadnejsi nez vytvaret formulare jako DLL.
Priklad "Dynamically loaded package demo" najdes tady:
http://www.borland.com/devsupport/delphi/downloads/index.html
V tom prikladu (on je puvodne pro D3) si pak uprav priponu balicku na *.bpl
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Ikony v ListView na =?iso-8859-2?Q?st=F8ed?=
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:38:27
Lukes V�clav wrote:
>
> Hi,
>
> m��ete mi pros�m n�kdo poradit, jak v ListView dostanu ikony na st�ed ?
Ahoj,
Zkus vice popsat co tim mas namysli, jak presne na stred ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Hanle okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:40:59
Martin Lasevic wrote:
>
> Hi all,
>
> mam problem. Pri modularni strukture nasi aplikace obcas dojde k tomu, ze
> po havarii nektereho modulu ( vypadek, chyba) zustane nektera sekce "viset"
> s privlastkem [ aplikace
> neodpovida].
Ahoj,
To neni dobra chyba.
> Lze takto zjistit, handle tohoto okna?
Myslis okna systemu ze ktereho pak muzes aplikaci definitivne odstrelit, nebo
handle okna te aplikace ktera se zasekla ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
mixer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:44:51
Roman wrote:
>
> Ahojte,
> potreboval bych poradit, anebo nakopnout v jedne veci, doufam, ze to
> neni moc offtopic :-)
> pomoci MM_MIXM_CONTROL_CHANGE odchytavam ruzne zmeny v nastaveni
> mixeru a podle toho upravuju vselijaky ty hejblatka v mem okne,
> problem je, kdyz se zmeni zdroj nahravani /treba z line na mic
> apod./: ze ziskanych parametru dokazu zjistit, ze se jedna o Rec Line
> onoho mixeru a ze vybrane zarizeni je WaveIn, coz je samozrejme
> pravda, jenze ja uz vazne nevim, ja z toho dostat informaci o
> komponentne, ktera byla ve skutecnosti vybrana...
Ahoj,
A jakou informaci o ni potrebujes ? Nazev ktery se zobrazuje v mixeru ?
> a vubec, existuje nejaky dobry zdroj co se tyka MM pod WinXX?
Napriklad help - mmedia.hlp dodavany s Delphi a potom samozrejme MSDN.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Tab order dialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:46:15
> TUNGLI Jan wrote:
>
> Je mozne v Run Time vyvolat Tab Order Dialog Box ?
Ahoj,
Tezko, ten dialog bude soucasti Delphi IDE. Ale muzes si napsat vlastni
ktery bude toto delat za behu aplikace.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
MSVC++ kniznica a BorlandBuilder 4.0
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.1999 22:49:55
Hapak Vladimir wrote:
>
> Poradte mi prosim postup, ako mam prilinkovat kniznicu vytvorenu vo
> MSVC++ k BCB 4.0. Mate niekto s tym skusenosti, teda myslim skusenosti so
> zaludnostami, ktore vyvstavaju. Konkretne som chcel prilinkovat kniznicu,
> ktora bola staticky zlinkovana s MFC.
Ahoj,
Neco takoveho jsem zkousel (v trial verzi BCB4) a dopadlo to neslavne. Nebylo
to schopno pouzit dany format souboru. Zkusil jsem pouzit konverzni utilitu
COFF2OMF a vysledkem byla prazdna knihovna :-) Vic by k tomu asi vedel Standa
Kolar, pokud je jeste tady v konferenci.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jak spustit z prg. word.sablonu, aby Word otevrel
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 19.5.1999 03:58:00 pdt
Nejsem bohuzel tad u pocitace s delphi, tak to nemuzu vyzkouset.
Ale pokud si pamatuji tak se pouzije
Word.FileNew(JmenoSablony)
Je to nepovinny parametr.
Ty asi pouzivas Fileopen a tan skutecne otevre k editaci tu sablonu.
Karel Vlcek
===========================
poskytovani software
GSM : ++420 602 264812
mailto: Vlcekk(zv)hotmail.com
===========================>From: Tomas Andrasko <tomas.andrasko(zv)asei(tec)cz>
>Reply-To: delphi-l(zv)fwd(tec)cz
>To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
>Subject: Jak spustit z prg. word.sablonu, aby Word otevrel DOC nad touto
>sablonou ?
>Date: Wed, 19 May 1999 10:24:50 +0200
>
>Vazeni pratele,
>skousim podruhe,
>Mam problem, ktery neumim vyresit.
>Potrebuji spustit z programu v D4 MS Word, jako parametr mu predat
>sablonu, napr. "faktura.dot" a chci, aby mi Word otevrel novy dokument.
>Ale on mi porad otevira k editaci tu sablonu. Pritom kdyz tuto sablonu
>spustim z Pruzkumnika, tak se otevre "dokument1.doc", coz chci, ale z
>prg. Zkousel jsem ShellExecute i WinExec, a to nejak nechce fungovat.
>
>Vite nekdo, jak na to ???
>
>Predem dekuji
>Tomas Andrasko
>tomas.andrasko(zv)asei(tec)cz
>
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
MIDAS, BDE, WinBAse602 engine WDE, programatori so
[*] Josef Slan� <slany(zv)fpozn(tec)cz> - 19.5.1999 06:21:15
Dobry den,
chtel bych se zeptat, v jakem stavu vyvoje jsou momentalne Vase komponenty
pro pristup k WinBase. Vzhledem k tomu, ze jsme tento SQL server vcera
zakoupili, mel bych znacny zajem o vyzkouseni a pripadne zakoupeni.
Rad bych otestoval i beta verzi.
Dekuji za odpoved,
Josef Slany
slany(zv)fpozn(tec)cz
> -----P�vodn� zpr�va-----
> Od: iturcan(zv)gamo.sk [mailto:iturcan(zv)gamo.sk]
> Odesl�no: 29. ledna 1999 8:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Re: MIDAS, BDE, WinBAse602 engine WDE, programatori sobe
>
>
>
>
> >Ono je to nekde k dispozici? Ja mam SDK, kde jsou akorat komponenty
> >zapouzdrujici WB jako celek, nikoliv na urovni DataSetu. Primo na
> >hotline jsem se dozvedel, ze neco takoveho, jako nativni WB dataset je v
> >nedohlednu
>
>
> Ako som uz napisal pripravujem komponenty k priamemu pristupu k WinBase, v
> sucasnosti je vyvynuta beta verzia s ktorou som zacal vyvyjat jadro svojej
> aplikacie, a postupnym vyvojom budem komponenty upravovat. Balik obsahuje
> zatial dve zverejnene komponenty TWDatabase na pripojenie k databaze a k
> aplikacii a komponentu TWQuery (predok TDataSet , vzhladom na zachovanie
> kompatibility z TDataSource) ktora je obdobou TQuery . (nezverejnene su
> komponenty TWTable a TWCursor). Podporujem
> datove typy : Boolean, Char, ShortInt,Integer,Money,Real,String, CSString,
> CSIString,Binary,Date,Time,TimesTamp, Text, Raster,Ole. Sledovacie
> atributy zatial nepodporujem.
> Podporovane su zakladne fn. Filter, Vyhladavanie,... (Zatial nie je
> podporovane Param. Query, bude cca. o tyzden). Ak by niekto
> prejavil zaujem
> o tieto komponenty tak mu zaslem beta verziu na testovanie.
>
> O vyvoji tychto komponent vie zo Software602 p. Drozd (jeden zo
> spoluautorov WinBase602) a p. Sixta
> s ktorimi konzultujem niektore problemi.
>
>
> Ivan Turcan
> GAMO a.s.
>
>
>
>
Muze spolupracovat Delphi se serverem Apache?
[*] Standa Kunc <obkstan(zv)obaka-karvina(tec)cz> - 19.5.1999 07:01:31
Dobry den,
nedavno jsem si nainstaloval server Apache pro W95 a zajimalo by mne, zda bych si nemohl vytvorit nejaky program v Delphi a pak to pouzit primo na serveru.
A druhy dotaz. Mohl bych pouzit Apache jako intranetovy server ve sdilene siti, tzn. sit bez serveru?
Prede dik za odpoved...
S. Kunc - obkstan(zv)obaka-karvina(tec)cz
FONT
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 19.5.1999 07:06:23
Ahoj, p�ed �asem jsem se ptal, jestli n�hodou n�kdo nezn� form�t soubor�
rastrov�ho p�sma pro windows, anebo m�sto, kde jej z�skat. Proto�e kde
nic tu nic, zkou��m to znovu.
D�ky, Adam.ActiveX- Graph
[*] Martin Bobak <bobak(zv)minv.sk> - 19.5.1999 07:25:24
Dakujem za radu,mate u mna pivo :o))
-----Original Message-----
From: Ing. Jaroslav K�e�ek <grafex(zv)iol(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 17. m�j 1999 17:39
Subject: Re: ActiveX- Graph
>Pro prekresleni grafu je potreba
> Graph1.DrawMode := 2;
>A to v realtime, pro kazde prekresleni, nehlede na to, jaka hodnota
DrawMode
>byla nastavena.
>
>Vice viz help ocx\graph.hlp
> 2 (Default) At design time, this redraws your graph every time you
change
>a property. At run time, resetting DrawMode to 2 causes the graph to be
>redrawn.
>
>Taky jsem na to prichazel dlouho.
>
>Jaroslav Krecek
>**********************************************
> Ing. Jaroslav K�e�ek
>-------------------------------------------------------------
> GRAFEX - software �it� na m�ru
> - hardware pro Va�e pot�eby
>-------------------------------------------------------------
>http://web.iol(tec)cz/grafex
>mailto:grafex(zv)iol(tec)cz
>-------------------------------------------------------------
>tel + SMS: +420.603.226103
>tel + fax: +420.327.761992
>**********************************************
>
> -----P�vodn� zpr�va-----
> Od: Martin Bobak <bobak(zv)minv.sk>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 13. kv�tna 1999 13:39
> P�edm�t: ActiveX- Graph
>
>
> Vazeny kto mi vie poradit ako prekreslovat ActiveX graf (TGraph) po
>zadani novych hodnot, totizto pri spusteni aplikacie sa graf vykresli ale
>ked mu priradim nove hodnoty neprekresluje sa. Vopred thx..........
>
> Martin
>Variant
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.5.1999 07:41:35
Ahoj all,
narazil jsem na takovyto problem. Mam funkci, ktera ma deklaraci
pole variantu:
function GetRowset(
...
(* [size_is][in] *) const rgRestrictions : Variant;
//!!const VARIANT __RPC_FAR rgRestrictions[ ] //to je v C
...
V C++ se pole deklaruje takto:
VARIANT rgRestriction[rozsah];
pak se naplni, nacpe se do funkce a je to OK. Pole se plni retezci
PWideChar.
Ja jsem zkousel array of Variant, zkousel jsem na to i
VarArrayOf(['...', '....']), cpal jsem do variantu primo pres TVarData
PWideChar, ale nic nezabiralo. Podarilo se nekomu podobny
problem vyresit?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Neni centrovani jako centrovani
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 19.5.1999 06:46:10
Zde je jeden ze starsich prispevku, kde se zjistuje velikost taskbaru,
tak si to uprav jak potrebujes:
> -----Original Message-----
> From: Michal Leinweber [SMTP:M.Leinweber(zv)sh.cvut(tec)cz]
> Sent: Friday, January 16, 1998 11:42 PM
> Subject: Re: Rozmery aktivni plochy desktopu
>
> >Pred casem jsem se ptal jak zjistit velikost aktivni plochy desktopu.
> >Na zaklade odpovedi Zdenka Petruje jsem dospel zatim k castecnemu
> >reseni. Moje reseni neni az tak dlouhe, tak jej posilam do
konference.
>
>
> Tak sem se na to podival a dospek sem uplnemu reseni:
>
> X := GetSystemMetrics(SM_CXFULLSCREEN);
> Y:= GetSystemMetrics(SM_CYFULLSCREEN)+GetSystemMetrics(SM_CYCAPTION);
>
> Vyzkouseno pod NT i 95 a reguje i na AutoHide TaskBar.
>
> McLEI
Zdravim
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Slavek Rydval [SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 18. kv�tna 1999 18:39
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Neni centrovani jako centrovani
>
> Preji vsem pekneho dne,
>
> nastavuji promennou formulare Position na poScreenCenter tak,
> aby byl formular vycentrovan, coz se sice udela, formular je pekne
> vycentrovany, ale bez ohledu na listu. Jak zaridit, aby se formular
> centroval jen na obrazovce minus lista?
>
> Predem dekuji za odpoved
>
> Slavek
>
>
> ----------------------------------------------------------------------
> ------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> ----------------------------------------------------------------------
> ------
Variant
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 19.5.1999 08:13:33
Skus VarArrayCreate.
M.
Zbysek Hlinka wrote:
>
> Ahoj all,
>
> narazil jsem na takovyto problem. Mam funkci, ktera ma deklaraci
> pole variantu:
>
> function GetRowset(
> ...
> (* [size_is][in] *) const rgRestrictions : Variant;
> //!!const VARIANT __RPC_FAR rgRestrictions[ ] //to je v C
> ...
>
> V C++ se pole deklaruje takto:
> VARIANT rgRestriction[rozsah];
>
> pak se naplni, nacpe se do funkce a je to OK. Pole se plni retezci
> PWideChar.
>
> Ja jsem zkousel array of Variant, zkousel jsem na to i
> VarArrayOf(['...', '....']), cpal jsem do variantu primo pres TVarData
> PWideChar, ale nic nezabiralo. Podarilo se nekomu podobny
> problem vyresit?
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
cestina podruhe....
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 19.5.1999 08:19:25
Halloa ALL!
Jelikoz se muj minuly dotaz minul ucinkem, zkousim to je�t� jednou....
Nevite nahodou n�kdo, zda-li existuje cesky help pro D3 nebo D4? Pripadne
kde ho zchrastit....Dik. ByE.mixer
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 19.5.1999 07:23:59
> Roman wrote:
> >
> > Ahojte,
> > potreboval bych poradit, anebo nakopnout v jedne veci, doufam, ze to
> > neni moc offtopic :-)
> > pomoci MM_MIXM_CONTROL_CHANGE odchytavam ruzne zmeny v nastaveni
> > mixeru a podle toho upravuju vselijaky ty hejblatka v mem okne,
> > problem je, kdyz se zmeni zdroj nahravani /treba z line na mic
> > apod./: ze ziskanych parametru dokazu zjistit, ze se jedna o Rec Line
> > onoho mixeru a ze vybrane zarizeni je WaveIn, coz je samozrejme
> > pravda, jenze ja uz vazne nevim, ja z toho dostat informaci o
> > komponentne, ktera byla ve skutecnosti vybrana...
>
> Ahoj,
>
> A jakou informaci o ni potrebujes ? Nazev ktery se zobrazuje v mixeru ?
... no, treba :-) ono to je celkem jedno jakou informaci /nazev, id/,
jenom potrebuju vedet ten zpusob, kterym se dozvim, ze zrovna nekde
nekdo vybral tu a tu komponentu pro RecIn
dik moc, jestli vis jak na to!
> > a vubec, existuje nejaky dobry zdroj co se tyka MM pod WinXX?
>
> Napriklad help - mmedia.hlp dodavany s Delphi a potom samozrejme MSDN.
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky programator
> * http://www.bojkot(tec)cz *
> ************************
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://nwinfo1.vsb(tec)cz/~.l96955.sti.fei/MIDAS, BDE, WinBAse602 engine WDE, programatori so
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 19.5.1999 08:51:04
Vazeny pan Slany,
Komponenty su v stave tesne pred dokoncenim, momentalne pripravujem jeden
demonstracny priklad, ale pokial mate zaujem
mozem Vam poslat momentalnu beta verziu bez demo prikladu zo strucnym
popisom .
Ak poznate Delphi a pouzivali ste niekedy komponenty TDatabase,
TTable,TQuery tak iste nebudete mat problemi, pretoze
tieto komponenty umoznuju takmer vsetky vlastnosti tychto komponent a
samozrejme mnozstvo inych, sprava WB servra,
podpora master/detail, parametricke query,...
Na zaver jedno upozornenie komponenty podporuju Delphi 4 ( od verziie
Standard) a su testovane na WinBase 6.0
S pozdravom
Ivan Turcan
Ivan Turcan
Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase )
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
GAMO a.s.
Slovakia
"Josef Slan�" <slany(zv)fpozn(tec)cz> on 19.05.99 06:21:15
Please respond to delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
cc: (bcc: Ivan Turcan/BBA/GAMO)
Subject: RE: Re: MIDAS, BDE, WinBAse602 engine WDE, programatori sobe
Dobry den,
chtel bych se zeptat, v jakem stavu vyvoje jsou momentalne Vase komponenty
pro pristup k WinBase. Vzhledem k tomu, ze jsme tento SQL server vcera
zakoupili, mel bych znacny zajem o vyzkouseni a pripadne zakoupeni.
Rad bych otestoval i beta verzi.
Dekuji za odpoved,
Josef Slany
slany(zv)fpozn(tec)cz
> -----P�vodn� zpr�va-----
> Od: iturcan(zv)gamo.sk [mailto:iturcan(zv)gamo.sk]
> Odesl�no: 29. ledna 1999 8:05
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Re: MIDAS, BDE, WinBAse602 engine WDE, programatori sobe
>
>
>
>
> >Ono je to nekde k dispozici? Ja mam SDK, kde jsou akorat komponenty
> >zapouzdrujici WB jako celek, nikoliv na urovni DataSetu. Primo na
> >hotline jsem se dozvedel, ze neco takoveho, jako nativni WB dataset je v
> >nedohlednu
>
>
> Ako som uz napisal pripravujem komponenty k priamemu pristupu k WinBase,
v
> sucasnosti je vyvynuta beta verzia s ktorou som zacal vyvyjat jadro
svojej
> aplikacie, a postupnym vyvojom budem komponenty upravovat. Balik obsahuje
> zatial dve zverejnene komponenty TWDatabase na pripojenie k databaze a k
> aplikacii a komponentu TWQuery (predok TDataSet , vzhladom na zachovanie
> kompatibility z TDataSource) ktora je obdobou TQuery . (nezverejnene su
> komponenty TWTable a TWCursor). Podporujem
> datove typy : Boolean, Char, ShortInt,Integer,Money,Real,String,
CSString,
> CSIString,Binary,Date,Time,TimesTamp, Text, Raster,Ole. Sledovacie
> atributy zatial nepodporujem.
> Podporovane su zakladne fn. Filter, Vyhladavanie,... (Zatial nie je
> podporovane Param. Query, bude cca. o tyzden). Ak by niekto
> prejavil zaujem
> o tieto komponenty tak mu zaslem beta verziu na testovanie.
>
> O vyvoji tychto komponent vie zo Software602 p. Drozd (jeden zo
> spoluautorov WinBase602) a p. Sixta
> s ktorimi konzultujem niektore problemi.
>
>
> Ivan Turcan
> GAMO a.s.
>
>
>
>Handle okna
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 19.5.1999 09:16:08
>Myslis okna systemu ze ktereho pak muzes aplikaci definitivne odstrelit, nebo
>handle okna te aplikace ktera se zasekla ?
Myslim ti handle okna, ktere se kouslo a ktere se musi odstrelit rucne. Jde mi v podstate o to,
ze pokud se tekoveto okno kousne, zablokuje i Session a pri novem startu se jiz aplikace
kousne. Bohuzel ani TP Inprise ( p. Zeleny) nam nebyl schopen poradit, jestli existuje nejaky
parametr, kterym bych si mohl nahodit nejaky TimeOut pro nahozeni property Active u TSession.
Takze jedina sance, jak toto detekovat, je hledani oken urcitych trid.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Odeslano: 18. kvitna 1999 22:41
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Hanle okna
Martin Lasevic wrote:
>
> Hi all,
>
> mam problem. Pri modularni strukture nasi aplikace obcas dojde k tomu, ze
> po havarii nektereho modulu ( vypadek, chyba) zustane nektera sekce "viset"
> s privlastkem [ aplikace
> neodpovida].
Ahoj,
To neni dobra chyba.
> Lze takto zjistit, handle tohoto okna?
Myslis okna systemu ze ktereho pak muzes aplikaci definitivne odstrelit, nebo
handle okna te aplikace ktera se zasekla ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jak do TDBGrid udelat multiline?
[*] j.binder(zv)albacon(tec)cz - 19.5.1999 09:31:07
Na DSP jsem zahledl komponentu dbgrideh (vcetne zdroju) , ktera
myslim dela to co je zde zadano. Prikladam citaci z dokumentace.
jiri binder
Allow to create title on several columns (multititle mode) or on the
whole
grid.
Allow to show a fotter row(s). Opportune to use in combination
with TDBSumList.
Allow automatically fit columns width to set grid width equal client
width
Allow change row height and title height
Allow automatically broken a long lines between words in title and
data rows
Title can act as buttons and show sort marker
Allow truncate long text by ellipsis
Lookup list can show several fields
Frozen columns
Info o DLL, EXE (16 bit moduly)
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 19.5.1999 09:00:31
Ahojte vsetci,
Zistit info o DLL a EXE o 32 bit moduloch viem (isiel som cez API f-cie
GetFileVersionInfoSize, GetFileVersionInfo, VerQueryValue), ale chyti mi to
len 32 bit moduly. V helpe sa vyslovne uvadza, ze vsetky tri f-cie "works
only with Win32 file images", ale nic som tam nenasiel o tom, ake
alternativne API f-cie pouzit na 16 bit moduly. Ze by som uz takmer uplne
oslepol, ze nic nevidim? Ved nieco na to v API predsa musi byt.
Prosim Vas o radu, ako zistim informacie o DLL, EXE o 16 bit moduloch -
napr: 'CompanyName', 'FileDescription', 'FileVersion',... Keby ste ma
prosim naviedli, aspon kde mam zacat...
Diky,
Jano Jakub jj_delphi(zv)ke.ubp.sk
Presipaci hodiny
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 19.5.1999 10:10:26
Ahoj,
tak trochu mimo DELPHI
mam pocitac s CELERONEM 333A a po najeti na nejakou akci, ktera nahodi kurzor do tvaru presipacich hodin se stane to, ze kurzor zustane ve tvaru presipacich hodinek. Az po najeti na plochu (ani nemusim mackat mys) se kurzor vrati do tvaru sipky.
Co s tim a setkal se uz s tim kdosi.
Diky za pomoc....
Pekny den preje
Pavel ZIDEK
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Jak spustit z prg. word.sablonu, aby Word otevrel
[*] Tomas Andrasko <tomas.andrasko(zv)asei(tec)cz> - 19.5.1999 10:24:50
Vazeni pratele,
skousim podruhe,
Mam problem, ktery neumim vyresit.
Potrebuji spustit z programu v D4 MS Word, jako parametr mu predat
sablonu, napr. "faktura.dot" a chci, aby mi Word otevrel novy dokument.
Ale on mi porad otevira k editaci tu sablonu. Pritom kdyz tuto sablonu
spustim z Pruzkumnika, tak se otevre "dokument1.doc", coz chci, ale z
prg. Zkousel jsem ShellExecute i WinExec, a to nejak nechce fungovat.
Vite nekdo, jak na to ???
Predem dekuji
Tomas Andrasko
tomas.andrasko(zv)asei(tec)cz
Fullscreen
[*] delphi(zv)email(tec)cz - 19.5.1999 10:31:49
Potreboval bych se zeptat, jak se da v Delphi menit za chodu rozliseni +
barevna hloubka.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Nekolik dotazu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 19.5.1999 10:53:23
Ahoj,
jiz pred casem jsem se poptaval, ale zrejme se s tim nikdo zatim nesetkal,
tak to zkousim znovu s par dotazy:
1/ Jak nahradit standardni kurzor windows v Screen.Cursors[crArrow]
kurzorem jinym, vlastnim tj. pro celou moji aplikaci. Me to nejde.
2/ Jak pouzit TTF font, ktery je ulozeny v RES souboru.
3/ Jak uchopim mysi treba ikonu tak, aby se stala polopruhlednou a mohl jem
s ni pohybovat pri tazeni.
4/ Jak nastavit kurzor pro mys na ListBoxu, aby se mi zobrazoval spravne
jeji vlastni kruzor (pro uziti vlastniho kurzoru mysi komponenty je
vyzadovano nastaveni globalne crDefault viz. 1/), specialne je-li listbox na
panelu a panel a listbox maji kurzor nastaveny napr. na Cursor:=1, pak obrys
listboxu pri prejeti mysi se meni na crDefault tj. nedrzi nastaveni pro
listbox (stejne je i pro crIBeam).
5/ Jak obnovit ikonu na liste aplikaci? Stava se mi, ze aplikace startuje s
implicitni ikonou jako je na tlacitku START a teprve po minimalizaci a
obnoveni mi tam naskoci skutecna ikona aplikace. Lze to resit uz pri
nastaveni pred startem aplikace v DPR? Kde lze nalezt vyznamy pro wStyle
jako je ws_Caption tj. k cemu presne slouzi?
Var wStyle:LongInt;
begin
wStyle:=getWindowLong(Application.Handle,GWL_Style);
wStyle:=wStyle or ws_Caption;
setWindowLong(Application.Handle,GWL_Style,WStyle);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
6/ Jak lze s RxSpeedBar pohybovat podobne jako je to u jinych aplikaci, kde
je, obvykle vlevo, takovy svisly jednoduchy nebo dvojity uchyt/madlo. S tim
souvisi i dalsi otazka, proc se nekdy (u Win98) stava ze pri aranzovani
tlacitek na RxSpeedBar tlacitka pri sebemensim pokusu o tazeni hned zmizi?
Dekuji za kazdou radu
Jaro B.Komprimator EXE
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 19.5.1999 10:57:10
Ahoj
Zkusil sem demo shrinkeru, ale komprimovany program se zakousl, aspack
(diky V. Albrechtovi) je jen na 32 bitove programy
Jaro B.
> -----P�vodn� zpr�va-----
> Od: rdocekal(zv)csas(tec)cz [SMTP:rdocekal(zv)csas(tec)cz]
> Odesl�no: 18. kv�tna 1999 14:51
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Komprimator EXE
>
> Hledej napr. Shrinker na
> http://www.blinkinc.com
>
> S pozdravem
> Radek Docekal
> <rdocekal(zv)csas(tec)cz> ICQ: 9008367
>
> > Ahoj
> > Nevite, prosim, nekdo o komprimatoru pro 16-bit. programy?
> > Potreboval bych nutne zkomprimovat 16-bit program v exe
> > tvaru. V konferenci
> > se problem resil, ale uvedene komprimatory jsou patrne pouze
> > pro 32-bit kod.
> >
> > Dekuji
> > Jaro B.
> > Jak spustit z prg. word.sablonu, aby Word otevrel
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 19.5.1999 11:08:58
>Pritom kdyz tuto sablonu spustim z Pruzkumnika,
>tak se otevre "dokument1.doc"
V tom pripade se podivej jak je provedena asociace
na typ *.dot udelej to stejne tak.
Dobra.
> ----------
> Od: Tomas Andrasko[SMTP:tomas.andrasko(zv)asei(tec)cz]
> Odesl�no: 19. kv�tna 1999 10:24
> Komu: Konference Delphi
> P�edm�t: Jak spustit z prg. word.sablonu, aby Word otevrel DOC
> nad touto sablonou ?
>
> Mam problem, ktery neumim vyresit.
> Potrebuji spustit z programu v D4 MS Word, jako parametr mu predat
> sablonu, napr. "faktura.dot" a chci, aby mi Word otevrel novy
> dokument.
> Ale on mi porad otevira k editaci tu sablonu. Pritom kdyz tuto sablonu
> spustim z Pruzkumnika, tak se otevre "dokument1.doc", coz chci, ale z
> prg. Zkousel jsem ShellExecute i WinExec, a to nejak nechce
> fungovat.
> Nacteni QReportu a tisk
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 19.5.1999 10:30:12
Ahoj vsichni.
Potrebuji v programu nacist a vytisknout sestavu,
ktera byla v preview ulozena do souboru.
Mam na to nasledujici kod:
procedure Tisk;
var
QRPrn: TQRPrinter;
begin
QRPrn:=TQRPrinter.Create;
QRPrn.Load('c:\sestava.rep');
QRPrn.FirstPage:=1;
QRPrn.LastPage:=1;
QRPrn.Print;
QRPrn.Free;
end;
Tohle funguje v poradku, ale tiskne to vzdy CELOU
sestavu, ne jenom prvni stranku.
Poradi nekdo co s tim ?
Marian Jonas
Fullscreen
[*] PLETICHA Ji�� - 19.5.1999 11:50:46
[P��loha v souboru: resize.zip]
Ahojky,
mel jsem stejny prolem, minule mi nekdo poradil aresuna sourse k delphi,
pak jsem to predelal a vzniknul maly programek - vypise mozne rozliseni s
hloubkou, pamatuje si i puvodni a po otestovani vraci rozliseni zpet...
P.S.: Nevite jak menit nastaveni u dvou monitoru jak je podporuji 98???
Oce(zv)niC
-----------------------------
oceanic(zv)muzatec(tec)cz
pleticha(zv)kol1.kole.ujep(tec)cz
http://oceanic.kolej.ujep(tec)cz
ICQ: 20084514
-----------------------------
zkusebni provoz kolejniho radia
WinAMP -> OPEN URL -> 195.113.139.65:8000
-----------------------------
-----P�vodn� zpr�va-----
Od: delphi(zv)email(tec)cz <delphi(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. kv�tna 1999 11:21
P�edm�t: Fullscreen
>Potreboval bych se zeptat, jak se da v Delphi menit za chodu rozliseni +
>barevna hloubka.
>
>--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
>--- http://email(tec)cz <--- Get Your Free Email
>Tab order dialog
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 19.5.1999 12:18:54
No nie je to take jednoduche, aspon nie pre mna.
Napr. TLabel nema vlastnost TabOrder, ale pritom tabulator krasne prechadza
medzi TLabel komponenty pri navrhu formulara a podobne to chcem aj ja ale v
RunTime.
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. m�j 1999 23:23
P�edm�t: Re: Tab order dialog
>> TUNGLI Jan wrote:
>>
>> Je mozne v Run Time vyvolat Tab Order Dialog Box ?
>
>Ahoj,
>
>Tezko, ten dialog bude soucasti Delphi IDE. Ale muzes si napsat vlastni
>ktery bude toto delat za behu aplikace.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
>vypoctene udaje
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 19.5.1999 12:19:59
Potreboval bych vytvorit dynamicky kopii
perzistentniho objektu TDataSet i s vypoctenymi udaji.
Lze vubec, a jak, pridat vypocteny TField do TDataSet.Fields,
kdyz DefaultFields=TRUE?
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
Jak spusti OnMouseDown
[*] Oldrich Nic <nico(zv)feld.cvut(tec)cz> - 19.5.1999 10:20:33 met-1mest
From: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
To: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
Subject: Jak spusti OnMouseDown
Date sent: Tue, 18 May 1999 14:19:14 +0200
Send reply to: delphi-l(zv)fwd(tec)cz
>
> Hallo,
>
> cht�l bych vyvolat OnMouseDown, ale jaksi m�m probl�my s parametry ...
>
> Va�ek
Halo, halo, chtelo by to presnejsi popis toho, co mas vlastne za
problem. Jakymu Controlu chces priradit tu OnMouseDown?
Olda Nic, nico(zv)feld.cvut(tec)cz
Windows 2000
[*] Oldrich Nic <nico(zv)feld.cvut(tec)cz> - 19.5.1999 10:31:42 met-1mest
Hoj!
Pred casem tu probehla diskuse okolo Windows 2000 Beta 3.
Koukal jsem se na stranky Microsoftu, ale nasel jsem jen
objednani Windows za 60 dolaru az z Ameriky. Nevi nekdo, zda je
mozne je poridit za nase koruny ceske a pripadne za kolik (kdyby
to slo nekde zadarmo, vubec bych se nezlobil...)? MSDN si
skutecne predplacet asi nebudu.
Diky, Olda Nic, nico(zv)feld.cvut(tec)cz
TTreeView
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 19.5.1999 12:48:39
Ahojte,
mam zahadny problem. Pouzivam ve svem programu komponentu TTreeView, kde
programove naplnuji ikony k jednotlivym TTreeNode. Na vetsine pocitacu to
bezi, ale
najdou se i vyjimky, kde tyto ikony videt nejsou. Nevite nekdo, cim by to
mohlo byt?
Diky za kazde nakopnuti.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
Presipaci hodiny
[*] Tomas Balusek <tpplus(zv)zasova(tec)cz> - 19.5.1999 12:54:26
To nic, ja si na to zvykl :-) [PII 350, W98]. Nicmene by mne taky zajimalo
cim to muze byt ...
Czescz
T.B.
-----P�vodn� zpr�va-----
Od: Pavel ZIDEK <kopr(zv)kopr(tec)cz>
P�edm�t: Presipaci hodiny
>mam pocitac s CELERONEM 333A a po najeti na nejakou akci, ktera nahodi
kurzor do tvaru presipacich hodin se stane to, ze kurzor zustane ve tvaru
presipacich hodinek. Az po najeti na plochu (ani nemusim mackat mys) se
kurzor vrati do tvaru sipky.
>Co s tim a setkal se uz s tim kdosi.
>Diky za pomoc....
>
>Pekny den preje
> Pavel ZIDEK
Presypaci hodiny
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 19.5.1999 13:00:00
Ale na nic to jinak nema vliv ze ?
To se mi deje naprosto pravidelne taky, mam CEL 333A na WIN98.
Jina otazka je co s tim. Samotneho by me to zajimalo, protoze na druhem
pocitaci, I233 MMX se to nedeje. Pokud uz me to opravdu stve, zkusim prejet
mysi pres listu uloh a vetsinou to zmizne.
PK
----- P�vodn� zpr�va -----
Od: Pavel ZIDEK <kopr(zv)kopr(tec)cz>
Komu: DELPHI forum <delphi-l(zv)fwd(tec)cz>
Odesl�no: 19. kv�tna 1999 10:10
P�edm�t: Presypaci hodiny
> Ahoj,
> tak trochu mimo DELPHI
> mam pocitac s CELERONEM 333A a po najeti na nejakou akci, ktera nahodi
kurzor do tvaru presypacich hodin se stane to, ze kurzor zustane ve tvaru
presypacich hodinek. Az po najeti na plochu (ani nemusim mackat mys) se
kurzor vrati do tvaru sipky.
> Co s tim a setkal se uz s tim kdosi.
> Diky za pomoc....
>
> Pekny den preje
> Pavel ZIDEK
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
~
> KOPR software Pavel ZIDEK voice 069 / 66 02 156
> mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz http://www.kopr(tec)cz/w-delphi
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
~
>DLLs - pouzivani, Exception hook
[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 19.5.1999 13:16:09
Ahoj,
delate nekdo s DLLkami v Delphi 3? Potreboval bych trochu poradit.
Pouzivam DLLs pripojovane v dobe behu programu a vcelku jsem zvladl
vyvolat a ukoncit dialogova okna, ale stejne bych se potreboval jeste
ujistit, �e DLLs pou��v�m korektn�.
1. Pokud je form (dialog) v DLL vyvolan metodou Show je postacujici pro
jeho ukonceni v hlavnim programu vyvolat funkci FreeLibrary? Nebo je
nutne napred ukoncit form a pak volat FreeLibrary?
2. P�i ka�d�m otev�en� a uzav�en� DLL (LoadLibrary - procedura -
FreeLibrary) se z pameti ukroji 10 az 30 kB, d� se tomu nejak zamezit
nebo to ukazuje na chybu v mem programu? Po alokaci pameti se cast
zabrane pameti vrati zpet.
3. Jak spravne otevrit form z DLL nekolikrat bez ukonceni drive
vyvolaneho formu )nap�. pro otevreni vice souboru)? Jde to zajistit
automaticky nebo to musim osetrit ve svem programu (napr. ten samy form
volam ruznymi funkcemi)? Form volam takto (je to zjednodusene):
H:= LoadLibrary(PChar('Editor.dll'));
try
(zv)ShowForm:= GetProcAddress(H, PChar('ShowEditor'));
ShowForm(H,PChar(Res)); //ShowModal v DLL
finally
R:= FreeLibrary(H);
end;
Pokud tuto praceduru volam nekolikrat, tak se (samozrejme) program
zhrouti.
4. Lze DLL krokovat p�i lad�n�?
5. A posledn� ot�zka k IDE Delphi3. P�i nov�m spu�t�n� Delphi s d��ve
p�elo�en�m projektem a po F9 - Run, hlas� "Error setting debug exception
hook". Da se tomu nejak vyhnout?
Diky za rady a podnety
Petr Gadourek
geta(zv)telecom(tec)cz
FONTY
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 19.5.1999 13:26:36
Zkou��m to je�t� jednou ......
Nezn�te, pros�m, n�kdo form�t soubor� rastrov�ch font� ve windows ?
Je�t� z dosu m�m nad�lanou f�ru p�sem ve vlastn�m form�tu a celkem bych
si je r�d p�evedl. Nebo n�jak� odkazu na informace o struktur�ch
soubor�.
D�ky.Super stranka pro paradox
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 19.5.1999 13:29:54
Pred casem tu byl odkaz na %subj%. Bohuzel jsem o zpravu prisel. Jestli to
nekdo ma, poslete prosim
Diky
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================DLLs - pouzivani, Exception hook
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 19.5.1999 13:40:40
Petr Ga�ourek wrote:
>
> 1. Pokud je form (dialog) v DLL vyvolan metodou Show je postacujici
> pro jeho ukonceni v hlavnim programu vyvolat funkci FreeLibrary? Nebo
> je nutne napred ukoncit form a pak volat FreeLibrary?
>
Nestaci. Je treba volat pro to okno Free. Z vlastni zkusenosti radim mit
exportovanou metodu na otevreni okna (create a show) a vracet to okno do
hlavniho programu jako TForm, a dalsi metodu na zavreni okna (free), do
ktere budes z hlavniho programu predavat jako parametr prislusny TForm
(samozrejme pred rusenim musis pretypovat na skutecny typ definovany v
DLL).
function FK_RunForm(AForm: TForm; AEkData: PEkDataList; AOptions:
PFKOptions): TForm; stdcall; export;
begin
SetGridsLanguage(CZY);
SetCommonLanguage(CZY);
Opt := AOptions;
EkData := AEkData;
Result := TFrmMain.Create(AForm);
end {FK_RunForm};
procedure FK_FreeForm(AForm: TForm); stdcall; export;
begin
TFrmMain(AForm).Free;
end {FK_FreeForm};
> 2. P�i ka�d�m otev�en� a uzav�en� DLL (LoadLibrary - procedura -
> FreeLibrary) se z pameti ukroji 10 az 30 kB, d� se tomu nejak zamezit
> nebo to ukazuje na chybu v mem programu? Po alokaci pameti se cast
> zabrane pameti vrati zpet.
>
Tipnul bych (v souvislosti s bodem 1) na chybu v logice programu. Tedy
radim napred zrusit okno, pak uvolnit knihovnu.
> 3. Jak spravne otevrit form z DLL nekolikrat bez ukonceni drive
> vyvolaneho formu )nap�. pro otevreni vice souboru)? Jde to zajistit
> automaticky nebo to musim osetrit ve svem programu (napr. ten samy
> form volam ruznymi funkcemi)? Form volam takto (je to zjednodusene):
> H:= LoadLibrary(PChar('Editor.dll'));
> try
> (zv)ShowForm:= GetProcAddress(H, PChar('ShowEditor'));
> ShowForm(H,PChar(Res)); //ShowModal v DLL
> finally
> R:= FreeLibrary(H);
> end;
> Pokud tuto praceduru volam nekolikrat, tak se (samozrejme) program
> zhrouti.
>
No jednoduse. Metoda ShowForm nebude delat ShowModal, ale jenom Show.
Bude vracet to vytvorene a zobrazene okno ... viz bod 1.
> 4. Lze DLL krokovat p�i lad�n�?
>
Jiste. Staci nastavit pres menu Run/Parameters jako Host Application
hlavni EXE a klidne muzes "spoustet" DLL.
> 5. A posledn� ot�zka k IDE Delphi3. P�i nov�m spu�t�n� Delphi s d��ve
> p�elo�en�m projektem a po F9 - Run, hlas� "Error setting debug
> exception hook". Da se tomu nejak vyhnout?
>
Prebuildovat vsechno AltP+B, jinak nevim.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Presypaci hodiny
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 19.5.1999 13:41:31
No ... mi se to deje na jednom pocitaci taky, akorat jeste desne vrci disk .
. . . . . . . Cx. 486/40 5MB Ram 200MB Seag. W95 :-)
no jinak (u tech pentii :-) - spis jestli tam nedela blbosti HW akcelerace
(MS zpetna kompatdebilita (r) )... co takhle zkusit jestli to udela i kdyz
se "ubere hardwaru prace" ? (poTento citac > ovl. panel > system > vykon
(he) > grafika > tu.?
(akorat je to reseni nechutne a nedelphoidni)
Mti.
-----P�vodn� zpr�va-----
>Ale na nic to jinak nema vliv ze ?
>To se mi deje naprosto pravidelne taky, mam CEL 333A na WIN98.
>
>Jina otazka je co s tim. Samotneho by me to zajimalo, protoze na
>druhem
>pocitaci, I233 MMX se to nedeje. Pokud uz me to opravdu stve,
>zkusim prejet
>mysi pres listu uloh a vetsinou to zmizne.>> Ahoj,
>> tak trochu mimo DELPHI
>> mam pocitac s CELERONEM 333A a po najeti na nejakou akci,
>>ktera nahodi
>>kurzor do tvaru presypacich hodin se stane to, ze kurzor zustane ve
>>tvaru
>>presypacich hodinek. Az po najeti na plochu (ani nemusim mackat
>>mys) se
>>kurzor vrati do tvaru sipky.
>> Co s tim a setkal se uz s tim kdosi.
TTreeView
[*] *** <Mys(zv)post(tec)cz> - 19.5.1999 13:49:14
Je nutne udelat upgrade comctl32.dll. (je na strankach microsoftu)
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'DELPHI FORUM 98' <delphi-l(zv)fwd(tec)cz>
Datum: 19. kv�tna 1999 13:48
P�edm�t: TTreeView
>Ahojte,
>
>mam zahadny problem. Pouzivam ve svem programu komponentu TTreeView, kde
>programove naplnuji ikony k jednotlivym TTreeNode. Na vetsine pocitacu to
>bezi, ale
>najdou se i vyjimky, kde tyto ikony videt nejsou. Nevite nekdo, cim by to
>mohlo byt?
>
>Diky za kazde nakopnuti.
>
>Preji hezky den .....
>============================================
>ML Software - Martin Lasevic
>Budovatelska 459,
>708 00 Ostrava - Poruba
>tel.: + 420 (69) 691 85 11, 0603 338 765
>mailto:ml_software(zv)email(tec)cz
>mailto:+420603338765(zv)sms.paegas(tec)cz
>http://www.mujweb(tec)cz/www/ml_software
>ICQ:33630882
>============================================
>
>TTreeView
[*] *** <Mys(zv)post(tec)cz> - 19.5.1999 13:51:12
Je nutne udelat upgrade comctl32.dll. (je na strankach microsoftu jmenuje se
40Comupd.exe)
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'DELPHI FORUM 98' <delphi-l(zv)fwd(tec)cz>
Datum: 19. kv�tna 1999 13:48
P�edm�t: TTreeView
>Ahojte,
>
>mam zahadny problem. Pouzivam ve svem programu komponentu TTreeView, kde
>programove naplnuji ikony k jednotlivym TTreeNode. Na vetsine pocitacu to
>bezi, ale
>najdou se i vyjimky, kde tyto ikony videt nejsou. Nevite nekdo, cim by to
>mohlo byt?
>
>Diky za kazde nakopnuti.
>
>Preji hezky den .....
>============================================
>ML Software - Martin Lasevic
>Budovatelska 459,
>708 00 Ostrava - Poruba
>tel.: + 420 (69) 691 85 11, 0603 338 765
>mailto:ml_software(zv)email(tec)cz
>mailto:+420603338765(zv)sms.paegas(tec)cz
>http://www.mujweb(tec)cz/www/ml_software
>ICQ:33630882
>============================================
>
>
FONTY
[*] Ing. Jaroslav K�e�ek - 19.5.1999 13:58:09
Zkus www.wotsit.org, tam je miliony formatu. Ja jsem pracoval jen s TTF, a
wotsit byl naprosto vyhovujici zdroj informaci.
JK
**********************************************
Ing. Jaroslav K�e�ek
-------------------------------------------------------------
GRAFEX - software �it� na m�ru
- hardware pro Va�e pot�eby
-------------------------------------------------------------
http://web.iol(tec)cz/grafex
mailto:grafex(zv)iol(tec)cz
-------------------------------------------------------------
tel + SMS: +420.603.226103
tel + fax: +420.327.761992
**********************************************
-----P�vodn� zpr�va-----
Od: Maixner Adam <Adam.Maixner(zv)pvt(tec)cz>
Komu: #Konference Delphi (el. adresa) <delphi-l(zv)fwd(tec)cz>
Datum: 19. kv�tna 1999 13:38
P�edm�t: FONTY
Zkou��m to je�t� jednou ......
Nezn�te, pros�m, n�kdo form�t soubor� rastrov�ch font� ve windows ?
Je�t� z dosu m�m nad�lanou f�ru p�sem ve vlastn�m form�tu a celkem bych
si je r�d p�evedl. Nebo n�jak� odkazu na informace o struktur�ch
soubor�.
D�ky.TTreeView
[*] PLETICHA Ji�� - 19.5.1999 14:00:24
Ahojky,
jednou me zarazil stejny problem - v poctu barev pouzitych v IMAGE a barev
monitoru...
Oce(zv)niC
-----------------------------
oceanic(zv)muzatec(tec)cz
pleticha(zv)kol1.kole.ujep(tec)cz
http://oceanic.kolej.ujep(tec)cz
ICQ: 20084514
-----------------------------
zkusebni provoz kolejniho radia
WinAMP -> OPEN URL -> 195.113.139.65:8000
-----------------------------
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'DELPHI FORUM 98' <delphi-l(zv)fwd(tec)cz>
Datum: 19. kv�tna 1999 13:50
P�edm�t: TTreeView
>Ahojte,
>
>mam zahadny problem. Pouzivam ve svem programu komponentu TTreeView, kde
>programove naplnuji ikony k jednotlivym TTreeNode. Na vetsine pocitacu to
>bezi, ale
>najdou se i vyjimky, kde tyto ikony videt nejsou. Nevite nekdo, cim by to
>mohlo byt?
>
>Diky za kazde nakopnuti.
>
>Preji hezky den .....
>============================================
>ML Software - Martin Lasevic
>Budovatelska 459,
>708 00 Ostrava - Poruba
>tel.: + 420 (69) 691 85 11, 0603 338 765
>mailto:ml_software(zv)email(tec)cz
>mailto:+420603338765(zv)sms.paegas(tec)cz
>http://www.mujweb(tec)cz/www/ml_software
>ICQ:33630882
>============================================
>
>FONTY
[*] Kriz David <david.kriz(zv)ccv(tec)cz> - 19.5.1999 14:01:07
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Zkuste se podivat na http://www.wotsit.org/
> -----P�vodn� zpr�va-----
> Od: Maixner Adam [SMTP:Adam.Maixner(zv)pvt(tec)cz]
> Odesl�no: st�eda 19. kv�tna 1999 12:27
> Komu: #Konference Delphi (el. adresa)
> P�edm�t: FONTY
>
> Zkou��m to je�t� jednou ......
> Nezn�te, pros�m, n�kdo form�t soubor� rastrov�ch font� ve windows ?
> Je�t� z dosu m�m nad�lanou f�ru p�sem ve vlastn�m form�tu a celkem bych
> si je r�d p�evedl. Nebo n�jak� odkazu na informace o struktur�ch
> soubor�.
>
> D�ky.Volani externi DLL funkce z uloz.proc.
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 19.5.1999 14:04:38
Ahoj,
v uloz. procedure serveru Sybase SQLAnywhere 5.5 volam
funkci z vlastni DLL. Vse funguje, jen mam problemy s predanim
parametru typu double. Dle manualu by tento typ mel byt podporovan,
ale pri volani narazim na hlasku, ze se jedna o nepodporovany typ.
Ma s touto technikou nekdo zkusenosti ?
-----------
Ing. Martin Dupal
address: Hodolanska 35
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
FONTY
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 19.5.1999 15:04:27
D�ky moc. Pomohlo to.> Zkuste se podivat na http://www.wotsit.org/
>
> -----P�vodn� zpr�va-----
> Od: Maixner Adam [SMTP:Adam.Maixner(zv)pvt(tec)cz]
> Odesl�no: st�eda 19. kv�tna 1999 12:27
> Komu: #Konference Delphi (el. adresa)
> P�edm�t: FONTY
>
> Zkou��m to je�t� jednou ......
> Nezn�te, pros�m, n�kdo form�t soubor� rastrov�ch font� ve windows ?
> Je�t� z dosu m�m nad�lanou f�ru p�sem ve vlastn�m form�tu a celkem
> bych
> si je r�d p�evedl. Nebo n�jak� odkazu na informace o struktur�ch
> soubor�.
>
> D�ky.TTreeView
[*] Grubhoffer(zv)software602(tec)cz - 19.5.1999 15:22:54
Narazil jsem na to taky. Na pocitaci s WINNT4.0 + SP1 nebyly ikony videt.
Po instalaci SP3 videt byly => nejspis za to mohla stara verze COMCTL32.DLL.
Dale jsem to nezkoumal.
JG
> -----P�vodnY zpr�va-----
> Od: vyvoj(zv)atlascon(tec)cz [mailto:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 19. kvytna 1999 12:49
> Komu: "'DELPHI FORUM 98'" <delphi-l(zv)fwd(tec)cz>; grubhoffer(zv)software602(tec)cz
> P�edmyt: TTreeView
>
>
> Ahojte,
>
> mam zahadny problem. Pouzivam ve svem programu komponentu
> TTreeView, kde
> programove naplnuji ikony k jednotlivym TTreeNode. Na vetsine
> pocitacu to
> bezi, ale
> najdou se i vyjimky, kde tyto ikony videt nejsou. Nevite
> nekdo, cim by to
> mohlo byt?
>
> Diky za kazde nakopnuti.
>
> Preji hezky den .....
> ============================================
> ML Software - Martin Lasevic
> Budovatelska 459,
> 708 00 Ostrava - Poruba
> tel.: + 420 (69) 691 85 11, 0603 338 765
> mailto:ml_software(zv)email(tec)cz
> mailto:+420603338765(zv)sms.paegas(tec)cz
> http://www.mujweb(tec)cz/www/ml_software
> ICQ:33630882
> ============================================
>
>
>
> ODBC???
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.5.1999 16:23:40
Preji vsem pekneho dne,
mam aplikaci, ktera pracuje s databazemi, tudiz insalaci delam
pomoci InstallShieldu. BDE davam cele. Kdyz ovsem zakaznik
aplikaci naistaloval, naslodovalo hruzne zjisteni: _nektere_ (!) veci
fungovali, jine hazely chybu: Could not find object. Cannot load an
IDAPI service library. File: ODBC32.DLL. Ten soubor me obzvaste
prekvapil, protoze pouzivam pouze paradoxi tabulky a komponenty
dodane s Delphi, zadne napojeni na ODBC, nic takoveho. Co to je
za chybu a jak se ji vyvarovat?
Predem dekuji za odpoved(i).
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Upresneni k ODBC
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.5.1999 16:26:39
Pokud to pomuze, pak k tabulkam pristupuji pomoci Local SQL.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Lokalizace InstallShieldu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 19.5.1999 16:28:58
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
pokousel jsem se udelat lokalizaci Install Shieldu
(Delphi Edition, toho , co je na Delphi CD) a pouzil
jsem k tomu Zbyskuv lokalizator, ale nejak si nevim
rady.
Napriklad Setup.exe vubec nejde otevrit, u jinych
souboru (dll) jsem cvicne prelozil a "prekompiloval"
(coz mimochodem moc nechapu), ale ve vysledku se to
nijak neprojevilo.
Dokazete mi nekdo poradit/pomoci ?
Diky...
...Dobra.BP7, Netware a Windows NT
[*] Karel Kral <kral(zv)purus(tec)cz> - 19.5.1999 16:31:34
Muzete mi napsat, zda nekomu funguji na NT 4.0/Novell Client 4.6
Dosovske sitove aplikace v BP7, ktere by vyuzivaly sluzby klienta
Netware/VLM?
My jako firma jsme zivotne zavisli na aplikacich psanych v Dosu/BP7 a
vyuzivajici ruzna volani VLM (transakce atd.). Dosud jsme pouzivali
sitove knihovny pro Netware od TurboPower dodavane k B-Tree fileru.
Problem je v tom, ze jak v Dosu, tak pod Win95 a 98 s NW klientem 32
vsechno jede Ok.
Zda se vsak, ze v emulaci VLM pod Windows NT jsou nejake zavazne chyby
nebo
nekompatibility. Temer nic nefunguje tak, jak by melo.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
TRichEdit a TRxRichEdit
[*] Tom� R��i�ka - 19.5.1999 16:37:47
Zdar!
Mam velmi nalehavy dotaz:
Na zobrazeni textu jsem pouzil TRichEdit, ale mel jsem problem s tim, ze pri prekreslovani (napr. pri zmene velikosti) se obcas ten text nezobrazil. Nejak se mi to nepodarilo vyresit, tak jsem zkusil TRxRichEdit (Rx 2.60). Zde mam ale problem s tiskem - aplikace se po volani Print() nevrati a kazdy dalsi pokus o tisk zarve vyjimka (Printing in progress) a aplikace se neda ukoncit, (u TRichEdit se navrati hned). Tento problem s tiskem ale nenastane, kdyz mam v RxRichEdit-u nejvyse 1 radek a zadny enter.
Prosim poradte, jak z toho ven (delam v CB1)
Tomas Ruzicka
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
DLLs - pouzivani, Exception hook
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 19.5.1999 16:45:15
>ktere budes z hlavniho programu predavat jako parametr prislusny TForm
>(samozrejme pred rusenim musis pretypovat na skutecny typ definovany v
>DLL).
>
>procedure FK_FreeForm(AForm: TForm); stdcall; export;
>begin
> TFrmMain(AForm).Free;
>end {FK_FreeForm};
To pretypovani je snad zbytecne, ne?
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
ODBC???
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.5.1999 17:02:51
Uz jsem na to prisel.
Problem spocival v nasledujicim:
Session.GetAliasParams('ZAMKY', Params);
ovsem alias nebyl definovan. Ale porad jeste nechapu, co to ma co
spolecneho s ODBC.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
ShowModal
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 19.5.1999 17:06:56
Mam maly problem.
Predstavte si aplikaci s jednim oknem (Delphi 1 pod Win98 nebo WinNT).
Po stlaceni nejakeho tlacitka se zobrazi jiny formular modalne (nebo
treba MessageDlg) a
ja se pak prepnu na jinou aplikaci. Pak na spodni liste kliknu na
hlavni okno, abych se prepl zpatky. Ale tam nemuzu nic delat, protoze
je zobrazeny modalne jiny dialog (volany z tohoto okna).
Jak zabezpecit, aby se mi po zpetnem prepnuti na
hlavni okno aplikace dostalo do popredi ten modalne zobrazeny
formular (MessagDlg)?
Nevite nekdo radu?
Petr
Zmena rozmeru pole
[*] Jiri Smitka <jiri.smitka(zv)atlas(tec)cz> - 19.5.1999 17:47:48
Ahoj,
nevite nekdo, jak zmenit rozmer pole predaneho jako parametr ? Priklad:
procedure Proc( const A: array of Integer);
begin
:
Proc( ZmenRozmer(A));
:
end;
Pokud v parametru prijde pole 0..N, chci treba, aby v tom rekurzivnim
volani byly meze 0..N-1. Tu rekurzi jsem si ted vymyslel, nechce se mi
deklarovat dalsi funkci. :-)
Jednou jsem uz na to nejakou fci nasel, ale zapomnel jsem, jak se
jmenuje. To je holt ta skleroza.
Zatim to obchazim pres assembler... :-o
asm
push N ; nova horni mez
lea eax,A
push eax
call Proc
end;
Treba je takto citelnejsi, co chci.
Diky za reakce.
Zdravi
Jirka
P.S. Nechce se mi predavat dalsim parametrem nove meze.
--
/\_/\
(0 0)
--------------------------oOO--(_)--OOo-----------------------------
Jiri Smitka, OK1HFE E-mail: xsmitka(zv)hwlab.felk.cvut(tec)cz
CVUT FEL Praha WWW: http://cs.felk.cvut(tec)cz/~xsmitka
--------------------------------------------------------------------
Variant
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.5.1999 18:57:27
Martin O�en� wrote:
> Skus VarArrayCreate.
To jsem take zkousel. Je vsak mozne, ze problem bude jeste
nekde jinde - jenom na nej nemohu prijit. :-(
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
cs klavesnice v Delphi4
[*] eL_z_Prahy <eL_z_Prahy(zv)seznam(tec)cz> - 19.5.1999 21:22:25
----------
> Odes�latel: Petr Kundrata <pksoft(zv)atlas(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: cs klavesnice v Delphi4
> Datum: 17. kv�tna 1999 7:05
>
> eL_z_Prahy wrote:
> >
> > Rad bych se pripojil k tomuto dotazu, ovsem v jeho puvodnim
> > smyslu. tj. jak premapovat nebo vypnout hotkeye v editoru D4.
> > Ja totiz pouzivam klavesnice HP, ktere (mimochodem u jineho
> > vyrobce jsem to nevidel) jsou jen s ceskym popisem a tudiz
> > premapovani klavesnice prilis nepomuze.
> >
> > eL..
> >
> Zkousel jsem to trochu hledat v resourcech Delphi4.exe.
> V RCData/TAPPBUILDER je ulozen DFM k TAppBuilder ktery
> obsahuje hlavni menu. Me zajimal hlavne Breakpoints
> Ctrl+Alt+B (normalne "{").
> ...
> object DebugBreakPointsCommand: TAction
> Category = 'Debug'
> Caption = '&Breakpoints'
> HelpContext = 1080
> Hint = 'View Breakpoints'
> ImageIndex = 65
> OnExecute = DebugBreakPointsCommandClick
> end
>
> Nen� bohuzel pouzita property ShortCut, ktera by sla
> predefinovat ale na urovni formulare
>
> inherited AppBuilder: TAppBuilder
> Left = 193
> Top = 112
> HorzScrollBar.Increment = 48
> VertScrollBar.Increment = 6
> AutoScroll = False
> Caption = 'Delphi 4'
> ClientHeight = 130
> ClientWidth = 431
> Menu = MainMenu1
> Scaled = False
> OnCanResize = FormCanResize
> OnClose = FormClose
> OnCloseQuery = WindowCloseQuery
> OnConstrainedResize = FormConstrainedResize
> > OnShortCut = FormShortCut
> PixelsPerInch = 96
> TextHeight = 13
>
> obsluha udalosti OnShortCut, takze by sly globalne odpojit
> vsechny ShortCuts, ale jak vypnout jen nektere se mi
> nepodarilo vystopovat.
>
> Petr Kundrata
>
Diky za snahu. Ja jsem zacatecnik bohuzel a nevim jak bych to provedl. Pokud by se vsak vyply vsechny shortcuty (CTRL-C, CTRL-V CTRL-F ....) stejne by to nebylo k nicemu, protoze to radeji ozelim "{" a bud si prepnu klavesnici nebo pouziju CODE TEMLATES kam jsem si nadefinoval akci j ->{ a pak je to rychle CTRL+j j ENTER a kyzena zavorka je v textu.
eL.. cestina podruhe....
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 19.5.1999 21:33:38
Cesky help na Delphi neexistuje a ani existovat nebude.
Neexistuje totiz firma, ktera by to zaplatila.
Navic neni realne takovy help vytvorit drive, nez vyjde nova verze Delphi a pak ho prubezne aktualizovat.
Sam jsem se zucastnil lokalizace TP6 (APRO) a vim tedy, ze takova investice se nikdy nemuze vratit.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: M�ra Tom� <tmara(zv)itsys(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: cestina podruhe....
> Datum: 19. kv�tna 1999 8:19
>
> Halloa ALL!
> Jelikoz se muj minuly dotaz minul ucinkem, zkousim to je�t� jednou....
> Nevite nahodou n�kdo, zda-li existuje cesky help pro D3 nebo D4? Pripadne
> kde ho zchrastit....Dik. ByE.Klic generovany v bef insert triggeru
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 19.5.1999 23:01:50
Do tabulky (interbase) vlozim novy zaznam. Primarni index je
prirazen v befor insert triggeru. Jak dostanu prirazenou hodnotu?
Mozna by slo v after insert triggeru generovat nejaky event, ale ten
se spusti az po commitu a ja bych rad hodnotu znal jeste v teze
transakci.
Nemam s SQL databazemi zadne zkusenosti a nenapada me nic
co by se mi libilo. (Pouzivam FIB komponenty, ale to je v tomto
pripade myslim jedno).
Jiri Binder
Kazdy formular jinak
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.5.1999 23:27:28
Ahoj,
> http://www.borland.com/devsupport/delphi/downloads/index.html
>
> V tom prikladu (on je puvodne pro D3) si pak uprav priponu balicku na
> *.bpl
Vyzkousel jsem to, ale nejak jsem to nerozdychal. Neustale me to
obtezuje errorem: ,,Can't load package Addin. Byl ucinen pokus
nacist program nespravneho formatu.`` Prejmenovani nepomohlo,
kdyz to natahnu do Delphi, pak dostanu zminovanou hlasku.
Co je spatne?
Predem diky za odpoved
Slavek
> Internet proti monopolu. Petr Vones, amatersky
> programator * http://www.bojkot(tec)cz *
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Lokalizace InstallShieldu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.5.1999 22:37:15
Puvodni zprava, kterou napsal Mal� Dobromil dne 19 May 99,:
> pokousel jsem se udelat lokalizaci Install Shieldu
> (Delphi Edition, toho , co je na Delphi CD) a pouzil
> jsem k tomu Zbyskuv lokalizator, ale nejak si nevim
> rady.
> Napriklad Setup.exe vubec nejde otevrit, u jinych
> souboru (dll) jsem cvicne prelozil a "prekompiloval"
> (coz mimochodem moc nechapu), ale ve vysledku se to
> nijak neprojevilo.
Protoze SETUP.EXE je 16-bitova aplikace, takze jaksi nejde
zlokalizovat lokalizatorem, ktery lokalizuje jen Win32
programy. Ale vsechny dialogy a texty jsou v jedne DLL
(jsem liny se podivat), no a ten SETUP.EXE ma snad jen
jeden dialog, ktery zlokalizujes Resource Workshopem...
Jo a vzhledem k tomu, ze InstallShield neni delany
v Delphi, tak si samozrejme sam nenacita lokalizace
z externich souboru (.csy apod.), takze musis jit pod
Windows NT a tam soupnout cesky preklad dovnitr te DLL.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Nekolik dotazu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 19.5.1999 23:40:30
> 1/ Jak nahradit standardni kurzor windows v Screen.Cursors[crArrow]
> kurzorem jinym, vlastnim tj. pro celou moji aplikaci. Me to nejde.
Nasledujici by melo fungovat pro animovany kurzor, pro normalni
nevim, ale snad take (s jinymi konstantami).
Slavek
procedure TForm1.Button1Click(Sender:
TObject);
var
h : THandle;
begin
h := LoadImage(0,
'C:\TheWall\Magic.ani',
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE);
if h = 0 then ShowMessage('Cursor not
loaded') else begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;
> Jaro B.
>
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
Vypada to jako chyba, ale neni to chyba :-)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.5.1999 23:57:45
Ahoj,
Pri ladeni jsem ted narazil na jednu zajimavost. Pri krokovani jedne metody
to nejdrive vypadalo na chybu v prekladaci, ale zahy se ukazalo ze tomu tak
neni. Je to ale docela legracni, mozna se s tim jiz nekdo setkal. Upravil
jsem puvodni kod na co nejjednodussi priklad kde se to jeste projevuje,
(Delphi 4.03):
function TForm1.SomeSillyMethod(P: PChar; B: Boolean): PChar;
begin
if B then
begin
Sleep(1);
Result := P + 1; // umistete zde breakpoint
Sleep(1);
end else
Result := P; // umistete zde breakpoint
end;
procedure TForm1.Button1Click(Sender: TObject);
var
C: array[0..2] of Char;
begin
ZeroMemory((zv)C, Sizeof(C));
C := '12';
ShowMessage(SomeSillyMethod(C, True));
ShowMessage(SomeSillyMethod(C, False));
end;
Pokud mate zaplou optimalizaci (coz doufam ano, viz dale), tak pri krokovani
metody SomeSillyMethod narazite na to, ze v pripade B = True se vam program
zastavi na obou breakpointech, coz z hlediska jazyka vypada jako chyba. Ale
vysledek te funkce se chova spravne. Pri vypnute optimalizaci dava funkce
zcela stejny (spravny) vysledek, ale v krokovani to pracuje dle ocekavani.
V cem je tedy rozdil ? Nejlepsi je se podivat na danou metodu v CPU okne jak
ji vlastne v obou pripadech prekladac prelozi, z toho je to pak jasne. Je z
toho take videt, jak hrozny kod se vytvori bez pouziti optimalizace.
Priklad je i ke stazeni zde:
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/other/Chyba_nechyba.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Tab order dialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.5.1999 23:58:20
TUNGLI Jan wrote:
>
> No nie je to take jednoduche, aspon nie pre mna.
> Napr. TLabel nema vlastnost TabOrder, ale pritom tabulator krasne prechadza
> medzi TLabel komponenty pri navrhu formulara a podobne to chcem aj ja ale v
> RunTime.
Ahoj,
No pockej, to je ale pak neco uplne jineho. Tab Order dialog ( Edit|Tab Order )
prece zobrazuje jen ovladaci prvky ktere mohou mit focus a maji tedy i vlastnost
TabOrder.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Load Icon z jinych souboru...
[*] Medusa <medusa(zv)brajan(tec)cz> - 20.5.1999 01:25:13
Ahoj,
Nemate nekdo priklad, kterak nacist ikony z jinych Exe, Dll, apod...
souboru...
Diky za pomoc...
Medusa
Nekolik dotazu
[*] daniel.hrna(zv)vm.sme(tec)cz - 20.5.1999 06:43:12
Panove, jsem novy snazici se programator pod Delphi 3.
Me dotazy budou asi ty lehci, ale prosim odpovezte mi co nejjednoduseji ...
1) Jakym zpusobem vlozim do databaze (polozka je typu DATE) aktualni datum
ze systemu (taky ve formatu DATE)
2) Kdyz mam v DBF nekolik recordu, jak je sectu (neco jako ve FoxPro -
reccount() )
3) Jak muzu testovat DATUM z toho DBF s datumem aktualnim a pokud bude
rozdil vetsi jak 14 dni, aby to zobrazilo zpravu
a nabidku k zalohovani databaze?
Zatim dik a napiste mi ....
Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
Jeste dotaz
[*] daniel.hrna(zv)vm.sme(tec)cz - 20.5.1999 06:53:15
Kdyz vytvarim zastupce k EXE souboru, chce to po me samozrejme cestu k
souboru a potom mam vlozit svoje jmeno, ktere je zobrazeno na plose. Chtel
bych poradit s tim, aby mi to nabidlo u Delphi EXE souboru jako jmeno na te
plose nejake moje a ne jmeno souboru. Kde v projektu toto muzu zadat a jak ?
Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
Nekolik dotazu {ad 1}
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 20.5.1999 06:59:17
Ahoj
diky za priklad, ja jsem se ptal na neco trosicku jineho
potrebuji nahradit standardni kurzor Screen.Cursors[crArrow] jinym (crArrow
je myslim -1 tj. je to ekvivalentni Screen.Cursors[-1]). Chova se mi jako
read-only a nemohu ho prepsat (zrejme je na to nejaka finta ) tj.:
Screen.Cursors[-1]:=h;
Screen.Cursors[crArrow]:=h;
kdyz chci mit v aplikaci jiny kurzor crArrow nez je ten, definovany ve
Windows (ciste uzivatelky), pak muzu udelat treba Screen.Cursor=5; a zmenim
kurzor v cele aplikaci na svuj. Ovsem nefunguji vlastni kurzory komponent
napr. kdyz mam na panelu nastaveny kurzor na crIBeam, tak mam porad vsude
nastaveny
kurzor 5, tedy i na panelu. Hodnota crIBeam se stane aktivni, az kdyz
nastavim globalni kurzor na Screen.Cursor=crDefault;
Zaver:
Chtel jsem dat uzivateli moznost si vybrat - bud standardni kurzor, nebo
kurzor muj.
Muzu ho nastavit jako globalni a pak mi nefunguji lokalni kurzory
viditelnych komponent, coz nechci
nebo prepisu standardni kurzor crArrow svym - coz mi nejde
Vysledkem je kompromis:
momentalne nastavuji (ale volitelne - tam i zpet) kurzory lokalne u kazde
komponenty (:-( slozite) a globalni kurzor je porad crDefault (samozrejme s
vyjimkou, kdyz ukazuje na presypacky).
A zrejme delam nejakou blbost :-| kterou uz ani nevidim...
S pozdravem
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Slavek Rydval [SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> Odesl�no: 19. kv�tna 1999 23:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Nekolik dotazu
>
> > 1/ Jak nahradit standardni kurzor windows v Screen.Cursors[crArrow]
> > kurzorem jinym, vlastnim tj. pro celou moji aplikaci. Me to nejde.
>
> Nasledujici by melo fungovat pro animovany kurzor, pro normalni
> nevim, ale snad take (s jinymi konstantami).
>
> Slavek
>
> procedure TForm1.Button1Click(Sender:
> TObject);
> var
> h : THandle;
> begin
> h := LoadImage(0,
> 'C:\TheWall\Magic.ani',
> IMAGE_CURSOR,
> 0,
> 0,
> LR_DEFAULTSIZE or
> LR_LOADFROMFILE);
> if h = 0 then ShowMessage('Cursor not
> loaded') else begin
> Screen.Cursors[1] := h;
> Form1.Cursor := 1;
> end;
> end;
>
> > Jaro B.
> >
>
>
>
> --------------------------------------------------------------------------
> --
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> --------------------------------------------------------------------------
> --
Load Icon z jinych souboru...
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 20.5.1999 07:03:33
Ahoj,
posilam Ti komponent, ktery to umi a je jednoduchy
Jaro B.
{*************************************************************}
{ Icon Grabber Component for Delphi 16/32 }
{ Version: 1.0 }
{ Author: Aleksey Kuznetsov, Kiev, Ukraine }
{ R�lenl� E���l��� (Xacker), Ecl�, �edrc�r }
{ E-Mail: xacker(zv)phreaker.net }
{ Home Page: xacker.phiberoptix.com }
{ Created: April, 19, 1999 }
{ Modified: April, 19, 1999 }
{ Legal: Copyright (c) 1999 by Aleksey Xacker }
{*************************************************************}
{ IMPORTANT NOTE: }
{ This software is provided 'as-is', without any express or }
{ implied warranty. In no event will the author be held }
{ liable for any damages arising from the use of this }
{ software. }
{ Permission is granted to anyone to use this software for }
{ any purpose, including commercial applications, and to }
{ alter it and redistribute it freely, subject to the }
{ following restrictions: }
{ 1. The origin of this software must not be misrepresented, }
{ you must not claim that you wrote the original software. }
{ If you use this software in a product, an acknowledgment }
{ in the product documentation would be appreciated but is }
{ not required. }
{ 2. Altered source versions must be plainly marked as such, }
{ and must not be misrepresented as being the original }
{ software. }
{ 3. This notice may not be removed or altered from any }
{ source distribution. }
{*************************************************************}
unit IcoGrab;
interface
uses
{$IFDEF Win32}Windows, {$ELSE} WinTypes, WinProcs, {$ENDIF}
Messages, Classes, Graphics, Controls, SysUtils, ShellAPI;
type
TIconGrabber = class(TCustomControl)
private
FIcon: TIcon;
FFileName: String;
FIconIndex: Integer;
procedure SetIcon(Value: TIcon);
procedure SetFileName(Value: String);
procedure SetIconIndex(Value: Integer);
protected
public
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;
procedure Paint; override;
procedure Grab(aFileName: String; aIconIndex: Integer);
published
property Icon: TIcon read FIcon write SetIcon;
property FileName: String read FFileName write SetFileName;
property IconIndex: Integer read FIconIndex write SetIconIndex;
property Visible;
end;
procedure Register;
implementation
constructor TIconGrabber.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
FIcon := TIcon.Create;
Width := 32;
Height := 32;
end;
destructor TIconGrabber.Destroy;
begin
FIcon.Destroy;
inherited Destroy;
end;
procedure TIconGrabber.Paint;
begin
inherited Paint;
with Canvas do Draw(0, 0, FIcon);
end;
procedure TIconGrabber.SetIcon(Value: TIcon);
begin
FIcon.Assign(Value);
Invalidate;
end;
procedure TIconGrabber.SetFileName(Value: String);
begin
if FFileName <> Value then
begin
FFileName := Value;
Grab(FFileName, FIconIndex);
end;
end;
procedure TIconGrabber.SetIconIndex(Value: Integer);
begin
if FIconIndex <> Value then
begin
FIconIndex := Value;
Grab(FFileName, FIconIndex);
end;
end;
procedure TIconGrabber.Grab(aFileName: String; aIconIndex: Integer);
var
PC: Array[0..$FF] of Char;
begin
FFileName := aFileName;
FIconIndex := aIconIndex;
StrPCopy(PC, aFileName);
FIcon.Handle := ExtractIcon(0, PC, aIconIndex);
Invalidate;
end;
procedure Register;
begin
RegisterComponents('Library', [TIconGrabber]);
end;
end.
> -----P�vodn� zpr�va-----
> Od: Medusa [SMTP:medusa(zv)brajan(tec)cz]
> Odesl�no: 20. kv�tna 1999 1:25
> Komu: Konference DELPHI
> P�edm�t: Load Icon z jinych souboru...
>
> Ahoj,
>
> Nemate nekdo priklad, kterak nacist ikony z jinych Exe, Dll, apod...
> souboru...
>
> Diky za pomoc...
> Medusa
> Lokalizace InstallShieldu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.5.1999 07:41:17
Mal� Dobromil wrote:
> pokousel jsem se udelat lokalizaci Install Shieldu
> (Delphi Edition, toho , co je na Delphi CD) a pouzil
> jsem k tomu Zbyskuv lokalizator, ale nejak si nevim
> rady.
> Napriklad Setup.exe vubec nejde otevrit, u jinych
> souboru (dll) jsem cvicne prelozil a "prekompiloval"
> (coz mimochodem moc nechapu), ale ve vysledku se to
> nijak neprojevilo.
>
> Dokazete mi nekdo poradit/pomoci ?
Samozrejme ze dokazeme. Setup.exe lokalizovat nelze, protoze to
je v podstate jen zavadec, ktery budto obsahuje komprimovana
data, nebo po nich saha do dalsiho souboru (ted z hlavy to nevim
presne, ale to je v tomto okamziku fuk). Lokalizovat musis soubor
resdll.dll, kde jsou vsechny texty a formulare. No a protoze tahle dll
neni psana v Delphi 3 a vyse, je nutne to lokalizovat pod NT, a
preklady nacpat zase zpet do resdll.dll (je na to v Lokalizatoru
talcitko). Takze pozor na pokusy s shareware verzi Lokalizatoru,
vsechny takto zkousene soubory si vzdy predem ZALOHUJ.
Postupem pro programy psane v Delphi se ti vytvori externi soubor
(dll) s lokalizacemi, napr. "program.csy", ze ktereho si program
natahne resourcy misto tech puvodnich. Ale programy psane v
necem jinem tohle neumeji, coz je pripad InstallShieldu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Lokalizace InstallShieldu
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 20.5.1999 07:52:11
Jestli muzu poradit, tak tahle prace uz je davno udelana. Pokud tedy s
timto nechces zapasit a porvat se s lokalizaci sam, tak zkus kontaktovat
Jaroslava Skerika z firmy Sinea. Ti tohle jiz lokalizovali a maji ceske
mutace danych knihoven.
Kontakt jaro(zv)sinea(tec)cz nebo sinea(zv)sinea(tec)cz. Cena je taky prijatelna.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Maly Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odeslano: 19. kvitna 1999 16:29
Komu: #Delphi-K
Poedmit: Lokalizace InstallShieldu
Ahoj,
pokousel jsem se udelat lokalizaci Install Shieldu
(Delphi Edition, toho , co je na Delphi CD) a pouzil
jsem k tomu Zbyskuv lokalizator, ale nejak si nevim
rady.
Napriklad Setup.exe vubec nejde otevrit, u jinych
souboru (dll) jsem cvicne prelozil a "prekompiloval"
(coz mimochodem moc nechapu), ale ve vysledku se to
nijak neprojevilo.
Dokazete mi nekdo poradit/pomoci ?
Diky...
...Dobra.Nekolik dotazu
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 20.5.1999 08:00:03
Hi,
ad 1) napr. Table1.FieldByName( 'Datum1').AsDateTime := Now;
ad 2) Table1.RecordCount
ad 3) Tak tohle resim tak , ze typ TDateTime je vlastne realne cislo, ktere udava pocet dni
od urciteho datumu a to tak, ze pred carkou jde o cele dni a po carce je parcialni cast
dne. Pokud to tedy napriklad vezmes takto :
if ( Trunc( Now) -Trunc( Table1.FieldByName( 'Datum1').AsDateTime) >= 14 then
ShowMessage( 'Uplynuly 14 dni od zalohy. Zalohuj');
.....
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: daniel.hrna(zv)vm.sme(tec)cz [SMTP:daniel.hrna(zv)vm.sme(tec)cz]
Odeslano: 20. kvitna 1999 6:43
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Nekolik dotazu
Panove, jsem novy snazici se programator pod Delphi 3.
Me dotazy budou asi ty lehci, ale prosim odpovezte mi co nejjednoduseji ...
1) Jakym zpusobem vlozim do databaze (polozka je typu DATE) aktualni datum
ze systemu (taky ve formatu DATE)
2) Kdyz mam v DBF nekolik recordu, jak je sectu (neco jako ve FoxPro -
reccount() )
3) Jak muzu testovat DATUM z toho DBF s datumem aktualnim a pokud bude
rozdil vetsi jak 14 dni, aby to zobrazilo zpravu
a nabidku k zalohovani databaze?
Zatim dik a napiste mi ....
Daniel Hroa - technik VT
Severomoravska energetika a.s.
RZ Vala?ske Mezioiei
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
Tab order dialog
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 20.5.1999 08:15:09
Ano, mas pravdu.
Ide mi vlastne o nasledujucu vec:
Do QuickReport vlozim QRLabel komponenty a chcel by som nastavit v akom
poradi
maju byt vytlacene (OnPrint) a to este v RunTime.
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. m�j 1999 0:21
P�edm�t: Re: Tab order dialog
>TUNGLI Jan wrote:
>>
>> No nie je to take jednoduche, aspon nie pre mna.
>> Napr. TLabel nema vlastnost TabOrder, ale pritom tabulator krasne
prechadza
>> medzi TLabel komponenty pri navrhu formulara a podobne to chcem aj ja ale
v
>> RunTime.
>
>Ahoj,
>
>No pockej, to je ale pak neco uplne jineho. Tab Order dialog ( Edit|Tab
Order )
>prece zobrazuje jen ovladaci prvky ktere mohou mit focus a maji tedy i
vlastnost
>TabOrder.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>************************
>
>Resource
[*] Petr Mys <Mys(zv)post(tec)cz> - 20.5.1999 08:19:27
Nevi nekdo o nejakem free programu na generovani a spravu resource souboru
(.res), ktery bude umet pridavat i binarni soubory (napr. avi, wav). Zatim
jsem pouzival Microsoft
C ++, ale instalce zabira spustu mista.End User: SQL Report Building
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 20.5.1999 08:26:46
Hladam zaujemcov na moj program: SQL Report Building.
Je mozne pouzit i v Delphi ako komponentu.
Mozem poslat demo.
Popis:
SQL Report Builder was created in the programming language of Delphi as an extension of very popular QuickReport components. Its aim was creating the programme that makes possible production of printing reports for end user, too.
a.. easy creation of printing report and setting of component properties
b.. full support of end users for formation own printing report
c.. full support SQL (database MS SQL, Interbase, Oracle…)
d.. support DBF and Paradox tables
e.. full support SQL questions, possibility of using more SQL questions (support master-slave constructions)
f.. simple event programing that makes possible parametrization SQL query, modification SQL query, doing various calclulations, doing master-slave constructions, etc.
g.. possibility to save
TUNGLI Jan
tungli(zv)pvt.sk
DLLs - pouzivani, Exception hook
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 20.5.1999 08:48:09
Miloslav Skacel wrote:
>
> >ktere budes z hlavniho programu predavat jako parametr prislusny TForm
> >(samozrejme pred rusenim musis pretypovat na skutecny typ definovany v
> >DLL).
> >
> >procedure FK_FreeForm(AForm: TForm); stdcall; export;
> >begin
> > TFrmMain(AForm).Free;
> >end {FK_FreeForm};
>
> To pretypovani je snad zbytecne, ne?
>
Ani nahodou. Mohu poslouzit vlastnimi zkusenostmi. Protoze z DLL vracim
do hlavniho programu TForm a do FK_FreeForm posilam zase TForm, tak ta
DLL nema zrejme spravne informace o skutecnem typu. Proste pokud to
nepretypuju, nefunguje to. Verte mi.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)TShiftState
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.5.1999 09:24:07
> Nekdy je lepsi psat nasledujici:
>
> if ssShift in Shift then ....
To preci zalezi na tom, zda chci testovat, jestli
je stisknuty _prave_a_jenom_ Shift, nebo jestli chci
vedet, jestli je stisknuty Shift a ostatni me nazajimaji
D.
> ----------
> Od: xneuma02(zv)stud.fee.vutbr(tec)cz[SMTP:xneuma02(zv)stud.fee.vutbr(tec)cz]
> Odesl�no: 20. kv�tna 1999 10:07
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: TShiftState
>
> > Od: "Petr Vaclavek" <bla(zv)atrey.karlin.mff.cuni(tec)cz>
> > Komu: delphi-l(zv)fwd(tec)cz
> > Datum odesl�n�: Wed, 12 May 1999 18:27:50 +0200
> > V�c: Re: TShiftState
> > Po�t. program: Pegasus Mail for Win32 (v3.01d)
> > Odpov�� kam: delphi-l(zv)fwd(tec)cz
>
> > > Zdravim
> > > Mam taky maly problem, v nasledujucej procedure mi to vo
> zvyraznenom =
> > > riadku hlasi: Incompactible types.
> > > if Shift = ssShift then
> > >
> > > Problem je v tom, ze v helpe stoji, ze
> > > type TShiftState =3D set of (ssShift, ssAlt, ssCtrl, ssLeft,
> ssRight, =
> > > ssMiddle, ssDouble);
> > >
> > > Takze v com je chyba?
> > > Dakujem za kazdu pomoc.
> > **** Neni to nahodou v tom, ze porovnavas MNOZINU s PRVKEM?
> > Zkus toto:
> > if Shift = [ssShift] then ....
> >
> > Petr
> >
>
> Nekdy je lepsi psat nasledujici:
>
> if ssShift in Shift then ....
>
> David NEUMANN
> xneuma02(zv)stud.fee.vutbr(tec)cz
> TMemo, TRichEdit
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.5.1999 09:29:51
Ja jsem to udelal takhle :
procedure InsertText(WMemo : TMemo; WText : string; WSize : byte);
var I : byte;
begin
WMemo.SetSelTextBuf(PChar(WText));
if WSize>0 then
for I:=1 to WSize do
PostMessage(WMemo.Handle, wm_KeyDown, VK_LEFT, 0);
end;
potom jsem volal napr.:
InsertText(Memo1, '<H1></H1>', 5);
ale bohuzel jsem zjitil, ze potom uz nejde udelat
WM_UNDO :-(((
Dobra.
> ----------
> Od: Radek Zitta[SMTP:RADEK.ZITTA(zv)gyza(tec)cz]
> Odesl�no: 20. kv�tna 1999 13:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TMemo, TRichEdit
>
> Nev�te n�kdo, jak na aktu�ln� pozici kurzoru vlo�it n�jak� text tak,
> aby kurzor nezmizel a p��padn� zm�nit jeho pozici ?
>