Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Tisk bitmapy na tiskarnu.
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 23.5.2000 07:07:22
To je zajimave, pokud jsem tisknul z D2 tak nikdy tyto problemy nebyly (tim
chci rici ze kod je porad stejny). A vzdycky tisknu na A4 a prepocitavam
vsechny rozmery na skutecny rozmer stranky. Bitmapa, kterou tisknu, je
opravdu velka, a proporcialne je zmensovana StretchDraw funkci.
Jaro B.> -----P�vodn� zpr�va-----
> Od: Tomas Grepl [SMTP:delphi(zv)kapsw(tec)cz]
> Odesl�no: 22. V 2000 22:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Tisk bitmapy na tiskarnu.
>
> Problem muze byt v presahnuti tiskove plochy nebo v chybnem formatu bmp.
>
> Ovsem jiz od D1 se mi vyskytuje podobny problem i u tisku malych bitmap
> doprostred stranky, takze to spise tipuji na interni problem Delphi x
> Windows. Jako spolehlive se mi jevi pouzivat pri tisku na tiskarne misto
> BMP
> obrazky ve formatu metafile (bmp lze snadno prekonvertovat do metafile
> napr.
> v PaintShopPro nebo jinem grafickem editoru).
>
> Spolehliveji funguje tisk pri pouzivani mapovacich modu (i pro bmp).
>
> Pred nedavnem se tu objevil jednoduchy zpusob tisku pres TMetaFile
> (program
> "tiskne" do metafile souboru a vysledek se posle na tiskarnu). Mozna by to
> take mohlo byt reseni.
>
> Tomas Grepl
> K.A.P. - Ekonomicke informacni systemy
>
> >Ahoj,
> >
> >mam problem v Delphi 3 tisknout bitmapy na tiskarnu. Obcas se nevytiskne.
> >Tisknu pomoci objektu Printer do obdelniku RECT a bitmapa je ulozena v
> >image:
> >
> >Printer.Orientation := poPortrait;
> >Printer.BeginDoc;
> >If Not Printer.Aborted Then
> > Printer.Canvas.StretchDraw(RECT,Image1.Picture.Graphic);
> >Printer.EndDoc;
> >
> >Nevite, prosim, v cem by mohl byt problem? Nebo kde hledat chybu?
> >Nepodarilo se mi v IDE docilit aby se obrazek nevytiskl.
> >
> >Dekuji
> >
> >Jaro B.
> Zabirani systemovych prostredku (D5 prof)
[*] Pavel �ern� - 23.5.2000 07:15:33
Krome standardnich komponent zatim pouzivam jenom RxDbGrid.
Jak ten je na tom ?
Jinak BDE nepouzivam, pripojuji se k WinBase komponentami WDE,
D5 Upd.Pack 1 nainstalovany mam. Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
>>> "Petr Vones" <pvones(zv)mbox.vol(tec)cz> 22.5.2000 23:02:42 >>>
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
> Jak zjistim, ktere komponenty interne vyuzivaji tridu TButtonGlyph ? Ty tri,
> ktere jsou nahore uvedene - to je vse ? Zda se mi, ze hodne odcerpavaji
> treba ImageListy.
Ahoj,
Ze standartnich komponent v Delphi je to vse. U jinych by jsi musel prostudovat
zdrojaky. Co se tyce ImageListu, tam jsem tento problem nezaznamenal.
> Jeste k verzim woken. Zkusil jsem verzi programu, ktera odcerpavala cca 40%
> prostredku, spustit na Windows2000. Spustil jsem to 2x a treti spusteni se
> uz take nepodarilo - chybove hlaseni si nepamatuji presne, ale v zasade stejne,
> jak pod Win98.
To vypada na nejakou zavaznejsi chybu. GDI prostredky ve Win NT maji podstatne
vetsi rezervy nez u Win9x. Mozna by bylo dobre zjistit to chybove hlaseni. Dale,
pouzivas v te aplikaci BDE ? To ma take urcite interni omezeni. Mas nainstalovany
D5 Upd.Pack 1 ?
Petr Vones, amatersky programator
Distribuce souboru Access s vlastni aplikaci
[*] energystar <energystar(zv)inmail.sk> - 23.5.2000 07:27:41
Ahoj .
Prosim o radu a pomoc s nasledujucim problemom.
Mam aplikaciu napisanu v D5 Std. ktora uklada uzivatelove data do databazy
MS Access. Pristup k databaze je cez ADO ,
bez pouzitia komponent, ciste nativnym pristupom (MSJet, Connection,
Recordset etc) . Spolu s aplikaciou chcem distribuovat
aj prazdnu databazu s tabulkami do ktorych uzivatel bude vkladat pomocou
mojej aplikacie svoje data. Zatial myslim klasicky pripad.
Ale...
Mam niekolko nejasnosti ohladom licencnych podmienok mnou distribuovaneho
suboru Access. A to:
1; Mozem spolu s mojou aplikaciou sirit aj subor Access, ktory k svojej
funkcnosti aplikacia bezpodmienecne potrebuje?
( Musi mat koncovy uzivatel licenciu na Access , Office , alebo je sirenie
suborov tychto aplikacii bez obmedzenia ??)
2, Mozem na svojej web stranke poskytovat stiahnutie MSDAC pre uzivatelov
ktori ho nemaju v pocitadle nainstalovane?
Pripadne ci mozem pribalit samostatnu instalacu MSDAC na instalacne CD ?
( Pripada mi to serioznejsie ako odkazat uzivatela na stranky MS)
Nerad by som proste prisiel do krizku s licencnymi podmienkami produktu
tretej strany ( ak sa samostatny subor accesu tak da klasifikovat).
Je jasne, ze napr dokument Wordu najdete pribaleny takmer ku kazdej
aplikacii ( napr. ako jej popis atd.), ale ten nie je priamo potrebny k
"chodu" danej aplikacie.
Dakujem za kazdu radu, napad ci poznamku.
Hodne zdaru.
Energystar.
Tisk bitmapy na tiskarnu.
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 23.5.2000 07:33:52
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
>
> mam problem v Delphi 3 tisknout bitmapy na tiskarnu.
> Obcas se nevytiskne.
> .....
> Nevite, prosim, v cem by mohl byt problem?
>
Neni to problem Delphi 3, ale vsech 32-bitovych verzi Delphi.
Zabyval jsem se tim delsi dobu, ale exaktni reseni jsem nenalezl.
Podarilo se mi ale snizit frekvenci nevytistenych obrazku
na unosnou miru. Jak to delam? Osvedcilo se mi obklopit
volani kreslici funkce zavolanim ProcessMessages.
Application.ProcessMessages;
Application.ProcessMessages;
...
Printer.Canvas.StretchDraw(Rect(0,0,Printer.PageWidth,
Printer.PageHeight), Bitmap);
Application.ProcessMessages;
Application.ProcessMessages;
...
Pocet potrebnych volani je zavisly na mnoha faktorech.
Po serii pokusu povazuji za optimalni 4x pred a 4x po.
Zalezi zejmena na tom, co se pred tim posilalo do
tiskarny za data.
Vysvetluji si to tak, ze je-li system Windows nebo
driver tiskarny zamestnan zpracovavanim predchozich prikazu,
tak se prave tento prikaz, narocny na objem predavanych dat,
ztrati. Volanim ProcessMessages davam systemu Windows
nebo driveru tiskarny sanci pripravit se na zpracovani
tohoto prikazu (dokoncit zpracovani predchozich prikazu)
a nasledne mu dat prostor pro zpracovani tohoto prikazu.
Je to ciste experimentalni zjisteni, nic exaktniho.
Takto je to udelano v generatou sestav Sinea
a stiznosti uzivatelu od te doby ustaly.
Pokud ovsem uzivatele na stiznosti nerezignovali :-))
Vaclav Krmela
Clipboard po treti raz
[*] Daniel Sichta <dano(zv)customweb.sk> - 23.5.2000 07:41:51
Nie. Chcem to vlozit priamo do tela posty. Ak by bolo mozne tak aj komplet
naformatovany text. !
Dakujem
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr
Vones
Sent: Monday, May 22, 2000 10:54 PM
To: Konference Delphi
Subject: Re: Clipboard po treti raz
From: Daniel Sichta <dano(zv)customweb.sk>
> D5 E, W98
> Ako by sa dal najlepsie vyriesit tento moj problem :
> Cez OpenDialog si vyberiem subor (95 % suborov bude Word file) .Potrebujem
> obsah tohto suboru ( bez toho aby som ho otvoril alebo spustil Word)
nejako
> dostat do clipboardu a odtial do tela posty. Priklad potesi !!
Ahoj,
Pokud jsem to dobre pochopil, tak ti jde o to ziskat z Word dokumentu cisty
neformatovany text a ten vlozit do tela zpravy ? Pridat jej jako prilohu by
nebylo mozne ?
Petr Vones, amatersky programator
Instalace komponenty
[*] Pavel �ern� - 23.5.2000 07:45:49
Pokousim se nainstalovat K_edit komponenty a pri instalaci (probiha kompilace)
jsem dostal nasledujici hlasku :
(Fatal error) K_edit.pas(1): Program or unit 'K_edit.pas' recursively uses itself
Zrejme jde o to, ze zdrojovy soubor ma stejne jmeno jako unit.
Co delam spatne ? Mam to prejmenovat (to asi ne) ? Nebo nekde nastavit nejakou volbu ?
Diky za radu.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
MSDE - instalace
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.5.2000 07:46:29
Ahoj,
vytvoril jsem aplikaci, ktera se snazi nainstalovat MSDE takovymto
zpusobem:
var
err: integer;
msg: string;
f: TForm;
SI: TStartupInfo;
PI: TProcessInformation;
reserved: cardinal;
begin
ZeroMemory((zv)SI, SizeOf(SI));
SI.cb := SizeOf(SI);
SI.dwFlags := STARTF_USESHOWWINDOW;
SI.wShowWindow := sw_SHOWMINNOACTIVE;
if CreateProcess(nil, PChar(ExtractFilePath(ParamStr(0)) +
'MSDE\msdex86.exe -s -a -f1 "' + ExtractFilePath(ParamStr(0)) +
'MSDE\unattend.iss"'), nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then
begin
f := CreateMessageDialog('Prob�h� instalace MSDE. M��e to trvat
i del�� dobu. Vy�kejte, dokud toto hl�en� nezmiz�...',
mtInformation, []);
f.Height := trunc(f.Height * 0.65);
f.Show;
f.Update;
WaitForSingleObject(PI.hProcess, INFINITE);
f.Free;
end;
end;
Instalace MSDE se radne spusti, ale po nejake dobe to zatuhne
(myslim ta instalace) a u teto moji aplikace je v Task manageru
napsano, ze neni odpoved.
Pokud vyhodim WaitForSingleObject, tak instalace probehne v
poradku.
Nemate nekdo tuseni, proc WaitForSingleObject zpusobi
zkolabovani instalace? A jak ho efektivne nahradit?
Zkousim to cvicne na W95A, IE5, DCOM95, nova comctl32.dll.Instalace DAO 3.5
[*] Kejval <petr.kejval(zv)worldonline(tec)cz> - 23.5.2000 08:48:47
Ahoj,
1. Na po��ta� jsem nainstaloval w95 osr2
2. Na jin�m po��ta�i jsem vytvo�il jsem instalaci DAO 3.5 pomoc�
InstallShield Expressu.
DAO 3.5 jsem st�hnul ze str�nek Install Shieldu jako DAO35_redist.exe.
(Bohu�el DAO35_redist.exe neobsahuje instala�n� skript.)
Tuto instalaci jsem vytvo�il pomoc� instala�n�ho skriptu od Erika Salaje,
kter� dod�v� ke sv�m Trial DAO komponent�m. V tomto instala�n�m skriptu
jsem upravil cesty k jednotliv�m soubor�m tak, aby se k instalaci pou�ily
soubory DAO sta�en� ze str�nek InstallShieldu.
3. Naistaloval jsem takto vytvo�enou instalaci DAO 3.5 na po��ta� s w95
osr2.
P�i instalaci se vyskytla n�sleduj�c� chyba:
The following file(s) failed to Self Register
C:\WINDOWS\SYSTEM\msexch35.dll
C:\WINDOWS\SYSTEM\msrdo20.dll
4. Na po��ta�i s w95 osr2 jsem spustil program vytvo�en� v D4 C/S s t�mto
k�dem
DBEngine:=CreateOleObject('DAO.DBEngine.35');
Tento k�d skon�il s touto chybou:
OLE error 80040112
Z kroku 3 a 4 jsem usoudil, �e jsem DAO 3.5 �patn� nainstaloval.
Pros�m o radu co d�l�m �patn�. P��padn� zda by mi n�kdo nemohl poskytnout
instala�n� skript pro InstallShield Express, s kter�m bych DAO 3.5 byl
schopen nainstalovat na �ist� po��ta� bez nutnosti instalovat Access.
Ing. Petr Kejval
set/get]cursorpos
[*] sup(zv)svitap(tec)cz - 23.5.2000 9:12:50
Dobry den, mam malinkaty problemecek. V nasledujici ukazce kodu:
var
gx,gy:integer;
tps:tpoint;
begin
setcursorpos(gx,gy);
getcursorpos(tps);
end;
si nedopovidaji pozice kurzoru: gx a tps.x, gy a tps.y. S kurzorem nic
nedelam... Nevite nekdo, proc???
D3Profi, W95
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
OT: Popis RTF
[*] Petr J�nsk� - 23.5.2000 09:42:36
Nevite nekdo, kde by se dal ziskat popis RTF?
Dik a zdravim!
Ing. Petr J�nsk�
C.A.C spol. s r.o., Teplice
Counter
[*] Martin Sekanina <marsek(zv)softcell(tec)cz> - 23.5.2000 09:48:44
JavaScript je od Netscape, JScript je microsofti, oba dva splnuji ECMA-262
standard (az na nekolik rozsireni MS jsou uplne stejne). Java je od Sunu a
krome syntaxe nema s temi skriptovacimi jazyky nic spolecneho.
Martin
-----Original Message-----
From: Polak Jiri [mailto:Jiri.Polak(zv)tconsult(tec)cz]
Sent: Monday, May 22, 2000 3:51 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Counter
O JavaScriptu jsem v ASP neslysel. Microsofti podporuji
svuj JScript a pochybuji, ze by podporovali
neco od Sunu.
.
Jura
Zrusit radek v udalosti OnCalcField
[*] Radek Zhasil <Radek.Zhasil(zv)seznam(tec)cz> - 23.5.2000 09:49:44
No moc to nefunguje, alespon ne u me.
Pokud vlozis do udalosti OnFilteredRecord, breakpoint a podivas se na hodnotu pocitaneho pole rozhodn� tam nebude spr�vn� vysledek.(a to plati pro vsechny verze Delphi)
Zdravim
Radek Zhasil
> ja jsem tohle zkousel a funguje to porad ... D5
>
> ----- Original Message -----
> From: Heinisch Jiri <deis(zv)deis(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, May 17, 2000 9:51 PM
> Subject: Re: Zrusit radek v udalosti OnCalcField
>
>
> > > ja pouzivam udalost OnFilteredRecord
> > >
> > > procedure TfMarze.qDodavkyFilterRecord(DataSet: TDataSet;
> > > var Accept: Boolean);
> > > begin
> > > Accept := qDodavkyVypocitanePole.AsInteger<>0;
> > > end;
> > >
> > > Vlada Cadsky
> >
> > a kterou verzi Delphi pouzivas
> > V D5 mi tato konstrukce prestala chodit
> >
> >
> > S pozdravem Heinisch Jiri
> >
>
>
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Drag & Drop
[*] mkotaska(zv)atlas(tec)cz - 23.5.2000 09:51:33
Ahoj.
Na internetu jsem si stahl komponentu (TStretchHandle), ktera umoznuje menit velikost a pretahovat komponenty (napr. button, label) za behu programu. To mi vcelku vyhovuje. Ve svem programu mam na formulari umisteno vicero komponent - TButton, kterymi chci pohybovat (ne najednou). Nevim si rady se situaci, jak zabranit tomu, aby kdyz komponentu mysi pretahuji, neslo pretahnout komponentu na jinou komponentu. Tj., aby se neprekryly. Jak pri tazeni zjistim, ze zrovna nejsem nad pozici, kde se nachazi jina komponenta?
Pokud by nekdo vedel jak na to, budu rad, kdyz odpovi.
Dekuji vsem, kteri odpovi
Milan Kotaska
mkotaska(zv)atlas(tec)cz
QuickReport
[*] Roman �ev��k����� �Ȥ�*%�̿ - 23.5.2000 10:01:57
Ahoj,
potrebuji s QuickReportem vytisknout dve tabulky za sebe na jednu stranku, a to tak, ze kazda bude mit svuj column. Zkousel jsem to s Group, ale nepovedlo se. Jde to vubec ?
Dik za kazdou radu.
Roman
QR 3.0.5
Zabirani systemovych prostredku (D5 prof)
[*] Pavel �ern� - 23.5.2000 10:12:08
Jeste me napada - jak to je treba s komponentou KEdit ?
Zabira vic GDI prostredku kvuli tomu, ze obsahuje dalsi
prvek - tlacitko - ackoliv je treba "not Visible" ?
Nenadela si clovek do bot, kdyz pouzije takove komponenty ?
Ono tech editu je v aplikaci pekna hromadka ....
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
>>> "Petr Vones" <pvones(zv)mbox.vol(tec)cz> 22.5.2000 23:02:42 >>>
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
> Jak zjistim, ktere komponenty interne vyuzivaji tridu TButtonGlyph ? Ty tri,
> ktere jsou nahore uvedene - to je vse ? Zda se mi, ze hodne odcerpavaji
> treba ImageListy.
Ahoj,
Ze standartnich komponent v Delphi je to vse. U jinych by jsi musel prostudovat
zdrojaky. Co se tyce ImageListu, tam jsem tento problem nezaznamenal.
Petr Vones, amatersky programator
Counter
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 23.5.2000 10:17:03
> -----P�vodn� zpr�va-----
> Od: Martin Sekanina [mailto:marsek(zv)softcell(tec)cz]
> Odesl�no: 23. kv�tna 2000 9:49
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Counter
>
>
> JavaScript je od Netscape, JScript je microsofti, oba dva
> splnuji ECMA-262
> standard (az na nekolik rozsireni MS jsou uplne stejne). Java
> je od Sunu a
> krome syntaxe nema s temi skriptovacimi jazyky nic spolecneho.
>
Ohledne autorstvi mas pravdu, napsal jsem pekne zmatky :-(
Ale to nic nemeni na tom, ze ASP podporuji JScript a ne JavaScript.
(i kdyz JScript je okopirovany JavaScript).
Java nejen ze nema s JavaScriptem nic spolecneho, ona nema spolecnou
ani syntaxi. Pouze podobnou.
Jura
Funkce Dispatch
[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 23.5.2000 11:02:11
Ahoj,
prosim o radu co dela a v jakem pripade se pouziva funkce Dispatch(Message)
?
Dekuji
mvackar(zv)cpoj(tec)cz
Minimalizace a obnova vzd�len�ho procesu
[*] P�emysl Neuman <p.neuman(zv)email(tec)cz> - 23.5.2000 11:15:45
Vazeni pratele,
omlouvam se, ze stale obtezuji se svym problemem, ale uz jsem opravdu v koncich.
Mam na pozadi spustenou svoji aplikaci. Potrebuji, aby kdyz ma aplikace dostane
nejaky impuls (treba timer), aby zminimalizovala bezici aplikaci a sama se
nastavila jako aktivni.
Potom potrebuji, aby v pripade, ze nekdo stiskne tlacitko na me aplikaci,
aby se predtim bezici aplikace zase obnovila a pokra�ovala d�le.
Pros�m pomozte mi s tim. Je to opravdu dost nutne. At jsem v archvivu hledal
jak chtel, nic co by resilo muj problem jsem nenasel.
Mockrat vsem dekuji.
Premysl Neuman
Restart na NT
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.5.2000 11:21:07
Ahoj,
potrebuji ze sve aplikaci zaridit restart pocitace. Mel by byt chodivy
na W9x i WinNT, ale momentalne mi jde o NT. V helpu jsem nasel
tento postup (prepsano z C++):
var
reserved: cardinal;
hToken: THandle;
tkp, pom: TOKEN_PRIVILEGES;
begin
if OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
// Get the LUID for the shutdown privilege.
LookupPrivilegeValue(nil, PChar('SE_SHUTDOWN_NAME'),
tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1; // one privilege to set
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
// Get the shutdown privilege for this process.
AdjustTokenPrivileges(hToken, FALSE, tkp, 0, pom, reserved);
// Shut down the system and force all applications to close.
ExitWindowsEx(EWX_REBOOT or EWX_FORCE, reserved);
end;
end;
Tento kod v poradku probehne, ale k restartu stroje nedojde. Proste
se nestane vubec nic. Kde je chyba?
Se samotnou funkci ExitWindowsEx jsem neuspel ani na W95,
ale to jsem zkusil jen jednou a dal se po tom nepidil - je mozne, ze
tam byl jiny problem.
WinNT 4 , D4 C/S
Jak by se resila chodivost na W95 i WinNT soucasne, tj. v jednom
programu?
Dik,
David
owner canvas handle
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.5.2000 11:52:19
On 22 May 2000, at 20:56, Pavel Kahle wrote:
> GetDeviceContex mi nebyl uplne jasny tak jsem to pouzil takhle :
>
> Var och:hdc;
>
> with owner as Tcontrol do
> try
> och := canvas.handle;
> except
> och:=0;
> end;
Tohle vezme vzdy Canvas formulare. TControl nema Canvas.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Restart na NT
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 23.5.2000 12:14:58
> Tento kod v poradku probehne, ale k restartu stroje nedojde.
> Proste se nestane vubec nic. Kde je chyba?
Funkce LookupPrivilegeValue, AdjustTokenPrivileges
i ExitWindowsEx vraci Boolean hodnotu, a pokud
vrati False tak je potreba volat GetLastError a zjistit
tak v cem je problem.
Daniel
Zabirani systemovych prostredku (D5 prof)
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 23.5.2000 12:19:45
Odcerpava, ale je otazkou kolik.
Zkusil bych se zamerit na to ktere komponenty zerou vice a ktere mene,
(prazdny projekt, projekt s 10 buttony urciteho typu, 10 query, atd), pak se projevi
problematicke komponenty.
Ve WinNT se podivat kolik to zere handlu a hlavne jestli se behem provozu nehromadi.
Slavek
PS: Objevil jsem zajimaveho zrouta handlu pri otavirani a zavirani default sesion
v BDE (pokazde si uzmul neky ten handl navic).
> Jeste me napada - jak to je treba s komponentou KEdit ?
> Zabira vic GDI prostredku kvuli tomu, ze obsahuje dalsi
> prvek - tlacitko - ackoliv je treba "not Visible" ?
>
> Nenadela si clovek do bot, kdyz pouzije takove komponenty ?
> Ono tech editu je v aplikaci pekna hromadka ....
>
>
>
> Pavel Eerny
> email: pavel(zv)cerny-ps(tec)cz
>
> >>> "Petr Vones" <pvones(zv)mbox.vol(tec)cz> 22.5.2000 23:02:42 >>>
> From: Pavel Eerny <cerny(zv)cerny-ps(tec)cz>
> > Jak zjistim, ktere komponenty interne vyuzivaji tridu TButtonGlyph ? Ty tri,
> > ktere jsou nahore uvedene - to je vse ? Zda se mi, ze hodne odcerpavaji
> > treba ImageListy.
>
> Ahoj,
>
> Ze standartnich komponent v Delphi je to vse. U jinych by jsi musel prostudovat
> zdrojaky. Co se tyce ImageListu, tam jsem tento problem nezaznamenal.
>
> Petr Vones, amatersky programator
>
>
> Jak vlozit prodleni do programu
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 23.5.2000 11:21:18
treba pomoci GetTickCount
C := GetTickCount;
repeat ... until C + 2000 > GetTickCount
Tomas
----- Original Message -----
From: Daniel Resler
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, May 22, 2000 10:05 PM
Subject: Jak vlozit prodleni do programu
Dobry den,
jakym zpusobem vlozit pomlku do programu, pozastaveni chodu, treba na 2,3,10
sekund ?
Dekuji
Daniel Resler
Trial verse DELPHI
[*] pmarecek(zv)ccity(tec)cz - 23.5.2000 12:54:40
Pros�m nev�te jak�m spusobem zastavit beh trial verze delphi 5 jsem
zacatecnik a neni pro mne mozne zaplatit plnou verzi ale chci se naucit
programovat , dekuji za jak�koli tip. Pavel
Restart na NT
[*] sup(zv)svitap(tec)cz - 23.5.2000 13:01:12
>Ahoj,
>
>potrebuji ze sve aplikaci zaridit restart pocitace. Mel by byt chodivy
>na W9x i WinNT, ale momentalne mi jde o NT. V helpu jsem nasel
>tento postup (prepsano z C++):
Me osobne chodi tento kod:
procedure TForm1.Button2Click(Sender: TObject);
const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; // Borland forgot
thisdeclaration
var hToken:THandle;
tkp:TTokenPrivileges;
tkpo:TTokenPrivileges;
zero:DWORD;
begin
zero := 0;
if not OpenProcessToken( GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin
MessageBox(0,'Exit Error','OpenProcessToken() Failed',MB_OK );
Exit;
end;
if not OpenProcessToken( GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin
MessageBox(0,'Exit Error','OpenProcessToken() Failed',MB_OK );
Exit;
end;
if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' ,
tkp.Privileges[ 0 ].Luid ) then begin
MessageBox(0,'Exit Error','LookupPrivilegeValue() Failed',MB_OK );
Exit;
end;
tkp.PrivilegeCount := 1;
tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges( hToken, False, tkp,SizeOf(TTokenPrivileges ),
tkpo, zero );
if Boolean( GetLastError()) then begin
MessageBox(0, 'Exit Error', 'AdjustTokenPrivileges() Failed',MB_OK );
Exit; end
else
ExitWindowsEx( EWX_FORCE or EWX_REBOOT, 0 );
halt(0);
end;
Bye
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
QuickRep
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 23.5.2000 13:42:08
Pridam taky trosku do mlejna/.QRComposite jsem zkousel, ale nejak jsem neprisel na to, jak zajistit, aby mi zacinal
v QRComposite novy report na nove strance.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> Hello,
>
> pres QRCompositeReport jich muzes nasazet kolik chces... Spojujes
> vlasne vice QR do jednoho.
>
InstallShield
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 23.5.2000 13:47:05
M��ete mi prosim nekdo poslat link na stahnuti InstallShieldu (pokud to tedy
nekde je ke stahnuti) nebo nejakeho jineho instalacniho programu, ktery by
nabizel vice moznosti (mam InnoSetup, ale ten mi uz nestaci).
Jiste mi nevrhnete abych si udelal vlastni, ale zase tek pokrocily nejsem
(podpora instalace z vice disket, vytvareni zastupcu, atd...). Jestli nekdo
udelal neco zajimaveho a chce se o to podelit (ZDARMA), tak at mi ho posle.
Thank You Very Much
--- Disconnected ---
Instalace DAO 3.5
[*] Ing. Jan Skvor <skvor(zv)lec(tec)cz> - 23.5.2000 14:05:39
Following are some special considerations you should keep in mind:
Dao350.dll needs to have Msvcrt40.dll and other required files on the
computer before it can register. If DAO fails to register, check the version
of MSVCRT40.DLL. Problems are typically seen under Windows 95 where the
version should be 4.10.6038 (about 319K file).
Msrdo20.dll needs to have ODBC installed before it will register. Use the
ODBC Installation program to install ODBC.
Msexch35.dll needs to have MAPI installed on your system before it can
register.
Bl�e viz http://support.microsoft.com/support/kb/articles/Q167/5/23.asp
----- Original Message -----
From: "Kejval" <petr.kejval(zv)worldonline(tec)cz>
To: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 8:48 AM
Subject: Instalace DAO 3.5
> Ahoj,
> 1. Na po��ta� jsem nainstaloval w95 osr2
>
> 2. Na jin�m po��ta�i jsem vytvo�il jsem instalaci DAO 3.5 pomoc�
> InstallShield Expressu.
>
> DAO 3.5 jsem st�hnul ze str�nek Install Shieldu jako DAO35_redist.exe.
> (Bohu�el DAO35_redist.exe neobsahuje instala�n� skript.)
> Tuto instalaci jsem vytvo�il pomoc� instala�n�ho skriptu od Erika Salaje,
> kter� dod�v� ke sv�m Trial DAO komponent�m. V tomto instala�n�m skriptu
> jsem upravil cesty k jednotliv�m soubor�m tak, aby se k instalaci pou�ily
> soubory DAO sta�en� ze str�nek InstallShieldu.
>
> 3. Naistaloval jsem takto vytvo�enou instalaci DAO 3.5 na po��ta� s w95
> osr2.
> P�i instalaci se vyskytla n�sleduj�c� chyba:
> The following file(s) failed to Self Register
> C:\WINDOWS\SYSTEM\msexch35.dll
> C:\WINDOWS\SYSTEM\msrdo20.dll
>
> 4. Na po��ta�i s w95 osr2 jsem spustil program vytvo�en� v D4 C/S s t�mto
> k�dem
> DBEngine:=CreateOleObject('DAO.DBEngine.35');
> Tento k�d skon�il s touto chybou:
> OLE error 80040112
>
> Z kroku 3 a 4 jsem usoudil, �e jsem DAO 3.5 �patn� nainstaloval.
>
> Pros�m o radu co d�l�m �patn�. P��padn� zda by mi n�kdo nemohl poskytnout
> instala�n� skript pro InstallShield Express, s kter�m bych DAO 3.5 byl
> schopen nainstalovat na �ist� po��ta� bez nutnosti instalovat Access.
>
> Ing. Petr Kejval
>
>
>Jak vlozit prodleni do programu
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 23.5.2000 14:16:32
Teda Sleep () je urcite lepsi, i vzhledem k zatizeni procesoru, pokud
se nema nic behem te prodlevy delat. A navic pozor, hodnota
gettickcount pretece kazdych cca 50 dni. Fakt je ze u windows to asi
nevadi, protoze k preteceni prakticky nikdy nemuze dojit.
Vaclav Sazima
Tomas Bihary wrote:
>
> treba pomoci GetTickCount
>
> C := GetTickCount;
> repeat ... until C + 2000 > GetTickCount
>
> Tomas
>
> ----- Original Message -----
> From: Daniel Resler
> To: delphi-l(zv)fwd(tec)cz
> Sent: Monday, May 22, 2000 10:05 PM
> Subject: Jak vlozit prodleni do programu
>
> Dobry den,
>
> jakym zpusobem vlozit pomlku do programu, pozastaveni chodu, treba na 2,3,10
> sekund ?
> Dekuji
>
> Daniel Resler
Restart na NT
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 23.5.2000 14:26:13
> > Tento kod v poradku probehne, ale k restartu stroje nedojde.
> > Proste se nestane vubec nic. Kde je chyba?
>
> Funkce LookupPrivilegeValue, AdjustTokenPrivileges
> i ExitWindowsEx vraci Boolean hodnotu, a pokud
> vrati False tak je potreba volat GetLastError a zjistit
> tak v cem je problem.
Jo, podobnym zpusobem jsem na to taky nakonec prisel. Problem
byl v LookupPrivilegeValue, ve jmenu prislusneho prava. Ma byt
SeShutdownPrivilege. Zajimave ale je, ze tohle jsem musel zjistit
nahodou, help o tom taktne mlci. A nejen help, ale i windows.pas a
jine zdrojaky.
V kazdem pripade - problem se zda byt uspokojive vyresen - ve
vsech bodech meho minuleho mailu.
Dik,
David
owner canvas handle
[*] Pavel Kahle <kahle(zv)atlas(tec)cz> - 23.5.2000 14:35:51
Trosku to srovnam :
kdyz chci nacist bitmapu pod komponentou :
BitBlt(pombitmap.Canvas.Handle, 0, 0, width , height,
GetDeviceContext(notUsed) , 0,0, SrcCopy);
nacte owner-canvas pod komponentou
BitBlt(pombitmap.Canvas.Handle, 0, 0, width , height, GetDC((owner as
TWinControl).Handle) ,0,0, SrcCopy);
nacte owner-canvas od leveho horniho rohu - GetDC((owner as
TWinControl).Handle) - je tedy handle canvasu owner komponenty
// kdyz pouziji
BitBlt(pombitmap.Canvas.Handle, 0, 0, width , height, GetDC((owner as
TWinControl).Handle) ,left,top, SrcCopy);
// mam co jsem chtel
BitBlt(pombitmap.Canvas.Handle, 0, 0,width , height, canvas.handle ,0,0,
SrcCopy);
je blbost, ale taky nacte owner-canvas pod komponentou
(nejsou osetreny chyby)
Diky vsem P.Kahle
Prehravani WAV
[*] <sw.maurice(zv)centrum(tec)cz> - 23.5.2000 14:43:54
ahoj
>upresnuji svuj vcerejsi dotaz. Podarilo se mi udelat rychloposuv
>vpred i
> vzad, to zas nebyl takovy problem, ale ted bych potreboval
>zrychlene
> prehravani. Gates nabizi funkci waveOutSetPlaybackRate,
>ktera by to mela
... no, ono to provede zkraceni doby prehravani, ale bez prelazeni
/Time Compress/
> delat, ale kdyz jsem ji pouzil, tak mi to reklo, ze funkce
>neni podporovana
> (W2000, SB128 PCI se standardnim driverem z W2K). Nemate
>nekdo prakticke
... zadna radoby profi zvukarna od creativelabs tohle nepodporuje,
i kdyz, SBLive ma nejaky DSP efekt, ktery umoznuje
Pitch shift, ale rozhodne tuhle funkci taky nezna /aspon ne ten co
mam tady :-)/
> zkusenosti se zrychlenym prehravanim WAVu ? Existuje zvukova
>karta, jejiz
... nevim jakym zpusobem prehravas, ale kdyby ti nevadilo, ze to
preladis, tak staci kdyz nastavis
waveformatex.nSamplesPerSec:=waveformatex.nSamplesPerSec*2 a to
znamena, ze wav se prehraje 2x tak rychleji /var
waveformatex: PWaveFormatEx/ a pak provedes waveOutOpen.
>driver tohle zrychlene prehravani podporuje ?
... z tech obycejnejsich, tusim ze od Terratecu serie EWS, ale
ruku bych za to do ohne nedal :-)
Hezky den
preje M.
e-mail: sw.maurice(zv)centrum(tec)cz
homepage: http://www.mujweb(tec)cz/Zabava/sw.maurice
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
QuickRep
[*] tomas.mazurek(zv)vitkovice(tec)cz - 23.5.2000 13:17:30
Hello,
pres QRCompositeReport jich muzes nasazet kolik chces... Spojujes
vlasne vice QR do jednoho.
Tomas
>Ahoj,
>potrebuji s QuickReportem vytisknout dve tabulky za sebe na jednu =
>stranku, a to tak, ze kazda bude mit svuj column. Zkousel jsem to s =
>Group, ale nepovedlo se. Jde to vubec ?comctl32.dll ?
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 23.5.2000 15:44:11
Mohl by mi prosim nekdo zhruba popsat, jake mohou nastat problemy programu v
D5, kdyz je v systemu stara verze comctl32.dll?
Kde sehnat vzdy nejnovejsi?
Dik.
Petr Smol�k
psmolik(zv)fides(tec)cz
Minimalizace a obnova vzd�len�ho procesu
[*] Lauko �tefan <lauko(zv)salamon.sk> - 23.5.2000 16:33:19
Ahoj.
var
H : THandle;
begin
H:=GetForegroundWindow; {zisti aktivnu app}
ShowWindow(H,swMinimize); {minimalizuje aktivnu app}
SetForegroundWindow(Application.Handle);
{som aktivny}
SetForegroundWindow(H); {zaktivni predtym aktivnu}
end;
Mozno to bude fungovat ...
Lauko
----- Original Message -----
From: P�emysl Neuman <p.neuman(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 11:15 AM
Subject: Minimalizace a obnova vzd�len�ho procesu
> Vazeni pratele,
>
> omlouvam se, ze stale obtezuji se svym problemem, ale uz jsem opravdu v
koncich.
>
> Mam na pozadi spustenou svoji aplikaci. Potrebuji, aby kdyz ma aplikace
dostane
> nejaky impuls (treba timer), aby zminimalizovala bezici aplikaci a sama
se
> nastavila jako aktivni.
>
> Potom potrebuji, aby v pripade, ze nekdo stiskne tlacitko na me aplikaci,
> aby se predtim bezici aplikace zase obnovila a pokra�ovala d�le.
>
> Pros�m pomozte mi s tim. Je to opravdu dost nutne. At jsem v archvivu
hledal
> jak chtel, nic co by resilo muj problem jsem nenasel.
>
> Mockrat vsem dekuji.
>
> Premysl Neuman
>comctl32.dll ?
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 23.5.2000 16:56:56
> Mohl by mi prosim nekdo zhruba popsat, jake mohou nastat problemy programu
v
> D5, kdyz je v systemu stara verze comctl32.dll?
Napr. se nevykresluji nektere prvky - napr. coolbary, placata tlacitka apod.
> Kde sehnat vzdy nejnovejsi?
U Microsoftu na webu.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Jak vlozit prodleni do programu
[*] Pavel Kahle <kahle(zv)atlas(tec)cz> - 23.5.2000 17:25:15
Sleep v sobe nema ProcessMessages,
tak se mi zda varianta
C := GetTickCount;
repeat
caption:= inttostr(9000+c-GetTickCount );
application.ProcessMessages;
until C + 9000 <GetTickCount;
lepsi
Zdravim P.Kahle
QuickRep
[*] tomas.mazurek(zv)vitkovice(tec)cz - 23.5.2000 15:51:21
Hello,
u QRCompositeReport jsem u toho QR, kde jsem potreboval novou stranu
dal band typu PageHeader, kupodivu s ForceNewPage = False... Nejak to
funguje, je fakt, ze jsem se s tim QRComp. pekne navstekal nez jsem
jej prinutil k nejake rozumne cinnosti... Zvlastne kdyz se to spoji
jeste s vlastnim Preview a kdyz chci mit sestavy pekne v jedne DLL.
Tomas
Docking
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.2000 18:21:02
Ahoj
Rad bych udelal aplikaci s dokovatelnymi okny. Ale fakt nevim jak na
to.
Jedna se mi o to, aby to vypadalo stejne jako treba v prostredi
Delphi.
Tj. Jedno okno a na jeho okraj (staci jeden) se muze prilepit jine
okno.
Pricemz to samozrejme muzu jak prilepit tak odlepit a navic
samozrejme
menit velikost kdyz to je prilepene.
Prolezl jsem archiv konference a nalezl defacto toto:
Dej tam panel a u toho panelu nastav DockSite = True a u formulare
ktery
chces na neho pretahovat DragKind = dkDock a DragMode = dmAutomatic.
Priklad najdes i v \Demos\Docking <Petr Vones>
Rada je dobra, funguje, akorat ze nemuzu menit velikost toho
prilepeneho
okna, coz bych docela rad.
Na ten priklad jsem se samozrejme dival ale pripada mi to strasne
az mozna zbytecne moc komplikovane. Doufam, ze to jde nejak
jednoduse.
Takze prosim o radu, nakopnuti a idealne nejaky jednoduchy priklad.
Diky moc...
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Animace
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 23.5.2000 19:04:07
Muze mi nekdo poradit jak se pouziva Vlastnost TransparentColor u
TAnimatedImage z RxLib. Mam sekvenci asi 10-ti obrazku sem tam s cernymi
misty a potrebuju, aby ta cerna byla pruhledna. Myslel jsem, ze kdyz u
prislusne vlastnosti nastavim clBlack tak to pujde, ale ono nic. Animace se
prehrava, ale i z cernymi misty. Pokud s tim nekdo mate zkusenosti, tak
prosim napiste.
Mejte se vsichni a hodne dobrych
program�.MSDE - instalace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.5.2000 19:23:41
On 23 May 2000, at 7:46, David Lebeda wrote:
> vytvoril jsem aplikaci, ktera se snazi nainstalovat MSDE takovymto
> zpusobem:
>
> if CreateProcess(nil, PChar(ExtractFilePath(ParamStr(0)) +
> 'MSDE\msdex86.exe -s -a -f1 "' + ExtractFilePath(ParamStr(0)) +
> 'MSDE\unattend.iss"'), nil, nil, False, NORMAL_PRIORITY_CLASS, nil,
> nil, SI, PI) then begin
> [...]
> WaitForSingleObject(PI.hProcess, INFINITE);
>
> Instalace MSDE se radne spusti, ale po nejake dobe to zatuhne
> (myslim ta instalace) a u teto moji aplikace je v Task manageru
> napsano, ze neni odpoved.
> Pokud vyhodim WaitForSingleObject, tak instalace probehne v
> poradku.
Tam je patrne problem, ze nekde uvnitr se spousti 16bitovy
instalacni zavadec. Krome toho, tech procesu je tam vic - nejdrive
se provede unzip, teprve pak se spusti instalace. Takze, ja
pouzivam MsgWaitForMultipleObjects. Ale ani to nestaci, takze
jsem pro MSDE nasadil timer a testuji Setup.log, zda tam
naskocila hodnota v klici ResultCode. Pred instalaci je vsak vhodne
smazat stary Setup.log, nebo alespon ten klic.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
biHelp
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 23.5.2000 20:36:25
Zajimalo by me, jak se pouziva biHelp z mnoziny BorderIcons formulare
(otazn�k v titulku okna). V
napovede jsem to nenasel (nebo neumim hledat). Pokud by se n�komu cht�lo,
mohl by mi napsat i kousek kodu.
--- Transfer Completed ---
Vypnuti monitoru
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 23.5.2000 20:36:55
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Kdysi jsem nekde mel napsane jak se restartuje nebo vypina pocitac, ale nemohu to nikde najit. Mohl byste mi to nekdo pripomenout. Jeste by me zajimalo jestli jde v D3 vypnout monitor, nekde jsem o tom cetl, ale nevim jestli to jde v "trojkach". Diky
Zamena carky za tecku v paradox tabulce.
[*] <dodo(zv)centrum(tec)cz> - 23.5.2000 21:40:08
Bud pouzij misto VAL StrToFloat - nebo tak nejak, ale to nedoporucuju, prave kvuli tem carkam,
teckam....
Ja sem si udelal jednoduchov funkci, ktera ve stringu nahradi carky za tecky a ten retezec pak klidne
posli funkci VAL
Tak fce vypada takto: (samozrejme si ji muzes prejmenovat :-)))
Function Demence (NumberStr:String):String;
Begin
Result:=StringReplace (NumberStr,',','.',[rfReplaceAll]);
End;
Takze ty pak napises:
Val(Demence (Label1.Caption), r , code);
Myslim, ze tohle je nejlepsi reseni a hlavne nezalezi na tom, jestli mas ve
Windows nastanou carku nebo tecku. Z programu, ktere nejsou takhle nebo podobne
osetreny vzycky rostu....
Dodo
______________________________________________________________
> Od: "Michal David" <michal(zv)access-it(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Tue, 23 May 2000 18:13:03 -0400
> P�edm�t: Zamena carky za tecku v paradox tabulce.
>
> Zdravim,
> Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
> Tuto hodnotu si takto nactu :
>
> Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
>
> A pote s tim chci dale pracovat v jedne funkci.
> Jenze pokud napisi:
>
> var
> r : real;
> code: integer;
>
> Val(Label1.Caption, r , code);
>
> vraci se mi code 3 prave kvuli carce.
>
> Nevite nekdo co s tim?
>
> -md
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Instalace DAO 3.5
[*] Erik Salaj <winsoft(zv)napri.sk> - 23.5.2000 22:18:13
> 3. Naistaloval jsem takto vytvo�enou instalaci DAO 3.5 na po��ta� s w95
> osr2.
> P�i instalaci se vyskytla n�sleduj�c� chyba:
> The following file(s) failed to Self Register
> C:\WINDOWS\SYSTEM\msexch35.dll
> C:\WINDOWS\SYSTEM\msrdo20.dll
Tieto problemy suvisia s tym, ze tam chybaju nejake dalsie DLL-ka.
Pokial to nepouzivas, tak to mozes vyhodit zo skriptu. Skript bol
napisany podla MS specifikacie ako instalovat DAO 3.5 (mozem poslat),
kde sa tento problem spomina:
There are some special considerations you should keep in mind.
. DAO350.dll needs to have MSVCRT40.dll and other required files on
the computer before it can register.
. MSRDO20.dll needs to have ODBC installed before it will register.
Use the ODBC Installation program to install ODBC.
. MSEXCH35.dll will need MAPI installed on your system before it can
register.
> 4. Na po��ta�i s w95 osr2 jsem spustil program vytvo�en� v D4 C/S s t�mto
> k�dem
> DBEngine:=CreateOleObject('DAO.DBEngine.35');
> Tento k�d skon�il s touto chybou:
> OLE error 80040112
>
> Z kroku 3 a 4 jsem usoudil, �e jsem DAO 3.5 �patn� nainstaloval.
Nie, DAO by malo byt nainstalovane korektne, vyskusaj napr. DAOTest.exe
dodavany s DAO komponentami. Chyba 80040112 znamena
"Class is not licensed for use", t. j. nemas licenciiu pre pouzivanie DAO
na pocitaci (tu ziskas zakupenim a nainstalovanim MS Access-u). Mozes
pouzivat DAO objekty iba z Tvojej aplikacie (pokial na to licenciu mas,
samozrejme), ale musis ich vytvarat trochu odlisnym sposobom
(pri vytvarani zadas licencny kod).
Erik
Animace
[*] Michal Hlavac <7hlavac(zv)st.fmph.uniba.sk> - 23.5.2000 22:22:16
Mozno je to v tom, ze transparent treba nastavit na kazdu sekvenciu.
Miso
----- Original Message ----- >
Muze mi nekdo poradit jak se pouziva Vlastnost TransparentColor u
> TAnimatedImage z RxLib. Mam sekvenci asi 10-ti obrazku sem tam s cernymi
> misty a potrebuju, aby ta cerna byla pruhledna. Myslel jsem, ze kdyz u
> prislusne vlastnosti nastavim clBlack tak to pujde, ale ono nic. Animace
se
> prehrava, ale i z cernymi misty. Pokud s tim nekdo mate zkusenosti, tak
> prosim napiste.
>
> Mejte se vsichni a hodne dobrych
> program�.
>
>Jak vlozit prodleni do programu
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 23.5.2000 23:13:45
>Sleep v sobe nema ProcessMessages,
>tak se mi zda varianta
> C := GetTickCount;
> repeat
> caption:= inttostr(9000+c-GetTickCount );
> application.ProcessMessages;
>until C + 9000 <GetTickCount;
> lepsi
dekuji, ale pokud se to same udela s ProcessMessges, tak to pracuje bez potizi take a zcel stejnym zpusobem ...
daniel resler
Vypnuti monitoru
[*] Josef Zlomek <josef.zlomek(zv)email(tec)cz> - 23.5.2000 23:15:20
Podivej se do helpu(win32) na funkci ExitWindowsEx.
Josef Zlomek
> Kdysi jsem nekde mel napsane jak se restartuje nebo vypina pocitac, ale
nemohu to nikde najit. Mohl byste mi to nekdo pripomenout. Jeste by me zajimalo
jestli jde v D3 vypnout monitor, nekde jsem o tom cetl, ale nevim jestli
to jde v "trojkach". Diky
> Jak vlozit prodleni do programu
[*] L. ZITA <konference(zv)sales(tec)cz> - 23.5.2000 23:43:00
Behalf Of Vaclav Sazima
>
> Teda Sleep () je urcite lepsi, i vzhledem k zatizeni procesoru, pokud
> se nema nic behem te prodlevy delat. A navic pozor, hodnota
> gettickcount pretece kazdych cca 50 dni. Fakt je ze u windows to asi
> nevadi, protoze k preteceni prakticky nikdy nemuze dojit.
Ahoj.
Rozhodne bych se na to nespolehal. Mam nejmene 2 zazkazniky, kteri
jsou tak ukazneni (ci spise je opravdu nic jineho nez zapsat fakturu
nezajima),
ze jim windowsy skutecne nepadaji. Ve spojeni s UPS pak u nich skutecne
dochazi
k i nekolikamesicnimu behu bez resetu.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Clipboard po treti raz
[*] Hurricane <hurricane(zv)email(tec)cz> - 23.5.2000 23:59:41
Zdravim
To chces prevadet Wordovej DOC na HTML????? Preji prijemnou zabavu. Ale ted
vazne. Defakto mas tri moznosti. Bud muzes previst DOC na HTML a to pak
udelat jako HTML zpravu, to ale asi nepude pres postup popsany drive. Druha
moznost je vlozit ten DOC do prilohy, to by uz nemel bejt takovej problem. A
treti prevest DOC naprosty NEFORMATOVANY text a to dat do tela zpravy.
Pokud nechces vkladat dokument do prilohy, budes si muset sehnat nejakou
komponentu, ktera ti prevede DOC na pozadovanej format. Preji mnoho uspechu.
Hurricane
----- Original Message -----
From: Daniel Sichta <dano(zv)customweb.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 7:41 AM
Subject: RE: Clipboard po treti raz
> Nie. Chcem to vlozit priamo do tela posty. Ak by bolo mozne tak aj komplet
> naformatovany text. !
>
> Dakujem
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr
> Vones
> Sent: Monday, May 22, 2000 10:54 PM
> To: Konference Delphi
> Subject: Re: Clipboard po treti raz
>
> From: Daniel Sichta <dano(zv)customweb.sk>
> > D5 E, W98
> > Ako by sa dal najlepsie vyriesit tento moj problem :
> > Cez OpenDialog si vyberiem subor (95 % suborov bude Word file)
.Potrebujem
> > obsah tohto suboru ( bez toho aby som ho otvoril alebo spustil Word)
> nejako
> > dostat do clipboardu a odtial do tela posty. Priklad potesi !!
>
> Ahoj,
>
> Pokud jsem to dobre pochopil, tak ti jde o to ziskat z Word dokumentu
cisty
> neformatovany text a ten vlozit do tela zpravy ? Pridat jej jako prilohu
by
> nebylo mozne ?
>
> Petr Vones, amatersky programator
>
>Zamena carky za tecku v paradox tabulce.
[*] Michal David <michal(zv)access-it(tec)cz> - 23.5.2000 18:13:03 -0400
Zdravim,
Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
Tuto hodnotu si takto nactu :
Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
A pote s tim chci dale pracovat v jedne funkci.
Jenze pokud napisi:
var
r : real;
code: integer;
Val(Label1.Caption, r , code);
vraci se mi code 3 prave kvuli carce.
Nevite nekdo co s tim?
-md
Docking
[*] Hurricane <hurricane(zv)email(tec)cz> - 24.5.2000 00:22:07
Zdravim
Zkus pouzit normalni Formy a na vsechny dej komponentu MagneticForm (muzu
poslat)
Hurricane
----- Original Message -----
From: Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 6:21 PM
Subject: Docking
> Ahoj
>
> Rad bych udelal aplikaci s dokovatelnymi okny. Ale fakt nevim jak na
> to.
> Jedna se mi o to, aby to vypadalo stejne jako treba v prostredi
> Delphi.
> Tj. Jedno okno a na jeho okraj (staci jeden) se muze prilepit jine
> okno.
> Pricemz to samozrejme muzu jak prilepit tak odlepit a navic
> samozrejme
> menit velikost kdyz to je prilepene.
> Prolezl jsem archiv konference a nalezl defacto toto:
>
> Dej tam panel a u toho panelu nastav DockSite = True a u formulare
> ktery
> chces na neho pretahovat DragKind = dkDock a DragMode = dmAutomatic.
> Priklad najdes i v \Demos\Docking <Petr Vones>
>
> Rada je dobra, funguje, akorat ze nemuzu menit velikost toho
> prilepeneho
> okna, coz bych docela rad.
> Na ten priklad jsem se samozrejme dival ale pripada mi to strasne
> az mozna zbytecne moc komplikovane. Doufam, ze to jde nejak
> jednoduse.
>
> Takze prosim o radu, nakopnuti a idealne nejaky jednoduchy priklad.
> Diky moc...
>
> Petr
>
>
> ,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
> --=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
> `======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
> `======----( read: http://www.swnet(tec)cz )=-- -- -
>comctl32.dll ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 01:05:34
From: Petr Smol�k <psmolik(zv)fides(tec)cz>
> Mohl by mi prosim nekdo zhruba popsat, jake mohou nastat problemy programu v
> D5, kdyz je v systemu stara verze comctl32.dll?
>
> Kde sehnat vzdy nejnovejsi?
Ahoj,
Na instalacnim CD Delphi mas i soubor 40comupd.exe, ktery by mel postacovat
pro aplikace psane v dane verzi Delphi. Dalsi moznost je pomoci instalace IE.
Nejnovejsi verze samostatne instalace teto knihovny pak najdes tady:
http://www.microsoft.com/msdownload/ieplatform/ie/comctrlx86.asp
Petr Vones, amatersky programator
Tisk bitmapy na tiskarnu.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 01:05:52
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
> mam problem v Delphi 3 tisknout bitmapy na tiskarnu. Obcas se nevytiskne.
> Tisknu pomoci objektu Printer do obdelniku RECT a bitmapa je ulozena v
> image:
>
> Printer.Orientation := poPortrait;
> Printer.BeginDoc;
> If Not Printer.Aborted Then
> Printer.Canvas.StretchDraw(RECT,Image1.Picture.Graphic);
> Printer.EndDoc;
Ahoj,
v helpu je u TPrinter.Canvas tahle poznamka:
Note: Delphi canvases use device-dependent bitmaps to implement the Draw,
StretchDraw, or CopyRect methods. Because of this, you can't use these methods
with most printers. Instead, to create graphic images on the printer's canvas,
create a device-independent bitmap and draw it directly to the canvas's Handle
property.
Petr Vones, amatersky programator
Zabirani systemovych prostredku (D5 prof)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 01:06:16
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
> Krome standardnich komponent zatim pouzivam jenom RxDbGrid.
> Jak ten je na tom ?
Ahoj,
Nevim, RxLib nepouzivam. Co na to jit ale jinak. Podivej se pomoci Merice
prostredku na Win9x jaky typ prostredku (System, User, GDI) to spotrebovava.
Pokud bude spotreba GDI prostredku velka, zkus pouzit upravu kterou jsem tu
uz inzeroval (http://ww6.borland.com/codecentral/ccweb.exe/listing?id=14485),
preloz s ni aplikaci znovu a podivej se jestli se to trochu nezlepsilo. V
urcitych pripadech doslo ke zlepseni az o 50%, ale nelze od toho samozrejme
cekat zazraky. Namerene vysledky najdes v readme.txt
Petr Vones, amatersky programator
owner canvas handle
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 01:07:57
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> Eeeh? Takze jsem se podival, a zjistil jsem: GetDeviceContext je
> private, takze nelze pouzit zvnejsku. Dale, tato metoda vola prave
Ahoj,
To neni pravda :-) GetDeviceContext je v protected sekci aby ji bylo mozne pouzit
v odvozenych komponentach, kde lze cekat jeji nejvetsi vyuziti.
> GetDC (v TWinControl). Pokud tedy zavolas
>
> try
> h1:=GetDC((Sender as TWinControl).Handle);
> except
> // neni Handle
> end;
>
> mas osetrenu drtivou vetsinu komponent. Takze je jeste nekde
> problem?
V tom, ze to:
1. nelze pouzit pro ziskani DC u TControl.
2. nekontroluje zdali dany control ma opravdu vytvorene HWND u parenta
3. nekontroluje zdali nedoslo k chybe pri ziskavani DC (nedostatek prostredku)
4. neorezava oblast pro kresleni na rozmer TControl
5. nevraci korektni typ DC v dobe navrhu komponenty (pokud by tak bylo pouzito)
Resenim by mohlo byt pouziti takoveto funkce. Jeste pripominam ze takto ziskane
DC je potreba po pouziti uvolnit pomoci ReleaseDC, ktere ma jako prvni parametr
HWND okna ze ktereho bylo ziskano. V Delphi je pro "spravu" DC jiz take trida
TControlCanvas, ktera (ponekud sveraznym zpusobem :-) resi i uvolnovani DC.
type
TControlHack = class(TControl);
function GetControlDC(Control: TControl; var WindowHandle: HWND): HDC;
begin
Result := TControlHack(Control).GetDeviceContext(WindowHandle);
end;
Petr Vones, amatersky programator
Animace
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.5.2000 05:57:53
Ahoj,
barva nastavovana jako transparentni musi byt spolecna vsem okenkum obrazku
a musi odpovidat nastaveni barvy. Pokud mas obrazek s 256 barvami na palete,
pak je urcite tezsi urcit spolecnou barvu.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Michal Hlavac [SMTP:7hlavac(zv)st.fmph.uniba.sk]
> Odesl�no: 23. V 2000 22:22
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Animace
>
> Mozno je to v tom, ze transparent treba nastavit na kazdu sekvenciu.
>
> Miso
>
>
> ----- Original Message ----- >
> Muze mi nekdo poradit jak se pouziva Vlastnost TransparentColor u
> > TAnimatedImage z RxLib. Mam sekvenci asi 10-ti obrazku sem tam s cernymi
> > misty a potrebuju, aby ta cerna byla pruhledna. Myslel jsem, ze kdyz u
> > prislusne vlastnosti nastavim clBlack tak to pujde, ale ono nic. Animace
> se
> > prehrava, ale i z cernymi misty. Pokud s tim nekdo mate zkusenosti, tak
> > prosim napiste.
> >
> > Mejte se vsichni a hodne
> dobrych
> > program�.
> >
> >
> Instalace DAO 3.5
[*] Ji�� Fait���}���6���3 - 24.5.2000 06:06:16
Jestli chces poslu ti hotovou instalaci na mail.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Kejval
Sent: Tuesday, May 23, 2000 8:49 AM
To: Konference Delphi
Subject: Instalace DAO 3.5
Ahoj,
1. Na po��ta� jsem nainstaloval w95 osr2
2. Na jin�m po��ta�i jsem vytvo�il jsem instalaci DAO 3.5 pomoc�
InstallShield Expressu.
DAO 3.5 jsem st�hnul ze str�nek Install Shieldu jako DAO35_redist.exe.
(Bohu�el DAO35_redist.exe neobsahuje instala�n� skript.)
Tuto instalaci jsem vytvo�il pomoc� instala�n�ho skriptu od Erika Salaje,
kter� dod�v� ke sv�m Trial DAO komponent�m. V tomto instala�n�m skriptu
jsem upravil cesty k jednotliv�m soubor�m tak, aby se k instalaci pou�ily
soubory DAO sta�en� ze str�nek InstallShieldu.
3. Naistaloval jsem takto vytvo�enou instalaci DAO 3.5 na po��ta� s w95
osr2.
P�i instalaci se vyskytla n�sleduj�c� chyba:
The following file(s) failed to Self Register
C:\WINDOWS\SYSTEM\msexch35.dll
C:\WINDOWS\SYSTEM\msrdo20.dll
4. Na po��ta�i s w95 osr2 jsem spustil program vytvo�en� v D4 C/S s t�mto
k�dem
DBEngine:=CreateOleObject('DAO.DBEngine.35');
Tento k�d skon�il s touto chybou:
OLE error 80040112
Z kroku 3 a 4 jsem usoudil, �e jsem DAO 3.5 �patn� nainstaloval.
Pros�m o radu co d�l�m �patn�. P��padn� zda by mi n�kdo nemohl poskytnout
instala�n� skript pro InstallShield Express, s kter�m bych DAO 3.5 byl
schopen nainstalovat na �ist� po��ta� bez nutnosti instalovat Access.
Ing. Petr Kejval
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
InstallShield
[*] Ji�� Fait���}���6���3 - 24.5.2000 06:20:02
Pokud pou��v� posledni verze Inno + ScriptMaker a pridas k tomu "My Inno
Setup Extensions" tak snad nemuzes ani nic lepsiho potrebovat (ZDARMA).
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Daniel Krej��
Sent: Tuesday, May 23, 2000 1:47 PM
To: delphi
Subject: InstallShield
M��ete mi prosim nekdo poslat link na stahnuti InstallShieldu (pokud to tedy
nekde je ke stahnuti) nebo nejakeho jineho instalacniho programu, ktery by
nabizel vice moznosti (mam InnoSetup, ale ten mi uz nestaci).
Jiste mi nevrhnete abych si udelal vlastni, ale zase tek pokrocily nejsem
(podpora instalace z vice disket, vytvareni zastupcu, atd...). Jestli nekdo
udelal neco zajimaveho a chce se o to podelit (ZDARMA), tak at mi ho posle.
Thank You Very Much
--- Disconnected ---
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.151 / Virov� b�ze: 72 - datum vyd�n�: 19.5.2000
Voice funkce
[*] Daniel Km�nek <kminek(zv)mite(tec)cz> - 24.5.2000 07:20:27
From:Peter Vones
>Tebe bude spise zajimat TAPI, kde je podpora voice funkce
Ahoj,
Tak jsem to zkousel. Z
http://the.wall.riscom.net/books/delphi/del_faqs/872.html
jsem stahnul priklad How can I use Tapi to dial the telephone for a voice
call.
K memu prekvapeni se objevil program telefon, kter� je soucasti windows.
Cislo se vytoci, spojeni navaze, ale hlasova komunikace nen�.
Mam podezreni, ze na to proste potrebuji voice modem a z normalniho data/fax
to nedostanu.
Jsi si jisty, ze to opravdu jde i bez voice modemu ?
Pokud ano, nemas prosim na to nejaky priklad ?
Diky
Daniel Kminek
Zabirani systemovych prostredku (D5 prof)
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 24.5.2000 07:38:24
> From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
> > Krome standardnich komponent zatim pouzivam jenom RxDbGrid.
> > Jak ten je na tom ?
>
> Ahoj,
>
> Nevim, RxLib nepouzivam.
RxLib ma radu prvku (obdoba Toolbaru apod.) postavenych pomoci
SpeedButton, takze bych si nedelal iluze, ze poskytuje z hlediska
GDI lepsi nahradni komponenty. Pro konkretni komponenty se da
podivat do zdrojaku, z jakeho predka pochazeji a co obsahuji z
VCL.
David
Zamena carky za tecku v paradox tabulce.
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 24.5.2000 07:48:25
Ahoj,
se zamenou deset. carky za tecku bych byla opatrna. Jednou jsem neco
podobneho delala a pekne jsem si zavarila. Ale pracovala jsem se vzdalenou
databazi v Informixu. Na mem pocitaci jsem mela nastavenou jako standardni
carku a tak abych uzivateli vytvorila komfort, prevadela jsem navic tecku na
carku (aby mohl poridit tecku i carku). Vsechno fungovalo fantasticky do
chvile, nez to zkusil uzivatel. Ten to mel totiz nastavene obracene. Chybu
mi to sice nevykazovalo, ale uzivateli se misto porizenych 48,20 do tabulky
zapsalo 4820,- (proste to tu dest. carku nevzalo). Tak jsem to predelala a
pak si uzivatel zmenil mistni nastaveni. Takze jsem to nakonec vzdala a
komfort vyhodila. Takze jako deset. oddelovac musi pouzit to, co ma v
mistnim nastaveni.
Mozna jsem volila spatne reseni, ale nemela jsem na to cas ani nervy.
Jolana
-----P�vodn� zpr�va-----
Od: dodo(zv)centrum(tec)cz [mailto:dodo(zv)centrum(tec)cz]
Odesl�no: 23. kv�tna 2000 21:40
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: re: Zamena carky za tecku v paradox tabulce.
Bud pouzij misto VAL StrToFloat - nebo tak nejak, ale to nedoporucuju, prave
kvuli tem carkam,
teckam....
Ja sem si udelal jednoduchov funkci, ktera ve stringu nahradi carky za tecky
a ten retezec pak klidne
posli funkci VAL
Tak fce vypada takto: (samozrejme si ji muzes prejmenovat :-)))
Function Demence (NumberStr:String):String;
Begin
Result:=StringReplace (NumberStr,',','.',[rfReplaceAll]);
End;
Takze ty pak napises:
Val(Demence (Label1.Caption), r , code);
Myslim, ze tohle je nejlepsi reseni a hlavne nezalezi na tom, jestli mas ve
Windows nastanou carku nebo tecku. Z programu, ktere nejsou takhle nebo
podobne
osetreny vzycky rostu....
Dodo
______________________________________________________________
> Od: "Michal David" <michal(zv)access-it(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Tue, 23 May 2000 18:13:03 -0400
> P�edm�t: Zamena carky za tecku v paradox tabulce.
>
> Zdravim,
> Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
> Tuto hodnotu si takto nactu :
>
> Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
>
> A pote s tim chci dale pracovat v jedne funkci.
> Jenze pokud napisi:
>
> var
> r : real;
> code: integer;
>
> Val(Label1.Caption, r , code);
>
> vraci se mi code 3 prave kvuli carce.
>
> Nevite nekdo co s tim?
>
> -md
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
MSDE - instalace
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 24.5.2000 08:01:46
> > vytvoril jsem aplikaci, ktera se snazi nainstalovat MSDE takovymto
> > zpusobem:
> >
> > if CreateProcess(nil, PChar(ExtractFilePath(ParamStr(0)) +
> > 'MSDE\msdex86.exe -s -a -f1 "' + ExtractFilePath(ParamStr(0)) +
> > 'MSDE\unattend.iss"'), nil, nil, False, NORMAL_PRIORITY_CLASS, nil,
> > nil, SI, PI) then begin [...]
> > WaitForSingleObject(PI.hProcess, INFINITE);
> >
> > Instalace MSDE se radne spusti, ale po nejake dobe to zatuhne
> > (myslim ta instalace) a u teto moji aplikace je v Task manageru
> > napsano, ze neni odpoved.
> > Pokud vyhodim WaitForSingleObject, tak instalace probehne v
> > poradku.
>
> Tam je patrne problem, ze nekde uvnitr se spousti 16bitovy
> instalacni zavadec. Krome toho, tech procesu je tam vic - nejdrive se
> provede unzip, teprve pak se spusti instalace. Takze, ja pouzivam
> MsgWaitForMultipleObjects. Ale ani to nestaci, takze jsem pro MSDE
> nasadil timer a testuji Setup.log, zda tam naskocila hodnota v klici
> ResultCode. Pred instalaci je vsak vhodne smazat stary Setup.log, nebo
> alespon ten klic.
Kouknu na to. Nicmene taky uz jsem to rozchodil. Nahradil jsem
WaitForSingleObject cyklem:
repeat
reserved := WaitForSingleObject(PI.hProcess, 0);
Application.ProcessMessages;
until reserved <> WAIT_TIMEOUT;
Po celou dobu instalace vraci WaitFormSingleObject hodnotu
WAIT_TIMEOUT. Je pravda, ze behem instalace se rozjede cela
plejada procesu, ale ten zakladni bezi po celou dobu. Pote, co
instalace skonci, vrati WaitFor... hodnotu WAIT_OBJECT_0.
S uvedenou konstrukci jsem zatim nenarazil na zadny problem,
ale to neznamena, ze tam nemuze byt ukryty. Je na tomto
postupu neco spatneho?
Tomu, proc to v teto podobe funguje a v te predchozi nikoli sice
moc nerozumim, ale vsiml jsem si, ze behem instalace MSDE ten
muj instalator nekolikrat prijde o focus a pak je mu zase vracen
(blikani titulku okna). Usuzuji z toho, ze z nejakeho duvodu je
potreba, aby reagoval na zpravy.
David
comctl32.dll ?
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 24.5.2000 08:10:51
> > Mohl by mi prosim nekdo zhruba popsat, jake mohou nastat problemy
> > programu
> v
> > D5, kdyz je v systemu stara verze comctl32.dll?
>
> Napr. se nevykresluji nektere prvky - napr. coolbary, placata tlacitka
> apod.
>
Slysel jsem o tom, ze treba taky jen nejsou videt ikonky v
ToolBarech.
Ja jsem zkousel svou aplikaci cvicne spustit na W95 bez IE a
tam byl efekt taky docela zajimavy: ToolButtony sice mely spravne
ikonky, ale nespravnou velikost, takze tlacitko OK bylo treba
znatelne vetsi nez Storno, ackoli mely byt stejne a obe dohromady
byly vyrazne vetsi nez mely byt, takze pul tlacitka Storno jiz
nebylo videt, protoze bylo mimo Form... Po upgrade comctl32 bylo
jiz vse samozrejme OK.
David
Kodovani Unicode UTF-8
[*] Vyvoj <vyvoj(zv)atlascon(tec)cz> - 24.5.2000 08:22:03
Ahoj!
Prosim o tip na prevedeni retezce v kodovani Unicode UTF-8 do kodovani Windows 1250, popr o odkaz
na nejakou komplexni unitu, ktera by resila prevody z ruznych kodovani.
Predem dik!
**************************************************
* Roman Macura
* program�tor, analytik
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : macura(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
Instalace DAO 3.5
[*] Kejval <petr.kejval(zv)worldonline(tec)cz> - 24.5.2000 08:44:56
----- P�vodn� zpr�va -----
Od: Erik Salaj <winsoft(zv)napri.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 23. kv�tna 2000 22:18
P�edm�t: Re: Instalace DAO 3.5
> > 3. Naistaloval jsem takto vytvo�enou instalaci DAO 3.5 na po��ta� s w95
> > osr2.
> > P�i instalaci se vyskytla n�sleduj�c� chyba:
> > The following file(s) failed to Self Register
> > C:\WINDOWS\SYSTEM\msexch35.dll
> > C:\WINDOWS\SYSTEM\msrdo20.dll
>
> Tieto problemy suvisia s tym, ze tam chybaju nejake dalsie DLL-ka.
> Pokial to nepouzivas, tak to mozes vyhodit zo skriptu. Skript bol
> napisany podla MS specifikacie ako instalovat DAO 3.5 (mozem poslat),
> kde sa tento problem spomina:
>
> There are some special considerations you should keep in mind.
>
> . DAO350.dll needs to have MSVCRT40.dll and other required files
on
> the computer before it can register.
>
> . MSRDO20.dll needs to have ODBC installed before it will
register.
> Use the ODBC Installation program to install ODBC.
>
> . MSEXCH35.dll will need MAPI installed on your system before it
can
> register.
>
> > 4. Na po��ta�i s w95 osr2 jsem spustil program vytvo�en� v D4 C/S s
t�mto
> > k�dem
> > DBEngine:=CreateOleObject('DAO.DBEngine.35');
> > Tento k�d skon�il s touto chybou:
> > OLE error 80040112
> >
> > Z kroku 3 a 4 jsem usoudil, �e jsem DAO 3.5 �patn� nainstaloval.
>
> Nie, DAO by malo byt nainstalovane korektne, vyskusaj napr. DAOTest.exe
> dodavany s DAO komponentami. Chyba 80040112 znamena
> "Class is not licensed for use", t. j. nemas licenciiu pre pouzivanie DAO
> na pocitaci (tu ziskas zakupenim a nainstalovanim MS Access-u). Mozes
> pouzivat DAO objekty iba z Tvojej aplikacie (pokial na to licenciu mas,
> samozrejme), ale musis ich vytvarat trochu odlisnym sposobom
> (pri vytvarani zadas licencny kod).
>
> Erik
>
D�kuji za vysv�tlen�. DAOTest.exe funguje.
Nicm�n� by m� zaj�malo toto. Pracuji ve firm�, kter� m� zakoupen� licence na
MS Access 2.0 (nev�m verzi MS Office), MS Office 95, MS Office 97. Firma m�
celost�tn� p�sobnost. Z�klad jej�ho informa�n�ho syst�mu je vytvo�en v MS
Access 2.0 (z historick�ch d�vod�, b�� i na W3.11). N�kter� ��sti syst�mu,
ji� ale vytv���me v Delphi 4 C/S, a ty b�� na W95 osr2. Syst�m se
distribuuje na pracovi�t� v r�mci cel� �R. Na n�kter�ch po��ta��ch je
nainstalov�n Access 2.0 (nev�m verzi MS Office), na n�kter�ch i MS Office 95
nebo MS Office 97. Nechci u�ivatele ��sti syst�mu napsan� v D4 C/S nutit,
aby p�ed instalac� m� ��sti museli instalovat MS Office 97. Proto jsem si
myslel, �e by bylo v�hodn� p�i instalaci m�ho programu nainstalovat i DAO
3.5 a t�m si ka�dop�dn� zajistit jeho p��tomnost.
Jak zajistit nainstalov�n� DAO 3.5 aby program napsan� v Delphi 4 C/S
p�istupuj�c� k MS Access p�es BDE+ Nativn� ovlada� MSACCESS fungoval a
fungoval i p��m� p��stup p�es DAO (nap�. CompactDatabase, CreateDatabase).
Samoz�ejm�, �e licenci pro MS Office 97 vlastn�me.
OT: FTP via e-mail
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 24.5.2000 08:48:31
Ahoj,
predem se omlouvam za OFF TOPIC, ale uz si nemuzu pomoct.
K pristupu na INTERNET uziva nase firma PROXY SERVER, ktery ma blokovano FTP
:( a ja potrebuju nekdy stahnout nejake soubory, proto shanim nejake linky
na e-mail servery, ktere mne sobory stahnou a a poslu do posty jako prilohu.
Dik
Progr-Amather -Kchodl-(r) 1989-2000
InstallShield
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 24.5.2000 09:07:20
>M��ete mi prosim nekdo poslat link na stahnuti InstallShieldu (pokud to
tedy
http://www.installshield.com/
Petr Klinger
Trial verse DELPHI
[*] Ren� Otisk - 24.5.2000 09:09:18
Hi,
Asi patrim k tem blbejsim, kteri si to koupili...
Doufam ze delas software a existuje spousta jeho nelegalnich kopii...
Sroub
----- Original Message -----
From: Hurricane <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 24, 2000 12:18 AM
Subject: Re: Trial verse DELPHI
Jednoduse, nech si vypalit plnou, mas to za stovku, to uz snad de, ne? Snad
si nemyslis, ze kazdej v tydle konferenci zaplatid desitky tisic za
delphace.
----- Original Message -----
From: <pmarecek(zv)ccity(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 12:54 PM
Subject: Trial verse DELPHI
Pros�m nev�te jak�m spusobem zastavit beh trial verze delphi 5 jsem
zacatecnik a neni pro mne mozne zaplatit plnou verzi ale chci se naucit
programovat , dekuji za jak�koli tip. Pavel
PostMessage, SendMessage
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 24.5.2000 09:10:52
Dobry den,
vytvoril som komponent TMyEdit odvodeny od TEdit a pridal som do neho
obsluhu spravy CM_MyHandler.
Ak vo svojom forme s komponentom TMyEdit pouzijem SendMessage pre
odoslanie spravy CM_MyHandler, komponent spravu zachyti a spracuje, ak
pouzijem PostMessage komponent spravu nezachyti. Preco?
Tu je ukazka komponenty:
const
CM_MyHandler = WM_USER + 1;
type
TMyEdit = class (TEdit)
private
procedure CMMyHandler(var Msg: TMessage); message CM_MyHandler;
end;
procedure TMyEdit.CMMyHandler(var Msg: TMessage);
begin
// nejaky kod
end;
Ukazka pouzitia:
type
TForm1 = class(TForm)
MyEdit1: TMyEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// toto nefunguje - komponent spravu nezachyti
PostMessage(MyEdit1.Handle, CM_MyHandler, 0, 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// toto funguje - komponent spravu zachyti
SendMessage(MyEdit1.Handle, CM_MyHandler, 0, 0);
end;
--
S pozdravom
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
Docking
[*] garalda <garalda(zv)mail(tec)cz> - 24.5.2000 09:22:11
Ahoj
No mozna jsem to delal moc krkolomne, ale udelal jsem nasledujici:
- zvolil jsem si, odkud se bude okno prilepovat (treba jen zleva), tam jsem
umistil TPanel a nastavil u nej vlastnost na DockSite = True a dal sirku 1
- k nemu jsem pridal TSplitter s Visible := False; a pridal dalsi panel na
zbytek formulare (alClient) - tam uz muze byt cokoliv.
- vytvoril jsem dalsi formular, ktery se bude dokovat
- u toho panelu pak osetruji udalost OnDockDrop, kde nastavuji sirku
dokovaneho formulare a TSplitter Visible na True a OnUndock, kde nastavuji
puvodni sirku a TSplitter Visible na False.
a to je vse. Funguje mi to dobre, jen mi trosku vadi, ze kdyz chci ten
formular dokovat, tak se zobrazi ohranicujici obdelnik (umisteni, kde se pak
dokovany formular objevi) jen o te tloustce 1 bod, jakmile se to dokuje, tak
uz si sirku nastavim jak potrebuji...
Snad Ti to trochu pomuze. Pokud ma nekdo nejake lepsi ci jednodussi reseni,
rad se necham poucit.
Garalda
COM
[*] Robert Zak <nrsys(zv)psn.sk> - 24.5.2000 09:50:31
Nemate posim niekto priklad, ako pod D5prof vytvorit COM objekt na
vzdialenom pocitaci? Prehladal som archiv, internet, ale nasiel som iba demo
pre 1 pocitac. Nikdy som nic podobne nerobil, pomohli by mi aj nejake odkazy
...
Potreboval by som tiez nejaky odkaz alebo radu, ako pouzivat XML pod delphi.
Nasiel som akesi ActiveX pre XML, ale neviem ako sa to pouziva.
Dakujem
Robo
InstallShield
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 24.5.2000 09:51:33
Ahoj,
InstallShield je komercni zalezitost;
jinak muzes pouzivat i InstallShield Expres
ktery mas na Delphi CD.
Co Ti na InnoSetupu "uz nestaci" ?
Vse o cem pises umi a je i se zdrojovym kodem.
Zdarma je instalacni programek od panu
ze Siney (www.sinea(tec)cz).
Dobra.
> ----------
> Od: Daniel Krej> ��[SMTP:fredycrueger(zv)volny(tec)cz]
>
> M> ��ete mi prosim nekdo poslat link na stahnuti InstallShieldu (pokud to tedy
> nekde je ke stahnuti) nebo nejakeho jineho instalacniho programu, ktery by
> nabizel vice moznosti (mam InnoSetup, ale ten mi uz nestaci).
> Jiste mi nevrhnete abych si udelal vlastni, ale zase tek pokrocily nejsem
> (podpora instalace z vice disket, vytvareni zastupcu, atd...). Jestli nekdo
> udelal neco zajimaveho a chce se o to podelit (ZDARMA), tak at mi ho posle.
>
> Tisk bitmapy na tiskarnu.
[*] petr.palicka(zv)atlas(tec)cz - 24.5.2000 09:57:50
ahoj,
a jak donutim takovej TBitmap (dynamicky vytvorenej), aby byl DIB a ne DDB?
>Ahoj,
>
>v helpu je u TPrinter.Canvas tahle poznamka:
>
>Note: Delphi canvases use device-dependent bitmaps to implement the >Draw,
>StretchDraw, or CopyRect methods. Because of this, you can't use these >methods
>with most printers. Instead, to create graphic images on the printer's >canvas,
>create a device-independent bitmap and draw it directly to the >canvas's Handle
>property.
>
>Petr Vones, amatersky programator
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Popis RTF
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 24.5.2000 10:01:20
Zkus treba na
http://home.att.net/~robertdunn/Yacs.html
Z.Fryz
> -----P�vodn� zpr�va-----
> Od: Petr J�nsk�
> Odesl�no: 23.05.2000 09:43
> Komu: Delphi konference
> P�edm�t: OT: Popis RTF
>
> Nevite nekdo, kde by se dal ziskat popis RTF?
>
> Dik a zdravim!
>
> Ing. Petr J�nsk�
> C.A.C spol. s r.o., Teplice
>
>
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
QuickRep
[*] Roman Sev��k����� �Ȥ�*%�̿ - 24.5.2000 10:06:34
Nejak mi to nejede,
vytvoril jsem Form, na ne jsem dal dva TQuickRep a QRCompositeReport. Na
TQuickRep jsem dal Title a dva QRLabely, spustil jsem a nic. Preview je
prazdny, ale kdyz dam jednotlive QuickRep.Preview, tak to jede. Nevite nekdo
co delam spatne ?
Hup := THup.Create(Self);
Hup.QRCompositeReport1.Reports.Add(Hup.QuickRep1);
Hup.QRCompositeReport1.Reports.Add(Hup.QuickRep2);
Hup.QRCompositeReport1.Preview;
Hup.Release;
Dik Roman
----- Original Message -----
From: <tomas.mazurek(zv)vitkovice(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 3:17 PM
Subject: RE: QuickRep
> Hello,
>
> pres QRCompositeReport jich muzes nasazet kolik chces... Spojujes
> vlasne vice QR do jednoho.
>
> Tomas
>
> >Ahoj,
> >potrebuji s QuickReportem vytisknout dve tabulky za sebe na jednu =
> >stranku, a to tak, ze kazda bude mit svuj column. Zkousel jsem to s =
> >Group, ale nepovedlo se. Jde to vubec ?Trial verse DELPHI
[*] Ji�� Kr�l jr. - 24.5.2000 10:10:06
ptat se na crack v teto konferenci je dost odvaha ;-(
jak by se ti libilo, kdyby nekdo kradl tve pracne vytvorene programy?
ja zacinal s Delphi 2.0 Standard za nejake 4000 Kc. Reknu ti, ze to byly
VELMI dobre investovane penize. Pokud nechces kupovat v CZ za cca 5000 Kc D5
Std, muzes zkusit http://www.InstantSoftware.com, tam kupuji ja nebot je to
asi o 20% levnejsi nez u borland(tec)cz, a to i pri hovadnem kurzu $ a vcetne
postovneho (poslou to z Floridy FedExem a clo je cca 200 Kc, dojde ti to do
10 dnu). Borland(tec)cz ti sice neposkytne podporu, ale podle me je to celkem
fuk, kdyz mame tuto SQeLou konferu.
U tech "malych" Delphi ten cenovy rozdil asi nebude tak vyrazny.
JK
OT: ActiveX & JScript
[*] bigzero(zv)post(tec)cz - 24.5.2000 10:18:57
Zdravim !
Pokousim se sepsat konfiguracni utilitu ve forme HTML&JScript stranky (v zasade jde jen o kopirovani souboru).
Pro praci se soubory pouzivam ActiveX
\'Scripting.FileSystemObject\', bohuzel nemuzu prijit jak se jmenuje ActiveX objekt pro pristup do registry (obdoba WSHShell).
Diky za jakoukoliv radu
BigZero
Obsahla databaze firem?
*** http://NAJDI.TO
Ternary Raster Operations (BitBlt) ...
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 24.5.2000 10:19:11
Ahoj
mohl by mi nekdo srozumitelne vysvetlit pouziti kodu rastrovych
operaci (DPSoon, DPSona, PSon, ....) ve funkci BitBlt
- nejradeji stylem "pro uplne idioty" ?
( uvitam i nazorny priklad )
Diky
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
COM
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2000 10:29:51
Ahoj,
nejake odkazy najdes na
http://atrey.karlin.mff.cuni(tec)cz/~rk/bookmarks.shtml
v sekci XML nebo primo clanky na Delphizine:
http://www.delphizine.com/backissues/default.asp
Slavek
> Potreboval by som tiez nejaky odkaz alebo radu, ako pouzivat XML pod delphi.
> Nasiel som akesi ActiveX pre XML, ale neviem ako sa to pouziva.
> Robo
Zamena carky za tecku v paradox tabulce.
[*] Koukal Pavel <Pavel.Koukal(zv)pvt(tec)cz> - 24.5.2000 10:33:34
Ahoj,
zkus pridat napr. do FormCreate nebo Initialization sekce jednotky:
DecimalSeparator := '.';
Toto me vzdy fungovalo jak pro vystup tak i vstup.
S pozdravem Pavel Koukal.
Od: Michal David [SMTP:michal(zv)access-it(tec)cz]
Zdravim,
Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
Tuto hodnotu si takto nactu :
Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
A pote s tim chci dale pracovat v jedne funkci.
Jenze pokud napisi:
var
r : real;
code: integer;
Val(Label1.Caption, r , code);
vraci se mi code 3 prave kvuli carce.
Nevite nekdo co s tim?
-md
Docking
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2000 10:36:03
> Ahoj
> No mozna jsem to delal moc krkolomne, ale udelal jsem nasledujici:
> - zvolil jsem si, odkud se bude okno prilepovat (treba jen zleva), tam jsem
> umistil TPanel a nastavil u nej vlastnost na DockSite = True a dal sirku 1
> - k nemu jsem pridal TSplitter s Visible := False; a pridal dalsi panel na
> zbytek formulare (alClient) - tam uz muze byt cokoliv.
> - vytvoril jsem dalsi formular, ktery se bude dokovat
> - u toho panelu pak osetruji udalost OnDockDrop, kde nastavuji sirku
> dokovaneho formulare a TSplitter Visible na True a OnUndock, kde nastavuji
> puvodni sirku a TSplitter Visible na False.
> a to je vse. Funguje mi to dobre, jen mi trosku vadi, ze kdyz chci ten
> formular dokovat, tak se zobrazi ohranicujici obdelnik (umisteni, kde se pak
> dokovany formular objevi) jen o te tloustce 1 bod, jakmile se to dokuje, tak
> uz si sirku nastavim jak potrebuji...
*** Diky za navod, zkusil jsem to a je to presne to co potrebuji.
A aby se to hned nedoklo do te spatne velikosti (sirka 1 pixel)
doporucuji toto:
procedure TForm1.pnLeftDockDrop(Sender: TObject; Source:
TDragDockObject;
X, Y: Integer);
var
F: TForm;
begin
// Nastavime sirku (aby to nebyla 0)
(Sender as TPanel).Width := Source.DockRect.Right -
Source.DockRect.Left;
// Zobrazime splitter
spLeft.Visible := true;
end;
> Snad Ti to trochu pomuze. Pokud ma nekdo nejake lepsi ci jednodussi reseni,
> rad se necham poucit.
*** Ja taky :-)
A jeste jedna vec mi vadi a to, ze pokud mam to okno doknute a
zavru ho (schovam) tak tam zustane po nem ten panel a splitter.
Muze mi nekdo poradit nejake elegantni reseni a to takove, aby
kdyz potom ten formular zobrazim, byl doknutej tam, kde predtim
byl?
Diky
Petr
[-- Petr Vaclavek --- read: http://www.swnet(tec)cz --]
[-- visit: http://atrey.karlin.mff.cuni(tec)cz/~bla --]Transparentni monochromaticka bitmapa
[*] delphi(zv)zas-me(tec)cz - 24.5.2000 10:45:48
Dobry den,
potrebuji, aby se jedna z barev monochromaticke bitmapy chovala jako
transparentni. Mam nastaveno Bitmap.Transparent:=true.
Bohuzel at nastavuji TransparentColor jak chci (treba na cervenou), porad se
jako pruhledna chova bila barva, zatimco ja si potrebuji urcovat, zda to ma
byt bila nebo cerna. Nevite prosim nekdo, jak tomu domluvit ci zda delam
neco spatne?
(Pokud pouzivam bitmapu s 256 barvami, funguje to spravne.)
Diky,
Karel Rys
rys(zv)zas-me(tec)cz
prenos medzi pocitacmi
[*] L. ZITA <konference(zv)sales(tec)cz> - 24.5.2000 11:00:04
Behalf Of Martin
>Neviete o nejakom softe, ktory by pri prepojeni pocitacov prenasal subory
>medzi nimi, tak ze ich najskor skomprimuje a po prenose na cielovy pocitac
>rozpakuje, ale aby to prebjehalo neviditelne. Napriklad nieco ako norton
>comander, s dvoma oknami, v jednom okne moj pocitac a v druhom vzdialeny.
>Martin
Ahoj.
Kdysi jsem laboroval s PC Anywhere. Umelo se to propojit pres buhvico
(sit,modemy,COM,LPT) a tusim ze to umoznovalo nastavit komprimovany prenos.
Ale uz si to moc nepamatuju a ten soft nemam.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
OT: PL406B.DAT
[*] sup(zv)svitap(tec)cz - 24.5.2000 11:07:40
Dobry den. Omlouvam se za OT. Nezna nekdo strukturu souboru PL406B.DAT nebo
kde ji sehnat? Mely by to byt pozice planet, mesice a asteroidu v obdobi
-4000 az 4000 (efemeridy). A aby to nebylo moc OT, tak ten soubor potrebuji
cist v D3Profi. Diky predem za jakekoliv nakopnuti spravnym smerem.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Pozice caretu v RichEdit v pixelech , D3, W2000
[*] Bo�an Hynek <HBocan(zv)cpoj(tec)cz> - 24.5.2000 11:08:10
Pros�m, nakopn�te spr�vn�m sm�rem..
Pot�ebuji nejank p�ev�st pozici caret ve RxRichedit do sou�adnic formul��e,
abych mohl na pozici caretu p�em�stit edit box pro zad�n� hodnoty..
D�ky. Hynek Bo�an
mailto:hbocan(zv)cpoj(tec)cz
FTP via e-mail
[*] Bo�an Hynek <HBocan(zv)cpoj(tec)cz> - 24.5.2000 11:15:03
www.emailfile.com , ale nev�m esli je�t� chod�...
> -----P�vodn� zpr�va-----
> Od: =?iso-8859-2?Q?Karel Klime=B9 [SMTP:kchodl(zv)email(tec)cz]
> Odesl�no: 24. kv�tna 2000 8:49
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: OT: FTP via e-mail
>
> Ahoj,
> predem se omlouvam za OFF TOPIC, ale uz si nemuzu pomoct.
> K pristupu na INTERNET uziva nase firma PROXY SERVER, ktery ma blokovano
> FTP
> :( a ja potrebuju nekdy stahnout nejake soubory, proto shanim nejake
> linky
> na e-mail servery, ktere mne sobory stahnou a a poslu do posty jako
> prilohu.
>
> Dik
>
> Progr-Amather -Kchodl-(r) 1989-2000
> Zamena carky za tecku v paradox tabulce.
[*] <dodo(zv)centrum(tec)cz> - 24.5.2000 11:18:17
Ja jsem to myslel takhle:
Na zobrazeni samozrejme POUZIVEJ oddelovac, co ma nastaven uzivatel, ale pokud chces prevest zadani
uzivatele, tak si vse preved na tecku, protoze FUNKCE VAL v Delphi spolupracuje pouze s teckou !
A mas vse vyresene, absolutne nezalezi na to, jak ma uzivatel nastavene prostredi, ani co ti zadal a
vysledek je vzdy spravne.
problemy by nastaly, pokud by nekdo zapisoval jeste oddelovac tisicu ...;-) Ale to se nejak nepouziva..
Dodo
______________________________________________________________
> Od: Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz>
> Komu: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Wed, 24 May 2000 07:48:25 +0200
> P�edm�t: RE: Zamena carky za tecku v paradox tabulce.
>
> Ahoj,
> se zamenou deset. carky za tecku bych byla opatrna. Jednou jsem neco
> podobneho delala a pekne jsem si zavarila. Ale pracovala jsem se vzdalenou
> databazi v Informixu. Na mem pocitaci jsem mela nastavenou jako standardni
> carku a tak abych uzivateli vytvorila komfort, prevadela jsem navic tecku na
> carku (aby mohl poridit tecku i carku). Vsechno fungovalo fantasticky do
> chvile, nez to zkusil uzivatel. Ten to mel totiz nastavene obracene. Chybu
> mi to sice nevykazovalo, ale uzivateli se misto porizenych 48,20 do tabulky
> zapsalo 4820,- (proste to tu dest. carku nevzalo). Tak jsem to predelala a
> pak si uzivatel zmenil mistni nastaveni. Takze jsem to nakonec vzdala a
> komfort vyhodila. Takze jako deset. oddelovac musi pouzit to, co ma v
> mistnim nastaveni.
> Mozna jsem volila spatne reseni, ale nemela jsem na to cas ani nervy.
>
> Jolana
>
>
> -----P�vodn� zpr�va-----
> Od: dodo(zv)centrum(tec)cz [mailto:dodo(zv)centrum(tec)cz]
> Odesl�no: 23. kv�tna 2000 21:40
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: re: Zamena carky za tecku v paradox tabulce.
>
>
> Bud pouzij misto VAL StrToFloat - nebo tak nejak, ale to nedoporucuju, prave
> kvuli tem carkam,
> teckam....
> Ja sem si udelal jednoduchov funkci, ktera ve stringu nahradi carky za tecky
> a ten retezec pak klidne
> posli funkci VAL
> Tak fce vypada takto: (samozrejme si ji muzes prejmenovat :-)))
>
>
> Function Demence (NumberStr:String):String;
> Begin
> Result:=StringReplace (NumberStr,',','.',[rfReplaceAll]);
> End;
>
>
> Takze ty pak napises:
>
> Val(Demence (Label1.Caption), r , code);
>
> Myslim, ze tohle je nejlepsi reseni a hlavne nezalezi na tom, jestli mas ve
> Windows nastanou carku nebo tecku. Z programu, ktere nejsou takhle nebo
> podobne
> osetreny vzycky rostu....
>
> Dodo
>
>
> ______________________________________________________________
> > Od: "Michal David" <michal(zv)access-it(tec)cz>
> > Komu: <delphi-l(zv)fwd(tec)cz>
> > CC:
> > Datum: Tue, 23 May 2000 18:13:03 -0400
> > P�edm�t: Zamena carky za tecku v paradox tabulce.
> >
> > Zdravim,
> > Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
> > Tuto hodnotu si takto nactu :
> >
> > Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
> >
> > A pote s tim chci dale pracovat v jedne funkci.
> > Jenze pokud napisi:
> >
> > var
> > r : real;
> > code: integer;
> >
> > Val(Label1.Caption, r , code);
> >
> > vraci se mi code 3 prave kvuli carce.
> >
> > Nevite nekdo co s tim?
> >
> > -md
> >
> >
>
>
> Objevujte Internet s http://www.centrum(tec)cz
> Zalo�te si svuj mail na http://mail.centrum(tec)cz
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
owner canvas handle
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 24.5.2000 11:48:13
On 24 May 2000, at 1:07, Petr Vones wrote:
> > Eeeh? Takze jsem se podival, a zjistil jsem: GetDeviceContext je
> > private, takze nelze pouzit zvnejsku. Dale, tato metoda vola prave
>
> To neni pravda :-) GetDeviceContext je v protected sekci aby ji bylo
> mozne pouzit v odvozenych komponentach, kde lze cekat jeji nejvetsi
> vyuziti.
:-))) To je pravda, protoze jsem psal _zvnejsku_. Napriklad, kdyz si
kliknu na komponentu, kterou mam na formulari, tak to u ni pres
GetDeviceContext nezjistis, pokud si nudelas jejiho zvlastniho
potomka. Nepsal jsi to zase nahodou v praci? :-)
> > GetDC (v TWinControl). Pokud tedy zavolas
> >
> > try
> > h1:=GetDC((Sender as TWinControl).Handle);
> > except
> > // neni Handle
> > end;
> >
> > mas osetrenu drtivou vetsinu komponent. Takze je jeste nekde
> > problem?
>
> V tom, ze to:
> 1. nelze pouzit pro ziskani DC u TControl.
GetDeviceContext v TControl se snazi volat tutez metodu u rodice.
Totez lze bez problemu osetrit po except.
> 2. nekontroluje zdali dany control ma opravdu vytvorene HWND u parenta
K tomu dochazi pouze v pripade, ze se nejedna o potomka
TWinControl (a neni tato metoda prekryta). Tridu TWinControl
zadny parent nezajima.
> 3. nekontroluje zdali nedoslo k chybe pri ziskavani DC (nedostatek
> prostredku)
Neni problem pripsat if h1=0 then...
> 4. neorezava oblast pro kresleni na rozmer TControl
??? Neni treba, o oblast pro kresleni se staraji Windows.
TWinControl se tim take nezabyva.
> 5. nevraci korektni typ DC v dobe navrhu komponenty (pokud by tak bylo
> pouzito)
Snad pouze tato pripominka je relevantni.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Docking
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 24.5.2000 11:04:33
V tom priklade maji Splitter mezi dokovacim panelem a
hlavnim oknem. Zkus to.
Tomas Bihary
----- Original Message -----
From: "Petr Vaclavek" <bla(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 5:21 PM
Subject: Docking
> Ahoj
>
> Rad bych udelal aplikaci s dokovatelnymi okny. Ale fakt nevim jak na
> to.
...
Databaze bez BDE a ODBC
[*] Petr.Dana(zv)pvt(tec)cz - 24.5.2000 13:12:15
Zdravim vsechny.
Potreboval bych vedet, jestli existuje nejaka moznost, jak pracovat s
nejakou jednoduchou databazi, ktera umi blob, aniz bych musel pouzivat BDE
nebo ODBC.
Ona to vlastne nemusi byt ani databaze, potrebuju ale do jednoho souboru
ukladat mensi vygenerovane bitmapy s jeste nejakymi dalsimi daty.
Muzete mi nekdo poradit, jak na to?
Dikas
Petr
OT: FTP via e-mail
[*] Marian Hatala <emha(zv)mailbox.sk> - 24.5.2000 12:17:19
Cau.
Tak napriklad
webmail(zv)www.ucc.ie
maiser(zv)pmail.gen.nz
iliad(zv)prime.jsc.nasa.gov
gophermail(zv)eunet(tec)cz
gopher(zv)dna.affrc.go.jp
gomail(zv)ncc.go.jp
getweb(zv)usa.healthnet.org
ftpmail(zv)render.gu.net
FTPmail(zv)ftp.vslib(tec)cz
ftpmail(zv)ftp.uni-stuttgart.de
bitftp(zv)pucc.princeton.edu
binky(zv)junoaccmail.org
agora(zv)dna.affrc.go.jp
Najlepsi a najrychlejsi je bitftp..., ale posledny cca mesiac sa mi
neozyva(potvrdenie prijatia ulohy do 10 min, vykonanie do 2-3 hod),
kedysi bol dobry aj ftp.vslib(tec)cz, ale jedneho casu siel otrasne pomaly
(niekedy odpovedal aj po tyzdni) a bol aj bol dost nespolahlivy. Ale
uz som ho dlho neskusal, mozno uz zase facha. Momentalne najcastejsi
pouzivam render.gu.net
eMHa
----- Original Message -----
From: "Karel Klime�" <kchodl(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 24. kv�tna 2000 7:48
Subject: OT: FTP via e-mail
Ahoj,
predem se omlouvam za OFF TOPIC, ale uz si nemuzu pomoct.
K pristupu na INTERNET uziva nase firma PROXY SERVER, ktery ma
blokovano FTP
:( a ja potrebuju nekdy stahnout nejake soubory, proto shanim nejake
linky
na e-mail servery, ktere mne sobory stahnou a a poslu do posty jako
prilohu.
Dik
Progr-Amather -Kchodl-(r) 1989-2000
Pouzivani ActiveX v BCB
[*] martin.falta(zv)atlas(tec)cz - 24.5.2000 13:53:51
Ahoj,
naimportoval jsem si ADODB_TLB do BCB 5 a potrebuji vyuzit objekty Connection a Recordset. Ovsem zatim se mi je nepodarilo nadeklarovat. At zkousim, co zkousim, vzdycky dostanu Access Violation. Nevedel by nekdo z vas co s tim.
Predem dekuji.
Martin
P.S. Potrebuji pouzit pouze naimportovany ADO jako ActiveX, proto mi prosim nedoporucujte zadne ADO komponenty.OT Popis RTF
[*] Robert Ehrenberger <robert.ehrenberger(zv)sprinx(tec)cz> - 24.5.2000 14:01:37
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.
V MSDN je podrobny popis synatxe RTF - mohu pripadne poslat jako file
-----Original Message-----
From: Petr J�nsk� [mailto:petr.jansky(zv)volny(tec)cz]
Sent: Tuesday, May 23, 2000 9:43 AM
To: Delphi konference
Subject: OT: Popis RTF
Nevite nekdo, kde by se dal ziskat popis RTF?
Dik a zdravim!
Ing. Petr J�nsk�
C.A.C spol. s r.o., Teplice
delphi a tisk grafiky
[*] bures <bures(zv)ssakhk(tec)cz> - 24.5.2000 14:23:25
Dobry den, po tisku grafiky podle knizky Mistrovstvi v Delphi 4 od Toma
Swana jsem pouzil priklad ke knize dodavany. A na laserovych tiskarnach se
mi grafika tiskne ve velikosti v ktere potrebuji, ale na inkoustovych
tiskarnach velikost grafiky zalezi na nastaveni kvality tisku. Cim je mensi
nastavena kvalita
tim je obrazek mensi a cim vetsi je kvalita tim vetsi. Ja bohuzel potrebuji
tisknout karticky ktere maji predepsanou velikost.....
k tisku pristupuji takto:
ScaleY,ScaleX: Integer;
My_Rect: Trect;
begin
{ vytvoreni picture }
karticka := TPicture.Create;
karticka.Metafile := form2.Image1.Picture.Metafile
Printer.BeginDoc;
With Printer do
begin
ScaleX := GetDeviceCaps(handle,LOGPIXELSX) div PixelsPerInch;
ScaleY := GetDeviceCaps(handle,LOGPIXELSX) div PixelsPerInch;
My_Rect := Rect(Souradnice_X * scaleX, Souradnice_Y * scaleY
,(Karticka.Width + Souradnice_X) * scaleX
,(Karticka.Height + Souradnice_Y) * scaleY);
Canvas.StretchDraw(My_Rect,karticka.Graphic);
end; { with }
Printer.EndDoc;
karticka.Free;
end;
predem dekuji za pomoc Vlada
PL406B.DAT
[*] Zdenek Moravec <zmoravec(zv)klet(tec)cz> - 24.5.2000 12:56:22 -0000
Pravdepodobne mas na mysli DE406 a je to k mani na
http://ssd.jpl.nasa.gov/eph_info.html
kde je odkaz na ftp na kterem jsou programy ve FORTRANU, ze zdroje by se
struktura dala vycist, a jsou tam i programy v C, ty ale nejsou koncipovane tak
obecne jako fortranske programy, ktere pochazi primo od autora efemerid.
Taky jde o to, jestli mas ten soubor jako ASCII nebo prevedeny do binarniho
tvaru. Na FTP tam maji v ASCII jen ostatni efemeridy (DE200, DE405) a DE406 tam
maji pouze v binarni forme, ktera je delana pod unixem, takze tam pri cteni z
Delphi muzou byt trochu potize, myslim ze je tam problem little endian vs. big
endian, ale to nevim jiste a nezkousel jsem to. (Jestli to mas binarni a cele,
tak by to melo mit asi 200 MB).
Struktura toho souboru je v podstate rada Cebysevovych koeficientu pro urcite
datumy a pro kazdou planetu zvlast. Kdyz se na tom FTP podivas do adresare
/C-versions/hoffman/
tak tam je i s C programem zabalena prirucka v TeXu, muzu ti to ale poslat
prevedene do pdf, kteremu asi rozumi vic lidi.
Ja delam s DE405, ktere je zahrnuje obdobi od 1600 do 2200 a mam to zatim jen ve
FORTRANu, i kdyz se to uz nejakou dobu chystam prevest do Delphi.
Zdenek Moravec
Hvezdarna Klet
zmoravec(zv)klet(tec)cz
----- P�vodn� zpr�va -----
Od: <sup(zv)svitap(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 24. kv�tna 2000 9:07
P�edm�t: OT: PL406B.DAT
> Dobry den. Omlouvam se za OT. Nezna nekdo strukturu souboru PL406B.DAT nebo
> kde ji sehnat? Mely by to byt pozice planet, mesice a asteroidu v obdobi
> -4000 az 4000 (efemeridy). A aby to nebylo moc OT, tak ten soubor potrebuji
> cist v D3Profi. Diky predem za jakekoliv nakopnuti spravnym smerem.
>
> Jaroslav Weiss
> odd. informatiky
>
> SVITAP J.H.J. s.r.o.
> Kijevska 6-8
> SVITAVY
> 568 02
>
> tel: ++420-461-568 202
> fax: ++420-461-568 300
> E-mail: sup(zv)svitap(tec)cz
> URL: www.svitap(tec)cz
> FTP: ftp.svitap(tec)cz
>
QuickRep
[*] tomas.mazurek(zv)vitkovice(tec)cz - 24.5.2000 13:02:21
Hello,
ty Add dej do udalosti OnAddReports u CompReportu... Pak staci jen
Preview.
>Nejak mi to nejede,
>vytvoril jsem Form, na ne jsem dal dva TQuickRep a QRCompositeReport.
>Na TQuickRep jsem dal Title a dva QRLabely, spustil jsem a nic.
>Preview je prazdny, ale kdyz dam jednotlive QuickRep.Preview, tak to
>jede. Nevite nekdo co delam spatne ?
> Hup := THup.Create(Self);
> Hup.QRCompositeReport1.Reports.Add(Hup.QuickRep1);
> Hup.QRCompositeReport1.Reports.Add(Hup.QuickRep2);
> Hup.QRCompositeReport1.Preview;
> Hup.Release;
Tomas
Popis RTF
[*] Surfman <surfman(zv)volny(tec)cz> - 24.5.2000 15:36:37
Ahoj,
popis RTF 1.5 jsem pro vsechny zajemce docasne umistil na
www.apscomputer(tec)cz/delphi/RTF_1_5_Spec.htm
Pavel
----- Original Message -----
From: "Petr J�nsk�" <petr.jansky(zv)volny(tec)cz>
To: "Delphi konference" <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 23, 2000 09:42
Subject: OT: Popis RTF
Nevite nekdo, kde by se dal ziskat popis RTF?
Dik a zdravim!
Ing. Petr J�nsk�
C.A.C spol. s r.o., Teplice
InstallShield
[*] Karel Kral <kral(zv)purus(tec)cz> - 24.5.2000 15:51:22
> Pokud pou��v� posledni verze Inno + ScriptMaker a pridas k tomu "My Inno
> Setup Extensions" tak snad nemuzes ani nic lepsiho potrebovat (ZDARMA).
Muzes mi rict, co je "My Inno Setup Extensions" a kde bych to nasel? Na
Jordan Russel to neni.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Optimalizace kodu v Delphi (link)
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 24.5.2000 16:27:59
Mozna nekoho bude zajimat nasledujici link:
http://www.optimalcode.com/
Petr Fischer
E-Mail: fifa(zv)praguesoft(tec)cz, ICQ#: 24154715
P.S. Doufam, ze to tu jeste nebylo (podle archivu alespon ne)...Databaze bez BDE a ODBC
[*] garalda <garalda(zv)mail(tec)cz> - 24.5.2000 16:28:25
>Zdravim vsechny.
Take
>Potreboval bych vedet, jestli existuje nejaka moznost, jak pracovat s
>nejakou jednoduchou databazi, ktera umi blob, aniz bych musel pouzivat BDE
>nebo ODBC.
>Ona to vlastne nemusi byt ani databaze, potrebuju ale do jednoho souboru
>ukladat mensi vygenerovane bitmapy s jeste nejakymi dalsimi daty.
>Muzete mi nekdo poradit, jak na to?
No pokud to nemusi byt databaze, tak mne napadaji dve moznosti. Ty bitmapy
ukladat jako obrazky do nejakeho adresare a pak mit textovy soubor s urcenou
strukturou. Napr.
1 radek: nazev souboru s bitmapou
2 radek: data k bitmape
3 radek: nazev souboru s bitmapou
4 radek: data k bitmape
...
Nebo to zkusit pres FileStream.
Pokud jsou ty bitmapy o stejne velikosti je to jednoduche, staci si pak
nacitat/zapisovat tu strukturu ze/do Streamu.
Pokud nejsou stejne velikosti, tak si lze treba na zacatku toho streamu
udrzovat tabulku s odkazy na jednotlive polozky. Nejlepe, kdyby ty odkazy
byly relativni vzhledem ke konci tabulky, protoze ta bude menit svoji
velikost. Pripadne mit tu tabulku v jinem, samostatnem Streamu. To by mohlo
mit vyhodu i treba pri razeni nebo vyhledavani...
Podobne je to vyreseno tady :http://www.byronref.com/rmb/tvdmx.htm
Je to sice v Turbo Vision for Pascal, ale na inspiraci by to mohlo stacit...
Hodne uspechu a pekny den
Garalda
fontstyle v INI
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 24.5.2000 16:28:02
Jaky typ je font.style? D3 mi ho dovoli do Ini souboru ulozit jako string,
ale nacist uz ne
uses ......., IniFiles;
var
ini:TInifile;
procedure TForm1.ButtonClick(Sender: TObject);
begin
Ini.WriteString('General','Font1Style',Label1.Font.Style);
{ Toto kompilator nebere jako chybu }
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create('Program.ini');
Label1.Font.Style:=Ini.ReadString('General','Font1Style','System');
{ Toto uz se mu nelibi, a hlasi: Incompatible types: 'TFontStyle'
and 'String' }
{ Chapu co ti chce rict, ale nevim jak jinak to udelat }
end;
PLEASE, HELP ME !!!!!!!!!!!!
Pdox tabulky
[*] mattes(zv)VOLNY.CZ <mattes(zv)volny(tec)cz> - 24.5.2000 18:19:42
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Caute,
nevite nekdo jak je to se strukturou DB souboru a heslem v Pdox tabulkach. Potrebuju pro
firmu zjistit jak moc, nebo malo jsou data ulozena v Paradoxu
zabezpecena.
Dik
Tisk bitmapy na tiskarnu.
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 24.5.2000 18:26:49
>From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
>> mam problem v Delphi 3 tisknout bitmapy na tiskarnu. Obcas se nevytiskne.
>> Tisknu pomoci objektu Printer do obdelniku RECT a bitmapa je ulozena v
>> image:
>>
>> Printer.Orientation := poPortrait;
>> Printer.BeginDoc;
>> If Not Printer.Aborted Then
>> Printer.Canvas.StretchDraw(RECT,Image1.Picture.Graphic);
>> Printer.EndDoc;
>v helpu je u TPrinter.Canvas tahle poznamka:
>
>Note: Delphi canvases use device-dependent bitmaps to implement the Draw,
>StretchDraw, or CopyRect methods. Because of this, you can't use these
methods
>with most printers. Instead, to create graphic images on the printer's
canvas,
>create a device-independent bitmap and draw it directly to the canvas's
Handle
>property.
>
>Petr Vones, amatersky programator
Zajimave ovsem je to, ze mi treba tiskarna pri tisku pomoci StretchDraw
nevytiskne nahodne 2 az 5 bmp obrazku (na ruznych pocitacich a ruznych
tiskarnach) z 50 obrazku vytistenych do matice po cele strance tiskarny. Je
ale fakt, ze nektere tiskarny, jsou na uvedeny problem haklivejsi.
Pokud se ale tisk provede vyse uvedenym postupem podle helpu, pak by to melo
byt stoprocentni (ale take o 100% pracnejsi).
Tomas Grepl
K.A.P. - ekonomicke informacni systemy
Lotus, lotus
[*] mattes(zv)VOLNY.CZ <mattes(zv)volny(tec)cz> - 24.5.2000 18:56:45
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
potreboval bych trosku pichnout s pristupem z Delfina na Lotus Notes.
Mam dotazy hnedle dva :
1. Jak poslat pres Lotus postu z Delphi mail
2. Jak pristupovat z delphi k databazim Lotus
// Delphi4, LotusNotes 4.5
Dik
Kompilace Packages
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 24.5.2000 18:56:26
Pot�eboval bych poradit co si mam pocit s nasledujicim varovnim pri
kompilaci balicku komponent: Warning: (0): Unit 'xxx' implicitly imported
into package 'my'. Kdyz tu unitu odstranim z uses komponenty, tak zase
vyhodi jine chyby, ze nezna neco.
BDE podruhe
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 24.5.2000 19:39:46
Nedavno se tu probirala instalace BDE na jinem pocitaci.
Pavol Stolc wrote:
> V adresari {$Borland}\Common Files\BDE je subor Bdeinst.dll (moze byt aj
> subor bdeinst.cab ktory obsahuje tuto dll), ktorym nainstalujes BDE
> nasledovne: regsvr32.exe /S bdeinst.dll
Udavanou knihovnu jsem nikde na kompu nenasel. Nejspis to bude verzi Delphi.
Mam D3 Client-Server Suite. Existuje jeste nejaky jiny zpusob instalace BDE
?
Nevim jestli je resenim ziskat nekde tu knihovnu, ale nevim potom jesli
aplikace napsana v D3 bude fungovat.TStrings.create
[*] Petr Pa��enko <petrpas(zv)volny(tec)cz> - 24.5.2000 19:43:59
Mam nasledujici kod,
procedure TForm1.Button1Click(Sender: TObject);
Var TS : TStrings;
begin
TS:=TStrings.Create;
try
TS.clear;
TS.Add('radek 1');
TS.Add('radek 2');
TS.Add('radek 3');
finally
TS.Free;
end;
end;
ktery by mel podle vseho fungovat normalne, presto ale pri stisknuti tlacitka dojde k vyvolani chyby s nasledujicim textem:
<Project1.exe raised exception class EAbstracterror with message "Abstract error". Proces stopped... >
Byl bych velice vdecny za radu ci vysvetleni meho pravdepodobneho omylu.
Petr Pascenko ml.
W95, D3 OT:Msoft Help Workshop
[*] Petr Pa��enko <petrpas(zv)volny(tec)cz> - 24.5.2000 20:32:21
Zdravim,
Omlouvam se za mirny OT.
Jiz velmi dlouho vedu zcela neuspesne tazeni proti vyse zminovanemu generatoru helpu. Nejsem schopen pochopit predevsim strukturu RTF souboru pridruzenemu k samotnemu help-projektu. Byl bych velice vdecen za nejakou radu ci spise odkaz na pokudmozno ceskou stranku, knihu ci verejny priklad uziti vyse zminovaneho.
Eventuelne bych ocenil i odkaz na jiny volny tvurce helpu.
Petr Pa��enko ml.
W95, D3 delphi a tisk grafiky
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 24.5.2000 20:43:36
> Dobry den, po tisku grafiky podle knizky Mistrovstvi v Delphi 4 od Toma
> Swana jsem pouzil priklad ke knize dodavany. A na laserovych tiskarnach se
> mi grafika tiskne ve velikosti v ktere potrebuji, ale na inkoustovych
> tiskarnach velikost grafiky zalezi na nastaveni kvality tisku. Cim je
mensi
> nastavena kvalita
> tim je obrazek mensi a cim vetsi je kvalita tim vetsi. Ja bohuzel
potrebuji
> tisknout karticky ktere maji predepsanou velikost.....
>
> k tisku pristupuji takto:
>
> ScaleY,ScaleX: Integer;
> My_Rect: Trect;
> begin
> { vytvoreni picture }
> karticka := TPicture.Create;
> karticka.Metafile := form2.Image1.Picture.Metafile
> Printer.BeginDoc;
> With Printer do
> begin
> ScaleX := GetDeviceCaps(handle,LOGPIXELSX) div PixelsPerInch;
> ScaleY := GetDeviceCaps(handle,LOGPIXELSX) div PixelsPerInch;
> My_Rect := Rect(Souradnice_X * scaleX, Souradnice_Y * scaleY
> ,(Karticka.Width + Souradnice_X) * scaleX
> ,(Karticka.Height + Souradnice_Y) * scaleY);
> Canvas.StretchDraw(My_Rect,karticka.Graphic);
> end; { with }
> Printer.EndDoc;
> karticka.Free;
> end;
>
> predem dekuji za pomoc Vlada
>
Problem bude v pouziti promenne typu integer a celociselne deleni pro ScaleX
a ScaleY.
Lepsi bude pouzit realne cislo a na integer prevest az po vynasobeni
souradnicemi.
Vaclav Krmela
TStrings.create
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 24.5.2000 21:08:44
Ahoj,
podla napovedy je metoda TStrings.Clear definovana ako ABSTRACT - tzn. musi byt
predefinovana v potomkoch.
Skus preto radsej pouzit triedu TStringList (namiesto TStrings).
Tomas
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr Pa��enko
Sent: Wednesday, May 24, 2000 7:44 PM
To: delphi-l(zv)fwd(tec)cz
Subject: TStrings.create
Mam nasledujici kod,
procedure TForm1.Button1Click(Sender: TObject);
Var TS : TStrings;
begin
TS:=TStrings.Create;
try
TS.clear;
TS.Add('radek 1');
TS.Add('radek 2');
TS.Add('radek 3');
finally
TS.Free;
end;
end;
ktery by mel podle vseho fungovat normalne, presto ale pri stisknuti tlacitka dojde k vyvolani chyby s nasledujicim textem:
<Project1.exe raised exception class EAbstracterror with message "Abstract error". Proces stopped... >
Byl bych velice vdecny za radu ci vysvetleni meho pravdepodobneho omylu.
Petr Pascenko ml.
W95, D3 TStrings.create
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 24.5.2000 21:14:19
> procedure TForm1.Button1Click(Sender: TObject);
> Var TS : TStrings;
> begin
> TS:=3DTStrings.Create;
****TS:=3DTStringList.Create;
> try
> TS.clear;
> TS.Add('radek 1');
> TS.Add('radek 2');
> TS.Add('radek 3');
> finally
> TS.Free;
> end;
> end;
>
Strings je pouze abstraktni predek.
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Spusteni aplikace
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 24.5.2000 21:26:39
> > Od: Jiri Novacek[SMTP:JNovacek(zv)spst(tec)cz]
> >
> > Potrebuji spustit svoji aplikaci jeste pred prihlasenim do pocitacove
> > site (NetWare, Windows).
> > Kam do registru zapsat jmeno programu nebo jak je mozne toto realizovat.
From: "Mal� Dobromil" <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Subject: RE: Spusteni aplikace
> HKEY_LM\Software\Microsoft\Windows\...
> ...\CurrentVersion\RunServices
>
Ale plati to aj pri Windows NT alebo 2000 ? Ja som tam tu cestu nenasiel/
:(((
R.Instalace DAO 3.5
[*] Erik Salaj <winsoft(zv)napri.sk> - 24.5.2000 22:08:36
> Jak zajistit nainstalov�n� DAO 3.5 aby program napsan� v Delphi 4 C/S
> p�istupuj�c� k MS Access p�es BDE+ Nativn� ovlada� MSACCESS fungoval a
> fungoval i p��m� p��stup p�es DAO (nap�. CompactDatabase, CreateDatabase).
> Samoz�ejm�, �e licenci pro MS Office 97 vlastn�me.
Mas dve moznosti:
1. Access po nainstalovani zapise do registracnej databazy (niekde do
License)
licencny kod pre DAO 3.5. Pokial tam tento kod DAO 3.5 najde, tak umozni
vytvarat na pocitaci DAO objekty beznym sposobom.
2. Mozes pouzit DAO.DCU unit z DAO komponentov, ktory vytvara objekty
s licencnym kodom. Vyhoda je rychlost, pretoze sa nepouziva late binding,
nevyhoda obmedzenie, ze to mozes pouzit iba v Delphi/BCB aplikacii. Nebude
to fungovat ani s BDE.
Mimochodom, DAO 3.6 ziadnu takuto ochranu nema a je dokonca
sucastou Windows 2000 podobne ako ADO 2.5.
Erik
Zamena carky za tecku v paradox tabulce.
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 24.5.2000 22:11:11
----- Original Message -----
From: "Michal David" <michal(zv)access-it(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 24, 2000 12:13 AM
Subject: Zamena carky za tecku v paradox tabulce.> Zdravim,
> Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
> Tuto hodnotu si takto nactu :
>
> Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
>
Su dve moznosti:
1. Zmenit local setting Windowsu na bodku
2. Vyhladaj ciarku a nahrad ju bodkou.
Roland
Zamena carky za tecku v paradox tabulce.
[*] <dodo(zv)centrum(tec)cz> - 24.5.2000 22:15:48
Pouzij co chces, je to tvoje volba, kazdopadne ja pouzivam sve reseni, proto�e je o n�co univerz�ln�j��.
______________________________________________________________
> Od: "Michal David" <michal(zv)access-it(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Wed, 24 May 2000 17:05:58 -0400
> P�edm�t: RE: Zamena carky za tecku v paradox tabulce.
>
> Zdravim,
> Pouzil jsem reseni od Pavel.Koukal(zv)pvt(tec)cz
>
> DecimalSeparator := '.';
>
> A vse mi funguje. Snad s tim nebudou problemy ani kdyz si uzivatel zmeni mistni nastaveni.
> -md
>
> >>> dodo(zv)centrum(tec)cz 24.5.00 5:18 >>>
> Ja jsem to myslel takhle:
>
> Na zobrazeni samozrejme POUZIVEJ oddelovac, co ma nastaven uzivatel, ale pokud chces prevest
zadani
> uzivatele, tak si vse preved na tecku, protoze FUNKCE VAL v Delphi spolupracuje pouze s teckou !
> A mas vse vyresene, absolutne nezalezi na to, jak ma uzivatel nastavene prostredi, ani co ti zadal a
> vysledek je vzdy spravne.
>
> problemy by nastaly, pokud by nekdo zapisoval jeste oddelovac tisicu ...;-) Ale to se nejak nepouziva..
> Dodo
>
>
> ______________________________________________________________
> > Od: Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz>
> > Komu: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
> > CC:
> > Datum: Wed, 24 May 2000 07:48:25 +0200
> > P�edm�t: RE: Zamena carky za tecku v paradox tabulce.
> >
> > Ahoj,
> > se zamenou deset. carky za tecku bych byla opatrna. Jednou jsem neco
> > podobneho delala a pekne jsem si zavarila. Ale pracovala jsem se vzdalenou
> > databazi v Informixu. Na mem pocitaci jsem mela nastavenou jako standardni
> > carku a tak abych uzivateli vytvorila komfort, prevadela jsem navic tecku na
> > carku (aby mohl poridit tecku i carku). Vsechno fungovalo fantasticky do
> > chvile, nez to zkusil uzivatel. Ten to mel totiz nastavene obracene. Chybu
> > mi to sice nevykazovalo, ale uzivateli se misto porizenych 48,20 do tabulky
> > zapsalo 4820,- (proste to tu dest. carku nevzalo). Tak jsem to predelala a
> > pak si uzivatel zmenil mistni nastaveni. Takze jsem to nakonec vzdala a
> > komfort vyhodila. Takze jako deset. oddelovac musi pouzit to, co ma v
> > mistnim nastaveni.
> > Mozna jsem volila spatne reseni, ale nemela jsem na to cas ani nervy.
> >
> > Jolana
> >
> >
> > -----P�vodn� zpr�va-----
> > Od: dodo(zv)centrum(tec)cz [mailto:dodo(zv)centrum(tec)cz]
> > Odesl�no: 23. kv�tna 2000 21:40
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: re: Zamena carky za tecku v paradox tabulce.
> >
> >
> > Bud pouzij misto VAL StrToFloat - nebo tak nejak, ale to nedoporucuju, prave
> > kvuli tem carkam,
> > teckam....
> > Ja sem si udelal jednoduchov funkci, ktera ve stringu nahradi carky za tecky
> > a ten retezec pak klidne
> > posli funkci VAL
> > Tak fce vypada takto: (samozrejme si ji muzes prejmenovat :-)))
> >
> >
> > Function Demence (NumberStr:String):String;
> > Begin
> > Result:=StringReplace (NumberStr,',','.',[rfReplaceAll]);
> > End;
> >
> >
> > Takze ty pak napises:
> >
> > Val(Demence (Label1.Caption), r , code);
> >
> > Myslim, ze tohle je nejlepsi reseni a hlavne nezalezi na tom, jestli mas ve
> > Windows nastanou carku nebo tecku. Z programu, ktere nejsou takhle nebo
> > podobne
> > osetreny vzycky rostu....
> >
> > Dodo
> >
> >
> > ______________________________________________________________
> > > Od: "Michal David" <michal(zv)access-it(tec)cz>
> > > Komu: <delphi-l(zv)fwd(tec)cz>
> > > CC:
> > > Datum: Tue, 23 May 2000 18:13:03 -0400
> > > P�edm�t: Zamena carky za tecku v paradox tabulce.
> > >
> > > Zdravim,
> > > Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
> > > Tuto hodnotu si takto nactu :
> > >
> > > Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
> > >
> > > A pote s tim chci dale pracovat v jedne funkci.
> > > Jenze pokud napisi:
> > >
> > > var
> > > r : real;
> > > code: integer;
> > >
> > > Val(Label1.Caption, r , code);
> > >
> > > vraci se mi code 3 prave kvuli carce.
> > >
> > > Nevite nekdo co s tim?
> > >
> > > -md
> > >
> > >
> >
> >
> > Objevujte Internet s http://www.centrum(tec)cz
> > Zalo�te si svuj mail na http://mail.centrum(tec)cz
> >
>
>
> Objevujte Internet s http://www.centrum(tec)cz
> Zalo�te si svuj mail na http://mail.centrum(tec)cz
>
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
FTP via e-mail
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 24.5.2000 22:22:26
Ahoj,
zkus cesky server WebHook >
http://orion.sh.cvut(tec)cz/hook/cz/novy.html .
Par konfiguracnich moznosti a moznost zipovani.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Bo�an Hynek
> Sent: Wednesday, May 24, 2000 11:15 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: FTP via e-mail
>
>
> www.emailfile.com , ale nev�m esli je�t� chod�...
>
> > -----P�vodn� zpr�va-----
> > Od: =?iso-8859-2?Q?Karel Klime=B9 [SMTP:kchodl(zv)email(tec)cz]
> > Odesl�no: 24. kv�tna 2000 8:49
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: OT: FTP via e-mail
> >
> > Ahoj,
> > predem se omlouvam za OFF TOPIC, ale uz si nemuzu pomoct.
> > K pristupu na INTERNET uziva nase firma PROXY SERVER, ktery ma blokovano
> > FTP
> > :( a ja potrebuju nekdy stahnout nejake soubory, proto shanim nejake
> > linky
> > na e-mail servery, ktere mne sobory stahnou a a poslu do posty jako
> > prilohu.
> >
> > Dik
> >
> > Progr-Amather -Kchodl-(r) 1989-2000
> >TStrings.create
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 24.5.2000 22:34:28
Ahoj,
Pouzivej TStringList a ne TStrings.
Napr.>
procedure TForm1.Button1Click(Sender: TObject);
begin
with TStringList.Create do
try
// Clear; neni treba - po Create je prazdny
Add('radek 1');
Add('radek 2');
Add('radek 3');
finally
Free;
end;
end;
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Petr
Pa��enko
Sent: Wednesday, May 24, 2000 7:44 PM
To: delphi-l(zv)fwd(tec)cz
Subject: TStrings.create
Mam nasledujici kod,
procedure TForm1.Button1Click(Sender: TObject);
Var TS : TStrings;
begin
TS:=TStrings.Create;
try
TS.clear;
TS.Add('radek 1');
TS.Add('radek 2');
TS.Add('radek 3');
finally
TS.Free;
end;
end;
ktery by mel podle vseho fungovat normalne, presto ale pri stisknuti
tlacitka dojde k vyvolani chyby s nasledujicim textem:
<Project1.exe raised exception class EAbstracterror with message "Abstract
error". Proces stopped... >
Byl bych velice vdecny za radu ci vysvetleni meho pravdepodobneho omylu.
Petr Pascenko ml.
W95, D3
Zamena carky za tecku v paradox tabulce.
[*] Michal David <michal(zv)access-it(tec)cz> - 24.5.2000 17:05:58 -0400
Zdravim,
Pouzil jsem reseni od Pavel.Koukal(zv)pvt(tec)cz
DecimalSeparator := '.';
A vse mi funguje. Snad s tim nebudou problemy ani kdyz si uzivatel zmeni mistni nastaveni.
-md
>>> dodo(zv)centrum(tec)cz 24.5.00 5:18 >>>
Ja jsem to myslel takhle:
Na zobrazeni samozrejme POUZIVEJ oddelovac, co ma nastaven uzivatel, ale pokud chces prevest zadani
uzivatele, tak si vse preved na tecku, protoze FUNKCE VAL v Delphi spolupracuje pouze s teckou !
A mas vse vyresene, absolutne nezalezi na to, jak ma uzivatel nastavene prostredi, ani co ti zadal a
vysledek je vzdy spravne.
problemy by nastaly, pokud by nekdo zapisoval jeste oddelovac tisicu ...;-) Ale to se nejak nepouziva..
Dodo
______________________________________________________________
> Od: Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz>
> Komu: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
> CC:
> Datum: Wed, 24 May 2000 07:48:25 +0200
> P�edm�t: RE: Zamena carky za tecku v paradox tabulce.
>
> Ahoj,
> se zamenou deset. carky za tecku bych byla opatrna. Jednou jsem neco
> podobneho delala a pekne jsem si zavarila. Ale pracovala jsem se vzdalenou
> databazi v Informixu. Na mem pocitaci jsem mela nastavenou jako standardni
> carku a tak abych uzivateli vytvorila komfort, prevadela jsem navic tecku na
> carku (aby mohl poridit tecku i carku). Vsechno fungovalo fantasticky do
> chvile, nez to zkusil uzivatel. Ten to mel totiz nastavene obracene. Chybu
> mi to sice nevykazovalo, ale uzivateli se misto porizenych 48,20 do tabulky
> zapsalo 4820,- (proste to tu dest. carku nevzalo). Tak jsem to predelala a
> pak si uzivatel zmenil mistni nastaveni. Takze jsem to nakonec vzdala a
> komfort vyhodila. Takze jako deset. oddelovac musi pouzit to, co ma v
> mistnim nastaveni.
> Mozna jsem volila spatne reseni, ale nemela jsem na to cas ani nervy.
>
> Jolana
>
>
> -----P�vodn� zpr�va-----
> Od: dodo(zv)centrum(tec)cz [mailto:dodo(zv)centrum(tec)cz]
> Odesl�no: 23. kv�tna 2000 21:40
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: re: Zamena carky za tecku v paradox tabulce.
>
>
> Bud pouzij misto VAL StrToFloat - nebo tak nejak, ale to nedoporucuju, prave
> kvuli tem carkam,
> teckam....
> Ja sem si udelal jednoduchov funkci, ktera ve stringu nahradi carky za tecky
> a ten retezec pak klidne
> posli funkci VAL
> Tak fce vypada takto: (samozrejme si ji muzes prejmenovat :-)))
>
>
> Function Demence (NumberStr:String):String;
> Begin
> Result:=StringReplace (NumberStr,',','.',[rfReplaceAll]);
> End;
>
>
> Takze ty pak napises:
>
> Val(Demence (Label1.Caption), r , code);
>
> Myslim, ze tohle je nejlepsi reseni a hlavne nezalezi na tom, jestli mas ve
> Windows nastanou carku nebo tecku. Z programu, ktere nejsou takhle nebo
> podobne
> osetreny vzycky rostu....
>
> Dodo
>
>
> ______________________________________________________________
> > Od: "Michal David" <michal(zv)access-it(tec)cz>
> > Komu: <delphi-l(zv)fwd(tec)cz>
> > CC:
> > Datum: Tue, 23 May 2000 18:13:03 -0400
> > P�edm�t: Zamena carky za tecku v paradox tabulce.
> >
> > Zdravim,
> > Mam tabulku jedna polozka je typu number a ma hodnotu treba 39,40.
> > Tuto hodnotu si takto nactu :
> >
> > Label1.Caption := FloatToStr(FieldByName('cena').AsValue);
> >
> > A pote s tim chci dale pracovat v jedne funkci.
> > Jenze pokud napisi:
> >
> > var
> > r : real;
> > code: integer;
> >
> > Val(Label1.Caption, r , code);
> >
> > vraci se mi code 3 prave kvuli carce.
> >
> > Nevite nekdo co s tim?
> >
> > -md
> >
> >
>
>
> Objevujte Internet s http://www.centrum(tec)cz
> Zalo�te si svuj mail na http://mail.centrum(tec)cz
>
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Pdox tabulky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:16:45
From: "mattes(zv)VOLNY.CZ" <mattes(zv)volny(tec)cz>
> nevite nekdo jak je to se strukturou DB souboru a heslem v Pdox tabulkach. Potrebuju
> pro firmu zjistit jak moc, nebo malo jsou data ulozena v Paradoxu zabezpecena.
Ahoj,
data v ni nejsou zabezpecena nijak.
Petr Vones, amatersky programator
Prepinani procesu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:16:53
From: <neuman.aritex(zv)email(tec)cz>
> mam problem spojeny s prepinanim procesu. Potrebuji ze sve aplikace spoustet
> procesy a potom se mezi nimi prepinat. Pri spousteni dostanu ID procesu (to
> je celkem easy). Nevim ovsem jak se pak mezi temito procesy prepinat, popr.
> jak se daji minimalizovat apod. a jak prepnu do materskeho procesu (aplikace).
Ahoj,
a pujde o aplikace psane v Delphi nebo obecne o jakekoli aplikace ?
Petr Vones, amatersky programator
Seznam MDI Child oken
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:16:58
From: Marek Hradil <marekhr(zv)benefitcz(tec)cz>
> Fajn tohle vim, ale v kterem okamziku pozna form, ktery ma na sobe menu
> zobrazujici seznam CHILD oken, ze ma pridat, ubrat v seznamu.
Ahoj,
podle popisu by to vypadalo na zpravu WM_MDIREFRESHMENU
Petr Vones, amatersky programator
Pozice caretu v RichEdit v pixelech , D3, W2000
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:17:10
From: Bo�an Hynek <HBocan(zv)cpoj(tec)cz>
> Pot�ebuji nejank p�ev�st pozici caret ve RxRichedit do sou�adnic formul��e,
> abych mohl na pozici caretu p�em�stit edit box pro zad�n� hodnoty..
Ahoj,
Pozici kurzoru ziskas API funkci GetCaretPos
Petr Vones, amatersky programator
Tisk bitmapy na tiskarnu.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:17:48
From: <petr.palicka(zv)atlas(tec)cz>
> a jak donutim takovej TBitmap (dynamicky vytvorenej), aby byl DIB a ne DDB?
Ahoj,
pomoci vlastnosti TBitmap.HandleType
Petr Vones, amatersky programator
MSDE - instalace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:17:36
From: David Lebeda <david.lebeda(zv)comarr(tec)cz>
> Kouknu na to. Nicmene taky uz jsem to rozchodil. Nahradil jsem
> WaitForSingleObject cyklem:
>
> repeat
> reserved := WaitForSingleObject(PI.hProcess, 0);
> Application.ProcessMessages;
> until reserved <> WAIT_TIMEOUT;
>
> Po celou dobu instalace vraci WaitFormSingleObject hodnotu
> WAIT_TIMEOUT. Je pravda, ze behem instalace se rozjede cela
> plejada procesu, ale ten zakladni bezi po celou dobu. Pote, co
> instalace skonci, vrati WaitFor... hodnotu WAIT_OBJECT_0.
> S uvedenou konstrukci jsem zatim nenarazil na zadny problem,
> ale to neznamena, ze tam nemuze byt ukryty. Je na tomto
> postupu neco spatneho?
Ahoj,
ve smyckach kde pouzivas Application.ProcessMessages je jeste dobre testovat
Application.Terminated. Osobne by me prislo asi jako lepsi reseni cekat na
ukonceni toho instalacniho procesu v samostatnem threadu.
Petr Vones, amatersky programator
COM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:17:45
From: Robert Zak <nrsys(zv)psn.sk>
> Nemate posim niekto priklad, ako pod D5prof vytvorit COM objekt na
> vzdialenom pocitaci? Prehladal som archiv, internet, ale nasiel som iba demo
Ahoj,
podivej se na funkci CreateRemoteComObject
> pre 1 pocitac. Nikdy som nic podobne nerobil, pomohli by mi aj nejake odkazy
http://www.techvanguards.com/
http://www.execpc.com/~dmiser/dcom.htm
> Potreboval by som tiez nejaky odkaz alebo radu, ako pouzivat XML pod delphi.
http://homepages.borland.com/ccalvert/TechPapers/Delphi/XMLBrowse/index.htm
http://www.delphizine.com/features/2000/05/di200005rp_f/di200005rp_f.asp
http://www.delphizine.com/features/2000/03/di200003kw_f/di200003kw_f.asp
http://www.delphizine.com/features/2000/02/di200002kw_f/di200002kw_f.asp
Petr Vones, amatersky programator
Voice funkce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:17:58
From: Daniel Km�nek <kminek(zv)mite(tec)cz>
> >Tebe bude spise zajimat TAPI, kde je podpora voice funkce
>
> Cislo se vytoci, spojeni navaze, ale hlasova komunikace nen�.
> Mam podezreni, ze na to proste potrebuji voice modem a z normalniho data/fax
> to nedostanu.
> Jsi si jisty, ze to opravdu jde i bez voice modemu ?
Ahoj,
Tak to asi doslo k nejakemu nedorozumeni. Samozrejme ze bez voice modemu to
nejde. TAPI ti pouze umozni tyto voice funkce pouzit.
Petr Vones, amatersky programator
PostMessage, SendMessage
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:17:22
From: Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz>
> vytvoril som komponent TMyEdit odvodeny od TEdit a pridal som do neho
> obsluhu spravy CM_MyHandler.
> Ak vo svojom forme s komponentom TMyEdit pouzijem SendMessage pre
> odoslanie spravy CM_MyHandler, komponent spravu zachyti a spracuje, ak
> pouzijem PostMessage komponent spravu nezachyti. Preco?
>
>
> Tu je ukazka komponenty:
>
> const
> CM_MyHandler = WM_USER + 1;
Ahoj,
vlastni zpravy je lepsi definovat az od WM_USER + $100. Microsoft totiz pouziva
uzivatelske zpravy v nekterych svych ovladacich prvcich.
Petr Vones, amatersky programator
Kodovani Unicode UTF-8
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.5.2000 23:18:07
From: Vyvoj <vyvoj(zv)atlascon(tec)cz>
> Prosim o tip na prevedeni retezce v kodovani Unicode UTF-8 do kodovani Windows 1250,
> popr o odkaz na nejakou komplexni unitu, ktera by resila prevody z ruznych kodovani.
Ahoj,
v teto chvili ti to asi nepomuze, ale pripravuje se rozsahla knihovna pro praci
s Unicode. Sleduj JCL (http://delphi-jedi.org/Jedi:CODELIBJCL), melo by se to tam
do 14ti dni objevit v nove verzi.
Petr Vones, amatersky programator
Modul/objekt pro sber statistik
[*] Petr Fejfar <Petr.Fejfar(zv)callnet(tec)cz> - 24.5.2000 23:59:15
Hi all,
potreboval bych dlouhodobe sbirat nejake statisticke udaje uvnitr aplikace a tak shanim nejaky jednoduchy modul/komponentu s nasledujicimi vlastnostmi:
- Pri startu aplikace se automaticky nactou mezivysledky
- Pri behu se cas od casu zapisi mezivysledky na disk,
aby v pripade havarie systemu nedoslo k jejich ztrate
- Bude mozne zaregistrovat/nakonfigurovat sledovanou velicinu
s urcenim min-max rozsahu a poctu sledovanych hladin
- Nova hodnota se bude pridavat pres nejaky handle/index
- Bude to fungovat pro cela cisla i cisla v plovouci radove carce
Nevi nekdo o necem?
Thanx pf, Petr.Fejfar(zv)callnet(tec)cz
OT: API32 funkce pro vytvareni souboru s unique jm
[*] Petr Fejfar <Petr.Fejfar(zv)callnet(tec)cz> - 25.5.2000 00:02:00
Hi all,
nejak nemuzu v MSDN najit funkci, ktera by mi v zadanem adresari vytvorila soubor s unikatnim jmenem, neco jako byvala pod DOSem funkce 5A - Create temporary file.
Neporadil by mi nekdo?
Thanx pf, Petr.Fejfar(zv)callnet(tec)cz
Pouzivani ActiveX v BCB
[*] Erik Salaj <winsoft(zv)napri.sk> - 25.5.2000 00:05:52
> naimportoval jsem si ADODB_TLB do BCB 5 a potrebuji vyuzit objekty
Connection a Recordset. Ovsem zatim se mi je nepodarilo nadeklarovat. At
> zkousim, co zkousim, vzdycky dostanu Access Violation. Nevedel by nekdo z
vas co s tim.
Neviem, ci Ti to pomoze, ale tu je priklad, ako sa da
ADO pouzit vo Visual C++ (kompletna jednoducha
Win32 aplikacia, je tam uz aj osetrenie ADO vynimiek):
--------------------------------------------
#include "stdafx.h"
#import "d:\Program Files\Common Files\System\ADO\msado15.dll" no_namespace
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR
lpCmdLine, int nCmdShow)
{
::CoInitialize(NULL);
try
{
// vytvorime recordset
_RecordsetPtr pRs("ADODB.Recordset");
// otvorime recordset
pRs->Open("SELECT * FROM Faktury", "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\\Northwind.mdb", adOpenUnspecified, adLockUnspecified, -1);
// vyberieme prvu polozku
FieldPtr pField = pRs->Fields->Item[0L];
// zobrazime hodnoty tejto polozky u vsetkych zaznamov
for (pRs->MoveFirst(); !pRs->EOF; pRs->MoveNext())
MessageBox(NULL, (_bstr_t)pField->Value, pField->Name, MB_OK);
}
catch (_com_error &e)
{
MessageBox(NULL, e.Description(), "Error", MB_OK);
}
::CoUninitialize();
return 0;
}
-----------------------------
C++ Builder ma byt kompatibilny s Visual C++ ale podla mojich skusenosti ani
zdaleka nie je. Skusal som prelozit tento kod v ramci jednoduchej VCL
aplikacie
a v kode, ktory si sam CBuilder vygeneroval si aj sam nasiel 4 chyby ;-) ).
Nemozem si pomoct, CBuilder na ma neposobi dojmom kvalitneho produktu
a ak by som mal pisat program v C++, tak urcite by som dal prednost Visual
C++.
Erik
BDE podruhe
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 25.5.2000 00:26:54
bdeinst.dll ktoru som spominal je sucastou Delphi 5 a je to verzia BDE 5.1.
Myslim ze sa oplati upgradovat a mala by byt kompatibilna s programom
napisanym v D3.
Iny sposob instalacie BDE je pomocou InstallShield.
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Daniel Krej�� <fredycrueger(zv)volny(tec)cz>
To: delphi <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 24, 2000 7:39 PM
Subject: BDE podruhe
> Nedavno se tu probirala instalace BDE na jinem pocitaci.
>
> Pavol Stolc wrote:
> > V adresari {$Borland}\Common Files\BDE je subor Bdeinst.dll (moze byt aj
> > subor bdeinst.cab ktory obsahuje tuto dll), ktorym nainstalujes BDE
> > nasledovne: regsvr32.exe /S bdeinst.dll
>
> Udavanou knihovnu jsem nikde na kompu nenasel. Nejspis to bude verzi
Delphi.
> Mam D3 Client-Server Suite. Existuje jeste nejaky jiny zpusob instalace
BDE
> ?
>
> Nevim jestli je resenim ziskat nekde tu knihovnu, ale nevim potom jesli
> aplikace napsana v D3 bude fungovat.Kompilace Packages
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 25.5.2000 06:33:39
Jde o to, ze nektera unita v balicku je pouzivana v uses jine unity, ale nemas ji danou do dpk. Mi se to stavalo taky a stav
jsem odstranil pridanim unity do dpk nebo jejim odstranenim, pokud nebyla podstatna.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: =?windows-1250?Q?Daniel_Krej=E8=ED?= [SMTP:fredycrueger(zv)volny(tec)cz]
> Odesl�no: 24. kv�tna 2000 18:56
> Komu: delphi
> P�edm�t: Kompilace Packages
>
> <<Soubor: ATT00019.txt; charset = windows-1250>> Pdox tabulky
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 25.5.2000 06:36:54
Skoro vubec, pokud znas univerzalni heslo do Paradoxu. A ono funguje.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: mattes(zv)VOLNY.CZ [SMTP:mattes(zv)volny(tec)cz]
> Odesl�no: 24. kv�tna 2000 18:20
> Komu: Delphi_konf
> P�edm�t: Pdox tabulky
>
> Caute,
> nevite nekdo jak je to se strukturou DB souboru a heslem v Pdox tabulkach. Potrebuju pro
> firmu zjistit jak moc, nebo malo jsou data ulozena v Paradoxu
> zabezpecena.
> Dik
> <<Soubor: ATT00006.html>> OT: FTP via e-mail
[*] Karel Klime� <kchodl(zv)email(tec)cz> - 25.5.2000 06:38:54
Jeste bych chtel neco dodat. Lze taky uzit tyto FTP -> e-mail servery obracene.
Tedy abych mohl soubor zapsat pomoci e-mailu na FTP server?
Progr-Amather -Kchodl-(r) 1989-2000
> Ahoj,
> predem se omlouvam za OFF TOPIC, ale uz si nemuzu pomoct.
> K pristupu na INTERNET uziva nase firma PROXY SERVER, ktery ma
> blokovano FTP
> :( a ja potrebuju nekdy stahnout nejake soubory, proto shanim nejake
> linky
> na e-mail servery, ktere mne sobory stahnou a a poslu do posty jako
> prilohu.
>
> Dik
>
> Progr-Amather -Kchodl-(r) 1989-2000
Msoft Help Workshop
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 25.5.2000 06:44:01
RTF v MS Help WorkShop je tusim kompatidebilni s verzi RTF, do ktere uklada
treba MS Word z MS Office 95. U MS Office 97 je jina struktura RTF a MS
HelpWorkShop si s ni neumi poradit. Takze problem by mohl byt i tady.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================> Od: Petr Pa��enko [SMTP:petrpas(zv)volny(tec)cz]
> Odesl�no: 24. kv�tna 2000 20:32
> Zdravim,
> Omlouvam se za mirny OT.
> Jiz velmi dlouho vedu zcela neuspesne tazeni proti vyse zminovanemu
generatoru helpu. Nejsem schopen pochopit predevsim strukturu RTF souboru
pridruzenemu k samotnemu help-projektu. Byl bych velice vdecen za nejakou
radu ci spise odkaz na pokudmozno ceskou stranku, knihu ci verejny priklad
uziti vyse zminovaneho.
> Eventuelne bych ocenil i odkaz na jiny volny tvurce helpu.
>
> Petr Pa��enko ml.
> W95, D3
> <<Soubor: ATT00011.html>> delphi a tisk grafiky
[*] petr.palicka(zv)atlas(tec)cz - 25.5.2000 07:12:47
ahoj
v tvem kodu jsem nikde nevidel, nastaveni mapovaciho modu.
zkus si ho nastavit, potom tisknes v danych jednotkach (palce/centimetry), dle nastaveneho modu:
const
MapovaciMod: Integer = mm_LoMetric;
{velikost jednoho bodu v jednotlivych modech:
MapovaciMod:=mm_LoEnglish; // 1/100 inch
MapovaciMod:=mm_HiEnglish; // 1/1000 inch
MapovaciMod:=mm_LoMetric; // 1/100 mm
MapovaciMod:=mm_HiMetric; // 1/1000 mm
}
nastaveni modu:
SetMapMode(Printer.Canvas.Handle, MapovaciMod);>Dobry den, po tisku grafiky podle knizky Mistrovstvi v Delphi 4 od Toma
>Swana jsem pouzil priklad ke knize dodavany. A na laserovych tiskarnach se
>mi grafika tiskne ve velikosti v ktere potrebuji, ale na inkoustovych
>tiskarnach velikost grafiky zalezi na nastaveni kvality tisku. Cim je mensi
>nastavena kvalita
>tim je obrazek mensi a cim vetsi je kvalita tim vetsi. Ja bohuzel potrebuji
>tisknout karticky ktere maji predepsanou velikost.....
>
>k tisku pristupuji takto:
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~fontstyle v INI
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 25.5.2000 07:25:05
Ahoj,
zkus se podivat na www.torry.ru, tam je nekolik komponent pro uschovavani
propety fontu a prohlednout jejich zdrojaky, jak to maji udelane.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Daniel Krej�� [SMTP:fredycrueger(zv)volny(tec)cz]
> Odesl�no: 24. V 2000 16:28
> Komu: delphi
> P�edm�t: fontstyle v INI
>
> Jaky typ je font.style? D3 mi ho dovoli do Ini souboru ulozit jako string,
> ale nacist uz ne
>
> uses ......., IniFiles;
>
> var
> ini:TInifile;
>
> procedure TForm1.ButtonClick(Sender: TObject);
> begin
> Ini.WriteString('General','Font1Style',Label1.Font.Style);
> { Toto kompilator nebere jako chybu }
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Ini:=TIniFile.Create('Program.ini');
> Label1.Font.Style:=Ini.ReadString('General','Font1Style','System');
> { Toto uz se mu nelibi, a hlasi: Incompatible types:
> 'TFontStyle'
> and 'String' }
> { Chapu co ti chce rict, ale nevim jak jinak to udelat }
> end;
>
> PLEASE, HELP ME !!!!!!!!!!!!
>
>
> Pdox tabulky
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 25.5.2000 07:31:50
> nevite nekdo jak je to se strukturou DB souboru a heslem v Pdox
> tabulkach. Potrebuju pro firmu zjistit jak moc, nebo malo jsou data
> ulozena v Paradoxu zabezpecena.
Ahoj,
kdyz se podivas do archivu, najdes urcite bohate informace k
tomuto tematu. Shrnout to jde asi takto: o bezpecnosti se neda
prakticky vubec mluvit. Ac jsem to sam nezkousel, existuji pry
univerzalne platna hesla apod., takze cela ochrana muze odradit
pouze "bezne laicke" uzivatele.
David
delphi a tisk grafiky
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 25.5.2000 07:52:36
> Problem bude v pouziti promenne typu integer a celociselne deleni pro
ScaleX
> a ScaleY.
> Lepsi bude pouzit realne cislo a na integer prevest az po vynasobeni
> souradnicemi.
>
> Vaclav Krmela
>
Myslim, ze to nebude jediny problem. Ja misto integer pouzivan real a
vysledek je stejny - male obrazky. Taky jsem to zkousel primo procedurou
draw a stale jsem na tom byl stejne. Tak jsem dal StretchDraw, kde jsem
zadal parametry tak, aby tam byl obrazek ve sve puvodni velikosti a zase.
Nektere obrazky to navic nevitisklo vubec. Tohoto vysledku jsem dosahl na
laserove a inkoustove tiskarne. Na jehlickove se obrazky tiskly spravne. V
cem to tedy vezi?
MIKMIK company
Petr Voborn�k - P�tr
vobornik(zv)ssakhk(tec)cz
ICQ: #23132120
www.ssakhk(tec)cz/home/vobornik/Win32 API function failed
[*] Petr Vale� - 25.5.2000 07:54:56
Ahoj,
nevite prosim nahodou nekdo z jake duvodu vznika chyba "Win32 API function failed". V projektu mam relativne dost pouzitych stringgridu a bylo mi receno, ze by to mohlo byt timhle. Proto bych se chtel zeptat zda-li s timto nemate nekdo podobne zkusenosti ?
Diik.
PETR
Spusteni aplikace
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 25.5.2000 08:00:21
Cauec,
> > HKEY_LM\Software\Microsoft\Windows\...
Tak pod NT/W2K hledej HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\....
> > ...\CurrentVersion\RunServices
> >
>
>
> Ale plati to aj pri Windows NT alebo 2000 ? Ja som tam tu cestu nenasiel/
> :(((
Bye Ludan
Lotus, lotus
[*] pcb(zv)atlas(tec)cz - 25.5.2000 08:04:16
Haj hou!
On 24 May 2000, at 18:56, mattes(zv)VOLNY.CZ wrote:
> Ahoj,
> potreboval bych trosku pichnout s pristupem z Delfina na Lotus
Notes.
> Mam dotazy hnedle dva : 1. Jak poslat pres Lotus postu z Delphi
mail
> 2. Jak pristupovat z delphi k databazim Lotus
Na http://delphree.clexpert.com je odkaz na projekt N/D library,
coz je presne to, co hledas. Je to zdarma a se zdroji.
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.biHelp
[*] Mari�n Goryl <goryl(zv)insdata.sk> - 25.5.2000 08:21:56
Jednoducho, funguje to standartne, vo vlastnosti komponenty HelpContext
zadas "cislo topicu", z helpu, ktory si vytvoris pomocou nejakeho nastroja
na vytvaranie helpov. Potom po kliknuti na otaznik a nasledne na danu
komponentu sa zobrazi obsah "topicu" v "hint okne"
>Zajimalo by me, jak se pouziva biHelp z mnoziny BorderIcons formulare
>(otazn�k v titulku okna). V
>napovede jsem to nenasel (nebo neumim hledat). Pokud by se n�komu cht�lo,
>mohl by mi napsat i kousek kodu.API32 funkce pro vytvareni souboru s unique jmenem
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 25.5.2000 08:34:45
Ahoj,
pozri sa na funkcie GetTempFileName a GetTempPath do Win32 API Help.
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Petr Fejfar <Petr.Fejfar(zv)callnet(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, May 25, 2000 12:02 AM
Subject: OT: API32 funkce pro vytvareni souboru s unique jmenem
> Hi all,
>
> nejak nemuzu v MSDN najit funkci, ktera by mi v zadanem adresari vytvorila
soubor s unikatnim jmenem, neco jako byvala pod DOSem funkce 5A - Create
temporary file.
>
> Neporadil by mi nekdo?
>
> Thanx pf, Petr.Fejfar(zv)callnet(tec)cz
>Pdox tabulky
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 25.5.2000 08:12:40
> From: "mattes(zv)VOLNY.CZ" <mattes(zv)volny(tec)cz>
> > nevite nekdo jak je to se strukturou DB souboru a heslem v Pdox tabulkach. Potrebuju
> > pro firmu zjistit jak moc, nebo malo jsou data ulozena v Paradoxu zabezpecena.
>
> Ahoj,
>
> data v ni nejsou zabezpecena nijak.
>
> Petr Vones, amatersky programator
>
>
>
No, data v PDOX tabulkach se daji sice zaheslovat, ale na Siti se
daji sehnat programky, ktere umi vygenerovat heslo (byva jine ney
autorovo), kterym se k datum dostane.
Podobne jsou tusim i programky, ktere vrati strukturu.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Pdox tabulky
[*] delphi(zv)zas-me(tec)cz - 25.5.2000 9:29:40
>> nevite nekdo jak je to se strukturou DB souboru a heslem v Pdox
>>tabulkach. Potrebuju pro firmu zjistit jak moc, nebo malo jsou data
>>ulozena v Paradoxu zabezpecena.
>Ahoj,
>
>data v ni nejsou zabezpecena nijak.
>
>Petr Vones, amatersky programator
Kdyz pouziju Master Password, tak je prece obsah souboru nejakym zpusobem
zasifrovany, ne? Da se to opravdu nejak snadno obejit a k datum se dostat?
Karel Rys
fontstyle v INI
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 25.5.2000 09:37:35
TFontStyle je mnozina, viz:
TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
TFontStyles = set of TFontStyle;
S mnozinami samozrejme nelze zachazet jako se stringy, ale zrovna nedavno
vysel na Delphi Direct zajimavy clanek Set to string and back, ve kterem je
ukazana moznost, jak prevadet snadno retezce na vyctove typy a mnoziny. Je
to na
http://www.delphizine.com/features/2000/04/di200004rl_f/di200004rl_f.asp
Tomas Grepl
K.A.P. - ekonomicke informacni systemy
>Jaky typ je font.style? D3 mi ho dovoli do Ini souboru ulozit jako string,
>ale nacist uz ne
>
>uses ......., IniFiles;
>
>var
> ini:TInifile;
>
>procedure TForm1.ButtonClick(Sender: TObject);
>begin
> Ini.WriteString('General','Font1Style',Label1.Font.Style);
> { Toto kompilator nebere jako chybu }
>end;
>
>procedure TForm1.FormCreate(Sender: TObject);
>begin
> Ini:=TIniFile.Create('Program.ini');
> Label1.Font.Style:=Ini.ReadString('General','Font1Style','System');
> { Toto uz se mu nelibi, a hlasi: Incompatible types:
'TFontStyle'
>and 'String' }
> { Chapu co ti chce rict, ale nevim jak jinak to udelat }
>end;
OT: ActiveX & JScript
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 25.5.2000 09:41:59
Obavam se, ze prave z bezpecnostnich duvodu v ASP
(predpokladam, ze tam to ma chodit, nebo ne?)
NENI pristup do registry (nastesti) :-(
### bigzero(zv)post(tec)cz napsal dne 24 May 00, v 10:18 :
> Pokousim se sepsat konfiguracni utilitu ve forme HTML&JScript stranky (v
> zasade jde jen o kopirovani souboru).
>
> Pro praci se soubory pouzivam ActiveX
> \'Scripting.FileSystemObject\', bohuzel nemuzu prijit jak se jmenuje
> ActiveX objekt pro pristup do registry (obdoba WSHShell).
>
> Diky za jakoukoliv radu
>
> BigZero
>
> Obsahla databaze firem?
> *** http://NAJDI.TO
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail