Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
velikost Taskbaru
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 4.4.2000 20:31:50
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
p�vodni ot�zka:
> Nevite kde by mohly byt zapsany rozmery ( vyska, resp. s�rka ) a umisteni TaskBaru. Nebo jestli na to existuje v D3 > nejaka procedura.
od: �ampulka Ji��
> Taskbar je wokno jako kazdy jiny takze musis najit jeho handle a pak pres nakou API fci zjistis to co potrebujes...
To je sice hezke, ale ja nejsem jeste tak zbehly pres ty handly a anglicky nevladnu natolik abych to nasel v Helpu, tak kdyby se ti chtelo mohl bys mi napsat potrebny kod. D�ky.StringGrid
[*] Peter Masek <peter(zv)volny(tec)cz> - 7.4.2000 20:49:07
----- Original Message -----
From: Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, May 18, 2000 11:21 PM
Subject: Re: StringGrid
> > Hi,
> > mam jeste jeden dotaz, da se nak v StringGridu vomezit pocet znaku v
> jednom sloupci stejne jako v Editu. Neco jako Edit1.MaxLength := 10; pro
> jeden sloupec? A nebo jestli se da sehnat naka komponen�ta, ktera to umi.
> >
> > Diky Petr Masek
>
> Tak to budes muset obstarat par udalosti,
> asi takto ( pro maximalni delku = 10) :
> ale samozrejme jeste par dalsich
> napr: Copy & Paste by to nesezralo
>
> ***********************************************************
> procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
> begin
> with Stringgrid1 do
> if EditorMode then
> if (length(Cells[Col,Row])>=10) and (key>#32) then key:=#0;
> end;
> ***********************************************************
>
> a nebo pri GoEditing=False bys mohl pri stisku entru nebo F2 zobrazit
TEdit
> presne na miste
> aktualniho policka (kde by delka byla omezena) a pak po skonceni editace
bys
> ten Edit schoval
> (visible=false) a predal string tomu stringgridu.
>
> Marify
> xskriva1(zv)fi.muni(tec)cz
> http://www.fi.muni(tec)cz/~xskriva1
>
>
>
Moc d�k, myslim, ze to s tim Editem neni spatnej napad.komunikace s com portem
[*] Peter Masek <peter(zv)volny(tec)cz> - 7.4.2000 21:25:39
> Ahoj vsem,
> jsem zacatecnik v D3 a potrebuji komunikovat se modemem na portu Com1. Na
> doporuceni jsem si stahnul komponentu TComPort v2.1. Zkousel jsem s ni
> pracovat, ale nikam jsem se nedostal. Me potreby jsou :
>
> potrebuji na port poslat nejaky AT prikaz a precist z portu odpoved.
>
> Bohuzel nevim co vse pro to potrebuji v D3 a dane komponente provest. Asi
u
> mne nebude postacovat nejake nakopnuti ci pouhe udeleni smeru - potreboval
> bych asi v prubehu vice rad. Je nekdo kdo by se mne na chvili ujal?
>
> kejchal(zv)volny(tec)cz
>
> Diky vsem....
>
> Kejchal
Zdravim,
nemoh bys mi prosim napsat tu adresu kdes tu komponentu stahnul. Neco
podobnyho bych potreboval.
Diky moc.Tisk STringGridu
[*] Peter Masek <peter(zv)volny(tec)cz> - 9.4.2000 18:30:01
Kdy� u� se tu mluv� o StringGridu, tak bych se tak� r�d zeptal, jak ho lze vytisknout na tisk�rn�. Mysl�m i s r�me�ku, n�co jako tabulku. D�l�m program, ve kter�m tisknu formul��, kde maj� b�t tabulky, ale stiskem zat�m nem�m zku�enosti. Zat�m um�m tisknout jen hol� text. Neporadil byste mi n�kdo?
D�ky Petr.ScreenSaver
[*] Peter Masek <peter(zv)volny(tec)cz> - 9.4.2000 18:59:22
M�m je�t� jeden dotaz. Nev�te n�kdo jak se d� v Delphi vytvo�it �et�i� pro Win9x.
D�ky Petr.set/get]cursorpos
[*] Peter Masek <peter(zv)volny(tec)cz> - 10.4.2000 14:02:53
> 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???
Misto gx a gy pouzij tps.x a tps.y takto:
SetCursorPos(tps.x, tps.y);
Pocet kopii
[*] Peter Masek <peter(zv)volny(tec)cz> - 11.4.2000 12:57:26
Ahoj,
m�m Delphi 3, a kdy� pou�iji komponentu PrintDialog, tak nev�m jak zad�m kolik kopi� se m� vytisknout. Kdy� to zad�m do v Object inspectoru do property Copies, tak kdy� program zkompiluji, se po otev�en� PrintDialogu objev� v�dy po�et kopi� 1, i kdy� v t� vlastnosti Copies m�m jin� ��slo. Nev�te ��m to je a zda to v�bec spolu souvis�? A pokud to spolu nesouvis�, tak jak to m�m zadat.
D�ky.pristup na Access pres ODBC
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.4.2000 17:58:48
ahoj,
U TDatabese (nebo co to pouzivas) nastavit
LoginPrompt:=False
M.Jirman
From: Petr Jarkovsky <petr.jarkovsky(zv)spsselib.hiedu(tec)cz>> Zdravim
> Pristupuju k MDB pres ODBC.
> Pri zavolani prvniho SQL prikazu (pouzivam jenom SQL) me program
> vyhodi okno pro prihlaseni (jmeno, heslo). Po odklepnuti vse bezi.
> Zadne heslo samozrejme nastavene u databaze ani v nastaveni ODBC
> nemam. Muzete mi prosim poradit, jak se zbavit toho prihlasovaciho
> okna?
> diky
Titulek okna
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 19.4.2000 18:12:48
ahoj,
muzes taky vypnout stavajici titulek a udelat si vlastni jako
to ma vetsina PC her (kdyz bys nakonec chtel zmenit vic nez jen font)
M.Jirman
From: mattes(zv)VOLNY.CZ <mattes(zv)volny(tec)cz>> Zdravim vsechny,
> nevite jak bych mohl sam zajistit vykreslovani titulku oken? Potrebuji
> pri tom totiz menit jeho font. Porad mam potize pokud je pozadi titulku
> barevny prechod.
> Dik
>
>
> Counter
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 21.4.2000 12:58:15
Co treba v naky literature k javascriptum
M.Jirman
----- Original Message -----
From: Petr Jel�nek Konf
To: Delphi Forum
Sent: Saturday, May 20, 2000 11:28 PM
Subject: Counter
Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj k pocitadlu pristupu (potreboval bych to v JavaScriptu)
Diky
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
Tisk bitmapy na tiskarnu.
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 22.4.2000 18:16:55
ahoj,
problem bude nejspis v presahu bitmapy pres stranku, takze bych ten RECT
taky
zkontroloval s Printer.PageHeight, PageWidth.
M.Jirman
BTW: mam knihu od Texeira, Pacheco --- Delphi - pruvodce vyvojare, a v ni
dobrou
kapitolu na tisk + nekolik prikladu (soft na tisk obalek, apod), tak kdyby
nekdo chtel mam
ji kompletne na svym webu na www.glass(tec)cz/software/tisk
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>> 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.
>jak spravne spustit program ?
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 23.4.2000 16:11:05
ahoj,
pro jednoduche spusteni postaci prostudovat WinExec, ShellExecute nebo
CreateProcess
From: Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz>> Zdravim ...
> Jak spravne spustit z programu v Delphi jiny program ? Mam na mysli to,
> ze budu mit treba v listboxu vypis adresare a kdyz se klepne na fajl, tak
se
> spusti.
> Napad me pouziti fce ShellExecute, al nevim, jestli je to spravny reseni.
>
> S pozdravem Robert Lufinka
>
>Radek v RichEditu
[*] Ing. Ronald Greissler <ineq-soft(zv)ova.eridan(tec)cz> - 26.4.2000 09:32:47
nap��klad
procedure TfrmTextView.RichEdit1Change(Sender: TObject);
var LLine, // sloupec
LRow : integer; // ��dek
CharRange: TCharRange;
begin
inherited;
SendMessage(RichEdit1.Handle, EM_EXGETSEL, 0, LongInt((zv)CharRange));
LRow := CharRange.cpMax;
LLine := SendMessage(RichEdit1.Handle, EM_EXLINEFROMCHAR, 0, LRow);
LRow := LRow - SendMessage(RichEdit1.Handle, EM_LINEINDEX, -1, 0);
sbStatus.Panels[0].Text := Format('%d/%d ',[LRow+1,LLine+1]);
end;
pozn�mka: ��slov�n� za�ina od 0.
PaGe
-----P�vodn� zpr�va-----
Od: sup(zv)svitap(tec)cz [SMTP:sup(zv)svitap(tec)cz]
Odesl�no: 26. dubna 2000 7:25
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Radek v RichEditu
Dobry den, mam malinkaty problemecek. Jak zjistim cislo radku v richeditu,
na kterym je kurzor nebo na kterem jsem kliknul mysi? Event Mousedown mi
zjisti pouze souradnice v pixelech... V Helpu jsem nic nenasel....
D3P, D5E, Win98
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
select z roznych tabuliek
[*] Ing. Ronald Greissler <ineq-soft(zv)ova.eridan(tec)cz> - 27.4.2000 09:50:42
declare (zv)aa varchar(255)
set (zv)aa = 'select * from TAB1'
--select * from (zv)aa
Execute((zv)aa)
-----P�vodn� zpr�va-----
Od: Robert Zak [SMTP:nrsys(zv)psn.sk]
Odesl�no: 26. dubna 2000 19:56
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: select z roznych tabuliek
pouzivam MSSQL7 a potreboval by som v skripte napisat toto:
----------------------------------------------------------------------------
------------------
declare (zv)aa char(4)
set (zv)aa = 'TAB1'
select * from (zv)aa
----------------------------------------------------------------------------
-------------------
Da sa ten select to vobec nejak takto zapisat?
Dakujem
Robo
Najrychlejsie Synchronizovanie v Accesse pomocou A
[*] Erik Salaj <winsoft(zv)napri.sk> - 1.5.2000 13:45:20
uz niekolko tyzdnou sa snazim co najlepsie vyriesit problem synchronizacie
niekolkych desiatok roznych tabuliek v ACCESSovskej databaze pomocou UPDATE v ADO.
Moje sucastne riesenie na jednej strane prechadza postupne tabulku a zistuje pomocou
funkcie SEEK, ci sa ma veta Insernut, alebo Updatnut, po tomto zisteni prekopirujem
vsetky polozky. Toto riesenie funguje, ale je dost pomale.
Access priamo podporuje replikaciu/synchronizaciu.
Erik
DATA Z KONFERENCE: DUBEN 2000
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.5.2000 14:40:07
Preji vsem pekneho dne,
jako obvykle zacatkem noveho mesice, naleznete
na adrese
http://atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonferen
ce.shtml
posledni data z teto konference pro programek
KonfView. Pres cetne dotazy pripominam, ze pouze
dodavam data, autorem programu je Petr Vaclavek
(bla(zv)atrey.karlin.mff.cuni(tec)cz).
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Sirka fontu a kurziva
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.5.2000 15:58:35
Preji vsem pekneho dne,
mam komponentu, jejiz velikost odvozuji od sirky fontu, kterou
zjistuji pomoci Canvas.TextWidth
Co me vsak prekvapilo, ze tato funkce vrati stejne cislo jak pro
normalni pismo (Regular) tak pro kurzivu [italic]. Canvasu je
spravne prirazen font a je spravne nastaven.
Kde je tedy problem?
Diky za pripadne odpovedi
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Streamy
[*] Surfman <surfman(zv)volny(tec)cz> - 1.5.2000 19:27:30
Ahoj vsichni,
nevite nekdo, kde delam chybu kdyz toto nefunguje - po nacteni dostanu
nesmysly.
var
Stream: TFileStream;
LenText: integer;
Text: string;
begin
if SaveDialog.Execute then
begin
Stream := TFileStream.Create(SaveDialog.FileName, fmCreate);
with Stream do
begin
Text := Edit1.Text;
LenText := Length(Text);
WriteBuffer(LenText, SizeOf(LenText));
WriteBuffer(Text, LenText + 1);
end;
Stream.Free;
end;
end;
zatimco kdyz do Text dam nejaky retezec primo v kodu (Text := 'Tento text'),
tak je vsechno OK?
Delphi 4
Diky
Pavel
Streamy
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 1.5.2000 19:58:56
> var
> Stream: TFileStream;
> LenText: integer;
> Text: string;
> begin
> if SaveDialog.Execute then
> begin
> Stream := TFileStream.Create(SaveDialog.FileName, fmCreate);
> with Stream do
> begin
> Text := Edit1.Text;
> LenText := Length(Text);
> WriteBuffer(LenText, SizeOf(LenText));
> WriteBuffer(Text, LenText + 1);
****A nemelo by byt spise: WriteBuffer(Text [1], LenText); ??
> end;
> Stream.Free;
> end;
> end;
Slavek
> Pavel
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
StringGrid
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 01.5.2000 20:38:31
Omlouvam, se... uz sem to nasel... Priste se lip podivam, nez sem
budu
neco posilat...
Martin Pesava wrote:
>
> Ahoj lidi, nebite o nejaky komponente, ktera vypada jako
StringGrid, ale
> oznacen je vzdy cely radek a data se tahaji z Arraye nebo z
PListu.
> Dik...
> --
> Martin Pe�ava
>
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Streamy
[*] Surfman <surfman(zv)volny(tec)cz> - 1.5.2000 21:35:14
> ****A nemelo by byt spise: WriteBuffer(Text [1], LenText); ??
A poradis mi, jak to potom precist?
Pavel
Kombinace Delphi 5 a W2k
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 1.5.2000 22:05:48
Zdravim vsechny,
zkousim win2k a aplikace napsana v Delphi 5 za pomoci ADOExpress mi do
databaze nahodne zkracuje polo�ky typu varchar. Mam SQL 7 SP2, Delphi 5
Upd.Pack.
Nechapu co se deje, protoze ta sama kompilace mi na W98 slape OK. Jedna se
konkretne o pouziti TADOCommand, ktery obsahuje prikaz INSERT, a pri tom
insertu dojde zcela nahodne (cca 1x z 10) ke zkraceni retezcu vlozenych do
polo�ky varchar.
Chci se zeptat, jestli se s tim nekdo nesetkal, popr. kde by mohl byt
teoreticky zakopany pes.
diky
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
opakovane vytaceni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:51:58
From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
> netusi nekdo, jak zapnout opakovane vytaceni cisla? U standardnich tel.
> pripojeni ve Win98.. napr. k ISP
Ahoj,
teoreticky by to mohlo jit pomoci funkce InternetSetOption (WinInet) a flagu
INTERNET_OPTION_CONNECT_RETRIES. Nicmene se mi to nepovedlo primet k funkci.
Petr Vones, amatersky programator
TTimer
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:52:49
From: Martin Pesava <jimx(zv)volny(tec)cz>
> Nevite negdo, jak znovu-nastartovat jiz bezici Timer aniz bych ho musel
> rusit a znovu spoustet??? Predem diky.
Ahoj,
Pokud vim tak neco takoveho nejde. V pripade delsich casu si ale muzes
stanovit nejakou minimalni presnost, na tu nastavit Timer a pomoci sve
vlastni promenne pocitat z techto casovych useku vysledny cas. Restart
casovace se pak deje pomoci te promenne.
Petr Vones, amatersky programator
TRadioGroup.OnDblClick ??
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:52:25
From: Roland Turcan (RoTurSoft) <rotursoft(zv)nextra.sk>
> Ako rozsirim RadioGroup o udalost DBLCLICK ?
Ahoj,
Da se to udelat takhle, ale neni to zrovna nejhezci:
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
procedure FormCreate(Sender: TObject);
private
procedure RadioGroup1DblClick(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
type
TDirtyCustomRadioGroup = class(TCustomGroupBox)
private
FButtons: TList;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
with TDirtyCustomRadioGroup(RadioGroup1).FButtons do
for I := 0 to Count - 1 do
TRadioButton(Items[I]).OnDblClick := RadioGroup1DblClick;
with TGroupBox(RadioGroup1) do
begin
ControlStyle := ControlStyle + [csClickEvents];
OnDblClick := RadioGroup1DblClick;
end;
end;
procedure TForm1.RadioGroup1DblClick(Sender: TObject);
begin
MessageBeep(0);
end;
Petr Vones, amatersky programator
Formular v DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:52:17
From: <martin.falta(zv)obi.de>
> mam formular v DLL knihovne. V zavislosti na parametru ho potrebuji zobrazit
> jako modalni dialog nebo jako MDI child. Jako modalni dialog ho zobrazim bez
> problemu, ale porad se mi nedari ho zobrazit jako MDI child. Nevite nekdo, co s
> tim?
Ahoj,
Pokud prelozis jak aplikaci tak danou DLL s balicky, tak by to melo jit.
Petr Vones, amatersky programator
TImage+
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:52:13
From: Martin Pesava <jimx(zv)volny(tec)cz>
> Potreboval bych u takto vytvoreneho TImagu zobrazit hint. No tak proste
> udelam:
> img.hint:='text';
> img.showhint:=true;
Ahoj,
zvlastni, v D5 me to u takto vytvoreneho TImage funguje:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TImage.Create(Self) do
begin
Parent := Self;
SetBounds(10, 10, 100, 100);
Hint := 'Hint';
ShowHint := True;
end;
end;
Petr Vones, amatersky programator
StringGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:52:37
From: Martin Pesava <jimx(zv)volny(tec)cz>
> Ahoj lidi, nebite o nejaky komponente, ktera vypada jako StringGrid, ale
> oznacen je vzdy cely radek a data se tahaji z Arraye nebo z PListu.
Ahoj,
Muzes pouzit TListView ve virtualnim rezimu (OwnerData = True), pak si
data ukladas sam a listview si o ne rika v udalosti OnData. Oznaceni
radku dosahnes nastavenim RowSelect na True. Nebo take TDrawGrid, tam
pak staci nastavit Options.goRowSelect.
Petr Vones, amatersky programator
Resume
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:52:06
From: Delphi Konfera <delphi(zv)globnet.sk>
> Neviete mi niekto poradit ako funguje resume pri downloade?
> Mam na mysli nieco ako GetRigth, alebo Godzila a podobne.
> Akym sposobom sa to da urobit aby to klient podporoval.
Ahoj,
Pokud vim, tak toto musi podporovat predevsim server.
Petr Vones, amatersky programator
Program ktory tvori program (2)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:53:34
From: Jirka Majvald <majvald(zv)email(tec)cz>
> Pokud jde o prenos dat mezi dvema exe tak proc nepouzit DDE a nebo sdilenou
> pamet
Ahoj,
DDE bych rozhodne vynechal. Jedna se o pomerne zastaralou technologii, ktera
navic nikdy nebyla uplne bez problemu.
Petr Vones, amatersky programator
Bitmapy sdilejici stejne data, jak?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:53:53
From: Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz>
> v Bitmap1 je nacteny obrazek
> a ja ho chci priradit do Image1.Picture.Bitmap
> !!! Ale ne aby se to tam nakopirovalo
> (jako to dela pouziti metody Assign, nebo prirazeni
> Image1.Picture.Bitmap:=Bitmap1 )
> Ale aby se porad jednalo o stejne data
Ahoj,
Pouzitim Assign se to presne tak chova, data jsou pak sdilena. Dalsi moznost
mas nepouzivat TImage, ale TPaintBox + TBitmap. Data mas ulozena v jedne
bitmape ty pak vykreslujes v PaintBoxu jak potebujes.
Petr Vones, amatersky programator
Problemy s typovymi soubory
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:53:11
>On 28 Apr 00, at 8:11, Pavel Hampl wrote:
>
> > na vytvoreni kratkych stringu staci prece direktiva {$H-},
> > pak string=shortstring
Ahoj,
Toto je velmi nestastne reseni. Tim totiz nastavis, ze vsechny stringy
budou jako kratke, coz neni prilis vhodne. V pripade ze opravdu k necemu
potrebujes ShortString jej tak muzes explicitne deklarovat.
Petr Vones, amatersky programator
instalace/verze OE?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:53:59
From: Miloslav Sk�cel <kastner(zv)infos(tec)cz>
> jak lze 'ciste' poznat, ze je na pocitaci (a kde) nainstalovan Outlook
> Express?
Ahoj,
Mohlo by to jit prectenim teto polozky z registru.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\InstallRoot
Petr Vones, amatersky programator
Sdileni slozky po windowsovske siti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:53:45
From: bures <bures(zv)ssakhk(tec)cz>
> 1) Exituje nejaka api funkce pro nazdileni slozky po siti pod heslem, pokud
> ano tak ktera....
Ahoj,
Pomoci LanManager funkci. Pozor vsak na jednu vec, pro Win9x a NT jsou tyto
funkce zcela rozdilne. Konverzi hlavicek a priklad (ten je zatim jen pro
Win9x, velmi podobny Sledovani site z Win95) najdes tady:
http://delphi-jedi.org/Jedi:APILIBRARY:389617196
> 2) Jak se z sveho programu na tu slozku napojit, aniz bych ji musel
> pripojovat jako novou jednotku.
Pomoci funkce WNetAddConnection2, viz priklad:
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=May&den=26&first=76&soubor=dlfaaadf.htm
Petr Vones, amatersky programator
FileList
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:53:25
From: Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz>
> Zase mam problem udelal jsem si vlastni komponentu FileListBox, ktera zobrazuje
> podobne jako Windows Commander. Problem zpociva v tom ze informace o souboru
> (indexikony, velikost, datum, etc.) ukladam jako objekty k jednotlivym Lines.
> Jenze kdyz dam sortovani (pouzivam qsort) trva to strasne dlouho. Rekl bych ze
> je to zpusobeny tema objektama. Nevi nekdo jak to udelat jinak (rychleji).
Ahoj,
Ze by to bylo zpusobeno objekty se mi nechce prilis verit. Predpokladam,
ze mas objekty ulozene v tride TObjectList (ci TList pro starsi Delphi).
Trideni takoveho seznamu pomoci metody Sort a prislusne komparacni funkce
je vcelku rychle.
Petr Vones, amatersky programator
Designer Hinty + Frame
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:54:02
From: Pavol Kaka�ka <paka(zv)aktis(tec)cz>
> vsimol som si, ze ked mam zapnute "Show Designer Hints" tak na normalnych
> formoch mi nad komponentami Delphi ukazuje hinty uplne v pohode, ale nad
> frame-ami ;-) NIE. Ze by dalsia "vychytavka" z dielne Borlandov???
Ahoj,
Me to funguje dobre, mas update pack 1 ?
Petr Vones, amatersky programator
nemuzu zobrazit TGauge do poredi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:54:53
From: Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz>
> mam Statusbar rozdeleny na 2 panely. V prvnim se zobrauje nejaky text a v
> druhem chci mit TGauge, ktera zobrazuje stav operace. V editoru formulare
> mi ale nejde zobrazit TGauge do popredi. Porad je schovana pod tim
> StatusBarem. Vi nekdo jak na to? Nebo ma nekdo primo nejakou koponentu
> podobnou Statusbaru, ktera uz ma v sobe to TGauge??
Ahoj,
Za prve TStatusBar umoznuje vlastni vykreslovani jednotlivych panelu pomoci
ktereho by jsi mohl gauge simulovat (TStatusPanel.Style = psOwnerDraw). Dalsi
moznost je si odvodit novy statusbar a umoznit do neho vkladat komponenty,
staci prepsat konstruktor:
constructor TXYStatusBar.Create(AOwner: TComponent);
begin
inherited;
ControlStyle := ControlStyle + [csAcceptsControls];
end;
Potom, misto TGauge muzes pouzit i TProgressBar.
Petr Vones, amatersky programator
Konzolova aplikace a nevizualni komponenty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:54:18
From: bures <bures(zv)ssakhk(tec)cz>
> Ahoj mam jeden dotaz do konfermce, je mozne pouzit v konzolove aplikaci
> nevizualni komponentu ???
Ahoj,
Je. Muzes si to usnadnit tak, ze do projektu vlozis datovy modul a na
nej umistis nevizualni komponetu.
Petr Vones, amatersky programator
Sirka fontu a kurziva
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:54:40
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> mam komponentu, jejiz velikost odvozuji od sirky fontu, kterou
> zjistuji pomoci Canvas.TextWidth
>
> Co me vsak prekvapilo, ze tato funkce vrati stejne cislo jak pro
> normalni pismo (Regular) tak pro kurzivu [italic]. Canvasu je
> spravne prirazen font a je spravne nastaven.
Ahoj,
a jaky mas nastaven font ?
Petr Vones, amatersky programator
LABELy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:54:36
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> Drobna ucebnicova poznamka: pokud pouzivas nejakou stejnou
> hodnotu (vracenou funkci nebo vlastnosti) vicekrat nez jednou,
> zvaz, zda nebude vyhodnejsi pouzit pomocnou promennou. Pristup
> k promenne je vzdy rychlejsi nez volani funkce nebo property.
Zcela spravne. Jedina vyjimka jsou property ktere pracuji primo s hodnotou
promenne objektu, pak je to stejne jako pracovat s promennou.
Petr Vones, amatersky programator
CustomOpenDialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:54:24
From: Hurricane <hurricane(zv)email(tec)cz>
> Se zajmem sem sledoval diskusi o vylepseni Open a Save Dialogu o ruzne
> buttony, panely a pod. Sam sem si napsal svoje vylepseni ala Wir2000, ale
> narazil sem na problem se zmenou aktualniho adresare otevrenyho dialogu. De
> o to, ze mam na tom dialogu Button, ktery mi spousti prislusnou proceduru
> OnClick. A Prave v teto procedure potrebuju zmenit adresar otevrenyho
> dialogu. Z registru ctu prislusnou cestu (napr.: C:\Windows\Plocha, muze byt
Ahoj,
napriklad takhle:
procedure TXYOpenDialog.SetFolder(const FolderName: String);
var
ParentWnd, LastFocus: HWND;
begin
ParentWnd := GetParent(Handle);
LastFocus := GetFocus;
SendMessage(ParentWnd, CDM_SETCONTROLTEXT, 1152, LPARAM(PChar(FolderName)));
SendMessage(GetDlgItem(ParentWnd, 1), BM_CLICK, 0, 0);
SendMessage(ParentWnd, CDM_SETCONTROLTEXT, 1152, 0);
SetFocus(LastFocus);
end;
Petr Vones, amatersky programator
Nahravani
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:54:08
From: Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz>
> mam takovej problem - nahravam zvuk v ruznych formatech, ktery mam ve Windows
> na instalovany (ADPCM, GSM, a dalsi). Nahraju data, ale nemuzu je prehrat
> protoze nevim jak zjistit hlavicky Wav souboru pro ruzny formaty (pro kazdy
> format jina hlavicka). Nevi nekdo jak ziskat ty hlavicky wav souboru abych je
> mohl zapsat a m ohl prehravat zvuk treba v Media Playeru. Urcite na to bude
> nejaka funkce API (pravdepodobne v msacm32.dll).
Ahoj,
Podivej se na JEDI (http://delphi-jedi.org/Jedi:APILIBRARY:389617196), je tam
nekde konverze ADPCM kde by jsi to mohl najit.
Petr Vones, amatersky programator
Is not --> aint
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:55:02
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> docela pekna myslenka padla na jednom z chatu ohledne Object pascalu.
>
> Question: How about an "is not" operator?
> Answer: It would be nice in principle, but the grammar change necessary to make the
> NOT unary operator left-associative in this one case is horrendous. Perhaps a new
> operator. How about "aint"?
>
> Docela pekna myslenka. :-)
Pekne, i kdyz osobne bych vice uvital operator podobny "?" z C :-)
Petr Vones, amatersky programator
Tlacitka v Taskbare
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:55:10
From: Tomas Skoda <tomas.skoda(zv)jdsoftware.sk>
> vo svojom programe potrebujem, aby kazde okno malo samostatnu ikonku
> (polozku) v taskbare. Podla niekolkych starsich mailov v konferenci som
> pre okno predefinoval metodu "CreateParams" na
>
> procedure TMFEmployeeEditForm.CreateParams(var Params: TCreateParams);
> begin
> inherited CreateParams(Params);
> Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
> end;
>
> Toto okno vytvorim za behu programu a zobrazim ako nemodalne (Show). V taskbare sa
> objavi dalsia polozka - ale neda sa prepnut pomocou taskbaru na hlavne okno
> aplikacie (MainForm).
Ahoj,
Pridej do CreateParams jeste radek:
Params.WndParent := 0;
Petr Vones, amatersky programator
Streamy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.5.2000 22:55:27
From: Surfman <surfman(zv)volny(tec)cz>
> > ****A nemelo by byt spise: WriteBuffer(Text [1], LenText); ??
>
> A poradis mi, jak to potom precist?
procedure TForm1.Button3Click(Sender: TObject);
var
FS: TFileStream;
S: string;
L: Integer;
begin
S := 'Bla bla';
FS := TFileStream.Create('Data.dat', fmCreate);
try
L := Length(S);
FS.WriteBuffer(L, Sizeof(L));
FS.WriteBuffer(Pointer(S)^, L);
finally
FS.Free;
end;
S := '';
L := 0;
FS := TFileStream.Create('Data.dat', fmOpenRead or fmShareDenyWrite);
try
FS.ReadBuffer(L, Sizeof(L));
SetLength(S, L);
FS.ReadBuffer(Pointer(S)^, L);
finally
FS.Free;
end;
ShowMessage(S);
end;
Petr Vones, amatersky programator
FileList
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 2.5.2000 00:20:20
Mam vyskouseny ze je to tema objektama. Kdyz je vypnu jde to asi 10x
rychleji. Ty objekty ukladam normalne do ListBox.Lines coz je TStrings.
Zdravi
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 01, 2000 10:53 PM
Subject: Re: FileList
> From: Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz>
> > Zase mam problem udelal jsem si vlastni komponentu FileListBox, ktera
zobrazuje
> > podobne jako Windows Commander. Problem zpociva v tom ze informace o
souboru
> > (indexikony, velikost, datum, etc.) ukladam jako objekty k jednotlivym
Lines.
> > Jenze kdyz dam sortovani (pouzivam qsort) trva to strasne dlouho. Rekl
bych ze
> > je to zpusobeny tema objektama. Nevi nekdo jak to udelat jinak
(rychleji).
>
> Ahoj,
>
> Ze by to bylo zpusobeno objekty se mi nechce prilis verit. Predpokladam,
> ze mas objekty ulozene v tride TObjectList (ci TList pro starsi Delphi).
> Trideni takoveho seznamu pomoci metody Sort a prislusne komparacni funkce
> je vcelku rychle.
>
> Petr Vones, amatersky programator
>
>
>
>Nahravani
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 2.5.2000 00:21:28
Diky ale to uz jsem vyresil. Daj se ziskat z PWaveFormatEx.WFormatTag.
Zdravi
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 01, 2000 10:54 PM
Subject: Re: Nahravani
> From: Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz>
> > mam takovej problem - nahravam zvuk v ruznych formatech, ktery mam ve
Windows
> > na instalovany (ADPCM, GSM, a dalsi). Nahraju data, ale nemuzu je
prehrat
> > protoze nevim jak zjistit hlavicky Wav souboru pro ruzny formaty (pro
kazdy
> > format jina hlavicka). Nevi nekdo jak ziskat ty hlavicky wav souboru
abych je
> > mohl zapsat a m ohl prehravat zvuk treba v Media Playeru. Urcite na to
bude
> > nejaka funkce API (pravdepodobne v msacm32.dll).
>
> Ahoj,
>
> Podivej se na JEDI (http://delphi-jedi.org/Jedi:APILIBRARY:389617196), je
tam
> nekde konverze ADPCM kde by jsi to mohl najit.
>
> Petr Vones, amatersky programator
>
>
>
>Zotriedenie podla pocitaneho stlpca v IB6
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 2.5.2000 00:42:09
Zdravim.
Potreboval by som zotriedit vysledok podla stlpca narast, ale ako ?
priklad:
select mena, min(kurz), avg(kurz), max(kurz), max(kurz)-min(kurz) as narast
from kurzlist
group by mena
"order by narast" neberie.
Dakujem.
Roland.Sirka fontu a kurziva
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.5.2000 07:21:34
> a jaky mas nastaven font ?
****MS Sans Serif, ale delaji to i ostatni fonty.
Je to D5.1, W2k Proff.
Slavek
> Petr Vones, amatersky programator
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
docking
[*] ing. Ale� Da�a - 2.5.2000 08:20:12
Zdar vseca
potreboval bych poradit jak provest docking formulare na panel. Aplikace by
mela mit vlevo outlook bar a vpravo panel, na ktery se davaji ruzne
formulare.
Ales Dana
Click na StatusBar.
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 2.5.2000 08:26:28
Musis to brat tak, ze onMouseXXX vraci absolutni hodnoty pozice kursoru. Prepoctes to na relativni a
pak si prochazis jednotlive panely StatusBaru a testujes, do ktereho TRect panelu padaji pozice.
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: psojka(zv)els.ln.skoda(tec)cz [SMTP:psojka(zv)els.ln.skoda(tec)cz]
> Odesl�no: 2. kv�tna 2000 9:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Click na StatusBar.
>
>
>
> >> Zdravim.
> >>
> >> Je mozne zistit na ktory panel StatusBaru klikol uzivatel ?
> >>
> >> Dakujem.
> >>
> >> Roland.
> >
> > Sem si 99% jistej, ze to nepude. Vzdyt ani cely statusbar nma udalost
> > oncick, nebo snad jo?
>
> Jde to. Podobny problem jsem jiz resil. Slo nejen o klikani
> ale i zobrazovani Hintu jendotlivych panelu.
>
> Pouzil jsem udalosti OnMouseMove (na zjisteni a uchovavani X,Y pozice
> a prepis obsahu HINT) a misto OnClick ( kupodivu ji ma ;) jsem pouzil
> OnMouseDown (resp. OnMouseUp)
>
> hnd
> Peter
>
> Click na StatusBar.
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 2.5.2000 08:48:43
Ahoj,
TStatusBar ma OnClick. A kdyz nejaka komponenta nema potrebnou udalost, tak
se da nadefinovat. Udalost ve vetsine pripadu je reakce na zpravu windows a
pokud je komponenta odvozena od TControl, dedi i metodu Perform, pomoci
ktere je mozne poslat oknu jakoukoliv zpravu.
Ales
----- Original Message -----
From: Hurricane <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, April 29, 2000 2:46 AM
Subject: Re: Click na StatusBar.> Sem si 99% jistej, ze to nepude. Vzdyt ani cely statusbar nma udalost
> oncick, nebo snad jo?
> ----- Original Message -----
> > Je mozne zistit na ktory panel StatusBaru klikol uzivatel ?
>
>
Click na StatusBar.
[*] psojka(zv)els.ln.skoda(tec)cz - 2.5.2000 08:01:49
>> Zdravim.
>>
>> Je mozne zistit na ktory panel StatusBaru klikol uzivatel ?
>>
>> Dakujem.
>>
>> Roland.
>
> Sem si 99% jistej, ze to nepude. Vzdyt ani cely statusbar nma udalost
> oncick, nebo snad jo?
Jde to. Podobny problem jsem jiz resil. Slo nejen o klikani
ale i zobrazovani Hintu jendotlivych panelu.
Pouzil jsem udalosti OnMouseMove (na zjisteni a uchovavani X,Y pozice
a prepis obsahu HINT) a misto OnClick ( kupodivu ji ma ;) jsem pouzil
OnMouseDown (resp. OnMouseUp)
hnd
Peter
TRadioGroup.OnDblClick ??
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 2.5.2000 09:10:55
Ahoj,
TRadioGroup ma po TControl zdedenou virtualni methodu WndProc, ktera
zpracovava zpravy pro okno. Zkus declarovat novou tridu od TRadioGroup a
tuto metodu prepsat. Zprava je WM_LBUTTONDBLCLK a najdes ji ve win32.hlp
Ales
----- Original Message -----
From: Roland Turcan (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, April 29, 2000 11:54 PM
Subject: TRadioGroup.OnDblClick ??> Zdravim.
>
> Ako rozsirim RadioGroup o udalost DBLCLICK ?
>
> Dakujem.
>
> Roland.
>
Batch
[*] Michal HAMPL <hampl(zv)GJS(tec)cz> - 2.5.2000 10:10:22
Muzes si priinstalovat Windows Scripting a muzes napsat ten davkovy soubor
pomoci VisualScriptu nebo JavaScriptu.
-----Original Message-----
From: Hurricane [mailto:hurricane(zv)email(tec)cz]
Sent: Saturday, April 29, 2000 2:35 AM
To: Delphi Forum
Subject: Re: Batch
To jako davkovy soubor, ale bez konzoloveho okna?? Jedna moznost je
Delphach. Jednoduse das Form1.Visible na False a do udalosti OnCreate si das
spousteni tech programu a na konci to zavres. Druhy zpusob vede pres
Windowsove skripty (W98 a vys). Urcite to tim pude.
----- Original Message -----
> Jak vytvorim davkovy soubor ve W95, potrebuji nekolik *.lnk a *.pif
> najednou.
> Dik M. Vojta
>ADONIS A STRING PARAMETER STORED PROC
[*] Robert Zak <nrsys(zv)psn.sk> - 2.5.2000 10:25:57
Dobry den,
Pouzivam ADONIS, MSSQL7 a D5 prof. Vytvoril som ulozenu proceduru z ktorej
potrebujem viac navratovych parametrov. Pokial mam parametre typu integer,
vratim ich bez problemov. Ako ale vratit PARAMETER TYPU CHAR (5)?
PROCEDURA :
CREATE PROCEDURE VYSTPR
(zv)A int = 5 output,
(zv)b char(5) output
AS
select (zv)A = 3
select (zv)b = 'abcde'
ADOStoredProc1.Params :
0 - output, integer
1 -output, string
Pro ADOStoredProc1.execproc dostanem hlasku:
"Parameter object is improperly defined. Inconsistent or incomplette
information was provided."
Pokial je ten druhy parameter integer, vystup je vporiadku. Problem je teda
asi v nastaveni Params.DataType (v query analyzer to funguje), nech ale
nastavim cokolvek, dostanem chybu.
Ako teda ziskam ten string parameter ako vystup stored procedury?
Dakujem
Robo
Pristup do registru NT
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 2.5.2000 10:38:52
Hezky den vsem,
trochu jsem zaexperimentoval a nejak jsem to po....
Pod Win NT 4 Wks jsem pod administratorskym uctem vytvoril noveho uzivatele. Potud v pohode. V utilitce TweakUI jsem nastavil automaticke prihlaseni do site pod novym jmenem a heslem. No a restartoval. :-(
No a ted jsem onde.
Sice jsem si nasel, ze ony magicke radky se skryvaji v HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon, ale nemuzu ty tri radky odstranit. Jedna se o DefaultUserName, DefaultPassword a AutoAdminLogon.
Muze mi nekdo poradit, jak to i s pomoci Delphi opravit, nebo muzu zazalohovat data a NT preinstalovat ? Na disku je NTFS.
Dekuji za kazdou radu vedouci k cili.
Bye Ludan
program jako service pod w9x
[*] Michal HAMPL <hampl(zv)GJS(tec)cz> - 2.5.2000 11:00:24
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.
Mam takovy maly dotaz.
Potrebuji pod win9x rict programu (je to tcp server) aby bezel i po
odhlaseni ze systemu. Nektere programy tak bezi.
Michal HAMPL
Designer Hinty + Frame
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 2.5.2000 11:49:48
> vsimol som si, ze ked mam zapnute "Show Designer Hints" tak na normalnych
> formoch mi nad komponentami Delphi ukazuje hinty uplne v pohode, ale nad
> frame-ami ;-) NIE. Ze by dalsia "vychytavka" z dielne Borlandov???
...
>Ahoj,
>Me to funguje dobre, mas update pack 1 ?
>Petr Vones, amatersky programator
Cau.
Mam!
Neviem ci som to uviedom presne ale je to na komponentach za designu.
Pavol Kaka�ka
paka(zv)aktis(tec)cz
Automaticka lokalizace
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 2.5.2000 12:08:23
Ahoj Delphici,
mam aplikaci v cestine a chci ji lokalizovat do anglictiny. Vytvoril jsem si
DLL ktera obsahuje vsechny resourcestringy a taky lokalizovane formy. Je-li
prostredi anglicke a rozsireni jmena DLLky je .EN dojde k jejimu
automatickemu nacteni. Ja bych ale chtel, aby se mi tato DLL nacetla
vzdycky pri spusteni aplikace (nezavisle na prostredi) a pokud neni
pritomna, tak aby aplikace fungovala cesky. Poradte jak to zaridit. Jeste
jednu otazecku, souvisi s tim vsim nejak specifikace jazyka ve VersionInfo?
Dik za radu. Jara
svehla(zv)atlas(tec)cz
Priority kontrol
[*] Brabec Tom� <Tomas.Brabec(zv)pvt(tec)cz> - 2.5.2000 12:35:14
Ahoj,
takovej blbej dotaz, na exitu z polozek typu tedit provadime
jednoduche kontroly. Na potvrzeni (post) cele editace provadime vazebni
kontroly mezi polozkami. Pri porizeni jedne z polozek a odchodu mysi na post
click jsme zjistili, ze se nejprve provadeji akce na udalosti post click a
potom teprve se provede akce na udalosti exit z teto polozky. Je toto
standartni chovani, nebo delame neco spatne? Zatim sme si pomohli
prepinacema, ale moc se nam to nelibi. Dosud sme vsechny kontroly delali na
postu, ale nyni by sme potrebovali takoveto rozdeleni Potrebovali bychom,
aby se vzdycky nejdriv udelal onexit z polozky a pak teprve dalsi kontroly.
Moc dik za pripadne rady
Delphi 3.02 CS, SP 4.00, W-NT 4.00
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
CSV soubor
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 2.5.2000 14:00:09
Zdravim,
mam v Excelu vytvoreny soubor, ktery ma tri sloupce. Potrebuji jej zpracovat
radek po radku, tzn. nacist tri pole, zpracovat a presunout se na dalsi
radek. Problem je v tom, ze prvni dve pole jsou typu PChar, takze jsou
roztazena na vice radku, napr:
"pokus popoaspdfaspfodasdf
sdafaksdjfhkajsdfh ka
as df asdfas","dalsi dalsi dalsi
dalsi dalsi","d:\aplikace\test.txt"
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)volny(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Pristup do registru NT
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 2.5.2000 14:08:04
> Sice jsem si nasel, ze ony magicke radky se skryvaji
> v HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon,
> ale nemuzu ty tri radky odstranit. Jedna se o DefaultUserName,
> DefaultPassword a AutoAdminLogon.
Jestli ti jde pouze o to jak vypnout autologon, tak staci pri logovani
podrzet stisknuty shift, vyvolas tim dialog a zalogujes se jako nekdo
kdo ma pravo to vypnout :-)
Daniel
ADONIS A STRING PARAMETER STORED PROC
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 2.5.2000 14:19:55
Ahoj,
Timto zpusobem jsem to nikdy nezkousel, takze nevim v cem je chyba. Ja
osobne pro tento pripad pouzivam komponentu ADOQuery. Do Property SQL vlozim
exec XYStoredProc a zavolam ADOQuery.open.
Ales
----- Original Message -----
From: Robert Zak <nrsys(zv)psn.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 02, 2000 10:25 AM
Subject: ADONIS A STRING PARAMETER STORED PROC
> Dobry den,
>
> Pouzivam ADONIS, MSSQL7 a D5 prof. Vytvoril som ulozenu proceduru z ktorej
> potrebujem viac navratovych parametrov. Pokial mam parametre typu integer,
> vratim ich bez problemov. Ako ale vratit PARAMETER TYPU CHAR (5)?
>
> PROCEDURA :
>
> CREATE PROCEDURE VYSTPR
> (zv)A int = 5 output,
> (zv)b char(5) output
> AS
> select (zv)A = 3
> select (zv)b = 'abcde'
>
> ADOStoredProc1.Params :
> 0 - output, integer
> 1 -output, string
>
> Pro ADOStoredProc1.execproc dostanem hlasku:
> "Parameter object is improperly defined. Inconsistent or incomplette
> information was provided."
>
> Pokial je ten druhy parameter integer, vystup je vporiadku. Problem je
teda
> asi v nastaveni Params.DataType (v query analyzer to funguje), nech ale
> nastavim cokolvek, dostanem chybu.
>
> Ako teda ziskam ten string parameter ako vystup stored procedury?
>
>
Dakujem
>
> Robo
>
Instalace Delphi
[*] Ale� Va���ek�����"q��y�&���w�3 - 2.5.2000 14:21:39
Zdravim,
nevite nekdo, jak mohu co nejjednodussim zpusobem vyresit tuto zalezitost:
V delphi mam nainstalovano spoustu komponent, jenze nyni jsem nucen
preinstalovat pocitac a tim padem i delphi. Nejde si nejak zazalohovat
konfiguraci delphi (ze vsemi komponentami), myslim tim treba zkopirovat
nejaky adresar, a po instalaci ho tam zase zpet nakopirovat. Nechce se mi
totiz instalovat zase vsechny komponenty.
Diky, Ales
interne cislo po inserte
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 2.5.2000 14:59:19
Pozor!!!
Sice to pouzivam taky, ale je potreba si dat pozor na to aby dany insert
nevyvolal jiny inser v triggeru. Kdyby se to stalo, tak ziskam IDENTITY az
te vety, kterou vlozil trigger.
Jaromir Cermak
-----Original Message-----
From: Daniel Rott [mailto:roxton(zv)atlas(tec)cz]
Sent: Friday, April 28, 2000 4:29 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: interne cislo po inserte
> Pouzivam MSSQL7. Ako sa da vytiahnut servrom pridelene
> IDENTITY prave insertnuteho riadku?
SELECT (zv)(zv)IDENTITY
Daniel
TListView
[*] Iko <iko(zv)kamarad(tec)cz> - 2.5.2000 15:12:34
zdravim...
mam D3 a mam problem...pouzivam TListView. Akonahle zmenim
jeho farbu na inu ako je clWindow, tak mi vyhadzuje exception. V
com moze byt problem?
diky....
iko
iko(zv)kamarad(tec)cz
Instalace Delphi
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 2.5.2000 15:14:22
Nikdy jsem to nezkousel, ale zkus vyexportovat
HKEY_CU i HKEY_LM \software\borland\delphi\
a pro jistotu bych zazalohoval i adresar
%Windows%\System[32], protoze tam budou
VCLxx.DPL a podobne...
IMHO by to mohlo fungovat.
Dobra.
> ----------
> Od: Ale> � Va���ek[SMTP:vasicek(zv)ecommerce(tec)cz]
>
> V delphi mam nainstalovano spoustu komponent, jenze nyni jsem nucen
> preinstalovat pocitac a tim padem i delphi. Nejde si nejak zazalohovat
> konfiguraci delphi (ze vsemi komponentami), myslim tim treba zkopirovat
> nejaky adresar, a po instalaci ho tam zase zpet nakopirovat. Nechce se mi
> totiz instalovat zase vsechny komponenty.
> TListView
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 2.5.2000 15:54:06
| zdravim...
|
| mam D3 a mam problem...pouzivam TListView. Akonahle zmenim
| jeho farbu na inu ako je clWindow, tak mi vyhadzuje exception. V
| com moze byt problem?
Napis o tom viac. Za designu, za runtime v ObjectInspecotre, ... ?????
... pretoze mne to nerobi :-))
Pavol Kakacka
paka(zv)aktis(tec)cz
TListView
[*] Iko <iko(zv)kamarad(tec)cz> - 2.5.2000 16:25:41
ked spustim ten program tak bezi, ale akonahle pristupujem k
ciernemu objektu TListView, tak vyhodi exception.
iko
iko(zv)kamarad(tec)cz
TListView
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 2.5.2000 17:14:49
| ked spustim ten program tak bezi, ale akonahle pristupujem k
| ciernemu objektu TListView, tak vyhodi exception.
A vykreslujes sam? Co to znamena "cierny objekt"? A aka exception to je?
Jedine co ma napada, ze sa sazi pri refreshi pristupovat k neexistujucemu
objektu.
Pavol Kakacka
paka(zv)aktis(tec)cz
Pristup do registru NT
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 2.5.2000 17:39:07
> Sice jsem si nasel, ze ony magicke radky se skryvaji
> v HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon,
> ale nemuzu ty tri radky odstranit. Jedna se o DefaultUserName,
> DefaultPassword a AutoAdminLogon.
Jestli ti jde pouze o to jak vypnout autologon, tak staci pri logovani
podrzet stisknuty shift, vyvolas tim dialog a zalogujes se jako nekdo
kdo ma pravo to vypnout :-)
Jo, to je presne to co jsem potreboval.
Dekuji. Usetril jsi mi reinstalaci.
Bye Ludan
Vyuziti Delphi komponent v BCB 5
[*] martin.falta(zv)obi.de - 2.5.2000 16:41:02
Ahoj,
zacinam s programovani v BCB a rad bych pouzival nektere komponenty z D3, ke
kterym mam pouze pas soubory. Vsiml jsem si, ze BCB ma makro USEUNIT, ale nejak
se mi nedari nadefinovat promenou tridy, ktera je prave v tom pas souboru.
Help me please.
Martin
BCB 5.0 Std., Win98
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.barva okraje
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 2.5.2000 18:45:37
Probehl zde bez odezvy dotaz na moznost zmeny barvy okraje
standardnich okennich prvku, takze se k dotazu pripojuji.
Myslim ze jedinou moznosti je si cely okraj premalovat
(pokud ovsem nechci zmenit barvy v systemu).
Pokud se mylim, prosim o info.
Jiri Binder
scrollbars - vzhled
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 2.5.2000 18:45:37
Rad bych docilil urciteho vzhledu aplikace a prilis mi do neho
nesedi vzhled standardniho scrollbaru. Je nejaka moznost jak
budto ho prekreslit vlastni maluvkou? Jako zacatek by mi stacilo
alespon docilit aby mel jinou sirku pro urcite prvky (popr. okno,
aplikaci, ale ne v systemu) - pak by snad nemel byt s
premalovanim problem.
Moje nevhodne napady:
1. Pokud tomu rozumim, tak fce SystemParametersInfo zmeni
sirku v systemu, coz nechci.
2. Resenim by bylo vytvorit prvky bez scrollbaru a pridat vlastni
scrollbar komponentu, ale nechce se mi takto preprogramovavat
memo, combob box, listbox atd.
3. Dale jsem zkousel API fce pro podporu flat scrollbaru
InitializeFlatSB(xxx.handle), FlatSB_SetScrollProp...
ale s podivnym vysledkem. Napriklad pro memo dostanu
podivny mix obou scrollbaru, pro listbox to vcelku funguje,
ale pokud scrollbar opusti mys, neodpovida pozice.
Nezkousel jste to nekdo?
Navic FlatSB.. nemuze fungovat u comboboxu, protoze jeho
seznam neni okno.
Dekuji za pripadne namety. Jiri Binder Sirka fontu a kurziva
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.5.2000 19:02:19
Co se ti nezda ?? Vzdyt tyto rezy maji stejnou sirku odjakziva. Zkus si v
nakym textaku napsat neco kurzivou a uvidis, ze nektere pismena(napr. i) se
zbbrazucou do kurzoru a je v nem bila tecka. Opravdu, je to v poradku.
Hurricane
----- Original Message -----
> mam komponentu, jejiz velikost odvozuji od sirky fontu, kterou
> zjistuji pomoci Canvas.TextWidth
> Co me vsak prekvapilo, ze tato funkce vrati stejne cislo jak pro
> normalni pismo (Regular) tak pro kurzivu [italic]. Canvasu je
> spravne prirazen font a je spravne nastaven.LABELy
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.5.2000 19:12:52
Zdravim
Takze asi takhle: NIKOHO sem nastvat proti me nechtel. Otakaruv zpusob s
promennou me napadnul jako prvni, ale nechtel sem to pouzit kvuli pameti. A
nevim o tom, ze bych ho kritizoval. Pouze sem podotknul, ze jsem mel na
mysli neco na zpusob reseni Zbyska Hlinky, kteremu timto dekuji.
BTW Nevim nic o tom, ze tato konfera je pouze pro zkusene programatory. Kdyz
sem nekdo napise, ze nevi jak v Memu otevrit soubor, tak ho prece taky
nevykopneme.
Resume: Vsem kterych se neco dotklo se omlouvam a prosim skonceme to.
Dekuji.
Hurricane
Vyfarbenie TCheckBox
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.5.2000 20:52:56
Kdysi sem mel komponentu MouseFriendly, ta umela napr. po najeti mysi nad
mfButton zmenit barvu caption.u Jestli tam byl mfCheckBox si uplne jistej
nejsem ale asi jo. a jestli umela menit pozadi ctverecku, tak to uz si taky
nepamatuju. Uz je to dlouho. Asi to umi tak na 50%. Ke stahnuti je to na
www.geocities.com/smidivo . Mam pocit, ze k tomu potrebujes jeste komponentu
PPanel (nebo tak nejak). Takze si na to dej pozor. Preji uspesny lov.
Hurricane
----- Original Message -----
> Ako vyfarbim stvorec CheckBoxu, lebo Color property meni farbu pozadia
> textu.
Sirka fontu a kurziva
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 2.5.2000 21:39:02
ahoj,
> Co se ti nezda ?? Vzdyt tyto rezy maji stejnou sirku odjakziva.
Zkus si v
> nakym textaku napsat neco kurzivou a uvidis, ze nektere
pismena(napr. i)
> se zbbrazucou do kurzoru a je v nem bila tecka. Opravdu, je to v
poradku.
Mam komponentu, ktera mj jineho balastu dela toto:
a) vykreslovani se:
procedure TTextLabel.Paint;
begin {TTextLabel.Paint}
Canvas.Brush.Assign (Brush);
Canvas.Pen.Assign (Pen);
Canvas.Font.Assign (Font);
CountNewSize;
Canvas.Rectangle (0, 0, Width-1, Height-1);
Canvas.TextOut (3, 2, FCaption);
end; {TTextLabel.Paint}
a CountNewSize vypada asi takto:
procedure TTextLabel.CountNewSize;
var
W, H: integer;
begin {TTextLabel.CountNewSize}
W := Canvas.TextWidth (FCaption) + 8;
H := Canvas.TextHeight (Fcaption) + 6;
if (W <> Width) or (H <> Height) then SetBounds (Left, Top, W,
H);
end; {TTextLabel.CountNewSize}
Pri zmene fontu se take provede vykreslovani. Pokud zmenim typ
pisma na kurzivu, pak mi prekresli pravou linku ramecku. Z toho
usuzuji, ze je chyba ve funkci TextWidth v pripade, kdyz je text
kurzivou. Jinak se chova dobre.
Slavek
>
> Hurricane
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
probl�m s MessageDlg
[*] Ale� Va���ek�����"q��y�&���w�3 - 2.5.2000 22:10:34
> Mam takovy maly problem s MessageDlg na zobrazeni dialogoveho okna kdyz
pouziju nasledujici kod:
>
> procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
> var Status: integer;
> begin
> case Status of
> 0: begin
> Form2.ShowModal;
> CanClose:=false;
> end;
> 1: begin
> CanClose:=true;
> if MessageDlg('Opravdu chcete ukoncit tento
program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
> Form1.Close;
> end;
Ahoj, zkus tohle:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var Status: integer;
begin
CanClose := False;
case Status of
0: Form2.ShowModal;
1: if MessageDlg('Opravdu chcete ukoncit tento
program?',mtConfirmation,[mbYes,mbNo],0) = mrYes
then CanClose := True;
end;
end;
Ales
ADONIS A STRING PARAMETER STORED PROC
[*] Erik Salaj <winsoft(zv)napri.sk> - 2.5.2000 22:33:19
> Pouzivam ADONIS, MSSQL7 a D5 prof. Vytvoril som ulozenu proceduru z ktorej
> potrebujem viac navratovych parametrov. Pokial mam parametre typu integer,
> vratim ich bez problemov. Ako ale vratit PARAMETER TYPU CHAR (5)?
U mna to funguje. Parametre si nechaj vytvorit automaticky (v Parameters
dialogu klikni Clear button a potvrd nacitanie providerov z OLEDB
providera).
Ak by s tym boli problemy mozem pripadne poslat moj demo program.
Erik
FileList
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.5.2000 22:41:25
From: Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz>
> Mam vyskouseny ze je to tema objektama. Kdyz je vypnu jde to asi 10x
> rychleji. Ty objekty ukladam normalne do ListBox.Lines coz je TStrings.
Ahoj,
To je ale neco zcela jineho. Za prve, TStrings neni potomkem TList a za
druhe ListBox.Lines je sice typu TStrings, ale vlastni implementace neni
pomoci "cisteho" Delphi kodu, ale jedna se o jakysi obal nad API ListBoxu
a proto je to tak pomale. Pokud chces tridit ListBox nastav jeho vlastnost
Sorted na True, popripade si data uloz do TStringListu nebo TObjectListu.
Petr Vones, amatersky programator
probl�m s MessageDlg
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 02.5.2000 23:08:07
> Daniel Krej�� wrote:
>
> Mam takovy maly problem s MessageDlg na zobrazeni dialogoveho okna
> kdyz pouziju nasledujici kod:
> ...
Kod zmen takto:
1: begin
CanClose:=(MessageDlg('Opravdu chcete ukoncit tento
program?',mtConfirmation,[mbYes,mbNo],0) = mrYes);
end;
Ve FormCloseQuery se uz nestaras o zavirani Formu, ale jenom o jeho
povoleni / zakazani CANCLOSEm.
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/
problemy s property
[*] Tomas Vesely <veselyt(zv)atlas(tec)cz> - 2.5.2000 23:11:36
Ahoj,
nevite nekdo prosim jak na tyto problemy?
1) Mam svoje Query, ktere ma property MainSQL - jak napojit Visual Query Builder na tuto property nebo alespon z IBQuery propery editor v SQL property
2) Kdyz mam property typu treba TControl da se nejak omezit, aby Delphi v Designtimu me nabizelo do teto propery pouze ty controly, ktere jsou napr. na ScrolBoxu??
Diky moc a at zije Delphi
LABELy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.5.2000 23:27:31
> Ahoj,
>
> Pokud jsem tu diskuzi spravne pochopil, tak jde o to umoznit zavrit dialog pro
> vyber barvy jen pro urcite barvy. Co teda na to jit trochu jinak. Nasledujici
> kod umozni vybrat jen cernou barvu:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> with TJvColorDialog.Create(nil) do
> begin
> OnQueryColor := JvColorDialog1QueryColor;
> Execute;
> Free;
> end;
> end;
>
> procedure TForm1.JvColorDialog1QueryColor(Sender: TObject; Color: TColor;
> var Accept: Boolean);
> begin
> Accept := (Color = clBlack);
> end;
>
> unit JvColorDialog;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
>
> type
> TJvCDQueryEvent = procedure (Sender: TObject; Color: TColor; var Accept: Boolean) of object;
>
> TJvColorDialog = class(TColorDialog)
> private
> FColorOkMessage: DWORD;
> FSetRBGMessage: DWORD;
> FOnQueryColor: TJvCDQueryEvent;
> procedure WMNCDestroy(var Message: TWMNCDestroy); message WM_NCDESTROY;
> protected
> procedure DoClose; override;
> procedure DoShow; override;
> function DoQueryColor(Color: TColor): Boolean; dynamic;
> function TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool; override;
> public
> constructor Create(AOwner: TComponent); override;
> procedure SelectColor(Color: TColor);
> published
> property OnQueryColor: TJvCDQueryEvent read FOnQueryColor write FOnQueryColor;
> end;
>
> implementation
>
> uses
> CommDlg;
>
> var
> GlobalColorDialog: TJvColorDialog = nil;
> OldHookProc: Pointer = nil;
>
> function ColorDialogHook(Wnd: HWnd; Msg: UINT; WParam: WPARAM; LParam: LPARAM): UINT; stdcall;
> begin
> if Assigned(GlobalColorDialog) and (Msg = GlobalColorDialog.FColorOkMessage) then
> Result := Integer(not
> GlobalColorDialog.DoQueryColor(TColor(PChooseColor(LParam)^.rgbResult)))
> else
> Result := CallWindowProc(OldHookProc, Wnd, Msg, WParam, LParam);
> end;
>
> { TJvColorDialog }
>
> constructor TJvColorDialog.Create(AOwner: TComponent);
> begin
> inherited;
> FColorOkMessage := RegisterWindowMessage(COLOROKSTRING);
> FSetRBGMessage := RegisterWindowMessage(SETRGBSTRING);
> end;
>
> procedure TJvColorDialog.DoClose;
> begin
> GlobalColorDialog := nil;
> inherited;
> end;
>
> function TJvColorDialog.DoQueryColor(Color: TColor): Boolean;
> begin
> Result := True;
> if Assigned(FOnQueryColor) then FOnQueryColor(Self, Color, Result);
> end;
>
> procedure TJvColorDialog.DoShow;
> begin
> GlobalColorDialog := Self;
> inherited;
> end;
>
> procedure TJvColorDialog.SelectColor(Color: TColor);
> begin
> if Handle <> 0 then
> SendMessage(Handle, FSetRBGMessage, 0, ColorToRGB(Color));
> end;
>
> function TJvColorDialog.TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool;
> begin
> with TChooseColor(DialogData) do
> begin
> OldHookProc := (zv)lpfnHook;
> lpfnHook := ColorDialogHook;
> end;
> Result := inherited TaskModalDialog(DialogFunc, DialogData);
> end;
>
> procedure TJvColorDialog.WMNCDestroy(var Message: TWMNCDestroy);
> begin
> inherited;
> OldHookProc := nil;
> end;
>
> end.
>
> Petr Vones, amatersky programator
UDF na IB6
[*] MJsoft <mjsoft(zv)rychnov(tec)cz> - 3.5.2000 00:05:01
Ahoj
nezkousel jste nekdo externi funkce na IB6 beta. Me to nechodi (na IB5 je to OK). Zajimave je, ze ib udf (ve slozce EXAMPLE) normalne chodi i v IB6. Nevite jestli se nekde neco zmenilo?
diky
Jindra
probl�m s MessageDlg
[*] Brabec Tom� <Tomas.Brabec(zv)pvt(tec)cz> - 3.5.2000 07:35:52
Zkus
...
...
;
1: begin
if MessageDlg('Opravdu chcete ukoncit tento
program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
begin
CanClose:=true;
Form1.Close;
end else CanClose:= false;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var Status: integer;
begin
case Status of
0: begin
Form2.ShowModal;
CanClose:=false;
end;
1: begin
CanClose:=true;
if MessageDlg('Opravdu chcete ukoncit tento
program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
Form1.Close;
end;
Problem mam ve chvili kdy se program zepta na ukonceni, okno se zobrazi, ale
kdyz kliknu na Yes tak se neukonci
program, ale navic se nezavre ani to dialogove okno. Pri kliknuti na No se
ukonci program a tudiz se zavre i ten dialog. Nevite nekdo v cem muze byt
problem?Zotriedenie podla pocitaneho stlpca v IB6
[*] Martin Oeenas <matko(zv)proces.sk> - 3.5.2000 07:38:11
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]
Sent: Tuesday, May 02, 2000 12:42 AM
To: Delphi CZ konferencia
Subject: Zotriedenie podla pocitaneho stlpca v IB6
Zdravim.
Potreboval by som zotriedit vysledok podla stlpca narast, ale ako ?
priklad:
select mena, min(kurz), avg(kurz), max(kurz), max(kurz)-min(kurz) as narast
from kurzlist
group by mena
order by 5
-------------
"order by narast" neberie.
Dakujem.
Roland.Automaticka lokalizace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.5.2000 07:40:12
On 2 May 00, at 12:08, SPELZA s.r.o. wrote:
> mam aplikaci v cestine a chci ji lokalizovat do anglictiny. Vytvoril
> jsem si DLL ktera obsahuje vsechny resourcestringy a taky lokalizovane
> formy. Je-li prostredi anglicke a rozsireni jmena DLLky je .EN dojde k
> jejimu automatickemu nacteni. Ja bych ale chtel, aby se mi tato DLL
> nacetla vzdycky pri spusteni aplikace (nezavisle na prostredi) a pokud
> neni pritomna, tak aby aplikace fungovala cesky. Poradte jak to
> zaridit. Jeste jednu otazecku, souvisi s tim vsim nejak specifikace
> jazyka ve VersionInfo?
Pokud jsi dodrzel pravidla pro vytvoreni teto dll, a pokud jsi dal jako
priponu zkratku jazyka (zde tedu ono .EN), a pokud je ona dll ve
stejnem adresari jako program, pak dochazi k nasledujicimu:
program si po spusteni zjisti, jake prostredi je ve woknech
nastavene, dale osaha svuj adresar, zda je dll s prislusnou
priponou pritomna. O to se stara System.LoadResourceModule.
Pokud se takova dll nenajde, automaticky se pouziji resourcy z
programu.
Pokud chces resourcy prohazovat, zalezi na tom, v jake verzi je
program napsany. Od D4 to lze prohazovat za behu programu.
Pokud to chces natahovat vzdy, mas dve moznosti. Budto umistit
do registru informaci o tom, ktera dll se ma pouzit, nebo dodatecne
(od D4 vyse) prohodit resourcy. Popis je prilis dlouhy na tuto
konferenci. Konkretni zdrojak, jak to udelat, najdes u aktualni verze
Lokalizatoru (http://www.localizator.com), v souboru transl.pas.
Jinak ja to delam obracene - napisu program anglicky, a pridavam
ceskou lokalizaci.
Pozor vsak, po kazde kompilaci programu musis vytvorit
lokalizacni dll znovu!
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
LABELy
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 3.5.2000 07:41:09
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
> Odesl�no: 1. kv�tna 2000 7:47
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: LABELy
>
>
> On 30 Apr 00, at 14:39, L. ZITA wrote:
>
> > Ale slo :
> >
> > repeat
> > ColorDialog1.Color := mwCustomEdit1.RightEdgeColor;
> > if ColorDialog1.Execute then
> > if (mwCustomEdit1.Color <> ColorDialog1.Color) then
> > mwCustomEdit1.RightEdgeColor := ColorDialog1.Color
> > else ShowMessage('Tuto barvu nelze pou��t.'+#13#10+
> > 'Nebyla by vid�t.'+#13#10+'Nastavte
> > jinou.');
> > until (mwCustomEdit1.Color <> ColorDialog1.Color);
> >
> > > Co to znamena "to �e�it n�jak l�pe"?
> >
> > 1. bez promenne
>
> Drobna ucebnicova poznamka: pokud pouzivas nejakou stejnou
> hodnotu (vracenou funkci nebo vlastnosti) vicekrat nez jednou,
> zvaz, zda nebude vyhodnejsi pouzit pomocnou promennou. Pristup
> k promenne je vzdy rychlejsi nez volani funkce nebo property.
>
Ano a jeste jednu poznamku k uvaze bych pridal:
Vedle vykonnostniho hlediska je jeste hledisko udrzovani kodu.
Je tam stejny kod na vice mistech. A kdyz se zmeni, je
pravdepodobne, ze se na nekterem z tech mist zmena zapomene udelat
(z toho plynou chyby a ztratu casu pri jejich vychytavani).
Jura
velikost Taskbaru
[*] �ampulka Ji�� - 3.5.2000 08:14:52
Taskbar je wokno jako kazdy jiny takze musis najit jeho handle a pak pres nakou API fci zjistis to co potrebujes...
----- P�vodn� zpr�va -----
Od: Daniel Krej��
Komu: delphi
Odesl�no: 3. dubna 2000 20:32
P�edm�t: velikost Taskbaru
Uz jsem se tady na to ptal jednou, ale asi jste to prehlidli, tak to zkousim jeste jednou. Nevite kde by mohly byt zapsany rozmery ( vyska, resp. s�rka ) a umisteni TaskBaru. Nebo jestli na to existuje v D3 nejaka procedura. Prosim pomozte.probl�m s MessageDlg
[*] Ren� Otisk - 3.5.2000 08:17:02
> > Mam takovy maly problem s MessageDlg na zobrazeni dialogoveho okna kdyz
> pouziju nasledujici kod:
> >
> > procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
> > var Status: integer;
> > begin
> > case Status of
> > 0: begin
> > Form2.ShowModal;
> > CanClose:=false;
> > end;
> > 1: begin
> > CanClose:=true;
> > if MessageDlg('Opravdu chcete ukoncit tento
> program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
> > Form1.Close;
> > end;
>
> Ahoj, zkus tohle:
>
> procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
> var Status: integer;
> begin
> CanClose := False;
>
> case Status of
> 0: Form2.ShowModal;
Anebo jeste
1: CanClose := MessageDlg('Opravdu chcete ukoncit tento
program?',mtConfirmation,[mbYes,mbNo],0) = mrYes
> 1: if MessageDlg('Opravdu chcete ukoncit tento
> program?',mtConfirmation,[mbYes,mbNo],0) = mrYes
> then CanClose := True;
> end;
>
> end;
>
>
>
> Ales
Vyruseni WinKey
[*] delphi(zv)zas-me(tec)cz - 3.5.2000 8:30:10
Kdyz jsme to kdysi probirali, dosli jsme k neradostnemu zaveru, ze bez
hardwarove upravy klavesnice se te klavesy clovek asi nezbavi...
Karel Rys
>Nevite nejak v D3 vyrusit stisk tzv. WinKey na Windows Natural Keybord...Instalace Delphi
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 3.5.2000 07:39:17
Je potreba si zazalohovat adresar s komponentami (mysleno vlastnimi -
doinstalovanymi) a take vyexportovat si registr Delphi. Dale je
potreba si zazalohovat (pod D5) adresar Projects/BPL. Novou instalaci
je potreba provest do stejneho adresare (adresare stejneho jmena a
stejne cesty na stejnem disku), dokopirovat zalohovany adresar s
komponentami a BPL a importovat registr. Overeno v praxi a funguje.
> Zdravim,
>
> nevite nekdo, jak mohu co nejjednodussim zpusobem vyresit tuto zalezitost:
>
> V delphi mam nainstalovano spoustu komponent, jenze nyni jsem nucen
> preinstalovat pocitac a tim padem i delphi. Nejde si nejak zazalohovat
> konfiguraci delphi (ze vsemi komponentami), myslim tim treba zkopirovat
> nejaky adresar, a po instalaci ho tam zase zpet nakopirovat. Nechce se mi
> totiz instalovat zase vsechny komponenty.
>
> Diky, Ales
>
>
Milan Dvorak
dvorak(zv)gymzn(tec)cz
Nacitani dat z databaze pomoci DBE.
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 3.5.2000 08:51:38
Ahoj vsem,
mam jednoduchy programek, ktery pomoci DBE je napojen na tabulku s databazi
(napr. DBF). Na Formu mam StringGrigd a Button. Pokud stisknu button skocim
do Button.OnClick a tam v cyklu For X=0 to RecordCount projedu celou
databazi a to co chci zapisuji do TStringGrid.
Toto sice pracuje jak ma, ale mam - li v tabulce mnoho zaznamu je to dost
pomale. Nejde nejakym zpusobem nastavit nejaka cache pro nacitani zaznamu,
abych nenacital zaznam po zaznamu, ale nacetlo se nekolik vet najednou a jak
pak nacit jen z pameti.
Nacitani provadim asi takto:
For i:=0 to Table1.RecordCount-1 do
Begin
Nactu data z Table1
Table1.Next;
end;
Asi by to slo resit i jinak (mozna pomoci SQL), ale s tim nemam moc
zkusenosti a ja potrebuji neco jednoducheho.
Predem diky
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
probl�m s MessageDlg
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 3.5.2000 08:55:32
> Anebo jeste
> 1: CanClose := MessageDlg('Opravdu chcete ukoncit tento
> program?',mtConfirmation,[mbYes,mbNo],0) = mrYes
Nevim zda to uz tady padlo, ale CanClose se vola i pri ukoncovani
Windows, takze pokud je to aplikace typu server, tak je vhodnejsi
misto OnCloseQuery pouzit primo OnClose. U aplikaci typu klient
(tedy takovych se kterymi pracuje uzivatel) je naopak vhodnejsi
pouzit OnCloseQuery.
Daniel
Automaticka lokalizace
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 3.5.2000 09:16:56
----- P�vodn� zpr�va -----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 3. kv�tna 2000 7:40
P�edm�t: Re: Automaticka lokalizace
> ...
>
> Pokud chces resourcy prohazovat, zalezi na tom, v jake verzi je
> program napsany. Od D4 to lze prohazovat za behu programu.
>
> Pokud to chces natahovat vzdy, mas dve moznosti. Budto umistit
> do registru informaci o tom, ktera dll se ma pouzit, nebo dodatecne
> (od D4 vyse) prohodit resourcy.
>
Ja mam D4Std a prave moznost dodatecneho prohozeni resourcu by mne zajimala.
V helpu Delphi jsem nasel, ze lze pouzit nasledujici sekvenci:
uses ReInit;
...
if LoadNewResourceModule((SUBLANG_ENGLISH shl 10) or LANG_ENGLISH) <> 0
then ReinitializeForms;
To mi ale nefunguje, nebot zadnou jednotku REINIT system nenasel. Je snad
soucasti az verze Profi?
Ahoj. Jara
svehla(zv)atlas(tec)cz
Mirny OT: Nastaveni vlastniho rozmeru papiru pod W
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 3.5.2000 09:34:47
QR3, D5Prof, WinNT
Prosim o tuknuti
V Quick Reportu nastavuji rozmer na Custom a upravuji si svoje rozmery
papiru pro tisk na traktorovy papir. Nastaveni sveho rozmeru papiru jsem
provedl i v nastaveni tiskarny ve Windows98.
U uzivatele jsem program reinstaloval na WinNT a ejhle. Nemohl jsem najit,
kde nastavit vlastni rozmer papiru v systemovem nastaveni tiskarny. Zkousel
jsem instalovat softwarove ruzne tiskarny (ty ktere stoprocentne maji pod
Win95/98 vlastni nastaveni rozmeru) a nic. Bud jsem slepej, nebo si zitra
jdu koupit Resource Kit.
Nevite nekdo, kde jsem nechal oci?
Ing. Petr Svejda
software specialist
Chybne zobrazovani pod Win NT
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 3.5.2000 09:34:45
D5 Prof, Win 98
Mam velky problem a potreboval bych urgentne pomoci.
Moje aplikace delana pod Win98 se u uzivatele na Win95/98 zobrazuje bez
problemu, ale jak ji nainstaluji na Win NT 4.0, tak se spatne zobrazuje
velikost znaku vuci ostatnim objektum. Napr. V listboxu se pod Win95/98
zobrazi spravne sada textu, ale pod NT se texty to listboxu horizontalne
nevejdou.
Jakoby byla pismena o chlup vetsi. ::::-o
Kdo vi, at prosim pomuze. Dekuji predem, protoze jak kdosi pravil, zadem je
to zakazane.
Ing. Petr Svejda
software specialist
Nacitani dat z databaze pomoci DBE.
[*] Ren� Otisk - 3.5.2000 09:35:36
Hi,
Jestli potrebujes jenom urcite zaznamy z tablu, tak na to je TQuery jak
stvorene. Dej, vedet jake jsou podminky pro vybirani zaznamu...
Jeste je otazka, kolik je to mnoho zaznamu. Na vyplatu je to vzdycky malo,
na odpracovane hodiny je to vzdycky mnoho...
Sroub
----- Original Message -----
From: Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz>
To: konference delphi <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 03, 2000 8:51 AM
Subject: Nacitani dat z databaze pomoci DBE.> Ahoj vsem,
>
> mam jednoduchy programek, ktery pomoci DBE je napojen na tabulku s
databazi
> (napr. DBF). Na Formu mam StringGrigd a Button. Pokud stisknu button
skocim
> do Button.OnClick a tam v cyklu For X=0 to RecordCount projedu celou
> databazi a to co chci zapisuji do TStringGrid.
>
> Toto sice pracuje jak ma, ale mam - li v tabulce mnoho zaznamu je to dost
> pomale. Nejde nejakym zpusobem nastavit nejaka cache pro nacitani zaznamu,
> abych nenacital zaznam po zaznamu, ale nacetlo se nekolik vet najednou a
jak
> pak nacit jen z pameti.
>
> Nacitani provadim asi takto:
>
> For i:=0 to Table1.RecordCount-1 do
> Begin
> Nactu data z Table1
>
> Table1.Next;
> end;
>
> Asi by to slo resit i jinak (mozna pomoci SQL), ale s tim nemam moc
> zkusenosti a ja potrebuji neco jednoducheho.
>
>
> Predem diky
>
> Jindrich Nikodem
>
>
> nikodem(zv)kh-kinetic(tec)cz
>
>
>
>
>Seznam spustenych aplikaci
[*] jof(zv)email(tec)cz - 3.5.2000 09:46:13
Potreboval bych zjistit, ktere aplikace
jsou spustene. Ne nazvy oken, ale nazvy jejich
spustitelnych souboru. Za kazdou radu dekuji.
-jof-
UDF na IB6
[*] Bohuslav Svancara <softprojekt(zv)iol(tec)cz> - 3.5.2000 09:47:58
Zkousel, chodi.
DLL mam v adresari "C:\Program Files\Borland\IntrBase\UDF" a v Delphi v
deklaraci funkce pouzij misto stdcall konvenci cdecl.
S pozdravem
Bohuslav Svancara
softprojekt(zv)iol(tec)cz
----- Original Message -----
From: MJsoft
To: DELPHI Distribution List
Sent: Wednesday, May 03, 2000 12:05 AM
Subject: UDF na IB6
Ahoj
nezkousel jste nekdo externi funkce na IB6 beta. Me to nechodi (na IB5 je
to OK). Zajimave je, ze ib_udf (ve slozce EXAMPLE) normalne chodi i v IB6.
Nevite jestli se nekde neco zmenilo?
diky
Jindra
probl�m s MessageDlg
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 3.5.2000 10:00:02
Ahoj,
zkus to takto:
case Status of
...
��� 1: CanClose:= MessageDlg(...)= idYes;
end; { case }
Pozn: To Form1.Close tam uz nedavej.
Dobra.
> ----------
> Od: Daniel Krej��[SMTP:fredycrueger(zv)volny(tec)cz]
>
> Mam takovy maly problem s MessageDlg na zobrazeni dialogoveho okna kdyz pouziju nasledujici kod:
> �>
> procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
> var Status: integer;
> begin
> �> case Status of
> ���> 0: begin
> ������> Form2.ShowModal;
> ������> CanClose:=false;
> ������> end;
> ���> 1: begin
> ������> CanClose:=true;
> ������> if MessageDlg('Opravdu chcete ukoncit tento program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
> ������> Form1.Close;
> ������> end;
> �>
> Problem mam ve chvili kdy se program zepta na ukonceni, okno se zobrazi, ale kdyz kliknu na Yes tak se neukonci
> program, ale navic se nezavre ani to dialogove okno. Pri kliknuti na No se ukonci program a tudiz se zavre i ten dialog. Nevite nekdo v cem muze byt problem?
> fonty
[*] ShiCola <P.Sikola(zv)sh.cvut(tec)cz> - 3.5.2000 10:02:03
ahoj, mam takovy problem, potrebuju do jednoho komba vyplnit nazvy vsech
neproporcionalnich (fixed) fontu. Nevite nekdo nahodou jak to mam udelat? ja
nemam vubec tuseni.................a jeste takova vecicka: jak u tech fontu
zjistim jaky se mohou pouzit velikosti a charsety ??
diky moc za info
ShiCola
icq: 22574691
Nacitani dat z databaze pomoci DBE.
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.5.2000 10:12:39
----- Original Message -----
From: "Jind�ich Nikodem" <nikodem(zv)kh-kinetic(tec)cz>> Ahoj vsem,
>
> mam jednoduchy programek, ktery pomoci DBE je napojen na tabulku s databazi
> (napr. DBF). Na Formu mam StringGrigd a Button. Pokud stisknu button skocim
> do Button.OnClick a tam v cyklu For X=0 to RecordCount projedu celou
> databazi a to co chci zapisuji do TStringGrid.
>
> Toto sice pracuje jak ma, ale mam - li v tabulce mnoho zaznamu je to dost
> pomale. Nejde nejakym zpusobem nastavit nejaka cache pro nacitani zaznamu,
> abych nenacital zaznam po zaznamu, ale nacetlo se nekolik vet najednou a jak
> pak nacit jen z pameti.
>
> Nacitani provadim asi takto:
>
> For i:=0 to Table1.RecordCount-1 do
> Begin
> Nactu data z Table1
>
> Table1.Next;
> end;
>
> Asi by to slo resit i jinak (mozna pomoci SQL), ale s tim nemam moc
> zkusenosti a ja potrebuji neco jednoducheho.
>
Zkus to nasledovne. Jsou tam doplneny BeginUpdate a DisableControls, ktere by
mely zrychlit manipulaci. Pak jeste zalezi na tom, jakym zpusobem to do toho
StringGridu zapisujes, coz jsi neuvedl.
With Table1 Do Begin
StringGrid1.Rows.BeginUpdate;
DisableControls;
First;
While Not Eof Do Begin
Ctu data
Next;
End;
EnableControls;
StringGrid1.Rows.EndUpdate;
End;
Jan Fiala
P.S. je to z hlavy, omlouvam se za chyby, jde pouze o natuknuti
Seznam spustenych aplikaci
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 03.5.2000 10:15:03
procedure TForm1.Button1Click(Sender: TObject);
var
hSnapShot: Cardinal;
PE: TProcessEntry32;
begin
hSnapShot := 0;
try
ProcessList.Items.Clear;
FillChar (PE, SizeOf (TProcessEntry32), 0);
PE.dwSize := SizeOf (TProcessEntry32);
hSnapShot := CreateToolHelp32SnapShot (TH32CS_SNAPPROCESS, 0);
if hSnapShot = INVALID_HANDLE_VALUE then begin
MessageBox (Application.Handle, PChar (SysErrorMessage
(GetLastError)),
PChar (Application.Title), MB_OK OR MB_ICONERROR OR
MB_DEFBUTTON1 OR
MB_SETFOREGROUND OR MB_APPLMODAL);
Exit;
end;
if not Process32First (hSnapShot, PE) then begin
MessageBox (Application.Handle, PChar (SysErrorMessage
(GetLastError)),
PChar (Application.Title), MB_OK OR MB_ICONERROR OR
MB_DEFBUTTON1 OR
MB_SETFOREGROUND OR MB_APPLMODAL);
Exit;
end else begin
ProcessList.Items.Add (Format ('PID = %d: %s',
[PE.th32processID, String (PE.szExeFile)]));
end;
while Process32Next (hSnapShot, PE) do
ProcessList.Items.Add (Format ('PID = %d: %s',
[PE.th32processID, String (PE.szExeFile)]));
finally
if hSnapShot <> 0 then CloseHandle (hSnapShot);
end;
end;
ProcessList je TListBox, v uses musi byt unit tlhelp32 (v nekterych
verzich delphi se tusim menuje toolhelp), nefunguje
pod Windows NT 4, tam je nutne pouzit PSAPI - k dostani
tusim na delphi-jedi.org.
Ondrej Krajicek
--------------------------------------------------------------
Ondrej Krajicek mailto:xkrajic(zv)ics.muni(tec)cz
Institute of Computer Science, Masaryk University Brno
-- The new and incredible 32bit intelligent wizard has
obtained a solution to your printing problem: do not print!
--------------------------------------------------------------
jof(zv)email(tec)cz wrote:
>
> Potreboval bych zjistit, ktere aplikace
> jsou spustene. Ne nazvy oken, ale nazvy jejich
> spustitelnych souboru. Za kazdou radu dekuji.
> -jof-
--
Seznam spustenych aplikaci
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 3.5.2000 10:17:38
procedure TProcessList.Refresh;
var
ListHandle : THandle;
pe : TProcessEntry32;
Flag : boolean;
Item : PProcessRec;
begin
ListHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if ListHandle <> 1 then begin
pe.dwSize := SizeOf(TProcessEntry32);
try {of finally}
Flag := Process32First( ListHandle, Pe);
repeat
Item := FindItem(Pe.th32ProcessID,StrPas(Pe.szExeFile));
if Item <> nil then begin
Seznam.AddItem(Pe.th32ProcessID,StrPas(Pe.szExeFile));
end;
Flag := Process32Next( ListHandle, Pe );
until not Flag;
finally
CloseHandle( ListHandle );
end; { of finally }
end;
end;
S pozdravem Miki
-----Original Message-----
From: jof(zv)email(tec)cz [SMTP:jof(zv)email(tec)cz]
Sent: Wednesday, May 03, 2000 9:46 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Seznam spustenych aplikaci
Potreboval bych zjistit, ktere aplikace
jsou spustene. Ne nazvy oken, ale nazvy jejich
spustitelnych souboru. Za kazdou radu dekuji.
-jof-
probl�m s MessageDlg
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.5.2000 10:18:47
----- Original Message -----
>From: Daniel Krej��
>Mam takovy maly problem s MessageDlg na zobrazeni dialogoveho okna kdyz pouziju
nasledujici kod:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= (if MessageDlg('Opravdu chcete ukoncit tento
program?',mtConfirmation,[mbYes,mbNo],0) = mrYes);
end;
Problem je v tom, ze nastavis CanClose na True vzdycky. Pro zavirani formulare
nemusis volat Form.Close, ale pouze nastavit CanClose. Vyzkousej uvedenou
upravu.
Jan Fiala
Nacitani dat z databaze pomoci DBE.
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 3.5.2000 10:20:37
Ahoj,
mam tabulku se tremi sloupci. V prvnim je datum a cas zaznamu (napr.
1.1.2000 10:05:50) a v dalsich dvou jsou hodnoty. Ja potrebuji projit
databazi a vybrat data v urcitem casovem pasmu (napr. od 1.1.2000 8:00:00 do
2.1.2000 10:00:00). Delam to proto ve smycne a beru si data ktere vyhovuji
podmince.
Momentalne mam v databazi asi 5000 zaznamu a projit databazi trva asi 10
sec., ale jednou jich bude asi 10x vice. Tak mam obavu ze to bude dost
pomale.
Data tedy cpu do StringGrid protoze nevim jak to odfiltrovat v DBGrig.
Mam Delphi 4. Std. Win98, 32 MB
Delphi a Postgres
[*] Iko <iko(zv)kamarad(tec)cz> - 3.5.2000 10:28:08
vie niekto poradit ako rozbehnut Delphi a PostgreSQL? Nainstaloval
som ODBC ovladac na PostgreSQL, ale stale mi to hlasi
autentifiacion failed.
iko
iko(zv)kamarad(tec)cz
Nacitani dat z databaze pomoci BDE.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 3.5.2000 10:33:39
Ja bych zkusil pouzit nejakou MemoryTable,
napr. z RxLib, otevres Table1, otevres
rxMemoryTable a presypes do ni data a
Table1 muzes klidne zavrit.
Dobra.
> ----------
> Od: Jind> �ich Nikodem[SMTP:nikodem(zv)kh-kinetic(tec)cz]
>
> mam jednoduchy programek, ktery pomoci DBE je napojen na tabulku s databazi
> (napr. DBF). Na Formu mam StringGrigd a Button. Pokud stisknu button skocim
> do Button.OnClick a tam v cyklu For X=0 to RecordCount projedu celou
> databazi a to co chci zapisuji do TStringGrid.
>
> Toto sice pracuje jak ma, ale mam - li v tabulce mnoho zaznamu je to dost
> pomale. Nejde nejakym zpusobem nastavit nejaka cache pro nacitani zaznamu,
> abych nenacital zaznam po zaznamu, ale nacetlo se nekolik vet najednou a jak
> pak nacit jen z pameti.
>
> Velikonoce
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 3.5.2000 10:40:05
Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce? Nechce se mi po nich moc namahat sedou kuru.
S pozdravem a pranim hezkeho dne
Milan Schembera
Spravce IT
SPEKTRUM CZ a.s.
mailto:spravce(zv)spektrum(tec)cz
mailto:milan(zv)missoftware(tec)cz
Nacitani dat z databaze pomoci BDE.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 3.5.2000 10:41:49
A jak jsou ulozeny ty casove udaje ? Jako retezec ?
Potom zkus nastavovat filtry.
Filtered:=true;
A osetrit udalost OnFilterRecord
Pokud jsou to udaje typu DateTime, pak by to
asi slo pres TQuery.
Dobra.
> ----------
> Od: Jind> �ich Nikodem[SMTP:nikodem(zv)kh-kinetic(tec)cz]
>
> mam tabulku se tremi sloupci. V prvnim je datum a cas zaznamu (napr.
> 1.1.2000 10:05:50) a v dalsich dvou jsou hodnoty. Ja potrebuji projit
> databazi a vybrat data v urcitem casovem pasmu (napr. od 1.1.2000 8:00:00 do
> 2.1.2000 10:00:00). Delam to proto ve smycne a beru si data ktere vyhovuji
> podmince.
>
> probl�m s MessageDlg
[*] bures <bures(zv)ssakhk(tec)cz> - 3.5.2000 10:44:33
Ahoj udelej to takto a uspech bude zaruceny:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Opravdu chcete ukoncit tento program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
CanClose:=true
else
CanClose:=false;
end;
Vlada ----- Original Message -----
From: Daniel Krej��
To: delphi
Sent: Monday, April 03, 2000 7:12 PM
Subject: probl�m s MessageDlg
Mam takovy maly problem s MessageDlg na zobrazeni dialogoveho okna kdyz pouziju nasledujici kod:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var Status: integer;
begin
case Status of
0: begin
Form2.ShowModal;
CanClose:=false;
end;
1: begin
CanClose:=true;
if MessageDlg('Opravdu chcete ukoncit tento program?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
Form1.Close;
end;
Problem mam ve chvili kdy se program zepta na ukonceni, okno se zobrazi, ale kdyz kliknu na Yes tak se neukonci
program, ale navic se nezavre ani to dialogove okno. Pri kliknuti na No se ukonci program a tudiz se zavre i ten dialog. Nevite nekdo v cem muze byt problem?Velikonoce
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 3.5.2000 10:51:08
http://www.softnov(tec)cz/article.php?id=10685
Slavek
> Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce?
> Milan Schembera
Udalost pri zmene sirky sloupce ve StringGridu
[*] <sw.maurice(zv)centrum(tec)cz> - 03.5.2000 10:58:59
rad bych nejakym zpusobem odchytil udalost pri zmene sirky sloupce v
StringGridu (abych mohl ostatni sloupce zarovnat do okna), ale
nemuzu nic
takoveho najit. Nevite nekdo, jak na to?
Zkousel jsem to resit pres odchytavani OnMouseMove, kde Shift je
lButton a
lisi se sirky u sloupcu od predchoziho stavu, ale je to tezkopadne a
navic
to nejak divne funguje.
ahojda,
TCustomGrid ma pro zmenu ci pohyb sloupce ColWidthsChanged, takze by
to mohlo jit trebas takhle:
type TMyGrid=class(TStringGrid)
private
FOnColWidthChange:TNotifyEvent;
public
procedure ColWidthsChanged; override;
published
property OnColWidthChange:TNotifyEvent read FOnColWidthChange
write FOnColWidthChange;
end;
....
procedure TMyGrid.ColWidthsChanged;
begin
inherited;
if Assigned(FOnColWidthChange) then FOnColWidthChange(Self);
end;
...
anebo muzes pouzit z RX TRxDrawGrid, udalost OnColumnSized. :-)
Hezky den
preje M.
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
OT: TCP
[*] Martin <geoplan(zv)pp.sinet.sk> - 3.5.2000 10:58:41
Dobry,
mam problem s protokolom TCP a rychlostou prenosu suborov. Kedze som cital prispevky v konf ohladom TCP, tak sa kusim opytat.
mam 1 server NT 4 a 3 stanice NT workst4. + serv pack 5. Na vsetkych je nainstalovany protokol TCP aj Netbeui. Mam k servru este pripojene W95, tie pouzivaju NETBEUI.
Ak kopiruje zo stanic 15 MB subor na server , kopiruje ho 110 s . Ak kopirujem medzi stanicami kopiruje 20s. Ak na stanici vyhodim tcp protokol ze ide iba cez NETBEUI, tak to urobi za 16s na stanicu aj na server.
Da sa tym nieco urobit alebo nejak nastavit aby prednostne pouzival NETBEUI na preno suborov?
TCP potrebujem pre pripojenie k proxy servru na servri.
Martin
Grafika v menu
[*] <sw.maurice(zv)centrum(tec)cz> - 03.5.2000 10:59:49
Zdravicko,
Ehm, jak pomoci imagelistu dostanete grafiku jako je napis "Window 95"
do TPopupMenu??? To jako "nasekat" na maly bitmapy?
:-)))
A ted vazne: muzes pouzit udalosti OnItemDraw /OwnerDraw:=false/ pro
kresleni jednotlivych polozek v menu v ruznych stavech
/oznacena, neoznacena.../.
Me se ovsem nepodarilo odstranit ten klasicky 3d okraj, takze pro
netypicke menu /krive, pruhledne/ je treba jine komponenty
/nebo rovnou TForm/... pokud tedy nekdo z pritomnych nevi, jak se
zbavit i tohoto.
Hezky den
preje M.
Na to snad staci do Menu.images priradit ImageList
a u jednotlivych items zadat prislusny ImageIndex.
Aspon v D5. Verze tu neni uvedena.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Ahoj!
Pot�et� pos�l�m tento dotaz. Opravdu to nikdo nev�?
Nevite nekdo jakym zpusobem dostat grafiku do Menu a PopUpMenu?
Konkretneji - potrebuju tam dostat neco takoveho jako je v nabidce
Start
text Windows95/98
na levem okraji.
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Zrychleni aplikace
[*] <sw.maurice(zv)centrum(tec)cz> - 03.5.2000 11:00:35
Zdravim!Mam aplikaci, kterou bych potreboval zrychlit (editor pro
hru). Jde o to, ze mam komponenty a ty maji jednu udalost. Prirazuji
promene svuj sender, kdyz nad ni projede mys a presunou komponentu
TImage nad sebe. Pohybliva komponenta obsahuje kod na onClick. V
teto udalosti se priradi pres "ulozeny" sender obrazek
(Image.Picture.Assign). Kdyz se pohybuju mysi nad polem tak se ten pohyblivej TImage
"flaka" nekde za mysi. Na mem PIII 450 je to sice v pohode, ale uz
na Celeronu 333 se to znatelne zpozduje coz teprve na P133 a 486). Editor si
muzete stahnout na: http://gm1.miesto.sk pokud tam uz stranky
nebudou tak na http://gm.fbi(tec)cz
Ahoj,
sice jsem ten program zat�m nevid�l, ale z toho co jsem vy�etl bych ti
mohl poradit t�eba tohle: pokud nen� bezpodm�ne�n� nutn�
pou��vat ji� vytvo�en� komponenty pro zobrazovan� se spoustou
zbyte�nost�, ud�lej si klidn� svoje vlastn� ur�en� pr�v� pro ten dan�
u�el /TImage m� v�ci, kter� nepot�ebuju a nem� to, co pot�ebuju :-)/,
pou��vej DIB a nastav jejich barevnou hloubku podle
aktu�ln�ho nastaven� obrazovky /pokud nen� pot�eba jinak/ a
p�ed�va�-li Sender jenom proto, abys mohl na��st jeho obr�zek, tak
pro� nep�ed�vat p��mo ten obr�zek?
Hezk� den
p�eje M
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Nacitani dat z databaze pomoci DBE.
[*] Ren� Otisk - 3.5.2000 11:08:11
Hi,
Vymen TTable za TQuery, nastav alias a ty ostatni prkotinky, co v TTable a
napis do property SQL prikaz: SELECT * FROM (Jmeno te tabulky) WHERE (Jmeno
toho prvniho sloupce ten datum) > = :StartDatum AND (ad vyse) <= :EndDatum.
V Params si nastav DataType na DateTime a muzes si tam nastavit i defaultni
hodnoty. Misto * v tom prikaze muzes zadat primo nazvy tech sloupcu (v
nekterych pripadech mi to chodilo rychleji)
Query1.Active := False;
Query1.ParamByName('StartDatum').AsDateTime := StrToDateTime(Edit1.Text);
Query1.ParamByName('EndDatum').AsDateTime := StrToDateTime(Edit2.Text);
Query1.Active := True;
Delam to z hlavy, takze doufam ze jsem na nic nezapomnel a neudelal botku.
Kdyz tak se ozvi...
Sroub
> Ahoj,
>
> mam tabulku se tremi sloupci. V prvnim je datum a cas zaznamu (napr.
> 1.1.2000 10:05:50) a v dalsich dvou jsou hodnoty. Ja potrebuji projit
> databazi a vybrat data v urcitem casovem pasmu (napr. od 1.1.2000 8:00:00
do
> 2.1.2000 10:00:00). Delam to proto ve smycne a beru si data ktere vyhovuji
> podmince.
>
> Momentalne mam v databazi asi 5000 zaznamu a projit databazi trva asi 10
> sec., ale jednou jich bude asi 10x vice. Tak mam obavu ze to bude dost
> pomale.
>
> Data tedy cpu do StringGrid protoze nevim jak to odfiltrovat v DBGrig.
>
> Mam Delphi 4. Std. Win98, 32 MB
opakovane vytaceni
[*] petr.palicka(zv)atlas(tec)cz - 3.5.2000 11:19:36
> From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
> > netusi nekdo, jak zapnout opakovane vytaceni cisla? U standardnich tel.
> > pripojeni ve Win98.. napr. k ISP
>
> Ahoj,
>
> teoreticky by to mohlo jit pomoci funkce InternetSetOption (WinInet) a > flagu
> INTERNET_OPTION_CONNECT_RETRIES. Nicmene se mi to nepovedlo primet k funkci.
>
> Petr Vones, amatersky programator
no,
otevri si tento pocitac,
dale otevri telefonicke pripojeni site,
nasledne v menu vyber pripojeni -> nastaveni
a tam na karte obecne zaskrtni opakovat cico to tam je :-)
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Nacitani dat z databaze pomoci DBE.
[*] Lubo Fule <fule(zv)sct.sk> - 3.5.2000 11:30:49
Este maly dodatok, v TQuery nepouzivaj RecordCount (moze trvat dlho), ale
pouzi cyklus
while not Query1.Eof do
begin
...tvoj kod
Query1.Next;
end;
> Vymen TTable za TQuery, nastav alias a ty ostatni prkotinky, co v TTable a
> napis do property SQL prikaz: SELECT * FROM (Jmeno te tabulky)
> WHERE (Jmeno
> toho prvniho sloupce ten datum) > = :StartDatum AND (ad vyse) <=
> :EndDatum.
> V Params si nastav DataType na DateTime a muzes si tam nastavit i
> defaultni
> hodnoty. Misto * v tom prikaze muzes zadat primo nazvy tech sloupcu (v
> nekterych pripadech mi to chodilo rychleji)
>
> Query1.Active := False;
> Query1.ParamByName('StartDatum').AsDateTime := StrToDateTime(Edit1.Text);
> Query1.ParamByName('EndDatum').AsDateTime := StrToDateTime(Edit2.Text);
> Query1.Active := True;
>
>
Delphi a Postgres
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 03.5.2000 11:41:33
http://home.skif.net/~voland/zeos/eng/index.html
Ales
> vie niekto poradit ako rozbehnut Delphi a PostgreSQL? Nainstaloval
> som ODBC ovladac na PostgreSQL, ale stale mi to hlasi
> autentifiacion failed.
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
Sirka fontu a kurziva
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.5.2000 11:44:42
On 2 May 00, at 21:39, Slavek Rydval wrote:
[...]
> Pri zmene fontu se take provede vykreslovani. Pokud zmenim typ
> pisma na kurzivu, pak mi prekresli pravou linku ramecku. Z toho
> usuzuji, ze je chyba ve funkci TextWidth v pripade, kdyz je text
> kurzivou. Jinak se chova dobre.
Chyba neni ani tak v TextWidth, jako spis v API funkcich. Ted
prave vytvarim editor pro WideStringy (chce se nekdo pripojit? chci
docilit stejne funkcnosti jako ma TMemo a TEdit; v nedavnych
odkazech na muj dotaz nic takoveho nebylo, dodatecne diky za
ne) a narazil jsem na problem, ze v me konstelaci Woken (cesky,
MS Sans Serif) pocita funkce GetTextExtentExPointW spatne
sirku ruskych bukvicek - vzdy mi cpe sirku 3. Pokud prehodim
prostredi na ruske, je to v poradku.
Muzes take vyzkouset GetTextExtentExPoint, ta umi vracet i sirku
textu po jednotlivych znacich.
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
barva okraje
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.5.2000 11:44:42
On 2 May 00, at 18:45, Jiri Binder wrote:
> Probehl zde bez odezvy dotaz na moznost zmeny barvy okraje
> standardnich okennich prvku, takze se k dotazu pripojuji.
> Myslim ze jedinou moznosti je si cely okraj premalovat
> (pokud ovsem nechci zmenit barvy v systemu).
> Pokud se mylim, prosim o info.
Standardni prvky jsou malovany vnitrnimi utilitami Woken. Takze
skutecne nezbyva, nez takovy prvek prekryt a namalovat si ho sam.
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
velikost Taskbaru
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 3.5.2000 11:44:43
On 3 Apr 00, at 20:32, Daniel Krej�� wrote:
> Uz jsem se tady na to ptal jednou, ale asi jste to prehlidli, tak to
> zkousim jeste jednou. Nevite kde by mohly byt zapsany rozmery ( vyska,
> resp. s�rka ) a umisteni TaskBaru. Nebo jestli na to existuje v D3
> nejaka procedura. Prosim pomozte.
Kdyz jsem chtel udelat zobrazeni formularu k Lokalizatoru, narazil
jsem prave u D3 na problem, ze jedna standardni komponenta
neukladala do DFM vsechny koordinaty, pokud byly defaultni. Mam
vaznou obavu, ze to byl prave TaskBar. Reseni je pouze jedno -
prejdi na vyssi verzi Delphi.
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
Zotriedenie podla pocitaneho stlpca v IB6
[*] Jiri Hostinsky <hostinsky(zv)teska(tec)cz> - 3.5.2000 11:49:32
Mam dojem, ze v IB6 je chyba v pouzivani zastupnych jmen
Funguje treba
SELECT NECO AS NECOJINEHO FROM TABULE
ale uz bohuzel nejde
CREATE VIEW POHLED AS
SELECT NECO AS NECOJINEHO FROM TABULE
takze mj. nejdou pohledy s agregacemi
Tvuj problem bude mit asi stejnou pricinu
Poslal jsem problem nekam do IB6, zatim zadny ohlas
(zkusim jinou adresu)
Zaver : IB6 beta je zatim nepouzitelna :-(
Jiri Hostinsky
hostinsky(zv)teska(tec)cz
----- Original Message -----
From: Roland Turcan (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 02, 2000 12:42 AM
Subject: Zotriedenie podla pocitaneho stlpca v IB6
> Zdravim.
>
> Potreboval by som zotriedit vysledok podla stlpca narast, ale ako ?
>
> priklad:
>
> select mena, min(kurz), avg(kurz), max(kurz), max(kurz)-min(kurz) as
narast
> from kurzlist
> group by mena
>
>
>
> "order by narast" neberie.
>
> Dakujem.
>
> Roland.
>
>Nacitani dat z databaze pomoci DBE.
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.5.2000 11:54:52
----- Original Message -----
From: "Jind�ich Nikodem" <nikodem(zv)kh-kinetic(tec)cz>> Ahoj,
>
> mam tabulku se tremi sloupci. V prvnim je datum a cas zaznamu (napr.
> 1.1.2000 10:05:50) a v dalsich dvou jsou hodnoty. Ja potrebuji projit
> databazi a vybrat data v urcitem casovem pasmu (napr. od 1.1.2000 8:00:00 do
> 2.1.2000 10:00:00). Delam to proto ve smycne a beru si data ktere vyhovuji
> podmince.
>
> Momentalne mam v databazi asi 5000 zaznamu a projit databazi trva asi 10
> sec., ale jednou jich bude asi 10x vice. Tak mam obavu ze to bude dost
> pomale.
>
> Data tedy cpu do StringGrid protoze nevim jak to odfiltrovat v DBGrig.
Idealni je pouzit Query a pokud ti nebadi DBGrid, tak ten.
Do SQL das napr:
Select * From jmeno_tabulky
Where DatumCas Between :datumcas_od And :datumcas_do
datumcas_od a datumcas_do jsou parametry typu datetime, ktere si naplnis pred
Query1.Open pomoci Query.ParamByName(jmeno).As DateTime := .....
V gridu se ti zobrazi pouze pozadovane zaznamy
Jan Fiala
Nacitani dat z databaze pomoci BDE.
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 3.5.2000 11:56:50
> Ja bych zkusil pouzit nejakou MemoryTable,
> napr. z RxLib, otevres Table1, otevres
> rxMemoryTable a presypes do ni data a
> Table1 muzes klidne zavrit.
> > Od: Jind> �ich Nikodem[SMTP:nikodem(zv)kh-kinetic(tec)cz]
> >
> > mam jednoduchy programek, ktery pomoci DBE je napojen na tabulku s
> > databazi (napr. DBF). Na Formu mam StringGrigd a Button. Pokud
> > stisknu button skocim do Button.OnClick a tam v cyklu For X=0 to
> > RecordCount projedu celou databazi a to co chci zapisuji do
> > TStringGrid.
> >
> > Toto sice pracuje jak ma, ale mam - li v tabulce mnoho zaznamu je to
> > dost pomale. Nejde nejakym zpusobem nastavit nejaka cache pro
> > nacitani zaznamu, abych nenacital zaznam po zaznamu, ale nacetlo se
> > nekolik vet najednou a jak pak nacit jen z pameti.
> >
> >
Ahoj,
na zaklade svych pokusu (viz drivejsi diskusi o srovnani ADO,
ODBC, BDE + ODBC, komponenty L. Fuleho) jsem dospel k
nazoru, ze pouzivat Memory table je z hlediska rychlosti spis za
trest, nez ze by to prospelo veci. Podle mereni to neprineslo temer
zadne zrychleni. Doba, kdy se RxMemoryData naplnila z Query
nebo z jine RxMemoryData byly podobne, navic tady pribyva cas
potrebny k prvotnimu naplneni RxMemoryData. Ale je to jen moje
zkusenost, mozna ma nekdo lepsi.
Pro puvodni pozadavky tazatele bych zkusil kvuli snadnosti Range
nebo Filter (?), pokud by to nepomohlo nebo bylo nepouzitelne,
nezbyva nez se opravdu pustit do SQL.
David
UDF na IB6
[*] Jiri Hostinsky <hostinsky(zv)teska(tec)cz> - 3.5.2000 11:58:56
Nastehuj si knihovnu do adresare \interbase\udf
(rada od pachatele FreeUDFLib.dll)
Jiri Hostinsky
hostinsky(zv)teska(tec)cz
----- Original Message -----
From: MJsoft
To: DELPHI Distribution List
Sent: Wednesday, May 03, 2000 12:05 AM
Subject: UDF na IB6
Ahoj
nezkousel jste nekdo externi funkce na IB6 beta. Me to nechodi (na IB5 je to OK). Zajimave je, ze ib udf (ve slozce EXAMPLE) normalne chodi i v IB6. Nevite jestli se nekde neco zmenilo?
diky
Jindra
Velikonoce
[*] Grubhoffer(zv)software602(tec)cz - 3.5.2000 12:06:32
>
> http://www.softnov(tec)cz/article.php?id=10685
>
> Slavek
>
> > Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce?
>
> > Milan Schembera
>
Ja si trochu zastouram :) V roce 1954 bylo velikonocni pondeli 19.4. a uvedeny algoritmus vrati 26.4.
J.G.
---
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
Zotriedenie podla pocitaneho stlpca v IB6
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 03.5.2000 12:29:46
Ahoj,
Jiri Hostinsky wrote:
> Mam dojem, ze v IB6 je chyba v pouzivani zastupnych jmen
> Funguje treba
> SELECT NECO AS NECOJINEHO FROM TABULE
> ale uz bohuzel nejde
> CREATE VIEW POHLED AS
> SELECT NECO AS NECOJINEHO FROM TABULE
> takze mj. nejdou pohledy s agregacemi
> Tvuj problem bude mit asi stejnou pricinu
> Poslal jsem problem nekam do IB6, zatim zadny ohlas
> (zkusim jinou adresu)
> Zaver : IB6 beta je zatim nepouzitelna :-(
Nesudte nerozvazne ...
V dokumentaci je jasne psano :
CREATE VIEW name [(view_col [, view_col ...])]
AS <select> [WITH CHECK OPTION]
kde view_col je jmeno sloupce pro vytvarene VIEW a je nutno jej pouzit
prave pro vypocitane sloupce ...
> Jiri Hostinsky
> hostinsky(zv)teska(tec)cz
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
velikost Taskbaru
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 03.5.2000 12:35:13
Ahoj,
Zbysek Hlinka wrote:
> On 3 Apr 00, at 20:32, Daniel Krej�� wrote:
>
> > Uz jsem se tady na to ptal jednou, ale asi jste to prehlidli, tak to
> > zkousim jeste jednou. Nevite kde by mohly byt zapsany rozmery ( vyska,
> > resp. s�rka ) a umisteni TaskBaru. Nebo jestli na to existuje v D3
> > nejaka procedura. Prosim pomozte.
>
> Kdyz jsem chtel udelat zobrazeni formularu k Lokalizatoru, narazil
> jsem prave u D3 na problem, ze jedna standardni komponenta
> neukladala do DFM vsechny koordinaty, pokud byly defaultni.
treba jsem dobre neporozumel predchozi formulaci, ale hodnota property,
ktera je specifikovana jako default, se prece do DFM nikdy nema ukladat - od
toho je klicove slovo default pri definici property zavedeno
S pozdravem,
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
Velikonoce
[*] Ko��tkov� Jolana <kotatko(zv)nym.pvt(tec)cz> - 3.5.2000 13:00:50
Na zminovanou adresu jsem se nedivala, ale my to mame resene takhle:
function TFrmJObecne.Velikonoce(Rok: Integer): String;
var {vrac� datum velikonocn�ho pondel�}
CorrCent, Month, A, B, C, D, E: Integer;
begin
CorrCent := 0;
case Rok of {Korekce na
stolet�}
1700..1799: CorrCent := 5;
1800..1899: CorrCent := 6;
1900..2099: CorrCent := 0;
2100..2199: CorrCent := 1;
2200..2299: CorrCent := 2;
2300..2499: CorrCent := 3;
else CorrCent := 4;
end; {case Rok}
A := Rok mod 19; {v�pocet
dne}
B := Rok mod 4;
C := Rok mod 7;
D := (19*A + 24) mod 30;
E := 23 + D + ((2*B + 4*C + 6*D + 5 + CorrCent) mod 7);
if E > 31 then {v�pocet
mes�ce}
begin
Month := 4;
E := E - 31;
end else Month := 3;
Result := IntToStr(E) + '.' + IntToStr(Month) + '.' + IntToStr(Rok);
end; {function TFrmJObecne.Velikonoce(Rok: Integer): String}
Ahoj JOlana
-----P�vodn� zpr�va-----
Od: Milan Schembera [mailto:spravce(zv)spektrum(tec)cz]
Odesl�no: 3. kv�tna 2000 10:40
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Velikonoce
Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce? Nechce
se mi po nich moc namahat sedou kuru.
S pozdravem a pranim hezkeho dne
Milan Schembera
Spravce IT
SPEKTRUM CZ a.s.
mailto:spravce(zv)spektrum(tec)cz
mailto:milan(zv)missoftware(tec)cz
MSSQL - Standard vs Desktop
[*] Robert Zak <nrsys(zv)psn.sk> - 3.5.2000 13:14:51
Dobry den,
Instalujem mssql7 (120 dnova verzia) na NT4. Aky je rozdiel medzi Standard
(pise tam full) a Desktop Edition?????
Cital som licenciu aj knihu, o rozdiele som sa nedocital - resp. nikde som
nic co by sa toho tykalo nenasiel (alebo nepochopil).
Pri Full instalacii nefunguje Import a Export dat.
Dakujem
Robo
Velikonoce
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 3.5.2000 13:41:13
> http://www.softnov(tec)cz/article.php?id=10685
> > Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce?
Ja si trochu zastouram :) V roce 1954 bylo velikonocni pondeli 19.4. a uvedeny algoritmus vrati 26.4.
Zajimave. Nicmene pro me ucely uvedeny postup staci. Potreboval jsem udelat planovaci kalendar pro nasi mzdovou ucetni a nase firma v roce 1954 neexistovala ;-) To jsi na to prisel metodou pokusu a omylu ? Existuji i Velikonoce v blizke budoucnosti, ktere to vrati chybne?
S pozdravem a pranim hezkeho dne
Milan Schembera
Spravce IT
SPEKTRUM CZ a.s.
mailto:spravce(zv)spektrum(tec)cz
mailto:milan(zv)missoftware(tec)cz
Vyruseni WinKey
[*] Karel Huda� <KarelH(zv)cashreform(tec)cz> - 3.5.2000 13:58:10
Existuje utilitka KeyRemap (mela by byt soucasti PowerToys) ktera dokaze,
mimo jine, vyresit globalne problem s WinKey.
Pokud by byl problem s jejim nalezenim na internetu, jsem schopen ji poslat.
Pripadne zadosti na muj soukromy mail.
A to je vse
KarelH
----- P�vodn� zpr�va -----
Od: Daniel Krej��
Komu: delphi
Odesl�no: 3. dubna 2000 19:17
P�edm�t: Vyruseni WinKey
Nevite nejak v D3 vyrusit stisk tzv. WinKey na Windows Natural Keybord ( to
tlacitko s tim osklivym okynkem pripominajicim........zkratka Microsoft
Windows ). Diky za pomoc.
Velikonoce
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 3.5.2000 14:15:29
>
> http://www.softnov(tec)cz/article.php?id=10685
>
> Slavek
>
> > Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce?
>
> > Milan Schembera
>
Ja si trochu zastouram :) V roce 1954 bylo velikonocni pondeli 19.4. a uvedeny algoritmus vrati 26.4.
J.G.
---------------
Ja ten clanek necet, ale mam pocit, ze tam jsou nejake vyjimky, velikonoce
nesmi byt po 25.4. Taky tam je nejaka dolni mez.
Radim Kunz
MSSQL - Standard vs Desktop
[*] Lubo Fule <fule(zv)sct.sk> - 3.5.2000 14:17:04
Desktop verziu mozes instalovat aj na W9x, pretoze je zalozena na MSDE.
Desktop ma iste obmedzenia:
max velkost jednej databazy je 2GB a ked sa pripoji viac ako 5 uzivatelov,
tak je vykon umelo znizovany s kazdym dalsim uzivatelom. Pokial
nepredpokladas viac ako 5 uzivatelov a databazu vacsiu ako 2GB, tak je jedno
aku verziu nainstalujes.
L.
> Instalujem mssql7 (120 dnova verzia) na NT4. Aky je rozdiel medzi Standard
> (pise tam full) a Desktop Edition?????
> Cital som licenciu aj knihu, o rozdiele som sa nedocital - resp. nikde som
> nic co by sa toho tykalo nenasiel (alebo nepochopil).
Tutil
[*] Tibor Galik <tgalik(zv)vsz.sk> - 03.5.2000 14:34:20
Ahoj,
prosim Vas nenasiel niekto %subj% pre BDE ver 5.0.1. Pozrel som v historii konferencii na www adresu odporucanu Petrom Vonesom, ale posledna verzia je tam 5.0 a mne SW pre opravu databazy pyta vyssiu verziu.
Diky
tg
S pozdravom / Regards
Tibor Galik
tgalik(zv)vsz.sk
Inicializace BDE
[*] azeleny(zv)csas(tec)cz - 3.5.2000 15:06:04
DDV vespolek,
potreboval jsem prnest program psany v D4 z pocitace s WIR95 na WIR98.
I vzal jem instalaci, kterou jsem kdysi k programu udelal instalshieldem (D4
prof) a pustil setup. Obsahoval i starsi verzi programu, aktulane pouzivany
jsem chtel prekopirovat posleze.
Vysledek by ten, ze ani BDE administrator se nerozebehnul Error initialiing
BDE at address...
Zkusil jsem si prinest pro otetovani DBD a spustit jej, se stejnym
vysle3dkem, jenom se hlaska zmenila na Could not initialize BDE
(predpokaldam, ze si odpustili do hlasky popis zbytku erroru).
Zkusil jsem pak nainstalovat novejsi BDE, vysledkem byl BDE administrator,
ktery jiz nebyl umisten v program files/borland/common files/bde, ale v
program files/shared/borland/bde,
teno BDE administrator se jiz byl ocohte spustit, ale jakakoliv BDE
aplikace, vcetne puvodniho BDE adminu nejdou spiustit se stejnou chybou.
Nevite co s tim?
Pomuze vzit posledni verzi BDE a nainstalvat ji (jak odstranim predchozi
verze - staci zabit registry a soubory pro Borland)?
Diky za kazdy napda, pripadne za rady, jak se dopatrat problemu.
Win98 byly ciste, jenom s MS office (pripostim, ze slovo "jenom" neni uplne
to ono...).
a.Velikonoce
[*] Grubhoffer(zv)software602(tec)cz - 3.5.2000 15:08:20
> Ja si trochu zastouram :) V roce 1954 bylo velikonocni
> pondeli 19.4. a uvedeny algoritmus vrati 26.4.
>
> Zajimave. Nicmene pro me ucely uvedeny postup staci.
> Potreboval jsem udelat planovaci kalendar pro nasi mzdovou
> ucetni a nase firma v roce 1954 neexistovala ;-) To jsi na to
> prisel metodou pokusu a omylu ? Existuji i Velikonoce v
> blizke budoucnosti, ktere to vrati chybne?
>
Teoreticky existovat mohou. Jde o to ze Velikonocni pondeli je sice pondeli po prvni sobote po prvnim jarnim uplnku, ale cirkev ma sva "specifika" a to
- jaro zacina vzdy 21.3. (zatimco astronomicky napr. letos uz 20.3.) - s tim se ale vetsina algoritmu vyporadava
- velikonocni nedele muze byt nejpozdeji 25.4. - pokud by vysla na 26.4., posouva se o tyden dopredu (stalo se v roce 1981) - na tom uz nektere algoritmy odpadavaji... Uvedeny s tim pocita.
- v jedne 19-lete periode (viz algoritmus) nesmi byt velikonocni nedele 2x v nejzassim pristupnem datu (25.4.). Pokud by to nastalo, posouva se o tyden dopredu - proto byla v roce 1954 18.4.
Zda se ze to cirkev v roce 325 vymyslela tak aby se po cca 1700 letech programatori nenudili...
Cele to bylo popsane 19.4. ve Vecerniku Praha v rozhovoru s Pavlem Najserem ze Stefanikovy hvezdarny (je to i na WWW).
J.G.
---
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
LABELy
[*] L. ZITA <konference(zv)sales(tec)cz> - 3.5.2000 15:20:13
Jeste mala konkretni poznamka k problemu.
Nemela by se porovnavat primo vlastnost color, protoze napriklad
clWindow<>clWhite ale oboji je (podle nastaveni systemu) White cili
nekontrastni.
Pokud by to melo byt uplne UF bylo by treba urcit nejakou hranici kontrastu
pomoci skutecne RGB hodnoty dane barvy.
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
Chybne zobrazovani fontu !!!
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 3.5.2000 15:29:41
copak nikdo nedelal napr. aplikaci pod Win9x s malym fontem (96) a uzivatel
mel nastaveny velke fonty (120)?
HELP ME PLEASE!
zkousel jsem na OnCreate formulare...
PixelsPerInch := Screen.PixelsPerInch;
Scaled := True;
...ale to nemelo zadny vliv. Alespon u me.> D5 Prof, Win 98
>
> Mam velky problem a potreboval bych urgentne pomoci.
>
> Moje aplikace delana pod Win98 se u uzivatele na Win95/98 zobrazuje bez
> problemu, ale jak ji nainstaluji na Win NT 4.0, tak se spatne zobrazuje
> velikost znaku vuci ostatnim objektum. Napr. V listboxu se pod Win95/98
> zobrazi spravne sada textu, ale pod NT se texty to listboxu horizontalne
> nevejdou.
>
> Jakoby byla pismena o chlup vetsi. ::::-o
>
> Kdo vi, at prosim pomuze. Dekuji predem, protoze jak kdosi
> pravil, zadem je
> to zakazane.
>
> Ing. Petr Svejda
> software specialist
>
>FileList
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 3.5.2000 15:32:39
Sorted nastavit nemuzu, protoze pak nejde serazovat podle velikosti, data,
atd.
Ale ten druhy zpusob vyskousim dik.
Zdravi
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 02, 2000 10:41 PM
Subject: Re: FileList
> From: Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz>
> > Mam vyskouseny ze je to tema objektama. Kdyz je vypnu jde to asi 10x
> > rychleji. Ty objekty ukladam normalne do ListBox.Lines coz je TStrings.
>
> Ahoj,
>
> To je ale neco zcela jineho. Za prve, TStrings neni potomkem TList a za
> druhe ListBox.Lines je sice typu TStrings, ale vlastni implementace neni
> pomoci "cisteho" Delphi kodu, ale jedna se o jakysi obal nad API ListBoxu
> a proto je to tak pomale. Pokud chces tridit ListBox nastav jeho vlastnost
> Sorted na True, popripade si data uloz do TStringListu nebo TObjectListu.
>
> Petr Vones, amatersky programator
>
>
>Velikonoce
[*] jdanek(zv)fnbrno(tec)cz - 3.5.2000 15:32:24
Posilam algoritmus, ktery je funkcni a nema problemy a tez pocita
spravne i uvedene Velikonoce v roce 1954.
Funkce vraci datum Velikonocni nedele.
function Velikonoce(Rok:Word):String;
var Ve_A, Ve_B, Ve_C, Ve_K, Ve_P, Ve_Q,Ve_F, Ve_G,Ve_D, Ve_E : LongInt;
Den, Mesic, SRok : String;
begin
Ve_A:=Rok mod 19;
Ve_B:=Rok mod 4;
Ve_C:=Rok mod 7;
Ve_K:=Trunc(Rok/100);
Ve_P:=Trunc(((8 * Ve_K) + 13)/25);
Ve_Q:=Trunc(Ve_K/4);
Ve_F:=(15 - Ve_P + Ve_K - Ve_Q) mod 30;
Ve_G:=(4 + Ve_K - Ve_Q) mod 7;
Ve_D:=((19 * Ve_A) + Ve_F) mod 30;
Ve_E:=((2 * Ve_B) + (4 * Ve_C) + (6 * Ve_D) + Ve_G) mod 7;
if (Ve_D + Ve_E) <= 9 then
begin
Str(22 + Ve_D + Ve_E,Den);
Den:=Trim(Den) + '.';
Mesic:='3.';
end
else
begin
Str(Ve_D + Ve_E - 9,Den);
Den:=Trim(Den) + '.';
Mesic:='4.';
end;
if (Ve_D = 29) and (Ve_E = 6) then Den:='19.';
if (Ve_D = 28) and (Ve_E = 6) and (Ve_A > 10) then Den:='18.';
Str(Rok:4,SRok);
Velikonoce:=Den + Mesic + SRok;
end;
---------------------------------------------------------------------------------------------
zdravi
J.Danek
>
> http://www.softnov(tec)cz/article.php?id=10685
>
> Slavek
>
> > Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce?
>
> > Milan Schembera
>
Ja si trochu zastouram :) V roce 1954 bylo velikonocni pondeli 19.4. a
uvedeny algoritmus vrati 26.4.
J.G.
Velikonoce
[*] Zdenek Moravec <zmoravec(zv)klet(tec)cz> - 3.5.2000 13:36:42 -0000
Velikonocni svatky drzi pevne v rukou cirkev, takze to rozhodne nemuze byt
jednoduche:
http://www.astro(tec)cz/cas/tisk15.htm
nize uvedeny algoritmus tedy obcas nefunguje.
Zdenek Moravec
Hvezdarna Klet
----- P�vodn� zpr�va -----
Od: Radim Kunz <privat(zv)casestudio.com>
Komu: Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 3. kv�tna 2000 12:15
P�edm�t: Re: Velikonoce
>
> >
> > http://www.softnov(tec)cz/article.php?id=10685
> >
> > Slavek
> >
> > > Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce?
> >
> > > Milan Schembera
> >
>
> Ja si trochu zastouram :) V roce 1954 bylo velikonocni pondeli 19.4. a uvedeny
algoritmus vrati 26.4.
>
> J.G.
>
> ---------------
>
> Ja ten clanek necet, ale mam pocit, ze tam jsou nejake vyjimky, velikonoce
> nesmi byt po 25.4. Taky tam je nejaka dolni mez.
> Radim Kunz
>
>
>
Velikonoce
[*] Martin Sekanina <marsek(zv)softcell(tec)cz> - 3.5.2000 16:41:35
To je zpusobeny tim, ze urceni data velikonoc ma jeste jednu podminku navic:
pokud vyjdou dvakrat za jakysi lunarni cyklus (coz je, tusim, doba mezi tim
nez je uplnek opet ve stejny den) do posledniho tydne pred kvetnem, tak se
ty druhe velikonoce presunou o tyden zpet.
M.
> -----Original Message-----
> From: spravce(zv)spektrum(tec)cz [mailto:spravce(zv)spektrum(tec)cz]
> Sent: Wednesday, May 03, 2000 1:41 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Velikonoce
>
> > http://www.softnov(tec)cz/article.php?id=10685
> > > Nemate nekdo sikovny algoritmus, jak spocitat, kdy jsou Velikonoce?
>
> Ja si trochu zastouram :) V roce 1954 bylo velikonocni pondeli 19.4. a
> uvedeny algoritmus vrati 26.4.
>
> Zajimave. Nicmene pro me ucely uvedeny postup staci. Potreboval jsem
> udelat planovaci kalendar pro nasi mzdovou ucetni a nase firma v roce 1954
> neexistovala ;-) To jsi na to prisel metodou pokusu a omylu ? Existuji i
> Velikonoce v blizke budoucnosti, ktere to vrati chybne?
>
>
> S pozdravem a pranim hezkeho dne
>
> Milan Schembera
> Spravce IT
> SPEKTRUM CZ a.s.
> mailto:spravce(zv)spektrum(tec)cz
> mailto:milan(zv)missoftware(tec)cz
>
> LABELy
[*] L. ZITA <konference(zv)sales(tec)cz> - 3.5.2000 17:12:59
Jeste mala konkretni poznamka k problemu.
Nemela by se porovnavat primo vlastnost color, protoze napriklad
clWindow<>clWhite ale oboji je (podle nastaveni systemu) White cili
nekontrastni.
Pokud by to melo byt uplne UF bylo by treba urcit nejakou hranici kontrastu
pomoci skutecne RGB hodnoty dane barvy.
Ludek
P.S Odesilam to do konference dnes uz potreti ale jeste ani jednou to
nedorazilo
---
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
Zahlavi a zapati u sestav v Sinee
[*] Daniel Fojt�k <xfojtik(zv)albert.osu(tec)cz> - 3.5.2000 17:43:52
Chtel jsem se zeptat na problem, na ktery jsem narazil pri vytvareni sestavy
pomoci komponenty fy Sinea:
Potrebuji vytvorit sestavu prezentujici fakturu (ktera muze byt pripadne
vicestrankova). Nevite nekdo jak zajistit u teto komponenty aby se zapati,
kde je zesumovana castka k fakturaci, vytiskla jen na posledni strance a to
uplne dole????? Uz si s tim hraju asi tak 2 hodiny a porad na to nemohu
prijit.
Predem diky za odpoved.
Dan
P.S.: Na konec stranky v detailu nelze nic umistit