Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Chyba v Async Pro 2.52.
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.10.1998 23:38:45
> >Zkousel jsi novy update?
> Mam 2.54, psali, ze neco podniknou ve verzi 2.55.
Verze 2.55 uz existuje asi mesic...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
Hromadna zmena vlastnosti - reseni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.1998 00:47:40
"Ing. Zdenek Sraier" wrote:
>
> ----------
> >Odes�latel: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
> >
> >mam nasledujici problem: Potrebuji hromadne v nekolika formularich >zmenit
> >font u nekterych komponent. V archvu konference jsem nasel nekolik
> >reseni, ale ty se daji pouzit pouze na nektere vlastnosti,
> >jako je treba 'Enabled'.
> >Vlastnost 'Font' je v TControl protected.
> >Jak se to da jednoduse udelat ???
> -----------
>
> Dekuji vsem za rady, hlavne Petrovi Vonesovi.
> Bohuzel, ani jeho :-)))) varianta nefungovala.
>
> Po nekolika experimentech jsem dospel k nasledujicimu reseni:
>
> Neda se pouzit TControl nebo TControlHack=class(TControl) a
> TControlHack(Controls[I]).Font:=xxx, protoze nenastavi DB komponenty
> ani komponenty umistene treba v TGroupBoxu.
Ahoj,
Tak lehce se nevzdam :-)
To ze to nefunguje v tomto pripade je logicke, protoze v tom mem prikladu se prochazel
pouze seznam controlu (GroupBox je jeden control). Pokud je treba nastavit vlastnosti
i u controlu ktere obsahuji dalsi komponenty tak se to opravdu musi udelat jinak:
Varianta 1. (ale ta se mi moc nelibi) ------------------
type
TControlHack = class(TControl);
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TControl then
TControlHack(Components[I]).Font.Style := [fsBold];
end;
Varianta 2. --------------------
uses
TypInfo;
function ControlFont(Component: TComponent): TFont;
var
PropInfo: PPropInfo;
begin
Result := nil;
if Component <> nil then
begin
PropInfo := GetPropInfo(Component.ClassInfo, 'Font');
if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) and
(GetTypeData(PropInfo^.PropType^)^.ClassType = TFont) then
Result := TFont(GetMethodProp(Component, PropInfo).Code);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
CFont: TFont;
begin
for I := 0 to ComponentCount - 1 do
begin
CFont := ControlFont(Components[I]);
if CFont <> nil then CFont.Style := [fsBold];
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Vyska taskbaru
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 12.10.1998 07:14:16
Left:=GetSystemMetrics(sm_cxFullScreen)-Width;
Top:=GetSystemMetrics(sm_cyFullScreen)-Height+GetSystemMetrics(sm_CyCaption)
;
Posune tvuj form tak, aby sedel presne na taskbaru.
>Lze nejak zjistit vyska TaskBaru, jelikoz
>Screen.Height vrati velikost obrazovky
>a bych potreboval umistit okno tesne nad Taskbar.
Zajimavy problem s FileMode
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 12.10.1998 07:55:59 -0000
Ahoj vsem,
setkal jsem se s nasledujicim problemem:
Potreboval jsem udelat konverzi z textoveho souboru do databazove tabulky.
Nejdriv jsem udelal funkci pro kontrolu struktury:
function TCreateDbTable.CheckTXT(TXTFileName:string):boolean;
var fr:TextFile;
z:string;
PosTab:integer;
begin
AssignFile(fr,TXTFileName);
FileMode:=0;
Reset(fr);
repeat
readln(fr,z);
...............
blablabla...
..............
until eof(fr);
result:=true;
CloseFile(fr);
end;
A pak jsem v jine funkci provadel samotnou konverzi:
...........
AssignFile(fr,TXTFileName);
FileMode:=0;
Reset(fr) ; A TADY TO VZDYCKY SPADLO S TIM, ZE JE ACCESS DENIED !!!
repeat
readln(fr,z);
.............
Uz jsem byl z toho magor, protoze radek CloseFile(fr) z predchozi funkce
probehl a ja jsem si myslel, ze soubor se tim zavre. Jenze ono to tak
nebylo a ja nevedel proc. Tak jsem po velkem laborovani zkusil odstranit
radky FileMode:=0 a ejhle, uz to slo ! Nevi nekdo, proc tam FileMode:=0
vadi ?? Ono je sice v helpu napsane, ze se nema FileMode pouzivat pro
textove soubory, ale proc se to projevuje takhle blbe ??
Diky za vsechna nakopnuti.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
External funkce
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.10.1998 08:19:08
Ahoj,
dovolim si mit asi dost priblbly dotaz, ale presto se zeptam. Chtel
bych zavolat z Delphi 1 nejakou funkci treba z knihovny User32.Dll (cast
WINAPI32 ?). Je to vubec mozne? A jak bych to mel udelat (vlastni deklaraci
external procedury napr. jako ve WinProcs.Pas...???) ? Dekuji za kazdou
radu. Jaro B.Ulozeni property THeader
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.10.1998 08:27:12
Uz se mi to podarilo vyresit. TFormPlacement i TFormStorage maji udalost
OnRestorePlacement pro restaurovani vlastnosti na formu a udalost
OnSavePlacement k ulozeni vlastnostni. Dopsal jsem pro runtime vlastnosti
kratky kod pro ulozeni/nacteni do/z ini souboru a chodi to a je to i
jednoduche. Jaro B.
> -----P�vodn� zpr�va-----
> Od: Micrel [SMTP:micrel(zv)micrel(tec)cz]
> Odesl�no: 10. listopadu 1998 19:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ulozeni property THeader
>
> Ahoj,
>
> Prosim o radu. Potrebuji ulozit u komponentu THeader i sirku jednotlivych
> sekci ulozenou v runtime property SectionWidth[I]. Pouzil jsem
> TFormStorage
> z RX library, s jejiz pomoci jsem ulozil vetsinu potrebnych veci ale
> SectionWidth normalne nejde. Je mozne zabezpecit ulozeni do INI souboru i
> jinak - ale tak, aby se pri uzavreni formulare samo do ini souboru ulozilo
>
> a pri vyrvoreni formulare se z neho restaurovalo ?
>
> Diky za kazdou radu
>
> Jaro B.Privitani a dotaz.
[*] Robert Van�k <dingo(zv)dingo(tec)cz> - 12.10.1998 08:29:24
Zdravim vsechny delphisty a pocitacniky.
Hned pro zacatek bych mel jeden dotaz ohledne databazi.
V tabulce mam numerickou polozku. Vet v tabulce je asi 3000.
Kdyz dam hledat zaznam prikazem GotoKey, FindKey, popr. GotoNearst, FindNearst,
tak to vetsinu zaznamu najde spravne, ale asi 100 zaznamu, ikdyz jsou v tabulce zadany spravne
a hledam spravne cislo, tak ho to proste nenajde nebo preskoci, skoci tesne za nej,
nebo o 8 zaznamu za nej.
Proste nevim, cim to muze byt. Nemuzete me nekdo poradit?
Mejte se vsichni pekne
Bob
ComboBox (3)
[*] V�t�zslav Gazda������u��n�?��? - 12.10.1998 08:51:51
>To jsem delal, teda ne primo pro ComboBox, ale neni to zas tak
>slozity, myslim, uz je to dlouho, ale jestli chces, mrknu se ti po tom.
>
>Tim
To je vlastne taky pravda. Chtel bych to udelat obecne pro okenni tridu
EDIT. Pro COMBOBOX by se jenom vytvorila vyhledavaci procedura, ktera bude
vyhledavat ve svem seznamu. Pro jiny control by mohla byt jina vyhledavaci
procedura, ktera treba muze vyhledavat v registru. Ta obsluha po vlozeni
znaku vsak zustane stejna u vsech controlu.
Diky, ze se na to mrknes.QuickReport
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 12.10.1998 09:21:43
Prosim prosim, pouzivam nejnovejsi Quick report a mam takovy
zajimavy problem. V preview jsou nahore tlacitka s bitMapama.
U nekterych zakazniku, se tam ty bitmapy neobjevi a tlacitka jsou
prazdny. Vypada to strasne.
Diky za napady.
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Akcni SQL dotaz
[*] Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz> - 12.10.1998 09:48:59
Mam pdx tabulku:
pole ID => Number, primarni klic
M => Memo, 1
Pustim na ni akcni dotaz:
Update ":alias:tabulka" set ID=2 where id=1
Zmeni hodnotu z ID=1 na ID=2, to funkuje az na to, ze se ztrati udaje v poli M.
Po odstraneni primarniho indexu u pole ID to funguje OK.
Mohl by mi nekdo rici zda je to normalni nebo delam neco spatne ?
Hezky den preje Vlada
BDE 4.51
Akcni SQL dotaz
[*] Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz> - 12.10.1998 09:57:26
Mam pdx tabulku:
pole ID => Number, primarni klic
M => Memo, 1
Pustim na ni akcni dotaz:
Update ":alias:tabulka" set ID=2 where id=1
Zmeni hodnotu z ID=1 na ID=2, to funkuje az na to, ze se ztrati udaje v poli M.
Po odstraneni primarniho indexu u pole ID to funguje OK.
Mohl by mi nekdo rici zda je to normalni nebo delam neco spatne ?
Hezky den preje Vlada
BDE 4.51
Key violation in MyTable.DB ???
[*] Jiri Sladek <chmelar(zv)oasanet(tec)cz> - 12.10.1998 10:02:07
Mam maly dotaz k hlaseni Key Violation.
Da se nejak zaridit, aby se hlasilo i jmeno tabulky, kam se mela ta
duplicitni veta zapsat ?
Diky. Jirka Sladek
ListView
[*] sup(zv)svitap(tec)cz - 12.10.1998 10:17:22
Ahoj delphini!
Jak udelam vetsi rozestupy mezi polozkama v Listview, nebo vetsi sirku
ListView.Items pri ViewStylu:=vsIcon v Delphi2 ?? Zadny
ListView.Items.Width/Height jsem nikde nenasel...
Diky predem
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
SVITAVY
Tel: ++420-461-568 202
Fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
Relativni posunuti vice komponent na formu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 12.10.1998 10:23:52
Jeste bych doplnil, ze normalne na formu lze vybrat vice komponent "tazenim" mysiii, ale pokud jsou komponenty napriklad na panelu nebo uprostred bevelu, tak "tazenim" pojede panel, ale pri soucanem drzeni CTRL uz je to ono.
----------
Od: Roman Toda[SMTP:normex(zv)mail.pvt.sk]
Odesl�no: 11. listopadu 1998 20:00
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Relativni posunuti vice komponent na formu
> spatne jsem se vyjadril, jednalo se mi o posun pomoci CTRL+sipky pri
> navrhu formu. Moc Vam vsem dekuji, ani nevite, co jste mi usetrili prace.
Snad Ti este pomoze:
1.) Ked drzis Shift a vyberies komponentu z palety tak ju mozes opakovane
vkladat na form.
2.) Ked mas zlozitejsie okno (panely, bevely gridy) a chces vybrat niektory
panel alebo formu v Object inspectore tak nemusis pracne vyhladavat v comboboxe
inspectora ale mozes vybrat komponentu a tak dlho stlacat ESC kym sa nedostanes
k parentovy ktoreho potrebujes
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
External funkce
[*] Lubo Fule <fule(zv)sct.sk> - 12.10.1998 10:29:49
Mam pocit, ze to asi nejde, uz len preto, ze D1 ani nevie o tom, ze existuje
cosi 32-bitove.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Bene� Jaroslav
> Sent: Thursday, November 12, 1998 8:19 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: External funkce
>
>
> Ahoj,
> dovolim si mit asi dost priblbly dotaz, ale presto se zeptam. Chtel
> bych zavolat z Delphi 1 nejakou funkci treba z knihovny User32.Dll (cast
> WINAPI32 ?). Je to vubec mozne? A jak bych to mel udelat (vlastni
> deklaraci
> external procedury napr. jako ve WinProcs.Pas...???) ? Dekuji za kazdou
> radu. Jaro B.
>
>
Privitani a dotaz.
[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 12.10.1998 10:29:11
Zkus znovu vytvorit indexy pro danou tabulku. Mne to delalo v jedne
aplikaci v Delphi1, zadnou chybu program nevyhodil, ale jiste dane
dve vety byly vzdy na konci, kde samozrejme nemely byt. Mozna to
pomuze.
S pozdravem
J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
> -----P�vodn� zpr�va-----
> Od: Robert Van�k [SMTP:dingo(zv)dingo(tec)cz]
> Odesl�no: 12. listopadu 1998 8:29
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Privitani a dotaz.
>
> Zdravim vsechny delphisty a pocitacniky.
> Hned pro zacatek bych mel jeden dotaz ohledne databazi.
>
> V tabulce mam numerickou polozku. Vet v tabulce je asi 3000.
> Kdyz dam hledat zaznam prikazem GotoKey, FindKey, popr. GotoNearst,
> FindNearst,
> tak to vetsinu zaznamu najde spravne, ale asi 100 zaznamu, ikdyz
> jsou v tabulce zadany spravne
> a hledam spravne cislo, tak ho to proste nenajde nebo preskoci,
> skoci tesne za nej,
> nebo o 8 zaznamu za nej.
> Proste nevim, cim to muze byt. Nemuzete me nekdo poradit?
>
> Mejte se vsichni pekne
>
> Bob
QuickReport
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 12.10.1998 10:46:36
Sice jsem QR v zivote nevidel :-) ale pripomina mi to problem s odlisnou
verzi COMCTL32.DLL
Zkus tam nainstalovat IE4, nebo si sezen tu knihovnu jinak.......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Radek KALA [SMTP:delphi(zv)betacontrol(tec)cz]
> Odesl�no: 12. listopadu 1998 9:22
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: QuickReport
>
> Prosim prosim, pouzivam nejnovejsi Quick report a mam takovy
> zajimavy problem. V preview jsou nahore tlacitka s bitMapama.
> U nekterych zakazniku, se tam ty bitmapy neobjevi a tlacitka jsou
> prazdny. Vypada to strasne.
>
> Diky za napady.
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Mostecka 15, 614 00
> tlf. : + 420 5 4532 1112 / 2413
> fax : + 420 5 4521 1501
> GSM : + 420 603 85 75 15
QuickReport
[*] milank(zv)gratex.sk - 12.10.1998 10:49:57
Ahoj. Moja rada bude asi slabou naplastou. Presne to iste sa mi stalo u
zakaznika a asi po tyzdni to zmizlo, ked si zakaznik nahodou instaloval
MsExplorer4. Ale preco predtym nie a potom ano, sa ma nepytaj.
-----Original Message-----
From: Radek KALA [mailto:delphi(zv)betacontrol(tec)cz]
Sent: Thursday, November 12, 1998 9:22 AM
To: delphi-l(zv)fwd(tec)cz
Subject: QuickReport
Prosim prosim, pouzivam nejnovejsi Quick report a mam takovy
zajimavy problem. V preview jsou nahore tlacitka s bitMapama.
U nekterych zakazniku, se tam ty bitmapy neobjevi a tlacitka jsou
prazdny. Vypada to strasne.
Diky za napady.
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
QuickReport
[*] Jaroslav Pospisil <japos(zv)telecom(tec)cz> - 12.10.1998 11:14:21 -0800
Ja mam obdobny problem s instalaci Delphi 3 prof, kde po instalaci na Win NT
5.0 Beta server doslo k vypadku bitmap v palete komponent. Presneji receno
byly nahrazeny uplne jinymi bitmapami.
Instalace Delphi 4 prof je v poradku. Horsi je,se u obou verzi doslo ke
grafickemu poskozeni propertu editoru komponenty TMainMenu.
A nejhorsi je, ze QuickReport se v podstate u obou verzi zhroutil. Po
upgrade QR poslednimi knihovnami od QuSoft se QuickReport rozebehl, ale
neumi zpracovat korektne vice nez jednu stranku. Navic se poskodil property
editor pro TQRExpr.
Je zajimeve, ze pokud program prelozeny pod NT se spusti na Win98, 95, tak
QR pracuje korektne.
Rovnez doslo k uplnemu zhrouceni DatabaseDesktop, kde zmizela vsechna
tlacitka OK, Cancel ap. Misto nich tam zustali jen obdelnicky.
Podotykam, ze pokud se provede instalace pod Win 98 nebo 95 je vse v
poradku.
Jelikoz pouzivam Visual Studio 6.0, ktere se mi zase pod Win 98 nepodarilo
korektne nainstalovat - instalace se hroutila, zacal jsem pouzivat jako
nosny operacni system Win NT 5.0 Beta, ktery se jinak jevi jako velmi
stabilni a VS 6.0 pod nim pracuje velmi spolehlive.
Dekuji za kazdou radu.
Jaroslav Pospisil
JAPOS
Czech Republic
japos(zv)telecom(tec)cz
-----Original Message-----
From: Radek KALA <delphi(zv)betacontrol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Date: 12. listopadu 1998 0:55
Subject: QuickReport
>Prosim prosim, pouzivam nejnovejsi Quick report a mam takovy
>zajimavy problem. V preview jsou nahore tlacitka s bitMapama.
>U nekterych zakazniku, se tam ty bitmapy neobjevi a tlacitka jsou
>prazdny. Vypada to strasne.
>
>Diky za napady.
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Mostecka 15, 614 00
> tlf. : + 420 5 4532 1112 / 2413
> fax : + 420 5 4521 1501
> GSM : + 420 603 85 75 15
>Privitani a dotaz.
[*] Vojtech Albrecht <supervisor(zv)unicontrols(tec)cz> - 12.10.1998 11:37:38
Ahoj
Mas tabulku oindexovanou ?
Pokud ano tak zkus reindexovat, nebo pouzij SQL dotaz
Vojtech Albrecht
supervisor(zv)unicontrols(tec)cz
----------
Od: =?ISO-8859-2?Q?Robert_Van=ECk?=[SMTP:dingo(zv)dingo(tec)cz]
Odesl�no: 12. listopadu 1998 8:29
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Privitani a dotaz.
Zdravim vsechny delphisty a pocitacniky.
Hned pro zacatek bych mel jeden dotaz ohledne databazi.
V tabulce mam numerickou polozku. Vet v tabulce je asi 3000.
Kdyz dam hledat zaznam prikazem GotoKey, FindKey, popr. GotoNearst, FindNearst,
tak to vetsinu zaznamu najde spravne, ale asi 100 zaznamu, ikdyz jsou v tabulce zadany spravne
a hledam spravne cislo, tak ho to proste nenajde nebo preskoci, skoci tesne za nej,
nebo o 8 zaznamu za nej.
Proste nevim, cim to muze byt. Nemuzete me nekdo poradit?
Mejte se vsichni pekne
Bob
External funkce
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 12.10.1998 12:05:56
Vedet prece nemusi, staci snad napsat jen jmeno DLL knihovny a jindex
funkce. Myslel jsem si ze 32-bitova aplikace nemuze primo volat 16-bitove
knihovny (tohle delam tzv. thunkingem) ale 16-bitova aplikace muze volat
32-bit. knihovny. Nebo jsem v omylu? Jaro B.
> -----P�vodn� zpr�va-----
> Od: Lubo Fule [SMTP:fule(zv)sct.sk]
> Odesl�no: 12. listopadu 1998 10:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: External funkce
>
> Mam pocit, ze to asi nejde, uz len preto, ze D1 ani nevie o tom, ze
> existuje
> cosi 32-bitove.
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Bene� Jaroslav
> > Sent: Thursday, November 12, 1998 8:19 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: External funkce
> >
> >
> > Ahoj,
> > dovolim si mit asi dost priblbly dotaz, ale presto se zeptam. Chtel
> > bych zavolat z Delphi 1 nejakou funkci treba z knihovny User32.Dll (cast
> > WINAPI32 ?). Je to vubec mozne? A jak bych to mel udelat (vlastni
> > deklaraci
> > external procedury napr. jako ve WinProcs.Pas...???) ? Dekuji za kazdou
> > radu. Jaro B.
> >
> >
> Tvorba .HLP
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 12.10.1998 12:30:53
Zdravicko...
Mate nejaky tip na pouzitelny program pro tvorbu helpu? Nejlepe kdyby
byl WYSIWYG.
Dekuji za posilana URL.
F.
QuickReport
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 12.10.1998 12:57:11
Nejnovejsi knihovna ComCtl32 je na instalaci s Delphi 4
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 11:51
P�edm�t: RE: QuickReport
Sice jsem QR v zivote nevidel :-) ale pripomina mi to problem s odlisnou
verzi COMCTL32.DLL
Zkus tam nainstalovat IE4, nebo si sezen tu knihovnu jinak....... Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
Zajimavy problem s FileMode
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 12.10.1998 13:02:53
mozna by pomohlo udelat pred Close jeste Flush. Pokud se pouziva buffering
mode, je to skoto nutnost.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Petr Brant <pbrant(zv)softhome.net>
Komu: 'Konference Delphi' <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 9:37
P�edm�t: Zajimavy problem s FileMode
Ahoj vsem,
setkal jsem se s nasledujicim problemem:
Potreboval jsem udelat konverzi z textoveho souboru do databazove
tabulky.
Nejdriv jsem udelal funkci pro kontrolu struktury:
function TCreateDbTable.CheckTXT(TXTFileName:string):boolean;
var fr:TextFile;
z:string;
PosTab:integer;
begin
AssignFile(fr,TXTFileName);
FileMode:=0;
Reset(fr);
repeat
readln(fr,z);
...............
blablabla...
..............
until eof(fr);
result:=true;
CloseFile(fr);
end;
A pak jsem v jine funkci provadel samotnou konverzi:
...........
AssignFile(fr,TXTFileName);
FileMode:=0;
Reset(fr) ; A TADY TO VZDYCKY SPADLO S TIM, ZE JE ACCESS DENIED !!!
repeat
readln(fr,z);
.............
Uz jsem byl z toho magor, protoze radek CloseFile(fr) z predchozi funkce
probehl a ja jsem si myslel, ze soubor se tim zavre. Jenze ono to tak
nebylo a ja nevedel proc. Tak jsem po velkem laborovani zkusil odstranit
radky FileMode:=0 a ejhle, uz to slo ! Nevi nekdo, proc tam FileMode:=0
vadi ?? Ono je sice v helpu napsane, ze se nema FileMode pouzivat pro
textove soubory, ale proc se to projevuje takhle blbe ??
Diky za vsechna nakopnuti.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
ComboBox
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 12.10.1998 13:06:51
V Rx-kach je TRxDbLookupCombo, ktere tohleto umi. Treba ti helpne omrknout
zdrojaky ;-)
Mac
V�t�zslav Gazda wrote:
> Zajimalo by mne jak se da vytvorit ComboBox, do ktereho kdyz se pise tak
> automaticky doplnuje text. Neco jako ComboBox v IE pro zadani adresy.
> Existuje pro toto nejaka podpora v API nebo si to musim udelat cele sam ?
> Nevi nekdo o nejakem prikladu ?
>
> Diky Vita
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================
Tvorba .HLP
[*] TP+ <tpplus(zv)zasova(tec)cz> - 12.10.1998 13:20:31
www.devgr.com
Bye
Baluch
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 13:04
P�edm�t: Tvorba .HLP
>Zdravicko...
>
>Mate nejaky tip na pouzitelny program pro tvorbu helpu? Nejlepe kdyby
>byl WYSIWYG.
>
>Dekuji za posilana URL.
>
>F.
>
>Editace SQL databaze
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 12.10.1998 13:38:28
Tendle problem me taky pekne otravuje. Ovsem ono to v podstate ani jinak nejde.
Ono ID se zapisuje az PO vlozeni udaje (at uz je to triggerem nebo primo nejakym
specialnim datovym typem - napr. IDENTITY u MS SQL). Ziskani teto hodnoty u MS
SQL se da udelat nekolika zpusoby:
1. Po vlozeni udaje nacist promennou (zv)(zv)IDENTITY z MS SQL serveru (v jednom
pripojeni - coz lze jen pres native link.
2. Pokud chci pouzit totez pro ODBC tak se neobejdu bez ulozene procedury, ktera
vlozi radek a vrati ID. (nelze totiz pres ODBC spustit 2 SQL prikazy - ale nekde
jsem zahlidnul komponentu, co by to mela umet, ovsem nezkousel jsem).
3. Momentalne posledni reseni, ktere pouzivame je pristup pres ADO. V rezimu
CursorLocation: clServer (v poslednim update ADO) vraci ADO hodnotu ID uplne v
pohode. Bohuzel ma tento pristup nektere nevyhody (nebudu zabihat do detailu),
takze to resime tak, ze pracuju s kurzory na klientovi clClient a na vkladani
udaju 'prepinam' na clServer. Nevyhoda je zatim mala podpora neMicrosoftich
produktu a 'detske nemoci'.
Podle toho, jak si psal postup na Oraclu, tak myslim, ze muzes byt jenom
spokojen :-)
Mac
Michal Motalik wrote:
> Ahojte,
>
> mam na vas dotaz ohledne databaze. Jakym zpusobem resite editaci SQL
> databaze v dbgridu, jestlize je primarni index tabulky generovan triggerem?
> Jedna se o to, ze trigger vygeneruje spravne cislo, ale BDE se ho nedozvi.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================
Privitani a dotaz.
[*] Robert Van�k <dingo(zv)dingo(tec)cz> - 12.10.1998 13:54:29
Zdravim vsechny,
diky vam, uz vsechno funguje jak hodinky.
Zkusil jsem misto indexu .CDX index .MDX a vsechno slape.
Co vy na to?
-----P�vodn� zpr�va-----
Od: Vojtech Albrecht [SMTP:supervisor(zv)unicontrols(tec)cz]
Odesl�no: 12. listopadu 1998 12:38
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Privitani a dotaz.
Ahoj
Mas tabulku oindexovanou ?
Pokud ano tak zkus reindexovat, nebo pouzij SQL dotaz
Vojtech Albrecht
supervisor(zv)unicontrols(tec)cz
----------
Od: =?ISO-8859-2?Q?Robert Van=ECk3D[SMTP:dingo(zv)dingo(tec)cz]
Odesl�no: 12. listopadu 1998 8:29
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: Privitani a dotaz.
Zdravim vsechny delphisty a pocitacniky.
Hned pro zacatek bych mel jeden dotaz ohledne databazi.
V tabulce mam numerickou polozku. Vet v tabulce je asi 3000.
Kdyz dam hledat zaznam prikazem GotoKey, FindKey, popr. GotoNearst, FindNearst,
tak to vetsinu zaznamu najde spravne, ale asi 100 zaznamu, ikdyz jsou v tabulce zadany spravne
a hledam spravne cislo, tak ho to proste nenajde nebo preskoci, skoci tesne za nej,
nebo o 8 zaznamu za nej.
Proste nevim, cim to muze byt. Nemuzete me nekdo poradit?
Mejte se vsichni pekne
Bob
Tabulka FoxPro
[*] Robert Van�k <dingo(zv)dingo(tec)cz> - 12.10.1998 14:02:05
Ahojte vsichni Delphimani,
nevite nahodou nekdo o nejake komponente, ktera by cetla tabulky FoxPro i s indexy?
Kdyz pouziji komponentu TTable. tak na to odpovi hlaskou "Invalid Index Descriptor"
a tanulku neotevre.
Vim, ze to jde prez ODBC, ale to je reseni ne moc vhodne.
Diky za kazdou radu. Budou urcite nad zlato.
Mejte se Bob
Key violation in MyTable.DB ???
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 12.10.1998 14:06:58
From: "Jiri Sladek" <chmelar(zv)oasanet(tec)cz>
To: "delphi" <delphi(zv)pinknet(tec)cz>
Subject: Key violation in MyTable.DB ???
Date sent: Thu, 12 Nov 1998 10:02:07 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> Mam maly dotaz k hlaseni Key Violation.
>
> Da se nejak zaridit, aby se hlasilo i jmeno tabulky, kam se mela ta
> duplicitni veta zapsat ?
>
> Diky. Jirka Sladek
>
Jedna moznost TTable ma Event OnPostError a tam si to muzes
chytit a vypsat co chces.
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Pomalej Paradox
[*] suvak(zv)pbko.sk - 12.10.1998 14:15:03
> Ahoj Delfini,
> mel bych dotaz ohledne Win 3.11 Delphi 1 a Paradoxu skrz BDE.
> Dodelal jsem app, donesl k zakaznikovi, nainstaloval data na server a s
> hruzou zjistil, ze rychlost app je nekde mezi snekem a zelvou. Pritom
> pocitace, ktere pouzivaji jsou myslim pro dany software pomerne
> dostacujici (486-100MHz nebo Pentium). I nejjednodusi SetKey, GotoKey
> probuhal tak pomalu, ze je app vpodstate nepouzitelna. Potreboval bych
> vedet jestli jsem to mohl nejak spatne nastavit nebo naprogramovat nebo
> jestli je to vlastnost se kterou se musim smirit.
> Diky za kazdou odpoved
> Marek Soukup
> Comberg s.r.o.
Stalo sa mi nieco podobne. Program si uzivatel instaloval sam podla mojich
pokynov na dialku.
Takisto mi tvrdil, ze program je strasne pomaly. Overoval som si postup
instalacie, konfiguraciu
servera, stanice, vsetko bolo OK. Nakoniec som tam zasiel sam a po dlhsom
patrani zistil, ze
na stanici ma instalovalny screensaver, ktory to vsetko sposoboval. Po jeho
odstraneni program
fungoval OK. Netvrdim, ze to bude screensaver, moze to sposobovat viacero
programov (napr.
Lexmark Printer Utility, Client Access AS/400 a pod., spominam len tie, o
ktorych to viem). A takisto to
moze byt uplne inak, spomenul som len to, co sa stalo mne. Odporucam
skontrolovat
co vsetko bezi na stanici, serveri a pod.==================================================================
Ing. Peter Suvak
office:
Priemyselna banka, a.s. Kosice
Sturova 27, Kosice
tel.: 095 / 6804 282
fax: 095 / 6804 510
E-mail: suvak(zv)pbko.sk
home:
Slobody 13
040 11 Kosice
tel.: 095 / 643 61 40
mobil: 0903 610 901
==================================================================
"Zamknuti" aplikace
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 12.10.1998 14:23:16
Zdravim !
Dneska nejak nemam inspiraci, proto vznasim nasledujici dotaz:
Potrebuji nejak elegantne zamknout aplikaci, aby pouze zobrazovala
aktualni data nejakeho mereni, ale aby do ni neslo dloubat (teda
zavirat, konfigurovat atd..), pouze po zapsani hesla. Screensaver musi
ale umet bezet, neni nezbytne nutne, aby se dal ovladat take zbytek
aplikaci (nejspis tam jine nepobezi).
Predem dekuji za reseni typu odpojeni klavesnice, zavreni do klece
apodobne.
dik, Honza
--
+-------------------------------------------------------------------+
|Jan Stuchlik, student CVUT FEL, Hardware & software servis |
|E-Mail: Jan.Stuchlik(zv)email(tec)cz WWW:http://cs.felk.cvut(tec)cz/~xstuchli|
+-------------------------------------------------------------------+Tvorba .HLP
[*] Petr Bozek <bozek(zv)box(tec)cz> - 12.10.1998 14:27:04
Nazdar.
Adresu si uz nepamatuju, ale program se jmenuje Help Scribble a zazipovany
ma 998 kB.
Jestli chces, muzu ti ho poslat.
Petr Bozek
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 14:09
P�edm�t: Tvorba .HLP
>Zdravicko...
>
>Mate nejaky tip na pouzitelny program pro tvorbu helpu? Nejlepe kdyby
>byl WYSIWYG.
>
>Dekuji za posilana URL.
>
>F.
>Key violation in MyTable.DB ???
[*] stingp1.eti(zv)mail.cez(tec)cz - 12.10.1998 14:32:32
Hi,
muzes vyuzit udalost TTable.OnPostError, pokud
pracujes s tabulkami,
pokud delas s SQL, jde to pomoci
bloku try..except (odchytis vyjimku,
prectes jeji zpravu
a pridas jmeno tabulky, do ktere data insertujes)
Pr:
try
Query1.ExecSQL;
except
on E: Exception do
begin
MessageBox(0,PChar('JmenoTabulky > ' + E.Me
ssage), 'Chyba', MB_ICONSTOP
or MB_OK);
end;
end;
Tento blok odchyti vsechny vyjimky, ktere pri provadeni
Query.ExecSQL
nastanou,
a jmeno tabulky, do ktere inser
tujes, vetsinou znas, takze ho akorat
pripojis ke zprave
.
Samozrejme muzes odchytavat pouze urcite druhy vyjimek
( on E:
EDatabaseError do ...)
Cau, Pavel
---------------------------------------
--
Pavel Stingl
programator, analytik
CEZ a.s., Elektr
arna Tisova
EMail : stingp1.eti(zv)mail.cez(tec)cz
-----------
------------------------------
"Jiri Sladek" <ch
melar(zv)oasanet(tec)cz> na 12.11.98 10:02:07
Odpov�zte pr
�m - delphi-l(zv)fwd(tec)cz
Komu: "delphi" <delphi(zv)pinknet(tec)cz>
Kopie: (Na v
dom�: Stingl Pavel/3420A/ETI/CEZ)
P
edm�t: Key violation in MyTable.DB ???
Mam maly dotaz k hlaseni Key Violation.
Da se nejak zaridit, aby se hlasilo i jmeno tabulky, kam se mela ta
duplicitni veta zapsat ?
Diky. Jirka Sladek
Tabulka FoxPro
[*] stingp1.eti(zv)mail.cez(tec)cz - 12.10.1998 14:41:00
[P��loha v souboru: att1.unk]
Pokud na indexu prilis nevisis, tak to jde udelat tak
, ze vyhodis
komprimovane indexy natvrdo z databaze (*.c
dx). Dela se to programove
(nebo i rucne, kdyz na to pri
jde) ze prepises 29 byte v DBF na nulu.
Snad ti to pomuz
e,
cau, Pavel
----------------------
-------------------
Pavel Stingl
programator, analytik
CEZ a.s., Elektrarna Tisova
EMail : stingp1.eti(zv)mail.ce
z(tec)cz
-----------------------------------------
Robert Van�k <dingo(zv)dingo(tec)cz> na 12.11.98 14:02:05
O
dpov�zte pro
�m - delphi-l(zv)fwd(tec)cz
Komu: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
Kopie: (Na v
dom�: Stingl Pavel/3420A/ETI/CEZ)
P
edm�t: Tabulka FoxPro
Ahojte vsichni Delphimani,
nevite nahodou nekdo o nejake komponente, ktera by cetla tabulky FoxPro i s
indexy?
Kdyz pouziji komponentu TTable. tak na to odpovi hlaskou "Invalid Index
Descriptor"
a tanulku neotevre.
Vim, ze to jde prez ODBC, ale to je reseni ne moc vhodne.
Diky za kazdou radu. Budou urcite nad zlato.
Mejte se Bob
"Zamknuti" aplikace
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 12.10.1998 14:57:55
Udelej k ni modalni okno a zobraz ho. Dej na nej treba TEdit a TButton
a v CloseQuery toho formu nastav CanClose=Edit1.Text='heslicko'
Protoze je okno modalni, aplikace, ze ktere je okno spusteno
je nedostupna.
Dobra.
----------
Od: Jan Stuchlik[SMTP:xstuchli(zv)feld.cvut(tec)cz]
Odesl�no: 12. listopadu 1998 14:23
Komu: Delphi konference
P�edm�t: "Zamknuti" aplikace
Zdravim !
Dneska nejak nemam inspiraci, proto vznasim nasledujici dotaz:
Potrebuji nejak elegantne zamknout aplikaci, aby pouze zobrazovala
aktualni data nejakeho mereni, ale aby do ni neslo dloubat (teda
zavirat, konfigurovat atd..), pouze po zapsani hesla. Screensaver musi
ale umet bezet, neni nezbytne nutne, aby se dal ovladat take zbytek
aplikaci (nejspis tam jine nepobezi).
Predem dekuji za reseni typu odpojeni klavesnice, zavreni do klece
apodobne.
dik, Honza
--
+-------------------------------------------------------------------+
|Jan Stuchlik, student CVUT FEL, Hardware & software servis |
|E-Mail: Jan.Stuchlik(zv)email(tec)cz WWW:http://cs.felk.cvut(tec)cz/~xstuchli|
+-------------------------------------------------------------------+
Font s anglickou vyslovnosti
[*] Martin Kukacka <CUCKOO(zv)ddm.jhrnet(tec)cz> - 12.10.1998 15:17:46 met-1mest
> Ahoj,
> nevite nekdo o nejakem fontu, ktery by obsahoval znaky, ktere se
> pouzivaji pri psani vyslovnosti anglickych slovicek ?
Ahoj,
taky jsem potreboval prepisovat vyslovnost anglictiny, ale nejlepsi
fonty pro prepis, ktere jsem kdy nasel - SIL DOLLUS IPA nejsou nic
moc - neobsahuji vsechny znaky...
- tak sem nakreslil vlastni font - jestli mas zajem tak si ho stahni -
umistim ho provizorne na nwfs.ddm.jhrnet(tec)cz/english/font/
Font obsahuje kompletne vsechny znaky mezinarodniho systemu pro
prepis anglictiny API.
Mam hotovy i cely slovnik vyuzivajici tento font - tiskne seznamy
nebo karticky... dystak napis ...
PS: Ozvi se, at to muzu zase smazat...
Cuckoo
Akcni SQL dotaz
[*] Vlada Cadsky <cadsky(zv)a-consultplus(tec)cz> - 12.10.1998 15:56:52
-----P�vodn� zpr�va-----
Od: Radoslav Balvan <balvanra(zv)datalock.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 16:45
P�edm�t: Re: Akcni SQL dotaz
>osobne si myslim, ze nie je bohvieco updatovat polia, ktore su v primarnom
>kluci - ten je predsa prave na to, aby hodnoty, ktore chces updatovat
>mali svoje unique ID
>
>PDX si zjavne obsahy memo poli uklada podla primarneho kluca (do suboru
*.dbt),
>ked zmenis ID 1 na 2 tak sa strati memo
>
>workarounds
>1) ak do M nepotrebujes vkladat veci nad 200 znakov, tak to prerob na
string
>
>2)co takto prechod na Local Interbase? dodavany s Delphi a tusim aj sirenie
> s vlastnym programom by malo byt zdarma
>
>3) neda sa nejako vyhnut tomu updatovaniu ID?
> skus popisat nejake dovody, preco by to takto malo byt...
>
>
>--
>Maj sa,
>R.
>
>
//--------------------------------------------------------------------------
-------------------------------------------------
Myslim si ze Memo se u PDX uklada do *.mb souboru, ale to je jedno.
1. Bohuzel potrebuji vice znaku jak 200
2. Tento program bude mit asi 300 instalaci. Mam na BDE vytvoreny svuj
Instalacni program, ktery uz umi docela dost veci a dnes je i spolehlivy.
3. Mam Import dat do tabulky pomoci TBatchMove a tam se (alespon myslim)
neda do mappings zadat FieldName=Constanta ale jen
FieldNameDestination=FieldNameSource.
//--------------------------------------------------------------------------
-------------------------------------------------
Diky za zajem Vlada
Pripojen budu az v nedeli.QuickReport
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 12.10.1998 16:08:09
Vsak taky nemam D4, vubec nemam D, ale mam BCPP.....a to V1.0......ty
prachy......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:jan.fiala(zv)iname.com]
> Odesl�no: 12. listopadu 1998 12:57
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: QuickReport
>
> Nejnovejsi knihovna ComCtl32 je na instalaci s Delphi 4
>
> -----------------------------------------------------------------
> ing. Jan Fiala��������� jan.fiala(zv)iname.com
> <mailto:jan.fiala(zv)iname.com>
> Prog-Soft s.r.o.
> INFOS - informa�n� system pro n�poj��e
> ---------------------------------------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k < FRONEK(zv)ZZNSLANY.CZ
> <mailto:FRONEK(zv)ZZNSLANY.CZ>>
> Komu: 'delphi-l(zv)fwd(tec)cz' <mailto:'delphi-l(zv)fwd(tec)cz'> <
> delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz>>
> Datum: 12. listopadu 1998 11:51
> P�edm�t: RE: QuickReport
>
>
> Sice jsem QR v zivote nevidel :-) ale pripomina mi to problem s
> odlisnou
> verzi COMCTL32.DLL
> Zkus tam nainstalovat IE4, nebo si sezen tu knihovnu
> jinak.......
>
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail:� fronek(zv)zznslany(tec)cz <mailto:fronek(zv)zznslany(tec)cz>
>
>
> Pomalej Paradox
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 12.10.1998 16:10:21
Zkus zvysit MAXFILEHANDLE (tusim se to tak jmenuje) v konfiguraci BDE.
Standartne je tam 48, predelej to na 96.....me to obvykle pomuze. V
nekterych pripadech je to jako "ziva voda"
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Marek Soukup [SMTP:marek(zv)comberg.com]
> Odesl�no: 13. listopadu 1998 11:18
> Komu: Delphi konference
> P�edm�t: Pomalej Paradox
>
> Ahoj Delfini,
> mel bych dotaz ohledne Win 3.11 Delphi 1 a Paradoxu skrz BDE.
> Dodelal jsem app, donesl k zakaznikovi, nainstaloval data na server a
> s
> hruzou zjistil, ze rychlost app je nekde mezi snekem a zelvou. Pritom
> pocitace, ktere pouzivaji jsou myslim pro dany software pomerne
> dostacujici (486-100MHz nebo Pentium). I nejjednodusi SetKey, GotoKey
> probuhal tak pomalu, ze je app vpodstate nepouzitelna. Potreboval bych
> vedet jestli jsem to mohl nejak spatne nastavit nebo naprogramovat
> nebo
> jestli je to vlastnost se kterou se musim smirit.
>
> Diky za kazdou odpoved
> Marek Soukup
> Comberg s.r.o.QuickReport
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 12.10.1998 16:19:27
Knihovnu ti muzu poslat, je volne siritelna, nebo si ji stahni od MS.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 17:11
P�edm�t: RE: QuickReport
Vsak taky nemam D4, vubec nemam D, ale mam BCPP.....a to V1.0......ty
prachy...... Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:jan.fiala(zv)iname.com]
> Odesl�no: 12. listopadu 1998 12:57
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: QuickReport
>
> Nejnovejsi knihovna ComCtl32 je na instalaci s Delphi 4
>
> -----------------------------------------------------------------
> ing. Jan Fiala jan.fiala(zv)iname.com
> <mailto:jan.fiala(zv)iname.com>
> Prog-Soft s.r.o.
> INFOS - informa�n� system pro n�poj��e
> ---------------------------------------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k < FRONEK(zv)ZZNSLANY.CZ
> <mailto:FRONEK(zv)ZZNSLANY.CZ>>
> Komu: 'delphi-l(zv)fwd(tec)cz' <mailto:'delphi-l(zv)fwd(tec)cz'> <
> delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz>>
> Datum: 12. listopadu 1998 11:51
> P�edm�t: RE: QuickReport
>
>
> Sice jsem QR v zivote nevidel :-) ale pripomina mi to problem s
> odlisnou
> verzi COMCTL32.DLL
> Zkus tam nainstalovat IE4, nebo si sezen tu knihovnu
> jinak.......
>
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz <mailto:fronek(zv)zznslany(tec)cz>
>
>
>Kombinovany SQL dotaz
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 12.10.1998 16:39:54
Preji pekny den,
hraji si trosku s SQL a narazil jsem na nasledujici kombinaci:
mam 2 tabulky T1 a T2
T1: K1, A, B, C
T2: K2, S
kde Kn jsou klicove polozky, pres ktere jsou tabulky spojeny, ostatni jsou
ciselne hodnoty. V T2 muze byt vice ruznych zaznamu s klicem K2
Potrebuji:
vybrat vsechny zaznamy z T1, pro ktere plati, ze (A+B+C)<>SUM(S) pro stejne
klicove polozky, tedy pro K1=K2. To sum(S) je tedy podle group by K2
a zaroven vsechny zaznamy, kde K1 neni obsazeno v T2.(K2)
Lze to udelat pomoci SQL dotazu tak, abych nemusel mezivysledky (napr. prave
to sum(S) group by K2) ukladat do TEMP tabulek a s temi potom vytvaret
zaverecny dotaz?
Za pripadne namety predem dekuji.
Honza.
Akcni SQL dotaz
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 12.10.1998 16:41:03
osobne si myslim, ze nie je bohvieco updatovat polia, ktore su v primarnom
kluci - ten je predsa prave na to, aby hodnoty, ktore chces updatovat
mali svoje unique ID
PDX si zjavne obsahy memo poli uklada podla primarneho kluca (do suboru *.dbt),
ked zmenis ID 1 na 2 tak sa strati memo
workarounds
1) ak do M nepotrebujes vkladat veci nad 200 znakov, tak to prerob na string
2)co takto prechod na Local Interbase? dodavany s Delphi a tusim aj sirenie
s vlastnym programom by malo byt zdarma
3) neda sa nejako vyhnut tomu updatovaniu ID?
skus popisat nejake dovody, preco by to takto malo byt...
--
Maj sa,
R.
Editace SQL databaze
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 12.10.1998 17:18:28
Nepochopil jsem asi variantu 1. J� to del�m jedin� tak, ze vol�m Close a Open (protoze TQuery neum� Refresh), ale pak mus�m jeste resit ot�zku, jak nastavit kursor na tus pr�vnou vetu. Vetsinou se nejaky zpusob najde (pres locate), obcas taky ne.
U TTable jsem objevil, �e funguje nastaven� field kind na fkInternalCalc. Podle helpu by to melo fungovat i na TQuery, ale nefunguje.
Jestli muzes, skus mi vysvetlit jak je to s tou variantou 1. Jde o to, ze hodnotu sice z�sk�m, ale pokud ji dosad�m do vety, provedu editaci a bude to cht�t zbytecne ulozit znovu. Nav�c nev�m, jak to nac�t�s v jednom pripojeni.
-----P�vodn� zpr�va-----
Od: Martin Kubecka [SMTP:martin.kubecka(zv)amenit(tec)cz]
Odesl�no: 12. listopadu 1998 14:42
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Editace SQL databaze
Tendle problem me taky pekne otravuje. Ovsem ono to v podstate ani jinak nejde.
Ono ID se zapisuje az PO vlozeni udaje (at uz je to triggerem nebo primo nejakym
specialnim datovym typem - napr. IDENTITY u MS SQL). Ziskani teto hodnoty u MS
SQL se da udelat nekolika zpusoby:
1. Po vlozeni udaje nacist promennou (zv)(zv)IDENTITY z MS SQL serveru (v jednom
pripojeni - coz lze jen pres native link.
2. Pokud chci pouzit totez pro ODBC tak se neobejdu bez ulozene procedury, ktera
vlozi radek a vrati ID. (nelze totiz pres ODBC spustit 2 SQL prikazy - ale nekde
jsem zahlidnul komponentu, co by to mela umet, ovsem nezkousel jsem).
3. Momentalne posledni reseni, ktere pouzivame je pristup pres ADO. V rezimu
CursorLocation: clServer (v poslednim update ADO) vraci ADO hodnotu ID uplne v
pohode. Bohuzel ma tento pristup nektere nevyhody (nebudu zabihat do detailu),
takze to resime tak, ze pracuju s kurzory na klientovi clClient a na vkladani
udaju 'prepinam' na clServer. Nevyhoda je zatim mala podpora neMicrosoftich
produktu a 'detske nemoci'.
Podle toho, jak si psal postup na Oraclu, tak myslim, ze muzes byt jenom
spokojen :-)
Mac
Michal Motalik wrote:
> Ahojte,
>
> mam na vas dotaz ohledne databaze. Jakym zpusobem resite editaci SQL
> databaze v dbgridu, jestlize je primarni index tabulky generovan triggerem?
> Jedna se o to, ze trigger vygeneruje spravne cislo, ale BDE se ho nedozvi.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================Kombinovany SQL dotaz
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 12.10.1998 17:37:12
na Oracle by som to robil asi takto:
select T1.*
from tabulka1 T1,
( Select SUM(T2.S) as Suma
from tabulka2 T2 where t1.k1 = t2.k2 group by t2.k2) T3
where (T1.A+T1.B+T1.C) <> T3.Suma;
t.j. z tej sumy si server vytvori svoju vlastnu temporary tabulku T3
no a tu potom pouzijem vo where
malo by to chodit na Oracle 8 (najlepsie s patchom 8.05 ;-)
ale podobne zveriny su, hmhmhm....,...
Interbase nieco taketo nezvladne.... (myslim)
--
Maj sa,
R.
Akcni SQL dotaz
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 12.10.1998 17:53:15
Vlada Cadsky wrote:
> Myslim si ze Memo se u PDX uklada do *.mb souboru, ale to je jedno.
jasne, sorry
> 3. Mam Import dat do tabulky pomoci TBatchMove a tam se (alespon myslim)
> neda do mappings zadat FieldName=Constanta ale jen
> FieldNameDestination=FieldNameSource.
tato vec mi nie je jasna - aky suvis ma importovanie cez TBatchMove s naslednym
opravovanim ID 1 na 2
mrzi ma to - tvoj program som nevidel, mohol by si to trochu osvetlit? ;-)
--
Maj sa,
R.
OnMinimize
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 12.10.1998 18:29:17
Zdravim
Ve sve aplikaci pouzivam TBIcon od Viti Gazdy.
Vse funguje OK.
Pokud chci aplikaci schovat pri startu, volam
Application.ShowMainForm:=false;
Application.Run;
Kdyz chci aplikaci schovat za behu, volam z menu
procedure TFormMain.MenuItemSchovatClick(Sender: TObject);
begin
FormMain.hide;
end;
To vsechno funguje normalne.
Rozhodl jsem se, ze pri minimalizaci okna chci
aplikaci take schovat. Udelal jsem
procedure TFormMain.create(Sender: TObject);
begin
application.onminimize:=MenuItemSchovatClick;
end;
A ted pozor !!!
Na poprve to funguje dobre, pri minimalizaci to schova
tlacitko na taskBaru. Pri stisknuti menu Schovat take.
Pri druhe minimalizaci se nestane ale nic. Neschova se tlacitko,
dokonce se ani neprovede minimalizace. Menu funguje porad dobre.
Z minimalizovaneho tvaru to obnovuji
FormMain.show;
Co delam spatne ???????
S pozdravem Zdenek
*********** Podporuji bojkot Telecomu http://www.bojkot(tec)cz/ ************
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
Hromadna zmena vlastnosti - reseni
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 12.10.1998 18:30:46
----------
>Odes�latel: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
>
>mam nasledujici problem: Potrebuji hromadne v nekolika formularich >zmenit
>font u nekterych komponent. V archvu konference jsem nasel nekolik
>reseni, ale ty se daji pouzit pouze na nektere vlastnosti,
>jako je treba 'Enabled'.
>Vlastnost 'Font' je v TControl protected.
>Jak se to da jednoduse udelat ???
-----------
Dekuji vsem za rady, hlavne Petrovi Vonesovi.
Bohuzel, ani jeho :-)))) varianta nefungovala.
Po nekolika experimentech jsem dospel k nasledujicimu reseni:
Neda se pouzit TControl nebo TControlHack=class(TControl) a
TControlHack(Controls[I]).Font:=xxx, protoze nenastavi DB komponenty
ani komponenty umistene treba v TGroupBoxu.
Neda se pouzit TComponent a TComponent(Components[I]).Font:=xxx,
protoze nema vlastnost font.
Musi se pouzit pretypovani (Sender as TNeco).font:=xxx a holt
vypsat vsechny typy, ktere chci zmenit.
Priklad:
--------
fontData a fontPopis jsou globalni promene typu TFont
procedure nastavFontyFormulare(forma: TForm);
var
i: cardinal;
begin
with Forma do begin
for I := 0 to ComponentCount-1 do begin
if Components[i] is TButton then
(Components[i] as TButton).font:=fontPopis;
if Components[i] is TRadioButton then
(Components[i] as TRadioButton).font:=fontPopis;
if Components[i] is TCheckBox then
(Components[i] as TCheckBox).font:=fontPopis;
if Components[i] is TDBCheckBox then
(Components[i] as TDBCheckBox).font:=fontPopis;
if Components[i] is TBitBtn then
(Components[i] as TBitBtn).font:=fontPopis;
if Components[i] is TLabel then
(Components[i] as TLabel).font:=fontPopis;
if Components[i] is TGroupBox then
(Components[i] as TGroupBox).font:=fontPopis;
if Components[i] is TEdit then
(Components[i] as TEdit).font:=fontData;
if Components[i] is TDBEdit then
(Components[i] as TDBEdit).font:=fontData;
if Components[i] is TDBGrid then
(Components[i] as TDBGrid).font:=fontData;
if Components[i] is TMemo then
(Components[i] as TMemo).font:=fontData;
if Components[i] is TDBMemo then
(Components[i] as TDBMemo).font:=fontData;
if Components[i] is TComboBox then
(Components[i] as TComboBox).font:=fontData;
if Components[i] is TDBComboBox then
(Components[i] as TDBComboBox).font:=fontData;
if Components[i] is TListBox then
(Components[i] as TListBox).font:=fontData;
if Components[i] is TDBListBox then
(Components[i] as TDBListBox).font:=fontData;
if Components[i] is TDBLookupCombo then
(Components[i] as TDBLookupCombo).font:=fontData;
end;
end;
end;
Snad to jeste nekomu pomuze.
S pozdravem Zdenek
*********** Podporuji bojkot Telecomu http://www.bojkot(tec)cz/ ************
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
QuickReport
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 12.10.1998 18:34:50
Ja ji nepotrebuji, muj problem to nebyl....... Jinak mam IE4, takze
zadny problem.
<<INTERNET PROTI MONOPOLU>> se blizi..........podepisujte prosim.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:jan.fiala(zv)iname.com]
> Odesl�no: 12. listopadu 1998 16:19
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: QuickReport
>
> Knihovnu ti muzu poslat, je volne siritelna, nebo si ji stahni od MS.
>
> -----------------------------------------------------------------
> ing. Jan Fiala��������� jan.fiala(zv)iname.com
> <mailto:jan.fiala(zv)iname.com>
> Prog-Soft s.r.o.
> INFOS - informa�n� system pro n�poj��e
> ---------------------------------------------------------------
>
> -----P�vodn� zpr�va-----
> Od: Martin Fron�k < FRONEK(zv)ZZNSLANY.CZ
> <mailto:FRONEK(zv)ZZNSLANY.CZ>>
> Komu: 'delphi-l(zv)fwd(tec)cz' <mailto:'delphi-l(zv)fwd(tec)cz'> <
> delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz>>
> Datum: 12. listopadu 1998 17:11
> P�edm�t: RE: QuickReport
>
>
> Vsak taky nemam D4, vubec nemam D, ale mam BCPP.....a to
> V1.0......ty
> prachy......
>
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail:� fronek(zv)zznslany(tec)cz <mailto:fronek(zv)zznslany(tec)cz>
>
> > -----P�vodn� zpr�va-----
> > Od: Jan Fiala [ SMTP:jan.fiala(zv)iname.com
> <mailto:SMTP:jan.fiala(zv)iname.com>]
> > Odesl�no: 12. listopadu 1998 12:57
> > Komu: delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz>
> > P�edm�t: Re: QuickReport
> >
> > Nejnovejsi knihovna ComCtl32 je na instalaci s Delphi 4
> >
> >
> -----------------------------------------------------------------
> > ing. Jan Fiala jan.fiala(zv)iname.com
> <mailto:jan.fiala(zv)iname.com>
> > < <mailto:jan.fiala(zv)iname.com>>
> > Prog-Soft s.r.o.
> > INFOS - informa�n� system pro n�poj��e
> >
> ---------------------------------------------------------------
> >
> > -----P�vodn� zpr�va-----
> > Od: Martin Fron�k < FRONEK(zv)ZZNSLANY.CZ
> <mailto:FRONEK(zv)ZZNSLANY.CZ>
> > < <mailto:FRONEK(zv)ZZNSLANY.CZ>>>
> > Komu: 'delphi-l(zv)fwd(tec)cz' <mailto:'delphi-l(zv)fwd(tec)cz'> <
> <mailto:'delphi-l(zv)fwd(tec)cz'>> <
> > delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz> <
> <mailto:delphi-l(zv)fwd(tec)cz>>>
> > Datum: 12. listopadu 1998 11:51
> > P�edm�t: RE: QuickReport
> >
> >
> > Sice jsem QR v zivote nevidel :-) ale pripomina mi to problem
> s
> > odlisnou
> > verzi COMCTL32.DLL
> > Zkus tam nainstalovat IE4, nebo si sezen tu knihovnu
> > jinak.......
> >
> >
> > Martin Fron�k
> > ZZN Slan� a.s.
> > Pra�sk� 1579, 274 49, Slan�
> > tel. +420-314-522986
> > e-mail: fronek(zv)zznslany(tec)cz <mailto:fronek(zv)zznslany(tec)cz> <
> <mailto:fronek(zv)zznslany(tec)cz>>
> >
> >
> >
> QReport - QRDBRichText
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 12.10.1998 18:36:09
Na tento muj dotaz nikdo neodpovedel, odpovim si tedy sam:
Pokud DRDBRichText umistim na samostatny band typu 'Summary',
funguje tisk na vice stranek spravne.
(sice se zase ovjevil problem s fontem, napoprve nepise cesky,
pri druhem volani reportu to uz cesky je ???!!!, ale to nejak vyresim)
----------
>Odes�latel: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
>Komu: konference DELPHI <delphi-l(zv)fwd(tec)cz>
>Zdravim,
>
>Ve svem programu pouzivam QRDBRichText pro tisk hodnoty
>memo pole. Mam nastaveno AutoStrech:=true. V D3 to fungovalo pomerne >dobre, akorat memo o jednom radku to neroztahlo OK. Stacilo pridat >nekolik prazdnych radek, bylo to v poradku. S prechodem na D4
>tento problem zustal
>(ale pres to jsem se uz prenesl), jenze navic pribyl dalsi.
>
>QRDBRichText je umisten v reportu ve spodni polovine, pred nim jsou
>vsechny ostatni polozky. Pokud text pretece na dalsi stranku, tiskne
>se NE od vrsku stranky, ale od sveho zacatku na strane prvni, tedy
>az v druhe polovine stranky. Vrsek zustava prazdny. CO S TIM ???????
>
>V reportu jsou dva Bandy - qrTitle a qrDetail. V detailu
>jsou QRLabely, QRDBTexty, jeden QRDBImage a zmineny QRDBRichText.
>V tistenem dotazu je vzdy jen jeden zaznam.
-----------------
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
BookmarkList
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 12.10.1998 19:27:31
Ahoj.
Uz jste nekdo pracoval s vlastnosti DBGridu SelectedRows typu
TBookmarkList? Da se pri MultiSelectu pouzit k provedeni akce na
vybranych radcich, aniz bych prochazel cely DataSet radek po radku? Z
helpu to nejak nechapu.
Diky.
--
==============================================================
= Ing. Martin Kuska - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 710545 =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================Vyska taskbaru
[*] Ji�� Heinisch - 12.10.1998 19:32:22
ahoj
pouzivam funkci pro zjisteni plochy nad barem.
z toho si jiz muzes odvodit jak taskbar vysoky
Ahoj HeiJu
priklad:
if SirkaObrazovka=800 then
Form1.BoundsRect:=ZjistiWorkPlocha else
Form1.Position:= poscreenCenter;
function ZjistiWorkPlocha:TRect;
var
T:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,(zv)T,0);
Result:=T;
end;
-----P�vodn� zpr�va-----
Od: Slavek Zika <slavek(zv)bsc-net(tec)cz>
Komu: 'Delphi konference' <delphi-l(zv)fwd(tec)cz>
Datum: 11. listopadu 1998 18:40
P�edm�t: Vyska taskbaru
>Lze nejak zjistit vyska TaskBaru, jelikoz
>Screen.Height vrati velikost obrazovky
>a bych potreboval umistit okno tesne nad Taskbar.
>
>Predem Dik
>
>Slavek Zika
RichEdit
[*] Ji�� Heinisch - 12.10.1998 19:34:30
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj
umi v D4 RICHEDIT uz zobrazovat gr. objekty
a pokud ne je nekde neco jineho pro tyto ucely ?
Diky HeiJu
BookmarkList
[*] Pavel Kral <kral(zv)afx(tec)cz> - 12.10.1998 20:22:33
Ahoj,
>Uz jste nekdo pracoval s vlastnosti DBGridu SelectedRows typu
>TBookmarkList? Da se pri MultiSelectu pouzit k provedeni akce na
>vybranych radcich, aniz bych prochazel cely DataSet radek po radku? Z
>helpu to nejak nechapu.
>
Samozrejme, Items toho seznamu jsou bookmarky na vybrane radky, takze
se to da delat treba takto (DBGrid1 je napojeny na Table1):
procedure TForm1.NastavDatumOpravy;
type
B : TBookmarkStr;
i: longint;
begin
B:= Table1.Bookmark; // poznacit si puvodni vybrany zaznam
try
for i:=0 to DBGrid1.SelectedRows.count-1 do
begin
Table1.Bookmark := DBGrid1.SelectedRows[i];
{ napriklad nejaka oprava, mazani delat v opacnem poradi ... }
Table1.Edit;
Table1.FieldByName('OpravenoDne').asDateTime:= Now;
Table1.Post;
end;
finally
try
Table1.Bookmark := B;
except // ochrana, pokud uz tam neni zaznam, ze ktereho se zacalo.
end;
end;
end;
----
Pavel Kral
Editace SQL databaze
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 12.10.1998 20:24:18
Bardon wrote:
> Nepochopil jsem asi variantu 1. J� to del�m jedin� tak, ze vol�m Close a Open (protoze TQuery neum� Refresh), ale pak mus�m jeste resit ot�zku, jak nastavit kursor na tus pr�vnou vetu. Vetsinou se nejaky zpusob najde (pres locate), obcas taky ne.
>
Jasne, delam to v podstate stejne. Po vlozeni noveho radku je nutne zjistit ID, ktere se generuje az po vlozeni zaznamu. Aby si ho potom mohl editovat, tak musis refreshnout (tj. zjistit to ID, ktere je uz fyzicky v databazi). Refresh bohuzel
nefunguje (zlate ADO, tam to chodi v pohode ;-) takze Close + Open, presne jak rikas.
Pruser je, ze pro uzivatele neni zrovna dvakrat prijemne, kdyz zada zaznam a ono mu to skoci na prvni, takze je fajn prejit na onen zadany zaznam. Bohuzel jednoznacny identifikator clovek nezna, protoze se generuje az PO vlozeni. Takze bud locate
(coz neni 100% obvzvlaste v sitovem provozu a navic si musim pamatovat pole, co jsem tam dal). Popr. locate kombinovat s nejakym id uzivatele a casem adani atd. - proste nic 100%.
MS SQL ma promennou (zv)(zv)IDENTITY, ktera obsahuje ID naposledy vlozeneho zaznamu. Pruser je v tom, ze to musi byt v jednom spojeni (connection), protoze jinak je (zv)(zv)IDENTITY null.
Zkus si v SQL Query Tool (nebo v necem podobnem) napsat:
INSERT kontakty(prijmeni) VALUES ('Pepa')
SELECT (zv)(zv)IDENTITY
(pochopitelne tabulka 'kontakty' musi mit nejake 'id_kontakty, int, identity')
No a dostanes ID vlozeneho zaznamu, na ktere si prejdes napr. pomoci locate.
> U TTable jsem objevil, �e funguje nastaven� field kind na fkInternalCalc. Podle helpu by to melo fungovat i na TQuery, ale nefunguje.
>
> Jestli muzes, skus mi vysvetlit jak je to s tou variantou 1. Jde o to, ze hodnotu sice z�sk�m, ale pokud ji dosad�m do vety, provedu editaci a bude to cht�t zbytecne ulozit znovu. Nav�c nev�m, jak to nac�t�s v jednom pripojeni.
Ten fkInternalCalc jeste nekdy zkusim (pokud vubec nekdy budu jeste pouzivat ODBC nebo SQL native linky ;-)
Skutecne v jednom pripojeni (bez nutnosti obnovovat udaje) to funguje pres ADO (tam si potvurka dotahne jen ten jeden konkretni vlozeny zaznam, takze se to v podstate navenek chova jako lokalni databaze).
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================
Tabulka FoxPro
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.1998 20:59:44
Robert Van�k wrote:
>
> Ahojte vsichni Delphimani,
>
> nevite nahodou nekdo o nejake komponente, ktera by cetla tabulky FoxPro i s indexy?
> Kdyz pouziji komponentu TTable. tak na to odpovi hlaskou "Invalid Index Descriptor"
> a tanulku neotevre.
Ahoj,
s CDX indexy u Foxpro tabulek umi pracovat BDE 4.51 (a vyssi). Pokud jej nemas
tak si ho stahni, muzes jej pouzit s Delphi 2 a 3. Podle toho hlaseni to vypada
spise na nejakou chybu v indexovem souboru ci tabulce. Odstran ten index a otevri
tu tabulku v Database Exploreru. Ten se te zepta jestli chces v DBF souboru zrusit
informaci o existujicim indexu (protoze si jej smazal) a pak index znovu vytvor.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
I/O port ve Win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.1998 20:59:56
Petr Vale� wrote:
>
> Ahoj vsichni,
>
> mam nasledujici problem. Program jehoz source kod je nize potrebuji
> zkompilovat a spustit pod Windows95. Pod DOS/Win 3.1 jde vsechno v poradku
> jak ma jit, ale pod Windows95 to nedela co ma.
>
> Jedna se o cteni SN fyz. disku, tedy o primi pristup na I/O port.
>
> Diik Petr
Ahoj,
Cteni SN disku lze udelat pomoci API funkce GetVolumeInformation. Uz se to tu
nekolikrat probiralo, podivej se do archivu konference. To ze to nefunguje ve
Win95 je dobre, predstav si ze by si kazdy posilal co chce na ruzne porty.
Navic nikdy nemuzes zahrnout vsechny odlisnosti v HW, od toho je tu prave
operacni system aby tyto informace poskytl.
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
PRECO TO NEJDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.1998 21:00:06
> Trhlik Jaroslav wrote:
>
> Mozem iba potvrdit rovnaku skusenost s D2, navyse ide o predtym stovky uspesnych
> instalacii z lisovaneho CD. Ked som to chcel konzultovat na INVEXe u INPRISu, tak mi bolo
> povedane, ze to je nemozne. Osobne mam dojem, ze BDE (dBase) je haklive na Pentium II
> alebo na zvysky po predchadzajucich instalaciach.
Ahoj,
Myslim si ze problem muze byt prave v tech predchozich instalacich. Pokud bude
BDE predtim nainstalovano chybne, tak jej IS pri tve instalaci nemuze poznat a
po odinstalaci tve aplikace jej zase smaze.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Zajimavy problem s FileMode
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.10.1998 21:00:36
Petr Brant wrote:
>
> Ahoj vsem,
>
> setkal jsem se s nasledujicim problemem:
>
> Potreboval jsem udelat konverzi z textoveho souboru do databazove tabulky.
> Nejdriv jsem udelal funkci pro kontrolu struktury:
Ahoj,
To je zvlastni, jakou mas verzi Delphi ? Ja zkusil podobny priklad (D4) a funguje
to bez problemu:
procedure TForm1.Button1Click(Sender: TObject);
var
T: TextFile;
S: String;
begin
AssignFile(T, 'aaa.txt');
FileMode := 0;
Reset(T);
while not Eof(T) do
Readln(T, S);
CloseFile(T);
AssignFile(T, 'aaa.txt');
FileMode := 0;
Reset(T);
while not Eof(T) do
Readln(T, S);
CloseFile(T);
end;
Nicmene, pokud importujes data z textoveho souboru do databaze a format
toho souboru jsou jednotliva pole oddelene nejakym oddelovacem, tak muzes
pouzit primo BDE Text driver.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************I/O port ve Win95
[*] Micrel <micrel(zv)micrel(tec)cz> - 12.10.1998 21:29:03
Podivejte se, prosim na http://www.gnomehome.demon.nl/uddf/index.htm kde by mohlo byt nejake reseni
Jaro B.
-----P�vodn� zpr�va-----
Od: Petr Vale� [SMTP:Petr.Vales(zv)gopas(tec)cz]
Odesl�no: 11. XI 1998 18:18
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: I/O port ve Win95
Ahoj vsichni,
mam nasledujici problem. Program jehoz source kod je nize potrebuji
zkompilovat a spustit pod Windows95. Pod DOS/Win 3.1 jde vsechno v poradku
jak ma jit, ale pod Windows95 to nedela co ma.
Jedna se o cteni SN fyz. disku, tedy o primi pristup na I/O port.
Diik Petr
Unit HardDisk;
INTERFACE
FUNCTION GetHardDiskNaam : STRING;
FUNCTION GetHardDiskSerieNummer : STRING;
FUNCTION GetHardDiskControlleNummer : STRING;
PROCEDURE GetHardDiskGegevens;
CONST
CodeerTabel : ARRAY[0..24] OF BYTE =
(3,1,2,1,4,1,3,2,6,4,6,5,1,2,6,4,2,6,3,4,6,2,4,1,2);
TYPE
CharArray = ARRAY[0..24] OF CHAR;
VAR
HardDiskGegevens : ARRAY[1..256] OF INTEGER;
HardDiskNaam : CharArray;
SerieNummer : CharArray;
ControlleNummer : CharArray;
C_HardDiskNaam : STRING;
C_HardDiskSerieNummer : STRING;
C_HardDiskControlleNummer : STRING;
C_LicentieNaam : STRING;
IMPLEMENTATION
FUNCTION GetHardDiskNaam : STRING;
VAR
Teller : INTEGER;
Lus : INTEGER;
BEGIN
GetHardDiskNaam := '';
Teller := 1;
FOR Lus := 1 TO 18 DO
BEGIN
HardDiskNaam[Teller] := CHR( ( HardDiskGegevens[27+Lus] DIV 256 ));
Inc(Teller);
HardDiskNaam[Teller] := CHR( ( HardDiskGegevens[27+Lus] MOD 256 ));
Inc(Teller);
END;
GetHardDiskNaam := HardDiskNaam;
END;
FUNCTION GetHardDiskSerieNummer : STRING;
VAR
Teller : INTEGER;
Lus : INTEGER;
BEGIN
GetHardDiskSerieNummer := '';
Teller := 1;
FOR Lus := 1 TO 8 DO
BEGIN
SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] DIV 256 ));
Inc(Teller);
SerieNummer[Teller] := CHR( ( HardDiskGegevens[10+Lus] MOD 256 ));
Inc(Teller);
END;
GetHardDiskSerieNummer := SerieNummer;
END;
FUNCTION GetHardDiskControlleNummer : STRING;
VAR
Teller : INTEGER;
Lus : INTEGER;
BEGIN
GetHardDiskControlleNummer := '';
Teller := 1;
FOR Lus := 1 TO 3 DO
BEGIN
ControlleNummer[Teller] := CHR( ( HardDiskGegevens[23+Lus] DIV 256
));
Inc(Teller);
ControlleNummer[Teller] := CHR( ( HardDiskGegevens[23+Lus] MOD 256
));
Inc(Teller);
END;
GetHardDiskControlleNummer := ControlleNummer;
END;
PROCEDURE GetHardDiskGegevens;
VAR
Lus : INTEGER;
BEGIN
WHILE ( Port[$1f7] <> $50) DO ;
Port[$1F6] := $A0 ;
Port[$1F7] := $EC ;
WHILE ( Port[$1f7] <> $58 ) DO ;
FOR Lus := 1 TO 256 DO
BEGIN
HardDiskGegevens[Lus] := Portw[$1F0] ;
END;
END;
END.Hromadna zmena vlastnosti - reseni
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 12.10.1998 22:10:09
Samozrejme, jen se nevzdavej, vzdyt co by jsme si
poc~ali bez Tebe :-)))
S tim groupBoxem je mi to jasne, o tom jsem se zminil
jen tak mimochodem, proc to ale nefunguje na DB komponenty ?
S pozdravem Zdenek
*********** Podporuji bojkot Telecomu http://www.bojkot(tec)cz/ ************
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
----------
> Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> "Ing. Zdenek Sraier" wrote:
> > >Odes�latel: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
> > >
> > >mam nasledujici problem: Potrebuji hromadne v nekolika formularich >zmenit
> > >font u nekterych komponent. V archvu konference jsem nasel nekolik
> > >reseni, ale ty se daji pouzit pouze na nektere vlastnosti,
> > >jako je treba 'Enabled'.
> > >Vlastnost 'Font' je v TControl protected.
> > >Jak se to da jednoduse udelat ???
> > -----------
> > Dekuji vsem za rady, hlavne Petrovi Vonesovi.
> > Bohuzel, ani jeho :-)))) varianta nefungovala.
> >
> > Po nekolika experimentech jsem dospel k nasledujicimu reseni:
> >
> > Neda se pouzit TControl nebo TControlHack=class(TControl) a
> > TControlHack(Controls[I]).Font:=xxx, protoze nenastavi DB komponenty
> > ani komponenty umistene treba v TGroupBoxu.
>
> Tak lehce se nevzdam :-)
> To ze to nefunguje v tomto pripade je logicke, protoze v tom mem prikladu se prochazel
> pouze seznam controlu (GroupBox je jeden control). Pokud je treba nastavit vlastnosti
> i u controlu ktere obsahuji dalsi komponenty tak se to opravdu musi udelat jinak:
>
>
> Varianta 1. (ale ta se mi moc nelibi) ------------------
>
> type
> TControlHack = class(TControl);
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> I: Integer;
> begin
> for I := 0 to ComponentCount - 1 do
> if Components[I] is TControl then
> TControlHack(Components[I]).Font.Style := [fsBold];
> end;
>
> Varianta 2. --------------------
>
> uses
> TypInfo;
>
> function ControlFont(Component: TComponent): TFont;
> var
> PropInfo: PPropInfo;
> begin
> Result := nil;
> if Component <> nil then
> begin
> PropInfo := GetPropInfo(Component.ClassInfo, 'Font');
> if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) and
> (GetTypeData(PropInfo^.PropType^)^.ClassType = TFont) then
> Result := TFont(GetMethodProp(Component, PropInfo).Code);
> end;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> I: Integer;
> CFont: TFont;
> begin
> for I := 0 to ComponentCount - 1 do
> begin
> CFont := ControlFont(Components[I]);
> if CFont <> nil then CFont.Style := [fsBold];
> end;
> end;
>
> Internet proti monopolu. Petr Vones, amatersky programator
DBGrid
[*] Katerina Dolezalova <dolezak(zv)feld.cvut(tec)cz> - 12.10.1998 22:45:01
Preji krasny den,
dekuji za odpovedi na dotaz ohledne barevneho odliseni polozek v DBGridu,
ale nevyresilo to muj problem.
Kdyz v DBGridu nastavim Canvas.Font.Color pro ruzne hodnoty urcite polozky v
databazi, tak se zbarvi cely radek, tedy pro tu jednu polozku, vsechny
hodnoty ve vsech sloupcich a ja bych potrebovala menit barvu jen v jednom
sloupci podle hodnoty v nem a ve vsech ostatnich sloupcich mit barvu vsech
polozek stejnou.
Jde to vubec nejak? Zkousela jsem vsechno mozne, ale bud to nejde a nebo je
to tim, ze nemam v tomto dostatek zkusennosti.
Predem dekuji za radu.
Katerina Dolezalova
************************************************************
K K A C C C I
K K A A C I
K K A A C I
K K A A A A C I
K K A A C C C I
************************************************************
Tady jsem:
dolezak(zv)feld.cvut(tec)cz
dolezak(zv)cs.felk.cvut(tec)cz
dolezak(zv)hwlab.felk.cvut(tec)cz Tvorba .HLP
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.10.1998 23:15:34
> Mate nejaky tip na pouzitelny program pro tvorbu helpu? Nejlepe kdyby
> byl WYSIWYG.
Ja pouzivam ForeHelp, je bezvadny, ale za penize...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
QReport - QRDBRichText
[*] Mirun <forcom(zv)telecom(tec)cz> - 13.10.1998 00:03:19
Nic si z toho nedelej, pred rokem jsem si koupil QR 2.0 Pro a dodnes
jsem z toho nevzpamatoval, byla to nejblbejsi investice, kterou jsem
kdy udelal. Asi tezko existuje jiny komercni produkt, ktery je diky
svym chybam vice nepouzitelny nez zrovna QR. A ted me QuSoft dorazil
tim, ze misto aby se snazily ty chyby behem roku odstranit, vydaji
upgrade na QR3 za $59 (s chybama). Opravdu genitalni. Tezko bych si od
nich jeste nekdy neco koupil.
BTW: Nevite nekdo o nejake schopne nahrade za QR (nemyslim monstra
typu ReportSmith), ovsem aby to fungovalo, nezralo to systemove
prostredky :v tom je QR naprosta jednicka - po kazdem tisku sezere 2%
takze po nekolika tiscich Vam aplikace nahlasi Out of resources - na
netu je sice zverejneno nekolik ruznych oprav, ale vetsinou pak
prestane fungovat zase neco jinyho.
Mirun
-----P�vodn� zpr�va-----
Od: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
Komu: konference DELPHI <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 19:29
P�edm�t: Re: QReport - QRDBRichText
Na tento muj dotaz nikdo neodpovedel, odpovim si tedy sam:
Pokud DRDBRichText umistim na samostatny band typu 'Summary',
funguje tisk na vice stranek spravne.
(sice se zase ovjevil problem s fontem, napoprve nepise cesky,
pri druhem volani reportu to uz cesky je ???!!!, ale to nejak vyresim)
----------
>Odes�latel: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
>Komu: konference DELPHI <delphi-l(zv)fwd(tec)cz>
>Zdravim,
>
>Ve svem programu pouzivam QRDBRichText pro tisk hodnoty
>memo pole. Mam nastaveno AutoStrech:=true. V D3 to fungovalo pomerne
>dobre, akorat memo o jednom radku to neroztahlo OK. Stacilo pridat
>nekolik prazdnych radek, bylo to v poradku. S prechodem na D4
>tento problem zustal
>(ale pres to jsem se uz prenesl), jenze navic pribyl dalsi.
>
>QRDBRichText je umisten v reportu ve spodni polovine, pred nim jsou
>vsechny ostatni polozky. Pokud text pretece na dalsi stranku, tiskne
>se NE od vrsku stranky, ale od sveho zacatku na strane prvni, tedy
>az v druhe polovine stranky. Vrsek zustava prazdny. CO S TIM ???????
>
>V reportu jsou dva Bandy - qrTitle a qrDetail. V detailu
>jsou QRLabely, QRDBTexty, jeden QRDBImage a zmineny QRDBRichText.
>V tistenem dotazu je vzdy jen jeden zaznam.
-----------------
S pozdravem Zdenek
---------------------------------------
E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne)
|
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv)
|
| ( o o) |---------------------
WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/
|
----------------------------------------------------------------------
--
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/
|
----------------------------------------------------------------------
--
Tvorba .HLP
[*] Mirun <forcom(zv)telecom(tec)cz> - 13.10.1998 00:12:05
Pouzivam Help&Manual, trial verzi najdes na www.easycash.co.at.
Je pohodlny, umi helpy pro 3.1/95 i export do HTML a vytisknout
manual, kupoval jsem ho asi za $120, a jsem spokojen (na 96%)
Miroslav Vavrin
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 13:02
P�edm�t: Tvorba .HLP
|Zdravicko...
|
|Mate nejaky tip na pouzitelny program pro tvorbu helpu? Nejlepe kdyby
|byl WYSIWYG.
|
|Dekuji za posilana URL.
|
|F.
|
|DBGrid
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 13.10.1998 05:54:19
Pro tento pripad je nutno dat do podminky jeste Column (predavany jako
parametr a cislovany od nuly) a barvu nastavovat jen pro napr. Column = 2
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Katerina Dolezalova <dolezak(zv)feld.cvut(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 23:52
P�edm�t: DBGrid
Preji krasny den,
dekuji za odpovedi na dotaz ohledne barevneho odliseni polozek v
DBGridu,
ale nevyresilo to muj problem.
Kdyz v DBGridu nastavim Canvas.Font.Color pro ruzne hodnoty urcite
polozky v
databazi, tak se zbarvi cely radek, tedy pro tu jednu polozku, vsechny
hodnoty ve vsech sloupcich a ja bych potrebovala menit barvu jen v
jednom
sloupci podle hodnoty v nem a ve vsech ostatnich sloupcich mit barvu
vsech
polozek stejnou.
Jde to vubec nejak? Zkousela jsem vsechno mozne, ale bud to nejde a nebo
je
to tim, ze nemam v tomto dostatek zkusennosti.
Predem dekuji za radu.
Katerina Dolezalova
************************************************************
K K A C C C I
K K A A C I
K K A A C I
K K A A A A C I
K K A A C C C I
************************************************************
Tady jsem:
dolezak(zv)feld.cvut(tec)cz
dolezak(zv)cs.felk.cvut(tec)cz
dolezak(zv)hwlab.felk.cvut(tec)cz
DBGrid
[*] Dusanic Lubos <lubos(zv)iname(tec)com> - 13.10.1998 07:13:26
Katerina Dolezalova wrote:
> Preji krasny den,
> dekuji za odpovedi na dotaz ohledne barevneho odliseni polozek v DBGridu,
> ale nevyresilo to muj problem.
> Kdyz v DBGridu nastavim Canvas.Font.Color pro ruzne hodnoty urcite polozky v
> databazi, tak se zbarvi cely radek, tedy pro tu jednu polozku, vsechny
> hodnoty ve vsech sloupcich a ja bych potrebovala menit barvu jen v jednom
> sloupci podle hodnoty v nem a ve vsech ostatnich sloupcich mit barvu vsech
> polozek stejnou.
> Jde to vubec nejak? Zkousela jsem vsechno mozne, ale bud to nejde a nebo je
> to tim, ze nemam v tomto dostatek zkusennosti.
>
> Predem dekuji za radu.
> Katerina Dolezalova
>
caves,
stiahni si rxlibrary a v nej sa nachadza trxdbgrid - s tym je to uplne simple.
na udalost OnGetCellParams ti ponukne ako jeden z parametrov event(u) tfield a
ten mozes zmenit podla svojich predstav - farba pozadia, fontu, typ fontu, styl,
...
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
dve tabulky m
[*] Marek Falan <falan(zv)atlas(tec)cz> - 13.10.1998 07:18:15
Zdravim vsetkych,
Znovu nejaky zaciatocnicky dotaz.
1.Chcel by som v Query prejst na zaznam, ktory specifikujem hodnotov
nejakeho pola v riadku, ale nechcem pouzit filter, pretoze potom by som
dostal ako vysledok dotazu iba tie riadky , ktore danemu filtru vyhovuju.
Ale ja chcem aby mi vo vysledku dotazu ostali vsetky riadky, len aby sa
aktualny zaznam nastavil na najblizssi riadok, ktory vyhovuje podmienke.
2Chcel by som zobrazit zoznam vsetkych hodnot jedneho pola tabulky v nejakom
ComboBoxe alebo List Boxe, prip. v DBCombo.. a DB ListBoxe., pre vyber
riadku na ktory ma skocit. Skusal som som DBCOBOBOX ale s tym to asi
nepojde, pretoze ten je napojeny na tabulku a ak by som v nom zmenil
hodnotu, zmenila by sa aj v tabulke. Prisliel som sice na jedno riesenie ale
mozno niekto vie o niecom lepsom. Pouzijem komponentu ComBoBOX a jej
vlastnost ITEMS naplnim postupne hodnotami s databazy. Ale ma to tu nevyhodu
ze ak zmenim data v databaze, hodnoty ITEMS uz nebudu aktualne a budem ich
musiet casto znovu nacitavat. Problem je este aj ten ze ta databaze by mala
byt zdielana v sieti.
Priklad databazy.
Mam query1 polia C_ZAMESTNANCA, C_MENO.
query2 polia, C_ZAMESTNANCA, HODINY.
Tabulky su spojene pomocou SQL cez kluc C_ZAMESTNANCA.
Vo formulary by som chcel mat hore jednu polozku s menom zamestnanca a dolu
DBGRID s c_zamestnanca a hodinami. Ak hore pouzijem DBedit, funguje to
dobre, v gride mi ukazuje iba zaznami vybrateho zamestnanca. ALe ak chcem
ist na ineho musim bud listovat cez navigator, co je pre vecsom pocte ludi
zdlhave, alebo pouzit filter, ale musim spameti zadat meno. Preto by som
chcel pouzit nejaky ComboBox.
3. Co znamena v SQL slovko AS ?
vdaka za vsetky odpovede
dve tabulky m
[*] Martin <martin(zv)geoplanpp.sk> - 13.10.1998 07:20:52
Zdravim vsetkych,
Znovu nejaky zaciatocnicky dotaz.
1.Chcel by som v Query prejst na zaznam, ktory specifikujem hodnotov
nejakeho pola v riadku, ale nechcem pouzit filter, pretoze potom by som
dostal ako vysledok dotazu iba tie riadky , ktore danemu filtru vyhovuju.
Ale ja chcem aby mi vo vysledku dotazu ostali vsetky riadky, len aby sa
aktualny zaznam nastavil na najblizssi riadok, ktory vyhovuje podmienke.
2Chcel by som zobrazit zoznam vsetkych hodnot jedneho pola tabulky v nejakom
ComboBoxe alebo List Boxe, prip. v DBCombo.. a DB ListBoxe., pre vyber
riadku na ktory ma skocit. Skusal som som DBCOBOBOX ale s tym to asi
nepojde, pretoze ten je napojeny na tabulku a ak by som v nom zmenil
hodnotu, zmenila by sa aj v tabulke. Prisliel som sice na jedno riesenie ale
mozno niekto vie o niecom lepsom. Pouzijem komponentu ComBoBOX a jej
vlastnost ITEMS naplnim postupne hodnotami s databazy. Ale ma to tu nevyhodu
ze ak zmenim data v databaze, hodnoty ITEMS uz nebudu aktualne a budem ich
musiet casto znovu nacitavat. Problem je este aj ten ze ta databaze by mala
byt zdielana v sieti.
Priklad databazy.
Mam query1 polia C_ZAMESTNANCA, C_MENO.
query2 polia, C_ZAMESTNANCA, HODINY.
Tabulky su spojene pomocou SQL cez kluc C_ZAMESTNANCA.
Vo formulary by som chcel mat hore jednu polozku s menom zamestnanca a dolu
DBGRID s c_zamestnanca a hodinami. Ak hore pouzijem DBedit, funguje to
dobre, v gride mi ukazuje iba zaznami vybrateho zamestnanca. ALe ak chcem
ist na ineho musim bud listovat cez navigator, co je pre vecsom pocte ludi
zdlhave, alebo pouzit filter, ale musim spameti zadat meno. Preto by som
chcel pouzit nejaky ComboBox.
3. Co znamena v SQL slovko AS ?
vdaka za vsetky odpovede
Font s anglickou vyslovnosti
[*] roman.palarcik(zv)spt(tec)cz - 13.10.1998 07:29:20
Jo diky, stahnu si to. Slovnik nepotrebuju.
Dival jsem se i na odkazy na UDDF, hledal na Altaviste a Seznamu
ale zatim jsem nic nenasel. Problem je v tom, ze to je na vsech
strankach serazene podle nazvu fontu, coz mi moc nepomuze.
Roman Palarcik
roman.palarcik(zv)spt(tec)cz
----------------------------------------------------------------------
-------------------
> Ahoj,
> nevite nekdo o nejakem fontu, ktery by obsahoval znaky, ktere se
> pouzivaji pri psani vyslovnosti anglickych slovicek ?
Ahoj,
taky jsem potreboval prepisovat vyslovnost anglictiny, ale nejlepsi
fonty pro prepis, ktere jsem kdy nasel - SIL DOLLUS IPA nejsou nic
moc - neobsahuji vsechny znaky...
- tak sem nakreslil vlastni font - jestli mas zajem tak si ho stahni -
umistim ho provizorne na nwfs.ddm.jhrnet(tec)cz/english/font/
Font obsahuje kompletne vsechny znaky mezinarodniho systemu pro
prepis anglictiny API.
Mam hotovy i cely slovnik vyuzivajici tento font - tiskne seznamy
nebo karticky... dystak napis ...
PS: Ozvi se, at to muzu zase smazat...
Cuckoo
Tabulka FoxPro
[*] Robert Van�k <dingo(zv)dingo(tec)cz> - 13.10.1998 07:35:23
Zdravim vsechny,
Ten index je zcela v poradku a navic to udelat nemuzu, protoze tu tabulku pouziva jiny program
psany ve FoxPro a ten by se z toho zblaznil. Sdileni souboru neni problem, protoze me tu hlasku
"Invealid Index Descriptor" pise i kdyz ho nemam jinde otevreny. Kdyz tu tabulku otevru
prez ovladac ODBC tak to jede. Ale dik za informaci. Zkusim si stahnou tu novou verzi BDE.
Diky Bob
-----P�vodn� zpr�va-----
Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 12. listopadu 1998 21:00
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Tabulka FoxPro
Robert Van�k wrote:
>
> Ahojte vsichni Delphimani,
>
> nevite nahodou nekdo o nejake komponente, ktera by cetla tabulky FoxPro i s indexy?
> Kdyz pouziji komponentu TTable. tak na to odpovi hlaskou "Invalid Index Descriptor"
> a tanulku neotevre.
Ahoj,
s CDX indexy u Foxpro tabulek umi pracovat BDE 4.51 (a vyssi). Pokud jej nemas
tak si ho stahni, muzes jej pouzit s Delphi 2 a 3. Podle toho hlaseni to vypada
spise na nejakou chybu v indexovem souboru ci tabulce. Odstran ten index a otevri
tu tabulku v Database Exploreru. Ten se te zepta jestli chces v DBF souboru zrusit
informaci o existujicim indexu (protoze si jej smazal) a pak index znovu vytvor.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Asociace souboru
[*] Honza Fiala <fala(zv)imc(tec)cz> - 13.10.1998 07:52:54
Caute vsichni,
mam asi trochu trivialni problem, ale nevim jak na to. Potrebuji zjistit s
jakym programem je soubor asociovan a kde ho najdu.
Jeste mam jeden podobny problem ohledne postovniho klienta. Potrebuji ho
spustit a pritom nevim, jaky postovni program uzivatel pouziva. Jeste by mi
strasne pomohlo tento program otevrit s odesilanou zpravou na urcitou
adresu, ale to uz asi chci moc.
Predem diky za kazdou odpoved
Honza
Kombinovany SQL dotaz
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 13.10.1998 08:04:03
SELECT t1.* FROM t1
WHERE (A+B+C)<>(SELECT SUM(S) FROM T2 WHERE T1.K1=T2.K2)
Myslim ze tak by to melo chodit na vsechny SQL
Petr
-----Original Message-----
From: Jan Naiser [mailto:tua(zv)ltm(tec)cz]
Sent: Thursday, November 12, 1998 4:40 PM
To: Delphi konference
Subject: Kombinovany SQL dotaz
Preji pekny den,
hraji si trosku s SQL a narazil jsem na nasledujici kombinaci:
mam 2 tabulky T1 a T2
T1: K1, A, B, C
T2: K2, S
kde Kn jsou klicove polozky, pres ktere jsou tabulky spojeny, ostatni
jsou
ciselne hodnoty. V T2 muze byt vice ruznych zaznamu s klicem K2
Potrebuji:
vybrat vsechny zaznamy z T1, pro ktere plati, ze (A+B+C)<>SUM(S) pro
stejne
klicove polozky, tedy pro K1=K2. To sum(S) je tedy podle group by K2
a zaroven vsechny zaznamy, kde K1 neni obsazeno v T2.(K2)
Lze to udelat pomoci SQL dotazu tak, abych nemusel mezivysledky (napr.
prave
to sum(S) group by K2) ukladat do TEMP tabulek a s temi potom vytvaret
zaverecny dotaz?
Za pripadne namety predem dekuji.
Honza.Asociace souboru
[*] Robert Van�k <dingo(zv)dingo(tec)cz> - 13.10.1998 08:08:10
Ahojte,
i kdyz by to nikdo nerekl a mozna je to trochu divny, tak seznam vsech
asociovanych souboru je v Kosu - Zobrazit - Moznosti - Typy souboru.
Je tom i cim je asociovany a da se tam pridavat a opravovat.
Jak je to ve W98 zatim nevim.
Ahoj Bob
-----P�vodn� zpr�va-----
Od: Honza Fiala [SMTP:fala(zv)imc(tec)cz]
Odesl�no: 13. listopadu 1998 7:53
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Asociace souboru
Caute vsichni,
mam asi trochu trivialni problem, ale nevim jak na to. Potrebuji zjistit s
jakym programem je soubor asociovan a kde ho najdu.
Jeste mam jeden podobny problem ohledne postovniho klienta. Potrebuji ho
spustit a pritom nevim, jaky postovni program uzivatel pouziva. Jeste by mi
strasne pomohlo tento program otevrit s odesilanou zpravou na urcitou
adresu, ale to uz asi chci moc.
Predem diky za kazdou odpoved
Honza
QReport - QRDBRichText
[*] Jirka Mikan <BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz> - 13.10.1998 08:12:20
>BTW: Nevite nekdo o nejake schopne nahrade za QR
Muj kamarad P.B., co fsecko vi, mi poradil - zkus WWW.SINEA.CZ
Jirka M.OnMinimize
[*] V�t�zslav Gazda������u��n�?��? - 13.10.1998 08:38:35
Kdysi jsem mel podobny problem. Zakladni aplikace ma vlastne dve okna.
Objekt TApplication je tlacitko na taskbaru a TForm je hlavni okno aplikace.
Tyto okna maji mezi sebou nejakou vazbu a pri takto nestandardni obsluze
dojde snadno k poruseni nejake synchronizace. Je to dost neurcite
vysvetleni, ale podle mne situace kdy nejde minimalizovat TForm nastane kdyz
zustane minimalizovane okno TApplication.
Napis blizsi informace o te aplikaci:
-jestli ma mit schovane tlacitko na taskbaru
-co se ma udelat s oknem pri zavreni okna, pouze schovat nebo ukoncit celou
aplikaci. Pokud jen schovat, jak se ta aplikace ukoncuje.
Doporucuji podivat se na me stranky http://www.tda(tec)cz/vita/ mam tam jednu
podobnou ukazkovou aplikaci.
Vita
DBGrid
[*] Pavel Kral <kral(zv)afx(tec)cz> - 13.10.1998 08:40:24
>Preji krasny den,
Diky, tobe a vsem ostatnim taky, v Jeseniku je fakt krasne...
>dekuji za odpovedi na dotaz ohledne barevneho odliseni polozek v DBGridu,
>ale nevyresilo to muj problem.
>Kdyz v DBGridu nastavim Canvas.Font.Color pro ruzne hodnoty urcite polozky
v
>databazi, tak se zbarvi cely radek, tedy pro tu jednu polozku, vsechny
>hodnoty ve vsech sloupcich a ja bych potrebovala menit barvu jen v jednom
>sloupci podle hodnoty v nem a ve vsech ostatnich sloupcich mit barvu vsech
>polozek stejnou.
To je zvlastni, kod, ktery jsem ti poslal, u mne spolehlive funguje.
Zkus si s tim jeste trochu pohrat, dat tam treba jeste podminku na nazev
pole apod.
Kdyz tak posli kousek zdrojaku, kouknem se na to (ne v souboru!).
Pred volanim DrawCell ve VCL je vzdy nastaven Canvas na vychozi, takze pokud
se ti
barvi i ostatni pole a hodnoty, zrejme prirazujes barvu vzdycky.
Ted jsem zkousel toto na sve databazi:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var c: TCanvas;
Field: TField;
begin
c:= (Sender as TDBGrid).Canvas;
Field:= Column.Field;
{ vybarvuje jen pole KatCislo }
if Field.FieldName = 'KatCislo' then
begin
{ zbarvi se jen polozky, ktere zacinaji na AL }
if copy(Field.asString,1,2) = 'AL' then
begin
c.Font.Color:= clBlue; // prvni barva
c.Font.Style:= [fsItalic];
c.Brush.Color:= clYellow;
end;
end;
(Sender as TDBGrid).DefaultDrawColumnCell(Rect, Datacol, Column,
State);
end;
> Jde to vubec nejak? Zkousela jsem vsechno mozne, ale bud to nejde a nebo
je
>to tim, ze nemam v tomto dostatek zkusennosti.
>
> Predem dekuji za radu.
> Katerina Dolezalova
>
Pavel Kral
AFX Jesenik
kral(zv)afx(tec)cz
Asociace souboru
[*] Pavel Kral <kral(zv)afx(tec)cz> - 13.10.1998 08:54:34
-----Original Message-----
>Caute vsichni,
>
> mam asi trochu trivialni problem, ale nevim jak na to. Potrebuji zjistit
s
>jakym programem je soubor asociovan a kde ho najdu.
lze pouzit API funkci
Vysledek:=FindExecutable(PChar(NazevSouboru),PChar(Adresar),
PChar(Program));
Ale jestli potrebujes otevrit soubor timto programem, pak staci
function ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
z unity FMXUtils.
>Jeste mam jeden podobny problem ohledne postovniho klienta. Potrebuji ho
>spustit a pritom nevim, jaky postovni program uzivatel pouziva. Jeste by mi
>strasne pomohlo tento program otevrit s odesilanou zpravou na urcitou
>adresu, ale to uz asi chci moc.
Zkus treba komponentu TGotoWeb od S.Cresto. Nasel jsem ji myslim na DSP,
umi vyplnit adresu a subject, ale jak vyplnit obsah zpravy, to nevim.
Pavel
ComCtl32
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 13.10.1998 08:56:48
Nevite, prosim, zda je knihovna COMCTL32.DLL rozdilna pro Win95 a WinNT4 ?
Dik Martin
OnMinimize
[*] Miroslav Mares <sm(zv)sct(tec)cz> - 13.10.1998 09:00:56
Kdyz to schovas pri minimalizaci a pak opet obnovis, tak presto zustava
okno pro windows minimalizovane,
i kdyz Ti ho Delphi obnovi. Taky jsem to zkousel, ale pak jsem od toho
upustil. Ono si tu minimalizaci osetri, jak windows,
tak Ty. No a pri obnove to osetris pouze Ty. No a kdyz jsem ho zkousel
presvedcit o tom, ze uz nema byt minimalizovane,
tak mi to neustale blinkalo :-(.
S pozdravem
Miroslav Mares
-----P�vodn� zpr�va-----
Od: Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz>
Komu: konference DELPHI <delphi-l(zv)fwd(tec)cz>
Datum: 12. listopadu 1998 19:28
P�edm�t: OnMinimize
>Zdravim
>
>Ve sve aplikaci pouzivam TBIcon od Viti Gazdy.
>Vse funguje OK.
>
>Pokud chci aplikaci schovat pri startu, volam
> Application.ShowMainForm:=false;
> Application.Run;
>
>Kdyz chci aplikaci schovat za behu, volam z menu
> procedure TFormMain.MenuItemSchovatClick(Sender: TObject);
> begin
> FormMain.hide;
> end;
>
>To vsechno funguje normalne.
>
>Rozhodl jsem se, ze pri minimalizaci okna chci
>aplikaci take schovat. Udelal jsem
> procedure TFormMain.create(Sender: TObject);
> begin
> application.onminimize:=MenuItemSchovatClick;
> end;
>
>A ted pozor !!!
>Na poprve to funguje dobre, pri minimalizaci to schova
>tlacitko na taskBaru. Pri stisknuti menu Schovat take.
>Pri druhe minimalizaci se nestane ale nic. Neschova se tlacitko,
>dokonce se ani neprovede minimalizace. Menu funguje porad dobre.
>
>Z minimalizovaneho tvaru to obnovuji
> FormMain.show;
>
>Co delam spatne ???????
>
>S pozdravem Zdenek
>
>*********** Podporuji bojkot Telecomu http://www.bojkot(tec)cz/ ************
>
>--------------------------------------- E-Mail -------------------------
>| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
>| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
>| ( o o) |--------------------- WWW --------------------------|
>| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
>------------------------------------------------------------------------
>| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
>------------------------------------------------------------------------
QReport - QRDBRichText
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 13.10.1998 09:01:50
Pred nedavnem jsem testoval RG a celkem se mi libil ACE Reporter,
OPUS Reporter (nema ale preview pri designu - autori slibili
rychle dodelat) a take ReportBuilder Pro a Report Printer Pro
vypadaji fajn (nove verze). Take mezi testovanymi byl Hyper Report
z Koreje a nevypadal zle.
Petr
-----Original Message-----
From: Jirka Mikan [mailto:BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz]
Sent: Friday, November 13, 1998 8:12 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: QReport - QRDBRichText
>BTW: Nevite nekdo o nejake schopne nahrade za QR
Muj kamarad P.B., co fsecko vi, mi poradil - zkus WWW.SINEA.CZ
Jirka M.ComCtl32
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 13.10.1998 09:04:57
Ne
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Martin Dupal <mdupal(zv)vision(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 13. listopadu 1998 10:05
P�edm�t: ComCtl32
Nevite, prosim, zda je knihovna COMCTL32.DLL rozdilna pro Win95 a WinNT4
?
Dik Martin
Asociace souboru
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 13.10.1998 09:04:09
Caute vsichni,
mam asi trochu trivialni problem, ale nevim jak na to. Potrebuji
zjistit s
jakym programem je soubor asociovan a kde ho najdu.
Jeste mam jeden podobny problem ohledne postovniho klienta. Potrebuji ho
spustit a pritom nevim, jaky postovni program uzivatel pouziva.
To bys nasel v registrech
Jeste by mi
strasne pomohlo tento program otevrit s odesilanou zpravou na urcitou
adresu, ale to uz asi chci moc.
Pres ShellExecute a "MailtTo:eMail_adresa" by melo otevrit email klienta s
prednastavenou adresou. Jeste by to slo resit pres MAPI, tam si muzes
vyplnit subject, pripojit soubory apod., ale je to trosku slozitejsi.
Predem diky za kazdou odpoved
Honza
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
DBGrid
[*] Katerina Dolezalova studentka FEL <DOLEZAK(zv)feld.cvut(tec)cz> - 13.10.1998 09:13:03 met-1mest
To je zajimave, to jsem zkousela a nemelo to zadny efekt. To je teda
divne.
> Pro tento pripad je nutno dat do podminky jeste Column (predavany jako
> parametr a cislovany od nuly) a barvu nastavovat jen pro napr. Column = 2
> > Kdyz v DBGridu nastavim Canvas.Font.Color pro ruzne hodnoty
> > urcite polozky v databazi, tak se zbarvi cely radek, tedy
> > pro tu jednu polozku, vsechny hodnoty ve vsech sloupcich a
> > ja bych potrebovala menit barvu jen v jednom sloupci podle
> > hodnoty v nem a ve vsech ostatnich sloupcich mit barvu vsech
> > polozek stejnou.
> > Jde to vubec nejak? Zkousela jsem vsechno mozne, ale bud to
> > nejde a nebo je to tim, ze nemam v tomto dostatek zkusennosti.
---------------------------*----*-*-*----*----------------------------
K K DDDDD S pozdravem Katka Dolezalova
K K D D
K K D D email: DOLEZAK(zv)FELD.CVUT.CZ
KK D D DOLEZAK(zv)HWLAB.FELK.CVUT.CZ
K K D D DOLEZAK(zv)CS.FELK.CVUT.CZ
K K D D
K K DDDDD adress and telephone: nepovim :-))
--------------------*--*--*--*--*--*--*--*--*--*----------------------
DBGrid
[*] Katerina Dolezalova studentka FEL <DOLEZAK(zv)feld.cvut(tec)cz> - 13.10.1998 09:14:37 met-1mest
> stiahni si rxlibrary a v nej sa nachadza trxdbgrid - s tym je to uplne simple.
Mohl bys mi napsat adresu, odkud se to da stahnout?
---------------------------*----*-*-*----*----------------------------
K K DDDDD S pozdravem Katka Dolezalova
K K D D
K K D D email: DOLEZAK(zv)FELD.CVUT.CZ
KK D D DOLEZAK(zv)HWLAB.FELK.CVUT.CZ
K K D D DOLEZAK(zv)CS.FELK.CVUT.CZ
K K D D
K K DDDDD adress and telephone: nepovim :-))
--------------------*--*--*--*--*--*--*--*--*--*----------------------
DBGrid
[*] Katerina Dolezalova studentka FEL <DOLEZAK(zv)feld.cvut(tec)cz> - 13.10.1998 09:18:23 met-1mest
Problem bude asi v tom, ze nevim jiste co mam napsat misto toho
Column.Field :
> Field:= Column.Field;
Zkousela jsem tam ruzne moznosti, ale asi jsem neprisla na tu pravou.
Mohl bys mi to trosku priblizit?
Prominte, ze se ptam na takove jiste uplne jasne veci, ale kazdy
nekdy s necim zacinal.
diky
Katka Dolezalova
---------------------------*----*-*-*----*----------------------------
K K DDDDD S pozdravem Katka Dolezalova
K K D D
K K D D email: DOLEZAK(zv)FELD.CVUT.CZ
KK D D DOLEZAK(zv)HWLAB.FELK.CVUT.CZ
K K D D DOLEZAK(zv)CS.FELK.CVUT.CZ
K K D D
K K DDDDD adress and telephone: nepovim :-))
--------------------*--*--*--*--*--*--*--*--*--*----------------------
Zajimavy problem s FileMode
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 13.10.1998 09:19:30 -0000
To jsem blazen, mne to v D3 Standard :-(( funguje taky :-)) , ale ta
zatracena aplikace, ve ktere jsem to puvodne udelal, ne a ne pracovat s
FileMode:=0. Kdyz jsem to vyhodil, pracuje k plne spokojenosti. Mrcha jedna
spatna! Ale nezatezujme s tim konferenci, v podstate o nic nejde. Jen mne
zajimalo, proc to s FileMode:=0 nechodi a bez neho jo. Diky za vsechny
odpovedi.
Prilezitostne to zkusim u nekoho s D4.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Odeslano: 12. listopadu 1998 20:01
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Zajimavy problem s FileMode
Petr Brant wrote:
>
> Ahoj vsem,
>
> setkal jsem se s nasledujicim problemem:
>
> Potreboval jsem udelat konverzi z textoveho souboru do databazove
tabulky.
> Nejdriv jsem udelal funkci pro kontrolu struktury:
Ahoj,
To je zvlastni, jakou mas verzi Delphi ? Ja zkusil podobny priklad (D4) a
funguje
to bez problemu:
procedure TForm1.Button1Click(Sender: TObject);
var
T: TextFile;
S: String;
begin
AssignFile(T, 'aaa.txt');
FileMode := 0;
Reset(T);
while not Eof(T) do
Readln(T, S);
CloseFile(T);
AssignFile(T, 'aaa.txt');
FileMode := 0;
Reset(T);
while not Eof(T) do
Readln(T, S);
CloseFile(T);
end;
Nicmene, pokud importujes data z textoveho souboru do databaze a format
toho souboru jsou jednotliva pole oddelene nejakym oddelovacem, tak muzes
pouzit primo BDE Text driver.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Delphi a PC FAND
[*] mbartone(zv)Synthesia(tec)cz - 13.10.1998 09:26:37
Ahoj
Nevite nekdo jak prevest data z PC FANNDu 3.0 do DBF ,DB nebo MS SQL
Dekuji Milan
Tvorba .HLP
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 13.10.1998 09:29:09
Zdravicko...
Dnes stoji 229$. :-(
F.
> -----P�vodn� zpr�va-----
> Od: Mirun [SMTP:forcom(zv)telecom(tec)cz]
> Odesl�no: p�tek, listopad 13, 1998 0:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Tvorba .HLP
>
> Pouzivam Help&Manual, trial verzi najdes na www.easycash.co.at.
> Je pohodlny, umi helpy pro 3.1/95 i export do HTML a vytisknout
> manual, kupoval jsem ho asi za $120, a jsem spokojen (na 96%)
>
> Miroslav Vavrin
Asociace souboru
[*] Ing. Daniel Ficek <ficek(zv)hstech(tec)cz> - 13.10.1998 09:38:56
1. Asociace je ulozena v registry - vetev HKEY_CLASSES_ROOT kde najdes napr.
klic ".avi" a ve (vychozi) najdes retezec "AVIFile". Pak v te same vetvi najdes
klic "AVIFile" a v nem \shell\open\command kde opet ve (vychozi) najdes program
ktery je asociovan.
2. Vyvolani postovniho programu s vypnenou urcitou adresou a predmetem zpravy:
uses ShellAPI;
if ShellExecute(Handle, 'open', PChar('mailto:info(zv)firma(tec)cz?subject=predmet
zpravy'), nil, nil, SW_SHOWNORMAL) <=32 then ShowMessage('Chybicka ...');
Ing. Daniel Ficek
Honza Fiala wrote:
> Caute vsichni,
>
> mam asi trochu trivialni problem, ale nevim jak na to. Potrebuji zjistit s
> jakym programem je soubor asociovan a kde ho najdu.
> Jeste mam jeden podobny problem ohledne postovniho klienta. Potrebuji ho
> spustit a pritom nevim, jaky postovni program uzivatel pouziva. Jeste by mi
> strasne pomohlo tento program otevrit s odesilanou zpravou na urcitou
> adresu, ale to uz asi chci moc.
>
> Predem diky za kazdou odpoved
>
> Honza
Delphi a PC FAND
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 13.10.1998 09:41:10
Pripojit pres ODBC a dal uz si jiste poradis (BatchMove, ...).
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: mbartone(zv)Synthesia(tec)cz [SMTP:mbartone(zv)Synthesia(tec)cz]
> Odesl�no: 13. listopadu 1998 9:27
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Delphi a PC FAND
>
> Ahoj
>
> Nevite nekdo jak prevest data z PC FANNDu 3.0 do DBF ,DB nebo MS SQL
>
> Dekuji Milan
> DBGrid
[*] Pavel Kral <kral(zv)afx(tec)cz> - 13.10.1998 09:42:53
>Problem bude asi v tom, ze nevim jiste co mam napsat misto toho
>Column.Field :
>> Field:= Column.Field;
>Zkousela jsem tam ruzne moznosti, ale asi jsem neprisla na tu pravou.
>Mohl bys mi to trosku priblizit?
>Prominte, ze se ptam na takove jiste uplne jasne veci, ale kazdy
>nekdy s necim zacinal.
> diky
> Katka Dolezalova
Vyraz Column.Field umoznuje pristup k poli, ktere se prave vykresluje.
Column se ti predava jako parametr a ten ma vlastnost Field typu TField.
Vyraz Field:= Column.Field jen ulozi Column.Field do promenne Field: TField;
misto Field muzes pouzit jakoukoliv promennou typu TField, treba F1.
Potom lze snadno pristupovat k hodnotam v kazde bunce.
Treba takto:
Column.Field.Value ( == F1.Value) - typ Variant
nebo, kdyz je to textove pole
Column.Field.asString (== F1.asString)
Pavel
DBGrid
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.10.1998 10:13:11
Takze Kato :-)
RxLibrary najdes na http://rx.demo.ru
Pak uz jen pouzijes TRxDBGrid a prihodis kod podobneho vzezreni, jako prikladam, do
udalost OnGetCellParams:
(misto TAMDBGrid pouzijes TRxDBGrid a upravis si nazvy poli popr. dalsi drobnosti,
protoze jsem to zrovna pred 14 dny delal, tak prihazuju kousek kodu - resi to i
zbarveni inverzni barvou vybraneho zaznamu - diky P.V. ;-)
Cau
Mac
-----------
procedure Tfrm_prehled_vylisku.AMDBGridGetCellParams(Sender: TObject;
Column: TAMColumn; AFont: TFont; var Background: TColor;
State: TGridDrawState; Highlight: Boolean);
begin
AFont.Color := clWindowText;
//Obarvi cervene pole 'zbyva' je-li vetsi nez 0 - jen jedno pole
if Column.FieldName = 'zbyva' then
if Column.Field.Value > 0 then
AFont.Color := clRed;
//A todle zelene ;-)
if Column.FieldName = 'zb_odlisovat' then AFont.Color := clGreen;
//Obarvi objednavky, ktere je jiz mozne odeslat - celky radek
if ((Sender as TAMDBGrid).DataSource.DataSet.FieldByName('zbyva').Value <= (Sender
as TAMDBGrid).DataSource.DataSet.FieldByName('vy_skladem').Value)
and ((Sender as TAMDBGrid).DataSource.DataSet.FieldByName('zbyva').Value <> 0)
then
Background := clYellow
else
Background := clWindow;
//Oznacene sloupecky oznaci inverzne
if Highlight then begin
AFont.Color := ColorToRGB(AFont.Color) xor $FFFFFF;
Background := ColorToRGB(Background) xor $FFFFFF; //clHighlight;
end;
end;
--------------
Katerina Dolezalova studentka FEL wrote:
> > stiahni si rxlibrary a v nej sa nachadza trxdbgrid - s tym je to uplne simple.
> Mohl bys mi napsat adresu, odkud se to da stahnout?
> ---------------------------*----*-*-*----*----------------------------
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================
QuickReport
[*] Jirka Mikan <BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz> - 13.10.1998 10:17:51
Jo, to je vono, uz jsem to taky zazil.
Nejlepsi na tom je, ze pri instalaci DELPHI na Tve PC
se ta knihovna aktualizuje, takze u Tebe je vse OK,
ale na jinem PC ne a ne delat dobrotu. Ten I to asi
vyresi, mozna ale i jiny programy (active X apod.).
Strejda Jirka M.
-----Original Message-----
From: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 12. listopadu 1998 11:18
Subject: RE: QuickReport
>Sice jsem QR v zivote nevidel :-) ale pripomina mi to problem s odlisnou
>verzi COMCTL32.DLL
>Zkus tam nainstalovat IE4, nebo si sezen tu knihovnu jinak.......
>
>
>Martin Fron�k
>ZZN Slan� a.s.
>Pra�sk� 1579, 274 49, Slan�
>tel. +420-314-522986
>e-mail: fronek(zv)zznslany(tec)cz
>
>> -----P�vodn� zpr�va-----
>> Od: Radek KALA [SMTP:delphi(zv)betacontrol(tec)cz]
>> Odesl�no: 12. listopadu 1998 9:22
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: QuickReport
>>
>> Prosim prosim, pouzivam nejnovejsi Quick report a mam takovy
>> zajimavy problem. V preview jsou nahore tlacitka s bitMapama.
>> U nekterych zakazniku, se tam ty bitmapy neobjevi a tlacitka jsou
>> prazdny. Vypada to strasne.
>>
>> Diky za napady.
>>
>> S pozdravem Radek KALA
>> BetaControl, s.r.o.
>> Mostecka 15, 614 00
>> tlf. : + 420 5 4532 1112 / 2413
>> fax : + 420 5 4521 1501
>> GSM : + 420 603 85 75 15
>
PRECO TO NEJDE
[*] Ing. J�n Kuch�r�����!j��G - 13.10.1998 10:21:51
Program zacina tym, ze po uzivatelovi pita meno a heslo ( to prejde v
poriadku ) a potom sa pomocou prikazu assignfile natahuje konfiguracia zo
suboru cfg a tam sa program zosipe s hlaskou ze doslo k chybe na adrese
FFFFFFFF.
Asociace souboru
[*] pacak(zv)pepa(tec)cz (PePa spol. s r.o. ) - 13.10.1998 10:22:22
FindExecutable(lpFile,lpDirectory,lpResult)
- lpFile (naev souboru - napr:'dokument.doc')
- lpDirectory (umisteni souboru - napr:'C:\Dokumenty\')
- lpResult (buffer se znaky Pchar - tam se ulozi cesta zde napr: k
WORD.EXE
tzn.k souboru, se kterym je dokument.doc
asociovan)
Jirka Virt
-----P�vodn� zpr�va-----
Od: Honza Fiala <fala(zv)imc(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. listopadu 1998 9:25
P�edm�t: Asociace souboru
>Caute vsichni,
>
> mam asi trochu trivialni problem, ale nevim jak na to. Potrebuji zjistit
s
>jakym programem je soubor asociovan a kde ho najdu.
>Jeste mam jeden podobny problem ohledne postovniho klienta. Potrebuji ho
>spustit a pritom nevim, jaky postovni program uzivatel pouziva. Jeste by mi
>strasne pomohlo tento program otevrit s odesilanou zpravou na urcitou
>adresu, ale to uz asi chci moc.
>
>Predem diky za kazdou odpoved
>
>Honza
>Problem *.lnk
[*] pacak(zv)pepa(tec)cz (PePa spol. s r.o. ) - 13.10.1998 10:23:57
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj v�em,
nevite n�kdo , jak ziskat ze zastupce (*.lnk) cestu k souboru ,ktery zastupuje?
Dekuji predem za dosle odpovedi.
Jirka Virt
REGISTER
[*] Ing. J�n Kuch�r�����!j��G - 13.10.1998 10:25:14
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam dalsi problem. Moj program pre svoju cinnost potrebuje kniznicu VCL30.DPL, pomocou programu IS Expres som to nainstaloval pod dany adresar WINDOWSU, ale program po spusteni vykrikuje ze trieda nieje zaregistrovana. Otazka ako inteligentne urobit instalacky aby sa dany subor zkopiroval tam ka ma a aby sa aj zaregistroval.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk Quick Report podruhe
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 13.10.1998 10:35:40
Dekuji vsem za odpoved. Bylo to opravdu starou knihovnou
Comctl32.DLL. Doporucuji vsem nahrat novou verzi.
A jeste jeden maly dotaz na nekterych reportech se tisknou
nektere texty bez diakritiky. I kdyz nastavim Charset na
St�edoevropsky. Nap�. v�echny Labely jsou dobre a DBLabely
bez. Na jinem reportu je to ale dobre.
Poradite i s timto. Diky.
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
MS SQL Server 7 & TDateEdit z RXLib
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 13.10.1998 10:45:16
Ahoj vsem,
na strance www.delphi cz se pise
22. cervence 1998 : protoze se tu v debatach casto vyskytuje kombinace Delphi+MS SQL,
mam pro vas cerstvou zpravu od naseho dobreho znameho Jirky Buriana: Pokud nekdo napise na
softmail nebo zavola na info linku MS 02/ 71764575 a rekne si o CD SQL Server 7, pak ho
dostane zadarmo, a nebude platit ani postovne.
Chci se zeptat, jestli to nekdo zkousel tam mailovat ?
Psal jsem tam, abych se zeptal co a jak ale nikdo se
mi neozval. Nez tam budu telefonovat, chci se zeptat
Vas...
Jeste bych se chtel zeptat na RX library (pro D1 ! )
- TDateEdit pouziva anglicke nazvy dni a mesicu, nevite,
kde to prepsat ? Ja to hledal snad uplne vsude a nenasel.
Ze systemu se to netaha, mam Win95 CZ.
Diky Dobra.Delphi a PC FAND
[*] SCT Softmaker, s.r.o. <sm(zv)sct(tec)cz> - 13.10.1998 10:46:11
Jak jsem koukal, uz nekdo odpovidal, ze pomoci ODBC driveru.
Pokud je vsak nemas, tak mas minimalne dalsi dve moznosti...
- pokud je pristup k otevrene (nezaheslovane) uloze ve FANDu, tak bych asi
zmenil
- s trochou programovani lze vyuzit unitu FandData (www.KJsoft(tec)cz),
vytvoris strukturu tabulky a pak k datum pristupujes ala record.item
-----P�vodn� zpr�va-----
Od: mbartone(zv)Synthesia(tec)cz <mbartone(zv)Synthesia(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. listopadu 1998 10:11
P�edm�t: Delphi a PC FAND
>Ahoj
>
>Nevite nekdo jak prevest data z PC FANNDu 3.0 do DBF ,DB nebo MS SQL
>
>Dekuji Milan
>Delphi a PC FAND
[*] Reiniger Milan <Reiniger(zv)mmp.plzen-city(tec)cz> - 13.10.1998 10:47:06
Jestli mas zdrojaky k programu v PC-Fandu, pak je to legrace. Jestli ne, je
to horsi.
S pozdravem
Milan Reiniger
Skroupova 5
305 84 Plzen
tel.: 019/7035053
reiniger(zv)mmp.plzen-city(tec)cz
http://info.plzen-city(tec)cz/
-----P�vodn� zpr�va-----
Od: mbartone(zv)Synthesia(tec)cz [mailto:mbartone(zv)Synthesia(tec)cz]
Odesl�no: 13. listopadu 1998 9:27
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Delphi a PC FAND
Ahoj
Nevite nekdo jak prevest data z PC FANNDu 3.0 do DBF ,DB nebo MS SQL
Dekuji Milan
Delphi a PC FAND
[*] SCT Softmaker, s.r.o. <sm(zv)sct(tec)cz> - 13.10.1998 10:50:23
Tak jeste jednou, velmi se omlouvam, ale kolega mi nedopatrenim odeslal
rozepsany prispevek :-)
----------
Jak jsem koukal, uz nekdo odpovidal, ze pomoci ODBC driveru.
Pokud je vsak nemas, tak mas minimalne dalsi dve moznosti...
- pokud je pristup k otevrene (nezaheslovane) uloze ve FANDu, tak bych asi
zmenil prislusne datove soubory (kapitoly F) na format DBF.
Tak by bylo mozne pristupovat k tem datum pohodlne z obou stran.
- s trochou programovani lze vyuzit unitu FandData (www.KJsoft(tec)cz),
vytvoris strukturu tabulky a pak k datum pristupujes ala record.item
Hezky den
Ing. Ludek Svoboda
FDsystem(zv)OASAnet(tec)cz
www.FDsystem(tec)cz
-----P�vodn� zpr�va-----
Od: mbartone(zv)Synthesia(tec)cz <mbartone(zv)Synthesia(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 13. listopadu 1998 10:11
P�edm�t: Delphi a PC FAND
>Ahoj
>
>Nevite nekdo jak prevest data z PC FANNDu 3.0 do DBF ,DB nebo MS SQL
>
>Dekuji Milan
>TDate z RxLib
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 13.10.1998 10:58:20
Uz jsem to nasel, je to v %Delphi1_Root%\LIB\Sysutils.res
>Jeste bych se chtel zeptat na RX library (pro D1 ! )
>- TDateEdit pouziva anglicke nazvy dni a mesicu, nevite,
>kde to prepsat ? Ja to hledal snad uplne vsude a nenasel.
>Ze systemu se to netaha, mam Win95 CZ.
prepisovani systemovych DLL
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 13.10.1998 11:01:37
Ahoj vsichni,
Mam problem a dotaz. Pisu specificky instalacni program. Mnoho veci jsem uz
vystudoval nebo
nekde opsal, nicmene stale nevim, jak korektne vymenovat sdilena a v dobe
instalace otevrena systemova DLLka pod WindowsNT/9x. Konkretne napr
\SYSTEM\OLEAUT32.DLL. Potreboval bych poradit
jak je spravne odregistrovat, vyjmout, dat novejsi verzi. Jde mi hlavne o
tu odregistraci, registrovat jakz takz uz umim.
Heretic-X
<www.nt(tec)cz>
FindField v 32bit a threadu
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 13.10.1998 11:04:17
Nazdar vsichni,
mam (a zrovna dneska) takovy problem.
V jednom threadu zpracovavam databazi. Pokud je v ni
nejaka veta, vysilam ji a mazu. Vcera byl vsude pouzit
kod typu JEDNOTKY.FindField('Cislo').asInteger a vse
fungovalo jak ma. Dnes ne a musim si FieldsEditorem
vytvorit objekt, ktery pak pouzivam. Kdyz tedy pote pouziji
JEDNOTKYCislo.asInteger je vse v poradku bez nejmensi
hlasky (ta je neco jako, ze ctu ze spatne adresy).
Uz jsem si zacinal myslet, ze je to reentrantnosti, ale ne.
Tabulku pouziva jen tento thread a nikdo jiny (otvira se sice
v hlavnim programu, ale to thread jeste ceka 10sec na
inicializaci ostatniho HW).
Setkal uz se s tim nekdo a nebo mam zase jen ja tu smulu?
Martin
MS SQL Server 7 & TDateEdit z RXLib
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.10.1998 11:05:30
Ja tam mailoval a za tyden jsem to mel. Odpoved ci potvrzeni zadne. Pak jsem CD ztratil, tak
jsem to objednaval znova (asi pred mesicem - a neprislo nic). NASTESTI jsem to CD nasel
zalozene v obalu od NT Serveru ;-). Takze, ze by jim dosly?
Mac
Dobromil Mal� wrote:
>
> Chci se zeptat, jestli to nekdo zkousel tam mailovat ?
> Psal jsem tam, abych se zeptal co a jak ale nikdo se
> mi neozval. Nez tam budu telefonovat, chci se zeptat
> Vas...
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 =
==============================================================
Ukonceni modal dialogu
[*] Jirka Fejfar <fejfarj(zv)login(tec)cz> - 13.10.1998 11:13:52
Ahoj vsichni,
mam nasledujici problem :
potrebuji aby se mi TForm ktery jsem aktivoval pomoci funkce ShowModal sam
ukoncil (treba po 15 vterinach), nejak proste nemuzu prijit na ten trik jak
to udelat ....
diky za kazdou odpoved ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
__________________
DBGrid
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 13.10.1998 11:15:58
A prece to nevzdam (ze bych to uz nekde slysel? :-)
Nasledujici pripad obarvi 2 sloupec na cerveno, pokud castka bude < 0
Obsah OnDrawColumnCell :
If Not (gdFocused in State) And Not (gdSelected In State) Then
If (DataCol=1) And (Data.tblPokl.FieldByName('Castka').AsCurrency < 0)
Then gridKniha.Canvas.Font.Color := clMaroon;
gridKniha.DefaultDrawColumnCell(Rect, DataCol, Column, State);
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
Pomalej Paradox
[*] Marek Soukup <marek(zv)comberg(tec)com> - 13.10.1998 11:18:00
Ahoj Delfini,
mel bych dotaz ohledne Win 3.11 Delphi 1 a Paradoxu skrz BDE.
Dodelal jsem app, donesl k zakaznikovi, nainstaloval data na server a s
hruzou zjistil, ze rychlost app je nekde mezi snekem a zelvou. Pritom
pocitace, ktere pouzivaji jsou myslim pro dany software pomerne
dostacujici (486-100MHz nebo Pentium). I nejjednodusi SetKey, GotoKey
probuhal tak pomalu, ze je app vpodstate nepouzitelna. Potreboval bych
vedet jestli jsem to mohl nejak spatne nastavit nebo naprogramovat nebo
jestli je to vlastnost se kterou se musim smirit.
Diky za kazdou odpoved
Marek Soukup
Comberg s.r.o.Kombinovany SQL dotaz
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 13.10.1998 11:31:14
na MS SQL by to asi �lo pomoc� klauzule HAVING
-----P�vodn� zpr�va-----
Od: Jan Naiser [SMTP:tua(zv)ltm(tec)cz]
Odesl�no: 13. listopadu 1998 8:04
Komu: Delphi konference
P�edm�t: Kombinovany SQL dotaz
Preji pekny den,
hraji si trosku s SQL a narazil jsem na nasledujici kombinaci:
mam 2 tabulky T1 a T2
T1: K1, A, B, C
T2: K2, S
kde Kn jsou klicove polozky, pres ktere jsou tabulky spojeny, ostatni jsou
ciselne hodnoty. V T2 muze byt vice ruznych zaznamu s klicem K2
Potrebuji:
vybrat vsechny zaznamy z T1, pro ktere plati, ze (A+B+C)<>SUM(S) pro stejne
klicove polozky, tedy pro K1=K2. To sum(S) je tedy podle group by K2
a zaroven vsechny zaznamy, kde K1 neni obsazeno v T2.(K2)
Lze to udelat pomoci SQL dotazu tak, abych nemusel mezivysledky (napr. prave
to sum(S) group by K2) ukladat do TEMP tabulek a s temi potom vytvaret
zaverecny dotaz?
Za pripadne namety predem dekuji.
Honza.RichEdit
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 13.10.1998 11:32:48
On to um� i RichEdit v D3, ale mus� se do n�j doprogramovat obsluha OLE.
-----P�vodn� zpr�va-----
Od: Ji�� Heinisch [SMTP:HeiJu(zv)sol(tec)cz]
Odesl�no: 13. listopadu 1998 8:42
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RichEdit
Ahoj
umi v D4 RICHEDIT uz zobrazovat gr. objekty
a pokud ne je nekde neco jineho pro tyto ucely ?
Diky HeiJu
<<Soubor: ATT00007.htm>>
Editace SQL databaze
[*] Bardon <INEQSW(zv)ova.pvtnet(tec)cz> - 13.10.1998 11:40:14
Diky
Jestli jsem to spravne pochopil, insertoval bys to pres jine TQuery, abys dostal (zv)(zv)IDENTITY ven. Ja totiz s oblibou pouzivat TUpdateQuery a tam to tak mohu napsat, ale nedostanu to IDENTITY ven.
Mohu jeste jeden dotaz? Je tezke prepsat aplikaci z BDE na ADO?
-----P�vodn� zpr�va-----
Od: Martin Kubecka [SMTP:martin.kubecka(zv)amenit(tec)cz]
Odesl�no: 13. listopadu 1998 8:43
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Editace SQL databaze
Bardon wrote:
> Nepochopil jsem asi variantu 1. J� to del�m jedin� tak, ze vol�m Close a Open (protoze TQuery neum� Refresh), ale pak mus�m jeste resit ot�zku, jak nastavit kursor na tus pr�vnou vetu. Vetsinou se nejaky zpusob najde (pres locate), obcas taky ne.
>
Jasne, delam to v podstate stejne. Po vlozeni noveho radku je nutne zjistit ID, ktere se generuje az po vlozeni zaznamu. Aby si ho potom mohl editovat, tak musis refreshnout (tj. zjistit to ID, ktere je uz fyzicky v databazi). Refresh bohuzel
nefunguje (zlate ADO, tam to chodi v pohode ;-) takze Close + Open, presne jak rikas.
Pruser je, ze pro uzivatele neni zrovna dvakrat prijemne, kdyz zada zaznam a ono mu to skoci na prvni, takze je fajn prejit na onen zadany zaznam. Bohuzel jednoznacny identifikator clovek nezna, protoze se generuje az PO vlozeni. Takze bud locate
(coz neni 100% obvzvlaste v sitovem provozu a navic si musim pamatovat pole, co jsem tam dal). Popr. locate kombinovat s nejakym id uzivatele a casem adani atd. - proste nic 100%.
MS SQL ma promennou (zv)(zv)IDENTITY, ktera obsahuje ID naposledy vlozeneho zaznamu. Pruser je v tom, ze to musi byt v jednom spojeni (connection), protoze jinak je (zv)(zv)IDENTITY null.
Zkus si v SQL Query Tool (nebo v necem podobnem) napsat:
INSERT kontakty(prijmeni) VALUES ('Pepa')
SELECT (zv)(zv)IDENTITY
(pochopitelne tabulka 'kontakty' musi mit nejake 'id kontakty, int, identity')
No a dostanes ID vlozeneho zaznamu, na ktere si prejdes napr. pomoci locate.
> U TTable jsem objevil, �e funguje nastaven� field kind na fkInternalCalc. Podle helpu by to melo fungovat i na TQuery, ale nefunguje.
>
> Jestli muzes, skus mi vysvetlit jak je to s tou variantou 1. Jde o to, ze hodnotu sice z�sk�m, ale pokud ji dosad�m do vety, provedu editaci a bude to cht�t zbytecne ulozit znovu. Nav�c nev�m, jak to nac�t�s v jednom pripojeni.
Ten fkInternalCalc jeste nekdy zkusim (pokud vubec nekdy budu jeste pouzivat ODBC nebo SQL native linky ;-)
Skutecne v jednom pripojeni (bez nutnosti obnovovat udaje) to funguje pres ADO (tam si potvurka dotahne jen ten jeden konkretni vlozeny zaznam, takze se to v podstate navenek chova jako lokalni databaze).
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================MS SQL Server 7 & TDateEdit z RXLib
[*] V�t�zslav Gazda������u��n�?��? - 13.10.1998 11:41:07
Ja jsem tam mailoval zadost o to CD a prislo mi to. Asi za tyden mi to
prislo podruhe, nevim proc.
Vita
Ukonceni modal dialogu
[*] Pavel Kral <kral(zv)afx(tec)cz> - 13.10.1998 12:01:44
>mam nasledujici problem :
>
>potrebuji aby se mi TForm ktery jsem aktivoval pomoci funkce ShowModal sam
>ukoncil (treba po 15 vterinach), nejak proste nemuzu prijit na ten trik jak
>to udelat ....
>
Myslim ze staci nastavit ModalResult na hodnotu odlisnou od mrNone.
Pavel
Ukonceni modal dialogu
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 13.10.1998 12:03:55
TForm ma taku metodu Close ;-)
Closes the form.
procedure Close;
Description
Call Close to close a form.
Close calls the CloseQuery method to determine if the form can close. If
CloseQuery returns False, the close operation is aborted. Otherwise, the
OnClose event occurs.
Note: When the main form of the application closes, the application terminates.
snad to bude fungovat aj na modalnom okne....
--
Maj sa,
R.
Ukonceni modal dialogu
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 13.10.1998 12:14:47
Zkus dat na form TTimer nastav mu cas na 15000
do OnShow toho formu dej aktivaci toho timeru
a v OnTimer dej Form1.Close.
D.
----------
Od: Jirka Fejfar[SMTP:fejfarj(zv)login(tec)cz]
Odesl�no: 13. listopadu 1998 11:13
Komu: DELPHI Distribution List
P�edm�t: Ukonceni modal dialogu
Ahoj vsichni,
mam nasledujici problem :
potrebuji aby se mi TForm ktery jsem aktivoval pomoci funkce ShowModal sam
ukoncil (treba po 15 vterinach), nejak proste nemuzu prijit na ten trik jak
to udelat ....
diky za kazdou odpoved ...
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
Ako zachytit Event ?
[*] Hric Jan <JHRIC(zv)duro.upjs.sk> - 13.10.1998 13:07:56 nft-dft
Vdaka Brano , velmi si mi pomohol !!!
Funguje to , ale s malou zmenou :
deklaraciu ClientSocket:TClientSocket som musel dat tiez do
casti p r i v a t e .
Jano H.
> From: Branislav Danko <danko(zv)basl.sk>
> Nazdar,
>
> takze ak mas napriklad triedu formularu TMyForm, ktora bude vlastnikom
> dynamicky vytvoreneho objektu typu TClientSocket, tu udalost zachytis
> takto:
>
> TMyForm = class (TForm)
> ...
> private
> procedure MojaObsluha(....) - prototyp procedury musis opisat podla
> originalu
> end;
>
> var
> MyForm: TMyForm;
>
> procedure TMyForm.FormCreate(Sender: TObject);
> var
> ClientSocket: TClientSocket;
> begin
> ClientSocket := TClientSocket.Create;
> ClientSocket.OnRead := MojaObsluha;
> end;
>
> procedure TMyForm.FormDestroy(Sender: TObject);
> begin
> ClientSocket.OnRead := nil;
> ClientSocket.Free;
> end;
>
> procedure TMyForm.MojaObsluha(....);
> begin
> ShowMessage('Udalost OnRead');
> end;
>
>
>
> Brano.Naroky D4 na hardware
[*] pcuhel(zv)deltax(tec)cz - 13.10.1998 13:15:42
Ahoj,
Chtel bych se zeptat jaky je rozdil mezi rychlosti navrhu v D3 a D4.
Co pisi borlandi o minimalni a doporucene konfiguraci pro D4 ?
Dik.
Hromadna zmena vlastnosti - reseni
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 13.10.1998 13:19:42
Tak jsi mel zase :-)) pravdu, funguje to. Jenom je treba
doplnit hlidani jeste jedne vlastnosti - TitleFont.
To se tyka specielne titulku u DBGridu. S touto zmenou je
to krasne obecne.
S pozdravem Zdenek
*********** Podporuji bojkot Telecomu http://www.bojkot(tec)cz/ ************
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
> Tak lehce se nevzdam :-)
>
> Varianta 2.
>
> uses
> TypInfo;
>
> function ControlFont(Component: TComponent): TFont;
> var
> PropInfo: PPropInfo;
> begin
> Result := nil;
> if Component <> nil then
> begin
> PropInfo := GetPropInfo(Component.ClassInfo, 'Font');
> if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) and
> (GetTypeData(PropInfo^.PropType^)^.ClassType = TFont) then
> Result := TFont(GetMethodProp(Component, PropInfo).Code);
> end;
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> I: Integer;
> CFont: TFont;
> begin
> for I := 0 to ComponentCount - 1 do
> begin
> CFont := ControlFont(Components[I]);
> if CFont <> nil then CFont.Style := [fsBold];
> end;
> end;
>
> Petr Vones
DBE
[*] Daniel SICHTA <Sichta(zv)asset.sk> - 13.10.1998 13:26:45
Ahoj vsetci
Mam takyto urcite jednoduchy problem !
Ako sa da nastavit v BDE Admin alias na dtb(interbase) aby mi nepyta
heslo !!! (zadat ho do aliasu )
Ako sa da otvorit vlastna Connect forma, nie DBE connect (Login name,
Password �.)
Vopred dakujem
Ing. Daniel �ICHTA
ASSET s.r.o. , Rosinsk� 8, 01 090 �ILINA
* 421-89-52415
* sichta(zv)za.asset.sk <mailto:sichta(zv)za.asset.sk> Existuje viewer?
[*] Jirka Mikan <BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz> - 13.10.1998 13:42:36
Ahoj, vsem pokrocilym,
prosim vas, potrebuju v D4 prohlizet (JEN prohlizet)
textovy file. Jaxe toho dopracuju. Je nejaka komponenta
nebo se da nejak spustit externi program (jaky teda a jak?)
Diky za odpovedi...
Strejda Jirka M.
QR custom preview + composite report
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 13.10.1998 13:45:58
Ahoj,
nevite nekdo jak udelat Custom Preview pro CompositeReport?
Diky
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz Naroky D4 na hardware
[*] Jirka Mikan <BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz> - 13.10.1998 13:56:03
Opsano z te bedny od D4:
Minimum system requirements:
Intel 486DX/66 MHz or higher,
MS Win 95 or NT
16 MB RAM (ale za prd to stoji i se 32 MB, nejlepsi je more than 48 MB)
60 MB HDD space
CD-ROM
VGA, Mouse...blalblabla...
>Ahoj,
>
>Chtel bych se zeptat jaky je rozdil mezi rychlosti navrhu v D3 a D4.
>Co pisi borlandi o minimalni a doporucene konfiguraci pro D4 ?
>
> Dik.
>
>
Linux
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 13.10.1998 14:08:18
Nezn�te n�kdo n�hodou ofici�ln�ho distributora LINUXU v �R.
Jsem vd��n� za jakoukoli informaci.
D�ky.
-----------
Ing. Martin Dupal
address: Geislerova 6
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
Quick Report podruhe
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 13.10.1998 14:13:14
Mozna je to blbost, ale skus DBLabel(QRDBtext).Font.Charset nastavit na
OEM_Charset(pokud ma uzivatel nastavene ceske prostredi Windows) tak to
mozna bude fungovat. Napadlo me to v souvislosti s tim, ze v mem
programu vsechny ne Data- Aware kompponenty maji nastaveno
EASTEUROPE_CHARSET a vsechny Data-Aware komponenty maji nastavene
OEM_CHARSET a vsechno je to zobrazeno spravne.
Pokud to neni v tim - jako byste tento mail ani nedostali.
> -----P�vodn� zpr�va-----
> Od: Radek KALA [SMTP:delphi(zv)betacontrol(tec)cz]
> Odesl�no: 13. listopadu 1998 10:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Quick Report podruhe
>
> Dekuji vsem za odpoved. Bylo to opravdu starou knihovnou
> Comctl32.DLL. Doporucuji vsem nahrat novou verzi.
>
> A jeste jeden maly dotaz na nekterych reportech se tisknou
> nektere texty bez diakritiky. I kdyz nastavim Charset na
> St�edoevropsky. Nap�. v�echny Labely jsou dobre a DBLabely
> bez. Na jinem reportu je to ale dobre.
> Poradite i s timto. Diky.
>
> S pozdravem Radek KALA
> BetaControl, s.r.o.
> Mostecka 15, 614 00
> tlf. : + 420 5 4532 1112 / 2413
> fax : + 420 5 4521 1501
> GSM : + 420 603 85 75 15
QReport - QRDBRichText
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 13.10.1998 14:19:26
A ted uz jen ty adresy na ty skvele reporty.Diky
> -----P�vodn� zpr�va-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Odesl�no: 13. listopadu 1998 9:02
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: QReport - QRDBRichText
>
> Pred nedavnem jsem testoval RG a celkem se mi libil ACE Reporter,
> OPUS Reporter (nema ale preview pri designu - autori slibili
> rychle dodelat) a take ReportBuilder Pro a Report Printer Pro
> vypadaji fajn (nove verze). Take mezi testovanymi byl Hyper Report
> z Koreje a nevypadal zle.
>
> Petr
>
>
>
>
> -----Original Message-----
> From: Jirka Mikan [mailto:BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz]
> Sent: Friday, November 13, 1998 8:12 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: QReport - QRDBRichText
>
>
> >BTW: Nevite nekdo o nejake schopne nahrade za QR
>
> Muj kamarad P.B., co fsecko vi, mi poradil - zkus WWW.SINEA.CZ
>
>
> Jirka M.Existuje viewer?
[*] Jochman Jan <JJochman(zv)cpoj(tec)cz> - 13.10.1998 14:26:49
Memo.Lines.LoadFromFile( 'FileName' );
> -----P�vodn� zpr�va-----
> Od: Jirka Mikan [SMTP:BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz]
> Odesl�no: 13. listopadu 1998 13:43
> Komu: DELPHI KONFERENCE
> P�edm�t: Existuje viewer?
>
> Ahoj, vsem pokrocilym,
>
> prosim vas, potrebuju v D4 prohlizet (JEN prohlizet)
> textovy file. Jaxe toho dopracuju. Je nejaka komponenta
> nebo se da nejak spustit externi program (jaky teda a jak?)
>
> Diky za odpovedi...
> Strejda Jirka M.
> Ukonceni modal dialogu
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 13.10.1998 14:27:26 -0000
Dej do toho dialogu Timer a na jeho tiknuti dej Close. Nebo si v te tride
nadefinuj nejake promenne, kterymi muzes nastavovat ovladani z vnejsku.
Moznosti jsou mraky.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Jirka Fejfar [SMTP:fejfarj(zv)login(tec)cz]
Odeslano: 13. listopadu 1998 10:14
Komu: DELPHI Distribution List
Poedmit: Ukonceni modal dialogu
Ahoj vsichni,
mam nasledujici problem :
potrebuji aby se mi TForm ktery jsem aktivoval pomoci funkce ShowModal sam
ukoncil (treba po 15 vterinach), nejak proste nemuzu prijit na ten trik jak
to udelat ....
diky za kazdou odpoved ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
__________________
Ukladani/Nacitani komponent
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 13.10.1998 14:28:14
Uz to tu urcite probehlo, ale presto.
Nevite jak se ukladaji do TFileStream komponenty, ktere maji jako
property dalsi komponenty( TMemo --> TStrings). Udelal jsem to podle
Marca Cantu a ono to nejak nefunguje pri opetovnem nacitani. Kdysi jsem
to resil ukladanim TMemo do Ini souboru a pri nacitani vytvareni z
ulozenych vlastnosti toho ini souboru, ale ono to neni to prave. Nehlede
k tomu, ze bych chtel napriklad canvasu tuho mema priradit bitmapu.
Diky za odpovedi.Ukonceni modal dialogu
[*] Milos Koutny <kou20um(zv)axpsu.fpf.slu(tec)cz> - 13.10.1998 14:28:12
Doporucuji z OnActivate zavolate PostMessage(WM_CLOSE...).
Milos Koutny
milos.koutny(zv)fpf.slu(tec)cz
On Fri, 13 Nov 1998, Jirka Fejfar wrote:
> Ahoj vsichni,
>
> mam nasledujici problem :
>
> potrebuji aby se mi TForm ktery jsem aktivoval pomoci funkce ShowModal sam
> ukoncil (treba po 15 vterinach), nejak proste nemuzu prijit na ten trik jak
> to udelat ....
>
>
> diky za kazdou odpoved ...
> __________________
>
> Jiri Fejfar
> e-mail: fejfarj(zv)login(tec)cz
> __________________
>
> REGISTER
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 13.10.1998 14:30:06 -0000
Nemam s tim naprosto zadne zkusenosti, tak to ber s rezervou. Pro
regisatraci se pouziva program regsvr32.exe. Volani: regsvr32 VCL30.DPL a
daji se k tomu jeste pripisovat nejake parametry. Nevim, jestli je to ono,
ale snad to bude k necemu.
********************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************
-----Puvodni zprava-----
Od: Ing. Jan Kuchar [SMTP:kuchar(zv)tuke.sk]
Odeslano: 13. listopadu 1998 9:25
Komu: Delphi
Poedmit: REGISTER
Caute
Mam dalsi problem. Moj program pre svoju cinnost potrebuje kniznicu
VCL30.DPL, pomocou programu IS Expres som to nainstaloval pod dany adresar
WINDOWSU, ale program po spusteni vykrikuje ze trieda nieje zaregistrovana.
Otazka ako inteligentne urobit instalacky aby sa dany subor zkopiroval tam
ka ma a aby sa aj zaregistroval.
Dik
Ing. Jan Kuchar
Katedra invacii a rein?inieringu
SjF TU Ko?ice
Letna 9
040 01 Ko?ice
E-mail : kuchar(zv)tuke.sk
<<Soubor: ATT00016.html>> Zajimavy problem s FileMode
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.10.1998 14:32:10
>To jsem blazen, mne to v D3 Standard :-(( funguje taky :-)) , ale ta
>zatracena aplikace, ve ktere jsem to puvodne udelal, ne a ne pracovat s
>FileMode:=0. Kdyz jsem to vyhodil, pracuje k plne spokojenosti. Mrcha jedna
>spatna! Ale nezatezujme s tim konferenci, v podstate o nic nejde. Jen mne
>zajimalo, proc to s FileMode:=0 nechodi a bez neho jo. Diky za vsechny
>odpovedi.
k nastaveni FileMode bych mel jeste tuto poznamku: Ihned po provedeni
pozadovane operace (otevreni souboru) bych hned vratil nastaveni FileMode na
puvodni hodnotu. Jinak zapomenete a budete se divit proc nefunguji dalsi
manipulace s jinymi soubory...
Zdravi
D. Toman
QReport - QRDBRichText
[*] Zden�k Glaser <glaser(zv)ipl(tec)cz> - 13.10.1998 15:18:39
Ahojte.
Na QRDBRichText take nemohu zazpivat chvalu.
Pri tisku velmi zlobil - mam QR20.k, IBase, hlavni Query a v DetailBeforePrint dotahuji
Memo z jine Query.
QRDBRichText to tu a tam (nevim, podle jakeho pravidla) odkraci na Access viol.., jako
kdyby nebyl dobre synchronizovan. Zkousel jsem i zpomalovaci cykly - nic. Pritom na
retezec textu jsem si mohl sahnout. Pri trasovani to neodeslo nikdy.
Pouzil jsem tedy QRRichText, naplnim si to tam sam pres String a Lines a je to O.K.
Nez jsem ale na to prisel, to chvili trvalo. Nelibi se mi byt testerem QSoftu. Mam jinou
praci.
Z.G.
Ing. Zdenek Sraier wrote:
> Zdravim,
>
> Ve svem programu pouzivam QRDBRichText pro tisk hodnoty
> memo pole. Mam nastaveno AutoStrech:�ue. V D3 to fungovalo pomerne
> dobre, akorat memo o jednom radku to neroztahlo OK. Stacilo pridat nekolik
> prazdnych radek, bylo to v poradku. S prechodem na D4 tento problem zustal
> (ale pres to jsem se uz prenesl), jenze navic pribyl dalsi.
>
> QRDBRichText je umisten v reportu ve spodni polovine, pred nim jsou
> vsechny ostatni polozky. Pokud text pretece na dalsi stranku, tiskne se NE od
> vrsku stranky, ale od sveho zacatku na strane prvni, tedy az v druhe polovine stranky.
> Vrsek zustava prazdny. CO S TIM ???????
>
> V reportu jsou dva Bandy - qrTitle a qrDetail. V detailu
> jsou QRLabely, QRDBTexty, jeden QRDBImage a zmineny QRDBRichText.
> V tistenem dotazu je vzdy jen jeden zaznam.
>
> S pozdravem Zdenek
> --------------------------------------- E-Mail -------------------------
> | Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
> | o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
> | ( o o) |--------------------- WWW --------------------------|
> | (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
> ------------------------------------------------------------------------
> | WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
> ------------------------------------------------------------------------
--
====================================================
Zdenek GLASER mailto:glaser(zv)ipl(tec)cz
__________________________________________________________
Office: IPL software s.r.o., Jablonecka 36, 461 09 Liberec, Czech Republic
tel.: ++420-48-53 96 563, ++420-48-611 24 01, ++420-48-611 24 02
fax.: ++420-48-611 24 03
http://www.ipl(tec)cz
__________________________________________________________
Privat: Borovy vrch 289, 460 14 Liberec 13, Czech Republic
tel.: ++420-48-51 246 15
====================================================
Editace SQL databaze
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.10.1998 15:22:08
Bardon wrote:
> Diky
Za malo :-)
> Jestli jsem to spravne pochopil, insertoval bys to pres jine TQuery, abys dostal (zv)(zv)IDENTITY ven. Ja totiz s oblibou pouzivat TUpdateQuery a tam to tak mohu napsat, ale nedostanu to IDENTITY ven.
>
Presne tak. Bud pres jine TQuery nebo pres to stejne s tim, ze nejprve ulozim puvodni SQL do lokalni promenne, zmenim ho na co potrebuju, provedu (zjistim IDENTITY) a pak tam vratim to puvodni SQL. Proste otrava, kdyz to musis furt delat dokola :-(.
>
> Mohu jeste jeden dotaz? Je tezke prepsat aplikaci z BDE na ADO?
Tezko rict, trosku jinak se s tim pracuje (neni nutne psat zase az tak moc kodu). ADO se jevi perspektivnejsi do budoucna - dle MS ma nahradit ODBC. Uz ted je rychlejsi nez ODBC. Zalezi, co vsechno s databazi delas. Pro jednoduche aplikace se s tim da
delat jako s lokalni databazi. V podstate vymenis TQuery a TTable za TADODataset.
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 =
==============================================================
MS SQL Server 7 & TDateEdit z RXLib
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.10.1998 15:24:41
Tak to bude to moje druhe, ktere jsem nedostal ;-)))))
Mac
V�t�zslav Gazda wrote:
> Ja jsem tam mailoval zadost o to CD a prislo mi to. Asi za tyden mi to
> prislo podruhe, nevim proc.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 =
==============================================================
Linux
[*] RADIK(zv)p15.monet(tec)cz - 13.10.1998 15:46:00
Co je to oficialni distributor linuxu? Nic takoveho neexistuje ani ve
svete.
Je nekolik "stavitelu" ruznych distribuci (RedHat, SlackWare, Debian),
kreri na ruznem principu stavi sve distribuce a nektere to pak i
prodavaji, ale vetsina z nich tyto distribuce ve stejne podobe uvolnuje
na internetu a pak to prodava na CD kdekdo a kazdy s rychlim pristupem
si to muze stahnout pres ftp. Jednou z mala vyjimek je treba redhat,
ktery prodava spolu s redhatem volmym jeste komercni Xserver, ale ten
neni treba. Dalsim rozdilem je dostupnost komercni podpory (mailem) ale
to taky neni potreba, protoze cesky list o Linuxu poradi s kazdym
problemem zadarmo....
V cechach bych doporucil Redhat 5.1 s ceskym rozsirenim, ktery prodava
ComputerPress. Stoji to i s utlou knizkou asi 120kc.....
Ales
----------
Od: Martin Dupal
Komu: Delphi konference
P�edm�t: Linux
Datum: 13. listopad 1998 14:08
Nezn�te n�kdo n�hodou ofici�ln�ho distributora LINUXU v �R.
Jsem vd��n� za jakoukoli informaci.
D�ky.
-----------
Ing. Martin Dupal
address: Geislerova 6
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
Ukonceni modal dialogu
[*] Jirka Fejfar <fejfarj(zv)login(tec)cz> - 13.10.1998 15:54:16
Jojo uz je mi to vsechno jasny ...
diky vsem za odpovedi ...
__________________
Jiri Fejfar
e-mail: fejfarj(zv)login(tec)cz
__________________
Linux
[*] Zbynek Grygar <zgrygar(zv)zeal(tec)cz> - 13.10.1998 16:12:16
Distribuci Linuxu se zabyva firma APS Brno a jeji veb je zde
http://www.aps-brno(tec)cz/
Zbynek Grygar
*********** REPLY SEPARATOR ***********
On 13.11.1998, at 14:08, Martin Dupal wrote:
>Nezn�te n�kdo n�hodou ofici�ln�ho distributora LINUXU v �R.
>Jsem vd��n� za jakoukoli informaci.
>
>D�ky.
> -----------
>
> Ing. Martin Dupal
> address: Geislerova 6
> 77200 Olomouc
> Czech Republic
> tel.: +420/68/5313130
> fax.: +420/68/5313132
> http://www.vision(tec)cz
> mailto:mdupal(zv)vision(tec)cz
Hromadna zmena vlastnosti - reseni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.1998 16:13:48
Ing. Zdenek Sraier wrote:
>
> Samozrejme, jen se nevzdavej, vzdyt co by jsme si
> poc~ali bez Tebe :-)))
>
> S tim groupBoxem je mi to jasne, o tom jsem se zminil
> jen tak mimochodem, proc to ale nefunguje na DB komponenty ?
To je opravdu zvlastni, u kterych ? Ja to ted zkousel s temito:
DBGrid1: TDBGrid;
DBText1: TDBText;
DBEdit1: TDBEdit;
DBMemo1: TDBMemo;
DBListBox1: TDBListBox;
DBComboBox1: TDBComboBox;
DBCheckBox1: TDBCheckBox;
DBRadioGroup1: TDBRadioGroup;
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Instalacia komponentu ...
[*] Hric Jan <JHRIC(zv)duro.upjs.sk> - 13.10.1998 16:28:34 nft-dft
Ahojte vsetci !
Vedel By mi niekto poradit ako (presne krok za krokom) mam
nainstalovat komponentu tak , aby sa objavila na palete v ponuke
a ktore programy k tomu potrebujem ( kolko a s akou koncovkou).
Pretoze som sa o to pokusal , ale sa mi to nepodarilo .
Dakujem . . .
Jano H. Ukonceni modal dialogu
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 13.10.1998 16:58:21
Dej si tam casovac (TTimer) nastaveny na 15s a ten spustis v
OnShow Formulare a v jeho obsluze zadas prikaz Close.
Pokud by to nefungovalo tak zkus ModalResult := mrOK;> Ahoj vsichni,
>
> mam nasledujici problem :
>
> potrebuji aby se mi TForm ktery jsem aktivoval pomoci funkce ShowModal sam
> ukoncil (treba po 15 vterinach), nejak proste nemuzu prijit na ten trik jak
> to udelat ....
>
>
> diky za kazdou odpoved ...
> __________________
>
> Jiri Fejfar
> e-mail: fejfarj(zv)login(tec)cz
> __________________
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
REGISTER
[*] Ji�� Heinisch - 13.10.1998 19:28:55
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
ahoj
pokud pouzivas balicky tak by mely byt nakopirovany v \Windows\system\
ja to pouzivam a neni problem, naopak.
Pokud to nerozchodis, tak napis
Zatim ahoj HeiJu
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
Komu: Delphi <delphi(zv)pinknet(tec)cz>
Datum: 13. listopadu 1998 11:42
P�edm�t: REGISTER
Caute
Mam dalsi problem. Moj program pre svoju cinnost potrebuje kniznicu VCL30.DPL, pomocou programu IS Expres som to nainstaloval pod dany adresar WINDOWSU, ale program po spusteni vykrikuje ze trieda nieje zaregistrovana. Otazka ako inteligentne urobit instalacky aby sa dany subor zkopiroval tam ka ma a aby sa aj zaregistroval.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk Hromadna zmena vlastnosti - reseni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.1998 19:30:51
"Ing. Zdenek Sraier" wrote:
>
> Tak jsi mel zase :-)) pravdu, funguje to. Jenom je treba
> doplnit hlidani jeste jedne vlastnosti - TitleFont.
> To se tyka specielne titulku u DBGridu. S touto zmenou je
> to krasne obecne.
Aha, ty jsi to tedy chtel pro nastaveni vsech vlastnosti typu TFont, ne jen
pro tu ktera se jmenuje "Font". Pak je tu dalsi reseni :-)
uses
TypInfo;
procedure SetControlFont(Component: TComponent; Font: TFont);
var
List: PPropList;
Count, I: Integer;
begin
if Component is TControl then
begin
Count := GetPropList(Component.ClassInfo, [tkClass], nil);
GetMem(List, Count * Sizeof(Pointer));
try
GetPropList(Component.ClassInfo, [tkClass], List);
for I := 0 to Count -1 do
if GetTypeData(List[I]^.Proptype^)^.ClassType = TFont then
TFont(GetMethodProp(Component, List[I]).Code).Assign(Font);
finally
FreeMem(List);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Label1.Font.Style := [fsBold]; // Jednu si vybereme a podle ni se pak nastavi
// font pro ostatni
for I := 0 to ComponentCount - 1 do
SetControlFont(Components[I], Label1.Font);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Problem *.lnk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.1998 19:33:08
> "PePa spol. s r.o." wrote:
>
> Ahoj všem,
>
> nevite n�kdo , jak ziskat ze zastupce (*.lnk) cestu k souboru ,ktery zastupuje?
>
> Dekuji predem za dosle
> odpovedi.
>
>
> Jirka Virt
Ahoj,
Treba takhle (ale nebude to fungovat v Delphi 2):
procedure TForm1.Button1Click(Sender: TObject);
var
ShellLink: IShellLink;
Path: array[0..MAX_PATH] of Char;
FindData: TWin32FindData;
begin
ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
OleCheck((ShellLink as IPersistFile).Load('Project1.lnk', 0));
OleCheck(ShellLink.GetPath(Path, Sizeof(Path), FindData, SLGP_UNCPRIORITY));
ShowMessage(Path);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Zajimavy problem s FileMode
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.1998 19:34:37
Dalibor Toman wrote:
> k nastaveni FileMode bych mel jeste tuto poznamku: Ihned po provedeni
> pozadovane operace (otevreni souboru) bych hned vratil nastaveni FileMode na
> puvodni hodnotu. Jinak zapomenete a budete se divit proc nefunguji dalsi
> manipulace s jinymi soubory...
Ahoj,
Ono je spis lepsi pouzivat TFileStream.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
PRECO TO NEJDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.1998 20:33:59
Ing. J�n Kuch�r wrote:
>
> Program zacina tym, ze po uzivatelovi pita meno a heslo ( to prejde v
> poriadku ) a potom sa pomocou prikazu assignfile natahuje konfiguracia zo
> suboru cfg a tam sa program zosipe s hlaskou ze doslo k chybe na adrese
> FFFFFFFF.
Ahoj,
Jo, to uz se tak stava :-) Pricin muze byt opravdu mnoho, pokus se nejak urcit
kde to asi muze byt. Idelani je, kdyz se chyba projevuje stale stejne. Muze se
jednat o odkaz na neinicializovany ukazatel a podobne.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 13.10.1998 20:49:06
sup(zv)svitap(tec)cz wrote:
>
> Ahoj delphini!
> Jak udelam vetsi rozestupy mezi polozkama v Listview, nebo vetsi sirku
> ListView.Items pri ViewStylu:=vsIcon v Delphi2 ?? Zadny
> ListView.Items.Width/Height jsem nikde nenasel...
Ahoj,
Rozestupy muzes ovlinvint zmenou Height a Width u ImageListu ve kterem mas
LargeImages pro ListView. O jine moznosti jak to nastavit primo v ListView
nevim.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************QReport - QRDBRichText
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.10.1998 22:46:17
> BTW: Nevite nekdo o nejake schopne nahrade za QR (nemyslim monstra
> typu ReportSmith), ovsem aby to fungovalo, nezralo to systemove
> prostredky :v tom je QR naprosta jednicka - po kazdem tisku sezere 2%
> takze po nekolika tiscich Vam aplikace nahlasi Out of resources - na
> netu je sice zverejneno nekolik ruznych oprav, ale vetsinou pak
> prestane fungovat zase neco jinyho.
Ja osobne mam QuickReport 3.0 Professional, mam take nektere vyhrady,
ale v podstate se da rici, ze slouzi svemu ucelu a me docela vyhovuje.
Ale mam take Generator Sestavy od ceske firmy SINEA. Ano, i ten ma
sve vyhody a nevyhody - nelze jednoznacne rici, co je lepsi. Ja mam
oba prave proto, ze kazdy muj program ma ruzne pozadavky a podle
toho take volim tyhle a nebo tamty sestavy. Mrkni na to, urcite je
to zajimave:
http://www.sinea(tec)cz
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
ComCtl32
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.10.1998 22:46:17
> Nevite, prosim, zda je knihovna COMCTL32.DLL rozdilna pro Win95 a WinNT4 ?
Ona ve Windows 95 zadna COMCTL32.DLL jeste nebyla, ta prisla az
s MS Explorer 4, Delphi 3, Delphi 4 a ted si nejsem jisty, zda
byla uz ve Win95 OSR2. V kazdem pripade existuje nekolik ruznych
verzi techto knihoven a pozor na ne!!! Jinak chodi pod Win95
i WinNT, ale jedna z nich na WinNT zlobi...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917