Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Posunovac k MediaPlayeru, MP3, kopirovani Objektu
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 9.6.1999 07:50:58
ahoj
> Potreboval bych pomoci s temito problemy:
> 1. Posunovac k MediaPlayeru
> Kdyz prehravam nejaky zvuk, animaci nebo audio CD pres MediaPlayer,
> tak bych k tomu rad udelal takovy ten posunovac pozice prehravani.
> Vubec by me nevadilo, kdybych k tomu musel pouzit jinou komponentu,
> nez tezkopadny TMediaPlayer. Jinak by me ke stesti zatim stacila
> nejaka procedura, ktera by dokazala nastavit od ktere do ktere
> pozice (asi v mikrosekundach) se ma zvuk prehravat a funkce
> vracejici aktulani pozici.
... TMediaPlayer.Position = aktualni pozice pro dane medium
TMediaPlayer.StartPos /EndPos/ = pocatecni a koncova pozice
na ten fejdr muzes pouzit kdejaky TrackBar /RxSlider/, jenom nevim,
jestli existuje nejake rozumne reseni, jak menit pozici toho
fejdru... /rozumne = noTimer :-)/
> 2. Prehravani MP3
> Potreboval bych udelat prehravac MP3 souboru. Pouzivat budu zakladni
> funkce Play, Pause, Stop a onen posunovac preve hrane pozice. Mam k
> tomu sice nejakou DLL knihovnu, ale nevim, jake maji v ni uvedene
> procedury parametry.
nekde /asi na torry?/ existuje free komponenta Eldos Sound, ktera
zatim podporuje "jenom" mpeg...
> 3. Kopirovat Panel s tim co na nem je
> Vytvorit nejaky objekt za behu programu umim, ale chtel bych
> zkopirovat objekt typu TPanel i se vsemi objekty ktere na nem (v
> nem) jsou (dalsi panely, buttony, image...). Urcite to musi jit
> jednoduseji, nez vytvaret kazdy objekt zvlast.
jo, tak tohle sem zahlid uz udelany v naky faq, tak tady to mas:
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls, StdCtrls, IniFiles, TypInfo, Debug;
type
TUniqueReader = Class(TReader)
LastRead: TComponent;
procedure ComponentRead(Component: TComponent);
procedure SetNameUnique(Reader: TReader; Component: TComponent;
var Name: string);
end;
implementation
procedure TUniqueReader.ComponentRead(Component: TComponent);
begin
LastRead := Component;
end;
procedure TUniqueReader.SetNameUnique( // sets the name of the read
component to something like "Panel2" if "Panel1" already exists
Reader: TReader;
Component: TComponent; // component being read
var Name: string // Name to use and modify);
var
i: Integer;
tempname: string;
begin
i := 0;
tempname := Name;
while Component.Owner.FindComponent(Name) <> nil do begin
Inc(i);
Name := Format('%s%d', [tempname, i]);
end;
end;
function DuplicateComponents(AComponent: TComponent //original
component): TComponent; // returns created new component
procedure RegisterComponentClasses(AComponent: TComponent);
var i : integer;
begin
RegisterClass(TPersistentClass(AComponent.ClassType));
if AComponent is TWinControl then
if TWinControl(AComponent).ControlCount > 0 then
for i := 0 to (TWinControl(AComponent).ControlCount-1) do
RegisterComponentClasses(TWinControl(AComponent).Controls[i]);
end;
var
Stream: TMemoryStream;
UniqueReader: TUniqueReader;
Writer: TWriter;
begin
result := nil;
UniqueReader := nil;
Writer := nil;
try
Stream := TMemoryStream.Create;
RegisterComponentClasses(AComponent);
try
Writer := TWriter.Create(Stream, 4096);
Writer.Root := AComponent.Owner;
Writer.WriteSignature;
Writer.WriteComponent(AComponent);
Writer.WriteListEnd;
finally
Writer.Free;
end;
Stream.Position := 0;
try
UniqueReader := TUniqueReader.Create(Stream,4096); //create
// reader, should probably move these routines into
// theconstructor
UniqueReader.OnSetName := UniqueReader.SetNameUnique;
UniqueReader.LastRead := nil;
if AComponent is TWinControl then
UniqueReader.ReadComponents(
// read in components and sub-components
TWinControl(AComponent).Owner,
TWinControl(AComponent).Parent,
UniqueReader.ComponentRead)
else
UniqueReader.ReadComponents(
// read in components
AComponent.Owner,nil,UniqueReader.ComponentRead);
result := UniqueReader.LastRead;
finally
UniqueReader.Free;
end;
finally
Stream.Free;
end;
end;> Pokud znate reseni nektereho z uvedenych problemu, tak mi prosim
> napsite.
> Diky
> vobornik(zv)ssakhk(tec)cz
cau
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/problem s databazi
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 9.6.1999 07:51:40
no nazdar
> poprve to nejak nedoslo, tak to posilam znovu...
> pokud to dojde dvakrat, tak se omlouvam
... zkus se priste zeptat trebas kolik kdo ma v bytu beatu anebo
jak se dovolat paegasem na lamparnu, uz sme tady na to vsichni
odbornici :-))
> Ahoj,
>
> narazil jsem na nasledujici problem. Vytvorim si v Delphi databazi
> dBase. Soubor zkompiluju, presunu do jineho adresare i s prislusnymi
> databazovymi soubory, spustim a vse slape.
... protoze mas pod tema woknousama to BDE nainstalovany,
pravdepodobne s instalaci Delphi...
> Kdyz vsak adresar nahraju na disketu a prenesu na jiny pocitac, tak
> se pri spusteni objevuje hlaska "An error occured while attempting to
> initialize the Borland Database Engine." Co je presne Borland
> Database Engine? Musi se to nejak zvlast nainstalovat nebo musim
> spolu se zkompilovanymi soubory prenest jeste nejake?
... BDE je laicky receno ta sranda, bez ktery se na ty dbaseovy
tabulky asi nedostanes, pokud bde budes pouzivat... raci to
neprenasej a nainstaluj to, nejlepe installshieldem z instal cd...
>
> Predem diky za kazdou radu, Honza
> -------------------------------------------------------------------
> Jan Pomikalek (Muf) http://web.pinknet(tec)cz/~muf/
> E-mail: muf(zv)pinknet(tec)cz http://tetrinet.pinknet(tec)cz/
> ICQ: 2198989 http://muf.pinknet(tec)cz/
> -------------------[pinknet on every screen]-----------------------
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/QRpt-stejny detail vickrat na strance
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 9.6.1999 07:54:19
> Pokousim se pomoci QReport vytisknout nekolikrat stejny
> detail na jednu stranku. Pokud tento detail neni posledni v
> DataSetu pak pomuze zavolat v BeforePrint DataSet.Prior a
> pocitat kopie. Je-li ale zaznam posledni pak se vytikne
> pouze poprve a QReport konci. Nemate nekdo funkcni reseni?
... zajimavy ;-) ale nejjednodussi by bylo pouzit
QuickReport.OnNeedData /QuickReport.Dataset nech prazdny/, no a v nem
trebas zvetsuj nejaky pocitadlo a az uz toho budes mit dost, tak
nastav MoreData:=false a mas dotisknuto...
> Tomas Bahnik
> Dept. of Physics
> Technical University
> Liberec
> Czech republic
> http://www.kfy.vslib(tec)cz/kfy/clenove_katedry/bahnik/
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/TGraphicControl Paint
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 9.6.1999 07:55:35
ahoj,
mam komponentu odvozenou od TGraphicControl a metodu Paint:
muj problem je, ze pred kazdym vykreslenim se canvas te komponenty
smaze a az potom se vykresluje co ja chci, coz ma za nasledek
probliknuti a vzhledem k tomu, ze to cele funguje jako VU Meter a
stav se updatuje nekolikrat za sekundu, je to dost nezadouci... nevi
nekdo co s tim? /zkousel jsem nechat handler na WM_ERASEBKGND prazdny,
ale porad je videt, jak pres to obcas preleti barva formulare.../
predem dik moc za nejaky napad
preju prijemny den
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/Tab vs Down, OutlookBar
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 9.6.1999 07:55:22
caf
> Mam nasledujici problem:
>
> Vytvorte si novou aplikaci a na prazdny formular umistete GroupBox, do nej
> Edit a vedle nej dva buttony. Pak mackejte tabulator a focus se meni v
> poradi Edit, Butt1, Butt2 (resp. Shift Tab, Butt2, Butt1, Edit). Potud vse
> OK. Pak tabulatorem preskocte na Butt1 a stisknete sipku nahoru. A fokus
> nikde (resp. ma ho GroupBox, na kterem to neni poznat). Jak zaridit, aby
> sipka vzhuru fungovala stejne jako shift tab a sipka dolu stejne jako tab.
> Samozrejme u podstatne slozitejsich formularu kde je treba i StatusBar(dela
> to same)... Diky za kazde dobre rano (eh, prominte, za kazdou dobrou radu).
> Nerad bych odchytaval klavesu sipka vzhuru a cpal tam shift tab, kdo vi, co
> by to udelalo jinde...
... toz vcilejc nevim jestli to dobre chapu, ale pokad chces pouzivat
kurzorovy klavesy pro posunovani pro komponentach, tak zkus todlenc
dat do OnKeyDown:
procedure TWonderfulForm.BeautifulKeyDown(Sender: TObject; var Key:
Word; Shift: TShiftState);
begin
if key=VK_UP then Perform(WM_NEXTDLGCTL,1,0) else
if key=VK_DOWN then Perform(WM_NEXTDLGCTL,0, 0);
end;
> Pak me trapi jeste jedna vec. Nevite nekdo o freeware komponente, ktera
> vypada jako OutlookBar?
> (takovej ten obdelnik s ikonama :o)
... eh, obdelnik s ikonama? no neznam outlook, ale to ma byt jako
toolbar, anebo jenom obdelnik s ikonama? pro D4: v tom prvnim
pripade pouzij trebas TToolBar nebo z RX TSpeedBar, v tom druhym
pripade TPanel a spoustu TImage /anebo Canvas formulare/ :-))
> P.S.:Petre Vaclavku, diky za radu. Funguje to :)))
:-)
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://home.vsb(tec)cz/Jozin.z.Bazin/Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.6.1999 08:58:30
Vzdyt uz to snad (skoro) kazdemu jasne bylo...
> ----------
> Abych vam v tom udelal uz konecne jasno !!!!!!.::
>
> TWIST ma ZDARMA zrizenou adresu +420603xxxxxx(zv)sms.paegas(tec)cz a je
> funkcni
> ihned po aktivaci TWIST karty........
> SQL a retezec
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.6.1999 09:22:58
Ahoj,
trochu jsem o tom premyslel, a neco me napadlo,
ono totiz SQL moc prokazu na formatovani retezcu
nema, ale mozna to pujde. Jestli jsem to spravne
pochopil, tak mas rekneme dve tabulky Tab1 a Tab2,
v tabulce Tab1 je je pole ID, kter� obsahuje na konci
ty "dodatky" a v Tab2 je stejn� ID, ale bez onech
"dodatku". Pominme fakt, ze jako ID pouzivat retezec
neni zrovna 2x prozirave a zkusme tedy toto:
nebudu ty prvni ID o ty 4 znaky na konci zkracovat,
ale naopak to druhe ID o ctyri znaky protahnu asi
takto (predpokladejme, ze nejmensi cislo utvaru
je 51 a nejvetsi napr 59, dale predpokladejme, ze
roky (budes mit problem s rokem 2000 :-) budou
nabyvat hodnot 95-99) tak tedy vysledny SQL by mohl
vypadat takto :
SELECT
Tab1.ID as ID,
Tab2.ID||"5195" as IDx1,
Tab2.ID||"5999" as IDx2,
_a_jeste_neco_dalsiho_
FROM
Tab1, Tab2
WHERE
(ID>=IDx1 AND ID<=IDx2)
AND _nejake_dalsi_podminky_
Nezkousel jsem to a mozna, ze to ani nepujde,
ale za pokus to stoji.
Dobra.
> ----------
> Zatim vam vsem diky.
> Omlouvam se, pokud to bylo nepochopitelny, snad to po druhe bude
> lepsi.
> Blbe jsem tam zapletl to pismeno - sorry.
>
> Vysvetleni c. 2:
>
> * tyka se to lokalnich dbf tabulek
> * retezec neobsahuje mezery
> * muze byt ruzne dlouhy
> * obsahuje tri informace, ktere jsou psany z prava,
> od konce jsou dva znaky rok, dalsi dva utvar a zbytek ID.
>
> priklad dvou retezcu:
> retezec1 = '1265199' - Rok: '99' Utvar: '51' ID: '126'
> retezec2 = '21455499' - Rok: '99' Utvar: '54' ID: '2145'
>
> * takovych retezcu mam v tabulce asi 4000 a ja potrebuju oriznout ty 4
> znaky
> od konce, aby me zustalo ID, pomoci ktereho ji potom spojim s dalsi
> tabulkou a z takto vznikle tabulky budu asi 10 polozek vkladat
> do tabulky Paradoxu
> * Chci to udelat pomoci dotazu v TQuery, protoze s tim potom dal
> pracuji
> a technika veta po vete je celkem pomala.
> * Zarazil jsem se na tom, ze ty posledni 4 znaky jsou promenne, takze
> je nemuzu nadrzo oriznout a zjistit skutecnou delku retezce se me
> v lokalnim SQL nepodarilo.
>
> TMemoryStream & HTTP Response
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.6.1999 09:48:15
No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> wrote:>moze byt, ale niekde mi niekto hovoril ze kompilaotr delphi je pomerne
>slusny a ze v asm sa moc usetrit neda...
Je pravda, ze zobecneni funkce 32 bitovych registru pri adresovani pameti u
procesoru Intel dnesni prekladace vcetne napr. D4 umi pri optimalizaci dost
slusne vyuzit, takze se zpravidla pouziti assembleru nevyplati.
Ovsem, kdyz honis napr. rychlost vyhledavani v DB stroji tim, ze pouzivas
zvlastnich algoritmu misto abys pouzil iterace s repe cmpsx, tak se take
vyplati zkusit optimalizovat implementaci tohoto algoritmu rucne. Kazdy
usetreny takt prijde k dobru.
Usetrit se da zejmena u tech algoritmu, kde se operuje s omezenym poctem
lokalnich promennych, takze je lze podrzet v registrech. Jakmile vzroste
overhead s jejich uschovou/obnovou popr. jakmile se zacnou pouzivat lokalni
promenne v pameti, ztraci pouziti assembleru smysl.
>replikator excelovskeho sheetu via http. mam sadu *.asp, ktore nie su odo
>mna na servri ktory je ani neviem kde a ja potrebuje vykonat aktualizaciu
>zaznamov. Poslem jeden request na autorizaciu a muesim checkut resoponse na
>urcite "znaky" indikujuce uspesnost. Napr. sa v odpovedi moze nachadzat
>"boli ste uspesne prihlaseny do systemu"... No a komponenty od FP pracuju s
>TMemoryStream...
Tak na tohle skutecne nepotrebujes zadnou rychlost.
bye, pf
Ikony v toolbaru
[*] Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> - 9.6.1999 10:12:55
Zdravim vsechny
Mam problem s ikonama v toolbaru v delphi 3. Normalne sem si udelal toolbar , pak imagelist. Do toho sem umistil obrazky a priradil je k toolbaru. Problem je v tom, ze kdyz program prenesu na jiny pocitac , tak jsou fuc. Neplati to sice pro kazky, ale stava se to.
Co s tim ?
Predem dekuji za kazdou pomoc.
DAN
otazka -kolabujici stare d3
[*] hynek.los.fei(zv)vsb(tec)cz - 9.6.1999 09:29:42
jedna takova silne zacatecnicka otazka
: jestlize sem vlozil do tela programu breakpoint
a spustim ladeny program obcas se mi stane,ze
pri pokusu zastavit beh programu a provest reset programu,
se neresetuje nic, delphi oznami se se program zastavuje,
ale ty samotne zamrznou tak ze muzu znovu resetovat pocitac.
nefunguje ani tasklist windowsu(respektive vytuhnou cele winy)
ps : stava se mi to s D3 (je to snad ta nejstarsi verze)bez upgradu
v programu pracuji s procesy - mozna ze delphi nedokazi zastavit
samotne procesy(ale to je snad blbost ne?) jinak program mimo
prostredi delphi jede normalne
nezobrazovani vysledku u TQRExpr
[*] mbartone(zv)Synthesia(tec)cz - 9.6.1999 10:59:30
Ahoj
u QReportu pri pouziti TQRExpr se mi stava ze se nektere vzorce neprovenou a
zobrazi misto vysledku jen vzorec.
Pokud sestavu zavru a pustim ji znovu je vse v poradku.
Nevite co by se dalo kde nastavit ?
Milan
SQL a retezec
[*] delphi(zv)alf.dingo(tec)cz - 09.6.1999 09:07:36 gmt
> ----------
> Pominme fakt, ze jako ID pouzivat retezec
> neni zrovna 2x prozirave
S tim retezcem to nebyl muj napdad.
Ja v te sve druhe tabulce mam ID jako cislo,
ale ta prvni tabulka je od treti strany a ten retezec ja Variabilni symbol
z banky, takze s tim hnout nemuzu. Ja potom akorat prirazuju platby
podle ID z toho retezce.
>(budes mit problem s rokem 2000 :-)
To uz je v podstate osetreny :o)
Bob
SQL a retezec
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.6.1999 11:20:27
A neslo by tedy vytvorit nejakou "konverzni"
utilitku, ktery by Ti vzdy, kdyz dostanes
od te treti strany ta data, projela celou
tu tabulku a drobet ji upravila ? Bude to
zrejme zaviset na tom, ja casto ji dostavate.
D.
> ----------
> > ----------
> > Pominme fakt, ze jako ID pouzivat retezec
> > neni zrovna 2x prozirave
>
> S tim retezcem to nebyl muj napdad.
> Ja v te sve druhe tabulce mam ID jako cislo,
> ale ta prvni tabulka je od treti strany a ten retezec ja Variabilni
> symbol
> z banky, takze s tim hnout nemuzu. Ja potom akorat prirazuju platby
> podle ID z toho retezce.
>
> Jak se v Dlephi posilaji SMS (Paegas)
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 9.6.1999 10:43:52
> From: "Tony Kmoch" <tony(zv)kmoch(tec)cz>
> Vazeny pane,
> musim Vas upozornit, ze Vase informace jsou skutecne liche. Za jakoukoliv
> email. adresu na mobilu se plati (potvrzeno na www.paegas(tec)cz i jejich
> hotline i vlastnim testem).
..opisuji z Paegas:Cenik,Mapy,Sluzby:
...SMS:pri vyuzivani teto sluzby neplatite zadny aktivacni
ani mesicni pausal, ani zadny poplatek za prijeti zpravy...
...Paegas e-mail:posilat SMS z internetu/e-mailu na telefon 0,-Kc...
...u Twist:zdarma aktivace Hlasove schranky a e-mailove adresy
ve tvaru +420603vase twist cislo(zv)sms.paegas(tec)cz ...
... za aktivaci adresy jmeno.prijmeni(zv)sms.paegas(tec)cz
poplatek 50,- (www.paegas(tec)cz)
> Zalozi se automaticky pri aktivaci uctu/telefonu zdarma
rozhodne plati u TWIST
Pokud jsem neco prehledl/spatne pochopil,
tak SORRY :-)
Zdravim
> .....jo este neco, me nefacha spravne ten Vas podpis protoze kdyz kliknu
> na ten email tak to posila na: "e-mail:drvota(zv)zds(tec)cz", protoze jste tam
> nedal mezeru. To jen tak, mimochodem.
to mi jeste nikdo nehlasil, diky, napravuji ted :-)
> mejte se
> // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
> | >> Tony Kmoch <<
> | tonda(zv)kamarad(tec)cz
> | t.kmoch(zv)seznam(tec)cz
> | ICQ: #21901427
> | Czech rep., Europe
> +----------------------------------
> | Programmers Network CZ [www.prog(tec)cz]
> \\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
>
> -----P�vodn� zpr�va-----
> Od: Zdenek Drvota <drvota(zv)zds(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 5. �ervna 1999 4:53
> P�edm�t: Re: Jak se v Dlephi posilaji SMS (Paegas)
>
>
> > From: "Tonda Kmoch" <t.kmoch(zv)seznam(tec)cz>
> > Prosim Vas,
> > nejspise je muj dotaz "MIRNE" offtopic, ale vy budete odpoved zajiste
> > znat. Ten email: +420603xxxxx(zv)sms.paegas(tec)cz se musi nekde zalozit, nebo je
> > zalozen automaticky a pripraven na pouzivani? A dale, kdyz jsou ty email.
> Zalozi se automaticky pri aktivaci uctu/telefonu zdarma
>
> > adresy, napr.: pepa.novak(zv)sms.pageas(tec)cz plati se neco za prijem zpravy?
> tohle zalozeni uz neni zdarma ale asi za 50,-
> za prijem se neplati nic
>
> >
> > diky
> > // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
> > | >> Tony Kmoch <<
> > | tonda(zv)kamarad(tec)cz
> > | t.kmoch(zv)seznam(tec)cz
> > | ICQ: #21901427
> > | Czech rep., Europe
> > +----------------------------------
> > | Programmers Network CZ [www.prog(tec)cz]
> > \\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
> > (for czech recipients only:
> > Prijimam cestinu v kodove strance ISO-8859-2)
> >
> >
> >
> >
> -----------------------------------------------
> Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
> director
> ZDS, spol. s r.o.
> Hronovicka 708 tel:+420-40-6613756
> 530 02 Pardubice fax:+420-40-6613756
> Czech Republic http://www.zds(tec)cz
> e-mail:info(zv)zds(tec)cz
> Internet proti monopolu http://www.bojkot(tec)cz
> Pripojte se k hledani mimozemskych civilizaci:
> SETI(zv)Home http://setiathome.ssl.berkeley.edu
>
>
>
>
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Jak pouzit Sender u Formulare
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 9.6.1999 12:01:43
Asi na to jdes ponekud nespravne. Spis bych si udelal funkci v tom
formu, kde je combo, a gridy bych napojil na datasource v datamodule.
Pak bych predaval do te funkce formu s comboboxem ten datasource,
eventuelne jeste Tform a grid - pokud bych s tim chtel v te funkci nejak
manipulovat.......tak bych to udelal ja. Ale nerekl jsi vsechno, mozna
to tak udelat nemuzes.
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: Pavel M. [SMTP:talema(zv)top(tec)cz]
> Odesl�no: 08. �ervna 1999 9:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Re: Jak pouzit Sender u Formulare
>
> ----- Original Message -----
>
> > > Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
> > >
> > > procedure TfmHledej.Napln(Sender: TForm);
> > > var i : SmallInt ;
> > > begin
> > > for i := 0 to 2 do
> > > begin
> > > Sloupce.Items.Add ((Sender as
> TForm).DBGrid.Columns[i].FieldName) ;
> > > end;
> > > HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> > > HledanyText.FieldName := (Sender as
> TForm).DBGrid.Columns[0].FieldName;
> > > end;
> >
> > ... jak tak na to koukam, asi ti nefunguje to (Sender as
> TForm).DBGrid
> > ne? no, ja jenom nechapu, proc predavas Sender:TForm, kdyz ho
> > pouzivas jenom pro adresovani toho Gridu, tak proc nepredavas primo
> > ten DBGrid?
>
>
> Ano nefunguje (Sender as TForm).DBGrid.
> Mam nekolik formularu a na nich vzdy DBGrid. Potrebuji aby se provedlo
> vzdy to stejne, ale pri zavolani z ruznuch formularu. Jenoduse receno
> naplnuji ComboBox, prvnimi tremi sloupci vzdy z toho Gridu, ktery to
> zavola.
> Proto potrebuji identifikaci toho Formulare.
> Nebo to jde nejak obejit ?
>
> Pavel M.
>
> Ikony v toolbaru
[*] rjunga(zv)oku-ka(tec)cz - 9.6.1999 12:34:23
Myslim, ze je proble s knihovnami CTL3D32S.DLL a CTL3D32.DLL, ktere by mely
byt ve winnt\system32 nebo windows\system. Na CD Delphi by mely byt ty
knihovny upravene.
Roman Junga
"Dan Komosny" <dan(zv)list.skm.vutbr(tec)cz> na 09.06.99 10:12:55
Please respond to delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
cc: (bcc: Roman Junga/IDC/OkUKarvina/CZ)
Subject: Ikony v toolbaru
Zdravim vsechny
Mam problem s ikonama v toolbaru v delphi 3. Normalne sem si udelal toolbar
, pak imagelist. Do toho sem umistil obrazky a priradil je k toolbaru.
Problem je v tom, ze kdyz program prenesu na jiny pocitac , tak jsou fuc.
Neplati to sice pro kazky, ale stava se to.
Co s tim ?
Predem dekuji za kazdou pomoc.
DAN
Pruhledny Form
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 9.6.1999 12:39:15
D�ky v�em za p��sp�vky k pr�hledn�mu formu. Jara.
-----P�vodn� zpr�va-----
Od: Ivan Pavelka <I.Pavelka(zv)uni-data(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 7. �ervna 1999 19:44
P�edm�t: RE: Pruhledny Form
> Ahoj.
>
>a) OBRAZEK :Transparentn� obr�zek nastav� skute�n� pomoc� vlastnosti
>Transparent. Vlastnost transparentColor slou�� k v�b�ru, kter� barva
>bude pr�hledn�.
>b) FORM : Udr�et pr�hledn� form za v�ech okolnost�, t.j. p�i zm�n�
>velikosti, p�i posunu, nebo p�i p�ep�n�n� fokusu z okna na okno nen�
>snadn�. Windows na to nejsou moc stav�n�.
>Je mo�n� si uchovat stav screenu p�ed otev�en�m okna do bitmapy a pak
>obsah formu po v��e zm�n�n�ch ud�lostech obnovovat. viz. n�sleduj�c�
>mal� p��klad.
>Zkus si to, ale v�sledek nic moc je to pomal� a cuk� to. Nev�m k �emu to
>pot�ebuje� a jestli by nebylo vhodn�j�� kreslit p��mo na screen.
>------------------------------------------------------------------------
>------------------------------------------------------------------
>program Project1;
>uses
> Windows, Wintypes,Messages, SysUtils, Classes, Graphics, Controls,
>Forms, Dialogs,
> Unit1 in 'Unit1.pas' {Form1};
>{$R *.RES}
>begin
> Application.Initialize;
> DesktopBitmap := TBitmap.Create; {puvodni obsah obrazovky}
> DesktopBitmap.Width := Screen.Width;
> DesktopBitmap.Height := Screen.Height;
> BitBlt(DesktopBitmap.Canvas.Handle,0,0,Screen.Width,Screen.Height,
> GetDC(GetDesktopWindow),0,0,SrcCopy); {natahne obrazovku}
> Application.CreateForm(TForm1, Form1);
> Application.Run;
> DesktopBitmap.Free;
>end.
>------------------------------------------------------------------------
>------------------------------------------------------------------
>unit Unit1;
>interface
>uses
> Windows, Wintypes,Messages, SysUtils, Classes, Graphics, Controls,
>Forms, Dialogs;
>type
> TForm1 = class(TForm)
> procedure FormCreate(Sender: TObject);
> Procedure repaint;
> procedure FormPaint(Sender: TObject);
> procedure FormResize(Sender: TObject);
> .................
> end;
>var
> Form1: TForm1;
> DesktopBitmap : TBitmap;
>implementation
>{$R *.DFM}
>
>procedure TForm1.FormCreate(Sender: TObject);
>Jak pouzit Sender u Formulare
[*] Pavel M. <talema(zv)top(tec)cz> - 9.6.1999 13:34:23
Ale to je prave ono.
Mam formulare, na kterych jsou DBGridy napojene na datasource v Datamodulu,
no a potrebuji funkci v tom formulari, kde je ten ComboBox, ktera jej naplni
prvni tremi sloupci z datasource, ktery je aktualni na tom Gridu. Ted to
volam
z kazdeho formulare zvlast a mam vsude stejne kod, tak jsem si rekl, ze by
to slo zjednodusit, ale neprisel jsem na to jak udelat zpravou syntaxi.
Pavel
----- Original Message -----
> Asi na to jdes ponekud nespravne. Spis bych si udelal funkci v tom
> formu, kde je combo, a gridy bych napojil na datasource v datamodule.
> Pak bych predaval do te funkce formu s comboboxem ten datasource,
> eventuelne jeste Tform a grid - pokud bych s tim chtel v te funkci nejak
> manipulovat.......tak bych to udelal ja. Ale nerekl jsi vsechno, mozna
> to tak udelat nemuzes.
>
> Martin Fron�k
> > ----- Original Message -----
> >
> > > > Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
> > > >
> > > > procedure TfmHledej.Napln(Sender: TForm);
> > > > var i : SmallInt ;
> > > > begin
> > > > for i := 0 to 2 do
> > > > begin
> > > > Sloupce.Items.Add ((Sender as
> > TForm).DBGrid.Columns[i].FieldName) ;
> > > > end;
> > > > HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> > > > HledanyText.FieldName := (Sender as
> > TForm).DBGrid.Columns[0].FieldName;
> > > > end;
> > >
> > > ... jak tak na to koukam, asi ti nefunguje to (Sender as
> > TForm).DBGrid
> > > ne? no, ja jenom nechapu, proc predavas Sender:TForm, kdyz ho
> > > pouzivas jenom pro adresovani toho Gridu, tak proc nepredavas primo
> > > ten DBGrid?
> >
> >
> > Ano nefunguje (Sender as TForm).DBGrid.
> > Mam nekolik formularu a na nich vzdy DBGrid. Potrebuji aby se provedlo
> > vzdy to stejne, ale pri zavolani z ruznuch formularu. Jenoduse receno
> > naplnuji ComboBox, prvnimi tremi sloupci vzdy z toho Gridu, ktery to
> > zavola.
> > Proto potrebuji identifikaci toho Formulare.
> > Nebo to jde nejak obejit ?
> >
> > Pavel M.
> >
> >
WM_KEYDOWN
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 9.6.1999 13:43:51
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj,
mam jednoduchy problemek, se kterym si
jiste budete vedet rady. Mam aplikaci,
ta ma hlavni form a na nem nekolik TEdit-u
Zjistim si handle toho okna (celeho formu)
a chci mu poslat nejaky text a "odentrovat"
tedy simulovat stisk nekolika klaves a potom
ENETR-u. Ale nechci to poslat nejakemu
konkretnimu Edit-u, ale tomu, ktery ma
prave fokus.
Zkousel jsem PostMessage(WM KEYDOWN, ???)
ale nevim, jake mam dat parametry.
Ty API mi je�t� moc nejdou.
Diky za pomoc.
Dobra.
Browser COM objektu ala class explorer
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 09.6.1999 14:25:18
Ahoj,
mam takovy dotaz. Existuje, nekdo udelal a nekde se vali program, ktery
by umoznoval prohlizet nainstalovane COM objekty? Stahnul jsem si
program COM Explorer, ale ten umi "pouze" zobrazit jmena tehle objektu.
Ja bych potreboval neco, co by dokazalo zobrazovat i jmena properties a
metod v objektu ulozenych. Kdyby to umelo zjistit i typy parametru, tak
by to bylo super, ale pochybuju, ze je to mozne. Abych to shrnul -
proste mi jde o neco jako je class explorer, ale pro COM objekty.
Diky za rady.
K.
PS: Ur�it� to mus� j�t zjistit, jinak by p�ece COM nemohlo fungovat ne?
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
/* If you don't have ICQ you can page me through: My Personal */
/* Communication Center: http://wwp.mirabilis.com/4111110 */
/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
</TT>
Jak pouzit Sender u Formulare
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 09.6.1999 14:46:02
Mozno takto:
procedure TForm.ComboDropDown();
var i : integer;
s1, s2 : string;
begin
s1 := '';
s2 := '';
for i := 0 to 2 do
begin
s1 := s1 + s2 + DBGrid.Columns[i].FieldName;
s2 := ';';
end;
Combo.ListField := s1;
end;
That's all.
Hasta la vista
delphista.
M.
"Pavel M." wrote:
>
> Ale to je prave ono.
> Mam formulare, na kterych jsou DBGridy napojene na datasource v Datamodulu,
> no a potrebuji funkci v tom formulari, kde je ten ComboBox, ktera jej
> naplni
> prvni tremi sloupci z datasource, ktery je aktualni na tom Gridu. Ted to
> volam
> z kazdeho formulare zvlast a mam vsude stejne kod, tak jsem si rekl, ze by
> to slo zjednodusit, ale neprisel jsem na to jak udelat zpravou syntaxi.
>
> Pavel
>
> ----- Original Message -----
>
> > Asi na to jdes ponekud nespravne. Spis bych si udelal funkci v tom
> > formu, kde je combo, a gridy bych napojil na datasource v datamodule.
> > Pak bych predaval do te funkce formu s comboboxem ten datasource,
> > eventuelne jeste Tform a grid - pokud bych s tim chtel v te funkci nejak
> > manipulovat.......tak bych to udelal ja. Ale nerekl jsi vsechno, mozna
> > to tak udelat nemuzes.
> >
> >
> > Martin Fron�k
>
> > > ----- Original Message -----
> > >
> > > > > Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
> > > > >
> > > > > procedure TfmHledej.Napln(Sender: TForm);
> > > > > var i : SmallInt ;
> > > > > begin
> > > > > for i := 0 to 2 do
> > > > > begin
> > > > > Sloupce.Items.Add ((Sender as
> > > TForm).DBGrid.Columns[i].FieldName) ;
> > > > > end;
> > > > > HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> > > > > HledanyText.FieldName := (Sender as
> > > TForm).DBGrid.Columns[0].FieldName;
> > > > > end;
> > > >
> > > > ... jak tak na to koukam, asi ti nefunguje to (Sender as
> > > TForm).DBGrid
> > > > ne? no, ja jenom nechapu, proc predavas Sender:TForm, kdyz ho
> > > > pouzivas jenom pro adresovani toho Gridu, tak proc nepredavas primo
> > > > ten DBGrid?
> > >
> > >
> > > Ano nefunguje (Sender as TForm).DBGrid.
> > > Mam nekolik formularu a na nich vzdy DBGrid. Potrebuji aby se provedlo
> > > vzdy to stejne, ale pri zavolani z ruznuch formularu. Jenoduse receno
> > > naplnuji ComboBox, prvnimi tremi sloupci vzdy z toho Gridu, ktery to
> > > zavola.
> > > Proto potrebuji identifikaci toho Formulare.
> > > Nebo to jde nejak obejit ?
> > >
> > > Pavel M.
> > >
> > >TGraphicControl Paint
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 9.6.1999 13:54:05
Resenim by bylo kreslit do bitmapy umistene v pameti (TBitmap) a tu pak
metodou Draw nebo CopyRect prenaset vzdy po nakresleni na Canvas te
komponenty. Je to rychle a bez blikani.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Roman [SMTP:roman.banar.fei(zv)vsb(tec)cz]
> Odesl�no: 9. �ervna 1999 8:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TGraphicControl Paint
>
> ahoj,
> mam komponentu odvozenou od TGraphicControl a metodu Paint:
> muj problem je, ze pred kazdym vykreslenim se canvas te komponenty
> smaze a az potom se vykresluje co ja chci, coz ma za nasledek
> probliknuti a vzhledem k tomu, ze to cele funguje jako VU Meter a
> stav se updatuje nekolikrat za sekundu, je to dost nezadouci... nevi
> nekdo co s tim? /zkousel jsem nechat handler na WM_ERASEBKGND prazdny,
>
> ale porad je videt, jak pres to obcas preleti barva formulare.../
>
> predem dik moc za nejaky napad
> preju prijemny den
> Roman
> -------------------------
> amatersky flakac v Delphi
> email: roman.banar.fei(zv)vsb(tec)cz
> email: jozin.z.bazin(zv)email(tec)cz
> www : http://home.vsb(tec)cz/Jozin.z.Bazin/Browser COM objektu ala class explorer
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 9.6.1999 14:56:32
Haj hou!
To co potrebujes je program OLEView. Je soucasti Platform SDK MS a je rovnez
volne ke stazeni na MSDN sekci sajtu MS (hledej sekci pro COM/OLE). Ukazuje
vsechny zaregistrovane tridy, interface (vcetne IDL) atd.
>mam takovy dotaz. Existuje, nekdo udelal a nekde se vali program, ktery
>by umoznoval prohlizet nainstalovane COM objekty? Stahnul jsem si
>program COM Explorer, ale ten umi "pouze" zobrazit jmena tehle objektu.
>Ja bych potreboval neco, co by dokazalo zobrazovat i jmena properties a
>metod v objektu ulozenych. Kdyby to umelo zjistit i typy parametru, tak
>by to bylo super, ale pochybuju, ze je to mozne. Abych to shrnul -
>proste mi jde o neco jako je class explorer, ale pro COM objekty.
Pavel Cisar
Delphree Initiative CEO
Nexus project coordinator
http://delphree.clexpert.com
Jak pouzit Sender u Formulare
[*] Pavel M. <talema(zv)top(tec)cz> - 9.6.1999 15:03:41
Ale ten DBGrid neni na tom Formu kde je ComboBox a formular s DBGridem,
je vlastne promenna. To je muj problem, ne vlastni naplneni ComboBoxu.
Pavel M.
----- Original Message -----
From: Martin O�en� <ocenas(zv)proces.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, June 09, 1999 2:46 PM
Subject: Re: Jak pouzit Sender u Formulare
> Mozno takto:
>
> procedure TForm.ComboDropDown();
> var i : integer;
> s1, s2 : string;
> begin
> s1 := '';
> s2 := '';
> for i := 0 to 2 do
> begin
> s1 := s1 + s2 + DBGrid.Columns[i].FieldName;
> s2 := ';';
> end;
> Combo.ListField := s1;
> end;
>
> That's all.
>
> Hasta la vista
> delphista.
>
> M.
SetWindowsHookEx & Service
[*] Jan P�ni�ka <Jan.Penicka(zv)iname(tec)com> - 9.6.1999 15:14:50
Ahoj lidi,
mam tu jeden problem:
napsal jsem jsi DLL knihovnu, ktera pouziva funkci SetWindowsHookEx k
instalaci hook funkce. Jelikoz potrebuji sledovat vsechny thready, tak hook
funkce(CALLBACK) mus� b�t v DLL knihovn�. V DLL knihovne je akorat jedna
exportovana fce(InstallSysHook), ktera prave zajistuje volani
SetWindowsHookEx.
Dale jsem si napsal jednoduchy programek("Zavadec"), ktery pouziva tuto DLL
a zavola moji fci InstallSysHook, ktera prave provede instalci hook fce.
Pokud tento programek spustim vse funguje, tak jak ma, system mi vola moji
hook funkci a ta provadi to co potrebuji.
A ted vcem je problem:
Jelikoz to potrebujem pro WinNT, tak jsem se rozhodl programek "Zavadec"
prepsat do formy Service(Sluzby pro NT). Service ja napsany, tak ze pri jeho
stratu je zavolana funkce InstallSysHook z me DLL, ktera provede instalaci
hook funkce.
Pokud zkusim spustit tento muj service, tak se sice spusti, ale moji hook
funkci v DLL mi system nikdy nezavola.
Pri krokovani jsem zjistil, ze pri volani SetWindowsHookEx mi funkce vrati
sice platny handle, ale k zavolani hook funkce nikdy nedojde.
Tak jsem se chtel zeptat jestli neexistuje nejake omezeni pro hook funkce,
treba jako ze nemuzou byt pouzivany v ramci SCM(Service Control Manager)?
Jinak uz nevim kde by mohla byt zrada.
Predem diky za radu.
---
Jan Penicka student of Technical University of Liberec
Jan.Penicka(zv)iname.com (ICQ:25524517)
PENDAsoft(zv)iname.com
Neznam PARENT
[*] Pavel Vake� <Rocky(zv)podvodnik(tec)cz> - 9.6.1999 15:15:04
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
To vim to funguje i kdyz dam SELF. ale ja to potrebuju pouzit v komponente a tam ani form1 nebo neco takovyho nefunguje.
-----P�vodn� zpr�va-----
Od: Ondrej Sterba <ondrej.sterba(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 21:28
P�edm�t: Re: Neznam PARENT
V pripade, ze chces za behu vytvorit novy formular (napr. Form2) a v nem vytvorit novou komponentu TFileListBox, nemuzes napsat Self, ale formular. do ktereho bude skutecne patrit (napr. FileBox.parent:=Form2). Doufam, zes to tak myslel.
Zdar
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 17:23
P�edm�t: Neznam PARENT
Nedavno jsem se tady ptal jak to mam udelat kdyz za behu programu vytvorim
objekt TFileListBox abych mohl priradit nejakou cestu vlastnosti Directory.
to je vyreseno nasledujicim zpusobem
FileBox := TFileListBox.Create(Self);
FileBox.Parent := Self;
Jo, ale co kdyz si delam komponentu ve ktere chci pri vzniku taky vytvorit tento objekt. To mi nejde pise me to furt ze nemam prirazeny parent.
Takze sem usoudil ze to nejako SELF nebere.
prosim o porazeni co bych tam mohl priradit....
Predem diky..
Neznam PARENT
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 9.6.1999 15:58:09
Skus FileBox.Parent := owner; {owner je formular}
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. j�n 1999 15:25
P�edm�t: Re: Neznam PARENT
To vim to funguje i kdyz dam SELF. ale ja to potrebuju pouzit v komponente a tam ani form1 nebo neco takovyho nefunguje.
-----P�vodn� zpr�va-----
Od: Ondrej Sterba <ondrej.sterba(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 21:28
P�edm�t: Re: Neznam PARENT
V pripade, ze chces za behu vytvorit novy formular (napr. Form2) a v nem vytvorit novou komponentu TFileListBox, nemuzes napsat Self, ale formular. do ktereho bude skutecne patrit (napr. FileBox.parent:=Form2). Doufam, zes to tak myslel.
Zdar
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 17:23
P�edm�t: Neznam PARENT
Nedavno jsem se tady ptal jak to mam udelat kdyz za behu programu vytvorim
objekt TFileListBox abych mohl priradit nejakou cestu vlastnosti Directory.
to je vyreseno nasledujicim zpusobem
FileBox := TFileListBox.Create(Self);
FileBox.Parent := Self;
Jo, ale co kdyz si delam komponentu ve ktere chci pri vzniku taky vytvorit tento objekt. To mi nejde pise me to furt ze nemam prirazeny parent.
Takze sem usoudil ze to nejako SELF nebere.
prosim o porazeni co bych tam mohl priradit....
Predem diky..
Jak pouzit Sender u Formulare
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 9.6.1999 16:12:34
(Sender as TForm).DBGrid nemuze fungovat, protoze TForm nema property
DBGrid. Fungovalo by to, pokud by sis udelal predka, kter� by obsahoval
DBGridm vsechny formulare by byly potomkem tohoto predka a odkazoval by ses
(Sender as TPredek).DBGrid
Ale to se mi zda zbytecne slozite. Napis tu funkci jednoduseji:
procedure TfrmHledej.Napln( ADBGrid: TDBGrid)
-----P�vodn� zpr�va-----
Od: Pavel M. [SMTP:talema(zv)top(tec)cz]
Odesl�no: 9. �ervna 1999 13:34
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Re: Jak pouzit Sender u Formulare
Ale to je prave ono.
Mam formulare, na kterych jsou DBGridy napojene na datasource v Datamodulu,
no a potrebuji funkci v tom formulari, kde je ten ComboBox, ktera jej
naplni
prvni tremi sloupci z datasource, ktery je aktualni na tom Gridu. Ted to
volam
z kazdeho formulare zvlast a mam vsude stejne kod, tak jsem si rekl, ze by
to slo zjednodusit, ale neprisel jsem na to jak udelat zpravou syntaxi.
Pavel
----- Original Message -----
> Asi na to jdes ponekud nespravne. Spis bych si udelal funkci v tom
> formu, kde je combo, a gridy bych napojil na datasource v datamodule.
> Pak bych predaval do te funkce formu s comboboxem ten datasource,
> eventuelne jeste Tform a grid - pokud bych s tim chtel v te funkci nejak
> manipulovat.......tak bych to udelal ja. Ale nerekl jsi vsechno, mozna
> to tak udelat nemuzes.
>
> Martin Fron�k
> > ----- Original Message -----
> >
> > > > Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
> > > >
> > > > procedure TfmHledej.Napln(Sender: TForm);
> > > > var i : SmallInt ;
> > > > begin
> > > > for i := 0 to 2 do
> > > > begin
> > > > Sloupce.Items.Add ((Sender as
> > TForm).DBGrid.Columns[i].FieldName) ;
> > > > end;
> > > > HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> > > > HledanyText.FieldName := (Sender as
> > TForm).DBGrid.Columns[0].FieldName;
> > > > end;
> > >
> > > ... jak tak na to koukam, asi ti nefunguje to (Sender as
> > TForm).DBGrid
> > > ne? no, ja jenom nechapu, proc predavas Sender:TForm, kdyz ho
> > > pouzivas jenom pro adresovani toho Gridu, tak proc nepredavas primo
> > > ten DBGrid?
> >
> >
> > Ano nefunguje (Sender as TForm).DBGrid.
> > Mam nekolik formularu a na nich vzdy DBGrid. Potrebuji aby se provedlo
> > vzdy to stejne, ale pri zavolani z ruznuch formularu. Jenoduse receno
> > naplnuji ComboBox, prvnimi tremi sloupci vzdy z toho Gridu, ktery to
> > zavola.
> > Proto potrebuji identifikaci toho Formulare.
> > Nebo to jde nejak obejit ?
> >
> > Pavel M.
> >
> >
Neznam PARENT
[*] Pavel Vake� <Rocky(zv)podvodnik(tec)cz> - 9.6.1999 18:31:32
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
OWNER taky nefunguje. Pise to, ze to chce TWinControl a ja mu davam TComponent.
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 1999 17:24
P�edm�t: Re: Neznam PARENT
Skus FileBox.Parent := owner; {owner je formular}
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. j�n 1999 15:25
P�edm�t: Re: Neznam PARENT
To vim to funguje i kdyz dam SELF. ale ja to potrebuju pouzit v komponente a tam ani form1 nebo neco takovyho nefunguje.
-----P�vodn� zpr�va-----
Od: Ondrej Sterba <ondrej.sterba(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 21:28
P�edm�t: Re: Neznam PARENT
V pripade, ze chces za behu vytvorit novy formular (napr. Form2) a v nem vytvorit novou komponentu TFileListBox, nemuzes napsat Self, ale formular. do ktereho bude skutecne patrit (napr. FileBox.parent:=Form2). Doufam, zes to tak myslel.
Zdar
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 17:23
P�edm�t: Neznam PARENT
Nedavno jsem se tady ptal jak to mam udelat kdyz za behu programu vytvorim
objekt TFileListBox abych mohl priradit nejakou cestu vlastnosti Directory.
to je vyreseno nasledujicim zpusobem
FileBox := TFileListBox.Create(Self);
FileBox.Parent := Self;
Jo, ale co kdyz si delam komponentu ve ktere chci pri vzniku taky vytvorit tento objekt. To mi nejde pise me to furt ze nemam prirazeny parent.
Takze sem usoudil ze to nejako SELF nebere.
prosim o porazeni co bych tam mohl priradit....
Predem diky..
SQL Reprt Builder with barcode
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 9.6.1999 19:56:27
SQL Report Builder program, je na http://freeweb.coco(tec)cz/tungli
verzia 1.1c obsahuje aj tlac ciarovych kodov: EAN8, EAN13, Code39,... atd.
Demo je zadarmo
Predbezne ceny:
1 licensia 500 Sk
multilicensia 3000 Sk
TUNGLI Jan
tungli(zv)pvt.sk
Neznam PARENT
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 9.6.1999 19:58:15
Tak urob: xy.Parent := TWinControl(owner);
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. j�n 1999 18:25
P�edm�t: Re: Neznam PARENT
OWNER taky nefunguje. Pise to, ze to chce TWinControl a ja mu davam TComponent.
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 1999 17:24
P�edm�t: Re: Neznam PARENT
Skus FileBox.Parent := owner; {owner je formular}
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. j�n 1999 15:25
P�edm�t: Re: Neznam PARENT
To vim to funguje i kdyz dam SELF. ale ja to potrebuju pouzit v komponente a tam ani form1 nebo neco takovyho nefunguje.
-----P�vodn� zpr�va-----
Od: Ondrej Sterba <ondrej.sterba(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 21:28
P�edm�t: Re: Neznam PARENT
V pripade, ze chces za behu vytvorit novy formular (napr. Form2) a v nem vytvorit novou komponentu TFileListBox, nemuzes napsat Self, ale formular. do ktereho bude skutecne patrit (napr. FileBox.parent:=Form2). Doufam, zes to tak myslel.
Zdar
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 17:23
P�edm�t: Neznam PARENT
Nedavno jsem se tady ptal jak to mam udelat kdyz za behu programu vytvorim
objekt TFileListBox abych mohl priradit nejakou cestu vlastnosti Directory.
to je vyreseno nasledujicim zpusobem
FileBox := TFileListBox.Create(Self);
FileBox.Parent := Self;
Jo, ale co kdyz si delam komponentu ve ktere chci pri vzniku taky vytvorit tento objekt. To mi nejde pise me to furt ze nemam prirazeny parent.
Takze sem usoudil ze to nejako SELF nebere.
prosim o porazeni co bych tam mohl priradit....
Predem diky..
Jak se v Dlephi posilaji SMS (Paegas) !!!!
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 9.6.1999 23:15:37
Jo na Twistu to davaj automaticky
-----Puvodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. cervna 1999 15:43
Predmet: RE: Jak se v Dlephi posilaji SMS (Paegas) !!!!>Ja mam Twist a tam je automaticky a zcela
>zdarma zrizena emailova adresa
>+420603xxxxxx(zv)sms.paegac(tec)cz
>a pokud mi nekdo neco posle na
>xxxyyyy(zv)sms.paegas(tec)cz (tedy bez
>uvodniho +420603 tak mi to rovnez
>prijde v pohode, rychle a bez problemu.
>
>ALE 0603xxxyyy(zv)sms.paegas(tec)cz neprijde !
>
>> ----------
>> Je tedy videt, ze tato sluzba neni davana automaticky s cislem ...
>> (test na
>> tarifu manazer)
>>
>> Jarda.
>>
>>
>Spusteni programu pri konci Windows
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 9.6.1999 23:20:01
Dobry den,
nelze nejak udelat, aby se spusil jisty program pri ukoncovani Windows??
Neco jako obdoba AUTOEXEC, ted by to byl: ENDEXEC ;-)).
Hlavne nechci program, ktery by byl pusteny celou dobu (pustil se pri
zapnuti pocitace).
predem diky
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //OnPaint...
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.6.1999 06:59:45
Ahoj,
Potreboval bych radu jak prekreslit vizualni komonentu, ktera nema onpaint
event a prekresluje se jinak v IDE a jinak za behu.
Dekuji
Jaro B.Vysvetleni: GetDoc
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 10.6.1999 07:31:40
Hezky den,
prosim Vas nemohl by mi nekdo vysvetlit, jak pracuje
THTTP.OleObject.GetDoc(S, a, b) ??
1. Co jsou to ty promenne "a", "b" ?
2. Je nacten cely dokument a pote volana nejaka funkce na zpracovani?
3. Je volana funkce <neco>DocOutput a ta zjistuje nova data pres
DocOutput.GetData ?
(totiz zkoumam HTTP Control Demo z Delphi3)
predem diky
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //WM_KEYDOWN
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.6.1999 06:34:25
Ahoj,
zde je popis parametru z helpu k MSVC++:
The WM_KEYDOWN message is posted to the window with the keyboard focus
when a nonsystem key is pressed. A nonsystem key is a key that is
pressed when the alt key is not pressed.
WM_KEYDOWN
nVirtKey = (int) wParam; // virtual-key code
lKeyData = lParam; // key data
Parameters
nVirtKey
Value of wParam. Specifies the virtual-key code of the nonsystem
key.
lKeyData
Value of lParam. Specifies the repeat count, scan code,
extended-key flag, context code, previous key-state flag, and
transition-state flag, as shown in the following table.
Value Description
0-15 Specifies the repeat count for the current message. The value is
the number of times the keystroke is auto-repeated as a result of the
user holding down the key. If the keystroke is held long enough,
multiple messages are sent. However, the repeat count is not cumulative.
16-23 Specifies the scan code. The value depends on the original
equipment manufacturer (OEM).
24 Specifies whether the key is an extended key, such as the
right-hand alt and ctrl keys that appear on an enhanced 101- or 102-key
keyboard. The value is 1 if it is an extended key; otherwise, it is 0.
25-28 Reserved; do not use.
29 Specifies the context code. The value is always 0 for a
WM_KEYDOWN message.
30 Specifies the previous key state. The value is 1 if the key is
down before the message is sent, or it is 0 if the key is up.
31 Specifies the transition state. The value is always 0 for a
WM_KEYDOWN message.
----------------------
A tady je ukazka, kde jsem to pouzil, konkretne slo o emulaci stisknuti
Enter na ListControlu:
void CElsaClientDlg::OnOK()
{
::SendMessage(m_List.m_hWnd,WM_KEYDOWN,13,1);
(nejprve handle okna, kam to posilas a pak to ostatni)
//emulace Enteru na ListControlu
}
Zdravim a preji mnoho uspechu.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----Puvodn� zpr�va-----
> Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 9. cervna 1999 13:44
> Komu: #Delphi-K
> Predmet: WM_KEYDOWN
>
> Ahoj,
> mam jednoduchy problemek, se kterym si
> jiste budete vedet rady. Mam aplikaci,
> ta ma hlavni form a na nem nekolik TEdit-u
>
> Zjistim si handle toho okna (celeho formu)
> a chci mu poslat nejaky text a "odentrovat"
> tedy simulovat stisk nekolika klaves a potom
> ENETR-u. Ale nechci to poslat nejakemu
> konkretnimu Edit-u, ale tomu, ktery ma
> prave fokus.
>
> Zkousel jsem PostMessage(WM_KEYDOWN, ???)
> ale nevim, jake mam dat parametry.
>
> Ty API mi jeste moc nejdou.
>
> Diky za pomoc.
> Dobra.
>
>
>
> autoincrement na SQL serveru
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.6.1999 07:49:25
> -----Original Message-----
> From: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Sent: Tuesday, June 08, 1999 10:31 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: autoincrement na SQL serveru
>
>
> Nedavno tu na tohle tema byla obsirna diskuse. Podivej se do archivu.
> Slo o to, ze pro C/S
> programy je pouziti autoincrementu velmi nevhodne.
Negeneralizuj tady nazor nekolika
To tvrdil jenom nekdo. Nekdo, kdo si pripadal chytrejsi nez vsichni
programatori
velkych SQL Serveru, ktere autoinkrementy implementuji.
Naopak, prave autoinkrement je velmi vhodny,
nekde je to zvlastni datovy typ (na informixu je to serial), jinde
je to standardni typ s priznakem autoinkrement (napr. MS SQL Server,
Sybase SQL Server, SQL Anywhere,...).
> Naproti tomu ma server a SQL jazyk daleko
> sirsi a lepsi moznosti pro vyber a hledani pozadovanych informaci,
> takze potreba autoincrementu
> zpravidla odpada.
To je hloupost. Ale na druhou stranu neni jasne, na co chce Petr
autoinkrement pouzit. Nema smysl pouzivat tuto polozku na jine sloupce
nez primarni klice tabulek. Slouzi k identifikaci zaznamu, hodnota
techto atributu nema jako datova hodnota smysl.
> Je to spise zvyk. Ti kdoz prechazeji od tabulek na
> C/S se snazi programovat
> stejne. Nedovedou si predstavit jiny pohled na problem. Programy C/S
> jsou o necem zcela jinem nez
> o otevirani celych tabulek na klienta a vyhledavani informaci az na
> klientovi. To je ale na delsi
> diskusi.
Nechapu, proc sem neco takoveho pises. Dotaz znel na autoinkrementy
a tezko se z neho da vyvodit, jakym zpusobem kdo pracuje s daty.
Prave naopak, na me ten dotaz pusobi erudovane, protoze si nedokazu
predstavit pouziti autoinkrementu k nicemu jinemu nez identifikaci zaznamu.
A pokud to nekdo pouzival i na paradoxu, neco o databazich a databazovem
programovani vi, narozdil od nekoho, kdo tvrdi, ze "pro C/S programy je
pouziti autoincrementu velmi nevhodne".
A nesouhlasim s tvou definici C/S aplikace oproti Single aplikaci
pracujici s tabulkami. K datum ulozenym v databazi by mely spravne
napsane aplikace pristupovat stejnym zpusobem. Je jedno, jestli pres TTable,
TQuery nebo TStoredProc. Zalezi na vlastnostech konkretnich dat, ani v C/S
neni zadnym prohreskem pouzit na zobrazeni kratkeho ciselniku TTable.
Rozdil mezi temito dvema modely by mel byt v tom, ze co nejvetsi objem
prace s daty by mel byt presunut na stranu serveru.
> Pokud na teto metode trvas, pak pouzij Locate a pocitej s tim, ze to
> na velkych objebem dat bude
> spise zdrzovat. Muzes to ale klidne otevrit pres TTable a pracovat jak
> jsi byl zvykly s tabulkami.
> Bude to vsak vzdalene programum zalozenym na principech C/S
> Jaro
Takze Petre, nenech se zmast, pouzivej na MS SQL serveru typ Integer
s autoinkrementem k identifikaci zaznamu (primary key). V atributech,
ktere jsou referencnimi klici (vazba do tabulky s autoinkrementem),
pouzivej typ Integer.
Nevim, jestli jsi zacatecnik nebo pokrocily databazovy vyvojar,
ale jeste poznamku k tem autoinkrementum. Nekteri amateri (bez urazek -
neni amater jako amater, nenarazim na nektere z ucastniku konference),
kteri pouzivali autoinkrement, byli ve vyseuvedene diskusi zmateni,
ze po zkopirovani zaznamu do jine tabulky (stejne sloupce - taky
s autoinkrementem na stejnem atributu) byla hodnota v tomto sloupci jina.
Je to samozrejme spravne chovani, protoze kazda tabulka ma svuj
autoinkrement
a pokud chci UCHOVAVAT HODNOTU VYGENEROVANOU autoinkrementem, musim
pouzit 'obycejny' integer.
Jarovi - mozna Ti nektere vety pripadaly jako osobni utoky proti Tobe.
Nesnazil jsem se o to, ale pripoustim, ze to tak mohlo vyznit.
Chtel jsem jenom zamezit tomu, aby Petr uveril te hlouposti,
ze autoinkrementy nejsou na nic a snazil se bez nich obejit.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Jak pouzit Sender u Formulare
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.6.1999 07:58:10
> > Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
> >
> > procedure TfmHledej.Napln(Sender: TForm);
> > var i : SmallInt ;
> > begin
> > for i := 0 to 2 do
> > begin
> > Sloupce.Items.Add ((Sender as TForm).DBGrid.Columns[i].FieldName) ;
[JP] Tady pretypovavas TForm na typ TForm. Kdyz pouzijes
(Sender as TMujFormSDBGridem), bude Ti to fungovat.
> > end;
> > HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> > HledanyText.FieldName := (Sender as
> TForm).DBGrid.Columns[0].FieldName;
> > end;
>
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Ukladani properties do souboru
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 10.6.1999 07:58:13
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
V�era jsem posilal dotas jak zabranit ukladani nekterych properties do Streamu.
Studoval jsem podrobneji help k Delphi a narazil jsem na reseni problemu.
Za property staci uvest slovicko Stored jako parametr napsat hodnotu Boolean
True - uklada False - neuklada.
Priklad:
type
TSampleComponent = class(TComponent)
protected
function StoreIt: Boolean;
public { normally not stored }
property Important: Integer stored True; { properties je ukladana do Streamu }
published { normally stored always }
property Unimportant: Integer stored False; { properties neni ukladana do Streamu }
property Sometimes: Integer stored StoreIt; { properties je ukladana na zaklade hodnoty fce StoredIt}
end; S pozdravem
Jindrich Nikodem
-----P�vodn� zpr�va-----
Od: Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz>
Komu: Delphi f�rum <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 1999 9:04
P�edm�t: Ukladani properties do souboru
Ahoj,
v Delphi 4 vyuzivam ukladani vlastnosti VCL do souboru (Stream) a mam tento problem:
dynamicky vytvorim nejake objekty (TButton, TLabel, TImage...) a nastavim jejich vlastnosti. Pak ulozim cely Form do souboru (Streamu) a vse je jak ma byt.
Ale ja chci u nekterych objektu neukladat nejake vlastnosti, konkretne u TImage nechci ukladat vlastnost Picture, aby se mi do souboru neukladal obrazek.
Zbytecne to zvetsuje soubor.
Nevim jak definovat jednotlivym objektum, ktere properties chci a ktere nechci ukladat.
Predem dekuji
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
Thready a internet ;-) ;-)
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 10.6.1999 08:20:53
No tak to mate dobry,
me zase nastvaly Windowsy, pujcovat CDo Linuxu se mi nechce, no a Unix,
to urcite ne. Takze jsem se dal do programovani vlastniho systemu. Vsechno
vcetne multitaskingu je jednoduchy, vlastne to uz mam cely hotovy, akorat
nevim jak se da softwarove vypnout pocitac. No asi s tim seknu! ;-)
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
-----P�vodn� zpr�va-----
Od: Jan Pukovec <pukovec2(zv)edunet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 27. kv�tna 1999 20:09
P�edm�t: Thready a internet
>
>Cau lidi,
>mam takovy docela velky problem. Uz mne stve Internet Explorer a slozite
>nastavovani proxy serveru, takze jsem uvazoval, ze si vytvorim svuj vlastni
>web browser. Pro jedno okno je to docela jednoduchy, horsi uz to ale je
>udelat multithreadove, tak aby to fungovalo treba pro tricet oken - at zije
>poradna zatez :-) Myslite ze je to vubec mozne ? Chtel bych docilit toho,
>abych byl rychlostne omezovan v podstate jenom prenosovou rychlosti a ne
>procesorem - zkousel jsem neco s threadama udelat, ale uz i pri trech
>threadech byl procesor P II na 100% a ostatni aplikace se nechtely hybat.
>Nejdulezitejsi pro mne prozatim je pouzivat metody GET a POST protokolu
>HTTP.
>Dokazal by tedy nekdo nejaky multithreadovy browser sestrojit nebo mate
>alespon jeho cast jiz naprogramovanou ? Byl bych vam strasne vdecny.
>
>Diky za brzkou odpoved.
>
>Jan Pukovec
>pukovec2(zv)edunet(tec)cz
>P�evod zem.souradnic na pixely
[*] jslavice(zv)vce(tec)cz - 10.6.1999 08:20:05
Vazeni pratele Delphi,
v mape Ceske republiky chci zobrazit urcita zajimava mista (napr.
koleckem), ktera jsou specifikovana zemepisnymi souradnicemi. Neznam
vzorecek, kterym by se vypocital pixel ze zemepisne souradnice, kdyz znam
zemepisnou souradnici rohu mapy. Nejsem odbornik na geografickou matematiku
a tak prosim o pomoc. Staci mi vzorecek (rovnici), funkce v Delphi si
vytvorim sam. Dekuji predem.
Josef Slavicek
Bitmapy do formularu
[*] jslavice(zv)vce(tec)cz - 10.6.1999 08:26:27
Vazeni pratele,
nevite nekdo, kde bych mohl sehnat bitmapove soubory (napr. omitka,
zed, mramor, tkaniny, drevo, koberce, atd.), ktere chci pouzit do ruznych
komponent pro vytvoreni pozadi ve formulari. Zatim se mi nepodarilo objevit
zadnou webovou stranku, odkud bych si to mohl ztahnout. Dekuji za radu.
Josef Slavicek
Pomoc zacatecnikovi
[*] Tonda Kmoch <t.kmoch(zv)seznam(tec)cz> - 10.6.1999 08:27:11
Dobry den lidi,
uz nejakou tu dobu delam v Pascalu ale dnesni doba me nuti se taky nejak
tak venovat Visualum. Ale samouceni mi jde o hodne hur nez napr. v Pascalu.
Nevite nekdo o nejakych strankach (mimo ty oficialni), kde by se nasly
nejaky hezky programky (ev. s dokumentaci, popisy) ?
mockrat predem diky
// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //WM_KEYDOWN
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.6.1999 08:37:54
Ahoj,
diky, ale muj problem je v tom, ze to posilam do cizi aplikace,
a mam problem zjistit handle toho TWinControl-u, navic, bych to
chtel poslat i do formularoveho policka na nejake HTML strance
na internetu prostrednictvim prohlizece (vite co myslim ?).
A jeste navic, chtel udelat tak, aby to fungovalo i v priapde
ze je na Formu vice TEdit-u a ja bych to poslal tomu Formu a on
by to uz dosadil do toho TEdit-u, ktery ma focus, tzn. ze pokud
by se uzivatel prepnul (treba tabulatorem) do jineho Edit-u, aby
to ten muj program poslal do toho "noveho".
(Mozna by slo se nejak dotazat toho formu, ktery prvek je aktivni,
a tomu to potom poslat, ale na to me znalosti zatim jeste nestaci)
Na hledani Handle okna jsem zkousel pouzit funkci SearchForWindow
od Petra Vonese, ale nejde mi to prelozit, hlasi mi to chybu hned
na prvnim radku (mam D3 a vadi tam to rovnitko); Src te fce je
az na konci tohoto dopisu.
BTW(0): Nemel bys posilat i WM_KEYUP ?
BTW(1): Neni mi uplne jasny ten posledni
parameter, pokud jsem dal 0,1 nebo 10
chovalo se to vzdy stejne. Poslalo to ten
znak jen jednou.
---Puvodni zprava------------------------
> A tady je ukazka, kde jsem to pouzil, konkretne slo o emulaci
> stisknuti
> Enter na ListControlu:
>
> void CElsaClientDlg::OnOK()
> {
> ::SendMessage(m_List.m_hWnd,WM_KEYDOWN,13,1);
> (nejprve handle okna, kam to posilas a pak to ostatni)
> //emulace Enteru na ListControlu
> }
>
>
------------------------------------------
function SearchForWindow(const Search: String; ParentWnd: HWND = 0):
HWND;
type // Parametr Search - '<ClassName>,<WindowText>,<Poradi>; ....'
PSearchWndRec = ^TSearchWndRec;
TSearchWndRec = record
FindClassName: String;
FindWindowText: String;
EnumCount: Integer;
FoundWnd: HWND;
FindPosition: Integer;
end;
var
SearchPos, StartPos, EndClassPos, EndTextPos, EndRecPos: Integer;
SearchWndRec: TSearchWndRec;
P: PChar;
function EnumChildProc(Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
var
ClassName, WindowText: array[0..127] of Char;
begin
GetClassName(Wnd, ClassName, Sizeof(ClassName));
GetWindowText(Wnd, WindowText, Sizeof(WindowText));
with PSearchWndRec(LParam)^ do
begin
if (FindClassName = ClassName) and
((FindWindowText = '') or (FindWindowText = WindowText)) then
Inc(EnumCount);
if EnumCount = FindPosition then
begin
FoundWnd := Wnd;
Result := False;
end else Result := True;
end;
end;
begin
SearchWndRec.FoundWnd := 0;
SearchPos := 1;
StartPos := 1;
EndClassPos := 0;
EndTextPos := 0;
EndRecPos := 0;
if ParentWnd = 0 then ParentWnd := GetDesktopWindow;
while SearchPos <= Length(Search) do
begin
case Search[SearchPos] of
',': if EndClassPos = 0 then EndClassPos := SearchPos else
EndTextPos := SearchPos;
';': EndRecPos := SearchPos;
end;
if (EndRecPos > 0) and (EndClassPos > 0) and (EndTextPos > 0) then
with SearchWndRec do
begin
FindClassName := Copy(Search, StartPos, EndClassPos - StartPos);
FindWindowText := Copy(Search, EndClassPos + 1, EndTextPos -
EndClassPos - 1);
FindPosition := StrToInt(Copy(Search, EndTextPos + 1, EndRecPos -
EndTextPos - 1));
EnumCount := 0;
FoundWnd := 0;
if FindPosition = 1 then
begin
if FindWindowText = '' then P := nil else P :=
PChar(FindWindowText);
FoundWnd := FindWindowEx(ParentWnd, 0, PChar(FindClassName), P);
end else
EnumChildWindows(ParentWnd, (zv)EnumChildProc,
Integer((zv)SearchWndRec));
if FoundWnd = 0 then Break else ParentWnd := FoundWnd;
StartPos := SearchPos + 1;
EndClassPos := 0;
EndTextPos := 0;
EndRecPos := 0;
end;
Inc(SearchPos);
end;
Result := SearchWndRec.FoundWnd;
end;Browser COM objektu ala class explorer
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 10.6.1999 08:48:39
Tak az to zjistis, tak mi dej vedet, ja bych to taky docela bral. Asi by to
slo pres TLB knihovny nebo pokud COM objekt implementuje IDispatch, tak
udelat jeho instanci a pres IDispatch zjistit vse, co potrebujes.
Viktor
Jak pouzit Sender u Formulare
[*] Pavel M. <talema(zv)top(tec)cz> - 10.6.1999 09:12:06
----- Original Message -----
From: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>>
> > > Chtel pouzit nalsedujici funkci pro volani z ruznych formulari
> > >
> > > procedure TfmHledej.Napln(Sender: TForm);
> > > var i : SmallInt ;
> > > begin
> > > for i := 0 to 2 do
> > > begin
> > > Sloupce.Items.Add ((Sender as TForm).DBGrid.Columns[i].FieldName)
;
>
> [JP] Tady pretypovavas TForm na typ TForm. Kdyz pouzijes
> (Sender as TMujFormSDBGridem), bude Ti to fungovat.
No jo, ale TMujFormSDBGridem muze mit 10 ruznych hodnot (chci to volat z
ruznych
formularu).
Pavel
>
> > > end;
> > > HledanyText.Table := (Sender as TForm).DBGrid.DataSource;
> > > HledanyText.FieldName := (Sender as
> > TForm).DBGrid.Columns[0].FieldName;
> > > end;
> >
>
> Jura
> ----------
> Jiri Polak
> e-mail:jura.polak(zv)email(tec)cz
> jiri.polak(zv)tconsult(tec)cz
> web :http://freeweb.coco(tec)cz/jpolak
> ----------
> The only good bug, is a dead bug!
Jak pouzit Sender u Formulare
[*] Pavel M. <talema(zv)top(tec)cz> - 10.6.1999 09:16:34
> (Sender as TForm).DBGrid nemuze fungovat, protoze TForm nema property
> DBGrid. Fungovalo by to, pokud by sis udelal predka, kter� by obsahoval
> DBGridm vsechny formulare by byly potomkem tohoto predka a odkazoval by
ses
> (Sender as TPredek).DBGrid
>
> Ale to se mi zda zbytecne slozite. Napis tu funkci jednoduseji:
>
> procedure TfrmHledej.Napln( ADBGrid: TDBGrid)
>
To zni zajimave. Ja mam design udelany prave jak rikas, protoze, vsechny ty
formulare
jsou potomci jineho na kterem je prave ten DBGird.
U te druhe varianty, tomu moc nerozumim, ale zkusim to vyzkouset. Nevim jak
to bude probihat,
protoze DBGrid se jmenuje porad stejne, jen je na ruznych Forms.
Pavel
autoincrement na SQL serveru
[*] ing. Ale� Da�a - 10.6.1999 09:17:07
Necetl jsem posledni diskusi o autoincrementu, ale nechapu proc by melo byt
nevhodne pouzit autoincrement na primarni klic tabulky. Napr. hlavicka
faktury bude mit vygenerovane jedinecne cislo a toto cislo se pouzije jako
primarni klic i v tabulce, kde jsou ulozeny polozky faktury (+poradi vety).
Pak SQL dotazem si z tabulky hlavicek faktur vyberu ty ktere potrebuji
(napr. ucetni obdobi, datum vystaveni...) a pak pres dalsi SQL dotaz na toto
generovane cislo si vyberu z polozek faktur potrebne vety. Toto se mi zda
jednodussi na udrzbu vazeb mezi tabulkami (napr. jednoducha zmena cisla
faktury).
Ales Dana
�
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Jaro
Odesl�no: 8. �ervna 1999 22:31
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: autoincrement na SQL serveru
Nedavno tu na tohle tema byla obsirna diskuse. Podivej se do archivu.
Slo o to, ze pro C/S
programy je pouziti autoincrementu velmi nevhodne. Naproti tomu ma
server a SQL jazyk daleko
sirsi a lepsi moznosti pro vyber a hledani pozadovanych informaci,
takze potreba autoincrementu
zpravidla odpada. Je to spise zvyk. Ti kdoz prechazeji od tabulek na
C/S se snazi programovat
stejne. Nedovedou si predstavit jiny pohled na problem. Programy C/S
jsou o necem zcela jinem nez
o otevirani celych tabulek na klienta a vyhledavani informaci az na
klientovi. To je ale na delsi
diskusi.
Pokud na teto metode trvas, pak pouzij Locate a pocitej s tim, ze to
na velkych objebem dat bude
spise zdrzovat. Muzes to ale klidne otevrit pres TTable a pracovat jak
jsi byl zvykly s tabulkami.
Bude to vsak vzdalene programum zalozenym na principech C/S
Jaro
------------------------------------------
>Ahoj
>
>potrebuji udelat neco podobneho jako je increment v tabulkach
paradoxu ale ja to potrebuji udelat na MS SQL serveru verze 6.5
>
>nevim jak poradi nekdo ???
>
>
>
>-- http://email.seznam(tec)cz
>-- email zdarma na cely zivot
Bitmapy do formularu
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 10.6.1999 09:23:35
Zkus
http://www.purescience.com/delphi/download.htm
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> nevite nekdo, kde bych mohl sehnat bitmapove soubory (napr. omitka,
> zed, mramor, tkaniny, drevo, koberce, atd.), ktere chci pouzit do ruznych
> komponent pro vytvoreni pozadi ve formulari. Zatim se mi nepodarilo objevit
> zadnou webovou stranku, odkud bych si to mohl ztahnout. Dekuji za radu.
>
> Josef Slavicek
> Prijimaci_buffer
[*] Dan Komosny <dan(zv)list.skm.vutbr(tec)cz> - 10.6.1999 09:58:25
Zdravim v�echny
Mam problem s prijimacim bufferem, do ktereho ctu data co me prijdou na seriov� port (com1). V nejakem casovem intervalu ( napr. 10 ms ) prectu vse co mi na com prislo cyklem while ...do
Timer (10ms)
while (fileread(Port2,b,2)=2) do
begin
inc(x);
prijimanci buffer[x]:=b;
//napr. :
edit1.text:=inttostr(b);
//atd......
end;
Problem je v tom , ze do editky se me nic nenapise. Kdyz program trasuju, radek s prikazem se akceptuje.
Domnivam se , ze je to tim, jak jednou do toho cyklu vlezu , uz se s neho nedostanu ( bud data chodi prilis rychle , nebo se vnitrek cylku neprovadi dostatecne rychle ) a tudiz se nema kdy provest vykresleni na obrazovku.
Veskere napady jak toto usetrit s radosti uvitam
Dan
Neznam PARENT
[*] Pavel Vake� <Rocky(zv)podvodnik(tec)cz> - 10.6.1999 10:04:26
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Diky moc TWinControl(Owner) funguje...
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 1999 20:43
P�edm�t: Re: Neznam PARENT
Tak urob: xy.Parent := TWinControl(owner);
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. j�n 1999 18:25
P�edm�t: Re: Neznam PARENT
OWNER taky nefunguje. Pise to, ze to chce TWinControl a ja mu davam TComponent.
-----P�vodn� zpr�va-----
Od: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. �ervna 1999 17:24
P�edm�t: Re: Neznam PARENT
Skus FileBox.Parent := owner; {owner je formular}
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. j�n 1999 15:25
P�edm�t: Re: Neznam PARENT
To vim to funguje i kdyz dam SELF. ale ja to potrebuju pouzit v komponente a tam ani form1 nebo neco takovyho nefunguje.
-----P�vodn� zpr�va-----
Od: Ondrej Sterba <ondrej.sterba(zv)iol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 21:28
P�edm�t: Re: Neznam PARENT
V pripade, ze chces za behu vytvorit novy formular (napr. Form2) a v nem vytvorit novou komponentu TFileListBox, nemuzes napsat Self, ale formular. do ktereho bude skutecne patrit (napr. FileBox.parent:=Form2). Doufam, zes to tak myslel.
Zdar
-----P�vodn� zpr�va-----
Od: Pavel Vake� <Rocky(zv)podvodnik(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. �ervna 1999 17:23
P�edm�t: Neznam PARENT
Nedavno jsem se tady ptal jak to mam udelat kdyz za behu programu vytvorim
objekt TFileListBox abych mohl priradit nejakou cestu vlastnosti Directory.
to je vyreseno nasledujicim zpusobem
FileBox := TFileListBox.Create(Self);
FileBox.Parent := Self;
Jo, ale co kdyz si delam komponentu ve ktere chci pri vzniku taky vytvorit tento objekt. To mi nejde pise me to furt ze nemam prirazeny parent.
Takze sem usoudil ze to nejako SELF nebere.
prosim o porazeni co bych tam mohl priradit....
Predem diky..
BatchMove
[*] Ing. Daniel Ficek <ficek(zv)hstech(tec)cz> - 10.6.1999 10:04:13
Ahoj,
Potrebuji exportovat data z SQL do obycejneho TXT souboru. Chci
pouzit TBatchMove. Nikdy predtim jsem s nim nepracoval, ale vypada to ze
je to presne to co potrebuji. Mam TQuery (v nem poustim SQL dotaz) a
TTable (ttASCII - tam budu exportovat). TBatchMove.Mode mam batCopy. Po
TBatchMove.Execute se data skutecne nasypou do TXT. Potud vse dobry. Ale
mam dva problemky:
1/ Potrebuji exportovat jen nektere sloupce - cesta nejspis pres SCH
soubor ale nenasel jsem jeho popis. Nevi nekdo?
2/ Na prvni radek potrebuji napsat jmena exportovanych poli. Nake
napady?
Diky
Ing. Daniel Ficek
P�evod zem.souradnic na pixely
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.6.1999 10:08:02
>
> v mape Ceske republiky chci zobrazit urcita zajimava mista (napr.
>koleckem), ktera jsou specifikovana zemepisnymi souradnicemi. Neznam
>vzorecek, kterym by se vypocital pixel ze zemepisne souradnice, kdyz znam
>zemepisnou souradnici rohu mapy. Nejsem odbornik na geografickou matematiku
>a tak prosim o pomoc. Staci mi vzorecek (rovnici), funkce v Delphi si
>vytvorim sam. Dekuji predem.
1) souradnych systemu je vice
2) nejjednodussi je asi pouzit metodu referencniho bodu - zvolit si napr
Prahu jako stred soustavy a ostatni
mista vynaset relativne vuci ni. Vzhledem velikost mapy bude asi chyba
nulova. V pripade souradnic z GPS (WGS84) by melo stacit jen odecist uhly a
spocitat posun v pixelech.
Zdravi
D. Toman
SQL a retezec
[*] delphi(zv)alf.dingo(tec)cz - 10.6.1999 08:09:14 gmt
Myslim, ze je to potreba trochu vysvetlit:
Program, ktery delam je na zakazku do jedne prispevkove organizace.
Pouzivaji tam ucetni sitovy program ve Foxce (je 2000 ready)
a na ucetnictvi je dost dobrej.
Muj program obhosporaduje evidenci clenu, okres. sdruzeni atd.
Musi brat on-line data a mino jine zobrazovat neplatice.
S tabulkama ucetnictvi nemuzu hejbat.
Ja to mam funkcni, ale bere to vetu po vete a trva to prilis dlouho.
Jediny co me brzdi od stesti je to orezani blbych poslednich 4 znaku
a jeste je na potvoru ten retezec ruzne dlouhej. No proste bes.
Bob
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Mal� Dobromil
> Odesl�no: 9. �ervna 1999 11:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: SQL a retezec
>
>
> A neslo by tedy vytvorit nejakou "konverzni"
> utilitku, ktery by Ti vzdy, kdyz dostanes
> od te treti strany ta data, projela celou
> tu tabulku a drobet ji upravila ? Bude to
> zrejme zaviset na tom, ja casto ji dostavate.
>
> D.
>
> > ----------
> > > ----------
> > > Pominme fakt, ze jako ID pouzivat retezec
> > > neni zrovna 2x prozirave
> >
> > S tim retezcem to nebyl muj napdad.
> > Ja v te sve druhe tabulce mam ID jako cislo,
> > ale ta prvni tabulka je od treti strany a ten retezec ja Variabilni
> > symbol
> > z banky, takze s tim hnout nemuzu. Ja potom akorat prirazuju platby
> > podle ID z toho retezce.
> >
> >
> Ikony
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 10.6.1999 10:26:36
Nevite nekdo, kde sehnat nejake pekne, mnohabarevne (nejmin 256) a vetsi
(48*48) ikony? Nejake to ukladani na disk, tisk atp. Dik. Viktor
Browser COM objektu ala class explorer
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 10.6.1999 10:28:51
Viktor Lostak wrote:
> Tak az to zjistis, tak mi dej vedet, ja bych to taky docela bral. Asi by to
> slo pres TLB knihovny nebo pokud COM objekt implementuje IDispatch, tak
> udelat jeho instanci a pres IDispatch zjistit vse, co potrebujes.
> Viktor
Pro zajemce, nasel jsem to podle drive uvedenho jmena (ale po dlouhem hledani,
stranky Mrkvosoftu jsou obcas docela neprehledne...) napr. na tehle adrese:
http://www.eu.microsoft.com/com/resources/oleview.asp
Bye
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
</TT>
DOS promenne + 16bit Delphi
[*] V. Nikel <vladimir.nikel(zv)vitkovice(tec)cz> - 10.6.1999 10:30:07
Dobry den,
mam nasledujici problem: v 16bit Delphi potrebuju cist a nastavovat
DOSovske promenne ( SET neco=neco ), navic ne jenom pro
danou instanci programu ale obecne, tak jako by byly nastavene v
autoexec.bat pred spustenim windows.
Nevite nahodou nekdo jak by to slo udelat? Prohledal jsem API
funkce ale nic jsem nenasel...
Diky za kazkou pomoc
V. Nikel
TCanvas
[*] Honza Fiala <fala(zv)imc(tec)cz> - 10.6.1999 10:31:26
Ahojte,
asi mam takovy trivialni dotaz, ale muzete mi nekdo poradit jak mam
vytvorit TCavas a neco v nem namalovat. V podstate chci udelat objekt
trojuhelnik a ten vlozit do formulare na urcitou pozici. Vsiml jsem si, ze
TForm ma v sobe property Canvas, ale nechtel bych porad propocitavat kam ten
trojuhelnik umistnit.
Dik
Honza Fiala
autoincrement na SQL serveru
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 10.6.1999 10:37:36
Ackoli jsem zpola cech, pridavam se k Polakovi. -) Jen bych chtel dodat, ze
nejen Autoinkrement, ale take Timestamp je nekdy uzitecny. Plni stejnou
funkci jako autoinkrement a navic nese informaci o okamziku zalozeni
zaznamu.
-----P�vodn� zpr�va-----
Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
Odesl�no: 10. �ervna 1999 7:49
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: autoincrement na SQL serveru
> -----Original Message-----
> From: Jaro [mailto:jaro(zv)sinea(tec)cz]
> Sent: Tuesday, June 08, 1999 10:31 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: autoincrement na SQL serveru
>
>
> Nedavno tu na tohle tema byla obsirna diskuse. Podivej se do archivu.
> Slo o to, ze pro C/S
> programy je pouziti autoincrementu velmi nevhodne.
Negeneralizuj tady nazor nekolika
To tvrdil jenom nekdo. Nekdo, kdo si pripadal chytrejsi nez vsichni
programatori
velkych SQL Serveru, ktere autoinkrementy implementuji.
Naopak, prave autoinkrement je velmi vhodny,
nekde je to zvlastni datovy typ (na informixu je to serial), jinde
je to standardni typ s priznakem autoinkrement (napr. MS SQL Server,
Sybase SQL Server, SQL Anywhere,...).
> Naproti tomu ma server a SQL jazyk daleko
> sirsi a lepsi moznosti pro vyber a hledani pozadovanych informaci,
> takze potreba autoincrementu
> zpravidla odpada.
To je hloupost. Ale na druhou stranu neni jasne, na co chce Petr
autoinkrement pouzit. Nema smysl pouzivat tuto polozku na jine sloupce
nez primarni klice tabulek. Slouzi k identifikaci zaznamu, hodnota
techto atributu nema jako datova hodnota smysl.
> Je to spise zvyk. Ti kdoz prechazeji od tabulek na
> C/S se snazi programovat
> stejne. Nedovedou si predstavit jiny pohled na problem. Programy C/S
> jsou o necem zcela jinem nez
> o otevirani celych tabulek na klienta a vyhledavani informaci az na
> klientovi. To je ale na delsi
> diskusi.
Nechapu, proc sem neco takoveho pises. Dotaz znel na autoinkrementy
a tezko se z neho da vyvodit, jakym zpusobem kdo pracuje s daty.
Prave naopak, na me ten dotaz pusobi erudovane, protoze si nedokazu
predstavit pouziti autoinkrementu k nicemu jinemu nez identifikaci zaznamu.
A pokud to nekdo pouzival i na paradoxu, neco o databazich a databazovem
programovani vi, narozdil od nekoho, kdo tvrdi, ze "pro C/S programy je
pouziti autoincrementu velmi nevhodne".
A nesouhlasim s tvou definici C/S aplikace oproti Single aplikaci
pracujici s tabulkami. K datum ulozenym v databazi by mely spravne
napsane aplikace pristupovat stejnym zpusobem. Je jedno, jestli pres
TTable,
TQuery nebo TStoredProc. Zalezi na vlastnostech konkretnich dat, ani v C/S
neni zadnym prohreskem pouzit na zobrazeni kratkeho ciselniku TTable.
Rozdil mezi temito dvema modely by mel byt v tom, ze co nejvetsi objem
prace s daty by mel byt presunut na stranu serveru.
> Pokud na teto metode trvas, pak pouzij Locate a pocitej s tim, ze to
> na velkych objebem dat bude
> spise zdrzovat. Muzes to ale klidne otevrit pres TTable a pracovat jak
> jsi byl zvykly s tabulkami.
> Bude to vsak vzdalene programum zalozenym na principech C/S
> Jaro
Takze Petre, nenech se zmast, pouzivej na MS SQL serveru typ Integer
s autoinkrementem k identifikaci zaznamu (primary key). V atributech,
ktere jsou referencnimi klici (vazba do tabulky s autoinkrementem),
pouzivej typ Integer.
Nevim, jestli jsi zacatecnik nebo pokrocily databazovy vyvojar,
ale jeste poznamku k tem autoinkrementum. Nekteri amateri (bez urazek -
neni amater jako amater, nenarazim na nektere z ucastniku konference),
kteri pouzivali autoinkrement, byli ve vyseuvedene diskusi zmateni,
ze po zkopirovani zaznamu do jine tabulky (stejne sloupce - taky
s autoinkrementem na stejnem atributu) byla hodnota v tomto sloupci jina.
Je to samozrejme spravne chovani, protoze kazda tabulka ma svuj
autoinkrement
a pokud chci UCHOVAVAT HODNOTU VYGENEROVANOU autoinkrementem, musim
pouzit 'obycejny' integer.
Jarovi - mozna Ti nektere vety pripadaly jako osobni utoky proti Tobe.
Nesnazil jsem se o to, ale pripoustim, ze to tak mohlo vyznit.
Chtel jsem jenom zamezit tomu, aby Petr uveril te hlouposti,
ze autoinkrementy nejsou na nic a snazil se bez nich obejit.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!
WM_KEYDOWN
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 10.6.1999 10:40:02
[P��loha v souboru: klikani.zip]
Ahoj,
na detekci spustenych oken a jejich objektu pouzivam tento programek.
Jirka Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. �ervna 1999 9:24
P�edm�t: RE: WM_KEYDOWN
>Ahoj,
> diky, ale muj problem je v tom, ze to posilam do cizi aplikace,
>a mam problem zjistit handle toho TWinControl-u, navic, bych to
>chtel poslat i do formularoveho policka na nejake HTML strance
>na internetu prostrednictvim prohlizece (vite co myslim ?).
>
> A jeste navic, chtel udelat tak, aby to fungovalo i v priapde
>ze je na Formu vice TEdit-u a ja bych to poslal tomu Formu a on
>by to uz dosadil do toho TEdit-u, ktery ma focus, tzn. ze pokud
>by se uzivatel prepnul (treba tabulatorem) do jineho Edit-u, aby
>to ten muj program poslal do toho "noveho".
>(Mozna by slo se nejak dotazat toho formu, ktery prvek je aktivni,
>a tomu to potom poslat, ale na to me znalosti zatim jeste nestaci)
>
>Na hledani Handle okna jsem zkousel pouzit funkci SearchForWindow
>od Petra Vonese, ale nejde mi to prelozit, hlasi mi to chybu hned
>na prvnim radku (mam D3 a vadi tam to rovnitko); Src te fce je
>az na konci tohoto dopisu.
>
>BTW(0): Nemel bys posilat i WM_KEYUP ?
>BTW(1): Neni mi uplne jasny ten posledni
>parameter, pokud jsem dal 0,1 nebo 10
>chovalo se to vzdy stejne. Poslalo to ten
>znak jen jednou.
>---Puvodni zprava------------------------
>> A tady je ukazka, kde jsem to pouzil, konkretne slo o emulaci
>> stisknuti
>> Enter na ListControlu:
>>
>> void CElsaClientDlg::OnOK()
>> {
>> ::SendMessage(m_List.m_hWnd,WM_KEYDOWN,13,1);
>> (nejprve handle okna, kam to posilas a pak to ostatni)
>> //emulace Enteru na ListControlu
>> }
>>
>>
>------------------------------------------
>
>function SearchForWindow(const Search: String; ParentWnd: HWND = 0):
>HWND;
>type // Parametr Search - '<ClassName>,<WindowText>,<Poradi>; ....'
> PSearchWndRec = ^TSearchWndRec;
> TSearchWndRec = record
> FindClassName: String;
> FindWindowText: String;
> EnumCount: Integer;
> FoundWnd: HWND;
> FindPosition: Integer;
> end;
>var
> SearchPos, StartPos, EndClassPos, EndTextPos, EndRecPos: Integer;
> SearchWndRec: TSearchWndRec;
> P: PChar;
>
> function EnumChildProc(Wnd: HWND; LParam: LPARAM): BOOL; stdcall;
>var
> ClassName, WindowText: array[0..127] of Char;
>begin
> GetClassName(Wnd, ClassName, Sizeof(ClassName));
> GetWindowText(Wnd, WindowText, Sizeof(WindowText));
> with PSearchWndRec(LParam)^ do
> begin
> if (FindClassName = ClassName) and
> ((FindWindowText = '') or (FindWindowText = WindowText)) then
>Inc(EnumCount);
> if EnumCount = FindPosition then
> begin
> FoundWnd := Wnd;
> Result := False;
> end else Result := True;
> end;
>end;
>
>begin
> SearchWndRec.FoundWnd := 0;
> SearchPos := 1;
> StartPos := 1;
> EndClassPos := 0;
> EndTextPos := 0;
> EndRecPos := 0;
> if ParentWnd = 0 then ParentWnd := GetDesktopWindow;
> while SearchPos <= Length(Search) do
> begin
> case Search[SearchPos] of
> ',': if EndClassPos = 0 then EndClassPos := SearchPos else
>EndTextPos := SearchPos;
> ';': EndRecPos := SearchPos;
> end;
> if (EndRecPos > 0) and (EndClassPos > 0) and (EndTextPos > 0) then
> with SearchWndRec do
> begin
> FindClassName := Copy(Search, StartPos, EndClassPos - StartPos);
> FindWindowText := Copy(Search, EndClassPos + 1, EndTextPos -
>EndClassPos - 1);
> FindPosition := StrToInt(Copy(Search, EndTextPos + 1, EndRecPos -
>EndTextPos - 1));
> EnumCount := 0;
> FoundWnd := 0;
> if FindPosition = 1 then
> begin
> if FindWindowText = '' then P := nil else P :=
>PChar(FindWindowText);
> FoundWnd := FindWindowEx(ParentWnd, 0, PChar(FindClassName), P);
> end else
> EnumChildWindows(ParentWnd, (zv)EnumChildProc,
>Integer((zv)SearchWndRec));
> if FoundWnd = 0 then Break else ParentWnd := FoundWnd;
> StartPos := SearchPos + 1;
> EndClassPos := 0;
> EndTextPos := 0;
> EndRecPos := 0;
> end;
> Inc(SearchPos);
> end;
> Result := SearchWndRec.FoundWnd;
>end;
>THUNK, FLAT THUNK -- kdopak jiz slysel tento termi
[*] onci(zv)email(tec)cz - 10.6.1999 10:47:42
Pri programovani DLL v Pascalu jsem narazil na problem pouziti techto
16-bitovych knihoven v 32-bitovem Delphi. Slysel jiz nekdo z Vas o
technice pouziti 16bit DLL z 32bitove aplikace? Myslim, ze tato technika
pouziva termin THUNK nebo FLAT THUNK.
Dekuji za jakoukoliv odpoved
Ondrej Cilek
spravce pocitacove site
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
BatchMove
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 10.6.1999 11:00:05
>1/ Potrebuji exportovat jen nektere sloupce - cesta nejspis pres SCH
>soubor ale nenasel jsem jeho popis. Nevi nekdo?
bde32.hlp - Schema File
s pozdravem JF ...TStealth
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 10.6.1999 11:02:28
Dobry den,
Jiz nekolikrat touhle konferenci proletela komponenta Stealth,ktera ma
schovan aplikaci ze seznamu uloh CTRL+ALT+DELETE. To ona opravdu umi, ale
prave jsem dosel na vazny bug - aplikace se neschova v seznamu ALT+TAB !
Jakym zpusobem muzu skryt aplikaci jeste z tohoto seznamu?
diky PAVEL
THUNK, FLAT THUNK -- kdopak jiz slysel tento termi
[*] Jirka Fejfar <fejfarj(zv)iol(tec)cz> - 10.6.1999 11:13:29
http://www.itecuk.com/delmag/thunk95.htm
mailslot
[*] atc(zv)email(tec)cz - 10.6.1999 11:32:33
Ahoj,
potreboval bych poradit, jak mam na pocitaci najit seznam vsech
vytvorenych mailslotu, nebo zjistit, ktera aplikace pouziva mailsloty a
jake? Staci mi nakopnouti spravnym smerem ..... Diky
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Jak pouzit Sender u Formulare
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 10.6.1999 11:40:45
OK. Skus to s tim predkem.
K te druhe variante - nepredavas jako parametr jmeno komponenty, ale jeji
adresu !!! Datovy typ TDBGrid neni v podstate nic jineho, nez adresa, kde
ten DBGrid je. (Programatori me zaskrti, ze jsem to prilis zjednodusil, ale
mi v praxi takove priblizeni staci). Z toho plyne, ze je zcela lhostejne,
jak se ty DBGridy jmenuji.
Priklad:
Form1 obsahuje ComboBox a public metodu TForm1.Napln( ADBGrid: TDBGrid ) ;
Form2 obsahuje DBGrid
Form3 obsahuje DBGrid
Form4 obsahuje DBGrid4
Na Form2 pak mohu zavolat
Form1.Napln( DBGrid ) ;
Na Form3 mohu zavolat
Form1.Napln( DBGrid ) ;
Na Form4 mohu zavolat
Form1.Napln( DBGrid4 ) ;
Pochopitelne vsechny ty Formy musi mit uvedeny unit s Form1 v uses a musim
mit 100% jistotu, ze Form1 je vytvoren drive, nez nekterou z tech metod
zavolam.
Je to dost srozumitelne?
-----P�vodn� zpr�va-----
Od: Pavel M. [SMTP:talema(zv)top(tec)cz]
Odesl�no: 10. �ervna 1999 9:17
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Re: Jak pouzit Sender u Formulare
> (Sender as TForm).DBGrid nemuze fungovat, protoze TForm nema property
> DBGrid. Fungovalo by to, pokud by sis udelal predka, kter� by obsahoval
> DBGridm vsechny formulare by byly potomkem tohoto predka a odkazoval by
ses
> (Sender as TPredek).DBGrid
>
> Ale to se mi zda zbytecne slozite. Napis tu funkci jednoduseji:
>
> procedure TfrmHledej.Napln( ADBGrid: TDBGrid)
>
To zni zajimave. Ja mam design udelany prave jak rikas, protoze, vsechny ty
formulare
jsou potomci jineho na kterem je prave ten DBGird.
U te druhe varianty, tomu moc nerozumim, ale zkusim to vyzkouset. Nevim jak
to bude probihat,
protoze DBGrid se jmenuje porad stejne, jen je na ruznych Forms.
Pavel
TCanvas
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 10.6.1999 11:50:45
Doporucujem aby si maloval na Image komponent.
Image.Canvas
TUNGLI Jan
tungli(zv)pvt.sk
-----P�vodn� zpr�va-----
Od: Honza Fiala <fala(zv)imc(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 10. j�n 1999 11:07
P�edm�t: TCanvas
>Ahojte,
> asi mam takovy trivialni dotaz, ale muzete mi nekdo poradit jak mam
>vytvorit TCavas a neco v nem namalovat. V podstate chci udelat objekt
>trojuhelnik a ten vlozit do formulare na urcitou pozici. Vsiml jsem si, ze
>TForm ma v sobe property Canvas, ale nechtel bych porad propocitavat kam
ten
>trojuhelnik umistnit.
>
>Dik
>Honza Fiala
>
>
>IP
[*] Martin Lib��sk�������o - 10.6.1999 12:01:51
Zdravim vsechny,
mam tu jeden problem, zacinam s DELPHI a nevim jestli tu uz probehlo neco na
tema IP adresy.
Potreboval bych jestli nekdo uz nedelal nejaky PING v delphi na urcitou
adresu a mohl by mi poskytnout radu nebo cast zdrojaku.
Diky vsem za odpoved
Martin Libansky
mailto:martin(zv)xion(tec)cz
XION a.s. - Internet Provider
OnPaint...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.6.1999 12:08:59
Bene� Jaroslav wrote:
> Potreboval bych radu jak prekreslit vizualni komonentu, ktera nema onpaint
> event a prekresluje se jinak v IDE a jinak za behu. Dekuji Jaro B.
O jakou komponentu se jedna a jakeho ma predka z VCL? Bez
techto znalosti se neda dal pokracovat, protoze zpusobu je vic.
Tak jako tak si budes muset udelat vhodneho potomka.
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
Ikony
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 10.6.1999 12:10:06
Zkus
http://www.purescience.com/delphi/download.htm
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
----------
> Odes�latel: Viktor Lostak <Viktor.Lostak(zv)chmi(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ikony
> Datum: 10. �ervna 1999 10:26
>
> Nevite nekdo, kde sehnat nejake pekne, mnohabarevne (nejmin 256) a vetsi
> (48*48) ikony? Nejake to ukladani na disk, tisk atp. Dik. Viktor
TToolButton.Down
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 10.6.1999 12:56:54
�au Delph�ci,
tak se mi vyskytl jeden probl�m. Na formu m�m TAction (v r�mci TActionList),
TMenuItem (v r�mci TMainMenu) a TToolButton (v r�mci TToolBar). TAction je
d�na do property Action TToolButtonu a TMenuItemu. A te� to hlavn�, v�e
funguje norm�ln� a� do okam�iku, kdy ud�l�m TAction.Checked:= true a
TAction.Enabled:= false. Vysledkem je, �e vlastnosti Down i Enabled
TToolButtonu jsou v po��dku ale na formu je jakoby byl nestisknut (Down =
false). Pokud n�sledn� ud�l�m TAction.Enabled:= true, TToolButton se
p�ekresl� ji� tak jak m� b�t, t.j. stisknut. V TMenuItem se stejn�m Action
se tento probl�m neprojev�. Nev�te co s t�m?
Jara.
Hint pro polozky menu
[*] Tuser Milan <tuser(zv)eltex(tec)cz> - 10.6.1999 12:58:31
Potrebuji radu ohledne hintu. Pokud vytvorim novou aplikaci, nastavim Hint a
ShowHint na True, pak se mi po spusteni aplikace a zastaveni kurzoru na
formulari objevi standardni windozacky hint. Pokud pridam menu a u polozek
menu nastavim hinty, presto se mi windozacky hint (zluty obd. s cernym
textem) nezobrazi. Jak to udelat, aby se standardni windozacky hint
zobrazoval i u polozek menu? Predem diky za vsechny typy bez nadavek co to
je za stupidni dotaz :o).
(pokud si napisu vlastni proceduru na zobrazeni hintu treba do StatusBar,
pak se tam zobrazi i hinty u polozek menu, rad bych vsak pouzil windozacke
zobrazeni hintu, aby se to vsude chovalo stejne)
Pokud staci jen nekde neco nastavitm, tak me prosim nakopnete spravnym
smerem.
(jak to tady smolim v Outlooku zjistil jsem, ze i Outlook zobrazuje napovedu
k polozkam menu do StatusBar a ostatni hinty do obdelnicku)
tuser(zv)eltex(tec)cz
TStealth
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 10.6.1999 13:15:45
Nejsem si ted jist, ale melo by to jit. kdyz v Project nastavis:
..
Appllication.Initialize;
Appllication.ShowMainForm := False;
...
Novak
P.S.: Nemam moznost nahlednout do Delphi, takze ta konvence nemusi byt
presna.
> -----P�vodn� zpr�va-----
> Od: Pavel Serbajlo [SMTP:serb(zv)mikulov.sol(tec)cz]
> Odesl�no: 10. �ervna 1999 11:02
> Komu: Delphi
> P�edm�t: TStealth
>
> Dobry den,
>
> Jiz nekolikrat touhle konferenci proletela komponenta Stealth,ktera ma
> schovan aplikaci ze seznamu uloh CTRL+ALT+DELETE. To ona opravdu umi, ale
> prave jsem dosel na vazny bug - aplikace se neschova v seznamu ALT+TAB !
>
> Jakym zpusobem muzu skryt aplikaci jeste z tohoto seznamu?
>
> diky PAVEL
TCanvas
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 10.6.1999 12:33:36
Ahoj,
mas nekolik moznosti:
Pokud potrebujes, aby se trojuhelnik nakreslil a zustal nakresleny i po
prekryti a odkryti okna, muzes pouzit komponentu tusim TImage nebo
TPicture nebo takovy nejaky nazev. Ta ma property Canvas, takze do ni
muzes kreslit a hlavne si tu kresbu pamatuje, takze se nemusis starat o
prekreslovani a muzes ji umistit tak jak potrebujes.
Budes-li se o prekreslovani starat sam, muzes pouzit jakoukoli
komponentu, ktera ma property Canvas a pak musis na OnPaint povesit
prekreslovani toho obrazku. Pri slozitejsim obrazku to ale muze
poblikavat.
Budes-li se o prekreslovani starat sam a chces-li to mit komfortnejsi,
muzes kreslit primo na Canvas formu pomoci CopyRect (muzes tim urcit i
pozici) a je treba, abys mel obrazek nakresleny v bitmape v pameti.
Pokud se ma treba pohybovat, lze kreslit do pameti a pak placnout na
form. Je to rychle, neblika to a je trochu vyssi spotreba pameti.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Honza Fiala [SMTP:fala(zv)imc(tec)cz]
> Odesl�no: 10. �ervna 1999 10:31
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TCanvas
>
> Ahojte,
> asi mam takovy trivialni dotaz, ale muzete mi nekdo poradit jak mam
> vytvorit TCavas a neco v nem namalovat. V podstate chci udelat objekt
> trojuhelnik a ten vlozit do formulare na urcitou pozici. Vsiml jsem
> si, ze
> TForm ma v sobe property Canvas, ale nechtel bych porad propocitavat
> kam ten
> trojuhelnik umistnit.
>
> Dik
> Honza Fiala
> IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.6.1999 14:29:19
>Zdravim vsechny,
>mam tu jeden problem, zacinam s DELPHI a nevim jestli tu uz probehlo neco
na
>tema IP adresy.
>Potreboval bych jestli nekdo uz nedelal nejaky PING v delphi na urcitou
>adresu a mohl by mi poskytnout radu nebo cast zdrojaku.
>
na ftp serveru mam nejekou ukazku knihovny pro Ping. Pro ilustraci by to
melo stacit
ftp://ftp.fortech(tec)cz/pub/delphi/ping
Zdravi
D.Toman
CREATE TABLE v Accesuu
[*] Petr Vale� - 10.6.1999 14:45:36
Aho vsem,
mam nasledujici problem :
Zkousim dynamicky vytvaret tabulky v MS Accessu pomoci TQuery.ExecSQL
kde SQL =
"CREATE TABLE AAA (
ID_aaa AUTOINCREMENT PRIMARY KEY
);"
Nicmene hodnoty AUTOINCREMENT a PRIMARY KEY mi to nebere a hazi chybu
"SYNTAX ERROR IN CREATE TABLE STATEMENT"
Dekuji vsem za radu.
Petr
OnPaint...
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.6.1999 14:49:27
Jedna se mi o TPanel a o THeader
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 10. �ervna 1999 12:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: OnPaint...
>
>
> O jakou komponentu se jedna a jakeho ma predka z VCL? Bez
> techto znalosti se neda dal pokracovat, protoze zpusobu je vic.
>
> Tak jako tak si budes muset udelat vhodneho potomka.
>
>
> 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
TToolButton.Down
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 10.6.1999 15:53:35
Stalo se mi neco podobneho. Vlastnost Enabled je False, ale TToolButton se
tvari, jako kdyby byl Enabled. Podezrivam jej z toho, ze to vyskytuje
tehdy, kdyz je ToolButton definovan na predkovi daneho formulare. Nenasel
jsem zadne reseni.
-----P�vodn� zpr�va-----
Od: SPELZA s.r.o. [SMTP:spelzasro(zv)brno.comp(tec)cz]
Odesl�no: 10. �ervna 1999 12:57
Komu: DELPHI
P�edm�t: TToolButton.Down
�au Delph�ci,
tak se mi vyskytl jeden probl�m. Na formu m�m TAction (v r�mci
TActionList),
TMenuItem (v r�mci TMainMenu) a TToolButton (v r�mci TToolBar). TAction je
d�na do property Action TToolButtonu a TMenuItemu. A te� to hlavn�, v�e
funguje norm�ln� a� do okam�iku, kdy ud�l�m TAction.Checked:= true a
TAction.Enabled:= false. Vysledkem je, �e vlastnosti Down i Enabled
TToolButtonu jsou v po��dku ale na formu je jakoby byl nestisknut (Down =
false). Pokud n�sledn� ud�l�m TAction.Enabled:= true, TToolButton se
p�ekresl� ji� tak jak m� b�t, t.j. stisknut. V TMenuItem se stejn�m Action
se tento probl�m neprojev�. Nev�te co s t�m?
Jara.
Hide on Minimize
[*] Petr Vale� - 10.6.1999 17:04:13
Ahoj,
nevite prosim nekdo jak skovat okno pri minimalizace. Jde mi o to aby
zmizelo z TaskBaru.
Diik
Petr
Hide on Minimize
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 10.6.1999 17:50:47
On Thu, 10 Jun 1999, [iso-8859-2] Petr Vale� wrote:
> Ahoj,
>
> nevite prosim nekdo jak skovat okno pri minimalizace. Jde mi o to aby
> zmizelo z TaskBaru.
Ahoj,
ja to resim takto:
...
procedure WndProc(Var Msg : TMessage); override;
...
procedure TForm1.WndProc(var Msg : TMessage);
begin
if (Msg.Msg = WM_SYSCOMMAND) and (Msg.WParam = SC_MINIMIZE) then
begin
TForm1.Hide;
Exit;
end;
inherited WndProc(Msg);
end; Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
TStealth
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 10.6.1999 17:56:32
On Thu, 10 Jun 1999, Pavel Serbajlo wrote:
> Dobry den,
>
> Jiz nekolikrat touhle konferenci proletela komponenta Stealth,ktera ma
> schovan aplikaci ze seznamu uloh CTRL+ALT+DELETE. To ona opravdu umi, ale
> prave jsem dosel na vazny bug - aplikace se neschova v seznamu ALT+TAB !
>
> Jakym zpusobem muzu skryt aplikaci jeste z tohoto seznamu?
Ahoj,
tusim, ze by to melo jit takto:
procedure TForm1.CreateParams;
begin
inherited CreateParams(Params);
with Params do begin
ExStyle:=ExStyle or WS_EX_TOOLWINDOW; //aby se neobjevoval pri Alt-TAB
end;
end;
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
OnPaint...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.6.1999 18:34:47
Bene� Jaroslav wrote:
> Jedna se mi o TPanel a o THeader
> Jaro B.
Tak to je jednoduche, staci prekryt v potomku metodu Paint.
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
BDE hlaska
[*] Petr Vale� - 10.6.1999 19:31:24
Ahoj,
nevite nekdo co znamena hlaska
"Non-blob column in table required to perform operation"
vznika pri metode Post; a v DB strukture mam memo. Chyba vznika pouze pokud
to memo vyplnim.
Diik Petr
DbiQInstantiateAnswer + Language driver
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 10.6.1999 20:20:19
Nevite nekdo jak urcit Language driver tabulky vygenerovane funkci
DbiQInstantiateAnswer?
Normalne se pouzije Language driver nastaveny v BDE Admin,
coz neni pouzitelne, pokud ma byt program 'nezavisly' na nastaveni
BDE.
Diky.
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
function fDbiQExec(hTmpDb: hDBIDB; TblName, SQL: string): Longint;
var
hStmt: hDBIStmt;
hQryCur, hNewCur: hDBICur;
iRecCount: LongInt;
begin
hQryCur := nil;
hNewCur := nil;
hStmt := nil;
try
Check(DbiQAlloc(hTmpDb, qrylangSQL, hStmt));
Check(DbiQPrepare(hStmt, PChar(SQL)));
Check(DbiQExec(hStmt, (zv)hQryCur));
Check(DbiQInstantiateAnswer(hStmt, hQryCur, PChar(TblName), szPARADOX,
True, (zv)hNewCur));
Check(DbiGetRecordCount(hNewCur, iRecCount));
Result := iRecCount;
finally
if (hStmt <> nil) then
Check(DbiQFree(hStmt));
if (hNewCur <> nil) then
Check(DbiCloseCursor(hNewCur));
end;
end;
autoincrement na SQL serveru
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 10.6.1999 20:29:23
Tady bych si dovolil nesouhlasit co se tyka TimeStamp. Teda alespon u MS SQL -
viz vytah z BOL:
The value in the timestamp column is updated every time a row containing a
timestamp column is inserted or updated. This property makes a timestamp column
a poor candidate for keys, especially primary keys. Any update made to the row
changes the timestamp value, thereby changing the key value. If the column is
in a primary key, the old key value is no longer valid, and foreign keys
referencing the old value are no longer valid. If the table is referenced in a
dynamic cursor, all updates change the position of the rows in the cursor. If
the column is in an index key, all updates to the data row also generate
updates of the index.
Takze TimeStamp nese informaci ne pouze o zalozeni, ale i o zmene zaznamu,
takze klasicky autoincrement nemuze nahradit (teda rozumne nahradit ;-).
Osobne si nedovedu zivot bez autoincrementu (my - zavirovani MS SQL - rikame
IDENTITY ;-) predstavit ... davam ho pro sichr i tam, kde neni potreba ;-)))
Mac
Vlastimil Bardon wrote:
> Ackoli jsem zpola cech, pridavam se k Polakovi. -) Jen bych chtel dodat, ze
> nejen Autoinkrement, ale take Timestamp je nekdy uzitecny. Plni stejnou
> funkci jako autoinkrement a navic nese informaci o okamziku zalozeni
> zaznamu.
--
==============================================================
= 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 mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
RegExp bez DLL
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 10.6.1999 21:08:25
Hello All!
Mozno niekoho bude zaujimat, ze to nejaky Sorokin hodil do modulu:
=== cut begin ===
http://www.delphipages.com/edit/count.cfm?comID=1216&Link=uploads%2FEdit
ors%5FText%2FRegExpr%2Ezip
Andrey Sorokin from sunny ;) Saint-Petersburg anso(zv)mail.ru
=== cut end ===
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
RX Components - stazeni
[*] Stanislav �mejkal <S.Smejkal(zv)sh.cvut(tec)cz> - 10.6.1999 21:53:30
Nevite nekdo kde sidli nejnovejsi verze RX komponent?
Standa
Rozpoznani zaple tiskarny
[*] MJ soft <mjsoft(zv)rychnov(tec)cz> - 10.6.1999 23:07:30
Ahoj
Potreboval bych zjistit stav tiskarny. Jestli je ON LINE.
Tisknu totiz nektere tisky tak, ze je jako textovy soubor
zapisu na LPT port tiskarny, aby se tiskly v znakovem
rezimu. Vse OK. Ov�em jen kdyz je tiskarna ON LINE.
Pokud ne, tak se program zasekne a �eka a �eka ......
Nev�te nekdo co s tim.
Jindra
REQ: Archiv
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 10.6.1999 23:23:23
Mohl bych nekoho poprosit o zaslani archivu konference? Nejlepsi by byl
folder do PINE, ale Outlook by taky nebyl spatnej.
Kdyby to slo odnekud stahnout, tak by to bylo skoro lepsi.
djeeekuji
Lukas
P.S. je to treba poslat na mailto: xvobl03(zv)sorry.vse(tec)cz
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
autoincrement na SQL serveru
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.6.1999 23:52:23
>Negeneralizuj tady nazor nekolika
>To tvrdil jenom nekdo. Nekdo, kdo si pripadal chytrejsi nez vsichni
>programatori
>velkych SQL Serveru, ktere autoinkrementy implementuji.
.....
-------------- AHA, tak tohle netvrdil asi nikdo .......
Nevim proc se tak rozcilujes. Ja nepsal o datovem typu,
ale o metode hledani a na prispevky s timto tema jsem odkazoval.
Evidentne mluvime kazdy o necem zcela jinem.
Zrejme jsem ten puvodni dotaz spravne nepochopil ja - to se muze stat.
Ja delam s Interbazi a to, o cem je asi rec, se tam nazyva
"generatory", proto me nenapadlo, ze je rec o necem jinem.
Tvoje reakce je ovsem zajimava. Tak uz to byva, kdyz jeden pise
"o koze" a druhy "o voze".
Omlouvam se vsem, koho jsem uvedl svym prispevkem v omyl.
Generatory (autoinkrementy) samozrejme take pouzivam.
Bez nich by to asi vubec neslo.
Jaro
Vlastnost listboxu
[*] Patrik Tesar <patrik.tesar(zv)pobox.sk> - 11.6.1999 00:03:34
Cafte
Neviete o nejakej komponente, ktora by
umoznovala v listboxe vyuzivat tu krasnu
vlastnost dblookuplistboxu : nastavovanie
sa na riadok zaznamu podla stlacenych
klaves?
Dik.
Patrik Tesar---------------------------
Ing. Patrik Tesar
software consulting
0905/211 274
---------------------------
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
RX Components - stazeni
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 11.6.1999 07:01:18
na http://rx.demo.ru
verze 2.60 i s opravnym balickem a ceske resource
na http://www.torry.ru/packs.htm je to take ke stazeni i s neoficialnim help
souborem
> -----P�vodn� zpr�va-----
> Od: Stanislav �mejkal [SMTP:S.Smejkal(zv)sh.cvut(tec)cz]
> Odesl�no: 10. �ervna 1999 21:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RX Components - stazeni
>
> Nevite nekdo kde sidli nejnovejsi verze RX komponent?
>
> Standa
Bitmapy do formularu
[*] jslavice(zv)vce(tec)cz - 11.6.1999 07:42:32
"Pavel ZIDEK" <kopr(zv)kopr(tec)cz> na 10.06.99 09:23:35
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Josef Slavicek/HS/VCE)
P�edm�t: Re: Bitmapy do formularu
Content-type: text/plain; charset�-ascii
>Zkus
>http://www.purescience.com/delphi/download.htm
>Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
Vyse doporucenou webovou stranku znam. Je tam temer 10000 bitmapovych
souboru, bohuzel vhodnych pouze jako ikony do tlacitek, ale ne jako
pozadi do formularu. Proto prosim, zda nekdo nezna webovou stranku
anebo jiny zdroj napr. CD, kde by byly bitmapy vhodne pro pozadi. Dik
predem.
Josef Slavicek
Hradec Kralove
autoincrement na SQL serveru
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 11.6.1999 07:52:04
Zajimave upozorneni. Ma MS SQL jsem TimeStamp jeste nepouzil a tak jsem si
toho nevsimnul. Ale kdysi jsem dost pracoval s aplikaci nad IBM SQL
Serverem a ta pouzivala TimeStamp presne jako autoinkrement - tedy k
jednoznacne identifikaci zaznamu.
-----P�vodn� zpr�va-----
Od: Martin Kubecka [SMTP:martin.kubecka(zv)amenit(tec)cz]
Odesl�no: 10. �ervna 1999 20:29
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: autoincrement na SQL serveru
Tady bych si dovolil nesouhlasit co se tyka TimeStamp. Teda alespon u MS
SQL -
viz vytah z BOL:
The value in the timestamp column is updated every time a row containing a
timestamp column is inserted or updated. This property makes a timestamp
column
a poor candidate for keys, especially primary keys. Any update made to the
row
changes the timestamp value, thereby changing the key value. If the column
is
in a primary key, the old key value is no longer valid, and foreign keys
referencing the old value are no longer valid. If the table is referenced
in a
dynamic cursor, all updates change the position of the rows in the cursor.
If
the column is in an index key, all updates to the data row also generate
updates of the index.
Takze TimeStamp nese informaci ne pouze o zalozeni, ale i o zmene zaznamu,
takze klasicky autoincrement nemuze nahradit (teda rozumne nahradit ;-).
Osobne si nedovedu zivot bez autoincrementu (my - zavirovani MS SQL -
rikame
IDENTITY ;-) predstavit ... davam ho pro sichr i tam, kde neni potreba
;-)))
Mac
Vlastimil Bardon wrote:
> Ackoli jsem zpola cech, pridavam se k Polakovi. -) Jen bych chtel dodat,
ze
> nejen Autoinkrement, ale take Timestamp je nekdy uzitecny. Plni stejnou
> funkci jako autoinkrement a navic nese informaci o okamziku zalozeni
> zaznamu.
--
==============================================================
= 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 mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Dynam. vytvoreni formulare ze souboru.
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 11.6.1999 07:58:50
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
mam problem s vytvarenim formu ze souboru.
V aplikaci si ulozim forumlar do Streamu pomoci metody WriteComponent.
Do souboru se mi ulozi cely form vcetne jeho vlastnenych VCL.
Ted bych v jine aplikaci tento form chtel nacist a vytvorit. (jako hlavni form aplikace)
Ja to delam tak, ze nejprve vytvorim form pomoci Application.CreateForm(TForm1, Form1), a pak nactu form pomoci
Var New: TComponent;
.
.
.
Begin
New:=S.ReadComponent(...);
a pak vytvorenemu formu priradim nacteny form: Form1:= New as TForm1;
takhle to sice jde, ale ma to vadu v tom, ze nejprve se mi vytvori formular Form1 (nekam se umisti na obrazovku) a pak zmenim jeho vlastnosti pomoci prirazeni formu New. Takze nezachytim Create u nacteni formu ze souboru.
Potreboval bych aby jsem nemusel vytvaret Form1, ale rovnou Form ze souboru asi takhle:
Application.CreateForm(----- Nacist ho ze souboru -----) ?????
Za kazdou odvoved budu vdecny.
Jindrich Nikodem
Pomoc zacatecnikovi
[*] jslavice(zv)vce(tec)cz - 11.6.1999 08:21:11
"Tonda Kmoch" <t.kmoch(zv)seznam(tec)cz> na 10.06.99 08:27:11
Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
Komu: delphi-l(zv)fwd(tec)cz
Kopie: (Na v�dom�: Josef Slavicek/HS/VCE)
P�edm�t: Pomoc zacatecnikovi
Content-type: text/plain; charset�-ascii
>Dobry den lidi,
> uz nejakou tu dobu delam v Pascalu ale dnesni doba me nuti se taky nejak
>tak venovat Visualum. Ale samouceni mi jde o hodne hur nez napr. v
Pascalu.
>Nevite nekdo o nejakych strankach (mimo ty oficialni), kde by se nasly
> nejaky hezky programky (ev. s dokumentaci, popisy) ?
>mockrat predem diky
// �-�-�-�-�-�-�-�-�-�-�-� \\
| >> Tony Kmoch <<
| tonda(zv)kamarad(tec)cz
| t.kmoch(zv)seznam(tec)cz
| ICQ: #21901427
| Czech rep., Europe
+----------------------------------
| Programmers Network CZ [www.prog(tec)cz]
\\ �-�-�-�-�-�-�-�-�-�-�-� //
Zkus nasledujici stranku: http://sun3.ms.mff.cuni(tec)cz/~holan/dpr.htm.
Josef Slavicek, Hradec Kralove
BatchMove
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.6.1999 08:40:25
Popis SCH by mel byt v bde32.hlp.
Nebo v Delphi1 je dobry popis v ASCIIDRV.TXT.
Ale pozor na batCopy.
Alespon podle mych zkusenosti, pokud dam batCopy, BatchMove vygeneruje .sch soubor natvrdo, tedy
FILETYPE=fixed
CHARSET=ascii
Pri zadnem nastaveni BDE se mi nepodarilo dosahnout CHARSET=czech nebo cskamen.
Takze problemy s exportem textu s diakritikou.
Obchazim to tak, ze si .sch vytvorim sam, vytvorim prazdny soubor TABLE.TXT a reknu "batCopy".
To funguje.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Ing. Daniel Ficek <ficek(zv)hstech(tec)cz>
> Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
> P�edm�t: BatchMove
> Datum: 10. �ervna 1999 10:04
>
> Ahoj,
> Potrebuji exportovat data z SQL do obycejneho TXT souboru. Chci
> pouzit TBatchMove. Nikdy predtim jsem s nim nepracoval, ale vypada to ze
> je to presne to co potrebuji. Mam TQuery (v nem poustim SQL dotaz) a
> TTable (ttASCII - tam budu exportovat). TBatchMove.Mode mam batCopy. Po
> TBatchMove.Execute se data skutecne nasypou do TXT. Potud vse dobry. Ale
> mam dva problemky:
> 1/ Potrebuji exportovat jen nektere sloupce - cesta nejspis pres SCH
> soubor ale nenasel jsem jeho popis. Nevi nekdo?
> 2/ Na prvni radek potrebuji napsat jmena exportovanych poli. Nake
> napady?
>
> Diky
> Ing. Daniel Ficek
Jak pouzit Sender u Formulare
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.6.1999 08:47:54
> > Jiri Polak
> > [JP] Tady pretypovavas TForm na typ TForm. Kdyz pouzijes
> > (Sender as TMujFormSDBGridem), bude Ti to fungovat.
>
>
> No jo, ale TMujFormSDBGridem muze mit 10 ruznych hodnot (chci to volat z
> ruznych
> formularu).
>
Jirka to rika spravne.
Bude ti to fungovat pokud budes mit
TMujFormSDBGridem jako nejaky abstraktni formular
a tech tvych "10 ruznych hodnot" budou formulare oddedene od TMujFormSDBGridem.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================Ukonceni *.bat
[*] Novak Josef <jnovak(zv)anect(tec)cz> - 11.6.1999 08:50:54
Ahoj !!!
Mam dotaz, ve sve aplikaci spoustim ext. davku (*.bat). Spoustim ji pomoci:
WinExec('nazev_souboru.*, SW_HIDE');
Vse je OK, ale potreboval bych nejakym zpusobem vedet kdy se ta davka
ukoncila.
Diky Novak
TCanvas
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.6.1999 08:52:02
Nevim, zda jsem te spravne pochopil, ale property Canvas ma uz TCustomControl.
Takze si muzes odvodit snadno vlastni komponentu a na jeji Canvas kreslit trojuhelniky podle libosti.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Honza Fiala <fala(zv)imc(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TCanvas
> Datum: 10. �ervna 1999 10:31
>
> Ahojte,
> asi mam takovy trivialni dotaz, ale muzete mi nekdo poradit jak mam
> vytvorit TCavas a neco v nem namalovat. V podstate chci udelat objekt
> trojuhelnik a ten vlozit do formulare na urcitou pozici. Vsiml jsem si, ze
> TForm ma v sobe property Canvas, ale nechtel bych porad propocitavat kam ten
> trojuhelnik umistnit.
>
> Dik
> Honza Fiala
THUNK, FLAT THUNK -- kdopak jiz slysel tento termi
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.6.1999 08:55:47
Vlada Bodecek se pouzitim 16bit DLL v 32bit EXE zabyva na kurzu Win32 API.
Myslim, ze to resi pres WM_COPYDATA.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: onci(zv)email(tec)cz
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: THUNK, FLAT THUNK -- kdopak jiz slysel tento termin?
> Datum: 10. �ervna 1999 10:47
>
> Pri programovani DLL v Pascalu jsem narazil na problem pouziti techto
> 16-bitovych knihoven v 32-bitovem Delphi. Slysel jiz nekdo z Vas o
> technice pouziti 16bit DLL z 32bitove aplikace? Myslim, ze tato technika
> pouziva termin THUNK nebo FLAT THUNK.
>
> Dekuji za jakoukoliv odpoved
>
> Ondrej Cilek
> spravce pocitacove site
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
DbiQInstantiateAnswer + Language driver
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.6.1999 09:05:39
Funkci DbiQInstantiateAnswer neznam.
Ale obecne:
Pokud chci pracovat nezavisle na nastaveni BDE, a to je opravdu casto potreba, lze potrebne parametry nastavit v TDatabase.Params.
Viz tez GetAliasParams, SetAliasParams.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Miloslav Skacel <kastner(zv)infos(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: DbiQInstantiateAnswer + Language driver
> Datum: 10. �ervna 1999 20:20
>
> Nevite nekdo jak urcit Language driver tabulky vygenerovane funkci
> DbiQInstantiateAnswer?
> Normalne se pouzije Language driver nastaveny v BDE Admin,
> coz neni pouzitelne, pokud ma byt program 'nezavisly' na nastaveni
> BDE.
>
> Diky.
>
> S pozdravem
> Miloslav Skacel
> skacel(zv)stereo(tec)cz
> http://www.stereo(tec)cz
>
> function fDbiQExec(hTmpDb: hDBIDB; TblName, SQL: string): Longint;
>
> var
> hStmt: hDBIStmt;
> hQryCur, hNewCur: hDBICur;
> iRecCount: LongInt;
> begin
> hQryCur := nil;
> hNewCur := nil;
> hStmt := nil;
> try
> Check(DbiQAlloc(hTmpDb, qrylangSQL, hStmt));
> Check(DbiQPrepare(hStmt, PChar(SQL)));
> Check(DbiQExec(hStmt, (zv)hQryCur));
> Check(DbiQInstantiateAnswer(hStmt, hQryCur, PChar(TblName), szPARADOX,
> True, (zv)hNewCur));
> Check(DbiGetRecordCount(hNewCur, iRecCount));
> Result := iRecCount;
>
> finally
> if (hStmt <> nil) then
> Check(DbiQFree(hStmt));
> if (hNewCur <> nil) then
> Check(DbiCloseCursor(hNewCur));
> end;
> end;
>
>
> Spusteni programu pri konci Windows
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 11.6.1999 09:20:20
Cau
Teda neviem ci som to spravme pochopil, ale ak chces spustit program PO
UKONCENI Win, tak v adresari WINDOWS je subor DOSSTART.BAT, ktory sa spusta
po ukonceni Win a tam si mozes napisat to co chces spustit.
Pavol
----- Original Message -----
From: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 09 June 1999 23:20
Subject: Spusteni programu pri konci Windows
> Dobry den,
> nelze nejak udelat, aby se spusil jisty program pri ukoncovani
Windows??
> Neco jako obdoba AUTOEXEC, ted by to byl: ENDEXEC ;-)).
> Hlavne nechci program, ktery by byl pusteny celou dobu (pustil se pri
> zapnuti pocitace).
>
> predem diky
> // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
> | >> Tony Kmoch <<
> | tonda(zv)kamarad(tec)cz
> | t.kmoch(zv)seznam(tec)cz
> | ICQ: #21901427
> | Czech rep., Europe
> +----------------------------------
> | Programmers Network CZ [www.prog(tec)cz]
> \\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
>Rozpoznani zaple tiskarny
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 09:26:44
V Powerful Easy Pascal rutinach je pro Epson FX
uvedeno toto :
function PRNReady : boolean;
var Reg : Registers;
begin
Reg.AH:=2;
Reg.DL:=0;
Reg.DH:=0;
Intr (23,reg);
if (Reg.Ah and 185)=144 then PRNReady:=true
else PRNReady:=false;
end; {PRNReady}
Doufam, ze Ti to pomuze.
Dobra.
> ----------
> � Potreboval bych zjistit stav tiskarny. Jestli je ON LINE.
> Tisknu�totiz nektere tisky tak, ze je jako textovy soubor
> zapisu�na LPT port tiskarny, aby se tiskly v znakovem
> rezimu. Vse OK. Ov�em jen kdyz je tiskarna ON LINE.
> Pokud ne, tak se program zasekne a �eka a �eka ......
> �
> Ukonceni *.bat
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 11.6.1999 09:33:55
Skus tohle:
function SpustiCakaj(const Prikaz: String; AHide, AWait: Boolean): Boolean;
var
StartInfo : TStartupInfo;
ProcInfo : TProcessInformation;
begin
FillChar(StartInfo, SizeOf(StartInfo), 0);
with StartInfo do begin
cb := SizeOf(StartInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
if aHide then wShowWindow := SW_HIDE
else wShowWindow := SW_SHOWNORMAL;
end; {of with }
Result := CreateProcess(nil, PChar(Prikaz), nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil, StartInfo,
ProcInfo);
if AWait then
if Result then begin
WaitForInputIdle(ProcInfo.hProcess, INFINITE);
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;
end;
Pavol
----- Original Message -----
From: Novak Josef <jnovak(zv)anect(tec)cz>
To: 'Delphi konference' <delphi-l(zv)fwd(tec)cz>
Sent: 11 June 1999 08:50
Subject: Ukonceni *.bat
> Ahoj !!!
> Mam dotaz, ve sve aplikaci spoustim ext. davku (*.bat). Spoustim ji
pomoci:
> WinExec('nazev_souboru.*, SW_HIDE');
> Vse je OK, ale potreboval bych nejakym zpusobem vedet kdy se ta davka
> ukoncila.
> Diky Novak
Spusteni programu pri konci Windows
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 09:39:27
Ale ten se nespousti v pripade
"Restartovat pocitac" ani v pripade
"Vypnout pocitac", ale jen v pripade
"Restartovat PC v rezimu MS-DOS"
a potom jeste pokud se ma nejaka aplikace
spoustet v rezimu MS-DOS.
Jednou jsem neco podobneho take hledal
a nakonc jsem to vytvoril tak, jak Ty
nechces - bezelo to od zapnuti PC.
{
> > Hlavne nechci program, ktery by byl pusteny celou dobu (pustil se
> pri
> > zapnuti pocitace).
}
Dobra.
> ----------
> Teda neviem ci som to spravme pochopil, ale ak chces spustit program
> PO
> UKONCENI Win, tak v adresari WINDOWS je subor DOSSTART.BAT, ktory sa
> spusta
> po ukonceni Win a tam si mozes napisat to co chces spustit.
>
> Pavol
>
>
> ----- Original Message -----
> From: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: 09 June 1999 23:20
> Subject: Spusteni programu pri konci Windows
>
>
> > Dobry den,
> > nelze nejak udelat, aby se spusil jisty program pri ukoncovani
> Windows??
> > Neco jako obdoba AUTOEXEC, ted by to byl: ENDEXEC ;-)).
> > Hlavne nechci program, ktery by byl pusteny celou dobu (pustil se
> pri
> > zapnuti pocitace).
> >
> > predem diky
> > // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
> > | >> Tony Kmoch <<
> > | tonda(zv)kamarad(tec)cz
> > | t.kmoch(zv)seznam(tec)cz
> > | ICQ: #21901427
> > | Czech rep., Europe
> > +----------------------------------
> > | Programmers Network CZ [www.prog(tec)cz]
> > \\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
> >
> Sledovani casu u projektu
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 11.6.1999 09:40:51
Ahoj,
nevite nekdo o nejakem add-on nebo expertu pro Delphi 3, ktery by umel
sledovat cas, jak dlouho byl otevren projekt ? Neco jako u Wordu ve
Vlastnosti/Statisticke udaje/Celkova doba uprav. Potreboval bych vedet,
jak dlouho jsem na kterem projektu delal.
Diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Ukonceni *.bat
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 09:44:03
Ahoj,
muzes napriklad zacyklit hledani toho okna,
nebo na konec te davky muzes dat maly programek,
ktery Tve aplikaci posle nejakou message,
a nebo zkusit toto (z UDDF):
How do I execute a program and have my code wait until it is finished?
From: Noel Rice <nrice(zv)ix.netcom.com>
A: Here is the 16 bit version:
uses Wintypes,WinProcs,Toolhelp,Classes,Forms;
Function WinExecAndWait(Path : string; Visibility : word) : word;
var
InstanceID : THandle;
PathLen : integer;
begin
{ inplace conversion of a String to a PChar }
PathLen := Length(Path);
Move(Path[1],Path[0],PathLen);
Path[PathLen] := #00;
{ Try to run the application }
InstanceID := WinExec((zv)Path,Visibility);
if InstanceID < 32 then { a value less than 32 indicates an Exec error
}
WinExecAndWait := InstanceID
else begin
Repeat
Application.ProcessMessages;
until Application.Terminated or (GetModuleUsage(InstanceID) = 0);
WinExecAndWait := 32;
end;
end;
Here is the 32 bit version:
function WinExecAndWait32(FileName:String; Visibility :
integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security
attributes }
nil, { pointer to thread security
attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;> ----------
> Mam dotaz, ve sve aplikaci spoustim ext. davku (*.bat). Spoustim ji
> pomoci:
> WinExec('nazev_souboru.*, SW_HIDE');
> Vse je OK, ale potreboval bych nejakym zpusobem vedet kdy se ta davka
> ukoncila.
> Vlastnost listboxu
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 11.6.1999 10:18:30
Patrik Tesar wrote:
>
> Cafte
>
> Neviete o nejakej komponente, ktora by
> umoznovala v listboxe vyuzivat tu krasnu
> vlastnost dblookuplistboxu : nastavovanie
> sa na riadok zaznamu podla stlacenych
> klaves?
>
> Dik.
>
> Patrik Tesar---------------------------
> Ing. Patrik Tesar
> software consulting
> 0905/211 274
> ---------------------------
>
> ____________________________________
> P. S. V. P. U.
> http://www.pobox.sk/
Ahoj,
Puvodni zdroj : tato konference
procedure TForm1.FormCreate(Sender: TObject);
CONST ListStrings = 'United States'#13'Guatemala'#13'Mexico'#13+
'El Salvador'#13'Costa Rica'#13'Yucatan'#13+
'China'#13'Japan'#13'Thailand'#13'Switzerland'#13+
'Germany'#13'Lichtenstein'#13'Jamaica'#13'Greece'+
'Turkey'#13'Ireland'#13'United
Kingdom'#13'Scotland'+
'Canada'#13'Uruguay'#13'Paraguay'#13'Cuba'#13+
'Spain'#13'Italy'#13'France'#13'Portugal'#13'New
Zealand'#13+
'Austria'#13'Australia'#13'Philippines'#13'Korea'#13+
'Malaysia'#13'Tibet'#13'Nepal'#13'India'#13'Sri
Lanka'#13+
'Pakistan'#13+'Saudi Arabia'#13'United Arab
Emerates'#13'Iran'#13+
'Ukraine'#13'Belarus'#13+
'Chechen'#13'Yugoslavia'#13'Czechoslovakia'#13'Slovina'#13'Kazakhstan'#13+
'Egypt'#13'Morocco'#13'Macedonia'#13'Cyprus'#13'Finland'#13+
'Norway'#13'Sweden'#13'Denmark'#13'Netherlands'#13'Lithuania'#13;
begin
ListBox1.Sorted := true;
ListBox1.Items.Text := ListStrings;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
Text : string = '';
LastValidIndex : integer = -1;
begin
if Key = ^M then Text := ''
else
if Key < ' ' then exit
else Text := Text + Key;
Label1.Caption := text;
with ListBox1 do
begin
ItemIndex := Perform(LB_SELECTSTRING, 0 {odkud hledat),
LongInt(PChar (Text)));
if ItemIndex >= 0 then LastValidIndex := ItemIndex;
Label2.Caption := IntToStr (ItemIndex);
ItemIndex := LastValidIndex;
Refresh;
end;
end;
Vaclav Sazima
Ukonceni aplikace pri ukonceni WIN po druhe
[*] Petr Slov�k <petr(zv)trilog(tec)cz> - 11.6.1999 10:20:41
Pred par dny tady byl v konferenci dotaz na to, jak poznat, ze se ukoncuji Windowsy a tedy v OnCloseQyery nema zobrazovat nejaky dialog.
Bylo tady receno, ze se to da vyresit pomoci odchyceni WM_ENDSESSION message.
> procedure WMEndSession(var Message:TWMEndSession); message WM_ENDSESSION;
Dnes jsem resil presne ten samy problem, tak jsem to vyzkousel podle rady, ale narazil jsem.
Mam to napsane nasledovne:
type
TfrmMain=Class(TForm)
...
...
private
FCloseWithoutMsgDlg:Boolean;
Procedure WMEndSession(Var Message:TWMEndSession); Message WM_ENDSESSION;
...
...
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=FCloseWithoutMsgDlg;
If Not(CanClose) Then CanClose:=MessageDlg('Opravdu zavr�t?', mtWarning,[mbYes,mbNo],0)=mrYes;
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
FCloseWithoutMsgDlg:=False;
end;
Procedure TfrmMain.WMEndSession(Var Message:TWMEndSession);
Begin
FCloseWithoutMsgDlg:=True;
End;
Jenze ma to jeden problem. OnCloseQuery probehne drive nez WMEndSession a tak nejdrive vyskoci MessageDlg a potom se teprve nastavi FCloseWithoutMsgDlg na True.
Jak mam zaridit, abych odchytil hlasku drive, nez probehne OnCloseQuery?
==============================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
SMS: +420603501642(zv)sms.paegas(tec)cz
==============================Ukonceni aplikace pri ukonceni WIN po druhe
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 10:46:08
>Jenze ma to jeden problem. OnCloseQuery probehne drive nez WMEndSession
>a tak nejdrive vyskoci MessageDlg a potom se teprve nastavi
FCloseWithoutMsgDlg na True.
---Tak to zkus v OnClose a pripadne dat
Action na caAbort, nebo caNone, nebo
jak je to tam.
Mala poznamka : prekladac vyrazy zpracovava
postupne, takze toto
> CanClose:=FCloseWithoutMsgDlg;
> If Not(CanClose) Then CanClose:=MessageDlg('Opravdu zavr�t?',
> mtWarning,[mbYes,mbNo],0)=mrYes;
by mohlo vypadat takto:
CanClose:=FCloseWithoutMsgDlg or
(MessageDlg(...)=idYes)
Dobra.
> ----------
> Od: Petr Slov�k[SMTP:petr(zv)trilog(tec)cz]
> Odesl�no: 11. �ervna 1999 10:20
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ukonceni aplikace pri ukonceni WIN po druhe
>
> Pred par dny tady byl v konferenci dotaz na to, jak poznat, ze se
> ukoncuji Windowsy a tedy v OnCloseQyery nema zobrazovat nejaky dialog.
>
> Bylo tady receno, ze se to da vyresit pomoci odchyceni WM_ENDSESSION
> message.
>
> > procedure WMEndSession(var Message:TWMEndSession); message
> WM_ENDSESSION;
>
> Dnes jsem resil presne ten samy problem, tak jsem to vyzkousel podle
> rady, ale narazil jsem.
> Mam to napsane nasledovne:
>
> type
> TfrmMain=Class(TForm)
> ...
> ...
> private
> FCloseWithoutMsgDlg:Boolean;
> Procedure WMEndSession(Var Message:TWMEndSession); Message
> WM_ENDSESSION;
> ...
> ...
>
> procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose:
> Boolean);
> begin
> CanClose:=FCloseWithoutMsgDlg;
> If Not(CanClose) Then CanClose:=MessageDlg('Opravdu zavr�t?',
> mtWarning,[mbYes,mbNo],0)=mrYes;
> end;
>
> procedure TfrmMain.FormCreate(Sender: TObject);
> begin
> FCloseWithoutMsgDlg:=False;
> end;
>
> Procedure TfrmMain.WMEndSession(Var Message:TWMEndSession);
> Begin
> FCloseWithoutMsgDlg:=True;
> End;
>
>
> Jenze ma to jeden problem. OnCloseQuery probehne drive nez
> WMEndSession a tak nejdrive vyskoci MessageDlg a potom se teprve
> nastavi FCloseWithoutMsgDlg na True.
> Jak mam zaridit, abych odchytil hlasku drive, nez probehne
> OnCloseQuery?
>
> ==============================
> Ing. Petr Slovak
> e-mail: petr(zv)trilog(tec)cz
> url: http://www.trilog(tec)cz
> tel: 0603 / 501 642
> SMS: +420603501642(zv)sms.paegas(tec)cz
> ==============================
> Odchyt�v�n� zpr�v Windows
[*] Vaclav_Lukes(zv)EUROTEL.CZ - 11.6.1999 10:58:30
Ahoj,
m��ete mi pros�m n�kdo v kostce popsat, jak se odchyt�vaj� zpr�vy z Woken a
jejich pou�it� ?
D�ky
Va�ek
Ukonceni aplikace pri ukonceni WIN po druhe
[*] Petr Kandera <pkandera(zv)tanger(tec)cz> - 11.6.1999 11:25:25
Ted budu delat chytreho, protoze me to uz funguje. Problem je nasledujici:
1. Nejdrive WIN posle WM_QUERYENDSESSION vsem aplikacim - coz zpusobi
zobrazeni
zmineneho dialogu. Az vsechny aplikace odpovi 1, pak nasleduje
2. Odeslani WM_ENDSESSION
Cili shrnuto je treba odchytit WM_QUERYENDSESSION a osetrit.
Timto bych chtel i podekovat Martinu Fronkovi za jeho radu.
Petr Kandera
<pkandera(zv)tanger(tec)cz>
----- Original Message -----
From: Petr Slov�k <petr(zv)trilog(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 11. �ervna 1999 10:20
Subject: Ukonceni aplikace pri ukonceni WIN po druhe
Pred par dny tady byl v konferenci dotaz na to, jak poznat, ze se ukoncuji
Windowsy a tedy v OnCloseQyery nema zobrazovat nejaky dialog.
Bylo tady receno, ze se to da vyresit pomoci odchyceni WM_ENDSESSION
message.
> procedure WMEndSession(var Message:TWMEndSession); message WM_ENDSESSION;
Dnes jsem resil presne ten samy problem, tak jsem to vyzkousel podle rady,
ale narazil jsem.
Mam to napsane nasledovne:
type
TfrmMain=Class(TForm)
...
...
private
FCloseWithoutMsgDlg:Boolean;
Procedure WMEndSession(Var Message:TWMEndSession); Message WM_ENDSESSION;
...
...
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=FCloseWithoutMsgDlg;
If Not(CanClose) Then CanClose:=MessageDlg('Opravdu zavr�t?',
mtWarning,[mbYes,mbNo],0)=mrYes;
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
FCloseWithoutMsgDlg:=False;
end;
Procedure TfrmMain.WMEndSession(Var Message:TWMEndSession);
Begin
FCloseWithoutMsgDlg:=True;
End;
Jenze ma to jeden problem. OnCloseQuery probehne drive nez WMEndSession a
tak nejdrive vyskoci MessageDlg a potom se teprve nastavi
FCloseWithoutMsgDlg na True.
Jak mam zaridit, abych odchytil hlasku drive, nez probehne OnCloseQuery?
==============================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
SMS: +420603501642(zv)sms.paegas(tec)cz
==============================WM_KEYDOWN
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 11:28:02
Diky, ale program mi po stusteni nemilosrdne vytuhne
(Program provedl neplatnou instrukci...; no, znate to)
a to tak, ze spolu s nim vytuhnou i Windows.
Vazne nikdo nevite, jak simulovat stisknuti klavesy
(ale tak, aby to slo tomu oknu, ktere ma prave focus)
Dobra.
//pripadne jak lze zjistit, ktere
//okno to je a tomu to poslat
> ----------
>
> <<Soubor: klikani.zip>>
> Ahoj,
>
> na detekci spustenych oken a jejich objektu pouzivam tento
> programek.
>
> Problem s listboxom
[*] Ing. J�n Kuch�r�����!j��G - 11.6.1999 11:28:50
Caute
Predstavte si nasledujuci priklad. Z nejakeho suboru pomocou loadfromfile
natiahnem do listboxu nejaky menny zoznam. V tom zozname sa nachadza
povedzme 5 krat to iste meno, ktore sa potom zoradia pod sebou ked to
usporiadam podla abecedy a obsadia riadky 0 az 4. Pomocou itemindex som
zistoval na ktory riadok v listboxu klikne uzivatel a tu prave vznikol
problem. Uzivatel naj klikol na lubovolny riadok 0 az 4 itemindex mi vratil
vzdy hodnotu riadku 0, co s tym teraz, beriem vsetky podnety.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
040 01 Ko�ice
e-mail: kuchar(zv)tuke.sk
tel. 095 / 602 2589
Go home!
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 11.6.1999 11:37:19
Moje aplikace ma takove velike barevne tlacitko s domeckem. Kdyz se na nej
klikne, tak se ma nastartovat browser a v nem se ma objevit homepage
vyrobce. Ted to delam tak, ze vzdycky vytvorim soubor TEMP.URL, do nej zadam
[InternetShortcut]
URL=http://www.firma(tec)cz/
a pak na to postu aplikaci, asociovanou s priponou URL. Funguje to, ale
neslo by to nejak bez toho souboru? Nejak primeji, napriklad volanim nejake
funkce? Ale aby to zase jelo s kazdym prohlizecem.
Dik za radu. Viktor
Spusteni programu pri konci Windows
[*] Bob <delphi(zv)alf.dingo(tec)cz> - 11.6.1999 11:44:39
Ahoj,
myslym, ze vim jak na to a rekl bych, ze je to jednoduchy.
Nastav akorat v MSDOS.SYS polozku BootGUI na 0
BootGUI=0
Potom do autoexecu na konec napis win
a za tento prikaz napis to co chces pustit.
Po ukonceni Windows se provede.
Pokud dat Skonciv v MS-DOS tak se provede dosstart
Bob
* Ale ten se nespousti v pripade
* "Restartovat pocitac" ani v pripade
* "Vypnout pocitac", ale jen v pripade
* "Restartovat PC v rezimu MS-DOS"
* a potom jeste pokud se ma nejaka aplikace
* spoustet v rezimu MS-DOS.
* Jednou jsem neco podobneho take hledal
* a nakonc jsem to vytvoril tak, jak Ty
* nechces - bezelo to od zapnuti PC.
{
> > Hlavne nechci program, ktery by byl pusteny celou dobu (pustil se
> pri
> > zapnuti pocitace).
}
Dobra.
> ----------
> Teda neviem ci som to spravme pochopil, ale ak chces spustit program
> PO
> UKONCENI Win, tak v adresari WINDOWS je subor DOSSTART.BAT, ktory sa
> spusta
> po ukonceni Win a tam si mozes napisat to co chces spustit.
>
> Pavol
>
>
> ----- Original Message -----
> From: Tonda Kmoch <t.kmoch(zv)seznam(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: 09 June 1999 23:20
> Subject: Spusteni programu pri konci Windows
>
>
> > Dobry den,
> > nelze nejak udelat, aby se spusil jisty program pri ukoncovani
> Windows??
> > Neco jako obdoba AUTOEXEC, ted by to byl: ENDEXEC ;-)).
> > Hlavne nechci program, ktery by byl pusteny celou dobu (pustil se
> pri
> > zapnuti pocitace).
> >
> > predem diky
> > // =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= \\
> > | >> Tony Kmoch <<
> > | tonda(zv)kamarad(tec)cz
> > | t.kmoch(zv)seznam(tec)cz
> > | ICQ: #21901427
> > | Czech rep., Europe
> > +----------------------------------
> > | Programmers Network CZ [www.prog(tec)cz]
> > \\ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= //
> >
> zjisteni pohybu mysi mimo aplikaci
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 11.6.1999 11:57:58
Ahoj,
potreboval bych poradit s malym problemkem. Mam Form, pri jehoz prejeti
mysi, tedy OnMouseMove, resetuji jeden citac. Jenomze nevim, jak mam
odchytnout udalost onmousemove mimo ten form, tedy na Desktopu a formech
okolnich aplikaci. Jak na to ?
Dik PK
Go home!
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 12:00:53
Proste a jednoduse spustit napr pres
ShellExecute prikaz 'http://www.home(tec)cz'
Spusti se nastaveny default prohlizec
a nacte se do nej ta stranka.
Nekdo tu ale psal, ze to nemusi fungovat
vzdycky, no, nevim.
Dobra.
> ----------
> Moje aplikace ma takove velike barevne tlacitko s domeckem. Kdyz se na
> nej
> klikne, tak se ma nastartovat browser a v nem se ma objevit homepage
> vyrobce. Ted to delam tak, ze vzdycky vytvorim soubor TEMP.URL, do nej
> zadam
>
> [InternetShortcut]
> URL=http://www.firma(tec)cz/
>
> a pak na to postu aplikaci, asociovanou s priponou URL. Funguje to,
> ale
> neslo by to nejak bez toho souboru? Nejak primeji, napriklad volanim
> nejake
> funkce? Ale aby to zase jelo s kazdym prohlizecem.
>
> Dik za radu. Viktor
>
> Spusteni programu pri konci Windows
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 12:04:06
Napad je to dobry, ale mysliom si, ze
potom nebude po F8 mozne nastartovat
napr. "Jen MS-DOS" ci "V nouzovem rezimu"
> ----------
> myslym, ze vim jak na to a rekl bych, ze je to jednoduchy.
> Nastav akorat v MSDOS.SYS polozku BootGUI na 0
> BootGUI=0
> Potom do autoexecu na konec napis win
> a za tento prikaz napis to co chces pustit.
> Po ukonceni Windows se provede.
> Pokud dat Skonciv v MS-DOS tak se provede dosstart
>
> TCanvas
[*] Honza Fiala <fala(zv)imc(tec)cz> - 11.6.1999 12:10:33
dik za radu k tomuto temam, ale mam jeste jeden dotaz. Kdyz podedim
TCustomControl, tak to na me rve, ze nema rodice. Nasel jsem property
ParentWindow a nevim co do ni mam vlozit.>Nevim, zda jsem te spravne pochopil, ale property Canvas ma uz
TCustomControl.
>Takze si muzes odvodit snadno vlastni komponentu a na jeji Canvas kreslit
trojuhelniky podle ibosti.
WM_KEYDOWN
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 11.6.1999 12:14:30
Mal� Dobromil wrote:
> Diky, ale program mi po stusteni nemilosrdne vytuhne
> (Program provedl neplatnou instrukci...; no, znate to)
> a to tak, ze spolu s nim vytuhnou i Windows.
Ja jsem ten zazipovany priklad od J.Virta vyuzil k detekci beziciho
screensaveru a pri te prilezitosti jsem zjistil, ze ten priklad nechodi
vzdy pod W95. Uprava je nasledujici:
procedure zpracovani(handle:HWND);
var
n: integer;
begin
n := GetWindowTextLength(handle);
Setlength(str, n+1);
pocet := GetWindowText( Handle, PChar(str), n+1);
Setlength(str,pocet);
SetLength(str1,255);
pocet1:= GetClassName (Handle, PChar(str1), 255);
setlength(str1,pocet1);
form1.StringGrid1.Cells[0,x] := IntToStr(handle);
form1.StringGrid1.Cells[1,x] := str;
form1.StringGrid1.Cells[2,x] := str1;
if IsIconic(handle) then
form1.StringGrid1.Cells[3,x] := 'Minimalizovan�';
if IsZoomed(handle) then
form1.StringGrid1.Cells[3,x] := 'Maximalizovan�';
if (IsZoomed(handle) = false) and (Isiconic(handle) = false) then
form1.StringGrid1.Cells[3,x] := 'Normaln�';
if str1 = '#32768' then
form1.StringGrid1.Cells[3,x] := 'Menu';
end;
----------------------
P.S. Muze nekdo zkusenejsi (P.V.) pripadne zkontrolovat, jestli delam
dobre tu detekci ss ?:
function ScreenSaverRunning: boolean;
var
H: HWND;
ClassName: string;
n: integer;
begin
result := true;
H := GetForegroundWindow;
if H <> 0 then //pokud aktivn� okno nen�
screensaver (W-NT)
begin
SetLength( ClassName, 255);
n := GetClassName( H, PChar(ClassName), 255);
setlength( ClassName, n); //pokud aktivn� okno nen�
screensaver (W-9x)
if ClassName <> 'WindowsScreenSaverClass' then
result := false;
end
end;
Doufam, ze nekdo nenapise, ze na to je funkce API :-)
Zdar PF
Ukonceni aplikace pri ukonceni WIN po druhe
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 11.6.1999 12:15:24
Ve skutecnosti musis reagovat uz na zpravu WM_QUERYENDSESSION - to je
dotaz od win a ty muzes odpoved, jestli ano ci ne, WM_ENDSESSION ti
jenom oznamuje, ze uz win konci.
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: Petr Slov�k [SMTP:petr(zv)trilog(tec)cz]
> Odesl�no: 11. �ervna 1999 10:21
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ukonceni aplikace pri ukonceni WIN po druhe
>
> Pred par dny tady byl v konferenci dotaz na to, jak poznat, ze se
> ukoncuji Windowsy a tedy v OnCloseQyery nema zobrazovat nejaky dialog.
>
> Bylo tady receno, ze se to da vyresit pomoci odchyceni WM_ENDSESSION
> message.
>
> > procedure WMEndSession(var Message:TWMEndSession); message
> WM_ENDSESSION;
>
> Dnes jsem resil presne ten samy problem, tak jsem to vyzkousel podle
> rady, ale narazil jsem.
> Mam to napsane nasledovne:
>
> type
> TfrmMain=Class(TForm)
> ...
> ...
> private
> FCloseWithoutMsgDlg:Boolean;
> Procedure WMEndSession(Var Message:TWMEndSession); Message
> WM_ENDSESSION;
> ...
> ...
>
> procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose:
> Boolean);
> begin
> CanClose:=FCloseWithoutMsgDlg;
> If Not(CanClose) Then CanClose:=MessageDlg('Opravdu zavr�t?',
> mtWarning,[mbYes,mbNo],0)=mrYes;
> end;
>
> procedure TfrmMain.FormCreate(Sender: TObject);
> begin
> FCloseWithoutMsgDlg:=False;
> end;
>
> Procedure TfrmMain.WMEndSession(Var Message:TWMEndSession);
> Begin
> FCloseWithoutMsgDlg:=True;
> End;
>
>
> Jenze ma to jeden problem. OnCloseQuery probehne drive nez
> WMEndSession a tak nejdrive vyskoci MessageDlg a potom se teprve
> nastavi FCloseWithoutMsgDlg na True.
> Jak mam zaridit, abych odchytil hlasku drive, nez probehne
> OnCloseQuery?
>
> ==============================
> Ing. Petr Slovak
> e-mail: petr(zv)trilog(tec)cz
> url: http://www.trilog(tec)cz
> tel: 0603 / 501 642
> SMS: +420603501642(zv)sms.paegas(tec)cz
> ==============================Problem s listboxom
[*] martin.falta(zv)obi(tec)cz - 11.6.1999 12:31:06
Pred kazdym nahravanim do ListBoxu zkus zavolat metodu ListBox.Clear.
WM_KEYDOWN
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 12:31:15
Dikym, mrknu na to.
No, nejsem si jisty, ale myslim, ze existuje
neco jako SystemParametersInfo ;-)
Dobra.
> ----------
> P.S. Muze nekdo zkusenejsi (P.V.) pripadne zkontrolovat, jestli delam
> dobre tu detekci ss ?:
>
> function ScreenSaverRunning: boolean;
> var...
>
> Doufam, ze nekdo nenapise, ze na to je funkce API :-)
>
> WM_KEYDOWN
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 11.6.1999 12:41:19
mozna by ti pomohla fce SendKeys v sndkey32.pas
ktera odesle klavesovou zkratku aktivnimu oknu
melo by to byt nekde na instalacnim CD D4
Zdenek Fryz
SendKeys routine for 32-bit Delphi.
Written by Ken Henderson
Copyright (c) 1995 Ken Henderson email:khen(zv)compuserve.com
This unit includes two routines that simulate popular Visual Basic
routines: Sendkeys and AppActivate. SendKeys takes a PChar
as its first parameter and a boolean as its second, like so:
SendKeys('KeyString', Wait);
where KeyString is a string of key names and modifiers that you want
to send to the current input focus and Wait is a boolean variable or value
that indicates whether SendKeys should wait for each key message to be
processed before proceeding. See the table below for more information.
AppActivate also takes a PChar as its only parameter, like so:
AppActivate('WindowName');
where WindowName is the name of the window that you want to make the
current input focus.
SendKeys supports the Visual Basic SendKeys syntax, as documented below.
Supported modifiers:
+ = Shift
^ = Control
% = Alt
Surround sequences of characters or key names with parentheses in order to
modify them as a group. For example, '+abc' shifts only 'a', while '+(abc)'
shifts
all three characters.
Supported special characters
~ = Enter
( = Begin modifier group (see above)
) = End modifier group (see above)
{ = Begin key name text (see below)
} = End key name text (see below)
Supported characters:
Any character that can be typed is supported. Surround the modifier keys
listed above with braces in order to send as normal text.
Supported key names (surround these with braces):
BKSP, BS, BACKSPACE
BREAK
CAPSLOCK
CLEAR
DEL
DELETE
DOWN
END
ENTER
ESC
ESCAPE
F1
F2
F3
F4
F5
F6
F7
F8
F9
F10
F11
F12
F13
F14
F15
F16
HELP
HOME
INS
LEFT
NUMLOCK
PGDN
PGUP
PRTSC
RIGHT
SCROLLLOCK
TAB
UP
Follow the keyname with a space and a number to send the specified key a
given number of times (e.g., {left 6}).
Odchyt�v�n� zpr�v Windows
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.6.1999 12:44:09
Pokusim se naznacit reseni.
Pokud bys to potreboval podrobneji, budeme se tim (mimo jine) zabyvat v Laznich Belohrade prave pristi tyden (viz nize muj web).
Zpravy muze odchytavat jakakoli komponenta odvozena od TWinControl - ma Handle.
Tedy napr. TForm. Napises-li
type
TForm1 = class (TForm)
procedure wmMouseMove(var Msg:TMessage); message WM_MOUSEMOVE;
end;
pak muzes zpravu osetrit v procedure
procedure TForm1.wmMouseMove(var Msg:TMessage);
begin
...
end;
Msg: TMessage obsahuje parametry dane zpravy.
Vyznam techto parametru se lisi podle druhu zpravy.
Pro WM_MOUSEMOVE tam jsou udaje o tom, ktery knoflik mysi byl stisknul, ktere klavesy (Alt, Ctrl, Shift) byly pritom stisknuty a predevsim pozice mysi. U jinych zprav je to jinak, musis se podivat do helpu.
Muzes odchytaval nejen systemove zpravy (WM..., CM...), ale i zpravy vlastni (WM_USER+cosi).
Zpravy muzes do oken sam posilat (PostMessage, SendMessage).
Honza
----------
> Odes�latel: Vaclav_Lukes(zv)EUROTEL.CZ
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Odchyt�v�n� zpr�v Windows
> Datum: 11. �ervna 1999 10:58
>
> Ahoj,
>
> m��ete mi pros�m n�kdo v kostce popsat, jak se odchyt�vaj� zpr�vy z Woken a
> jejich pou�it� ?
>
> D�ky
>
> Va�ek
>
>
> Ukonceni *.bat
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 11.6.1999 12:48:38
Pouzij CreateProcess a Wait.
Vlada Bodecek (Kurz "Win32 API") na to ma peknou funkci, ktera zapouzdruje zbytecne slozitosti pri volani CreateProcess.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Novak Josef <jnovak(zv)anect(tec)cz>
> Komu: 'Delphi konference' <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Ukonceni *.bat
> Datum: 11. �ervna 1999 8:50
>
> Ahoj !!!
> Mam dotaz, ve sve aplikaci spoustim ext. davku (*.bat). Spoustim ji pomoci:
> WinExec('nazev_souboru.*, SW_HIDE');
> Vse je OK, ale potreboval bych nejakym zpusobem vedet kdy se ta davka
> ukoncila.
> Diky Novak
WM_KEYDOWN
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 11.6.1999 12:53:43
The GetForegroundWindow function returns the handle of the foreground
window (the window with which the user is currently working). The system
assigns a slightly higher priority to the thread that creates the
foreground window than it does to other threads.
HWND GetForegroundWindow(VOID)
Parameters
This function has no parameters.
Return Values
The return value is the handle of the foreground window.
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: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 11. �ervna 1999 11:28
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: WM_KEYDOWN
>
> Diky, ale program mi po stusteni nemilosrdne vytuhne
> (Program provedl neplatnou instrukci...; no, znate to)
> a to tak, ze spolu s nim vytuhnou i Windows.
> Bitmapy do formularu
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 11.6.1999 12:56:44
Zkus se mrknout na www.grafika(tec)cz tam se da obcas neco najit. Je to sice v
tiskovem formatu, ale prevest to "dolu" na rozliseni obrazovky a do bmp by
nemel byt problem.
eL..
jslavice(zv)vce(tec)cz wrote:
> "Pavel ZIDEK" <kopr(zv)kopr(tec)cz> na 10.06.99 09:23:35
>
> Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
>
> Komu: delphi-l(zv)fwd(tec)cz
> Kopie: (Na v�dom�: Josef Slavicek/HS/VCE)
> P�edm�t: Re: Bitmapy do formularu
>
> Content-type: text/plain; charset�-ascii
>
> >Zkus
> >http://www.purescience.com/delphi/download.htm
> >Pekny den (rano, vecer i noc) preje
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> KOPR software Pavel ZIDEK voice 069 / 66 02 156
> mailto:kopr(zv)kopr(tec)cz http://www.kopr(tec)cz/w-delphi http://www.kopr(tec)cz
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
>
> Vyse doporucenou webovou stranku znam. Je tam temer 10000 bitmapovych
> souboru, bohuzel vhodnych pouze jako ikony do tlacitek, ale ne jako
> pozadi do formularu. Proto prosim, zda nekdo nezna webovou stranku
> anebo jiny zdroj napr. CD, kde by byly bitmapy vhodne pro pozadi. Dik
> predem.
>
> Josef Slavicek
>
> Hradec Kralove
QRComp.Report a ulozeni do soub.
[*] tomas.mazurek(zv)vitkovice(tec)cz - 11.6.1999 11:01:18
Dobry den, kolegyne a kolegove
Resil nekdo jak ulozit QRCompositeReport do nejakeho souboru? Stacil
by mi i QRP. Diky za kazdou radu...
TM
WM_KEYDOWN
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.6.1999 13:09:31
Nojo, ale kdyz ja potrebuju konkretni okno
nejakeho WinControlu; mam na formu nekolik
TEditu, a WM_KEYDOWN/UP musim posilat primo
jim :-(> ----------
> The GetForegroundWindow function returns the handle of the foreground
> window (the window with which the user is currently working)...zjisteni pohybu mysi mimo aplikaci
[*] Jiri Vrabec Java -5 rocnok <xvrabe00(zv)kapr.fme.vutbr(tec)cz> - 11.6.1999 13:11:45
Na to je GetCursorPos
J.
On Fri, 11 Jun 1999, [iso-8859-2] Petr Kro�a ml. wrote:
> Ahoj,
> potreboval bych poradit s malym problemkem. Mam Form, pri jehoz prejeti
> mysi, tedy OnMouseMove, resetuji jeden citac. Jenomze nevim, jak mam
> odchytnout udalost onmousemove mimo ten form, tedy na Desktopu a formech
> okolnich aplikaci. Jak na to ?
>
> Dik PK
> Go home!
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 11.6.1999 12:39:09
Nikdy jsem to sice nezkousel, ale melo by to jit funkci ShellExecute. Uz
tu o tom parkrat byla rec.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Viktor.Lostak(zv)chmi(tec)cz [SMTP:Viktor.Lostak(zv)chmi(tec)cz]
> Odesl�no: 11. �ervna 1999 11:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Go home!
>
> Moje aplikace ma takove velike barevne tlacitko s domeckem. Kdyz se na
> nej
> klikne, tak se ma nastartovat browser a v nem se ma objevit homepage
> vyrobce. Ted to delam tak, ze vzdycky vytvorim soubor TEMP.URL, do nej
> zadam
>
> [InternetShortcut]
> URL=http://www.firma(tec)cz/
>
> a pak na to postu aplikaci, asociovanou s priponou URL. Funguje to,
> ale
> neslo by to nejak bez toho souboru? Nejak primeji, napriklad volanim
> nejake
> funkce? Ale aby to zase jelo s kazdym prohlizecem.
>
> Dik za radu. Viktor
> Go home!
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 11.6.1999 14:37:37
Tak jo, funguje to, alespon s Exploderem na mem pocitaci, jestli vseobecne,
to jeste nevim. Diky za radu. Viktor
----- Original Message -----
From: Petr Brant <p.brant(zv)samo(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, June 11, 1999 1:39 PM
Subject: RE: Go home!
Nikdy jsem to sice nezkousel, ale melo by to jit funkci ShellExecute. Uz
tu o tom parkrat byla rec.
registry 2
[*] Miroslav �ipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 11.6.1999 15:11:31
Ahoj,
jeste jednou se ptam - pot�ebuju ve W95 vyexportovat jednu v�tev
registru do souboru a na jinem pocitaci ji znovu z tohoto souboru
naimportovat. Export delam pomoci objektu TRegistry metodou SaveKey coz
funguje (vytvorim binarni soubor). Ted ale nevim jak pouzit obracenou funkci
LoadKey. Poradte prosim jak to udelat aby to fungovalo.
dekuju moc
M.
True Type Font
[*] Michal Moscovic <moscovic(zv)fred.utc.sk> - 11.6.1999 17:21:18
Zdar seci,
potreboval by som neproporcionalny (rovnaka sirka vsetkych znakov) true type font do
windows, ktory verne zobrazuje ASCII znaky. Nieco ako font TERMINAL ale aby bol True Type.
Vdaka moc...
S pozdravom
SALMON
(Michal Moscovic)
e-mail:
salmon(zv)frcatel.utc.sk
moscovic(zv)fred.utc.sk
web:
http://fred.utc.sk/~moscovic Go home!
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 11.6.1999 23:21:39
Taky se da pouzit WinExec(Pchar('http://.......'),...) to by melo fungovat vzdy
pokud je na tom pocitaci asociovana pripona *.htm , *.html k nejakemu browseru.
Ma to ovsem nepekny vedlejsi efekt (problikne DOSovske okno).
Viktor Lostak wrote:
> Tak jo, funguje to, alespon s Exploderem na mem pocitaci, jestli vseobecne,
> to jeste nevim. Diky za radu. Viktor
>
> ----- Original Message -----
> From: Petr Brant <p.brant(zv)samo(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, June 11, 1999 1:39 PM
> Subject: RE: Go home!
>
> Nikdy jsem to sice nezkousel, ale melo by to jit funkci ShellExecute. Uz
> tu o tom parkrat byla rec.
True Type Font
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 11.6.1999 23:34:00
Zdravim.
Nevim co mas na mysli "vernym zobrazenim ASCII znaku" ale myslim, ze na
svem PC urcite mas font Courier New.
Ja zase shanim take neproporcionalni font, ktery by obsahoval ramecky
jako v DOSU.
A nemusel by byt ani True Type.
eL..
Michal Moscovic wrote:
> Zdar seci, potreboval by som neproporcionalny (rovnaka sirka
> vsetkych znakov) true type font dowindows, ktory verne zobrazuje ASCII
> znaky. Nieco ako font TERMINAL ale aby bol True Type. Vdaka
> moc... S pozdravom SALMON
> (Michal Moscovic) e-mail:
> salmon(zv)frcatel.utc.sk
> moscovic(zv)fred.utc.sk web:
> http://fred.utc.sk/~moscovic
Systemove ikony
[*] Tomas Skopik <skopik(zv)vtv(tec)czn(tec)cz> - 12.6.1999 11:50:37
Ahoj.
Muzete mi prosim poradit jak pouzit v aplikaci ikony pro soubory standartne pouzivane systemem? Tedy, mam seznam souboru (TListView) a chtel bych, aby u kazdeho byla jeho ikona.
Dik,
----------
Tomas Skopik
e-mail : skopik(zv)vtv(tec)czn(tec)cz
DbiQInstantiateAnswer + Language driver
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 12.6.1999 17:25:52
>Pokud chci pracovat nezavisle na nastaveni BDE, a to je opravdu casto potreba,
lze potrebne parametry nastavit v TDatabase.Params.
>Viz tez GetAliasParams, SetAliasParams.
Dotaz byl na Language driver, coz neni parametr aliasu.
Na jeho zjisteni lze pouzit
Session.GetCofigParams('\DRIVERS\PARADOX\INIT\','',strings);
Jak jej ale nastavit?
Jak nastavit LocalShare v runtime? Nekde jsem to asi videl, ale nevim kde:)
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
autoincrement na SQL serveru
[*] Jaro <jaro(zv)sinea(tec)cz> - 12.6.1999 19:03:11
Zajiste mas pravdu. Slo o zamenu pojmu.
byl to muj omyl
Jaro
------------------------------------------------------
>Necetl jsem posledni diskusi o autoincrementu, ale nechapu proc by
melo byt
>nevhodne pouzit autoincrement na primarni klic tabulky. Napr.
hlavicka
>faktury bude mit vygenerovane jedinecne cislo a toto cislo se pouzije
jako
>primarni klic i v tabulce, kde jsou ulozeny polozky faktury (+poradi
vety).
>Pak SQL dotazem si z tabulky hlavicek faktur vyberu ty ktere
potrebuji
>(napr. ucetni obdobi, datum vystaveni...) a pak pres dalsi SQL dotaz
na toto
>generovane cislo si vyberu z polozek faktur potrebne vety. Toto se mi
zda
>jednodussi na udrzbu vazeb mezi tabulkami (napr. jednoducha zmena
cisla
>faktury).
>
>Ales Dana
>
>
>
>-----P�vodn� zpr�va-----
>Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
>Jaro
>Odesl�no: 8. �ervna 1999 22:31
>Komu: delphi-l(zv)fwd(tec)cz
>P�edm�t: Re: autoincrement na SQL serveru
>
>
>Nedavno tu na tohle tema byla obsirna diskuse. Podivej se do archivu.
>Slo o to, ze pro C/S
>programy je pouziti autoincrementu velmi nevhodne. Naproti tomu ma
>server a SQL jazyk daleko
>sirsi a lepsi moznosti pro vyber a hledani pozadovanych informaci,
>takze potreba autoincrementu
>zpravidla odpada. Je to spise zvyk. Ti kdoz prechazeji od tabulek na
>C/S se snazi programovat
>stejne. Nedovedou si predstavit jiny pohled na problem. Programy C/S
>jsou o necem zcela jinem nez
>o otevirani celych tabulek na klienta a vyhledavani informaci az na
>klientovi. To je ale na delsi
>diskusi.
>Pokud na teto metode trvas, pak pouzij Locate a pocitej s tim, ze to
>na velkych objebem dat bude
>spise zdrzovat. Muzes to ale klidne otevrit pres TTable a pracovat
jak
>jsi byl zvykly s tabulkami.
>Bude to vsak vzdalene programum zalozenym na principech C/S
>Jaro
>------------------------------------------
>>Ahoj
>>
>>potrebuji udelat neco podobneho jako je increment v tabulkach
>paradoxu ale ja to potrebuji udelat na MS SQL serveru verze 6.5
>>
>>nevim jak poradi nekdo ???
>>
>>
>>
>>
>>-- http://email.seznam(tec)cz
>>-- email zdarma na cely zivot
>
>
>virus
[*] Martin <geoplan(zv)pp.sinet.sk> - 13.6.1999 15:14:20
Zdravim,
dostal som zaujimavy mail, v predmete bol iba text CENOVA PONUKA a pripojeny
jeden exe s nazvom HAPY99.exe.
Nezdalo sa mi to,ulozil som ho na disk a pustil na to F-PROT. Je to virus.
Takze bacha.
Mimochodom nevie niekto o antivire, ktory vie kontrolovat postu ?
Martin
RX
[*] phamak(zv)faxmodem(tec)cz - 13.6.1999 16:24:20
Nevite, kde sehnat RX komponenty? Adresa http://rx.demo.ru/ je nefunkcni...
P.Hamak
virus
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 13.6.1999 18:02:31
Cauec,
neco k viru je treba tady - http://svet.namodro(tec)cz/go/r-art.asp?id=990220007
a jak s nim zatocit tady - http://svet.namodro(tec)cz/go/r-art.asp?id=990502053
Bye Ludan
>dostal som zaujimavy mail, v predmete bol iba text CENOVA PONUKA a
pripojeny
>jeden exe s nazvom HAPY99.exe.
>Nezdalo sa mi to,ulozil som ho na disk a pustil na to F-PROT. Je to virus.
>Takze bacha.
>Mimochodom nevie niekto o antivire, ktory vie kontrolovat postu ?
>
>Martin
virus
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 13.6.1999 18:21:46
Se mi zda ze nove AVG 6.0 by mohlo byt to prave
Petr
> -----Original Message-----
> From: Martin [mailto:geoplan(zv)pp.sinet.sk]
> Sent: Sunday, June 13, 1999 3:14 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: virus
>
>
> Zdravim,
>
> dostal som zaujimavy mail, v predmete bol iba text CENOVA
> PONUKA a pripojeny
> jeden exe s nazvom HAPY99.exe.
> Nezdalo sa mi to,ulozil som ho na disk a pustil na to F-PROT.
> Je to virus.
> Takze bacha.
> Mimochodom nevie niekto o antivire, ktory vie kontrolovat postu ?
>
> Martin
> autoincrement na SQL serveru
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.6.1999 20:14:24
Aha ;-) Inu kazda databaze ma svoje specifika, s tim se holt musime poprat ;-)
Mac
Vlastimil Bardon wrote:
> Zajimave upozorneni. Ma MS SQL jsem TimeStamp jeste nepouzil a tak jsem si
> toho nevsimnul. Ale kdysi jsem dost pracoval s aplikaci nad IBM SQL
> Serverem a ta pouzivala TimeStamp presne jako autoinkrement - tedy k
> jednoznacne identifikaci zaznamu.
>
--
==============================================================
= 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 mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
virus
[*] VP <vpetr(zv)bigfoot(tec)com> - 13.6.1999 20:16:26
Happy99 neni skoro nic proti ..wormu
http://www.idnes(tec)cz/IdsKosile/veda/pocnovinky.asp?x=pocnovinky/clanky/990611_104056_domaci_jpl
...stoji za precteni
----- Original Message -----
From: Ing. Ludek Florian <ludan(zv)bluerose(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, June 13, 1999 6:02 PM
Subject: Re: virus
> Cauec,
>
> neco k viru je treba tady - http://svet.namodro(tec)cz/go/r-art.asp?id=990220007
>
> a jak s nim zatocit tady - http://svet.namodro(tec)cz/go/r-art.asp?id=990502053
>
> Bye Ludan
>
> >dostal som zaujimavy mail, v predmete bol iba text CENOVA PONUKA a
> pripojeny
> >jeden exe s nazvom HAPY99.exe.
> >Nezdalo sa mi to,ulozil som ho na disk a pustil na to F-PROT. Je to virus.
> >Takze bacha.
> >Mimochodom nevie niekto o antivire, ktory vie kontrolovat postu ?
> >
> >Martin
>
> virus
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 13.6.1999 20:22:05
V dnesni dobe (kdy si makroviry ve Wordu a Excelu dokazi vypnout
dialogove okno na kontrolu maker ;-) uz mam radeji pusteny rezidentne
AVAST.
Mac
"Jezek Petr, Ing. (DELVINA)" wrote:
> Se mi zda ze nove AVG 6.0 by mohlo byt to prave
> Petr
--
==============================================================
= 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 mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
TGraphicControl Paint
[*] Petr Kure� - 13.6.1999 20:56:43
Ahoj, taky jsem resil problem s prekreslovanim a pouzil jsem zminenou
metodu, ale nakonec jsem narazil na jeden zajimavy problem. Muj program ma
taky podobne pozadavky, potrebuji vykreslovat data, ktera se posilaji do
pocitace pres seriovou linku a to pomerne rychle, zhruba tak 200 vzorku za
sekundu. Pouzivam normalne TBitmap v pameti a kazdych x (20) vzorku to
prekreslim na obrazovku pomoci CopyRect. Jenze pokud to mam spustene u sebe
(NT4 sp4) tak se to po urcite dobe "kousne" a to tak, ze prestane fungovat
ono kopirovani na Canvas PaintBoxu, ve kterem je graf zobrazovan. Zkousel
jsem vsechno mozne, zamikani Canvasu apod(mam osetreno, ze se mi nevola
dvakrat prekresleni, k cemuz muze dojit, kdyz ja chci prekreslovat, nebo se
vola OnPaint), ale nepodarilo se mi to rozumne rozhcodit, staci kdyz parkrat
pohnu mysi i mimo moje okno a je konec ... Pod W9x to chodi podstatne
stabilneji, ale nekdy to taky spadne. Nevite nekdo co s tim??
Dik Petr
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Petr Brant
> Odesl�no: 9. �ervna 1999 14:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TGraphicControl Paint
>
>
> Resenim by bylo kreslit do bitmapy umistene v pameti (TBitmap) a tu pak
> metodou Draw nebo CopyRect prenaset vzdy po nakresleni na Canvas te
> komponenty. Je to rychle a bez blikani.
>
> ************************************************************************
> *******************************
>
> Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
> Visual Basic
>
> ************************************************************************
> *******************************
>
>
> > -----P�vodn� zpr�va-----
> > Od: Roman [SMTP:roman.banar.fei(zv)vsb(tec)cz]
> > Odesl�no: 9. �ervna 1999 8:56
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: TGraphicControl Paint
> >
> > ahoj,
> > mam komponentu odvozenou od TGraphicControl a metodu Paint:
> > muj problem je, ze pred kazdym vykreslenim se canvas te komponenty
> > smaze a az potom se vykresluje co ja chci, coz ma za nasledek
> > probliknuti a vzhledem k tomu, ze to cele funguje jako VU Meter a
> > stav se updatuje nekolikrat za sekundu, je to dost nezadouci... nevi
> > nekdo co s tim? /zkousel jsem nechat handler na WM_ERASEBKGND prazdny,
> >
> > ale porad je videt, jak pres to obcas preleti barva formulare.../
> >
> > predem dik moc za nejaky napad
> > preju prijemny den
> > Roman
> > -------------------------
> > amatersky flakac v Delphi
> > email: roman.banar.fei(zv)vsb(tec)cz
> > email: jozin.z.bazin(zv)email(tec)cz
> > www : http://home.vsb(tec)cz/Jozin.z.Bazin/
>