Archív konference Delphi

Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.

VerzeDelphi

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 12.12.1998 17:37:33

Napsat Inprise ...

Mac

Miki Vom��ka wrote:

> Pekny den vsem,
>
> poradte,jak lze upgradovat verzi D4 z 5.33 na 5.37?
>
> Miki

--
==============================================================
= 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 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================

Tisk JPEG v D4 Professional

[*] Petr Bahn�k <bahnikp(zv)ms.anet(tec)cz> - 12.12.1998 18:13:55

Ahoj,

mam nasledujic� problemy.

1/ Pokous�m se tisknout JPEG obrazek v D4. Pokud k tomu pouziji pr�klad v
HELPU u D4 u TJPEGImage (uplne presne, jak tam je), leze mi na me HP DJ600
neco hodne svetleho, at si tiskarnu nastavim jak chci. Pritom ten samy obr.
tisknu z jinych sw (Photofinish, ...) naprosto normalne a OK. Nevite
prosim, v cem by mohl byt problem ?

2/ V D2 jsem pouzival pro zobrazovani a tisk JPEG obrazku ImageLibPro. Vse
pracovalo spravne, perfektni tisk na vsech tiskarnach. Vzhledem k problemu
ad 1/ jsem zkousel tisknout JPEG opet pres tuto knihovnu (TMultiImg
komponenta), kterou jsem dostal do D4 podle pokynu pro D3. Tisk JPEG je
opet v poradku na spouste tiskaren az na HP 5N se standardnim ovladacem, kde
mi to tiskne obrazek jakoby nekolikrat s asi 1 cm posunem a v horsi kvalite,
proste nepouzitelne, pritom aplikace je prelozena z D2 do D4, v D2 v
poradku, v D4 tenhle problem. Neresili jste, prosim, nekdo neco podobneho ?


S pozdravem Petr Bahnik


Dalsi chyba v Delphi 4 ... ?

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 13.12.1998 07:38:46

�Je to jasne, windows.pas je k dispozici u kazde verze Delphi, takze co nam brani deklaraci typu prepsat. Mam ten dojem, ze DWORD je stejne deklarovany jako Longword. Inprise to s tema novejma typama asi trosku nezvladl.

Ok

-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. prosince 1998 16:03
P�edm�t: Re: Dalsi chyba v Delphi 4 ... ?>Ondrej Krajicek wrote:
>>
>> Momentalne nemam k dispozici Delphi 2, ale neni tam nahodou rozdil v deklaraci tohoto typu. Pokud vim, tak v Delphi 4 je to type Longbool.
>
>V D2 je to taky LongBool, ale pokud pouzivaji BOOL jako typ v prepisu hlavicek
>API funkci, tak by to meli pouzit takovy typ aby to fungovalo. Vyplyva z toho,
>ze asi nejjistejsi bude pretypovani na DWORD a zapsani hodnoty 1, coz ponekud
>degraduje smysl typu BOOL.
>
>--
>
>Internet proti monopolu. Petr Vones, amatersky programator
>* http://www.bojkot(tec)cz *
>* protestni akce *
>************************
>
>

NET DIR

[*] rsoucekk(zv)email(tec)cz - 13.12.1998 09:46:40


Ahoj

Mam maly problem s nastavenim parametru NET DIR v konfiguraci BDE v sekci
DRIVERS/PARADOX. NEzkouseli jste to nekdo20


Predem dik Radek

--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email


QuickReport

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 13.12.1998 11:53:35

K cemu jsou komponenty QuickReport QRTextFilter, QRCSVFilter a QRHtmlFilter. Napada me ze dokazou presrotit report do prislusneho formatu, ale jak je pouzit. V napovede jsem je nenasel.

Ondrej Krajicek


Tlacitka na Caption

[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 13.12.1998 13:23:33

Hi,
Mam prosbu, nekde jsem videl komponentu (Delphi4), ktera pridavala custom tlacitka na Caption okna.Vim, ze existuje, ale nevim, kde ji najit. Jestli ji nahodou mate, uvitam, kdyz mi tu komponentu poslete.

Diky

Serbajlo Pavel
ICQ: 20849973
email: serb(zv)mikulov.sol(tec)cz
www: www.nemamstranky(tec)cz

zakaz swapovania

[*] Micrel <micrel(zv)micrel(tec)cz> - 13.12.1998 14:27:46

Ahoj,
Pro zamkuti casti pameti pred strankovanim lze pouzit
GlobalLock()/UnlockBlock. Pouzil jsem to pro zrychleni pristupu k pameti v
cyklickych vypoctech. Snad je to ono co potrebujes...

Jaro B.
Jaroslav Bene�
Micrel dev.
micrel(zv)micrel(tec)cz


-----P�vodn� zpr�va-----
Od: ri(zv)spse.adlerka.schools.sk [SMTP:ri(zv)spse.adlerka.schools.sk]
Odesl�no: 11. XII 1998 10:38
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: zakaz swapovania

Zdar.

Z dovodov zarucenia rychlosti behu aplikacie
by som potreboval zarucit, ze niektore (alebo
vsetky) datove struktury tejto aplikacie budu
permanentne pritomne vo fyzickej RAMke (nebudu
swapovane na disk). Jednoduchou cestou je do-
porucit uzivatelovi, aby si zakazal virtualnu
pamet, ale to by ho mohlo obmedzovat pri pou-
zivanych inych programov.
Preto hladam nejaku cestu, ako niektorym dato-
vym strukturam programovo prikazat neswapovatel-
nost (samozrejme, ak je fyzicka RAM dost velka,
aby sa ta aplikacia vobec dala spustit).

Napada niekoho riesenie?
Dik.
Jano
.

Cestina v. NT40

[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 13.12.1998 14:48:21

Ahoj,

diky za zkusenost. Aspon vim,
ze v tom nejedu sam.

Ps.> Podle me by i NT 4.0 mely podporovat tyto
aplikace. Dyt to lze pokladat za obecnou 16-bit aplikaci
a ne to okecat tim ze neni urcena pro NT.
(Doufam ze nedostanu vynadano za haneni M$.)

S pozdravem
================================
> Pavel Malinsky; Spiderland(zv)usa.net <
>==============================<
> ...The Truth Is Out There... <
================================

-----P�vodn� zpr�va-----
Od: Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. prosince 1998 3:27
P�edm�t: RE: Cestina v. NT40


>Ano take mam tento problem. Podarilo se mi vysledovat ze to chodi na NT SP1
>a zacne blbout po nainstalovani SP3.
>Microsoft hotline se k tomu vyjadril v tom smyslu ze program pouzivajici
>Arial CE neni urcen pro beh pod Windows NT. Typicke ze ?
>
>Bohuzel sem to nevyresil a musel dodelat vyber charsetu fontu a nastavit ho
>na stredoevropsky ..
>
> McLEI
>

BDE 5.01

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 13.12.1998 15:36:51

Hi,

vsimnul jsem si, ze na inprise.com je nova verze BDE, tak pokud to uz
vite, tak me nekamenujte, ostatni necht stahuji, me to pomohlo odstranit
NEKTERE problemy......


Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz


Modem a hang up

[*] MiSSoftware <missoftware(zv)lanskrounsko(tec)cz> - 13.12.1998 16:10:59


-----Puvodni zprava-----
Od: Maly Dobromil [SMTP:Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz]
Odeslano: 11. prosince 1998 9:43
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: Modem a hang up

Posli na modem +++ (tim si vynutis jeho pozornost) a potom mu posli ATH.
D.

Diky za rady, ale to jsem vsechno vedel. Problem je v tom, ze jsem pouzil
kousek kodu, ktery je na Inprise jako kod k "vytoceni cisla", akorat misto
ATDT jsem mu tam daval ATH0, ATH, +++ATH a tak jsem ruzne experimentoval a
nepomohlo to.

Nemate nekdo odkaz na nejaky vzorovy kod (pro D3) ???

Milan Schembera
MiSSoftware
Vancurova 149, Lanskroun
tel/fax 0467/521555, 0602/463353
mailto:missoftware(zv)lanskrounsko(tec)cz
http://www.lanskrounsko(tec)cz/missoftware

EuroSMS 2.0 - freeware pro posilani textovych zprav na mobilni telefony a
pagery v CR

begin 600 WINMAIL.DAT
M>)\^((zv)8/`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`4````4D4Z
M($UO9&5M(&$(zv):&%N9R!U< `G!(zv)$%(zv) ,`#(zv)```,X'# `-`! `"(zv)`[````0P$!
M(( #``X```#.!PP`#0`0``(zv)`-P```#T!`0F `0`A````0CDW14%$1C=!-#DR
M1#(Q,3E&,$,P,# P1C(zv)S,#$W1C(`) <!`Y &`(0'```B````"P`"``$````+
M`",```````,`)(zv)``````"P`I```````#`"X```````,`-(zv)``````0 `Y`$"*
M2,JJ)KX!'(zv)!P``$````4````4D4Z($UO9&5M(&$(zv):&%N9R!U< `"`7$``0``
M`!L````!OB3BQ88/9DLWD-T1TH>2`. I#VKT`''NLT `'(zv)`># $````%````
M4TU44 `````>`!\,`0```!P```!M:7-S;V9T=V%R94!L86YS:W)O=6YS:V\N
M8WH``P`&$.GV80(zv)#``<0B0(``!X`"! !````90```"TM+2TM4%563T1.25I0
M4D%602TM+2TM3T0Z34%,641/0E)/34E,4TU44#I$3T)23TU)3$U!3%E 4D%+
M4%)$4TU&0U)#6D]$15-,04Y/.C$Q4%)/4TE.0T4Q.3DX.3HT,TM/354`````
M`(zv)$)$ $````A! ``'00```P&``!,6D9UB;IGG ,`"(zv)!R8W!G,3(U%P%#`30+
M8&X.$# R.1T!]R "I /C`(zv)!P<G$2,(zv)(`8V(zv)*P'-E=*(zv)R,S(zv)``"H"X6$'(zv)(X(zv)
M!Q,"(zv) <3($-%`H/_`% $51#3$]$17Q)A"%4'LE\"(zv)!8I$U81(1"(-Q3',+ (zv)
M5&%H`W$"(zv)S,09S<4[Q)O$W%]"H (R" [FPEO#C U`H *(zv)75C`%!S"P,+LS$V
M"J(*A LP;)AI,S8!0!#P;W0%D 4%0"TB<E!<)V8YEG8$< N0)PF ('H0\/$C
M43%V82)S(-8B!"'1!PL3((zv)0"`&DM,30TXP% (9 Q.# !0 S0)H.(zv)8B!/9#H,
M(zv)V(9D(Y-!T BT2. 1&]B`V&!`Q%;4TU44#HI!(zv)(N*(%Y0')A:R[!$/ N9',N
M;1KP*R#X8WI=(-4GL(zv)>0**$C\(1N;R?W,3$N("'Q"0"0;F,<(#$Y.3BP(#DZ
M-!I(zv)+ 9+`W!&=2?W`0!L<&(zv)F8&QP0&9W9"NQ*_<BPC(zv)="8!M(U$B0"?W4D4Z
MPP70!'%M(&$(zv)&Q /(+(zv)(zv)=7 DCR6:(91C$\*W$]$+\B#C4"X(zv)(9 (zv)&_ 6( 1B
M,^ K., (zv)*'0%!W (zv)`) (zv)=GEN=3,Y$ 0(zv):F49T"WP;WIC!; M$'-T*3/Q.E!T
M&P-P.%!U.D$W\D%42'HN(-1$/$4TGS6K#Q,SCR\1/;88$"CP:6MY(Y"C- `J
MT&1Y+#/P;!P(zv)[SM .? ;0#/(zv)=AM &P`M$.\Y< F ,) MX% #8 )(zv),]'7.(zv)`Y
M<$%A;4$0>AP(zv)0:-I.E!U>(zv),1:PA(zv)&T!KJ43A9'5!$&LB(') (zv)/-#83(zv)Q26X0
M\ 0`1!$JX.<Z,$5A1. (zv)(CF .T N8-D#`"!C! `+8")!$43P/RK0!4 I4#K
M.C \$$14ST&4.X$!D#/(zv)9&$D$ ,(zv)_3P1,$$0/!%!$#C!/!$S\5<!D$5 0:-R
M1*!N'"!EW'AP!G$'(zv) (P;TK2- #W31 Z4 1(zv): D`06$MX#S:SP? `, B($Y!
M:V0Z, 1P>&MA>C(zv)B31!'`4" =F\Z<4W(zv)0(!'4B(zv)A\2CP,_TZX#]3$#[U#V :
M0CSJ-L#G)K$_%A(zv)3,3<%T ,0`Y'64QL`,]!B!)!A(-16(*A34V\!(zv)'<*P&4(zv)
MU#I6`'!C"'!-X2VP-#G501!,`'%K`V!U"Y (zv)XP$B(&PO9F%X(#" -#8W+S4R
M,1](zv)RC5!$# AP#(O6O _8/8U+Q8VPG4#( # `Q [0.HZ24%S5[5 #P%9I%F(zv)
MOT\`,5%4TET0-V5<QF(zv)"0*!P.B\O=V$P+EY][B]=N5]M(.-%6,$IH 7PY#(N
M&9 M( -0">!7XE\M\CNB5C(X$"((zv)>$W1>>\;`".22L X)&(#$&9S04!G`A%
M(zv)#L!86=%XD.00_Y2(-HF6%M (<$G13;"4UH+-S(zv)=40!ML ````,`$! `````
M`P`1$ `````>`$(0`0```# ````\.4)#1C,W-T%",S)!1#(Q,3DV,#,P,#$P
M-$(T1C4R04-"03$T0$954F%K3E0R/(zv)`#`( 0_____T `!S! ;U. JB:^`4 `
M"#! ;U. JB:^`0L``( (( 8``````, ```````!&``````.%`````````P`"
M(zv) (zv)(zv)!(zv)``````P ```````$8`````$(4````````#``6 "" &``````# ````
M````1(zv)````!2A0``>Q ```,`"8 (( 8``````, ```````!&``````&%````
M````'(zv)`2(zv) (zv)(zv)!(zv)``````P ```````$8`````5(4```$````%````."XP,(zv)``
M```+`!: "" &``````# ````````1(zv)`````.A0````````,`%X (( 8`````
M`, ```````!&`````!&%`````````P`9(zv) (zv)(zv)!(zv)``````P ```````$8`````
M&(4````````>`"B "" &``````# ````````1(zv)`````VA0```0````$`````
M````'(zv)`I(zv) (zv)(zv)!(zv)``````P ```````$8`````-X4```$````!`````````!X`
M*H (( 8``````, ```````!&`````#B%```!`````0`````````>`#T``0``
7``4```!213H(zv)``````,`#33]-P``]\Z%
`
end


zakaz swapovania

[*] Lubor Kult <kult(zv)rkc(tec)czn(tec)cz> - 13.12.1998 16:30:29



-----P�vodn� zpr�va-----
Od: Ondrej Krajicek [SMTP:krajicek(zv)promedia(tec)cz]
Odesl�no: 12. prosince 1998 8:45
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: zakaz swapovania


-----P�vodn� zpr�va-----
Od: Dalibor Toman <dtoman(zv)fortech(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. prosince 1998 19:02
P�edm�t: Re: zakaz swapovania


>
>>Napada me jenom to, ze tohle neni mozne.
>to je blbost. Existuji veci, ktere to vyzaduji - obsluhy preruseni atd

A myslis ze nekdo takovehle veci pise v Delphi ?

[] Myslim, ze jo.


Zdravi Lubor Kult

komponenty EzDrive

[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 13.12.1998 21:50:15

Zdravim.

Chtel bych se zeptat na tyhle komponenty. Bylo tady receno, ze je mozne je ziskat po registraci Delphi. Jak je to s jejich pouzitim v programech, muzou se vubec pouzit?

Bye,
Tomas Skopik
( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )

TTreeView && Print

[*] Jaro <jaro(zv)sinea(tec)cz> - 13.12.1998 22:37:13

Pro tento ucel pouzivam komponenty od rsdsoftware.
Tam jsou komponenty pro tisk. Mio to jsou lepsi.
Je tam tez dobry DBTrreView a dalsi
Najdes na:
http://www.rsdsoftware.com

Jaro
----------------------------------------------------



-----P�vodn� zpr�va-----
Od: Radek KALA <delphi(zv)betacontrol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 11. prosince 1998 0:20
P�edm�t: TTreeView && Print


>Zdravim vsechny.
>
>Prosim poradte, mam naplneny veliky TTreeView a potreboval bych
>ho dostat na tisk�rnu, alespon s tema carkama, nejlepe i s
>obrazkama. ( Samozrejme plne rozbalenej, to ale umim ).
>
>Potrebuji to delat v programu, takze predem dekuji za rady typu
>Alt+PrintScreen.
>
> 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


GlobalMemoryStatus

[*] Miki Vom��ka����h������� - 14.12.1998 00:01:44

Pekny den,

poradi mi nekdo jak zjistit voln� syst�mov� prost�edky, jako je to ve
standardnich oknech About?

Miki

SQL

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 14.12.1998 06:58:29

mam takovy zacatecnicky problem...
mam tri tabulky .DB a potrebuji, aby se hlavni tabulka (knihy.db) vypsala
cela a k ni se
dopsaly zbytkove udaje z ostatnich tabulek. Ale ty udaje nejsou pro kazdy
zaznam. Potrebuji
tedy, aby se vypsaly v�echny knihy a pokud jsou, tak i zbytkove udaje.
propojeny jsou pomoci
knihy.pujceno
lidi.pujceno
knihy.kategorie
kategorie.kategorie
Pomoci TQuery.... Jak napsat SQL????

Nazdar,

skus JOINy. Asi takto:

select t1.id, t2.meno, t3.nazov
from "kniha.db" t1 left join "lidi.db" t2 on t1.pujceno=t2.pujceno
left join "kategorie.db" t3 on t1.kategorie=t3.kategorie
order by t1.id

Marek Repisky
mrepisky_zl(zv)zsnp.sk


SQL

[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <martin(zv)proces.sk> - 14.12.1998 07:08:08

Na to sa pouziva OUTER JOIN.

SELECT k.nazov, k....., l.priezvisko, l......, m.kategoria,
m.......
FROM knihy k
LEFT OUTER JOIN lidi l ON k.pujceno = l.pujceno
LEFT OUTER JOIN kategorie m ON k.kategorie = m.kategorie



Matej Prochazka wrote:
>
> Ahoj,
> mam takovy zacatecnicky problem...
> mam tri tabulky .DB a potrebuji, aby se hlavni tabulka (knihy.db) vypsala cela a k ni se
> dopsaly zbytkove udaje z ostatnich tabulek. Ale ty udaje nejsou pro kazdy zaznam. Potrebuji
> tedy, aby se vypsaly v�echny knihy a pokud jsou, tak i zbytkove udaje.
> propojeny jsou pomoci
> knihy.pujceno
> lidi.pujceno
> knihy.kategorie
> kategorie.kategorie
> Pomoci TQuery.... Jak napsat SQL???? diky moc
> Vsechno, co jsem dosud vymysle, vyhodilo vetsinou prazdny Grid
> Diky
> Matej Prochazka


zakaz swapovania

[*] V�t�zslav Gazda������u��n�?��? - 14.12.1998 08:01:58

Pro alokaci pameti pouzij API funkci VirtualAlloc. Potom muzes provest
uzamceni pametove stranky v RAM pomoci funkce VitualLock (odemknout
VirtualUnlock). Takto uzamcene stranky nebudou odsunuty do strankovaciho
souboru.

Vita


Problem s CheckListBox alebo RXCheckListBox.

[*] SunSoft - Mr�z �ubom�r <sunsoft(zv)sunsoft.sk> - 14.12.1998 08:06:57

Ahojte Delphisti.

Uz vopred dakujem za pomocnu radu.
Mam nasledujuci problem.

Pouzivam Dll v podobe modulov pre aplikaciu a z nich prenasam nastavnia
v CheckListBoxe cize na zaklade checked a enabled predavam
app. udaje o pravach modulu. Kazdy z modulov ma vlstne checkListBoxy
ktore reporezentuju pristupove prava modulu.

No a ja potrebujem udaje z CheckListBoxu 1 prenest do CheckListBoxu2
prenasam to cez parameter externej funkcie ale tie udaje neviem preniest.
Pouzivam metodu AddStrings objektu Items ale to mi prenasa iba stringi ale
nastavenia ako CHECKED ci ENABLED komponenty neprenesiem .

Pokusal som sa pouzit metodu Assign ale system mi hlasi ze nemozno previest tuto
metodu na CheckListBox ani an rxCheckListBox. Pozor ja ich nekombinujem ale
racsej by som pozival RxCheckListBox.
Ja to sice riesim vlastnym sposobom ze spominane nastavenia prevediem na 2 stringi
v podobe '1010101110' '23111223212' a tie prilozim k TStrings a po preneseni ich
znova rozkodujem a priiradim druhej komponente ale to sa mi zda dost neprakticke.

Prosim o radu ci to neide nejako inac.

Vdaka Lubo TSC .

RichText

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 14.12.1998 08:08:16

No jestli se muzu pripojit tak jsem se uz jednou ptal(ale zadna
odpoved). Teda znovu : Jak napr. zaridim nastaveni dolniho nebo horniho
indexu ? Pokud do RichEdit takovy text zkopiruju(napr. z Wordu) vse je
OK, ale vlastnost nebo metodu, ktera by to umoznovala jsem nenasel.
Myslim ze by se to dalo zapsat nejakych ridicich znacek do RTF souboru,
ale jak ... chtelo by to nejaky priklad.Diky.

> -----P�vodn� zpr�va-----
> Od: /O=INEQ/OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON za u�ivatele Bardon
> Odesl�no: 11. prosince 1998 11:08
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: RichText
>
> S TRichEdit jsem si dost u�il, ale nev�m, jestli mu u� dost rozum�m.
> Skus se pt�t.
>
> -----P�vodn� zpr�va-----
> Od: Hubert [SMTP:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz]
> Odesl�no: 9. prosince 1998 8:11
> Komu: Delphi
> P�edm�t: RichText
>
> Ahoj!
>
> Prosim vas neni tu nekdo kdo se vyzna v komponente na praci
> s RTF
> (TRichText). Potrebuju nutne pomoct. Vim, ze ohledne RTF
> probehlo
> uz dost diskuze, ale na archivu konference na www.delphi(tec)cz
> jsem
> nenasel odpovedi na sve problemy.
>
> Pokud tu nekdo takovy je a byl by mi ochoten pomoct, tak at
> se
> ozve.
>
> Predem diky.
>
>
> Best regards,
> Michal Neuwirth
> mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz
>
>

Spusteni NT Services

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 14.12.1998 08:17:55

Nazar vsichni,

kdyz uz jsme u tech servicu, tak bych se chtel zeptat, jestli nekdo
nemate zkusenosti s manipulaci se sluzbami (spusteni, ukonceni),
kterou provadi dalsi service, bezici na uctu LocalSystem.

Ondrej Krajicek

Dalibor Toman wrote:
>
> >Dekuji za odpoved.
> >D4 bohuzel nemam. Nicmene neni na spusteni sevices nejaka API funkce ?
> >
>
> samozrejme - musis se naucit komunikovat se SeviceManagerem. Nasledujici
> ilustracni kod by mel zastavit service jehoz jmeno je ulozeno v
> c_ServiceName. Pokud neznas dopredu jmeno sluzby je nutne zjistit jmena
> bezicich sluzeb (pomoci EnumServicesStatus).
>
> Procedure StopService;
> VAR
> schService : TSC_HANDLE;
> schManager : TSC_HANDLE;
> begin
> schManager := OpenSCManager(NIL,NIL,SC_MANAGER_ALL_ACCES);
> if schManager = 0 then
> begin
> {$IFDEF DEBUGLOG}
> DebugLog.Write('CHYBA : OpenSCManager',['']);
> {$ENDIF}
> end
> else
> begin
> schService := OpenService(schManager,c_ServiceName,SERVICE_ALL_ACCESS);
> if schService = 0 then
> begin
> {$IFDEF DEBUGLOG}
> DebugLog.Write('CHYBA : OpenService',['']);
> {$ENDIF}
> end
> else
> begin
> if ControlService(schService,SERVICE_CONTROL_STOP,ssStatus) then
> begin
> While QueryServiceStatus(schService,ssStatus) do
> begin
> if ssStatus.dwCurrentState = SERVICE_STOP_PENDING then
> begin
> Sleep(1000);
> end
> else
> Break;
> end;
> if ssStatus.dwCurrentState = SERVICE_STOPPED then
> begin
> end
> else
> begin
> {$IFDEF DEBUGLOG}
> DebugLog.Write('Error : Stop failed',['']);
> {$ENDIF}
> end;
> end
> else
> begin
> {$IFDEF DEBUGLOG}
> DebugLog.Write('Error : ControlService',['']);
> {$ENDIF}
> end;
> CloseServiceHandle(schService);
> end;
> CloseServiceHandle(schManager);
> end;
> end;
>
> Zdravi
> D. Toman


Dalsi chyba v Delphi 4 ... ?

[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 14.12.1998 08:23:19

Ja jsem si prave vcera otevrel Mistrovstvi v Delphi3 na uplne
nahodnem miste a zrovna tam byla nejaka poznamka o tom, ze v D3 jsou
zmenene hodnoty nekterych boolovskych typu, presne se uz nepamatuji,
protoze ja je nepouzivam. True je v nich reprezentovane jako -1, v
puvodnim Boolena zustava 1. Pry je to kvuli kompatibilite s volanim
nejakych systemovych veci, ale nevim jestli OCX, ActiveX nebo co to
vlastne bylo.
Promin, ze jsou moje informace tak kuse, ale opravdu jsem nahodou
otevrel knizku a precetl jsem prvni vec, co mi prislo na um

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: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> P�edm�t: Dalsi chyba v Delphi 4 ... ?
>
> Ahoj,
>
> Prave jsem narazil na dalsi problem v D4, tyka se to typu promenne
> BOOL a jejiho
> pouziti jako navratove hodnoty callback funkce volane z API funkce.
> V Delphi 2
> to funguje, ale stejny kod nefunguje po prekladu v D4. Rozdil lze
> najit pomoci
> toho prikladu:
>
> var
> B: BOOL;
> begin
> B := True;
>
> Delphi 2 to prelozi (spravne) jako
> MOV EAX, $1
>
> Ale Delphi 4 jako
> OR EAX, $-1

Bitmapa

[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 14.12.1998 08:29:49

Pokud jde o Tbitmap v pameti - vyborna vec by mohla byt - getbitmapbits -
pretahnout si celou bitmapu do pole - (s idealnimi vlastnostmi - v pripade
16bit. je tam linearne za sebou 2byte- jeden bod , v truecoloru jsou to pak 3
(24bit) - najdes a vymenis co chces - a pak to zase pomoci Setbitmapbits a
tbitmap.refresh placnes zpet.
(od D3 (mozna to umale i D2 ale D1 urcite ne) muzes bitmape rici natvrdo, jakou
barevnou hloubku bude mit - pixelformat:=pf24bit .... a je to. (akorat je dobre
to puzit pred tim , nez do ni ulozis obrazek)

Je to relativne r...y..c...h..l...e......

Mti.

-----P�vodn� zpr�va-----

>Potrebuji nahradit urcitou barvu v bitmape jinou barvou. Vim, ze si musim
>vytvorit nejakou maskovaci bitmapu pozitim nejake ROP operace, a potom to
>nejak zkombinovat, ale nevim jak na to. Muze mi nekdo poradit ?
>
>Diky Vita
>

Bitmapa

[*] V�t�zslav Gazda������u��n�?��? - 14.12.1998 08:29:45

>To je blbost to bude pomale, ale myslim kdyz se podivas do helpu
>na ty binarni operace tak se to bude dat nejak zkombinovat - to
>znamena pomoci prekryvani bitmapy maskou ruznymi kombinacemi
>binarnich operaci.

Vim, ze to jde nejak zkombinovat pomoci nejake ROP operace. Prosel jsem
hromadu helpu, stravil spoustu casu na internetu, vyzkousel jsem ruzne
kombinace ROP flagu, ktere se skoro priblizily spravnemu vysledku (napr.
jsem dokazal nahradit X barvu za cernou), ale stale to neni to co chci.
Potrebuji nahradit X barvu za Y. Prochazet vsechny pixely, to by bylo
opravdu pomale a zbytecne slozite, kdyz vim, ze to jde nejak jednoduse
pomoci ROP.

Vita


Bitmapa

[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 14.12.1998 08:41:54


asi nejjednodussi a nejrychlejsi je tu barvu vymenit primo v palete barev
(vim ale ze to nekdy neni mozny)

M.


-----P�vodn� zpr�va-----
Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. prosince 1998 14:08
P�edm�t: RE: Bitmapa


> To je blbost to bude pomale, ale myslim kdyz se podivas do helpu
>na ty binarni operace tak se to bude dat nejak zkombinovat - to znamena
>pomoci prekryvani bitmapy maskou ruznymi kombinacemi binarnich operaci.
>.
.
.

Bitmapa

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 14.12.1998 08:41:49

Hi,

vsimnul jsem si, ze na inprise.com je nova verze BDE, tak pokud to uz
vite, tak me nekamenujte, ostatni necht stahuji, me to pomohlo odstranit
NEKTERE problemy......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz


Indikator klavesnice

[*] Petr Brant <p.brant(zv)samo.pvtnet(tec)cz> - 14.12.1998 08:49:54 -0000

Ahoj vsem,

potreboval bych v okne aplikace indikovat zmenu v prepnuti klavesnice
podobne jako je to v TaskBaru. Nevite nekdo, jak to provest ?

Diky za odpovedi.

POZOR, TATO ADRESA JE JEN DOCASNA, BUDE PLATIT ASI DO POLOVINY PROSINCE
!!!
********************************************************
Petr Brant [p.brant(zv)samo.pvtnet(tec)cz]

programator v MSVC++, obcas Delphi nebo Visual Basic
********************************************************

Table is full

[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 14.12.1998 08:50:17

To je sice pekne, ale BlockSize mam 2048 v BDE 2.51 a 4096 v BDE 4.5
(mozna je to 4.51). Ale velikost recordu je max 200 Bytu! Je tam 15
polozek, dva stringy (A20 a A40), jinak cele cisla a datumy. Stahnul
jsem si dokument "Some current internal limits of BDE" od Inprisu a
podle toho jsem nic neporusil.

Jirka Nagy

> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> P�edm�t: Re: Table is full
>
> Jirka wrote:
> >
> > Nevite nekdo co bych mohl udelat aby mi proslo pridani jedne
> > polozky
> > do jiz existujici tabulky napr. v DB Desktopu. Tabulka ma
nejakych
> > 15
> > MB, na vsech discich je min. 4x vice mista, v PRIV a WORK
> > adresarich
> > jeste mnohem vic, kdyz vsak dam Restrukture (v DBD z Delphi1, ale
> > i z
> > Paradoxu 8) pracuje asi 15 minut a potom vyhodi hlaseni Table is
> > full. ...
>
> Ahoj,
>
> uz se to tu resilo, musis zvetsit hodnotu BLOCKSIZE u Paradox
> driveru
> a tabulku restrukturalizovat:
>

Integrace MSIE

[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 14.12.1998 08:59:00

> Nenapada vas prosim nekoho,
> jak integrovat do vlastni aplikace MSIE ?

Hledej na DSP TPreviewHTML (pripadne mohu zaslat mejlem).
Je to tam i s prikladem.

==[ eLK(zv) ]===================================================
http://webhost(tec)cz/elka * mailto:Libor.Krayzel(zv)czech-tv(tec)cz - (069)6201375
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================================

Detekce exploreru

[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 14.12.1998 09:11:00

Nevite nekdo jak detekovat ve Windows jestli je nainstalovany
internetovsky prohlizec a eventuelne jaky a jaka verze.

S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz

NET DIR

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.1998 09:47:55

> Mam maly problem s nastavenim parametru NET DIR v konfiguraci BDE v sekci
> DRIVERS/PARADOX. NEzkouseli jste to nekdo?

Zkouseli jsme to. Co jineho ti mam odpovedet na tento dotaz?

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


zakaz swapovania

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.12.1998 09:47:25

>>>Napada me jenom to, ze tohle neni mozne.
>>to je blbost. Existuji veci, ktere to vyzaduji - obsluhy preruseni atd
>
>A myslis ze nekdo takovehle veci pise v Delphi ?

co ja vim? Uvadel jsem to jen jako argument pro nutnost existence mechanismu
zamykatelnosti bloku pameti v RAM.


Zdravi
D. Toman

TTreeView && Print

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.1998 09:54:06

> Najdes na:
> http://www.rsdsoftware.com

Kdepak, oni se prodali na www.devexpress.com nebo tak nejak.

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


TTreeView && Print

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 14.12.1998 09:56:41

Nenajdes, prodali to ;-)

Mac

Jaro wrote:

> Pro tento ucel pouzivam komponenty od rsdsoftware.
> Tam jsou komponenty pro tisk. Mio to jsou lepsi.
> Je tam tez dobry DBTrreView a dalsi
> Najdes na:
> http://www.rsdsoftware.com
>
> Jaro

--
==============================================================
= 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 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================

Delphi - dotaz do konference

[*] TP+ <tpplus(zv)zasova(tec)cz> - 14.12.1998 10:04:48

Jsem hloupy, samozrejme ...
V SQL: TDataSet.Moveby( y>RecordCount )
chyba - vrati se mi pocet zaznamu do konce tabulky, kteryzto kdyz odectu od
celkoveho poctu, ziskam cislo aktualniho zaznamu. Existuje neco lepsiho ?

Bye,
Baluch

-----P�vodn� zpr�va-----
Od: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. prosince 1998 21:06
P�edm�t: Re: (Fwd) Fw: Delphi - dotaz do konference


>Ovsem pouze pro Paradox ;-)
>
>> TQuery.RecNo / TQuery.RecordCount
>> =
>> (cislo aktualni vety)/(celk.pocet vet)
>>
>==============================================================
>= 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 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
>==============================================================
>
>

Integrace MSIE

[*] Administrator <Administrator(zv)rosoft.sk> - 14.12.1998 10:27:50



> -----P�vodn� zpr�va-----
> Od: Vojtech Semecky [SMTP:vojtech.semecky(zv)v-soft(tec)cz]
> Odesl�no: 12. december 1998 16:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Integrace MSIE
>
> Nenapada vas prosim nekoho,
> jak integrovat do vlastni aplikace MSIE ?
>
> Diky
> Vojta
[Administrator]

Ano najdi si na internete popis k OCX IE


NET DIR

[*] TP+ <tpplus(zv)zasova(tec)cz> - 14.12.1998 10:30:21

Copak mas za problem ?
Nejlip si asi zkus v archivu tehle konference najit "Sdileni Pdox tabulek"
Bye,
Baluch
-----P�vodn� zpr�va-----
Od: rsoucekk(zv)email(tec)cz <rsoucekk(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 14. prosince 1998 9:26
P�edm�t: NET DIR


Ahoj

Mam maly problem s nastavenim parametru NET DIR v konfiguraci BDE v sekci
DRIVERS/PARADOX. NEzkouseli jste to nekdo?


Predem dik Radek

--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email

PRUZKUM

[*] Lubo Fule <fule(zv)sct.sk> - 14.12.1998 10:52:42

Dovolim si nie celkom suhlasit, pretoze, ked sa niekto novy prihlasi do
konferencie, tak vacsina prispevkov mu nic nepovie, ked v nich nebudu
uvedene aj predchadzajuce prispevky tykajuce sa daneho problemu. Tak isto,
ked sa riesi nejaky problem, tak je ovela praktickejsie ked si vsetko, co s
tym suvisi mozem precitat v jednom maile, ako ked musim hladat hromadu
predchadzajucich prispevkov tykajucich sa danemu prispevku. Prispevok s
textom "Nainstaluj si update #2" mi totiz absolutne nic nehovori v pripade,
ze si nepohladam predchadzajuce prispevky, resp. v horsom pripade sa uz ani
neviem dopatrat k akemu problemu sa taka rada vztahuje, kedze stare
prispevky pre usetrenie priestoru vymazavam.
Uznavam, ze tato poziadavka je opravnena ak si postu stahujete cez dial-up.
Neviem, ci existuje este iny archiv konferencie ako www.delphi(tec)cz, ale nic v
zlom, tento archiv tak ako je urobeny je k nicomu, pretoze nemam moznost si
jednoducho prezerat prispevky tak ako chodili, ale iba vyhladavat podla
nejakeho slova. Jednoduchy zoznam prispevkov usporiadany podla datumu by bol
podla mna celkom uzitocny.

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Vojtech Semecky
> Sent: Thursday, December 10, 1998 3:02 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: PRUZKUM
>
>
> >... a pak to vypada tak, ze nekdo odpovida na mail,
> > pripise 2 radky a necha tam jako ocas za sebou 4 quotovane
> > predchozi zpravy o delce 100 radku. Nebo jste opravdu tak lini
> > ten kus textu oznacit a zmacknout DELETE?
>
> Souhlasim. Z puvodni zpravy by se melo nechavat pouze nutne
> minimum, aby bylo jasne, na co se odpovida.
>
> Vojtech Semecky
>
>
>

SQL a Paradox a BDE

[*] Administrator <Administrator(zv)rosoft.sk> - 14.12.1998 11:03:07


>
[Administrator]
Je tam index na tej hlavnej tabulke. A tie dve pod nou su
rovnake.
Skusal som aj Left Join na tom istom a trvalo to este dlhsie

SELECT DISTINCT V.ID,V.text
FROM Slovo.DB K
INNER JOIN Tvar.db V ON V.ID=K.ID,
Skratka.db S
INNER JOIN Tvar.db V2 ON V2.ID=S.ID
ORDER BY Text

Tvar.db je indexovana
Slovo.db a Skratka.db su rovnake


> Jedna se o totoznou databazi? (nepises vubec o jakou ;-). Pokud se
> jedna
> o jinou DB tak bych se mrknul, jestli tam jsou indexy apod.
>
> Mac
>
> Administrator wrote:
>
> > Query trva presne 1min.
> >
> > Ta ista databanka to iste SQL a ten isty vysledok trva v M$ Access 2
> > sec.
> >
> > Robim nieco zle, alebo to BDE je pomalsie ako DAO?
>
>

GlobalMemoryStatus

[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 14.12.1998 11:09:47

> poradi mi nekdo jak zjistit voln� syst�mov� prost�edky, jako je to ve
> standardnich oknech About?

Nazdar,

mozno Ti postaci aj toto:

http://www.delphi(tec)cz/soubor.asp?dir=\archiv\1998\oct\23\dlfaaacm.htm

Marek Repisky
mrepisky_zl(zv)zsnp.sk


NET DIR

[*] Marcel Langr <ivar(zv)ivar(tec)cz> - 14.12.1998 11:45:55


>Mam maly problem s nastavenim parametru NET DIR v konfiguraci BDE v sekci
>DRIVERS/PARADOX. NEzkouseli jste to nekdo?

Jako zdroj informaci lze pouzit napr. na www.acsi.bc.ca (Installing BDE
Applications)
nebo TI3160 (BDE and Database Desktop Locking Protocol) na strankach Inprise
nebo www.kallista.com ( Delphi Papers)

S pozdravem
Marcel Langr
mlangr(zv)ivar(tec)cz


Indikator klavesnice

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 14.12.1998 12:34:31

Ahoj,
existuje komponent TPanelClock, ktery po vlozeni na formular
umoznuje sledovat nejen hodiny ale i aktualni stav klavesnice a resources.
Myslim ze je k mani na www.torry.ru a mel by byt i se zdrojem (mozna bych ho
taky nekde nasel).

Jaro B.

> -----P�vodn� zpr�va-----
> Od: Petr Brant [SMTP:p.brant(zv)samo.pvtnet(tec)cz]
> Odesl�no: 14. prosince 1998 9:50
> Komu: Konference Delphi
> P�edm�t: Indikator klavesnice
>
> Ahoj vsem,
>
> potreboval bych v okne aplikace indikovat zmenu v prepnuti klavesnice
> podobne jako je to v TaskBaru. Nevite nekdo, jak to provest ?
>
> Diky za odpovedi.
>
> POZOR, TATO ADRESA JE JEN DOCASNA, BUDE PLATIT ASI DO POLOVINY PROSINCE
> !!!
> ********************************************************
> Petr Brant [p.brant(zv)samo.pvtnet(tec)cz]
>
> programator v MSVC++, obcas Delphi nebo Visual Basic
> ********************************************************
>

PRUZKUM

[*] Ing. Miroslav Ond��ek <bonnel(zv)telecom(tec)cz> - 14.12.1998 12:42:48

Jakkoliv s vetsinou toho, co Lubo napsal moc nesouhlasim - opravdu by se
melo quotovat co nejmene - (mazu prispevky, ktere se me netykaji podle
predmetu a ponechavam si jen ty, ktere jsou pro me zajimave), pridal bych se
k navrhu ohledne delphi(tec)cz - dodal bych jen: prispevky tridene podle
PREDMETU A SEKUNDARNE DATUMU. To by bylo teprve... I kdyz vim, ze je to
prani neskromne a i za to, co existuje, patri tem, kteri se o to staraji
tisicere diky. Ale znate to, s jidlem roste chut :-))

S pozdravem
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.

E-mail:
bonnel(zv)telecom(tec)cz
bonnel-hotline(zv)telecom(tec)cz - pro technick� rady
bonnel-opekar(zv)telecom(tec)cz - jednatel spole�nosti
bonnel-selnarova(zv)telecom(tec)cz - obchodn� odd�len�
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
bonnel-hettner(zv)telecom(tec)cz - technik

internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage



-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Datum: 14. prosince 1998 11:31


|... tento archiv tak ako je urobeny je k nicomu, pretoze nemam moznost si
|jednoducho prezerat prispevky tak ako chodili, ale iba vyhladavat podla
|nejakeho slova. Jednoduchy zoznam prispevkov usporiadany podla datumu by
bol
|podla mna celkom uzitocny.
|

Dalsi chyba v Delphi 4 ... ?

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 14.12.1998 12:50:35

Je to hezke, ale ja mam dojem, ze podle specifikaci Microsoftu zarucuji Windows nulovou hodnotu jako false a nenulovou hodnotu jako true, respektive 1 ve Windows NT.

Ondrej Krajicek

-----P�vodn� zpr�va-----
Od: Jirka <Juraj.Nagy(zv)nh-trans(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 14. prosince 1998 10:30
P�edm�t: RE: Dalsi chyba v Delphi 4 ... ?


Ja jsem si prave vcera otevrel Mistrovstvi v Delphi3 na uplne
nahodnem miste a zrovna tam byla nejaka poznamka o tom, ze v D3 jsou
zmenene hodnoty nekterych boolovskych typu, presne se uz nepamatuji,
protoze ja je nepouzivam. True je v nich reprezentovane jako -1, v
puvodnim Boolena zustava 1. Pry je to kvuli kompatibilite s volanim
nejakych systemovych veci, ale nevim jestli OCX, ActiveX nebo co to
vlastne bylo.
Promin, ze jsou moje informace tak kuse, ale opravdu jsem nahodou
otevrel knizku a precetl jsem prvni vec, co mi prislo na um

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: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> P�edm�t: Dalsi chyba v Delphi 4 ... ?
>
> Ahoj,
>
> Prave jsem narazil na dalsi problem v D4, tyka se to typu promenne
> BOOL a jejiho
> pouziti jako navratove hodnoty callback funkce volane z API funkce.
> V Delphi 2
> to funguje, ale stejny kod nefunguje po prekladu v D4. Rozdil lze
> najit pomoci
> toho prikladu:
>
> var
> B: BOOL;
> begin
> B := True;
>
> Delphi 2 to prelozi (spravne) jako
> MOV EAX, $1
>
> Ale Delphi 4 jako
> OR EAX, $-1

Integrace MSIE

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 14.12.1998 12:52:00

Naimportuj si typovou knihovnu MSHTML.DLL, to by melo vytvorit komponentu TWebBrowser nebo tak nejak a koukni se na www.informant.com, nekde tam maji priklad.

Ondrej Krajicek

-----P�vodn� zpr�va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 14. prosince 1998 10:50
P�edm�t: RE: Integrace MSIE


>> Nenapada vas prosim nekoho,
>> jak integrovat do vlastni aplikace MSIE ?
>
>Hledej na DSP TPreviewHTML (pripadne mohu zaslat mejlem).
>Je to tam i s prikladem.
>
>==[ eLK(zv) ]===================================================
>http://webhost(tec)cz/elka * mailto:Libor.Krayzel(zv)czech-tv(tec)cz - (069)6201375
>http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
>============================================================
>

EDIT zarovnani doprava

[*] jiri.walder.fei(zv)vsb(tec)cz - 14.12.1998 13:03:50

Nevi nekdo jak zarovnat text v policku TEDIT doprava popripade na
stred.

Diky Jiri Walder.

NMFTP & set attributes

[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 14.12.1998 13:41:37

Zdravicko...

Nevite nekdo, jak pomoci NMFTP z Delphi 4 zmenit attributy souboru?
Pokud to nejde, neexistuje lepsi komponenta pro pristup na FTP, ktera
dokaze zmenit attributy vzdaleneho souboru?

Dekuji za odpovedi, F.

Pomoooc MYS

[*] pcuhel(zv)deltax(tec)cz - 14.12.1998 13:55:56


Diky to bylo to co jsem potreboval.
>> Mam problem potreboval bych odchytit udalost mysi pro cela windows.

>Ahoj,

>to lze udelat pomoci hook funkci, podivej se do Win32 API helpu tam to
>mas popsane. Tady mas podobny priklad, ale s klavesnici:

>http://www.delphi(tec)cz/soubor.asp?dir=\archiv\1998\jul\02\dlfaaabz.htm


Bitmapa

[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 14.12.1998 14:20:29

Tak jsem se na to dival trosku bliz a nikdo tady nenavrhl v podstate
nejjednodussi zpusob a to pouzit Canvas.BrushCopy:

procedure ChangeColor(BMP:TBitmap;OldColor,NewColor:TColor);
var
TempBMP:TBitmap;
begin
if not assigned(BMP) then exit;
if BMP.Empty then exit;
TempBMP:=TBitmap.Create;
try
TempBMP.Canvas.Brush.Color:=NewColor;
TempBMP.Width:=BMP.Width;
TempBMP.Height:=BMP.Height;

TempBMP.Canvas.BrushCopy(Rect(0,0,BMP.Width,BMP.Height),BMP,Rect(0,0,BMP
.Width,BMP.Height),OldColor);
BMP.Assign(TempBMP);
finally
TempBMP.Free;
end;
end;

Napis jestli to tak muze byt. Zkousel jsem to i pomoci ROP operaci a asi
by to taky slo, potreboval bych ale vedet jakou kombinaci jsi dosahl te
cerne a bylo by treba dosahnout i bile.

S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz


> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 11. Dezember 1998 11:28
> Komu: Delphi konference
> P�edm�t: Bitmapa
>
> Potrebuji nahradit urcitou barvu v bitmape jinou barvou. Vim, ze si
> musim
> vytvorit nejakou maskovaci bitmapu pozitim nejake ROP operace, a potom
> to
> nejak zkombinovat, ale nevim jak na to. Muze mi nekdo poradit ?
>
> Diky Vita


Drag & Drop na TDBgrid

[*] Lubo Fule <fule(zv)sct.sk> - 14.12.1998 14:22:32

Ja som tiez mal taky problem, poriesil som ho tak, ze som si vytvoril
vlastnu komponentu, do ktorej som doplnil udalost OnMouseDown potom uz nie
je problem. V OnMouseDown zavolam DBGrid1.BeginDrag(False); a DragMode
nastavim na dmManual a vsetko chodi tak ako ma. Uz som to raz do konferencie
posielal, takze ak chces, tak ti poslem zdrojak komponenty na tvoju adresu.

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Triblax (Bilbo)
> Sent: Thursday, December 10, 1998 11:41 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Drag & Drop na TDBgrid
>
>
> Zdravim
> Mohol by mi niekto prosim pomoc-poradit ako mam postupovat pri "tahani"
> poloziek z DBGridu napr. do listboxu???
> skusal som vsetko co ma napadlo, ale ak nastavim ze dbgrid ma manualne
> Drag&Drop nemozem dosiahnut aby vobec zacat "tahat", tato komponenta nema
> ani OnMouse...
> Pokial dam automatiku, nemozem sa posuvat po polozkach v DBGride...
> Diki za kazdu radu
> Juraj
>
>
>

DbGrid - aktualni sloupec

[*] jdanek(zv)fnbrno(tec)cz - 14.12.1998 15:14:31


Ahoj,

vi nekdo, prosim, jak se zjisti, nad kterym sloupcem DBGridu je prave
kurzor mysi?
Chci podle toho, kde se kurzor nachazi vyvolat pro kazdy sloucec na
DblClick
jinou akci.
Diky zdravi
Josef Danek
jdanek(zv)fnbrno(tec)cz

Editace DLL

[*] JAVA - 5. rocnik <xvrabe00(zv)kapr.fme.vutbr(tec)cz> - 14.12.1998 15:41:04

Muzete my nekdo poradit jak editoval ikony v souborech typu dll ?? Nejlepe
prakticky priklad. Dival sem se do API funkci ale tam je jen nacitani ikon nic
vic.

Dik Jirka.

RichText

[*] jk(zv)tzus(tec)cz - 14.12.1998 15:43:02

>
>No jestli se muzu pripojit tak jsem se uz jednou ptal(ale zadna
>odpoved). Teda znovu : Jak napr. zaridim nastaveni dolniho nebo horniho
>indexu ? Pokud do RichEdit takovy text zkopiruju(napr. z Wordu) vse je
>OK, ale vlastnost nebo metodu, ktera by to umoznovala jsem nenasel.
>Myslim ze by se to dalo zapsat nejakych ridicich znacek do RTF souboru,
>ale jak ... chtelo by to nejaky priklad.Diky.
>

Strucny popis formatu RTF je v souboru hcw.hlp, ktery je (mozna ze pouze
byval) soucasti instalace delphi. To co neni v tomto helpu popsane se da
zpravidla rychle zjistit pomoci Wordu a ulozeni ve formatu rtf.
Strucne - format RTF je prosty text se spoustou formatovacich znacek ve
slozenych zavorkach a konverzi diakritiky do hexa kodu. Pro formatovani pak
staci zapsat spravne znacky na spravna mista.

S pozdravem
Jan Kadlecek

******************************************
* kadlecek(zv)htkpro(tec)cz *
* HTK Pro s.r.o., www.htkpro(tec)cz *
* tel : 02-83880361, fax: 02-6896391 *
* Autorizovany dealer TurboPower *
******************************************

Detekce exploreru

[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 14.12.1998 15:56:19

>Nevite nekdo jak detekovat ve Windows jestli je nainstalovany
>internetovsky prohlizec a eventuelne jaky a jaka verze.


Explorer najdes snadno

[HKEY_LOCAL_MACHINE\Software\Microsoft\IE4\Setup]
"Path"="C:\\PROGRA~1\\INTERN~1"
"Apps.hlpDate"="1998.02.01"
"OldIEVersion"="4.71.1500.0"

A ostatni si musis zjistit, z hlavy nevim jaky Hives dela Communicator

Heretic-X [www.nt(tec)cz]

NMFTP & set attributes

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 14.12.1998 16:11:09

Pokud muzu doporucit, v tomto ohledu bych se vykaslal na komponenty a pouzil primo WinInet API, me osobne to pripada ponekud transparentnejsi a navic dost jednoduche na to, aby se to dalo pouzit i bez zapouzdrujicich komponent.

Ondrej Krajicek

-----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: 14. prosince 1998 14:56
P�edm�t: NMFTP & set attributes


>Zdravicko...
>
>Nevite nekdo, jak pomoci NMFTP z Delphi 4 zmenit attributy souboru?
>Pokud to nejde, neexistuje lepsi komponenta pro pristup na FTP, ktera
>dokaze zmenit attributy vzdaleneho souboru?
>
>Dekuji za odpovedi, F.

MS ACCESS

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 14.12.1998 16:16:03

Ahoj vsichni,

mam ponekud problem s driverem MS-ACCESS pro BDE. V prve rade by me zajimalo, jestli jde o nejapny zert nebo jestli to Inprise mysli vazne. Ted driver se jevi jako naprosto nepouzitelny.

1. Potreboval bych vedet, jak vytvorit uplene novou databazi MDB pomoci BDE, lhostejno jake verze Accessu. Ovsem predpokladam, ze to nejde.

2. Jak jakoukoliv databazi otevrit. Kdyz se pripojim z klasicke aplikace napsane v Delphi nebo napr. z Database Desktopu, tak dostanu hlasku, ze chybi systemova databaze (soubor MDW nebo tak nejak). I kdyby existoval nejaky zpusob, jak tuto databazi ziskat, napr. vytvorit, jaky to ma smysl z hlediska distribuce aplikaci. Z toho mala co jsem zjistil v helpu neprimo vypliva, ze tato databaze se system od systemu lisi.

3. Existuje nejaka rozumna FREE alternativa k BDE ? Me uz ty vecne problemy z BDE zacinaji nudit.

Dekuji za odpovedi,
Ondrej Krajicek

MS ACCESS

[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 14.12.1998 17:14:01

Jelikoz nepouzivame BDE tak ti k 1. a 2. neporadim.

Ondrej Krajicek wrote:

> 3. Existuje nejaka rozumna FREE alternativa k BDE ? Me uz ty vecne problemy z BDE zacinaji nudit.

Vyzkousej si komponenty DAODS:

http://www.cybermagic.co.nz/winsoft/

Par aplikaci jsme v tom delali a jsme spokojeni. Vytvoreni databaze neni problem.

Jasne, neni to free (takze zase rada mimo misu ;-). Na druhou stranu, pokud to chces pouzit jen pro nejakou svoji aplikacku "na doma" tak si holt pokazde odklepnes hlasku o trial verzi a pokud to budes chtit prodavat tak cena okolo 3.000,- Kc si myslim neni zas az tak hrozna.

Pokud s tim budes mit nejake problemy nebo budes chtit poradit tak se mi ozvi...

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 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================

NET DIR

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 14.12.1998 17:52:26

Petr Zahradnik wrote:

> > Mam maly problem s nastavenim parametru NET DIR v konfiguraci BDE v
> > sekci DRIVERS/PARADOX. NEzkouseli jste to nekdo?
>
> Zkouseli jsme to. Co jineho ti mam odpovedet na tento dotaz?

Jaaaj, Petre, byt se blbe zeptal, tak jsi mu mohl napsat, ze tam
ma psat vsude sitovou cestu, a to i na serveru, dava-li to na sit,
coz?


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


MS ACCESS

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.1998 18:07:25

> mam ponekud problem s driverem MS-ACCESS pro BDE. V prve rade by me zajimalo, jestli jde o nejapny
> zert nebo jestli to Inprise mysli vazne. Ted driver se jevi jako naprosto nepouzitelny.

Ten driver je normalne pouzitelny. Nerikam, ze nejsou lepsi, ale tento
je pouzitelny a ja ho obcas pouzivam. Ovsem napsal jsi velmi malo
indicii k tomu, aby se ti dalo poradit v nasledujicich dvou dotazech.
Mas nainstalovany Access 95 nebo 97 nebo prislusne DAO? Jake mas
vubec Delphi a potazmo BDE - 4.5 nebo 4.51 nebo 5.0 nebo 5.01? Vubec
se posledni dobou mnozi dotazy, kdy dotazujici sice polozi otazku,
ale neda se na ni odpovedet prave proto, ze neuvedl vlastne nic okolo.

> 1. Potreboval bych vedet, jak vytvorit uplene novou databazi MDB pomoci BDE, lhostejno jake verze
> Accessu. Ovsem predpokladam, ze to nejde.

Tak toto nevim, mam pocit, ze uplne novou databazi pres BDE asi
nezalozis. Ale tabulky jiste muzes v databazi vytvaret - ovsem
ani tim si ted z hlavy nejsem jisty, nikdy jsem to nezkousel.

> 2. Jak jakoukoliv databazi otevrit. Kdyz se pripojim z klasicke aplikace napsane v Delphi nebo
> napr. z Database Desktopu, tak dostanu hlasku, ze chybi systemova databaze (soubor MDW nebo tak
> nejak). I kdyby existoval nejaky zpusob, jak tuto databazi ziskat, napr. vytvorit, jaky to ma
> smysl z hlediska distribuce aplikaci. Z toho mala co jsem zjistil v helpu neprimo vypliva, ze tato
> databaze se system od systemu lisi.

Tohle vypada, ze na pocitaci Access instalovany mas, takze by
ti to melo chodit, jen sis nenastavil systemovou databazi. To
je databaze hesel, pokud jedes pres hesla... Musis ji pridat
do aliasu do policka System Database. Mas ji pravdepodobne
ve \Windows.

> 3. Existuje nejaka rozumna FREE alternativa k BDE ? Me uz ty vecne problemy z BDE zacinaji nudit.

Je docela mnoho alternativ na vsechno mozne. Opet zase jsi
nenapsal nic konkretniho. Ma to umet Access? Ma to umet
dBase? Ma to umet Paradox? Ma to umet FoxPro? Ma to umet
Clipper? Ma to umet nejaky SQL Server? Nebo to ma byt
nejaka Client/Server databaze? ...

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


Detekce exploreru

[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 14.12.1998 18:59:31

Dne Mon, 14 Dec 1998 09:11:00 +0100 Zdenek Petruj napsal:

> Nevite nekdo jak detekovat ve Windows jestli je nainstalovany
> internetovsky prohlizec a eventuelne jaky a jaka verze.
asi nejjednodusi je nechat si API funkci findexcutable (nebo jak se to
jmenuje) vratit, jakej EXE je spojenej s extensi HTM nebo HTML.
Tim ovsem zjistim defaultni, nezjistim, jestli jich ma i vice.

Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772


NET DIR 2

[*] rsoucekk(zv)email(tec)cz - 14.12.1998 20:17:59


Omlouvam se za spatne formulovanou otazku. Skutecne nejsem tak blbej abych
nevedel, co to znamena a na co to ma vliv. Mel jsem ale (pochopitelne) na
mysli jeho zmenu primo z meho programu, tedy ne z BDEAdminu (pred
inicializaci BDE) Pokud tedy nekdo takoveho nastavuje primo ze sve
aplikace a je ochoten se se mnou o tuto drobnustku podelit, tak mi prosim
odpovezte. Jinak si myslim, ze pokud se nekdo prehledne a spatne formuluje
otazku, tak je lepe takovy prispevek ignorovat. :-)

Predem dik Radek

//----------------------//

> Mam maly problem s nastavenim parametru NET DIR v konfiguraci BDE v sekci
> DRIVERS/PARADOX. NEzkouseli jste to nekdo?

Zkouseli jsme to. Co jineho ti mam odpovedet na tento dotaz?

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


--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email


Aligned records?

[*] Ing. Jaroslav K�e�ek - 14.12.1998 20:45:26

Mam nadefinovan nize uvedeny typ. Potreboval bych dosahnout toho, ze zaznam
typu TT_Face_Properties bude mit velikost 38B. Vypnul jsem
"Project\Options\Compiler\Aligned Record Fields" v D4. Ale presto
vyhodnoceni souctu velikosti je 38.
5*sizeof(TT_UShort) + sizeof(TT_ULong) + 6*sizeof(Pointer) = 38
A vzhodnoceni velikosti celeho zaznamu je 40
sizeof(TT_Face_Properties) = 40

Nevite, co stim?

TT_Face_Properties = record
num_Glyphs : TT_UShort;
max_Points : TT_UShort;
max_Contours : TT_UShort;
num_CharMaps : TT_UShort;
num_Names : TT_UShort;
num_Faces : TT_ULong;
header : PTT_Header;
horizontal : PTT_Horizontal_Header;
os2 : PTT_OS2;
postscript : PTT_Postscript;
hdmx : PTT_Hdmx;
vertical : PTT_Vertical_Header;
end;


Dekuji
Jaroslav Krecek

Update - Delete Record ?

[*] Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz> - 14.12.1998 20:55:22

Ahoj
Tak to jsme si, zda se, nerozumeli.

Pod pojmem cursor jsem mel na mysli vysledek nejakeho databazoveho dotazu.

SQL-92 Syntax
DECLARE cursor_name [INSENSITIVE] [SCROLL] CURSOR
FOR select_statement
[FOR {READ ONLY | UPDATE [OF column_list]}]

Podle Tveho prispevku jsem myslel, ze s temito cursory lze pracovat pres
TTable komponentu.

S pozdravem, Lada
>Vloz na formular DBGrid+DataSource+Table napoj ich na nejaky DBF a
odstartuj program.
>Nastav v DBGride na zaznam a zadaj CTRL-DEL.
>
>TUNGLI Jan
>tungli(zv)pvt.sk
>
>----------
>> Od: Ladislav Nagy <lada(zv)kolej.mff.cuni(tec)cz>
>> Pre: delphi-l(zv)fwd(tec)cz
>> Predmet: Re: Update - Delete Record ?
>> D�tum: 6. december 1998 17:17
>>
>> Ahoj,
>> to me zajima. Jak toho lze dosahnout? Nemohl bys mi poslat priklad.
>>
>> Diky moc, Ladislav Nagy
>> lada(zv)kolej.mff.cuni(tec)cz
>>
>> > Si na omile, mozem ti to ukazat ak chces. TTable vie pracovat s
aktualnym
>> curzorom databazy.
>> >
>> >TUNGLI Jan
>> >tungli(zv)pvt.sk
>> >

NET DIR 2

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.12.1998 21:10:03

rsoucekk(zv)email(tec)cz wrote:

> Omlouvam se za spatne formulovanou otazku. Skutecne nejsem tak blbej abych
> nevedel, co to znamena a na co to ma vliv. Mel jsem ale (pochopitelne) na
> mysli jeho zmenu primo z meho programu, tedy ne z BDEAdminu (pred
> inicializaci BDE) Pokud tedy nekdo takoveho nastavuje primo ze sve
> aplikace a je ochoten se se mnou o tuto drobnustku podelit, tak mi prosim
> odpovezte. Jinak si myslim, ze pokud se nekdo prehledne a spatne formuluje
> otazku, tak je lepe takovy prispevek ignorovat. :-)

Ahoj,

NetFileDir muzes nastavovat z aplikace pomoci vlastnosti TSession.NetFileDir.

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************

komponenty TRzDrive...

[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 14.12.1998 21:13:26

Zdravi.

Oprava, splet jsem se. Chtel bych se zeptat na tyhle komponenty (TRzDrive...). Bylo tady receno, ze je mozne je ziskat po registraci Delphi. Jak je to s jejich pouzitim v programech, muzou se vubec pouzit?

Bye,
Tomas Skopik
( skopik(zv)vtv(tec)czn(tec)cz , www.sarai(tec)cz/~skopik )

DbGrid - aktualni sloupec

[*] Jaro <jaro(zv)sinea(tec)cz> - 14.12.1998 21:23:56

[P��loha v souboru: DbGridSi.pas]
V priloznem pas souboru je zdroj naseho DbGridSinea.
Je to potomek DBGrid. Resi (mimo jine) podobnou situaci,
ale pouze na titulek. Je tam pridana udalost OnClickTitle,
kde promenna vraci jmeno sloupce.
Po vzoru prilozeneho zdroje muzes snadno tuto udalost
rozsirit na oblast celeho sloupce a vytvorit si vlastniho potomka
DBgrid. Kompletn� knihovny s popisem jsou ke stazen� na www.sinea(tec)cz
Jaro
--------------

>Ahoj,
>
> vi nekdo, prosim, jak se zjisti, nad kterym sloupcem DBGridu je prave
>kurzor mysi?
>Chci podle toho, kde se kurzor nachazi vyvolat pro kazdy sloucec na
>DblClick
>jinou akci.
> Diky zdravi
> Josef Danek
> jdanek(zv)fnbrno(tec)cz
>
>

DbGrid - aktualni sloupec

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.12.1998 21:39:44

jdanek(zv)fnbrno(tec)cz wrote:
>
> Ahoj,
>
> vi nekdo, prosim, jak se zjisti, nad kterym sloupcem DBGridu je prave
> kurzor mysi?
> Chci podle toho, kde se kurzor nachazi vyvolat pro kazdy sloucec na
> DblClick

Ahoj,

Muzes to udelat treba takhle:

type
TDBGridHack = class(TDBGrid);

function MouseToDBGridColumn(DBGrid: TDBGrid): TColumn;
var
Cell: TGridCoord;
P: TPoint;
begin
with TDBGridHack(DBGrid) do
begin
GetCursorPos(P);
P := ScreenToClient(P);
Cell := MouseCoord(P.X, P.Y);
if Cell.X >= IndicatorOffset then
Result := Columns[RawToDataColumn(Cell.X)]
else
Result := nil;
end;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
Column: TColumn;
begin
Column := MouseToDBGridColumn(TDBGrid(Sender));
if Column <> nil then ShowMessage(Column.FieldName);
end;

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************

komponenty TRzDrive...

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.1998 21:42:10

> Oprava, splet jsem se. Chtel bych se zeptat na tyhle komponenty (TRzDrive...). Bylo tady receno,
> ze je mozne je ziskat po registraci Delphi. Jak je to s jejich pouzitim v programech, muzou se
> vubec pouzit?

Ja jsem si prave rikal, co je to za divne komponenty :-)))
A ty myslis ty Raize komponenty - jo, ty muzes normalne
pouzivat, ale nemas k nim zdrojaky. Za ty se plati...

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


Dalsi chyba v Delphi 4 ... ?

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.12.1998 21:51:25

Ondrej Krajicek wrote:
>
> Je to hezke, ale ja mam dojem, ze podle specifikaci Microsoftu zarucuji Windows nulovou hodnotu jako false a nenulovou hodnotu jako true, respektive 1 ve Windows NT.

To je pravda, jenze to se spise tyka hodnot ktere API funkce vraci. Me jde ale
naopak o hodnoty ktere jako BOOL ocekava (a to i jako navratovou hodnotu callback
funkce). Podle me je to 1 (True) a 0 (False). Takze je-li definovana callback
funkce napriklad:

BOOL CALLBACK EnumLocalesProc(
LPTSTR lpLocaleString // pointer to locale identifier string
);

Tak nelze pouzit typ BOOL definovany v Delphi, protoze on ve skutecnosti dava
jako True -1 a ne 1 (coz je pozadovano, jinak to nefunguje).

> Ja jsem si prave vcera otevrel Mistrovstvi v Delphi3 na uplne
> nahodnem miste a zrovna tam byla nejaka poznamka o tom, ze v D3 jsou
> zmenene hodnoty nekterych boolovskych typu, presne se uz nepamatuji,
> protoze ja je nepouzivam. True je v nich reprezentovane jako -1, v

To bude ono. Proto to v D2 jeste funguje s pouzitim BOOL a v D>=3 uz ne.

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************

EDIT zarovnani doprava

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.12.1998 21:59:36

jiri.walder.fei(zv)vsb(tec)cz wrote:
>
> Nevi nekdo jak zarovnat text v policku TEDIT doprava popripade na
> stred.

Ahoj,

uz se to tu probiralo, najdes to tady:

http://www.delphi(tec)cz/soubor.asp?dir=\archiv\1998\nov\04\dlfaaaba.htm


--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************

distribuce Exploreru

[*] Antonin Blatny <trest(zv)cesnet(tec)cz> - 14.12.1998 22:36:16

Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.

Ahojte!

Rovnou k veci: Ke svemu programu, ktery se bude distribuovat na CD jsem pripravil par demo,info a reklam stranek ve formatu HTML odladene na Internet MS Exploreru. Jelikoz vim, ze ne vsichni mi zakaznici maji Explorer na svem pocitaci, potreboval bych poradit, jak zjistit, jestli je IE u zakaznika nainstalovan (i s verzi) a pokud neni, tak jak ho spustit primo z CD. Mozna, ze to nejde, ale moc se mi nechce nutit nekoho, aby si IE kvuli mne nainstaloval. Pokud ho tam nema, asi ma nejake sve duvody ... Takze bych potreboval vedet, jake vsechny soubory potrebuji atd.

Diky

Tonda

Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz

NET DIR 2

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.12.1998 23:10:06

> Omlouvam se za spatne formulovanou otazku. Skutecne nejsem tak blbej abyc=
> h=20
> nevedel, co to znamena a na co to ma vliv. Mel jsem ale (pochopitelne) na=
> =20
> mysli jeho zmenu primo z meho programu, tedy ne z BDEAdminu (pred=20
> inicializaci BDE) Pokud tedy nekdo takoveho nastavuje primo ze sve=20
> aplikace a je ochoten se se mnou o tuto drobnustku podelit, tak mi prosim=
> =20
> odpovezte. Jinak si myslim, ze pokud se nekdo prehledne a spatne formuluj=
> e=20
> otazku, tak je lepe takovy prispevek ignorovat. :-)

Pokud to chces menit jen v ramci sve aplikace, pak muzes tusim pres
TSession nebo TDatabase (v jednom z nich to je), pokud to chces
menit v configu, to je trochu slozitejsi.

Jinak me se nelibi prispevky ignorovat, kdyz neco vim a rad bych
poradil...

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


distribuce Exploreru

[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 15.12.1998 00:14:00

Ahoj,

ja osobne bych se podival do registru, konkretne na IE 4.0:
HKEY_LOCAL_MACHINE\Software\Microsoft\IE4\SETUP, pokud existuje, tak
pomoci polozek DestPath a Path bych overil exitenci nejakeho souboru
(nejlepe IE4.dll, na nej by mela ukazovat polozka DestPath). Podobne
bych postupoval i na nizsi verze, jenom to nebude IE4, ale asi Explorer,
nebo tak neco.

Ale nezapomen, ze je celkem mnoho uzivatelu pouzivajicich Netscape
Navigator/Communicator. Nebo Mosaic... Hlidat jenom IE se nevyplaci,
protoze pokud ho budes uzivateli cpat, muze se to setkat i se znacnou
nevoli.

Ja bych spis pouzil na tvuj html dokument API ShellExecute a teprve
podle vysledku bych zacal s nucenim nejakeho browseru. Treba pokud ti
GetLastError vrati "ERROR_NO_ASSOCIATION", je to celkem jasne :-).

Mimochodem, co ti brani se uzivatele zeptat? "Chcete nainstalovat IE4
SP1?" ... a je to.

------
Antonin Blatny wrote:

> Ahojte! Rovnou k veci: Ke svemu programu, ktery se bude distribuovat
> na CD jsem pripravil par demo,info a reklam stranek ve formatu HTML
> odladene na Internet MS Exploreru. Jelikoz vim, ze ne vsichni mi
> zakaznici maji Explorer na svem pocitaci, potreboval bych poradit, jak
> zjistit, jestli je IE u zakaznika nainstalovan (i s verzi) a pokud
> neni, tak jak ho spustit primo z CD. Mozna, ze to nejde, ale moc se mi
> nechce nutit nekoho, aby si IE kvuli mne nainstaloval. Pokud ho tam
> nema, asi ma nejake sve duvody ... Takze bych potreboval vedet, jake
> vsechny soubory potrebuji atd.

distribuce Exploreru

[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 15.12.1998 00:15:11

Juj. Ja se zapomel podepsat ... ach jo :-((.

Mej se,

Peter Rus ml.
mailto:peterrus(zv)intesys(tec)cz

EDIT zarovnani doprava

[*] Ing. Miroslav Ond��ek <bonnel(zv)telecom(tec)cz> - 15.12.1998 06:26:03

Pokud budes chtit celou komponentu, ktera hlida i vstup (povolene x zakazane
znaky), umi vyvolavat bud message nebo udalost kdyz se opousti prazdna a
zaroven (mimochodem) zarovnava doleva, doprava a na stred tak Ti ji mohu
poslat (je urcite free, je to moje dilo:-). Pokud budes chtit jen popis jak
na to zarovnani, mohu poslat take. Komponenta je odladena na D3.

M�ra

E-mail:
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
ondrisek(zv)atlas(tec)cz

internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage

-----P�vodn� zpr�va-----
Od: jiri.walder.fei(zv)vsb(tec)cz <jiri.walder.fei(zv)vsb(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 14. prosince 1998 13:50
P�edm�t: EDIT zarovnani doprava


|Nevi nekdo jak zarovnat text v policku TEDIT doprava popripade na
|stred.
|
| Diky Jiri Walder.

Aligned records?

[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.12.1998 08:14:48

Ing. Jaroslav K�e�ek wrote:

> Mam nadefinovan nize uvedeny typ. Potreboval bych dosahnout toho, ze
> zaznam typu TT_Face_Properties bude mit velikost 38B. Vypnul jsem
> "Project\Options\Compiler\Aligned Record Fields" v D4. Ale presto
> vyhodnoceni souctu velikosti je 38.
> 5*sizeof(TT_UShort) + sizeof(TT_ULong) + 6*sizeof(Pointer) =
> 38
> A vzhodnoceni velikosti celeho zaznamu je 40
> sizeof(TT_Face_Properties) = 40

Zkus dat primo do unity {$A-}, nebo "packed record".


S pozdravem

Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ


Aligned records?

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.12.1998 08:30:11

>Mam nadefinovan nize uvedeny typ. Potreboval bych dosahnout toho, ze zaznam
>typu TT_Face_Properties bude mit velikost 38B. Vypnul jsem
>"Project\Options\Compiler\Aligned Record Fields" v D4. Ale presto
>vyhodnoceni souctu velikosti je 38.


Zarovnavani bych obecne nevypinal - nezarovnane polozky snizuji rychlost
pristupu. Pokud je potreba zridit record, ktery obsahuje nezarovnane polozky
(kompatibilita s jiz existujicimi starsimi strukturami, deklarace formatu
cehokoliv...) je nejlepsi pouzit direktivu packed (pripadne umistit
deklaraci typu mezi {$A-} a {$A+}).

TPackedRec = Packed Record
....
end;


Zdravi
D. Toman

NET DIR 2

[*] RADIK(zv)p15.monet(tec)cz - 15.12.1998 08:42:00

Ja to mam programove udelane takhle:

v datamodulu je database i session.
V parametru programu ocekavam jmeno aliasu a ten NET DIR je primo u
tech tabulek...

a v oncreate je:

-----------------------------

If ParamCount <> 1 then
begin
Application.Terminate;
Exit;
end;
try
params := TStringList.Create;
Session.GetAliasParams ( paramstr ( 1 ), params );
dir := params.Values [ 'PATH' ];
finally
params.Free;
end;
try
Database1.AliasName := paramstr ( 1 );
Session1.NetFileDir := dir;
Session1.Open;
Database1.Open;
TSet.Open;
if TSetVER.Value <> '1.20' then
begin
Application.MessageBox
( 'Tento program m��e b�et pouze s datab�z� verze 1.20.',
'Chyba', mb_OK + mb_ICONSTOP );
raise Exception.Create('Chybn� verze datab�ze');
end;

---------------------------



Ales

----------
Od: rsoucekk(zv)email(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: NET DIR 2
Datum: 14. prosinec 1998 20:17

Omlouvam se za spatne formulovanou otazku. Skutecne nejsem tak blbej
abych
nevedel, co to znamena a na co to ma vliv. Mel jsem ale (pochopitelne)
na
mysli jeho zmenu primo z meho programu, tedy ne z BDEAdminu (pred
inicializaci BDE) Pokud tedy nekdo takoveho nastavuje primo ze sve
aplikace a je ochoten se se mnou o tuto drobnustku podelit, tak mi
prosim
odpovezte. Jinak si myslim, ze pokud se nekdo prehledne a spatne
formuluje
otazku, tak je lepe takovy prispevek ignorovat. :-)

Predem dik Radek


BDE a ukladani na disk.

[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 15.12.1998 09:08:50

Ahoj,
vcera jsem se setkal s problemem, ktery by nekoho mohl
zajimat.

Jsou dany dva pocitace (ruzni vyrobci, Win95 klasicke, jinak nic
neinstalovano). Na obou bezi program, ktery cte z tabulky a pomoci
SetRange si hleda vety, ktere jeste nezpracoval (k tabulce se
pristupuje jak z 16 tak 32bit IDAPI, 300.000 vet, zatim ani jeden
pad). Vse v lokale na jednom PC, LocalShare=true v obou BDE.

Na jednom vse OK na druhem se po SetRange neudela refresh,
ale tvari se jako by tabulka vubec nebyla zmenena. Nepomuze ani
Post, Refresh, dbiSaveChanges a dokonce ani Close a Open !!!!
Jedine co pomuze je zapsani libovolneho retezce to textoveho souboru.
V tom okamziku se aplikace vzpamatuje a zjisti, ze v tabulce jsou
nove vety !? Ja ten program nepsal, ale byl jsem u toho, kdyz jsme
hledali chybu. Zkousel jsem i vypnout TentoPocitac>Vlastnosti>
Vykon>Co delat v nesnazich>Nepouzivat zpozdeny zapis. To nepomohlo,
pomohl fakt zapis do txt souboru na disku. Ja na to hledel
jako .... (dopln si sam).

Martin

P.S. Tu 16bit aplikaci jsem nepsal, ale zdrojaky jsem videl, nic na
prvni pohled nezvykleho.

Install shield

[*] Honza Fiala <fala(zv)imc(tec)cz> - 15.12.1998 09:10:50

Zdravim,
tedka jsem prochazel archiv a narazil jsem na jeden problem, ktery se tu
uz resil, ale nevim jak to skoncilo. Jedna se o partial BDE instalaci. Na D4
prof. to rve na chybu, ze nemuze najit DATAPUMP. Kdyz tento soubor odstranim
z instalace, tak to udela na jinych to same. Po odstraneni vsech takovych
souboru instalace probehne, ale u klienta se nenainstaluje BDE.
Pokud nekdo vite jak zalozit STANDARD databazi u klienta, tak mi prosim
poradte.

Dik Hoza Fiala


Jak ziskat ikony z EXE a DLL

[*] Karel Kral <kral(zv)purus(tec)cz> - 15.12.1998 09:13:40

Potreboval bych z nekterych stavajicich programu, napr. Explorer.exe
vycucat nektere ikony, ktere me zajimaji. Resource Workshop nemam.
Muzete mi poradit, jak na to?
--
_______________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz
_______________________________________________


RichText

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 15.12.1998 09:59:01

... spravne mista kde ?
Vsechno mi to nejak spatne dochazi tak jeste jednou prosim.
Pokud napriklad ve Wordu napisu "Ahoja+"
zkopiruji to pres clipboard do vzozoveho programu s
TRichEDit(Demos\TRichEdit) a ulozim tak dostanu neco takoveho :

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fnil MS Sans
Serif;}{\f1\froman\fcharset2{\*\fname Symbol;}MT
Symbol;}{\f2\fswiss\fcharset1 Arial;}{\f3\fswiss
Arial;}{\f4\froman\fprq2 Times New Roman;}}
{\colortbl\red0\green0\blue0;}
\deflang1029\pard\plain\f4\fs20\b Ahoj\plain\f4\fs13\b\up10
a+\plain\lang1033\f3\fs20\cf0
\par }
Pokud pominu ten zacatek : {\trf1 .... a zajima me hlavne ten index
tak bych usuzoval ze toho dosahnu tak ze za Ahoj napisu :
"\plain\f4\fs13\b\up10 a+", ale ted kde to zapisu ?
A) Otevru si soubor ???.RTF najdu misto, zapisu, dam RichEdit1.Clear a
pak RichEdit1.Lines.ReadFromFile(...) ... coz je nejhruzostrasnejsi
zpusob jaky me napadl, protoze
B) kdyz to z toho Wodu prenesu do zmineneho prikladu tak to zobrazi
dobre, ale nevim jestli to ma vliv na nejakou property toho RichEditu(v
Lines ani zminka, ve vlastnosti Text toto "#$D#$A'Ahoja+' ) a ted nevim
jaka je souvislost mezi obsahem vlastnosti Text a \plain\f4\fs13\b\up10
a+ ( #$D#$A mi pripada jako odradkovani, ale to nic)
A dale pokud cervene oznaceny text ulozim pomoci Lines --> CodeEditor
tak je index zobrazen spravne, ale jakmile spustim program vse je
zobrazeno jako bezny text.
Tak jsem z toho vseho trochu mimo. Mam seznam ridicich znacek pro
RichEdit dodavany s D2(nevi zda v D3 jsou definovane jeste dalsi), ale
nevim jak to uzivat. Dobry by byl nejaky prikladek, kde napr. zmacknuti
tlacitka1 zapina horni index, tlacitka2 dolni index atd..
Diky vsem za odpovedi a trpelivost.

> -----P�vodn� zpr�va-----
> Od: jk(zv)tzus(tec)cz [SMTP:jk(zv)tzus(tec)cz]
> Odesl�no: 14. prosince 1998 15:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re(2x): RichText
>
> >
> >No jestli se muzu pripojit tak jsem se uz jednou ptal(ale zadna
> >odpoved). Teda znovu : Jak napr. zaridim nastaveni dolniho nebo
> horniho
> >indexu ? Pokud do RichEdit takovy text zkopiruju(napr. z Wordu) vse
> je
> >OK, ale vlastnost nebo metodu, ktera by to umoznovala jsem nenasel.
> >Myslim ze by se to dalo zapsat nejakych ridicich znacek do RTF
> souboru,
> >ale jak ... chtelo by to nejaky priklad.Diky.
> >
>
> Strucny popis formatu RTF je v souboru hcw.hlp, ktery je (mozna ze
> pouze
> byval) soucasti instalace delphi. To co neni v tomto helpu popsane se
> da
> zpravidla rychle zjistit pomoci Wordu a ulozeni ve formatu rtf.
> Strucne - format RTF je prosty text se spoustou formatovacich znacek
> ve
> slozenych zavorkach a konverzi diakritiky do hexa kodu. Pro
> formatovani pak
> staci zapsat spravne znacky na spravna mista.
>
> S pozdravem
> Jan Kadlecek
>
> ******************************************
> * kadlecek(zv)htkpro(tec)cz *
> * HTK Pro s.r.o., www.htkpro(tec)cz *
> * tel : 02-83880361, fax: 02-6896391 *
> * Autorizovany dealer TurboPower *
> ******************************************

Jak ziskat ikony z EXE a DLL

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.12.1998 10:10:52

> Potreboval bych z nekterych stavajicich programu, napr. Explorer.exe
> vycucat nektere ikony, ktere me zajimaji. Resource Workshop nemam.
> Muzete mi poradit, jak na to?

c:\Delphi4\Demos\Resxplor\

Nebo hledat nejaky freeware/shareware program.

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


Zatupce *.lnk

[*] DvorakS(zv)95.gyarab(tec)cz - 15.12.1998 10:32:02

Vi nekdo jak programove vytveret/menit Zastupce?

Jak ziskat ikony z EXE a DLL

[*] Jan Fiala <fiala(zv)infos(tec)cz> - 15.12.1998 10:36:27


>Potreboval bych z nekterych stavajicich programu, napr. Explorer.exe
>vycucat nektere ikony, ktere me zajimaji. Resource Workshop nemam.
>muzete mi poradit, jak na to?


Na poslednim, nebo predposlednim ChipCD v sekci od ctenaru byl maly
programek, ktery dokazal zobrazit a vytahnout obsazene ikony z cehokoliv.
Pokud nemas pristup, muzu ti to najit a poslat.

-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------

Jak ziskat ikony z EXE a DLL

[*] Dusanic Lubos <lubos(zv)iname(tec)com> - 15.12.1998 10:36:49

trosku by som to este rozsiril :)).
ako dostat ikony z icl suboru? podla moznosti naraz vsetky ...


--
lubos dusanic

mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613

Jak ziskat ikony z EXE a DLL

[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 15.12.1998 10:58:29

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

Je na to velmi sikovny program, jmenuje se Microangeloa umi
s ikonama snad uplne vsechno. Jeho 30-ti denni trial verzi
Ti muzu poslat (cca 0,8MB), nebo je i na nekterych ChipCD
a PCWorld.

Dobra.> ----------
> Od: Dusanic Lubos[SMTP:lubos(zv)iname.com]
> Odesl�no: 15. prosince 1998 10:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Jak ziskat ikony z EXE a DLL
>
> trosku by som to este rozsiril :)).
> ako dostat ikony z icl suboru? podla moznosti naraz vsetky ...
>
>

Jak ziskat ikony z EXE a DLL

[*] Dusanic Lubos <lubos(zv)iname(tec)com> - 15.12.1998 11:14:01

Mal� Dobromil wrote:

> Je na to velmi sikovny program, jmenuje se Microangeloa umi
> s ikonama snad uplne vsechno. Jeho 30-ti denni trial verzi
> Ti muzu poslat (cca 0,8MB), nebo je i na nekterych ChipCD
> a PCWorld.

to som si stiahol, ale neumozni mi ulozit vsetky ikony naraz - iba po jednej (((.
--
lubos dusanic

mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613


Jak ziskat ikony z EXE a DLL

[*] Bielik Marian <bielik(zv)basl.sk> - 15.12.1998 11:35:43

var
MyIcon: TIcon;
begin
MyIcon := TIcon. Create;
try
MyIcon.Handle := ExtractIcon(hInstance, 'MYPROG.EXE', 0)
{Do something with the Icon}
finally
MyIcon.Free;
end;
end;

Karel Kral wrote:

> Potreboval bych z nekterych stavajicich programu, napr. Explorer.exe
> vycucat nektere ikony, ktere me zajimaji. Resource Workshop nemam.
> Muzete mi poradit, jak na to?
> --
> _______________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz
> _______________________________________________

Jak ziskat ikony z EXE a DLL a ulozit ..

[*] Bielik Marian <bielik(zv)basl.sk> - 15.12.1998 11:40:03

A ulozit do suboru .....

procedure TForm1.Button1Click(Sender: TObject); var
MyBitMap: TBitMap;
MyIcon: TIcon; begin
MyIcon := TIcon.Create;
try
MyIcon.Handle := ExtractIcon(HInstance, 'MYICON', 0);
MyBitmap := TBitmap.Create;
try
MyBitmap.Height := Application.Icon.Height;
MyBitmap.Width := Application.Icon.Width;
MyBitmap.Canvas.Draw(0, 0, Application.Icon);
MyBitmap.SaveToFile('c:\work\mybitmap.bmp');
finally
MyBitMap.Free;
end
finally
MyIcon.Free;
end;

Karel Kral wrote:

> Potreboval bych z nekterych stavajicich programu, napr. Explorer.exe
> vycucat nektere ikony, ktere me zajimaji. Resource Workshop nemam.
> Muzete mi poradit, jak na to?
> --
> _______________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz
> _______________________________________________

Tuhnuti programu na NT

[*] Jaroslav N�dhera <csh(zv)czn(tec)cz> - 15.12.1998 11:53:33

Mam program napsany v D2. Na Windows NT se rozebehne, ale pri prepnuti do jine aplikace ztuhne. Pry je to tim, ze zacne bezet na pozadi a ze pry nereaguje na zpravy NT. Nevite nekdo co s tim? Na W95/98 bezi bez problemu.

J. Nadhera

CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: csh(zv)czn(tec)cz
WWW: http://users(tec)czn(tec)cz/~csh

Aligned records?

[*] Ing. Jaroslav K�e�ek - 15.12.1998 11:55:03

Odpovidam sam:
Byla to moje hloupost. Po vypnuti "Aligned record Fields" je nutne
modifikovat zdrojovy kod, kde je uvedena definice. Jinak to D4 dany unit
nepreklada.

Jaroslav Krecek


-----P�vodn� zpr�va-----
Od: Ing. Jaroslav K�e�ek <grafex(zv)iol(tec)cz>
Komu: Delphi f�rum <delphi-l(zv)fwd(tec)cz>
Datum: 14. prosince 1998 20:54
P�edm�t: Aligned records?>Mam nadefinovan nize uvedeny typ. Potreboval bych dosahnout toho, ze zaznam
>typu TT_Face_Properties bude mit velikost 38B. Vypnul jsem
>"Project\Options\Compiler\Aligned Record Fields" v D4. Ale presto
>vyhodnoceni souctu velikosti je 38.
> 5*sizeof(TT_UShort) + sizeof(TT_ULong) + 6*sizeof(Pointer) = 38
>A vzhodnoceni velikosti celeho zaznamu je 40
> sizeof(TT_Face_Properties) = 40
>
>Nevite, co stim?
>
>TT_Face_Properties = record
> num_Glyphs : TT_UShort;
> max_Points : TT_UShort;
> max_Contours : TT_UShort;
> num_CharMaps : TT_UShort;
> num_Names : TT_UShort;
> num_Faces : TT_ULong;
> header : PTT_Header;
> horizontal : PTT_Horizontal_Header;
> os2 : PTT_OS2;
> postscript : PTT_Postscript;
> hdmx : PTT_Hdmx;
> vertical : PTT_Vertical_Header;
>end;
>
>
>Dekuji
> Jaroslav Krecek
>
>

Jak ziskat ikony z EXE a DLL

[*] Mal� Dobromil <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 15.12.1998 12:56:13

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

No jo, mas pravdu, myslel jsem, ze to jde, jdou alespon oznacit,
priste se napred presvedcim. Dobra.

> ----------
> Od: Dusanic Lubos[SMTP:lubos(zv)iname.com]
> Odesl�no: 15. prosince 1998 11:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Jak ziskat ikony z EXE a DLL
>
> Mal� Dobromil wrote:
>
> > Je na to velmi sikovny program, jmenuje se Microangeloa umi
> > s ikonama snad uplne vsechno. Jeho 30-ti denni trial verzi
> > Ti muzu poslat (cca 0,8MB), nebo je i na nekterych ChipCD
> > a PCWorld.
>
> to som si stiahol, ale neumozni mi ulozit vsetky ikony naraz - iba po
> jednej (((.
>
>
>
> --
> lubos dusanic
>
> mailto:lubos(zv)iname.com
> http://www.geocities.com/SiliconValley/Haven/7613
>
>
>
>
>

Jak ziskat ikony z EXE a DLL a ulozit ..

[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 15.12.1998 13:07:59

Ahoj,

mam jeste maly doplnujici dotaz: Da se zjistit, kolik ikon je v programu?
Tj. udelat si smycku a na "just one click" dostat ty ikony ven vsechny?

Diky,

Peter Rus ml.


Bielik Marian wrote:

> MyIcon.Handle := ExtractIcon(HInstance, 'MYICON', 0);

Jak ziskat ikony z EXE a DLL

[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 15.12.1998 13:07:39

A co takhle pouzit program z ....\Demos\ResExpor

> -----P�vodn� zpr�va-----
> Od: Dusanic Lubos [SMTP:lubos(zv)iname.com]
> Odesl�no: 15. prosince 1998 10:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Jak ziskat ikony z EXE a DLL
>
> trosku by som to este rozsiril :)).
> ako dostat ikony z icl suboru? podla moznosti naraz vsetky ...
>
>
> --
> lubos dusanic
>
> mailto:lubos(zv)iname.com
> http://www.geocities.com/SiliconValley/Haven/7613


TMemoryStream

[*] hrenovcik(zv)ns.basl.sk - 15.12.1998 14:03:32

Cavte !
Napiste niekto prosim kratke funkcny priklad,kde bude pouzite
TMemoryStream.LoadFromFile a TMemoryStream.ReadBuffer.
Nech robim co robim stale to vyhadzuje chybu.
Diky za ochotu.
Peter


Jak ziskat ikony z EXE a DLL a pocet ikon...

[*] Bielik Marian <bielik(zv)basl.sk> - 15.12.1998 14:07:30

Posledny parameter je index ikony. V helpe pisu , ze ked tam zapises -1 tak
funkcia vrati pocet ikon.


Marian.

Peter Rus wrote:

> Ahoj,
>
> mam jeste maly doplnujici dotaz: Da se zjistit, kolik ikon je v programu?
> Tj. udelat si smycku a na "just one click" dostat ty ikony ven vsechny?
>
> Diky,
>
> Peter Rus ml.
>
> Bielik Marian wrote:
>
> > MyIcon.Handle := ExtractIcon(HInstance, 'MYICON', 0);

Zatupce *.lnk

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.12.1998 15:33:11



>Vi nekdo jak programove vytveret/menit Zastupce?
na http://www.gnomehome.demon.nl/uddf/index.htm najdes priklad reseni

Zdravi
D. Toman

Jak ziskat ikony z EXE a DLL

[*] jiri.binder(zv)pedf.cuni(tec)cz - 15.12.1998 15:43:20

> Potreboval bych z nekterych stavajicich programu, napr. Explorer.exe
> vycucat nektere ikony, ktere me zajimaji. Resource Workshop nemam.

Priklalad jak v Delphi vytahnout ikony a soucasne ukazka drag
and drop z exploreru a jeste par dalsich veci je na na
http://www.djernaes.dk/martin

Jiri Binder

Jak ziskat ikony z EXE a DLL - Copyright

[*] Tomas Baloun <baloun(zv)ikos(tec)cz> - 15.12.1998 15:45:31

A jak je to potom s autorskymi pravy na "vyjmutou ikonu" ???

Tomas Baloun
IKOS Liberec, s.r.o.
Identifikacni systemy

http://www.datamax(tec)cz
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------

TMemoryStream

[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 15.12.1998 16:40:37

Prikladu se da napsat spousta ale je treba vedet co po tom chces. Lepsi
by bylo, kdybys napsal ten tvuj priklad s chybou a nekdo ho tady opravi.

S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz


> -----P�vodn� zpr�va-----
> Od: hrenovcik(zv)ns.basl.sk [SMTP:hrenovcik(zv)ns.basl.sk]
> Odesl�no: 15. Dezember 1998 14:04
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TMemoryStream
>
> Cavte !
> Napiste niekto prosim kratke funkcny priklad,kde bude pouzite
> TMemoryStream.LoadFromFile a TMemoryStream.ReadBuffer.
> Nech robim co robim stale to vyhadzuje chybu.
> Diky za ochotu.
> Peter


memo.sort ?

[*] sup(zv)svitap(tec)cz - 15.12.1998 17:55:08

Hi lidi, nevite nekdo cirou nahodou jak v Delphi2:

1. setridit radky v memo polozce?
2. dostat do souboru kus registru vcetne podrizenych vetvi? Konkretne
current_user/software. {Za rady typu regedit.exe>registr>export dekuji
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


Install shield

[*] Ivan Tarapcik <taro(zv)asset.sk> - 15.12.1998 18:01:42

jedine riesenie na ktore som v D3 prisiel je pouzivat full-bde instalaciu

Taro

Honza Fiala wrote:

> Zdravim,
> tedka jsem prochazel archiv a narazil jsem na jeden problem, ktery se tu
> uz resil, ale nevim jak to skoncilo. Jedna se o partial BDE instalaci. Na D4
> prof. to rve na chybu, ze nemuze najit DATAPUMP. Kdyz tento soubor odstranim
> z instalace, tak to udela na jinych to same. Po odstraneni vsech takovych
> souboru instalace probehne, ale u klienta se nenainstaluje BDE.
> Pokud nekdo vite jak zalozit STANDARD databazi u klienta, tak mi prosim
> poradte.
>
> Dik Hoza Fiala

--
Ivan Tarapcik; http://chelin.chtf.stuba.sk/~taro
PRIVATE!: taro(zv)pobox.sk; 0905 643 769
WORK!: taro(zv)asset.sk; 07 5421 063 (064,215), kl. 141
-
Linux is like a wigwam - no windows, no gates, apache inside!

Dial up p�ipojen�

[*] Ekosoft(zv)tnet(tec)cz (Eko Soft) - 15.12.1998 18:12:30

Omlouvam se ze rusim vase kruhy,

nevite nekdo jak vytocit dial up spojeni. Predstavoval bych si to, jako ze
si vyberu jedo z a ono spusti standartni win dialog pro pripojeni.

Baudys
baudys(zv)seznam(tec)cz

Aligned records?

[*] Lubo Fule <fule(zv)sct.sk> - 15.12.1998 18:31:55

Ked pri definicii recordu pouzijes "packed record", tak to bude mat 38B bez
ohladu na to ako je nastaveny "Aligned record Fields".

> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ing. Jaroslav K�e�ek
> Sent: Tuesday, December 15, 1998 11:55 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Aligned records?
>
> Odpovidam sam:
> Byla to moje hloupost. Po vypnuti "Aligned record Fields" je nutne
> modifikovat zdrojovy kod, kde je uvedena definice. Jinak to D4 dany unit
> nepreklada.
>
> Jaroslav Krecek
>
>
> -----P�vodn� zpr�va-----
> Od: Ing. Jaroslav K�e�ek <grafex(zv)iol(tec)cz>
> Komu: Delphi f�rum <delphi-l(zv)fwd(tec)cz>
> Datum: 14. prosince 1998 20:54
> P�edm�t: Aligned records?
>
> >Mam nadefinovan nize uvedeny typ. Potreboval bych dosahnout
> toho, ze zaznam
> >typu TT_Face_Properties bude mit velikost 38B. Vypnul jsem
> >"Project\Options\Compiler\Aligned Record Fields" v D4. Ale presto
> >vyhodnoceni souctu velikosti je 38.
> > 5*sizeof(TT_UShort) + sizeof(TT_ULong) +
> 6*sizeof(Pointer) = 38
> >A vzhodnoceni velikosti celeho zaznamu je 40
> > sizeof(TT_Face_Properties) = 40
> >
> >Nevite, co stim?
> >
> >TT_Face_Properties = record
> > num_Glyphs : TT_UShort;
> > max_Points : TT_UShort;
> > max_Contours : TT_UShort;
> > num_CharMaps : TT_UShort;
> > num_Names : TT_UShort;
> > num_Faces : TT_ULong;
> > header : PTT_Header;
> > horizontal : PTT_Horizontal_Header;
> > os2 : PTT_OS2;
> > postscript : PTT_Postscript;
> > hdmx : PTT_Hdmx;
> > vertical : PTT_Vertical_Header;
> >end;
> >
> >
> >Dekuji
> > Jaroslav Krecek
> >
> >
>
>

memo.sort ?

[*] boro(zv)gratex.sk - 15.12.1998 19:13:02

Ahoj

Neviem, ci to beha aj pod D2, ale hadam hej
Nerucim za rychlost:


procedure TForm1.Button1Click(Sender: TObject);
var
Sl: TStringList;

begin
Sl:=TStringList.Create;
Sl.AddStrings(Memo1.Lines);
Sl.Sort;
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(Sl);
end;

Boris Becvarov
mailto:boro(zv)gratex.sk


-----Original Message-----
Hi lidi, nevite nekdo cirou nahodou jak v Delphi2:

1. setridit radky v memo polozce?

Jak ziskat ikony z EXE a DLL a ulozit ..

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.12.1998 19:31:41

Peter Rus wrote:
>
> Ahoj,
>
> mam jeste maly doplnujici dotaz: Da se zjistit, kolik ikon je v programu?
> Tj. udelat si smycku a na "just one click" dostat ty ikony ven vsechny?

Ahoj,

Muzes pouzit API funkci ExtractIconEx, priklad najdes tady:

http://www.inprise.com/devsupport/delphi/qanda/FAQ1778D.html

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************

Indikator klavesnice

[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.12.1998 19:31:48

Petr Brant wrote:
>
> Ahoj vsem,
>
> potreboval bych v okne aplikace indikovat zmenu v prepnuti klavesnice
> podobne jako je to v TaskBaru. Nevite nekdo, jak to provest ?

Ahoj,

slo by to udelat takhle. Bohuzel se mi nepodarilo najit zadnou zpravu
kterou by slo pouzit jako indikaci stavu prepnuti rozlozeni klavesnice.
Takze jsem pouzil nakonec timer, nastav si ho tak na 100..300 ms. Take
by to slo udelat jako thread.

procedure TForm1.UpdateKeybIndicator;
var
LangStr: array[0..2] of Char;
begin
GetLocaleInfo(LOWORD(GetKeyboardLayout(0)), LOCALE_SENGLANGUAGE, LangStr, 2);
Label1.Caption := LangStr;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
UpdateKeybIndicator;
end;

--

Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************

MS Word a Delphi

[*] Jaroslav Posp�il - 15.12.1998 20:12:40

Potreboval bych poradit. Pouzivam misto QR v Delphi pro tvorbu a vystup
statickych sestav i dynamickych databazovych sestav MS Word 8 - z MS Office 97. Stale se mi nedari vyvolat spravne Preview pred tiskem, stejne jako v MS Wordu. Pokud pouziji prikazy FilePrintPreview prikaz vubec nefunguje. Pritom prikaz FilePrintPreviewFullScreen pracuje korektne. Samozrejme, ze vsechny tyto funkce volam z programu v Delphi. Pritom veskera vymena dat i prace se soubory MS Wordu pracuje pres Delphi korektne. Pokousel jsem se i pres ToolsOptionsView nastavit spravnou konfiguraci MS Wordu, ale vysledek byl velmi ubohy. Po primem spusteni MS Wordu by jeden nepoznal, ze to jeste je Word.

V soucasnosti pouzivam vlastni zobrazovac, ale ten samozrejme nema takove moznosti jako prime pouziti nastroju Wordu.

Predpokladam, ze problem bude mezi spravdnou interpretaci Word Basicu a Visual Basicu v MS Office97.


Dekuji za kazdou radu.
Jarda Pospisil od JAPOSU
pospisil(zv)japos(tec)cz

DbGrid - aktualni sloupec

[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 15.12.1998 22:04:04

Pro standardni TDBgrid a double-click lze pouzit vlastnost SelectedField typu TField (ktera vlastne urcuje sloupec).

Na pr. takto

procedure Tform1.DBGrid1DblClick(Sender: TObject);
begin
if DBGrid1.SelectedField.FieldName='xxxx' then
begin
{akce podle fieldu}
end;
end;

Zdravi
* Petr Ma��k *
* RT electronic *
* rtepema(zv)mbox.vol(tec)cz *
* tel. -02-20510562 *

-----P�vodn� zpr�va-----
Od: jdanek(zv)fnbrno(tec)cz <jdanek(zv)fnbrno(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 14. prosince 1998 15:14
P�edm�t: DbGrid - aktualni sloupec


>
>Ahoj,
>
> vi nekdo, prosim, jak se zjisti, nad kterym sloupcem DBGridu je prave
>kurzor mysi?
>Chci podle toho, kde se kurzor nachazi vyvolat pro kazdy sloucec na
>DblClick
>jinou akci.
> Diky zdravi
> Josef Danek
> jdanek(zv)fnbrno(tec)cz
>
>
>

Active Server Pages a Delphi

[*] Lubos Jerabek <lubos(zv)mediadir(tec)cz> - 15.12.1998 22:32:44

Nejakou dobu se snazim ve 4kovem delphi napsat asp componentu, a nejak se mi
nedari. Zabejval se tim tady jiz nekdo ? Na internetu o tomto tematu ani
zminka.

Lubos Jerabek


distribuce Exploreru

[*] Antonin Blatny <trest(zv)cesnet(tec)cz> - 15.12.1998 22:33:12

Diky za odpoved.

>Ale nezapomen, ze je celkem mnoho uzivatelu pouzivajicich Netscape
>Navigator/Communicator. Nebo Mosaic... Hlidat jenom IE se nevyplaci,
>protoze pokud ho budes uzivateli cpat, muze se to setkat i se znacnou
>nevoli.


Toho si vedom jsem a samozrejme je nejlepe vyzkouset nejdrive program, ktery
je asociovan s .html.
Muj hlavni problem je ale s uzivateli, kteri vubec nemaji zadny prohlizec.
Nechci jim nic instalovat na disk, ale chci u nich primo z CD spustit IE
(ktery je free) a zobrazit svoje stranky. Jde mi o to, jak to na CD zaridit.

>Mimochodem, co ti brani se uzivatele zeptat? "Chcete nainstalovat IE4
>SP1?" ... a je to.

to je hezke v pripade, ze ho uzivatel chce. Ale znam nektere nase zakazniky,
kteri si ho proste nainstalovat nechteji a maji i k nemu (a treba i k
Internetu) odpor. A ja jim presto chci svoje stranky zobrazit a nemenit
jejich system. Furt si myslim, ze ten prohlizec prece musi jit nejak spustit
pouze s CD, nebo ne? Je fakt, ze CHIPovske CD taky nuti explorer
nainstalovat

Tonda

Mgr. Anton�n Blatn�
blatny(zv)atlas(tec)cz


Active Server Pages a Delphi

[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.12.1998 22:54:55

> Nejakou dobu se snazim ve 4kovem delphi napsat asp componentu, a nejak se mi
> nedari. Zabejval se tim tady jiz nekdo ? Na internetu o tomto tematu ani
> zminka.

Ja se tim zabyvam - co ti konkretne nejde? Musis v zalozce ActiveX
vytvorit nejprve ActiveX Library a pak do ni dat jeden nebo vice
Automation Objectu. No a pak uz si jen definujes metody...

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


SQL Dotaz

[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 16.12.1998 06:49:06

Dobry den,

mam dve pdox5 tabulky s primarnimi klici na prvni dve pole (Sml, Od),
(Pol, Dal), D3, BDE4.51. SQL dotaz vypada takto:

SELECT DISTINCT d1.Pol, d1.Dal, d1.Ico, d1.Firma, d1.Ulice, d1.Psc
FROM "Tabulka1" d, "Tabulka2" d1
WHERE
(d.Sml = '10')
AND (d.Od = '0')
AND (d1.Pol = d.Pol)
AND (d1.Dal = d.Dal)
ORDER BY d1.Pol, d1.Dal

Probl�m nastava, kdyz pole Dal je nevyplneno, nic nevybere. Kdyz zmenim
hodnoty blank pole Dal v obou tabulkach na 0, pak dotaz probehne
korektne. Stejny dotaz provadim v D1, BDE2.52 a tam to funguje.
Nevite v cem je problem?

S pozdravem

Petr Riedel
mailto:petr.riedel(zv)ipbpojistovna(tec)cz


Kl�vesnice

[*] Chmelar, Ladislav <chmelar(zv)dcb(tec)cz> - 16.12.1998 07:04:29

Ahoj

Uz jsem se na to jednou ptal, ale nikdo mi neodpovedel. Takze 2. pokus:

Nevite jak se da nejen zjistit ale i zmenit klavesnice (jazyk kl�vesnice)
napr. z US na CZ.
Resp. natvrdo nastavit jednu z nich?

dik moc

Jak ziskat ikony z EXE a DLL a ulozit ..

[*] V�t�zslav Gazda������u��n�?��? - 16.12.1998 07:39:52

>mam jeste maly doplnujici dotaz: Da se zjistit, kolik ikon je v
>programu?
>Tj. udelat si smycku a na "just one click" dostat ty ikony ven vsechny?

Pouzij API funkci EnumResourceNames.

Vita


distribuce Exploreru

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 16.12.1998 08:15:29

No ja sem nekde na CD, tusim do bylo MSDN CD videt distribuovatelnou
verzi MSIE 4.1 pro spusteni primo z CD. Problem je v tom, ze v tomto
pripade jaxi nebude fungovat OLE Automation.

Ondrej Krajicek

Antonin Blatny wrote:
>
> Diky za odpoved.
>
> >Ale nezapomen, ze je celkem mnoho uzivatelu pouzivajicich Netscape
> >Navigator/Communicator. Nebo Mosaic... Hlidat jenom IE se nevyplaci,
> >protoze pokud ho budes uzivateli cpat, muze se to setkat i se znacnou
> >nevoli.
>
> Toho si vedom jsem a samozrejme je nejlepe vyzkouset nejdrive program, ktery
> je asociovan s .html.
> Muj hlavni problem je ale s uzivateli, kteri vubec nemaji zadny prohlizec.
> Nechci jim nic instalovat na disk, ale chci u nich primo z CD spustit IE
> (ktery je free) a zobrazit svoje stranky. Jde mi o to, jak to na CD zaridit.
>
> >Mimochodem, co ti brani se uzivatele zeptat? "Chcete nainstalovat IE4
> >SP1?" ... a je to.
>
> to je hezke v pripade, ze ho uzivatel chce. Ale znam nektere nase zakazniky,
> kteri si ho proste nainstalovat nechteji a maji i k nemu (a treba i k
> Internetu) odpor. A ja jim presto chci svoje stranky zobrazit a nemenit
> jejich system. Furt si myslim, ze ten prohlizec prece musi jit nejak spustit
> pouze s CD, nebo ne? Je fakt, ze CHIPovske CD taky nuti explorer
> nainstalovat
>
> Tonda
>
> Mgr. Anton�n Blatn�
> blatny(zv)atlas(tec)cz


Jak to ten CHIP dela

[*] Filip Jirsak <JIRSAK(zv)gymnacel(tec)cz> - 16.12.1998 08:15:23

Ja si vzdy myslel, ze je to Java ci JavaScript. Ono neni?
Filip Jirsak


> mate nekdo nejaky napad jak to zaridit tak, jak to maji na
> Chip CD ? Tedy napsat nejakou aplikaci, ktera by v podstate
> odchytavala kliky v MSIE a sama generovala obsah, tedy
> castecne simulovat WEB server ?
>
> Ondrej Krajicek
> *************************************************
Filip Jirsak
e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
e-mail: Jirsak(zv)mujmail(tec)cz
autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz


Jak to ten CHIP dela

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 16.12.1998 08:18:14

Ahoj,

mate nekdo nejaky napad jak to zaridit tak, jak to maji na
Chip CD ? Tedy napsat nejakou aplikaci, ktera by v podstate
odchytavala kliky v MSIE a sama generovala obsah, tedy
castecne simulovat WEB server ?

Ja vim ze by to slo prostrednictvim TCP/IP se proste
povesit na port 80 a jako server pouzit localhost, ale
tohle bude konfliktni s jakymkoliv WWW serverem,
ktery na pocitaci pobezi. Slo by to samozrejme i pres
jiny port, ale musi existovat i jednodussi reseni.

Ondrej Krajicek


Aligned records?

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.12.1998 08:35:50



>Odpovidam sam:
> Byla to moje hloupost. Po vypnuti "Aligned record Fields" je nutne
>modifikovat zdrojovy kod, kde je uvedena definice. Jinak to D4 dany unit
>nepreklada.


mimo jine i proto ja nespoleham na nastaveni Options/Compiler atd., ale
vytvarim soubor se vsemi definicemi
direktiv pro kompilator, podmineny preklad, definice pameti... Tento soubor
pak vkladam jako {$I define.inc} jako prvni radek kazdeho souboru *.pas.
Pak staci jakakoliv zmena v souboru define.inc k tomu, ze se vzdy zkompiluje
uplne vsechno (a nemusim davat Build All). Navic pri prenosu projektu na
jiny pocitac mam zajisteno, ze vse pojede se stejnymi direktivami.


Zdravi
D. Toman

Ovalne tlacitko

[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 16.12.1998 08:37:21

Hi,

mam maly dotaz. Lze nejakym zpusobem vytvaret v Delphi napr. ovalne buttony
jake jsou zname treba z webovych stranek a pokud ano, jak ?

Diky

Vasek



V�clav Lukes

E-mail: Vaclav.Lukes(zv)pvt(tec)cz <mailto:Vaclav.Lukes(zv)pvt(tec)cz> ��
511247(zv)sms.paegas(tec)cz <mailto:511247(zv)sms.paegas(tec)cz>
Tel.: 0603-511247

Jak ziskat ikony z EXE a DLL a ulozit ..

[*] GRAAS Jan, Mgr. <Jan.GRAAS(zv)otr.br.ds.mfcr(tec)cz> - 16.12.1998 09:05:28

Icon Viewer - aplikace, ktera prohleda vsechny disky a v list view
zobrazi vsechny nalezene ikony. Uzivatel je potom muze ulozit jako ikony
nebo bitmapy.
Jedna se o freeware - autor Glen Why. K dipozici je zdrojovy kod.
Velikost 151 Kb - kdo ma zajem mohu poslat.

>=======================
>Jan Graas, Otrokovice, CR
=======================
>V korespondenci se mnou muzete vyuzit software
podporujici MIME ISO-8859-2 a psat vse v cestine
>
>
>

Ovalne tlacitko

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.12.1998 09:18:09

Ahoj,
existuji komponenty pro ovalne, kulate nebo trojuhelnikove buttony.
Zkus na www.torry.ru, je jich tam docela sbirka.

Jaro B.

> -----P�vodn� zpr�va-----
> Od: Lukes V�clav [SMTP:Vaclav.Lukes(zv)pvt(tec)cz]
> Odesl�no: 16. prosince 1998 8:37
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Ovalne tlacitko
>
> Hi,
> �
> mam maly dotaz. Lze nejakym zpusobem vytvaret v Delphi napr. ovalne
> buttony
> jake jsou zname treba z webovych stranek a pokud ano, jak ?
> �
> Diky
> �
> Vasek
> �
> �
> �
> V�clav Lukes
> �
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz <mailto:Vaclav.Lukes(zv)pvt(tec)cz> ��
> 511247(zv)sms.paegas(tec)cz <mailto:511247(zv)sms.paegas(tec)cz>
> Tel.: 0603-511247
> �

Table is full 2.x, HELP!!!

[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 16.12.1998 09:53:43

Kdo vi, prosim, at pomuze!

Uz jsem se na to minuly tyden ptal, ale odpovedi nepomohlu, tak se
ptam jeste jednou.
Mam tabulku Paradoxu 5, asi 15 polozek, velikost vety 118B, asi
110000 vet, asi 16 MB velikost tabulky, 7 sekundarnich indexu. Chtel
bych pridat jednu polozku typu retezec o 6 znacich. Pri
restrukturalizaci v DBDesktop (16bitovy, BDE 2.51) nebo v Paradoxu
(verze 8, 32 bitovy, BDE 4.51) to vyhazuje chybu Table is full. Delal
jsem to na lokalnim pocitaci odpojenem od site, kontroloval jsem
vsechny omezeni na BDE a Paradox (podle jednoho TI od Inprise),
vsechno v poradku, na disku mista spousta (asi 800 MB).
Rada zvetsit BlockSize tabulky nepomaha. V tabulce je dulezita
polozka typu Autoinkrement, takze nemohu ani udelat novou tabulku a
potom prevest data - zmenu z LongInt na Autoinkrement mi Paradox
nepovoli.

Prosim, prosim, poradte nekdo, nebo poradte nejakou utilitu, ktera by
to dokazala restrukturalizovat - Table repair v paradoxu nepomaha.

Diky za vsechny rady.

S pozdravem

J. Nagy
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz

distribuce Exploreru

[*] Administrator <Administrator(zv)rosoft.sk> - 16.12.1998 10:04:30



> to je hezke v pripade, ze ho uzivatel chce. Ale znam nektere nase
> zakazniky,
> kteri si ho proste nainstalovat nechteji a maji i k nemu (a treba i k
> Internetu) odpor. A ja jim presto chci svoje stranky zobrazit a
> nemenit
> jejich system. Furt si myslim, ze ten prohlizec prece musi jit nejak
> spustit
> pouze s CD, nebo ne? Je fakt, ze CHIPovske CD taky nuti explorer
> nainstalovat
>
> Tonda
>
> Mgr. Anton�n Blatn�
> blatny(zv)atlas(tec)cz
>
>
[Administrator] A Co tak pouzit napr. komponentu www.pbear.com
a urobit
si vlastny offline HTML browser ?

Dial up p�ipojen�

[*] OLEJNIK Andrej <olej(zv)asset.sk> - 16.12.1998 10:08:37

pozri
http://members.xoom.com/aberka

olej

> -----Original Message-----
> From: Ekosoft(zv)tnet(tec)cz [SMTP:Ekosoft(zv)tnet(tec)cz]
> Sent: Tuesday, December 15, 1998 6:13 PM
> To: Delphi konference
> Subject: Dial up p�ipojen�
>
> Omlouvam se ze rusim vase kruhy,
>
> nevite nekdo jak vytocit dial up spojeni. Predstavoval bych si to, jako ze
> si vyberu jedo z a ono spusti standartni win dialog pro pripojeni.
>
> Baudys
> baudys(zv)seznam(tec)cz
>

Show/Hide na TaskBaru

[*] Administrator <Administrator(zv)rosoft.sk> - 16.12.1998 10:09:57

Viem ze to tu uz bolo niekde rozoberane, ale predsa:

Spustim zo 16bit(DOS) aplikacie 32bit.
Tato 32bit aplikacia sendne WM_HIDE, alebo ako 16bitovej, tak aby sa
schovala z taskbaru.
Uzivatel ukonci 32bitovu aplikaciu, a ta odovzda riadenie 16bitovej,
pricom ju aj show na
taskbare.
Ke to mozne spravit?
Ak mate niekto cas a chut prosim aj o kusok zdrojaku.


Patrik Tesar
ROSOFT


Dial up p�ipojen�

[*] BlackWare <blakware(zv)ulnet(tec)cz> - 16.12.1998 10:22:08

mnel bych na to komponentu do D3



-----P�vodn� zpr�va-----
Od: Eko Soft <Ekosoft(zv)tnet(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 16. prosince 1998 10:51
P�edm�t: Dial up p�ipojen�


>Omlouvam se ze rusim vase kruhy,
>
>nevite nekdo jak vytocit dial up spojeni. Predstavoval bych si to, jako ze
>si vyberu jedo z a ono spusti standartni win dialog pro pripojeni.
>
>Baudys
>baudys(zv)seznam(tec)cz
>
>

Dial up p�ipojen�

[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 16.12.1998 10:29:20

Pokud by ti nevadilo pouzit ActiveX kontrol, tak na www.winfiles.com v
sekci Visual Basic Controls je RAS kontrol (nevim presne jak se
jmenuje, ale to RAS v tom jmene je). Ten by ti mel pomoct.

ES> Omlouvam se ze rusim vase kruhy,

ES> nevite nekdo jak vytocit dial up spojeni. Predstavoval bych si to, jako ze
ES> si vyberu jedo z a ono spusti standartni win dialog pro pripojeni.

ES> Baudys
ES> baudys(zv)seznam(tec)cz

Spusteni NT Services

[*] pcuhel(zv)deltax(tec)cz - 16.12.1998 10:35:05

Dekuji za vsechny prinosne odpovedi k tematu.

PC

SQL Dotaz

[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 16.12.1998 10:53:49

RP> Dobry den,

RP> mam dve pdox5 tabulky s primarnimi klici na prvni dve pole (Sml, Od),
RP> (Pol, Dal), D3, BDE4.51. SQL dotaz vypada takto:

RP> SELECT DISTINCT d1.Pol, d1.Dal, d1.Ico, d1.Firma, d1.Ulice, d1.Psc
RP> FROM "Tabulka1" d, "Tabulka2" d1
RP> WHERE
RP> (d.Sml = '10')
RP> AND (d.Od = '0')
RP> AND (d1.Pol = d.Pol)
RP> AND (d1.Dal = d.Dal)
RP> ORDER BY d1.Pol, d1.Dal

RP> Probl�m nastava, kdyz pole Dal je nevyplneno, nic nevybere. Kdyz zmenim
RP> hodnoty blank pole Dal v obou tabulkach na 0, pak dotaz probehne
RP> korektne. Stejny dotaz provadim v D1, BDE2.52 a tam to funguje.
RP> Nevite v cem je problem?

Podle mne problem je v tom, jakym zpusobem se vyhodnocuje NULL. Nevim
zda to BDE co pouzivas, nejakym zpusobem nemeni NULL na 0. Ale chyba
jepodle mne tady!

Best regards,
Michal Neuwirth mailto:mneu3246(zv)ss1000.ms.mff.cuni(tec)cz

Dial up p�ipojen�

[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.12.1998 10:57:39



>Omlouvam se ze rusim vase kruhy,
>
>nevite nekdo jak vytocit dial up spojeni. Predstavoval bych si to, jako ze
>si vyberu jedo z a ono spusti standartni win dialog pro pripojeni.


podivej se na help k rasdial()

Zdravi
D. Toman

Hlasovanie pre Delphi pod Linuxom

[*] milank(zv)gratex.sk - 16.12.1998 11:11:58

http://www.linuxresources.com/wish/

hlasovali ste u� ? ....

Table full,RE

[*] tomas.mazurek(zv)vitkovice(tec)cz - 16.12.1998 11:34:11

Hello,

ja jsem psal minuly tyden o te finte s prevodem do nove tabulky s
longint, pridanim dat a restr. na autoinc. Mne to normalne jde...
Muzes mi napsat, co Ti BDE vraci za chybu pri pokusu o zmenu na
autoinc? Je fakt, ze ja jsem to zkousel na male tabulce...

Jinak nevim, co by pomohlo.

Snad jeste vytvoreni nove tabulky s longint a pak prepis hlavicky
tabulky - slo by o dve mista - tam, kde je ulozen typ polozky a
cislo pouziteho autoinc. O popisu hlavicky paradoxu by vedel lepe
rict napr. Martin Nedopil...

Hodne stesti...

NMFTP & set attributes

[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 16.12.1998 11:37:56

Zdravicko...

Muzu te poprosit o nejaky priklad nebo alespon o URL, kde nejaky priklad
lezi? U microsoftu jsem se toho moc nedozvedel.

Dekuji, F.

> -----P�vodn� zpr�va-----
> Od: Ondrej Krajicek [SMTP:krajicek(zv)promedia(tec)cz]
> Odesl�no: pond�l�, prosince 14, 1998 16:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: NMFTP & set attributes
>
> Pokud muzu doporucit, v tomto ohledu bych se vykaslal na komponenty a
> pouzil primo WinInet API, me osobne to pripada ponekud
> transparentnejsi a navic dost jednoduche na to, aby se to dalo pouzit
> i bez zapouzdrujicich komponent.
>
> Ondrej Krajicek
>
> -----P�vodn� zpr�va-----
> >Nevite nekdo, jak pomoci NMFTP z Delphi 4 zmenit attributy souboru?
> >Pokud to nejde, neexistuje lepsi komponenta pro pristup na FTP, ktera
> >dokaze zmenit attributy vzdaleneho souboru?
>

Zatupce *.lnk

[*] Ondrej Valentik (MYRA) <valeon(zv)svatava.guh(tec)cz> - 16.12.1998 11:40:20



On Tue, 15 Dec 1998, Dalibor Toman wrote:

>
>
> >Vi nekdo jak programove vytveret/menit Zastupce?
> na http://www.gnomehome.demon.nl/uddf/index.htm najdes priklad reseni
>
> Zdravi
> D. Toman
>
>
>
V Delphi kuchyni je na to komponenta ShellLink. Stahni si ji, je celkem
dobra.

Myra.

Kl�vesnice

[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 16.12.1998 11:41:02

>Nevite jak se da nejen zjistit ale i zmenit klavesnice (jazyk kl�vesnice)
>napr. z US na CZ.
>Resp. natvrdo nastavit jednu z nich?

type
TKeyboardMenu=class(TPopupMenu)
private
procedure DoMenuClick(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
procedure RaiseMenu(x,y: integer);
end;

var
KbdMenu: TKeyboardMenu;

constructor TKeyboardMenu.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
AutoPopup:=FALSE;
end;{Create}

procedure TKeyboardMenu.RaiseMenu(x,y: integer);
var i,Count: integer;
H,CurrentH: HKL;
HKLArray: array [0..19] of HKL;
sH,sHSubst,sLayout,sLang: string;
Registry: TRegistry;
mi: TMenuItem;
begin
//zrusit vsechny polozky
with Items do
while Count>0 do begin
mi:=Items[0];
Delete(0);
mi.Free;
end;
//vytvorit nove polozky podle soucasneho stavu
CurrentH:=GetKeyboardLayout(0);
Registry:=TRegistry.Create;
try
Count:=GetKeyboardLayoutList(Sizeof(HKLArray),HKLArray);
for i:=0 to Count-1 do begin
H:=HKLArray[i];
sH:=IntToHex(H AND $FFFF, 8);
with Registry do begin
//zjisti pojmenovani rozlozeni klavesnice v systemovych registrech
//nejprve osetri mozne substituce, napr. 'ceska' -> 'ceska (qwerty)'
sHSubst:=sH;
RootKey:=HKEY_CURRENT_USER;
if OpenKey('keyboard layout\substitutes\'+sHSubst,FALSE) then
if ValueExists('') then
sHSubst:=ReadString('');
CloseKey;
//a ted pojmenovani rozlozeni
sLayout:=sHSubst;
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('System\CurrentControlSet\control\keyboard
layouts\'+sHSubst,FALSE) then
if ValueExists('layout text') then
sLayout:=ReadString('layout text');
CloseKey;
//a ted nazev jazyka, napr. 'cesky', 'anglicky (USA)'
sLang:='';
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('System\CurrentControlSet\control\Nls\Locale',FALSE) then
if ValueExists(sH) then
sLang:=ReadString(sH);
CloseKey;
end;
//vytvorit polozku popup menu
mi:=TMenuItem.Create(Self);
with mi do begin
Caption:='&'+IntToStr(i+1)+' ';
if sLang<>'' then
Caption:=Caption+sLang
else
Caption:=Caption+sLayout;
OnClick:=DoMenuClick;
Tag:=H;
Checked:=Word(Tag)=CurrentH;
end;
Items.Add(mi);
end;
finally
Registry.Free;
end;
KbdMenu.Popup(X,Y);
end;{RaiseMenu}

procedure TKeyboardMenu.DoMenuClick(Sender: TObject);
var s: string;
h: HKL;
begin
with Sender as TMenuItem do
if(Tag<>0)and(Word(Tag)<>GetKeyboardLayout(0))then begin
s:=IntToHex(Tag AND $FFFF, 8);
h:=LoadKeyboardLayout(PChar(s),KLF_ACTIVATE+KLF_SUBSTITUTE_OK);
Assert(h<>Word(Tag),'Rozlo�en� kl�vesnice nebylo nastaveno');
end;
end;{DoMenuClick}//RaiseKbdMenu
// inicializuje popup menu s nabidkou rozlozeni klavesnic
// menu se objevi na pozici APoint - screen relative
//
procedure RaiseKbdMenu(const APoint: TPoint);
begin
Assert(Assigned(KbdMenu),'Menu neexistuje, check initialization section');
KbdMenu.RaiseMenu(APoint.X,APoint.Y);
end;{RaiseKbdMenu}
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz

Table is full 2.x, HELP!!!

[*] pcuhel(zv)deltax(tec)cz - 16.12.1998 11:48:52

Cau,
nedavno jsem potreboval neco podobneho u Accesove databaze.
Vytvoril jsem novou tabulku, vlozil novy radek a pokud cislo v
autoincrementovem poli neodpovidalo puvodnimu cislu tak jsem jej
smazal. V nepriznivem stavu to muze trvat dele ale neprisel jsem
na lepsi zpusob.

>> Jiri Nagy ------------------------------------------------------
>Rada zvetsit BlockSize tabulky nepomaha. V tabulce je dulezita
>polozka typu Autoinkrement, takze nemohu ani udelat novou tabulku a
>potom prevest data - zmenu z LongInt na Autoinkrement mi Paradox
>nepovoli.

presun mnoha dat v SQL

[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 16.12.1998 12:25:47

Ahojky pratele (a pritelky)
Mam dosti tabulek v FAND-u (z DELPHI tam pristupuji pomoci FAND ODBC) a
stejnou strukturu zalozenou na ORACLE (pristupuji pomoci DOA)

Blahove jsem se domnival, ze pro prekopirovani dat z FAND-u na ORACLE staci
pouzit TBatchMove napojene na TQuery z FANDU a TOracleDataset a pouze va
smycce v nich menit selecty az takto prekopiruji vsechny tabulky.

Bohuzel jako zdroj se mi vede umistit TQuery z FAND-u, ale jako cil jen a
pouze TTable, kterouzto zase neumim napojit na Oracle.
Lze to obejit jeste nejak jinak elegantne?

P.S: Tech tabulek je radove kolem 50-ti, takze se mi nechce psat kopirovani
na kazdou zvlast.

Dekuji

===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============

Instalace komponenty v D3

[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 16.12.1998 12:35:39

Ahoj,
Prosim o radu. Potrebuji nainstalovat nekolik komponentu, ktere maji
spolecny registracni unit. Po kompilaci mi kazdy z nich zahlasi: "Warning:
(0): Unit 'xxx' implicitily imported into package 'dclusr30'" a pak zahlasi
ze se vse nainstalovalo. Ovsem komponenty nejsou na liste a chci-li je
pouzit, tak je nezna, ac je dclusr30 instalovan v packages a je i v adreasri
\lib a windows\system {tam jsem jej pro jistotu nakopiroval}. Kde delam
chybu?

Diky za kazkou radu

Jaro B.

Table full,RE

[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 16.12.1998 12:43:37

DB Desktop i Paradox 8 mi vypisuji hlaseni:

Field Pomocna: existing field type cannot be converted to requested
type.

Programove jsem to nezkousel. Sice na tomto probemu stojim na 80
procent, ale i tech 20 mi zabira vice casu na programovani jako mam,
proto se mi do toho nechce.
Jinak zkousel jsem omezit tabulku na 1000 zaznamu, stejne bylo Table
full.

Ad. odpoved s Accessem:
Bohuzel si nemohu dovolit mit tuto tabulku v nestabilnim stavu, na ni
se totiz odkazuji z dalsich xx tabulek. Proto se mi taky nechce do
vytvoreni noveho souboru, preneseni dat veta po vete a upravit
ostatni tabulky na spravne odkazy. To bych programoval asi dva tydny,
uz nerikam, jak dlouho by to zastavilo praci v cele firme.

P.S. Ja vim, ze situace je davno zrala na SQL Server. Uz cekam na
Oracla. Kdybyste nevedeli Novell za 15$ (patnact) nabizi
5-uzivatelsky Oracle 8 vsem, kdo vlastni NW4.11 nebo Inetware.
Objednaci formular je nekde na jejich americkem Webu. Akorat si
davaji dosti nacas s poslanim.

Jirka Nagy

> -----P�vodn� zpr�va-----
> Od: tomas.mazurek(zv)vitkovice(tec)cz [SMTP:tomas.mazurek(zv)vitkovice(tec)cz]
> P�edm�t: Table full,RE
>
> Hello,
>
> ja jsem psal minuly tyden o te finte s prevodem do nove tabulky s
> longint, pridanim dat a restr. na autoinc. Mne to normalne jde...
> Muzes mi napsat, co Ti BDE vraci za chybu pri pokusu o zmenu na
> autoinc? Je fakt, ze ja jsem to zkousel na male tabulce...

Debug error

[*] sup(zv)svitap(tec)cz - 16.12.1998 12:51:16

Nasledujici ukazka kodu pada:
1. v delphi2 IDE/Run na: Error. Debugger kernel error. Error code: 1
2. pri spusteni exe ve w95 na: Soubor C:\WINDOWS\SYSTEM\NWCALLS.DLL je
zrejme poskozen. Nainstalujte soubor znovu atd.

Delphi2 jsou cerstve nainstalovany (full install), NWCALLS.DLL je z novell
32bit klienta (intranetware 4.11) 2.0.

Proc to pada?? Dekuji za kazdy podnet.

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
FUNCTION NWGetConnectionHandle(
ServerName: PChar; { (IN) name of the target NetWare server }
mode: Word; { (IN) for Novell use only; must be 0 }
VAR ConnID: Word; { (OUT) Points to conn handle }
connScope: Pointer): { (IN) for Novell use only; must be NULL }
word; far; external 'NWCALLS';

implementation
procedure TForm1.Button1Click(Sender: TObject);
var nc,idconn:word;
begin
nc:=NWGetConnectionHandle(pchar('GOLEM'),0,idconn,nil);
edit1.text:=inttostr(idconn);
end;

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


Pointer z Realu do Protected

[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 16.12.1998 12:58:39

Ahoj,

mam takovy problemek z oblasti programovani v Borland
Pascalu pod DOSem, takze je to trochu mimo misu, ale
predpokladam, ze jste jeste nezapomneli.

Volam nejakou sluzbu novellu p�es INT21h, tato sluzba vraci
pozadovana data formou adresy na tato data, a to v registrech
ES:SI. Problem je v tom, ze tato adresa je platna pouze v
real-modu a moje aplikace bezi v protected modu.
Nevite tedy, jak bych tento pointer prepocital do chraneneho
rezimu.

Podotykam, ze volani real-mode preruseni z protected-mode
aplikace mam vyreseno. A vzhledem k tomu, ze se to realizuje
pres preruseni INT31h, ocekavam, ze tento INT bude figurovat
i pro reseni vyse popsaneho problemu. Bohuzel o tomto preruseni
mam jen velmi kuse informace a nastroje typu DOSMAN, SYSMAN,
PCHELP apod. se o nem nezminuji.

Budu vdecny za jakekoliv podnety, ev. za odkazy na jine informacni zdroje.

Martin Dupal
-----------

Ing. Martin Dupal
address: Hodolanska 35
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz

Dial up p�ipojen�

[*] Triblax (Bilbo) <triblax(zv)pobox.sk> - 16.12.1998 13:20:15

medzi ICS od F. Pieteho je aj ukazka RAS...
len to treba najst

BDEAPI

[*] Administrator <Administrator(zv)rosoft.sk> - 16.12.1998 13:51:49

Potrebujem pouzivat hDBIDB v ktorej unite to je?

Hlasovanie pre Delphi pod Linuxom

[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 16.12.1998 13:53:09

Jo, pro Builder.....


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: milank(zv)gratex.sk [SMTP:milank(zv)gratex.sk]
> Odesl�no: 16. prosince 1998 11:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Hlasovanie pre Delphi pod Linuxom
>
> http://www.linuxresources.com/wish/
>
> hlasovali ste u� ? ....

DBF bez BDE

[*] Jirka Virt <virt(zv)pepa(tec)cz> - 16.12.1998 14:28:23

Ahoj,

pred casem zde probehla informace o komponente , ktera umi pracovat s DBF
bez BDE.Mohl by mi ji nekdo poslat ???

virt(zv)pepa(tec)cz
Diky vsem , kdo mi odpovi


Jirka Virt


Jak to ten CHIP dela

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 16.12.1998 14:47:33

Evidentne ne, CHIP totiz neni sam, kdo tohle pouziva.
ok

Filip Jirsak wrote:
>
> Ja si vzdy myslel, ze je to Java ci JavaScript. Ono neni?
> Filip Jirsak
>
> > mate nekdo nejaky napad jak to zaridit tak, jak to maji na
> > Chip CD ? Tedy napsat nejakou aplikaci, ktera by v podstate
> > odchytavala kliky v MSIE a sama generovala obsah, tedy
> > castecne simulovat WEB server ?
> >
> > Ondrej Krajicek
> > *************************************************
> Filip Jirsak
> e-mail: Jirsak(zv)gymnacel(tec)cz (do 31.6.1998)
> e-mail: Jirsak(zv)mujmail(tec)cz
> autor www stranek Gymnazia Celakovice www.gymnacel(tec)cz


NMFTP & set attributes

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 16.12.1998 14:49:42

Koukni se na Inprise do Developer Supportu, tam je nekde priklad a
cely clanek. Jinak pokud to nenajdes poslu ti to. A pokud chces
dokumentaci koukni se na microsoft.com a stahni si Internet Client
SDK - tusim ze je i na msods.emwac(tec)cz.

Ondrej Krajicek

Flaska Jakub wrote:
>
> Zdravicko...
>
> Muzu te poprosit o nejaky priklad nebo alespon o URL, kde nejaky priklad
> lezi? U microsoftu jsem se toho moc nedozvedel.
>
> Dekuji, F.
>
> > -----P�vodn� zpr�va-----
> > Od: Ondrej Krajicek [SMTP:krajicek(zv)promedia(tec)cz]
> > Odesl�no: pond�l�, prosince 14, 1998 16:11
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: NMFTP & set attributes
> >
> > Pokud muzu doporucit, v tomto ohledu bych se vykaslal na komponenty a
> > pouzil primo WinInet API, me osobne to pripada ponekud
> > transparentnejsi a navic dost jednoduche na to, aby se to dalo pouzit
> > i bez zapouzdrujicich komponent.
> >
> > Ondrej Krajicek
> >
> > -----P�vodn� zpr�va-----
> > >Nevite nekdo, jak pomoci NMFTP z Delphi 4 zmenit attributy souboru?
> > >Pokud to nejde, neexistuje lepsi komponenta pro pristup na FTP, ktera
> > >dokaze zmenit attributy vzdaleneho souboru?
> >

Kl�vesnice

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 16.12.1998 15:29:47

Z hlavy to presne nevim, ale koukni se ve Win32 SDK Helpu na funkci
loadKeyboardLayout a klikni si na group.

Ondrej Krajicek

Chmelar, Ladislav wrote:
>
> Ahoj
>
> Uz jsem se na to jednou ptal, ale nikdo mi neodpovedel. Takze 2. pokus:
>
> Nevite jak se da nejen zjistit ale i zmenit klavesnice (jazyk kl�vesnice)
> napr. z US na CZ.
> Resp. natvrdo nastavit jednu z nich?
>
> dik moc


Kl�vesnice

[*] Ondrej Krajicek <krajicek(zv)promedia(tec)cz> - 16.12.1998 15:30:42

Uz vim, je to kategorie "Keyboard Input Functions".

Chmelar, Ladislav wrote:
>
> Ahoj
>
> Uz jsem se na to jednou ptal, ale nikdo mi neodpovedel. Takze 2. pokus:
>
> Nevite jak se da nejen zjistit ale i zmenit klavesnice (jazyk kl�vesnice)
> napr. z US na CZ.
> Resp. natvrdo nastavit jednu z nich?
>
> dik moc



© Delphi.cz, program netcode.cz, 2008-9.