Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
adresa sitove karty
[*] Tomas Holy <thom(zv)comberg(tec)cz> - 12.10.1999 13:58:33
Ahoj,
nevite nekdo, jak lze zjistit adresu sitoveho adapteru, kvuli jednoznacne
identifikace pocitace
diky moc,
Tom� Hol�
Comberg s.r.o.
B�lehradsk� 76 / 443
+420-2-900 55 462
GSM:+420-603 43 32 31
TRXDBLookupCombobox
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 12.10.1999 14:11:48
Helou Thome,
no pak existuje jeste reseni, slusne tady nekoho poprosit, jestli by se mu
nechtelo kouknout do zdrojaku od RX a trochu to tam poheftovat a pridat tam
tu moznost na pridani tehle fce. Podle meho lajckeho nazoru to ale nebude
zase tak jednoduche, ale je fakt, ze takovej Lookup by se v Delphi siknul.
Marek
P.S. jojo osobni mejly jsou bestialita
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Tomas Holy
> Odesl�no: 12. listopadu 1999 12:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TRXDBLookupCombobox
>
>
> Hellou Marku
> dobre, nechci provokovat, ale v accessu existuje krasna property
> OnNotInList ...
>
> tam to fuguje tak, ze kdyz napises text, tak on zobrazi normalne tu cast,
> ktera matchuje s necim v lookup listu, a zbytek zobrazi inverzne.
> kdyz pridas pismenu, zmeni stav podle stejnych pravidel.
> takze tam muzes napsat cokoliv, a kdyz nastane OnExit, tak se teprve resi,
> co se bude dit.
>
> pokud nastane ze chces pridat novou kolonku, tak musis uz sam zobrazit
> dialog, na zadany zbylych hodnot, nebo tam strcit nahodne texty, apod.
>
> ale to bych asi chtel moc, snad delphi 8.0b buld 1458
>
> snad se nekdy dockame.
>
> P.S. stejne me stve, ze se nekteri lide zneuzivaji verejnou konferenci k
> osobno komunikaci
>
> TH
referencia
[*] Ji�� Kr�l jr. - 12.10.1999 14:30:35
Doporucuji sqely ale drahy ERwin
http://www.platinum.com/products/appdev/erwin_ps.htm
to je proste (nejen) rentgen na skoro kazdou dB
Jiri Kral
algoritmus na piskvorky
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 12.10.1999 13:47:50 -0000
Piskvorky jsem psal, pouze na jeden tah dopredu, tedy:
pole 20*20, prosel jsem to dvakrat
1. pro sebe
2. pro soupere
podle toho ko mel vetsi ohodnocovaci funkci jsem se rozhodoval, zda utocit, nebo se branit.
ohodnocovaci fukce byla vcelku jednoducha, prosla to v osmi smerech a (pro kazdy volny pole)
a vysledky scitala (ztech smeru), jinak pocitala kolik je tam znacek v rade(podle poztu znacek
priradila miru nebezpecnosti, nelionearne).
Vysledek: hralo dobre v obrane, dobre v utoku, ale nic mezi (po zatlaceni do defenzivy to byla jen
otazka casu, nez jej clovek porazi), ale jinak nepmylne porad stejne -> jednou porazis, vzdy porazis
Slavek
-----P�vodn� zpr�va-----
Od: Viktor Lostak [SMTP:Viktor.Lostak(zv)chmi(tec)cz]
Odesl�no: 12. listopadu 1999 7:22
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: algoritmus na piskvorky
Tedy teoreticky. V piskvorkach (nekde jsem to cetl) pri idealni hre musi
vzdycky vyhrat ten co zacina. Viktor
----- Original Message -----
From: Erik Salaj <winsoft(zv)napri.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, November 11, 1999 10:25 PM
Subject: Re: algoritmus na piskvorky
> > Jestli zacinas, tak ho porazit MUSIS. Viktor
>
> Ako si na to prisiel?
>
> Erik Salaj
>
>Pocitace na siti...
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 12.10.1999 13:51:50 -0000
Na jake siti ?
Pokud MS (je to naprosto sileny system, ktery se tvari ze funguje), tak zkus Sambu (linuxovi server tvarici se jako MS).
Ale informace co dostanes nemusi byt zrovna pravdive (trva to asi 15 minut nez se promitnou zmeny).
Slavek
-----P�vodn� zpr�va-----
Od: Vladimir Ponechal [SMTP:vladimirp(zv)seznam(tec)cz]
Odesl�no: 12. listopadu 1999 6:46
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Pocitace na siti...
Prosim, nakopne me nekdo, jak muzu vytahnout z pocitacu na siti informace jako MAC adresu a nazev pocitace????
Dekuji moc...
VP.
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
SQL record
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 12.10.1999 14:00:28 -0000
No jeste to jde takle (specialne pro interbase, jelikoz se mi nechtelo psat pro kazdou tabulku SP
(nezkousel jsem predavat nazev generatoru jako promenou):
select gen id(<geberator name>,<increment>)
FROM RDB$GENERATORS
WHERE RDB$GENERATOR NAME = Upper('<generator name>')
generator name je n�zev gener�toru,
increment: o kolik se m� hodnota gener�toru zv��it, pokud n�s zaj�m� aktu�ln� hodnota gener�toru, pou�ijeme 0, pokud chceme nov� PK pou�ijeme 1.
To prece nicemu nevadi, protoze ten druhy take pouzije generator
a on obdrzi nove vyssi cislo. Generator pri kazdem zavolani
zvysi cislo, takze duplicita je vyloucena. Jakmile ti generator jednou
prideli ID, tak uz ti ho nikdo nemuze obsadit, i kdyz te muze predbehnout.
Pokud by nekdo pri Insert nahodou nezavolal generator,
tak by jeho ID bylo neobsazene a zaznam by nesel ulozit,
protoze ID by melo byt zaroven primarnim klicem
nebo by melo byt alespon NOT NULL.
Vyhoda takoveho (dopredneho) volani generatoru spociva napr.
pri tvorbe master-detail, kdy musis vsechny detaily ocislovat hodnotou
ID - master a pritom master se ulozi az se vsemi detaily najednou.
Jaro
adresa sitove karty
[*] Doller.Jozef(zv)zsr.sk - 12.10.1999 15:04:12
Ak myslis MAC adresu (fyzicku) tak je to prikaz nbtstat -A xxx.xxx.xxx.xxx
nbtstat -A meno_pc
Prednedavnom som posielal, na tuto temu dotaz, ci vie niekto v Delphi
urobit, alebo pozna hotovy program
ktor� by kontroval zadany rozsah na sieti, zapisoval to do databazy a pri
zmene (vymenena IP (napr. kvoli pristupu na internet))
vyrobil paniku
Niekto mi poslal linku
Pro D3 a D4 http://www.pbe.com/SourceWorks/Winshoes/Documentation
Vyborne programky ...
Lenze, toto zapisuje zmeny len na lokalnom PC
Ak niekto vie kde by som to nasiel please ....... budem zaviazany
Jozo.
> -----P�vodn� zpr�va-----
> Od: Tomas Holy [SMTP:thom(zv)comberg(tec)cz]
> Odesl�no: 12. november 1999 13:59
> Komu: Delphi-L
> P�edm�t: adresa sitove karty
>
> Ahoj,
>
> nevite nekdo, jak lze zjistit adresu sitoveho adapteru, kvuli
> jednoznacne
> identifikace pocitace
>
> diky moc,
>
> Tom� Hol�
> Comberg s.r.o.
> B�lehradsk� 76 / 443
> +420-2-900 55 462
> GSM:+420-603 43 32 31
PageControl
[*] Zden��ek Vokounek <vokoun(zv)datis.cdrail(tec)cz> - 12.10.1999 15:13:57
Portebuju poradit !! Delam to ve C++ Buildru, ale v Delphi se to dela urcite stejne !
Mam hlavni okno aplikace a v nem PageControl s napr. 3 listy !
Ted tam potrebuji dynamicky pridat dalsi list (4), a to z moji dll knihovny.
Ja to dokazu, ale ten list je prazdny bez ovladacich prvku, jelikoz nevim, jak
udelat nejakou vazbu na formular (tzn. potreboval bych aby v dll si vytvoril nejaky
formular s prvky, a ten pak dokazal za chodu pridat do PageControl v hlavnim okne!!)
Dekuji za radu
IB_Users databese
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 12.10.1999 15:15:13 -0000
jak resite zpravu uzivatelu na IB ?
Ja to resim pridelenim prav na Isc4.gdb/users (insert, update). Neni nejake "hezci" reseni
jak pracovat s uzivateli v IB (Na ORACLE to byla pohoda).
Vim, je to bezpecnostni dira (nelze sice nic ukrastm ale lze zkoplikovat zivot),
ale jak jinak zajistit aby si na IB mohl uzivatel zmenit sve vlastni heslo,
nebo aby mohl (napriklad mistr) pridat noveho delnika (obsluhu) do systemu bez nutnosti
volat admina ?
Mit admin heslo v programu vyjde jeste o neco hure.
Slavek
PS: Nevite jak se pripojit Isc4.gdb aniz bych znal jeji umisteni, jinak receno, odkud si bere toto umisteni
server manager ?
ing. Slavomir Skopalik DEL a.s.
Olomoucka 355 Marianske udoli 783 75
----------------------------------------------
Tel: 068 535 35 48
Fax: 068 535 23 64
e-mail:skopalik(zv)atlas(tec)cz
Otoceni obrazku
[*] Miso <villim(zv)pobox.sk> - 12.10.1999 20:54:17
P�edm�t: Otoceni obrazku
> Ahoj lidicky,
> mam takovej malej dotaz:
> Lze, kdyz do TImage nactu obrazek, ho nejak otocit o 90 stupnu ?
> Dik za kazdou radu
> Tom
>
Na http://www.utilmind.com som nasiel komponentu ktora by mohla byt
riesenim (je k tomu i demo) pri nefunkcnosti stiahnut zaslem sukromnym
mailom.
Miso
komponenta:
{*************************************************************}
{ Rotate Image Component for Delphi 16 }
{ Version: 1.00 }
{ Author: Aleksey Kuznetsov }
{ E-Mail: info(zv)utilmind.com }
{ Home Page: http://www.utilmind.com }
{ Created: March, 4, 1998 }
{ Modified: March, 6, 1998 }
{ Legal: Copyright (c) 1998, UtilMind Solutions }
{*************************************************************}
{ TROTATEIMAGE: }
{ Extended TImage with flip and rotate functions. }
{*************************************************************}
{ Extended METHODS: }
{ }
{ FlipVertical: Flip image vertical. }
{ FlipHorizontal: Flip image horizontal. }
{ Rotate180: Rotates image on 180 degrees }
{ Rotate90: Rotates image on 90 degrees }
{ }
{ All of this methods will return False if no Bitmap present. }
{*************************************************************}
{ Also see demonstration program. }
{*************************************************************}
{ IMPORTANT NOTE: }
{ This software is provided 'as-is', without any express or }
{ implied warranty. In no event will the author be held }
{ liable for any damages arising from the use of this }
{ software. }
{ Permission is granted to anyone to use this software for }
{ any purpose, including commercial applications, and to }
{ alter it and redistribute it freely, subject to the }
{ following restrictions: }
{ 1. The origin of this software must not be misrepresented, }
{ you must not claim that you wrote the original software. }
{ If you use this software in a product, an acknowledgment }
{ in the product documentation would be appreciated but is }
{ not required. }
{ 2. Altered source versions must be plainly marked as such, }
{ and must not be misrepresented as being the original }
{ software. }
{ 3. This notice may not be removed or altered from any }
{ source distribution. }
{*************************************************************}
{ If at occurrence of any questions concerning these }
{ component, please visit our website: www.utilmind.com }
{*************************************************************}
unit RotateBM;
interface
uses
{$IFDEF WIN32} Windows, {$ELSE} WinTypes, WinProcs, {$ENDIF}
Classes, ExtCtrls, Graphics;
type
TRotateImage = class(TImage)
private
protected
public
function FlipVertical: Boolean;
function FlipHorizontal: Boolean;
function Rotate180: Boolean;
function Rotate90: Boolean;
published
end;
procedure Register;
implementation
type
LongType = record
case Word of
0: (Ptr: Pointer);
1: (Long: LongInt);
2: (Lo: Word;
Hi: Word);
end;
procedure AHIncr; far; external 'KERNEL' index 114;
function TRotateImage.FlipVertical: Boolean;
var
Alloc: LongInt;
ts, te, Start, Endp, FromAddr, ToAddr, Bits, SecondBits: LongType;
{$IFDEF WIN32}
Info: Windows.TBitmap;
{$ELSE}
Info: WinTypes.TBitmap;
{$ENDIF}
Hand, SecondHand: THandle;
i: Integer;
w: Word;
begin
if not Picture.Bitmap.Empty then
begin
{$IFDEF WIN32}
GetObject(Picture.Bitmap.Handle, SizeOf(Windows.TBitmap), (zv)Info);
{$ELSE}
GetObject(Picture.Bitmap.Handle, SizeOf(WinTypes.TBitmap), (zv)Info);
{$ENDIF}
with Info do
begin
Alloc := bmPlanes * bmHeight;
Alloc := Alloc * bmWidthBytes;
end;
Hand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit,Alloc);
SecondHand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit,Alloc);
Bits.Ptr := GlobalLock(Hand);
SecondBits.Ptr := GlobalLock(SecondHand);
GetBitmapBits(Picture.Bitmap.Handle, Alloc, Bits.Ptr);
Start.Long := 0;
Endp.Long := Alloc - Info.bmWidthBytes;
for i := 0 to Info.bmHeight - 1 do
begin
FromAddr.Hi := Bits.Hi + Start.Hi * Ofs(AHIncr);
FromAddr.Lo := Start.Lo;
ToAddr.Hi := SecondBits.Hi + Endp.Hi * Ofs(AHIncr);
ToAddr.Lo := Endp.Lo;
w := $FFFF - FromAddr.Lo;
if w < Info.bmWidthBytes then
begin
inc(w);
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
ts.Long := Start.Long + w;
te.Long := Endp.Long + w;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi + te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
w := Info.bmWidthBytes - w;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
end
else
begin
w := $FFFF - ToAddr.Lo;
inc(w);
if w < Info.bmWidthBytes then
begin
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
ts.Long := Start.Long + w;
te.Long := Endp.Long + w;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi+te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
w := Info.bmWidthBytes - w;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
end
else move(FromAddr.Ptr^, ToAddr.Ptr^, Info.bmWidthBytes);
end;
Start.Long := Start.Long + Info.bmWidthBytes;
Endp.Long := Endp.Long - Info.bmWidthBytes;
end;
SetBitmapBits(Picture.Bitmap.Handle, Alloc, SecondBits.Ptr);
GlobalUnlock(SecondHand);
GlobalUnlock(Hand);
GlobalFree(SecondHand);
GlobalFree(Hand);
Repaint;
Result := True;
end
else Result := False;
end;
function TRotateImage.FlipHorizontal: Boolean;
var
Alloc, l: LongInt;
ts, te, Start, Endp, FromAddr, ToAddr, Bits, SecondBits: LongType;
{$IFDEF WIN32}
Info: Windows.TBitmap;
{$ELSE}
Info: WinTypes.TBitmap;
{$ENDIF}
Hand, SecondHand: THandle;
ByteForPixel: Byte;
i, j: Integer;
b: Byte;
w: Word;
begin
if not Picture.Bitmap.Empty then
begin
{$IFDEF WIN32}
GetObject(Picture.Bitmap.Handle, SizeOf(Windows.TBitmap), (zv)Info);
{$ELSE}
GetObject(Picture.Bitmap.Handle, SizeOf(WinTypes.TBitmap), (zv)Info);
{$ENDIF}
with Info do
begin
Alloc := bmPlanes * bmHeight;
Alloc := Alloc * bmWidthBytes;
end;
Hand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit, Alloc);
SecondHand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit, Alloc);
Bits.Ptr := GlobalLock(Hand);
SecondBits.Ptr := GlobalLock(SecondHand);
GetBitmapBits(Picture.Bitmap.Handle, Alloc, Bits.Ptr);
ByteForPixel:=Info.bmWidthBytes div Info.bmWidth;
if (ByteForPixel <= 2) and Odd(Info.bmWidth) and Odd(ByteForPixel) then
b := ByteForPixel else b := 0;
for i := 0 to Info.bmHeight-1 do
begin
l := i;
Start.Long := l * Info.bmWidthBytes;
Endp.Long := Start.Long+(Info.bmWidthBytes - ByteForPixel - b);
if (ByteForPixel > 2) and Odd(ByteForPixel) and Odd(Info.bmWidth) then
dec(Endp.Long);
for j := 0 to Info.bmWidth - 1 do
begin
if (ByteForPixel > 2) and Odd(ByteForPixel) and
((Endp.Lo + ByteForPixel < Endp.Lo) or (Start.Lo + ByteForPixel <
Start.Lo)) then
begin
if Endp.Lo + ByteForPixel < Endp.Lo then w := 0 - Endp.Lo
else w := 0 - Start.Lo;
ts.Long := Start.Long;
te.Long := Endp.Long;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi + te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
ts.Long := Start.Long + w;
te.Long := Endp.Long + w;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi + te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
w := ByteForPixel - w;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
end
else
begin
FromAddr.Hi := Bits.Hi + Start.Hi * Ofs(AHIncr);
FromAddr.Lo := Start.Lo;
ToAddr.Hi := SecondBits.Hi+Endp.Hi * Ofs(AHIncr);
ToAddr.Lo := Endp.Lo;
move(FromAddr.Ptr^, ToAddr.Ptr^, ByteForPixel);
end;
Start.Long := Start.Long + ByteForPixel;
Endp.Long := Endp.Long - ByteForPixel;
end;
end;
SetBitmapBits(Picture.Bitmap.Handle, Alloc, SecondBits.Ptr);
GlobalUnlock(SecondHand);
GlobalUnlock(Hand);
GlobalFree(SecondHand);
GlobalFree(Hand);
Repaint;
Result := True;
end
else Result := False;
end;
function TRotateImage.Rotate180: Boolean;
var
i, l, Alloc: LongInt;
ts,te,Start, Endp, FromAddr, ToAddr, Bits, SecondBits: LongType;
{$IFDEF WIN32}
Info: Windows.TBitmap;
{$ELSE}
Info: WinTypes.TBitmap;
{$ENDIF}
Hand, SecondHand:THandle;
ByteForPixel: Byte;
b: Byte;
w: Word;
begin
if not Picture.Bitmap.Empty then
begin
{$IFDEF WIN32}
GetObject(Picture.Bitmap.Handle, SizeOf(Windows.TBitmap), (zv)Info);
{$ELSE}
GetObject(Picture.Bitmap.Handle, SizeOf(WinTypes.TBitmap), (zv)Info);
{$ENDIF}
with Info do
begin
Alloc := bmPlanes * bmHeight;
Alloc := Alloc * bmWidthBytes;
end;
Hand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit, Alloc);
SecondHand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit, Alloc);
Bits.Ptr := GlobalLock(Hand);
SecondBits.Ptr := GlobalLock(SecondHand);
GetBitmapBits(Picture.Bitmap.Handle, Alloc, Bits.Ptr);
ByteForPixel := Info.bmWidthBytes div Info.bmWidth;
Start.Long := 0;
if Odd(Info.bmWidth) and Odd(ByteForPixel) then b := ByteForPixel else b
:= 0;
Endp.Long := Alloc - ByteForPixel - b;
l := (Alloc - (b + ByteForPixel)) div ByteForPixel;
if (ByteForPixel > 2) and Odd(ByteForPixel) and
Odd(Info.bmWidth) then
begin
inc(Endp.Long, b - 1);
l:=l - Info.bmHeight div ByteForPixel + 1;
end;
for i := 0 to l do
begin
if (ByteForPixel > 2) and Odd(ByteForPixel) and
((Endp.Lo + ByteForPixel < Endp.Lo) or (Start.Lo + ByteForPixel <
Start.Lo)) then
begin
if Endp.Lo + ByteForPixel < Endp.Lo then w := 0 - Endp.Lo
else w := 0 - Start.Lo;
ts.Long := Start.Long;
te.Long := Endp.Long;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi + te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
ts.Long := Start.Long + w;
te.Long := Endp.Long + w;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi + te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
w := ByteForPixel - w;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
end
else
begin
FromAddr.Hi := Bits.Hi + Start.Hi * Ofs(AHIncr);
FromAddr.Lo := Start.Lo;
ToAddr.Hi := SecondBits.Hi+Endp.Hi * Ofs(AHIncr);
ToAddr.Lo := Endp.Lo;
move(FromAddr.Ptr^, ToAddr.Ptr^, ByteForPixel);
end;
if (ByteForPixel > 2) and Odd(ByteForPixel) and
((i + 1) mod Info.bmWidth = 0) and
Odd(Info.bmWidth) then
begin
Start.Long := Start.Long + (ByteForPixel + 1);
Endp.Long := Endp.Long - (ByteForPixel + 1);
end
else
begin
Start.Long := Start.Long + ByteForPixel;
Endp.Long := Endp.Long - ByteForPixel;
end;
end;
SetBitmapBits(Picture.Bitmap.Handle, Alloc, SecondBits.Ptr);
GlobalUnlock(SecondHand);
GlobalUnlock(Hand);
GlobalFree(SecondHand);
GlobalFree(Hand);
Repaint;
Result := True;
end
else Result := False;
end;
function TRotateImage.Rotate90: Boolean;
var
Alloc, l: LongInt;
ts, te, Start, Endp, FromAddr, ToAddr, Bits, SecondBits: LongType;
{$IFDEF WIN32}
Info: Windows.TBitmap;
{$ELSE}
Info: WinTypes.TBitmap;
{$ENDIF}
Hand, SecondHand: THandle;
ByteForPixel: Byte;
i, j: Integer;
w: Word;
begin
if not Picture.Bitmap.Empty then
begin
{$IFDEF WIN32}
GetObject(Picture.Bitmap.Handle, SizeOf(Windows.TBitmap), (zv)Info);
{$ELSE}
GetObject(Picture.Bitmap.Handle, SizeOf(WinTypes.TBitmap), (zv)Info);
{$ENDIF}
with Info do
begin
Alloc := bmPlanes * bmHeight;
if Odd(bmHeight) then inc(Alloc, bmPlanes);
Alloc := Alloc * bmWidthBytes;
end;
Hand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit, Alloc);
Bits.Ptr := GlobalLock(Hand);
GetBitmapBits(Picture.Bitmap.Handle, Alloc, Bits.Ptr);
i := Picture.Bitmap.Width;
j := Picture.Bitmap.Height;
Picture.Bitmap.Width := j;
Picture.Bitmap.Height := i;
Width := j;
Height := i;
SecondHand := GlobalAlloc(gmem_Moveable or gmem_ZeroInit, Alloc);
SecondBits.Ptr := GlobalLock(SecondHand);
ByteForPixel := Info.bmWidthBytes div Info.bmWidth;
for i := 0 to Info.bmHeight - 1 do
begin
l := i;
Start.Long := l * Info.bmWidthBytes;
Endp.Long := (Info.bmHeight - i) * ByteForPixel - ByteForPixel;
for j := 0 to Info.bmWidth - 1 do
begin
if (ByteForPixel > 2) and Odd(ByteForPixel) and
((Endp.Lo + ByteForPixel < Endp.Lo) or (Start.Lo + ByteForPixel <
Start.Lo)) then
begin
if Endp.Lo + ByteForPixel < Endp.Lo then w := 0 - Endp.Lo
else w := 0 - Start.Lo;
ts.Long := Start.Long;
te.Long := Endp.Long;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi + te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
ts.Long := Start.Long + w;
te.Long := Endp.Long + w;
FromAddr.Hi := Bits.Hi + ts.Hi * Ofs(AHIncr);
FromAddr.Lo := ts.Lo;
ToAddr.Hi := SecondBits.Hi + te.Hi * Ofs(AHIncr);
ToAddr.Lo := te.Lo;
w := ByteForPixel - w;
move(FromAddr.Ptr^, ToAddr.Ptr^, w);
end
else
begin
FromAddr.Hi := Bits.Hi + Start.Hi * Ofs(AHIncr);
FromAddr.Lo := Start.Lo;
ToAddr.Hi := SecondBits.Hi + Endp.Hi * Ofs(AHIncr);
ToAddr.Lo := Endp.Lo;
move(FromAddr.Ptr^, ToAddr.Ptr^, ByteForPixel);
end;
Start.Long := Start.Long + ByteForPixel;
l:=Info.bmHeight * ByteForPixel;
if Odd(l) then inc(l);
Endp.Long := Endp.Long + l;
end;
end;
SetBitmapBits(Picture.Bitmap.Handle, Alloc, SecondBits.Ptr);
GlobalUnlock(SecondHand);
GlobalUnlock(Hand);
GlobalFree(SecondHand);
GlobalFree(Hand);
Repaint;
Result := True;
end
else Result := False;
end;
procedure Register;
begin
RegisterComponents('UtilMind', [TRotateImage]);
end;
end.
TRXDBLookupCombobox
[*] Tomas Holy <thom(zv)comberg(tec)cz> - 13.10.1999 11:06:15
nazdar
uz se stalo, nasel jsem inkriminovany misto, ale radeji poprosim nekoho
Sajnaka o reseni, samemu se mi do toho nechce ...
JE TO ZVER
Ale pujde to ...
jinak se jedna o funkci
function TRxLookupControl.SearchText(var AValue: string): Boolean; //
tady se to hleda
stacilo by pridat Event OnNotInList a property LimitToList ... a je to
Gotovo
cau
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Marek Soukup
Sent: Friday, November 12, 1999 2:12 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: TRXDBLookupCombobox
Helou Thome,
no pak existuje jeste reseni, slusne tady nekoho poprosit, jestli by se mu
nechtelo kouknout do zdrojaku od RX a trochu to tam poheftovat a pridat tam
tu moznost na pridani tehle fce. Podle meho lajckeho nazoru to ale nebude
zase tak jednoduche, ale je fakt, ze takovej Lookup by se v Delphi siknul.
Marek
P.S. jojo osobni mejly jsou bestialita
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Tomas Holy
> Odesl�no: 12. listopadu 1999 12:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TRXDBLookupCombobox
>
>
> Hellou Marku
> dobre, nechci provokovat, ale v accessu existuje krasna property
> OnNotInList ...
>
> tam to fuguje tak, ze kdyz napises text, tak on zobrazi normalne tu cast,
> ktera matchuje s necim v lookup listu, a zbytek zobrazi inverzne.
> kdyz pridas pismenu, zmeni stav podle stejnych pravidel.
> takze tam muzes napsat cokoliv, a kdyz nastane OnExit, tak se teprve resi,
> co se bude dit.
>
> pokud nastane ze chces pridat novou kolonku, tak musis uz sam zobrazit
> dialog, na zadany zbylych hodnot, nebo tam strcit nahodne texty, apod.
>
> ale to bych asi chtel moc, snad delphi 8.0b buld 1458
>
> snad se nekdy dockame.
>
> P.S. stejne me stve, ze se nekteri lide zneuzivaji verejnou konferenci k
> osobno komunikaci
>
> TH
Mouse a Grid
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 13.10.1999 13:00:10
----- P�vodn� zpr�va -----
Od: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 11. listopadu 1999 10:08
P�edm�t: Re: Mouse a Grid
> Ok. asi som to nevysvetlil celkom dobre. Ja si potrebujem v stringgride
> nadefinovat vlastny pohyb. To znamena, ze v evente OnKeyDown mam napriklad
> taketo nieco:
>
> Case key of
> 40: Dole;
> 37: Vpravo;
> ....
> end;
> Key:=0;
> No a to key mi vypne standardny pohyb v stringgride a pohybujem sa iba
podla
> kriterii v Case. No a ja si chcem tak isto nadefinovat pohyb misou. Vypnut
> standard.
>
> PS: Ked Nastavim v evente OnSelectCell CanSelect:=false, tak mi nejde
ziadny
> pohyb.
Ahoj,
jestli jsem to dobre pochopil tak jsi
implicitne nastavil CanSelect na False.
To ne. V OnSelectCell jde napriklad o tohle
...
if (ACol in [3,5,7]) and (ARow in [6,8,10]) then
CanSelect:= False
else
CanSelect:= True;
...
Tzn. ze Cells bude-li vyhovovat teto podmince
nebude mozne vybrat, jinak samozrejme ano.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
>
> Michal Hlavac
> Spolocnost priatelov deti z detskych domovov
> Usmev ako dar
>
> e-mail: 7hlavac(zv)nw.fmph.uniba.sk
> web: www.usmev.sk
>
> -----P�vodn� zpr�va-----
> Od: Pavel Malinsk� <spiderland(zv)seznam(tec)cz>
> Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
> Datum: 11. november 1999 0:28
> P�edm�t: Re: Mouse a Grid
>
>
> ----- P�vodn� zpr�va -----
> Od: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>
> Komu: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 10. listopadu 1999 10:56
> P�edm�t: Mouse a Grid
>
> > Zdravim,
> > poteboval by som vypnut veskery pohyb kurzora v StringGride mysou. Aby
sa
> mi
> > nepresunul, ked kliknem na nejaku cell. Klavesy som odsunul tym, ze som
> dal
> > na keydown key:=0. Na Mys som skusal dat na OnMouseDown ze
Button:=null;,
> > ale to mi nefunguje. Dik za kazdu radu.
>
> Ahoj,
>
> mozna by's mohl pouzit event OnSelectCell
> kde mas moznost nastavit CanSelect. Kdyz
> ho nastavis na False, tak policko nebude mozne
> vybrat ani klavesami ani mysakem.
>
> S pozdravem
> ==================================
> > Pavel Malinsky; spiderland(zv)seznam(tec)cz <
> >================================<
> > ...The Truth Is Out There... <
> ==================================
> GSM: 0602 652 203
>
>
>
Oracle 8.1.5. a Delphi 4
[*] Bohdan Pomsah�r <bpomsahar(zv)nocomment.sk> - 13.10.1999 13:56:37
takmer bez problem s delphi 5 (mam to vyskusane)
-----Original Message-----
From: Jan Fryscak <fryscak(zv)scio(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 12. november 1999 13:05
Subject: Oracle 8.1.5. a Delphi 4
>Nemate nekdo zkusenosti s nativnim spojenim Delphi 4 (5) a Oracle 8.1.5?
>Hlavne me zazjima, zda to vubec jde.
>Diky
>
>Honza
Aplikace
[*] OFFMAN <OFFMAN(zv)seznam(tec)cz> - 13.10.1999 15:40:23
Zdrav�m V�s
Jsem v Delphi za��te�n�k. M�m n�sleduj�c� probl�m. M�m vytvo�enou funk�n� aplikaci (obsahuje grafy). Kdy� tuto aplikaci p�enesu na jin� po��ta� (zkop�ruji ex��) a spust�m, tak vysko�� chybov� hl�ka : "Exeptionm EOleSysError in module Project1.exe at 0002CC35. T��da nen� zaregidtrov�na.".
Pora�te mi, pros�m, jak vytvo�it aplikaci tak, aby ji nebylo nutn� instalovat, ale spou�t�t p��mo z diskety nebo CD. Aplikaci m�m vytvo�enou v Delphi3 Standard. Bude-li nutn�, po��d�m si nov�j�� verzi (Delphi5).
D�kuji za jakoukoliv radu
Offman
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Aplikace
[*] delp(zv)post(tec)cz - 13.10.1999 16:28:28
Zdravim vsechny,
mam takovy problem s pridanim dalsiho pole
do databaze (Paradox) a nevim, jak na to. Pokud pouziju
AddField, tak to nic nedela.
Budu moc rad, kdyz mi nekdo poradi. Diky
Kde najdete hospodu podle piva?
*** http://NAJDI.TO
algoritmus na piskvorky
[*] Erik Salaj <winsoft(zv)napri.sk> - 13.10.1999 17:10:57
> Piskvorky su kompletne preskumana hra
> je prejdeny cely podstatny strom moznosti
>
> a neviem ci je dokazane, ze ten co zacina
> musi vyhrat
>
> niekde na Internete som nasiel dobry
> material aj s matematickym podchytenim
> ale adresu mam doma
Mozem Ta poprosit o ten material, celkom by ma
to zaujimalo.
Dik
Erik
Word v MDI
[*] Ren� Otisk - 13.10.1999 23:09:47
Hi,
Nabidku soubor se mi nepodarilo nikdy zobrazit, i kdyz jsem zkousel s GroupIndexem kouzla. Ja to resil tak, ze jsem si napsal udalosti na Otevrit, Ulozit, Ulozit jako, Zavrit, Konec svych menuitems, protoze jsem nikde nenasel reseni (asi stejny problem jako ty). Ale uz jsem neumel obslouzit ukazku pred tiskem, vzhled stranky ci vlastnosti...
Sroub
zkousim to jeste jednou, copak se to nikomu nestalo?? Kdyz si otevru Word v MDI aplikaci, tak se mi neukaze wordovske menu soubor. Word oteviram pomoci OleContaineru. A me zajima, jak tam dostat to menu soubor, a nebo jak obslouzit ty metody, ktere menu soubor obsahuje??Posun obr�zku
[*] Va�ek N�vrat���zx"��뢖�z?� - 14.10.1999 11:54:51
�au lidi,
jsem spolutv�rce elektronick�ho magaz�nu Engine (www.ropacek(tec)cz/engine) a ob�as bych pot�eboval s n���m "p�chnout".
Pro za��tek bych se cht�l zeptat, jestli n�kdo nev�, jak plynule posouvat obr�zek JPG po plo�e v aplikaci Delphi? Kdy� pou�iju �asova� a nech�m ho, aby co chv�li posouval Image1 ��m d�l t�m v�c do prava, je tam vid�t p�ekreslov�n� a nevypad� to p�kn�. Z�ejm� to bude pot�ebovat DirectX. Mohl by mi teda n�kdo poradit?
P�edem d�ky..
Va�ek N�vrat
P�ehr�v�n� v�ce zvuk� najednou
[*] Va�ek N�vrat���zx"��뢖�z?� - 14.10.1999 12:06:29
Nazd�rek,
m�l bych je�t� jeden probl�m. Zkou�el jsem pou�it� n�kolika komponent a r�zn�ch p��klad� na p�ehr�v�n� n�kolika zvuk� najednou, ale ka�d� dok�zal p�ehr�t zvuk jen ve form�tu PCM. Jako�to tv�rce �asopisu pot�ebuju �et�it ka�d�m kB, a tak skoro v�echny zvuky komprimuju pomoc� MP3 Compressoru do form�tu MPEG Layer 3 Audio. Po t�to kompresi m� soubor st�le p��ponu WAV a pokud m�te spr�vn� ve Windows nainstalovan� kodek, dok�e jej p�ehr�t ka�d� WAV p�ehr�va�. Bohu�el kdy� se pokus�m p�ehr�t v�c takov�ch zvuk� najednou, program za�ne vypisovat bu�, �e to nen� spr�vn� PCM form�t, nebo �e nem��e vytvo�it buffer. Nev�m, co s t�m d�lat - mohl by mi n�kdo pomoct?
P�edem d�ky...
Va�ek N�vrat
Komponenta pro zobrazov�n� textu
[*] Va�ek N�vrat���zx"��뢖�z?� - 14.10.1999 12:11:19
Dobr� den,
cht�l bych se zeptat, jestli n�kdo nem� n�jakou komponentu, kter� by dok�zala zobrazit r�znobarevn� text, vkl�dat JPG obr�zky a odkazy, neozna�ovat text pomoc� my�i a nezobrazovat blikaj�c� kurzor. Je toho sice mo�n� trochu moc, ale t�eba by sta�ilo alespo� n�co z toho.
P�edem d�ky...
Va�ek N�vrat
Re[2]: Monitoring systemovych zdrojov
[*] Petrik <petrik(zv)geocities(tec)com> - 14.10.1999 12:19:20
Nazdarek,
>> U nas pouzivame BoundsChecker, daji se tam nastavit ruzne stupne
JT> a kde se to da sehnat?
JT> mozno nekde stahnout, nebo draze zaplatit,
JT> kdo to vyrabi?
1) Je i "DISTRIBUCE" pro Delphi, ja jsem to v nem zkousel a vopravdu to pod
Delphi funguje. Po prekladu to napise status.
2) posledni verze (kterou mam) je BoundsChecker for Delphi 6.01 (11.3MB)
3) dela to "NuMega Software" - a je to SAKRA DRAHY !! - zadnej
freeware. Delaj to ty totalni manici co udelali napr. SoftICE32
(nejcoolovejsi debugger - uz jste krokovali start Windows ? ;) ).
4) dalsi info :
BoundsChecker is the premier run-time error detection and debugging tool for
Visual C++ developers using Windows NT or Windows 95/98. It speeds development
and time-to-market by automating the debugging process � right inside Visual C++
Developer Studio. BoundsChecker provides clear, detailed analyses of programming
errors, many of which are unique to C++. It detects and diagnoses errors in
static, stack and heap memory, and in memory and resource leaks. BoundsChecker
validates over 8,700 APIs and OLE Methods at run-time, including the latest
Windows APIs, ODBC, ActiveX, DirectX, COM, and Internet APIs.
5) moje zkusenost - kdyz mi pri spusteni prg. stale narustala pamet,
tak sem to na to pustil a vono to nahlasilo "no errors", pritom sem
pozdeji zjistil, ze sem neuvolnoval jeden dynam. pointer. No asi sem
ten BoundsChecker mel blbe nastavenej, ale takovoudle pakarnu proste
nenasel.
Cus,
Petrik mailto:petrik(zv)geocities.com
Polozka v komponente TreeView
[*] ludek palan <ludek.palan(zv)seznam(tec)cz> - 14.10.1999 16:33:35
Dne 12. listopadu 1999 v 13:24 Nikodem napsal(a):
>
> Ahoj,
>
>
> mam komponentu TreeView a v n� n�jaky strom, potrebuji zjistit, ktera polozka je prave aktivni, ale s celou cestou tj. vcetne nadrazenych korenu
>
>
> napr. "Knika\Vyklad\Slova" a ne jen "Slova"
>
> Vim, ze u komponenty OutLine to lze pomoci metody FullPath, ale jak to udelat u TreeView to nevim.
Zdar,
no nevim jestli v TreeView neco takoveho existuje, ale zkus tohle:
function FullPath(Node :TTreeNode) :string;
begin
Result:='';
while Assigned(Node) do begin
Result:=Node+'\'+Result;
Node:=Node.Parent;
end;
if Result <> '' then
Result:=copy(Result,1,Length(Result)-1);
end;
a pro vybranou polozku zvolej
s:=FullPath(TreeView.Selected);
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
DAO
[*] Erik Salaj <winsoft(zv)napri.sk> - 14.10.1999 15:39:50
Zabezpecenu databazu bez spravneho workgroup (mdw) suboru neotvoris.
Erik Salaj
co znamena Jet nepouzije user-level security. Ak mam zabezpecenu databazu, otvori ju ? alebo zahlasi chybu Mierny OT: Interbase a datum
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 14.10.1999 16:50:36
Mam polozku datum typu date (not null primary key) tj je zarucene ze
jeidenticka. Do tabulky vkladam kazdy den (aj to je zarucene). potreboval by
som sa dostat ku vcerajsiemu datumu t.j. nieco ako TODAY - 1, ale toto
nefunguje.
Pracujem s Perlom 5.004 a IBPerl 0.7, IB 5.1.1 for WinNT alebo IB 4.0 for
Linux
Pokusim sa vybrat z tabulky zaznam WHERE (DATUM = 'TODAY')
pokial tam neexistuje tak potrebujem vybrat z tabulky vcerajsi zaznam WHERE
(DATUM = ???????)
Diky
Mierny OT: Interbase a datum
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 14.10.1999 17:54:51
> Mam polozku datum typu date (not null primary key) tj je zarucene ze
> jeidenticka. Do tabulky vkladam kazdy den (aj to je zarucene). potreboval
> by
> som sa dostat ku vcerajsiemu datumu t.j. nieco ako TODAY - 1, ale toto
> nefunguje.
>
> Pracujem s Perlom 5.004 a IBPerl 0.7, IB 5.1.1 for WinNT alebo IB 4.0 for
> Linux
>
> Pokusim sa vybrat z tabulky zaznam WHERE (DATUM = 'TODAY')
> pokial tam neexistuje tak potrebujem vybrat z tabulky vcerajsi zaznam
> WHERE
> (DATUM = ???????)
>
> Diky
>
V Oracli je na to fnc NEXT_DAY, ale mozno je to standart.. JJ
TImage: Click+DblClick
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 14.10.1999 18:31:52
Ahojte !
Potrebujem nad TImage zachytit kliknutie mysou dvakrat za sebou.
Pri prvom kliknuti sa mi TImage "vysvieti", pri druhom uz chcem
s "vysvietenym" obrazkom vykonat urcitu akciu.
Ak chytam udalost OnClick, tak druhe kliknutie nad obrazkom
mi priradenu obsluhu uz nezavola.
Ak za vyssieuvedenym ucelom priradim TImage obsluhu OnDblClick,
tak program vzdy zavola len OnClick, t.j. OnDblClick je "mimo hru".
Nevedel by mi niekto poradit ako by som to mohol riesit ?
Peter
Mierny OT: Interbase a datum
[*] Pavel M. <talema(zv)top(tec)cz> - 14.10.1999 19:00:37
Tak pouzij Yesterday.
Plati pro IB.
Pavel M.
p.s pro nasleduji den je to analogicky Tomorrow.
----- Original Message -----
> Mam polozku datum typu date (not null primary key) tj je zarucene ze
> jeidenticka. Do tabulky vkladam kazdy den (aj to je zarucene). potreboval
by
> som sa dostat ku vcerajsiemu datumu t.j. nieco ako TODAY - 1, ale toto
> nefunguje.
>
> Pracujem s Perlom 5.004 a IBPerl 0.7, IB 5.1.1 for WinNT alebo IB 4.0 for
> Linux
>
> Pokusim sa vybrat z tabulky zaznam WHERE (DATUM = 'TODAY')
> pokial tam neexistuje tak potrebujem vybrat z tabulky vcerajsi zaznam
WHERE
> (DATUM = ???????)
>
> Diky
Popum menu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:00:28
Tibor Galik wrote:
>
> Ako mam naprogramovat Button aby sa spraval ako tlacitko s otaznikom? Ked definujem pre TForm BorderIcons=[biMaximize,biMinimize] nefunguje biHelp. Ale chcel by som to urobit na tlacitko. Co sa generuje pri stlaceni biHelp.
Ahoj,
Tady mas komponentu TFrameShape ktera se chova jako takove tlacitko.
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/Other/DelphiDays99_FrameShape.zip
--
Petr Vones, amatersky programator
Polozka v komponente TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:00:34
> mam komponentu TreeView a v n� n�jaky strom, potrebuji zjistit, ktera
> polozka je prave aktivni, ale s celou cestou tj. vcetne nadrazenych korenu
> napr. "Knika\Vyklad\Slova" a ne jen "Slova"
Ahoj,
Napriklad takhle:
function TreeNodeFullPath(Node: TTreeNode; const Delimiter: Char = '\'):
String;
begin
Result := Node.Text;
Node := Node.Parent;
while Node <> nil do
begin
Result := Node.Text + Delimiter + Result;
Node := Node.Parent;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(TreeNodeFullPath(TreeView1.Selected));
end;
--
Petr Vones, amatersky programator
Show Hint
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:00:20
"Bab�k Martin (+42035620,MUS a.s. M.Babik)" wrote:
>
> Zdravim,
> zajimalo by mne, jak zobrazit hint kdy se mi bude chtit a ne kdy se mi to zobr
> azi automaticky. Funkce ActiveHint mi nejak presvedcive nefunguje.
Ahoj,
Jedna z moznosti je pomoci THintWindow, viz odkaz:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=13367
--
Petr Vones, amatersky programator
TRXDBLookupCombobox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:00:44
Marek Soukup wrote:
>
> Helou Thome,
> no pak existuje jeste reseni, slusne tady nekoho poprosit, jestli by se mu
> nechtelo kouknout do zdrojaku od RX a trochu to tam poheftovat a pridat tam
> tu moznost na pridani tehle fce. Podle meho lajckeho nazoru to ale nebude
> zase tak jednoduche, ale je fakt, ze takovej Lookup by se v Delphi siknul.
Ahoj,
Siknul, ale to TRxDBLookupCombobox se k tomu neda moc pouzit. Dokonce se
neda ani moc dobre pouzit TDBLookupControl jako predek, protoze neni
zrovna nejlepe navrzen. Zkratka se to musi napsat cele od zacatku.
--
Petr Vones, amatersky programator
FTP server urceny pro vymenu souboru v konferenci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:00:00
Ahoj,
Jelikoz zde opet trosku ozil problem s posilanim priloh do konference, tak
bych chtel jen pripomenout, ze pro tyto ucely zde byl uz zrizen FTP server.
Pred jeho pouzitim si nejdrive dukladne (!) prectete toto:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/readme.txt
Soubory jsou pak zde v prislusnych adresarich:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/
Username a heslo pro upload najdete tady:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\jul\13\dlfaaabl.htm
--
Petr Vones, amatersky programator
Control.OnExit pri close
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:01:55
Daniel Rott wrote:
>
> Pri vytvoreni formulare:
> FormCreate - FormShow - FormActive - Edit1Enter
> Pri pohybu mezi controly na formulari:
> Edit1Exit - Edit2Enter
> Pri ukonceni formulare:
> FormCloseQuery - FormClose - FormHide - FormDestroy
>
> Tzn. pri vytvoreni control dostane Enter, ale pred zavrenim ne.
Ahoj,
Podle me je to logicky, pri vytvoreni formulare nema "nikdo" focus a po
aktivaci formulare jej pak musi dostat nektery control (Edit1). Kdyz pak
formular zaviras neni treba volat OnEnter protoze formular se uz rusi.
--
Petr Vones, amatersky programator
Spatne uvolnovani resourcu ve W9x (TBitBtn a TSpee
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:02:51
Martin Kleiner wrote:
>
> Pred casem tu na tohle tema probehla debata a Petr Vones publikoval reseni
> pro D5.
> Zajimalo by me, zda je k dispozici reseni pro D4CS, popripade zda je mozno
Ahoj,
Pokusim se to upravit i pro D4. Jinak k tomu jeste upresneni, problemem
neni spatne uvolnovani systemovych zdroju, v tom neni chyba. Problem je
v tom, ze urcite komponenty jich v dobe sve existence spotrebovavaji
zbytecne mnoho.
--
Petr Vones, amatersky programator
ADO a Paradox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:02:05
Erik Salaj wrote:
> Najvhodnejsi by bol nativny provider pre Paradox, ale Borland zatial taky
> nema a ina firma to nemoze napisat. Asi najvyhodnejsie bude pouzit Jet 4.0
Ahoj,
Paradox byl prodan Corelu, takze snazit se budou muset asi oni.
--
Petr Vones, amatersky programator
method list in run time
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:02:36
> TUNGLI Jan wrote:
>
> Je mozne vypisat zoznam method objektu?
>
> TOject pozna tieto funkcie:
> function MethodAddress(const Name: ShortString): Pointer; - vrati adresu
> na nejaku methodu
> function MethodName(Address: Pointer): ShortString; - varti nazov methody
>
> Ale ak je mozne ziskat vsetky methody - zoznam ?
Ahoj,
Toto plati pouze pro published sekci trid (navic s nastavenym generovanim
RTTI informaci).
--
Petr Vones, amatersky programator
DrawText a ExtTextOut
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:02:21
Jiri Binder wrote:
> To je sice pravda, ale z helpu jsem nedokazal vycist, co vedlo
> programatopry Borlandu k tomu, ze nevahali vykreslovani bunky
> dbGridu programovat dvakrat v zavislosti na barve pozadi bunky.
> To prave musi souviset s nekterou jinou vlastnosti techto fci, nez
> jsou formatovaci moznosti.
Ahoj,
Podle me jde o to, ze pokud pouzivas nejaky historicky pocitac ktery nema
videokartu umoznujici alespon HighColor, tak by to pri vykreslovani barev
ktere nejsou primo v palete neprijemne blikalo. Pouziti DrawText ci
ExtTextOut je asi rovnocenne (alespon o zadnem vyznamnem rozdilu nevim :-)
Zkuste se nekdo kdo mate jeste D1 podivat, jestli uz tato cast kodu v
DBGrids.pas je.
--
Petr Vones, amatersky programator
Barva v TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:04:29
Radek Lev� wrote:
> Jde nejak zmenit barva oznaceni (myslim barvu toho ramecku a vyplne kolem
> textu) u TreeView ? Pou��v�m pro barvu textu jinou barvu ne� �ernou a po
> ozna�en� je text t�m�� ne�iteln�.
Ahoj,
Napriklad takhle (pro D5):
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if cdsFocused in State then
with Sender.Canvas do
begin
Brush.Color := clLime;
if cdsHot in State then Font.Style := Font.Style + [fsUnderline];
end;
end;
--
Petr Vones, amatersky programator
Vsechny PC na siti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:04:37
> Petr Voborn�k wrote:
>
> Jakym zpusobem by se dali vypsat jmena vsech pocitacu na siti?
Ahoj,
Pomoci funkci WNetOpenEnum, WNetEnumResource, WNetCloseEnum. Nejaky priklad
na to najdes treba tady:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=13346
--
Petr Vones, amatersky programator
reprezentacia double precision
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:04:42
Lubos Dusanic wrote:
> neviete nahodou niekto, ako je reprezentovany v skutocnosti (napr. ak ho
> zapisem na disk) typ double? potrebujem z disku precitat 8 bytov, ktore
> maju znazornovat cislo vo formate "ieee double precision", ale sa mi
> nejako nedari ...
Ahoj,
Najdes to v "Object Pascal Language Guide" (bud mas papirovou verzi nebo
PDF) pod heslem "Internal Data Formats" (v Delphi 5 je to kapitola 11-2).
--
Petr Vones, amatersky programator
Zaheslovana sdilena slozka
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:04:48
> Petr Voborn�k wrote:
>
> Kdyz nejaky pocitac sdili slozku pod heslem (ktere samozrejme znam), jak
> se do ni pres Delphi dostanu, abych v ni mohl pracovat jako nezaheslovane
> a aniz by to uzivatele obtezovalo s windowsackym oknem vyzadujicim heslo.
Ahoj,
Podivej se na API funkci WNetAddConnection2 ci WNetAddConnection3.
--
Petr Vones, amatersky programator
TAction, TActionList a neco jako RadioGroup
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:04:19
Petr Vaclavek wrote:
> No a ja bych potreboval nejak nasimulovat radio group (proste aby
> mohla byt vybrana (checked) PRAVE JEDNA z techto akci (kdyz vyberu
> jinou, tak ta co byla vybrana drive se odcheckne)
> Dival jsem se do helpu a na nic kloudneho jsem neprisel
> Zkousel jsem toto:
>
> // Vypnuti vsech
> for i := 0 to ActionList.ActionCount-1 do
> if (ActionList.Actions[i].Category = 'Sort') then
> ActionList.Actions[i].Checked := false;
> Ale tady jsem narazil, protoze to pole je pole TContainedAction a
> nejak jsem se nedovedl dopracovat k vlastnosti Checked :-(
Ahoj,
Pretypuj to na TAction:
(ActionList.Actions[i] as TAction).Checked := false;
--
Petr Vones, amatersky programator
Tisk na Canvas
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:04:09
Jaroslav Uher wrote:
> Kdyz tisknu na Canvas, tak je vyvolano dialog. okno kde je implicitne
> nastaven CheckBox "tisk do souboru". na true
> Potreboval bych zmenit na false. Asi to pujde pres nejakakou API
> funkci. Ale nevim jak.
Ahoj,
A jakym zpusobem ten tisk provadis ? Pokud pouzivas TPrintDialog tak se
podivej na jeho vlastnost Options.
--
Petr Vones, amatersky programator
Komponenta pro zadani casu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.1999 23:04:33
Petr Zika wrote:
>
> Ahoj
>
> Potreboval bych komponentu pro zapis casu (nejlepe Free).
> Mela by byt:
> - K napojeni na DB (MS SQL 6.5)
> - Pro zadani casu potrebuji definovat masku (napr. hh:mm)
Ahoj,
Pouzij TDBEdit a nastav prislusnou EditMask.
--
Petr Vones, amatersky programator
Delphi2Java
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 15.10.1999 01:03:55
Ahojte,
hral jste si s tim nekdo?
http://www.javadelphi.com/
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Posun obr�zku
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 15.10.1999 07:36:36
Tusim, ze od Delphi 4 existuje fce DoubleBuffered. Zkus nastavit
DoubleBuffered na TRUE treba na ONCREATE formulare, po kterem pohybujes s
obrazkem a blikat by to potom nemelo. DirectX je samozrejme lepsi reseni,
protoze je na to delanej...
S pozdravem
Tom
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
-----P�vodn� zpr�va-----
Od: Va�ek N�vrat [mailto:engine(zv)ropacek(tec)cz]
Odesl�no: 14. listopadu 1999 11:55
Komu: Delphi forum
P�edm�t: Posun obr�zku
�au lidi,
jsem spolutv�rce elektronick�ho magaz�nu Engine ( www.ropacek(tec)cz/engine
<http://www.ropacek(tec)cz/engine> ) a ob�as bych pot�eboval s n���m "p�chnout".
Pro za��tek bych se cht�l zeptat, jestli n�kdo nev�, jak plynule posouvat
obr�zek JPG po plo�e v aplikaci Delphi? Kdy� pou�iju �asova� a nech�m ho,
aby co chv�li posouval Image1 ��m d�l t�m v�c do prava, je tam vid�t
p�ekreslov�n� a nevypad� to p�kn�. Z�ejm� to bude pot�ebovat DirectX. Mohl
by mi teda n�kdo poradit?
P�edem d�ky..
Va�ek N�vrat
TaskList
[*] Ing. Radim Bro�ek <radim.brozek(zv)berit(tec)cz> - 15.10.1999 07:42:39
Poradte mi prosim, jak ve 32-bit aplikaci zjistim seznam bezicich uloh ( to co se zobrazi v TaskListu po Ctrl + Alt+ Del ).
V Delphi 1 byla knihovna Toolhelp a funkce TaskFirst, TaskNext, ale v D3 pro uz tohle nejde.
Diky za radu.
S pozdravem
Miki
TImage: Click+DblClick
[*] Brabec Tom� <brabec(zv)nym.pvt(tec)cz> - 15.10.1999 07:50:27
Co zkusit nejaky prepinac
Globalni promenna AKCE typu BOOLEAN, Akce nastavim na udalosti ONCREATE
formulare na FALSE
Udalost ONCLICK by sla osetrit:
***
procedure TForm1.Button1Click(Sender: TObject);
begin
IF Akce = false THEN
begin
Vysviceni .....
Akce:= true;
Exit;
end;
IF Akce = true THEN
begin
Pozadovana akce .....
Akce:= false;
Exit;
end;
end;
***
S pozdravem Tom
Tom� Brabec
PVT Nymburk, a.s.
e_mail: Tomas.Brabec(zv)pvt(tec)cz
brabec(zv)nym.pvt(tec)cz
tel: 0325/519639
-----P�vodn� zpr�va-----
Od: Peter Vlkovic [mailto:vlkovic(zv)minv.sk]
Odesl�no: 14. listopadu 1999 18:32
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: TImage: Click+DblClick
Ahojte !
Potrebujem nad TImage zachytit kliknutie mysou dvakrat za sebou.
Pri prvom kliknuti sa mi TImage "vysvieti", pri druhom uz chcem
s "vysvietenym" obrazkom vykonat urcitu akciu.
Ak chytam udalost OnClick, tak druhe kliknutie nad obrazkom
mi priradenu obsluhu uz nezavola.
Ak za vyssieuvedenym ucelom priradim TImage obsluhu OnDblClick,
tak program vzdy zavola len OnClick, t.j. OnDblClick je "mimo hru".
Nevedel by mi niekto poradit ako by som to mohol riesit ?
Peter
Polozka v komponente TreeView
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 15.10.1999 07:53:45
To mas tak. TreeView ma aktivni polozku jako property Selected, to je typu
TTreeNode.
Typ TTreeView ma property Parent, ktery je opet typu TTreeNode a ukazuje na
predka. A tak postupujes dale, az je Parent = nil a jsi na vrcholu.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Nikodem
> Odesl�no: 12. listopadu 1999 13:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Polozka v komponente TreeView
>
> Ahoj,
>
> mam komponentu TreeView a v n� n�jaky strom, potrebuji zjistit, ktera
polozka je prave aktivni, ale s celou cestou tj. vcetne nadrazenych korenu
>
>
> napr. "Knika\Vyklad\Slova" a ne jen "Slova"
>
> Vim, ze u komponenty OutLine to lze pomoci metody FullPath, ale jak
to udelat u TreeView to nevim.
>
>
> Delphi 4 Standart, Win98
>
>
Predem diky
>
Jindrich Nikodem
>
> <<Soubor: ATT00000.htm>> Polozka v komponente TreeView
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 15.10.1999 08:07:52
Jen takovy malinky OT. Nez funkci, tak to bych radeji udelal neco jako TMyTreeVIew a mel to
jako property. Je dle meho nazoru cistejsi.
Martin
> Zdar,
> no nevim jestli v TreeView neco takoveho existuje, ale zkus tohle:
>
> function FullPath(Node :TTreeNode) :string;
> begin
> Result:='';
> while Assigned(Node) do begin
> Result:=Node+'\'+Result;
> Node:=Node.Parent;
> end;
> if Result <> '' then
> Result:=copy(Result,1,Length(Result)-1);
> end;
>
> a pro vybranou polozku zvolej
>
> s:=FullPath(TreeView.Selected);
>
Control.OnExit pri close
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 15.10.1999 08:31:49
> Podle me je to logicky, pri vytvoreni formulare nema "nikdo" focus a po
> aktivaci formulare jej pak musi dostat nektery control (Edit1). Kdyz pak
> formular zaviras neni treba volat OnEnter protoze formular se uz rusi.
Pri zavirani bych samozrejme ocekaval OnExit :-)
Ale o to ani tak nejde. Takhle se Delphi chovaji od zacatku, takze
to neni chyba, ale vlastnost. Chtel jsem se pouze zeptat jak jini
resi zapis udaju poveseny na OnExit pri zavreni okna. V takovem
pripade zmeny ve focused controlu nezapisi a je potreba to nejak
osetrit. Navrhoval jsem nasledujici 2 reseni a ptal jsem se jake
pouzivate vy.
a) do FormClose pridam
ListBox1.SetFocus
b) do FormClose pridam
if ActiveControl<>Nil then
SendMessage(ActiveControl.Handle,CM_EXIT,0,0);
Daniel Rott
Pauza
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 15.10.1999 09:05:06
Jak mam pozatavit beh procedury (P1) v jejim behu, dokud neprobehne jina procedura (P2)20
Problem vznikne tak, ze nekde uprostred P1 spustim proceduru P2, kterou vykonava nejaka komponenta na vyhledavani souboru, prikazem Execute (zde je Execute procedurou, nikoli funkci, takze jeji ukonceni timto neni mozno kontrolovat) a od te chvile bezi obe procedury najednou. Kdyz P2 skonci spusti tak mi to oznami, ze nastavi jistou promenou na hodnotu true. Kdyz jsem ovsem pod spousteci prikaz P2 dal ciklus kontrolujici, je-li ta promena true, tak se zase nedelo nic jineho, nez ze bezel ten ciklus. Tak jak mam tedy zajistit, aby P1 pockala, nez P2 skonci? Rozdelit na dve to nemuzu, protoze P1 je spustena nekde uprostred jeste jine procedury.
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/algoritmus na piskvorky
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 15.10.1999 09:37:01
Piskvorky maju viac verzii
tie profesionalne, sa volaju RENJU
maju trosku zmenene pravidla oproti normalnym piskvorkam
aby nebol vo vyhode zacinajuci hrac
dokonca sa hraju aj mastrovstva sveta ;O)
http://www.lemes.se/renju/index.html
hlavna zmena je oproti normalnym piskvorkam,
ze zacinajuci moze vyhrat iba vidlickou 3x4,
pricom druhy moze vyhrat 3x3, 3x4 a 4x4 a
vsetky tahy, ktorymi vynuti prvemu spravit 3x3 a 4x4
A teraz zaujimavy link>
Searching for Solutions in Games and Artificial
Intelligence - L. Victor Allis
ISBN 90-9007488-0
http://www.cs.vu.nl/~victor/thesis.html
Vynatok z obsahu:
Thinking games are investigated from the perspective of research in
Artificial Intelligence. In the introduction the relevance of
such investigations is discussed. Then, two new search techniques,
proof-number search and dependency-based search are
described, which have been developed while solving the games connect-four
(see M.Sc. thesis by the same author), qubic and
go-moku . Finally, the complexity and state-of-the-art in computer game
playing is described for each of the games in the
so-called Olympic List of 15 well-known games, leading to a prediction for
the future of games .
The thesis consists of the preliminary (16 pages), which include a table of
contents, list of tables, list of figures and preface,
followed by chapter 1 (12 pages, introduction), chapter 2 (52 pages,
proof-number search), chapter 3 (30 pages,
dependency-based search), chapter 4 (26 pages, qubic), chapter 5 (34 pages,
go-moku) and chapter 6 (30 pages, which
games will survive?), an appendix (2 pages), a English summary (2 pages), a
Dutch summary (2 pages), a curriculum vitae of
the author (1 page), a bibliography (10 pages) and an index (5 pages).
olej
> -----Original Message-----
> From: Erik Salaj
> Sent: 12. november 1999 11:31
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: algoritmus na piskvorky
>
> > Tedy teoreticky. V piskvorkach (nekde jsem to cetl) pri idealni hre musi
> > vzdycky vyhrat ten co zacina. Viktor
>
> Urcitu vyhodu zacinajuci ma, ale nepovedal by som, ze musi vyhrat. Skor by
> som povedal, ze hra by skoncila remizou (je to len moj nazor, ale viz
> napr.
> hru Tic-Tac-Toe, co je nieco podobne ale obmedzene na 3*3 policka).
> Prakticky ale idealne tahy nevies zistit, takze vyhra ten lepsi,
> sikovnejsi,
> pripadne ten, kto ma viac stastia ;-).
>
> Erik
> Pauza
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 15.10.1999 09:43:46
Ahoj,
bud to udelej tak, jak to mas, jenom do toho cyklu (nebo ciklu :-)
pripis Application.ProcessMessages; aby se ke slovu dostaly i jine
aplikace a hlavne ta P2, nebo, coz bude asi lepsi, vytvor Thread
a cekej (WaitFor[SingleObject[Ex]]), dokud se neukonci... (i kdyz podle
te procedury Execute to na Thread vypada)
I kdyz, trochu tomu nerozumim, vzdyt preci:
procedure P1;
begin
Udelej_neco1;
P2;
//*** tady se provadeni kodu zastavi
//*** a pokracuje az po ukonceni P2
Udelej_neco2;
end;
Dobra.
> ----------
> Jak mam pozatavit beh procedury (P1) v jejim behu, dokud neprobehne
> jina procedura (P2)?
> �
> Problem vznikne tak, ze nekde uprostred P1 spustim proceduru P2,
> kterou vykonava nejaka komponenta na vyhledavani souboru, prikazem
> Execute (zde je Execute procedurou, nikoli funkci, takze jeji ukonceni
> timto neni mozno kontrolovat) a od te chvile bezi obe procedury
> najednou. Kdyz P2 skonci spusti
(skonci spusti->???)
> tak mi to oznami, ze nastavi jistou promenou na hodnotu true. Kdyz
> jsem ovsem pod spousteci prikaz P2 dal ciklus kontrolujici, je-li ta
> promena true, tak se zase nedelo nic jineho, nez ze bezel ten ciklus.
> Tak jak mam tedy zajistit, aby P1 pockala, nez P2 skonci? Rozdelit na
> dve to nemuzu, protoze P1 je spustena nekde uprostred jeste�jine
> procedury.
> Databaze
[*] Milan Kotaska <mkotaska(zv)post(tec)cz> - 15.10.1999 09:49:52
Ahoj.
Prosim o pomoc s nasledujicim problemem.
Mam databazovou aplikaci ( BDE - tabulky Paradox 7), ktera doposud pracovala
na jedne stanici.
Nyni zakaznik chce, aby aplikace behala na vice stanicich a sdilela data,
ktera jsou pouze na jedne ze stanic.
Je mozne nadale vyuzivat tabulky PX, nebo je nutne prejit na nejaky SQL
Server ?
Dekuji za kazdy namet.
ing. Milan KOTASKA
mkotaska(zv)post(tec)cz
Jak ru n vyvol�m se azen� u TListView
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 15.10.1999 10:00:37
From: Pavel Bl�hovec <blahovec(zv)stapro(tec)cz>
To: "Delphi" <delphi-l(zv)fwd(tec)cz>
Copies to: "Black" <black(zv)spse(tec)cz>
Subject: Jak ru n vyvol�m se azen� u TListView
Date sent: Fri, 12 Nov 1999 10:48:40 +0100
Send reply to: delphi-l(zv)fwd(tec)cz
> M�m komponentu TListView a naplnenou v nekolika sloupcich daty. Kdyz kliknu na zahlavi sloupce, seradi se mi polozky podle toho na ktere zahlavi jsem kliknul. Lze nejak rucne zavolat toto serazeni?
Ahoj,
koukni se do helpu na TCustomListView.OnCompare
Petr Motl�cek
Databaze
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 15.10.1999 10:05:58
Muzes to sitove pouzivat, PARADOX to umi ( nase aplikace ma zatim nejvetsi
nasazeni na 50 stanicich a 50 soucasnych pristupu). Neni to sice tak dobre
jako SQL Server, ktery by se uz pro
toto hodil, ale na mensi site to jde.
Musis dodrzet nasledujici :
Na vsech stanicich musis mit v BDE nastaveny NETDIR na stejnou sitovou
cestu. Zde se vytvari soubory, ktere umoznuji sitovou praci ( zamykani,
editaci a ochranu dat pred prepsanim pod rukou. Je dobre z hlediska
rychlosti mit NETDIR jen pro tuto apliakci, pokud do dat nepristupuji jeste
jine aplikace. Da se to nastavit v property Session.NetFileDir.
Pri dotazech (SQL) se vytvari v pracovnim privatnim adresari pracovni
tabulky. Je proto z hlediska rychlosti velmi vhodne mt pracovni adresare na
loklani stanici. To jde zase pomoci TSession.PrivateDir ( ci tak nejak).
Indexy se daji bezne pouzivat.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> -----P�vodn� zpr�va-----
> Od: Milan Kotaska
> Odesl�no: 15. listopadu 1999 9:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Databaze
>
> Ahoj.
> Prosim o pomoc s nasledujicim problemem.
> Mam databazovou aplikaci ( BDE - tabulky Paradox 7), ktera doposud
pracovala
> na jedne stanici.
> Nyni zakaznik chce, aby aplikace behala na vice stanicich a sdilela data,
> ktera jsou pouze na jedne ze stanic.
> Je mozne nadale vyuzivat tabulky PX, nebo je nutne prejit na nejaky SQL
> Server ?
>
> Dekuji za kazdy namet.
>
> ing. Milan KOTASKA
> mkotaska(zv)post(tec)cz
>
>
>
> Volani procedury z DLL
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 15.10.1999 09:08:54 met-1
Ahojte!
Volam z DLL proceduru s nekolika parametry a potreboval bych
poradit v jedne veci.
Kdyz ji volam tak, ze napred zadefinuji
procedure VolaniT(Kl:Byte; A1, A2:String ); stdcall;
external 'SPL_DLL1.DLL' name 'volani';
a pak dal mam
Hnd := LoadLibrary('SPL_DLL1.DLL');
VolaniT(1,'Prvni','Druhy');
FreeLibrary(Hnd);
tak vsechno funguje OK. Ovsem kdyz prislusna DLL neexistuje, tak
program se nespusti, protoze se vypise hlaska, ze nebyla nalezena
prislusna knihovna a hotovo.
Tak jsme podle knizky zkusil volat tutez proceduru tak, ze budu
kontrolovat existenci DLL. K tomu mam:
procedure TProhlSpkForm.Volej;
var Hnd : THandle;
FPoint : TFarProc;
MaProc : procedure(Hnd:THandle; Kl:Byte; A1, A2:String ); stdcall;
begin
Hnd := LoadLibrary('SPL_DLL1.DLL');
if Hnd <= 32 then MessageDlg('Knihovna nenalezena, mtWarning,
[mbOK], 0)
else begin
FPoint := GeProcAddress(Hnd,'volani');
if FPoint = nil then MessageDlg('Funkce nenalezena', mtWarning,
[mbOK], 0)
else begin
// A TADY UZ NEVIM, CO MAM PRESNE NAPSAT, V TE KNIZE SE VOLALA
// PROCEDURA BEZ PARAMETRU TAKTO:
// UserProc := Procedure(FPointer);
// UserProc;
end;
end;
FreeLibrary(Hnd);
end;
Zrejme je to trivialni, ale ja na to nemuzu prijit, muzete poradit?
Dika, Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Chyba u Win98
[*] Petr Vale� - 15.10.1999 10:17:58
Ahoj vsem,
mam takovy problem se kterym si nevim rady. Pouzivam program napsany ve C++
Builder 4.0. Na platforme NT mi beha bez problemu. Ovsem pokud ho spustim
pod Win98, po zavolani funkce ShoModal(); mi program dialog nezobrazi a hodi
MessageBox "A Win32 API function failed".
Vubec si s tim nevim rady.
Budu vdecny za kazdou pomoc.
Dekuji
Petr Vales
TImage: Click+DblClick
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.10.1999 10:18:38
Vdaka (Tomas), uz som na to prisiel (vytecene nervy vsak uz spat
nenatecu :-).
Pointa bola v niecom inom. "Vysvietenie" robim prostrednictvom prvku
TBevel
(vo forme ramika okolo obrazku), s tymto ramikom mozno pohybovat po
obrazkoch
napr. s pomocou klavesnice. Ako som uz napisal, potreboval som tiez
riesit
aj kliknutie mysi nad obrazkom.
V prvom pripade (po kliknuti) sa ramik presunie na prislusny Image, po
druhom
kliknuti sa uz spusta "asociovana" akcia.
Problem bol prave v TBevel. Akonahle som s nim oramcekoval urcity
obrazok,
tak prislusny objekt (Image) sa "prekryl" belevelom, takze obrazok na
ziadne
dalsie dalsie kliknutia nereagoval (odchytaval ich ovladac bevelu).
Kedze obrazok je aj po oramcekovani nadalej viditelny, vobec ma to
nenapadlo.
Stacilo pouzit BringToFront (resp. SendToBack u Bevelu) a uz to reaguje
normalne.
Poziciu Bevelu mam vo zvlastnom ukazateli, prislusny obrazok je
rozliseny pomocou
tagu, a obsluhu kliknutia (tentoraz uz funkcnu) mam riesenu takto:
procedure TVyberVec.ImgClick(Sender: TObject);
var Tg: integer;
begin
Tg := Timage(Sender).Tag - 1;
if Tg = Ukazatel then
begin
ModalResult := mrOK;
Exit;
end;
Ukazatel := Tg;
SetFrame(); // presunie Bevel, podla hodnoty premennej Ukazatel
end;
Ale aj tak ti dakujem za snahu o pomoc. Faktom je, ze bol som uz naozaj
v koncoch.
Peter
=?windows-1250?Q?Brabec_Tom=E1=9A?= wrote:
>
> Co zkusit nejaky prepinac
> Globalni promenna AKCE typu BOOLEAN, Akce nastavim na udalosti ONCREATE
> formulare na FALSE
> Udalost ONCLICK by sla osetrit:
> ***
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> IF Akce = false THEN
> begin
> Vysviceni .....
> Akce:= true;
> Exit;
> end;
> IF Akce = true THEN
> begin
> Pozadovana akce .....
> Akce:= false;
> Exit;
> end;
> end;
> ***
> S pozdravem Tom
>
> Tom� Brabec
>
> Ahojte !
>
> Potrebujem nad TImage zachytit kliknutie mysou dvakrat za sebou.
> Pri prvom kliknuti sa mi TImage "vysvieti", pri druhom uz chcem
> s "vysvietenym" obrazkom vykonat urcitu akciu.
> Ak chytam udalost OnClick, tak druhe kliknutie nad obrazkom
> mi priradenu obsluhu uz nezavola.
> Ak za vyssieuvedenym ucelom priradim TImage obsluhu OnDblClick,
> tak program vzdy zavola len OnClick, t.j. OnDblClick je "mimo hru".
>
> Nevedel by mi niekto poradit ako by som to mohol riesit ?Volani procedury z DLL
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 15.10.1999 10:42:16
To je podle me slouceni dvou pristupu volani dll do jednoho :
Za prve "statiske volani" dll :
deklarace :
procedure VolaniT(Kl:Byte; A1, A2:String ); stdcall;
external 'SPL_DLL1.DLL' name 'volani';
pouziti - jenom :
VolaniT (......)
nelze uzivatelsky osetrit dostupnost dll nebot ta se natahuje do pameti pri
spousteni programu. Je to jednodussi, mene prace, ale neni nad tim moc
kontrola.
Za druhe "dynamicke volani" dll :
procedure TProhlSpkForm.Volej;
var Hnd : THandle;
MaProc : procedure(Hnd:THandle; Kl:Byte; A1, A2:String ); stdcall;
begin
Hnd := LoadLibrary('SPL_DLL1.DLL');
if Hnd <= 32 then MessageDlg('Knihovna nenalezena, mtWarning,
[mbOK], 0)
else begin
(zv)MaProc := GetProcAddress (Hnd, 'name 'volani');
if (zv)MaProc <> nil then
MaProc (.....)
else
MessageDlg('Funkce nenalezena', mtWarning,
[mbOK], 0)
end;
FreeLibrary(Hnd);
end;
knihovna se natahuje do pameti az pri zavolani (a pak se uvolni), da se
otestovat jestli existuje, da se hledat na ruznych cestach, ale je to trochu
kodu
David Vodicka
Abion, s.r.o.> -----P�vodn� zpr�va-----
> Od: Jiri Novotny [mailto:NOVOTNY(zv)ftknw.upol(tec)cz]
> Odesl�no: 15. listopadu 1999 10:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Volani procedury z DLL
>
>
> Ahojte!
>
> Volam z DLL proceduru s nekolika parametry a potreboval bych
> poradit v jedne veci.
>
> Kdyz ji volam tak, ze napred zadefinuji
>
> procedure VolaniT(Kl:Byte; A1, A2:String ); stdcall;
> external 'SPL_DLL1.DLL' name 'volani';
>
> a pak dal mam
>
> Hnd := LoadLibrary('SPL_DLL1.DLL');
> VolaniT(1,'Prvni','Druhy');
> FreeLibrary(Hnd);
>
> tak vsechno funguje OK. Ovsem kdyz prislusna DLL neexistuje, tak
> program se nespusti, protoze se vypise hlaska, ze nebyla nalezena
> prislusna knihovna a hotovo.
>
> Tak jsme podle knizky zkusil volat tutez proceduru tak, ze budu
> kontrolovat existenci DLL. K tomu mam:
>
> procedure TProhlSpkForm.Volej;
> var Hnd : THandle;
> FPoint : TFarProc;
> MaProc : procedure(Hnd:THandle; Kl:Byte; A1, A2:String ); stdcall;
> begin
> Hnd := LoadLibrary('SPL_DLL1.DLL');
> if Hnd <= 32 then MessageDlg('Knihovna nenalezena, mtWarning,
> [mbOK], 0)
> else begin
> FPoint := GeProcAddress(Hnd,'volani');
> if FPoint = nil then MessageDlg('Funkce nenalezena', mtWarning,
> [mbOK], 0)
> else begin
> // A TADY UZ NEVIM, CO MAM PRESNE NAPSAT, V TE KNIZE SE VOLALA
> // PROCEDURA BEZ PARAMETRU TAKTO:
> // UserProc := Procedure(FPointer);
> // UserProc;
> end;
> end;
> FreeLibrary(Hnd);
> end;
>
> Zrejme je to trivialni, ale ja na to nemuzu prijit, muzete poradit?
>
> Dika, Jirka.
> +-------------------------+---------------------------------+
> | Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
> | Czech Republic | http://risc.upol(tec)cz/~novotnyj |
>
> | | ICQ: 9495586 |
> +-------------------------+---------------------------------+
> | ... and objects in the rear view mirror can appear closer |
> | than they are |
> +-----------------------------------------------------------+
> Volani procedury z DLL
[*] Vavro Vladimir Ing. <Vlado(zv)tentoas.sk> - 15.10.1999 11:00:51
>Ahojte!
>Volam z DLL proceduru s nekolika parametry a potreboval bych
>poradit v jedne veci.
>Kdyz ji volam tak, ze napred zadefinuji
> procedure VolaniT(Kl:Byte; A1, A2:String ); stdcall;
> external 'SPL_DLL1.DLL' name 'volani';
>
Tento kod je postacujuci, netreba uz volat LoadLibrary. ( si
myslim ) A preto aj program spadne, pretoze uz pri starte sa snazi najst
SPL_DLL1.DLL.
Ak to chces urobit rucne, VolaniT nedefinuj ako external s
odkazom na DLL, ale napriklad ako premennu typu procedure (resp.
pointer na proc ). Po LoadLibrary volanim GetProcAddress ziskas pointer
na proc z DLL.
>
>
V.V.Pauza
[*] Lukas Voborsky <xvobl03(zv)vse(tec)cz> - 15.10.1999 11:15:43
On Mon, 15 Nov 1999, [iso-8859-2] Petr Voborn�k wrote:
> Jak mam pozatavit beh procedury (P1) v jejim behu, dokud neprobehne jina procedura (P2)?
>
> Problem vznikne tak, ze nekde uprostred P1 spustim proceduru P2, kterou
> vykonava nejaka komponenta na vyhledavani souboru, prikazem Execute
> (zde je Execute procedurou, nikoli funkci, takze jeji ukonceni timto
> neni mozno kontrolovat) a od te chvile bezi obe procedury najednou.
> Kdyz P2 skonci spusti tak mi to oznami, ze nastavi jistou promenou na
> hodnotu true. Kdyz jsem ovsem pod spousteci prikaz P2 dal ciklus
> kontrolujici, je-li ta promena true, tak se zase nedelo nic jineho, nez
> ze bezel ten ciklus. Tak jak mam tedy zajistit, aby P1 pockala, nez P2
> skonci? Rozdelit na dve to nemuzu, protoze P1 je spustena nekde
> uprostred jeste jine procedury.
Ahoj,
Je treba si uvedomit, ze dve procedury pobezi paralelne, jenom pokud pobezi
v ruznych vlaknech (threadech). Z toho, ze bezel jenom cyklus usuzuji, ze
to v tomto pripade je jinak. Chtelo by to asi podrobnejsi informace.
Pokud mas dva thready a potrebujes v jednom pockat na druhy, muzes celkem
snadno udelat pomoci eventu.
handle: THandle;
P1:
handle:=CreateEvent(nil, false, false, nil);
[tady se spusti procedura, ktera vytvori thread, v nemz bezi procedura
P2, na kterou chceme pockat]
WaitForSingleObject(handle, INFINITE);
CloseHandle(handle);
P2:
begin
....
....
SetEvent(handle);
end;
Je to trosku zjednodusene. WaitForSingleObject vraci ruzne stavy, atd.
Blize viz Win32.hlp
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Databaze
[*] Bohdan Pomsah�r <bpomsahar(zv)nocomment.sk> - 15.10.1999 11:17:33
Pokial viem tak je to mozne, pretoze som to vydel fungovat v jednej
poistovni kde maju na jednom pocitaci databazu a ostatne pocitace su
pripojene tak ze dany adresar s daty je zdielany a ostatne pocitace maju
adresar pripojeny ako dalsi disk. Len viem za trebalo nastavit dake
parametre pretoze nemohol byt pripojeny jeden pocitac dvakrat (vtedy
nefungoval zapis a este nieco).
Bohdan
-----Original Message-----
From: Milan Kotaska <mkotaska(zv)post(tec)cz>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 15. november 1999 11:10
Subject: Databaze
>Ahoj.
>Prosim o pomoc s nasledujicim problemem.
>Mam databazovou aplikaci ( BDE - tabulky Paradox 7), ktera doposud
pracovala
>na jedne stanici.
>Nyni zakaznik chce, aby aplikace behala na vice stanicich a sdilela data,
>ktera jsou pouze na jedne ze stanic.
>Je mozne nadale vyuzivat tabulky PX, nebo je nutne prejit na nejaky SQL
>Server ?
>
>Dekuji za kazdy namet.
>
>ing. Milan KOTASKA
>mkotaska(zv)post(tec)cz
>
>Chyba u Win98
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 15.10.1999 11:36:40
Petr Vale� wrote..
> mam takovy problem se kterym si nevim rady. Pouzivam program napsany ve
> C++
> Builder 4.0. Na platforme NT mi beha bez problemu. Ovsem pokud ho spustim
> pod Win98, po zavolani funkce ShoModal(); mi program dialog nezobrazi a
> hodi
> MessageBox "A Win32 API function failed".
>
A pozrel si si vyuzitie systemovych zdrojov ??
JJ
Chyba v BDE ?
[*] Daniel Fojt�k <xfojtik(zv)albert.osu(tec)cz> - 15.10.1999 12:16:08
Mam jeden problem ktery nejsem schopen vyresit:
Z duvodu zabezpeceni predelavam aplikaci aby se k datum v Interbase
nechodilo naprimo ale pres View. Ovsem nastal mi jeden problem: Puvodne jsem
chodil na tabulku Stavby pomoci query ktery byl Cached update. Ovsem kdyz
nyni chodim na odpovidajici view (W_stavby) tak mi to haze podivnou hlasku
(invalid field type field:field15 - pricemz zadny field15 neni nikde
definovan!!!). Krokovanim jsem prisel na to, ze chyba vznika v procedure
TBDEDataSet.InternalOpen a to na operaci
if cachedupdate then check(DBIBeginDelayedUpdates(FHandle))
Error code chyby je 10000. Ovsem i tak z toho nejsem moudry: kde je problem?
Neni snad mozne provadet casched update nad View? Diky za jakykoliv napad ci
radu.
Dan
P.S.:
Pro jistotu jeste vypis definice view w_stavba:
Mierny OT 2: Interbase a date
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 15.10.1999 12:36:21
1.
v tabulke mam field LA typu date
pri kazdej zmene priradim do neho hodnotu 'NOW' to jest mam tam hodnotu kedy
bol naposledy zmeneny.
pri nejakom selecte chcem iba zaznamy ktore boli zmenene v priebehu
poslednych 30 minut
ako na to ?
2.
tusim to tu uz bolo ale nejak sa nemozem dopracovat k vysledku
podla vyssie napisaneho potrebujem dostat 1 (jeden) najnovsie zmeneny zaznam
select * from table order by la desc + nieco aby to vratilo iba jeden
zaznam
IB 5.1.1 for Win alebo IB 4.0 for Linux
3.
Ma niekto skusenosti FreeIBComponents + IB 4.0 for Linux ?
Reakce na tlacitko minimize
[*] Libor Nosek <nosek(zv)ujf.cas(tec)cz> - 15.10.1999 12:37:35
Bry den.
Nevite nahodou nekdo jak odchytit hlasku pri stisku tlacitka v pravem hornim rohu Minimize, maximize, atd?
Diky.
Databaze
[*] Pavel Junek <junek(zv)hrk.pvtnet(tec)cz> - 15.10.1999 12:46:48
Zkus se mrknout na http:\\www.itecuk.com/delmag/paradox.htm
Je tam docela slusny popis, na co si clovek musi dat pozor, kdyz pouziva db
tabulky v siti.
Pekny den
Pavel
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Milan Kotaska
Sent: Monday, November 15, 1999 9:50 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Databaze
Ahoj.
Prosim o pomoc s nasledujicim problemem.
Mam databazovou aplikaci ( BDE - tabulky Paradox 7), ktera doposud pracovala
na jedne stanici.
Nyni zakaznik chce, aby aplikace behala na vice stanicich a sdilela data,
ktera jsou pouze na jedne ze stanic.
Je mozne nadale vyuzivat tabulky PX, nebo je nutne prejit na nejaky SQL
Server ?
Dekuji za kazdy namet.
ing. Milan KOTASKA
mkotaska(zv)post(tec)cz
TMemo polyka Esc
[*] Karel Kral <kral(zv)purus(tec)cz> - 15.10.1999 12:59:20
Na modalnim formulari jsou tlacitka Ok, Zrus, TMemo a TEdit. Problem je,
ze kdyz je TMemo focused, sezere stisk klavesy Esc a formular pak nejde
zavrit stiskem Esc. Kdy ma focus jiny Control, pak Esc pracuje dobre.
Muzete mi nekdo poradit, co s tim?
Env: D4SP3, W95
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jak ru n vyvol�m se azen� u TListView
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 15.10.1999 13:16:59
> > M�m komponentu TListView a naplnenou v nekolika sloupcich daty. Kdyz kliknu na zahlavi sloupce, seradi se mi polozky podle toho na ktere zahlavi jsem kliknul. Lze nejak rucne zavolat toto serazeni?
>
> Ahoj,
>
> koukni se do helpu na TCustomListView.OnCompare
>
Omlouvam se, spatne jsem si to precet. To ti asi nepomohlo....
Petr Motlicek
Elipsa
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 15.10.1999 13:18:40
Nemate nekdo rutinu pro vypocet a vykresleni zrotovane elipsy? ;-)
Diky za pomoc... Pavel Serbajlo
RegisterServiceProcess na WinNT
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 15.10.1999 13:19:44
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,
vite prosim nekdo, cim nahradit fci RegisterServiceProcess
na Windows NT (tato fce je obsazena ve Win 9x v Kernell32.dll,
ale na Win NT zrejme neni...).
Jde mi o to, aby program nebyl videt v TaskList-u
Diky moc...
...Dobra.
AutoIncrement
[*] Michal Hlav�� - 15.10.1999 13:32:07
Zdravim,
chcem sa spytat, ze kde a co by som mal napisat aby mi po stlaceni insert do
pola ID vlozil autoincrement, ked pole je definovane ako autoinrement, lebo
automaticky mi ho tam nevlozi.
D3, Paradox7, W95
Dik, Miso
Elipsa
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 15.10.1999 13:53:25
Pavel Serbajlo wrote:
>
> Nemate nekdo rutinu pro vypocet a vykresleni zrotovane elipsy? ;-)
>
Co si pod takovym pojmem "zrotovana elipsa" predstavujete, vojin Kefalin?
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* private: cernyja(zv)email(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************TMemo polyka Esc
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 15.10.1999 14:00:07
co treba takto:
(zkouseno v D3)
procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 27 then Zrus.Click;
end;
Zdenek Fryz
> -----P�vodn� zpr�va-----
> Od: Karel Kral [SMTP:kral(zv)purus(tec)cz]
> Odesl�no: 15.11.1999 12:59
> Komu: Konference Delphi
> P�edm�t: TMemo polyka Esc
>
> Na modalnim formulari jsou tlacitka Ok, Zrus, TMemo a TEdit. Problem je,
> ze kdyz je TMemo focused, sezere stisk klavesy Esc a formular pak nejde
> zavrit stiskem Esc. Kdy ma focus jiny Control, pak Esc pracuje dobre.
> Muzete mi nekdo poradit, co s tim?
>
> Env: D4SP3, W95
>
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Reakce na tlacitko minimize
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 15.10.1999 14:08:17
a) Prvni reseni :Predefinuj si metodu formu WndProc a tam chytej message
WM_SYSCOMMAND a v parametru TMessage.WParam to rozlisuj dle SC_RESTORE,
SC_MINIMIZE, SC_MAXIMIZE.
b) Napis si metodu a poves na udalost Application.OnMinimize.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================>
> Bry den.
> Nevite nahodou nekdo jak odchytit hlasku pri stisku tlacitka v pravem
hornim rohu Minimize, maximize, atd?
> Diky.
AutoIncrement
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 15.10.1999 14:13:17
Asi bych to delal tatkto :
1) na udalosti BeforeInsert a pred Insertem si pres Query
SELECT MAX(ID) FROM Table nasel nejvyssi hodnotu,pricetl 1 a zapamatoval.
2) na udalosti AfterInsert pak do fieldu vlozit zaamatovanou hodnotu.
Je mozne, ze to staci udelat vse az v AfterInsert, ted nevim.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================> Zdravim,
> chcem sa spytat, ze kde a co by som mal napisat aby mi po stlaceni insert do
> pola ID vlozil autoincrement, ked pole je definovane ako autoinrement, lebo
> automaticky mi ho tam nevlozi.
>
> D3, Paradox7, W95
Reakce na tlacitko minimize
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 15.10.1999 14:32:03
Tady to je na odchyceni zpravy na minimalizaci, na maximalizaci si to jednoduse odvodis.
Mirek
procedure WMSysCommand(var Msg: TWMSysCommand); message Wm SysCommand;
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC Minimize then
begin
.... //tady dopln co to ma delat
end
else
inherited;
end;
----- Original Message -----
From: Libor Nosek
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, November 15, 1999 12:37 PM
Subject: Reakce na tlacitko minimize
Bry den.
Nevite nahodou nekdo jak odchytit hlasku pri stisku tlacitka v pravem hornim rohu Minimize, maximize, atd?
Diky.
Install Shield & BDE
[*] novacek(zv)vanicek(tec)cz - 15.10.1999 13:35:26
Zdar a silu vsem.
Napsal jsem program pouzivajici BDE a vytvoril pomoci Install Shieldu (IS)
instalaci. Nainstaloval na jinem pocitaci a program hazel chybu "Error
Initializing BDE $2109". Zjistil jsem, ze to znamena, ze nemuze najit
knihovnu IDAPIxx.DLL. Po kopii vsech nainstalovanych soucasti BDE z
implicitniho adresare C:\Program Files\Borland\Common Files\BDE do
adresare C:\Windows vse fungovalo.
Nastavil jsem tedy v IS u skupin "BDE/IDAPI ..." cilovy adresar na WINDIR,
ale IS zminene soubory nainstaloval opet natvrdo do implicitniho adresare
C:\...\BDE.
Zjistil jsem, ze neni nastavena hodnota klice
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine\DLLPATH. Je prazdna.
Nastavil jsem tedy v IS, aby do tohoto klice ulozil hodnotu
<ProgramFilesDir>\Borland\Common Files\BDE. Ale po instalaci byl klic opet
prazdny.
Jinymi slovy soubory BDE IS instaluje natvrdo do nejakeho adresare a
nedovoli zmenit v registrech klic urcujici cestu k BDE.
Dusledek: po instalaci program pouzivajici BDE nefunguje.
Jsou opravdu u Borlandu resp. Install Shieldu takovi hlupaci nebo jsem
hlupak ja sam, protoze neumim nekde neco (do)nastavit?
Muze mi nekdo prosim poradit co a jak kde udelat, aby to fungovalo? Diky.
To vse (ne)funguje s D3Std, Install Shield Express Delphi Edition
Zdar!
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
Elipsa
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 15.10.1999 14:49:42
> Co si pod takovym pojmem "zrotovana elipsa" predstavujete, vojin
Kefalin?
;-))
Predstavuji si libovolnou elipsu, zrotovanou o X stupnu podle sveho stredu,
kde X nabyva hodnot rekneme od 0 do 359 ... PANE! ;-)
Elipsa
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 15.10.1999 14:57:37
Vypocet bodu nezrotovane elipsy:
x = a*cos(fi)
y = b*sin(fi), fi je od 0 do 2*pi, a je hlavni poloosa, b je vedlejsi
poloosa
Na tyto souradnice je treba pak jeste aplikovat algoritmus pro rotaci
kolem bodu (0; 0), resp. posunout elipsu o nejaky ten vektor,
transformovat souradnice tak, aby pocatek odpovidal stredu elipsy a pak
teprve otacet. Vzorec pro otaceni kolem bodu (0; 0) bohuzel presne
neznam, ale mohlo by to byt
(x' ;y') = (x; y) * |sin f ; cos f |
|-cos f; sin f |,
cili jen nasobeni matic. Za znamenka nerucim, mohlo by to byt i jinak,
pouze musi platit, ze determinant tehle mayice musi byt 1. Snad ti to k
necemu bude.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Josef A. Cerny [SMTP:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 15. listopadu 1999 13:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Elipsa
>
> Pavel Serbajlo wrote:
> >
> > Nemate nekdo rutinu pro vypocet a vykresleni zrotovane elipsy? ;-)
> >
> MAC adresa (remote pocitac)
[*] Vladimir Ponechal <vladimirp(zv)seznam(tec)cz> - 15.10.1999 16:09:31
Neprozradite mi, jak lze ziskat po siti informace o MAC adrese vzdaleneho pocitace? Co pro to muzu pouzit??? Nebo jak to muzu udelat? Mam Delphi 3 Profesional.
Diky, budu moc zavazan...
VP
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
nekonecna tlac
[*] Martin Pala <pala(zv)tuke.sk> - 15.10.1999 15:24:35
caute
mam nasledovny problem. V programovani pomocou Delphi som zaciatocnikom a potreboval
by som vyriesit tlac na nekonecny papier. Pozeral som sa aj v archive konferencie
a nasiel som tam nieco o nastaveni PixelsPerInch, ale akosi som tomu nerozumel, preto
by som sa vas chcel opytat co to je a co to ma spolocne s tlacou na nekonecny papier a
ako to mam nastavit, maly priklad by velmi pomohol. DIK
Chyba u Win98
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 15.10.1999 15:27:50
> mam takovy problem se kterym si nevim rady. Pouzivam program napsany ve
C++
> Builder 4.0. Na platforme NT mi beha bez problemu. Ovsem pokud ho spustim
> pod Win98, po zavolani funkce ShoModal(); mi program dialog nezobrazi a
hodi
> MessageBox "A Win32 API function failed".
Ja bych to tipnul na vycerpane systemove zdroje ve W98. Aspon me se tato
hlaska objevuje, kdyz otevru soucasne hodne slozitych formularu.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
zahada deelelka
[*] Honza Fiala <kvasar(zv)kvasar(tec)cz> - 15.10.1999 15:32:16
Caute,
tedka jsem zacal delat program do dll a dynamicky ho nacitam v programu. Vse mi krasne funguje do te doby, nez to nahraju na jiny pocitac.
Ja delam vyvoj na W98 a zkousel jsem to na:
w95 - neslo mi ani natahnout dll. handle byl 0
w95 OSR2 - natahnuti dll OK, nezarvalo to ani na hledani fce, ale pri pouziti nastal access violation :(
jenom podotykam, ze exe a dll byli naprosto shodne!
nevite kde hledat chybu? nepotrebuje to nahodou nejake *.bpl?
S pozdravem
Honza Fiala
Kvasar, spol. s r. o.
E-mail: kvasar(zv)kvasar(tec)cz
URL: http://www.kvasar(tec)cz
DBTreeView pro D5
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 15.10.1999 15:59:32
Nemate nekdo nejaky free+source DBTreeView pro D5 - popr. neco
komercniho za rozumnou cenu?
Mac
OT: ale jen trochu Faxovaci SW
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 15.10.1999 16:06:41
Zkus WinFax od Symantecu - asi nejlepsi co se mi dostalo do ruky. Trial
stahnes na:
http://www.symantec.com
Mac
Radek KALA wrote:
> Sel by napsat faxovaci SQ ???
> Myslim zamozrejme, ze jednoduse.
> Pripadne nejaky pouzit a ovladat z meho SW.
>
> Problem je nasledujici v soucasne dobe skoro vsechny SW umi
> FAx, e-mail a kyho certa, no a nekteri nasi zamestnaci s tim maji
> problemy a chcou neco jednoducheho. Kde by poslali fax, byli by
> slozky k odeslani, odeslane, dorucene tam by vsechno bylo a
> fungovalo.
> Pokud uz najdeme nejaky SW, ktery by tomuto vyhovel, tak neumi
> cestinu, nebo obrazky, nebo posle jen nektere faxi a jine problemy.animovany gif
[*] Heger Martin <HEGERM.vos97(zv)vsps-su(tec)cz> - 15.10.1999 15:30:14
> From: "Jirka Fejfar" <fejfarj(zv)iol(tec)cz>
> To: "DELPHI Distribution List" <delphi-l(zv)fwd(tec)cz>
> Subject: animovany gif
> Date: Tue, 9 Nov 1999 14:14:27 +0100
> Reply-to: delphi-l(zv)fwd(tec)cz
> Ahoj vsichni ...
>
> mam pocit, ze uz tady na to tema neco bylo, ale stejne ...
>
> prosim vas ... nakopne te me nekdo zpravnym smerem, kdyz chci ve formu
> zobrazit animovany gif ...
>
> diky Jirka ...
>
Na www.torry.ru byla nedavno komponenta pro zobrazeni animovaneho
gif souboru.
Mates
Delphi a PowerDesigner
[*] Arnost Kobylka <ak(zv)atlas(tec)cz> - 15.10.1999 16:37:44
Zdravim vsechny,
a omlouvam se mozna to sem tak uplne nepatri. Ale chtel bych se zeptat
jestli nekdo z vas pouziva k navrhu datoveho modelu PowerDesigner
DataArchitecta a db pouziva tabulky Paradoxu. Nema nekdo upraveny *.def
soubor. Rad bych, aby mi generovani databaze dalo xxx.sql s prikazy
Create table atd. a nikoli ve scriptu paradoxu.
Pokud to nekdo z vas pouziva prosim poslete mi potrebny *.def soubor
e-mailem na zsedlak(zv)atlas(tec)cz
Arno�t Kobylka
C3, spol s r.o.
TRXDBLookupCombobox
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 15.10.1999 16:38:06
No jeden manik uz to prej pise, ale je desne linej a furt ho musim popohanet
;-)))
Mac
Petr Vones wrote:
> Siknul, ale to TRxDBLookupCombobox se k tomu neda moc pouzit. Dokonce se
> neda ani moc dobre pouzit TDBLookupControl jako predek, protoze neni
> zrovna nejlepe navrzen. Zkratka se to musi napsat cele od zacatku.OT: ale jen trochu Faxovaci SW
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.10.1999 16:49:45
Tak WinFax od Symantecu som skusal, ale hoci je naozaj
velmi efektne urobeny, je podla mna neprimerane narocny
na pocitac.
Pre moje Pentium 166/64 MB RAM znamenala kazda operacia v programe
taky porod, ze som to radsej vzdal.
Nehovoriac, ze u TalkWorks som vobec nerozchodil hlasove funkcie,
(neviem preco, mal som externy modem Zyxel typu Voice).
Peter
Martin Kubecka wrote:
>
> Zkus WinFax od Symantecu - asi nejlepsi co se mi dostalo do ruky. Trial
> stahnes na:
>
> http://www.symantec.com
TOpenDialog
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 15.10.1999 16:56:28
Zdravim vsechny,
mam MDI aplikaci v D4Std. V childu mam jeden TOpenDialog. Na vsech
pocitacich aplikace jede ale na jednom pocitaci se mi pri pokusu o jeho
otevreni vzdy objevi chybove hlaseni:
WIN32error. Code: 123.
Nazev souboru, adresare nebo jmenovka svazku je nespravna.
Zkontroloval jsem vechno ale na nic jsem neprisel a pritom cesta i jmeno
souboru jsou tutove spravne. Nemate nekdo poneti v cem muze byt zakopany
pes?
(a pokud by nahodou opravdu byla cesta spatne, tak jak je mozne ze dialog
reaguje timto zpusobem a nezobrazi treba root?)
Dik. Jara
algoritmus na piskvorky
[*] OLEJNIK Andrej <olej(zv)nt2.asset.sk> - 15.10.1999 17:37:51
Uz som to pisal
Searching for Solutions in Games and Artificial
Intelligence - L. Victor Allis
ISBN 90-9007488-0
http://www.cs.vu.nl/~victor/thesis.html
olej
> keby som mohol poprosit ten material aj ja.
> dakujem.
>
> juro
>
>
>
>
> "Erik Salaj" <winsoft(zv)napri.sk> na 13.11.99 17:10:57
>
> Odpov�zte pros�m - delphi-l(zv)fwd(tec)cz
>
> Komu: delphi-l(zv)fwd(tec)cz
> Kopie: (Na v�dom�: Juraj Talaba/0099/ba/nup/sk)
> P�edm�t: Re: algoritmus na piskvorky
>
> << File: ATT79804.txt >> Farba CheckBoxu
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.10.1999 17:47:39
Nevie mi niekto narychlo poradit, ci je mozne
zmenit farbu zaskrtavacieho policka v CheckBoxe
resp. okruhleho policka v RadioButton ?
Peter
OT: ale jen trochu Faxovaci SW
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 15.10.1999 17:48:56
To muze byt problem - ale umi toho fakt hodne. Me na nem vyhovuje to, ze na
NT dokaze bezet jako sluzba a je schovany v tray-i. Jinak TalkWorks mi chodi
bez problemu (zaznamnik) - mam Microcom DeskPorte Voice 56k.
Co se tyka vlastniho faxovaciho softu, tak tusim soucasti AsyncPro od
TurboPower jsou i komponenty pro faxovani - mailni Petrovi Zahradnikovi
(clexpert(zv)clexpert(tec)cz) ten s tim snad i umi delat :-))). Ale priprav si cca
8.390,- Kc bez DyPyEjc ;-) Kazdopadne muzes zkusit trial.
Mac
Peter Vlkovic wrote:
> velmi efektne urobeny, je podla mna neprimerane narocny
> na pocitac.
> Pre moje Pentium 166/64 MB RAM znamenala kazda operacia v programe
> taky porod, ze som to radsej vzdal.
> Nehovoriac, ze u TalkWorks som vobec nerozchodil hlasove funkcie,
> (neviem preco, mal som externy modem Zyxel typu Voice).MDI okno
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 15.10.1999 17:53:06
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Mam jeden problem v Delphi 1 (+WinNT).
Mam aplikaci s hlavnim MDI oknem a menu. Po otevreni nejakeho MDIchild okna
posilam
hlavnimu okno zpravu, v reakci na kterou nastavuju viditelnost nekterych
polozek
v menu na true nebo false. No a problem je, ze se mi pokazi menu hlavniho
formu
(zmizi ikona vlevo vedle menu) a taky mi zmizi buttony pro minimalizaci a
maximalizaci
MDI child okna. Pokud kliknu na misto, kde by tlacitka mely byt, tak se
objevi, ale
ikona se uz neobjevi (teda pokud neprepnu na jinou aplikaci a pak se vratim
zpatky).
Nevite jak z toho ven?
P.S. Co se vlastne posle oknu aplikace za sprava, kdy se prepnu pomoci
ALT+TAB z jine aplikace?+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+TQuery a docasne tabulky
[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 15.10.1999 18:16:49
Prostredi: D4, BDE 5.0, data Paradox.
Otazka: Po provedeni dotazu se mi v adresari s exe vytvori soubor
_qsq?.db. Chapu, ze je to docasna tabulka pro vysledek dotazu, ale po
ukonceni programu nezmizi jako docasna, ale zustane.
Kde je chyba?
V napovede jsem nasel nejaky odkaz u KeepConnection, ale nejak to
nepomohlo, v jinych svych projektech, ktere maji podobne podminky jsem
na to nenarazil....
Diky za kazdou radu, asi potrebuju poradne kopnout spravnym smerem.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
OT: ale jen trochu Faxovaci SW
[*] delphi(zv)htkpro(tec)cz - 15.10.1999 18:56:22
>
>
>Co se tyka vlastniho faxovaciho softu, tak tusim soucasti AsyncPro od
>TurboPower jsou i komponenty pro faxovani - mailni Petrovi Zahradnikovi
>(clexpert(zv)clexpert(tec)cz) ten s tim snad i umi delat :-))). Ale priprav si cca
>8.390,- Kc bez DyPyEjc ;-) Kazdopadne muzes zkusit trial.
Novy Async Pro ma primo FaxServer, FaxClient a FaxServerManager komponenty +
demo ktere je vlastne faxovym serverem, ale cele je to kapanek drazsi. Takze
pro nejake jednoduche faxovani by to melo stacit.
S pozdravem
Jan Kadlecek
dev-shop(tec)cz
dev-shop.sk
OT: ale jen trochu Faxovaci SW
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.10.1999 19:15:40
Kvality softu som sa samozrejme nechcel dotknut, ta je naozaj slusna.
Lenze ta rychlost...
Pokial ide TalkWorks, ten tvoj modem je interny alebo externy ?
Peter
Martin Kubecka wrote:
>
> To muze byt problem - ale umi toho fakt hodne. Me na nem vyhovuje to, ze na
> NT dokaze bezet jako sluzba a je schovany v tray-i. Jinak TalkWorks mi chodi
> bez problemu (zaznamnik) - mam Microcom DeskPorte Voice 56k.
>
> Mac
>
> Peter Vlkovic wrote:
>
> > velmi efektne urobeny, je podla mna neprimerane narocny
> > na pocitac.
> > Pre moje Pentium 166/64 MB RAM znamenala kazda operacia v programe
> > taky porod, ze som to radsej vzdal.
> > Nehovoriac, ze u TalkWorks som vobec nerozchodil hlasove funkcie,
> > (neviem preco, mal som externy modem Zyxel typu Voice).AutoIncrement
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 15.10.1999 19:54:59
Michal Hlav�� wrote:
> chcem sa spytat, ze kde a co by som mal napisat aby mi po stlaceni
> insert do pola ID vlozil autoincrement, ked pole je definovane ako
> autoinrement, lebo automaticky mi ho tam nevlozi.
V pripade autoinkrementu nic, protoze ten se prirazuje az v
okamziku Post.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nezastavitelne shozeni systemu
[*] Martin Pe�ek <pesek.martin(zv)mymail(tec)cz> - 15.10.1999 21:10:23
Zdravim !!!
> 1. Daji se z programu napsanem v Delphi ukoncit Windows? Je na to nejak=
a
> procedura?
Mno, na i-netu jsem nasel tohle:
procedure TForm1.Button1Click(Sender: TObject);
var a : cardinal;
begin
ExitWindowsEx(EWX SHUTDOWN,a); // vypnut=ED poc=EDtace
end;
procedure TForm1.Button2Click(Sender: TObject);
var a : cardinal;
begin
ExitWindowsEx(EWX REBOOT,a); // restart poc=EDtace
end;
> 2. Jak to udelat, aby se program nedal ukoncit ani Alt-F4 ani nijak jin=
ak
> (nebo jedine po zadani hesla).
Vim jak vypnout tyto klavesy - Ctrl+Alt+Del, Alt+Tab (na Alt+F4 to
nefunguje)
Na Alt+F4 by jsi mohl dat do udalost Formu udalost OnCloseQuery:
CanClose :=3D false;
Pokud by jsi vsak chtel potom program ukoncit, coz urcite ano, tak by jsi=
si
to musel nejak osetrit (nejakou podminkou - treba si tam muzes vrazit dia=
log
na heslo).
// vypnuti klaves
procedure TForm1.Button1Click(Sender: TObject);
var
Dummy: Integer;
begin
SystemParametersInfo(97,Word(True),(zv)Dummy,0);
end;
// vypnuti klaves
procedure TForm1.Button2Click(Sender: TObject);
var
Dummy: Integer;
begin
SystemParametersInfo(97,Word(False),(zv)Dummy,0);
end;
Se zbytkem dotazu ti bohuzel nepomuzu, protoze o nich nic nevim :( Jinak
doufam, ze jsem ti aspon nejak pomohl.
/======================\
/ pesek.martin(zv)mymail(tec)cz \
/-------------------------------------------------\
<---<([ Martin Pesek ] [ Gamemaker ])>--->
\-------------------------------------------------/
\ www.mujweb(tec)cz/www/gusman /
\======================/ADO a Paradox
[*] Erik Salaj <winsoft(zv)napri.sk> - 15.10.1999 22:17:57
> Paradox byl prodan Corelu, takze snazit se budou muset asi oni.
Pokial viem, tak BDE stale patri Borlandu (vlastne Inprise) napriek
tomu, ze aplikacia Paradox (ktora tiez pouziva BDE na pristup k Paradox
tabulkam) bola predana Corelu.
Erik Salaj
OT: ale jen trochu Faxovaci SW
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 15.10.1999 23:15:33
Peter Vlkovic wrote:
> Kvality softu som sa samozrejme nechcel dotknut, ta je naozaj slusna.
To je v pohode, ja se neurazim ;-)))))
> Lenze ta rychlost...
Hmm to je blby, ja tu mam Celerona 450 a 128 RAM takze to chodi slusne ;-)
> Pokial ide TalkWorks, ten tvoj modem je interny alebo externy ?
Externi. Ma to cipovou sadu Rockwell ale zkousel jsem to i na internim u zakaznika
a taky pohoda (taky Microcom Deskporte 56k Voice) ... byly k tomu na Inetu i
nejake patche....pres LiveUpdate (ted uz jsem to dlouho nekontroloval tak nevim -
vykosil jsem totiz LiveUpdate ;-)
Mac
ADO - po exception
[*] Tom� Br�dle������i�^����? - 16.10.1999 00:53:06
Zdravim,
mam nasledujici dotaz:
pouzivam ADO komponenty z delphi, ale myslim si, ze dany problem bude obecne
pro ADO.
Pri pokusu o smazani polo�ky v master tabulce pro kterou existuji polozky v
detail tabulce pri definovane referencni integrite, dojde k exception,
kterou normalne zachytim blokem Try-exception. Ale pri pokusu o posun v te
master tabulce dojde k opetovnemu vyvolani toho sameho exception, a tak
porad dokola. Myslim, ze se to tu uz resilo, ale nemuzu to nikde najit. Musi
se neco zavolat, aby se ten chybovy stav zrusil.
Chci se proto zeptat, jestli nekdo nevi jak toto vyresit.
Predem moc diky.
Tomas
t.bradle(zv)pvtnet(tec)cz
Instalace BDE
[*] Oldrich Balak <kkwest(zv)iol(tec)cz> - 16.10.1999 07:14:11
Win98, NT, D4 prof. SP3
Dobry den,
vim, ze se to tu jiz probiralo, ale v archivu ani v helpu jsem nenasel
uspokojivou odpoved. Mam aplikaci, ktera je (alspon doufam) nezavisla na
nastaveni BDE - LANGDRIVER apod. Potrebuji udelat instalacku, ktera by,
pokud mo�no, 'neohrozovala' ostatn� aplikace, pouzivajici BDE. V
InstallShield Expressu predpokladam pouziti kompletni instalace BDE do jim
navrzeneho adresare (<ProgramFilesDir>\Common Files\Borland Shared\BDE) a
nepridavam zadne aliase ani nemenim nastaveni. Zajimalo by mne, zda
InstallShield Express zjistuje pudodni instalaci BDE a jeho verzi (pokud uz
na stroji je) a kam potom nainstaluje BDE pokud se adresare lisi a pokud ho
nainstaluje do adresare nove instalace, co je s tim puvodnim (zbydou
soubory, co zabiraji m�sto), jestli provede upgrade, jestli zachova puvodni
nastaveni a naopak, pokud instaluji nizsi verzi, jestli zachova tu vyssi a
jen do ni prida pripadne nastaveni. Jak tohle vubec funguje ? A jak to
funguje p�i odinstalaci, jestli zachova BDE a pod ? Je tohle nekde dob�e
popsano ? Poprosil bych, aby nekdo, kdo uz s tim ma zkusenosti,napsal co a
jak nastavit, aby instalacka pri instalaci i odinstalaci fungovala dobre.
Bohuzel mne tlaci cas a nemohu dlouho experimentovat. D�kuji.
Ing. Oldrich Balak
comwest(zv)iol(tec)cz
Instalace BDE
[*] Radovan Urban <radovanu(zv)seznam(tec)cz> - 16.10.1999 08:39:26
Dobry den.
Mam nasledujici problem. Nevim jak prinutit Install Shield, aby s aplikaci nainstaloval i potrebne tabulky. Kdyz uvedu alias, nainstaluje se jen jeho nastaveni.
Radovan Urban.
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
TQuery a docasne tabulky
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 16.10.1999 07:49:15
Paradox to uklidit neumi, zkus si pres TSession.PrivDir ( nebo TSession.PrivateDir) nastavit
pracovni adresar pro tyto tabulky ( ejlepe nekam na lokale) a pak je mazat i s privatnim adresarem ( muze to byt i nekde v TEMPu).
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
> Prostredi: D4, BDE 5.0, data Paradox.
>
> Otazka: Po provedeni dotazu se mi v adresari s exe vytvori soubor
> _qsq?.db. Chapu, ze je to docasna tabulka pro vysledek dotazu, ale po
> ukonceni programu nezmizi jako docasna, ale zustane.
> Kde je chyba?
> V napovede jsem nasel nejaky odkaz u KeepConnection, ale nejak to
> nepomohlo, v jinych svych projektech, ktere maji podobne podminky jsem
> na to nenarazil....
>
> Diky za kazdou radu, asi potrebuju poradne kopnout spravnym smerem.
>
> Ales
>
> --
>
> Ale� Radikovsk�
> mail: radik(zv)seznam(tec)cz
> tel: +420 603 300093
>
> Instalace BDE
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 16.10.1999 08:14:34
Ahoj , vezmu to tedy poporadku :
1) Potrebuji udelat instalacku, ktera by,
> pokud mo�no, 'neohrozovala' ostatn� aplikace, pouzivajici BDE.
Proc ne?:-))
2)
V InstallShield Expressu predpokladam pouziti kompletni instalace BDE do jim
> navrzeneho adresare (<ProgramFilesDir>\Common Files\Borland Shared\BDE) a
> nepridavam zadne aliase ani nemenim nastaveni. Zajimalo by mne, zda
> InstallShield Express zjistuje pudodni instalaci BDE a jeho verzi (pokud uz
> na stroji je)
Jo, zjistuje, protoze testuje zdali tam nejni verze nizsi, nez potrebuje vlastni program.
Pokud je nizsi, pak jej prebije svoji verzi.
3)
a kam potom nainstaluje BDE pokud se adresare lisi a pokud ho
> nainstaluje do adresare nove instalace, co je s tim puvodnim (zbydou
> soubory, co zabiraji m�sto), jestli provede upgrade, jestli zachova puvodni
> nastaveni a naopak, pokud instaluji nizsi verzi, jestli zachova tu vyssi a
> jen do ni prida pripadne nastaveni.
BDE se instaluje tak, ze pokud nemas moznost zmenit cestu tak standard je
{Program Files}\Borland\Common Files\BDE. Maz-li moznost Custom instalace,
pak si cestu muzes zmenit na jinou a tim si treba udrzet i vice verzi BDE.
Instalator pak do registry zapise do promenne DLLPath v ceste
HKEY_LOCAL_MACHINE\Software\Borland\Database Engine cestu k DLL. Je-li jich vice,
pak je oddeluje strednikem, ale pri inicializaci se bere cesta prvni, coz je nevyhoda, protoze
aplikace , ktera s touto verzi neumi pracovat to pak "nerozchodi". Ostatne proc drzet na PC
vice verzi 32-bitoveho BDE. Staci tam drzet tu posledni.
Pri update mi nastaveni zachovava, problem muze nastat v pripade, ze instalujes aplikaci,
ktera ma novejsi verzi BDE a bezi Ti pri tom jina aplikace, ktera BDE taky vyuziva. V tu chvili
se instalator zachova tak, ze se pokusi verzi updatovat, zjisti, ze DLL ka nelze prepsat a
vyzve Te na konci instalace k restartu. Pokud to neudelas, muze se stat to co mi, ze jsem pak
mel cast DLLek ze starsi verze , cast z novejsi a uz se to se mnou odmitalo bavit. Pomohlo
jenom tvrde odmazani Dll a odstraneni zaznamu z registru a preinstalace.
Pokud uz je na PC vyssi verze, tak nastaveni zachova a popr. si jen doplni svoje aliasy.
4) > Jak tohle vubec funguje ? A jak to funguje p�i odinstalaci, jestli zachova BDE a pod ?
Automaticky si pak incrementuje v registry pocitadlo UseCount, ktere rika, kolik ze aplikaci
jiz BDE vyuziva a v pripade, ze se odinstalovava, tak se decrementuje pocitadlo a az posledni
aplikace by mela BDE odstranit. No a toto je prave kamen urazu svepomoci delanych instalatoru, ktere mohou tento udaj ignorovat.
5)
> Je tohle nekde dob�e popsano ?
V archivu konference a mozna i neco v helpu InstallShieldu.
6)
Poprosil bych, aby nekdo, kdo uz s tim ma zkusenosti,napsal co a
> jak nastavit, aby instalacka pri instalaci i odinstalaci fungovala dobre.
> Bohuzel mne tlaci cas a nemohu dlouho experimentovat. D�kuji.
Pro BDE je potreba akorat nahodit v sekci Select InstallShield Objects BDE a doplnit si
aliasy, popripade i nastaveni. My tato nastaveni nedelame, protoze po zkusenostech s
"nepratelskymi aplikacemi" si toto vse jeste programove kontrolujeme a nastavujeme pri
startu aplikace, takze uzivatel uz o BDE de-facto nic nevi ( tedy krome NETDIRu u PARADOXu).
Nemas zac.:-)))
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================Pocitace na siti...
[*] Vladimir Ponechal <vladimirp(zv)seznam(tec)cz> - 16.10.1999 09:42:25
Pardon, spatne jsem se vyjadril.. Mel jsem na mysli LAN, kde chci ziskat z jednoho mista (server) informace (IP, HostName,MAC add.) o pocitacich a zapisovat to do databaze tak, abych to potom mohl porovnavat...
(jo, mam Delphi3 prof.)
Vlada
-----Original Message-----
From: Slavomir Skopalik [SMTP:skopalik(zv)atlas(tec)cz]
Sent: Friday, November 12, 1999 5:52 AM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: Pocitace na siti...
Na jake siti ?
Pokud MS (je to naprosto sileny system, ktery se tvari ze funguje), tak zkus Sambu (linuxovi server tvarici se jako MS).
Ale informace co dostanes nemusi byt zrovna pravdive (trva to asi 15 minut nez se promitnou zmeny).
Slavek
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
TMemo polyka Esc
[*] Karel Kral <kral(zv)purus(tec)cz> - 16.10.1999 08:47:12
Hezke. Ale muzete mi prosim prozradit, zda je to bezna vlastnost TMemo
(polykani Esc?).
"Fryz, Zdenek" wrote:
>
> co treba takto:
> (zkouseno v D3)
>
> procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if Key = 27 then Zrus.Click;
> end;
>
> Zdenek Fryz
>
> > -----P�vodn� zpr�va-----
> > Od: Karel Kral [SMTP:kral(zv)purus(tec)cz]
> > Odesl�no: 15.11.1999 12:59
> > Komu: Konference Delphi
> > P�edm�t: TMemo polyka Esc
> >
> > Na modalnim formulari jsou tlacitka Ok, Zrus, TMemo a TEdit. Problem je,
> > ze kdyz je TMemo focused, sezere stisk klavesy Esc a formular pak nejde
> > zavrit stiskem Esc. Kdy ma focus jiny Control, pak Esc pracuje dobre.
> > Muzete mi nekdo poradit, co s tim?
> >
> > Env: D4SP3, W95
> >
> >
> >
> __________________________________________________________________
> Tato komunikace je urcena vyhradne pro adresata a je duverna.
> This communication is intended solely for the addressee and is confidential.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Instalace BDE
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 16.10.1999 08:49:33
> Dobry den.
> Mam nasledujici problem. Nevim jak prinutit Install Shield, aby s
aplikaci nainstaloval i potrebne tabulky. Kdyz uvedu alias, nainstaluje se
jen jeho nastaveni.
>
> Radovan Urban.
Ty tabulky nesouvisi pri instalaci s BDE. Musis si je nasackovat do Grupy
Programs spolu
s aplikaci a nebo si je pri spusteni programu testovat na existenci a v
pripade absence vytvaret.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
Aplikace
[*] OFFMAN <OFFMAN(zv)seznam(tec)cz> - 16.10.1999 09:56:18
Zdrav�m V�s
Jsem v Delphi za��te�n�k. M�m n�sleduj�c� probl�m. M�m vytvo�enou funk�n� aplikaci (obsahuje grafy). Kdy� tuto aplikaci p�enesu na jin� po��ta� (zkop�ruji ex��) a spust�m, tak vysko�� chybov� hl�ka : "Exeption EOleSysError in module Project1.exe at 0002CC35. T��da nen� zaregistrov�na.".
Pora�te mi, pros�m, jak vytvo�it aplikaci tak, aby ji nebylo nutn� instalovat, ale spou�t�t p��mo z diskety nebo CD. Aplikaci m�m vytvo�enou v Delphi3 Standard. Bude-li nutn�, po��d�m si nov�j�� verzi.
D�kuji za jakoukoliv radu
Offman
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Kopirovani dat z Paradoxu do Oraclu
[*] Jarosek Radim <Radim.Jarosek(zv)at.siemens(tec)cz> - 16.10.1999 09:09:47
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,
zkousim udelat toto :
insert into table1 select * from table2
problem je v tom, ze table1 je v oraclu a table2 je v paradoxu.
Delal uz nekdo neco takoveho ?
Delphi 4 Pro, Sp3, Oracle 7.3
Radim Jarosek
mailto:radim.jarosek(zv)at.siemens(tec)cz
PNG
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 16.10.1999 09:39:45
Existuje podpora pro PNG format?==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== AutoIncrement
[*] Ren� Otisk - 16.10.1999 09:42:30
Hi,
Tam se automaticky vklada hodnota po ulozeni.
Sroub
> Zdravim,
> chcem sa spytat, ze kde a co by som mal napisat aby mi po stlaceni insert
do
> pola ID vlozil autoincrement, ked pole je definovane ako autoinrement,
lebo
> automaticky mi ho tam nevlozi.
>
> D3, Paradox7, W95
>
> Dik, Miso
zahada deelelka
[*] Ren� Otisk - 16.10.1999 09:49:22
Hi
Jo todle mi to delalo taky (i kdyz nevim jestli ze stejne priciny), ale jenom kdyz jsem ji zavolal vicekrat. Chyba u me byla v poradi uvolnovani formu z DLL a samotne DLL.
w95 OSR2 - natahnuti dll OK, nezarvalo to ani na hledani fce, ale pri pouziti nastal access violation :(MDI okno
[*] Ren� Otisk - 16.10.1999 09:55:53
Hi,
Ten problem vznika, kdyz v hlavnim menu menis Visible. Tez mi to delalo a
resil jsem to jen bud zmenou vlastnosti Enabled misto Visible a nebo si na
MDIChild muzes dat TMainMenu a pomoci groupIndexu osetrit, kde se ti objevi
v menu hlavniho formu. Mas zaroven vyresene menu pro konkretni MDIChild
> Mam jeden problem v Delphi 1 (+WinNT).
>
> Mam aplikaci s hlavnim MDI oknem a menu. Po otevreni nejakeho MDIchild
> okna posilam
> hlavnimu okno zpravu, v reakci na kterou nastavuju viditelnost nekterych
> polozek
> v menu na true nebo false. No a problem je, ze se mi pokazi menu
> hlavniho formu
> (zmizi ikona vlevo vedle menu) a taky mi zmizi buttony pro minimalizaci
> a maximalizaci
> MDI child okna. Pokud kliknu na misto, kde by tlacitka mely byt, tak se
> objevi, ale
> ikona se uz neobjevi (teda pokud neprepnu na jinou aplikaci a pak se
> vratim zpatky).
> Nevite jak z toho ven?
>
> P.S. Co se vlastne posle oknu aplikace za sprava, kdy se prepnu pomoci
> ALT+TAB z jine aplikace?
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+Instalace BDE
[*] Pavel Medek <talema(zv)top(tec)cz> - 16.10.1999 10:11:37
Reseni je bud
1. pridat je primo do IS
2. vytvorit je za behu programu (lepsi)
Pavel M.
----- Original Message -----
> > Mam nasledujici problem. Nevim jak prinutit Install Shield, aby s
> aplikaci nainstaloval i potrebne tabulky. Kdyz uvedu alias, nainstaluje se
> jen jeho nastaveni.
> >
> > Radovan Urban.
Jak naprogramovat aplikaci typu TaskList
[*] Ing. Radim Bro�ek <radim.brozek(zv)berit(tec)cz> - 16.10.1999 10:16:54
Poradte mi prosim, jak ve 32-bit aplikaci zjistim seznam bezicich uloh ( to co se zobrazi v TaskListu po Ctrl + Alt+ Del ).
V Delphi 1 byla knihovna Toolhelp a funkce TaskFirst, TaskNext, ale v D3 pro uz tohle nejde.
Diky za radu.
S pozdravem
Miki
PNG
[*] Ales Radikovsky <radik(zv)seznam(tec)cz> - 16.10.1999 10:31:33
> Existuje podpora pro PNG format?
http://www.geocities.com/SiliconValley/Network/2114/
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
D5
[*] Martin <geoplan(zv)pp.sinet.sk> - 16.10.1999 10:34:23
zdravim,
Ak mam zostavu v D4 v QR. Bude mi fungovat aj v D5 ?OT: Outlook Express
[*] Martin <geoplan(zv)pp.sinet.sk> - 16.10.1999 10:36:55
Sorry za offtopic, ale neviem si rady
Nainstaloval som si novy IE 5 SK.
Odvtedy mam problemy s Outlookom. Miznu mi zlozky, hlavke ak sa nepodary pripojenie na postovy server, alebo nastane chyba pri komunikavcii s postovym servrom.
Nestretli ste sa niekdo s tym ?
Martin
PostMessage
[*] Vavro Vladimir Ing. <Vlado(zv)tentoas.sk> - 16.10.1999 11:28:58
Mam tento problem :
Jednoducha service, ktora ani nema vlastne okno, na NT 4.0 ma posielat
zpravy klasickej aplikacii. Cez subor mapovany do pamati aplikacia
odovzda handle svojho okna a service potom zavola :
PostMessage(StatArea^.BalHWND,WM_USER + 10,RollWg,0);
funkcia vsak neprebehne spravne a GetLastError vrati 1400 co by malo byt
ERROR_INVALID_WINDOW_HANDLE. Urobil som iny programik, ktory si tiez
zistil handle toho okna a posielal tam zpravy v pohode rovnakym volanim
PostMessage. Ked som si nechal vypisat hodnotu toho handle, tak service,
skusobny programik aj cielove okno ukazali rovnaku cifru.
Neviete v com moze byt problem ?
Vlado Vavro
CTI Format
[*] Roman Sladek <slado(zv)datapac.sk> - 16.10.1999 11:31:32
Neviete niekto aky he to CTI format ? Mali by to byt obrazky...
---
bye
Roman Sl�dek
TRXDBLookupCombobox
[*] Tomas Holy <thom(zv)comberg(tec)cz> - 16.10.1999 11:48:26
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Sunday, November 14, 1999 11:01 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: TRXDBLookupCombobox
Marek Soukup wrote:
>
> Helou Thome,
> no pak existuje jeste reseni, slusne tady nekoho poprosit, jestli by se mu
> nechtelo kouknout do zdrojaku od RX a trochu to tam poheftovat a pridat
tam
> tu moznost na pridani tehle fce. Podle meho lajckeho nazoru to ale nebude
> zase tak jednoduche, ale je fakt, ze takovej Lookup by se v Delphi siknul.
Ahoj,
Siknul, ale to TRxDBLookupCombobox se k tomu neda moc pouzit. Dokonce se
neda ani moc dobre pouzit TDBLookupControl jako predek, protoze neni
zrovna nejlepe navrzen. Zkratka se to musi napsat cele od zacatku.
--
Petr Vones, amatersky programator
a vcem je problem, vzdyt staci komponentu upravit, aby dovolila vybrat i
jinou hodnotu nez ktere nabizi lookup source, a zavolat event on not in
list, pokud je to zadano a to je vse NE?
TH
Instalace BDE
[*] Petr.Motlicek(zv)bcbrno(tec)cz - 16.10.1999 11:51:50
From: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
To: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
Subject: RE: Instalace BDE
Date sent: Tue, 16 Nov 1999 08:14:34 +0100
Organization: ATLAS consulting, Ostrava
Send reply to: delphi-l(zv)fwd(tec)cz
Ahoj,
tak trochu doplnim, tak trochu si chci neco vyjasnit.....
> 3)
> a kam potom nainstaluje BDE pokud se adresare lisi a pokud ho
> > nainstaluje do adresare nove instalace, co je s tim puvodnim (zbydou
> > soubory, co zabiraji m�sto), jestli provede upgrade, jestli zachova puvodni
> > nastaveni a naopak, pokud instaluji nizsi verzi, jestli zachova tu vyssi a
> > jen do ni prida pripadne nastaveni.
Jo, jenze pak mi nejde spustit (paralelne) aplikace, ktere funguji s
ruznymi verzemi BDE... Souvisi to s *1 ?
> Instalator pak do registry zapise do promenne DLLPath v ceste
> HKEY_LOCAL_MACHINE\Software\Borland\Database Engine cestu k DLL. Je-li jich vice,
> pak je oddeluje strednikem, ale pri inicializaci se bere cesta prvni *1
, coz je nevyhoda, protoze
> aplikace , ktera s touto verzi neumi pracovat to pak "nerozchodi". Ostatne proc drzet na PC
> vice verzi 32-bitoveho BDE. Staci tam drzet tu posledni.
Proc drzet tu posledni ? Velmi jednoduche: protoze ackoliv by
clovek cekal, ze s vyssi verzi BDE se bude prislusna databazova
aplikace chovat stejne (tedy bez chyb) neni tomu tak..... S vyssi
verzi BDE jsem musel prekopat kod (odladit a odstranit ruzne
Access violationy ci ruzne BDE hlasky).... Nebylo to sice u vsech
aplikaci, jenze... je to (dobre) reseni ?> 5)
> > Je tohle nekde dob e popsano ?
Ja osobne jsem to zkousel metodou pokus-omyl (tim ti chci navest
, aby ses podival do Registru na jiz zmineny
HKEY_LOCAL_MACHINE\Software\Borland\Database Engine,
pred a po instalaci). Moc uceleneho o instalaci BDE neni (tedy ja
osobne nic nenasel), az na jeden dokument, ktery jsem stahl z
InstallShield www str�nek, ale je to vsechno pro IS Professional
verzi, nicmene to urcite pomuze pochopit, jak se chova Is Express
Kdyz tak se podivej na ty WWW stranky nebo privatne mi mailni
Petr Motlicek
D5
[*] Pavel Medek <talema(zv)top(tec)cz> - 16.10.1999 11:57:36
D5 pouziva QR 3.05, takze se neprovadi ani zadna konverze.
Pavel M.
----- Original Message -----
Ak mam zostavu v D4 v QR. Bude mi fungovat aj v D5 ?
Aplikace
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 16.10.1999 11:58:13
Pouzivas grafy z palety ActiveX a tim padem bys je musel na tom jinem
pocitaci zaregistrovat. Zkus pouzit komponentu TChart, ta dela taky grafy.
Mirek
P.S.: Priste prosim Te bez diakritiky!!
----- Original Message -----
From: OFFMAN <OFFMAN(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 16, 1999 8:56 AM
Subject: Aplikace
> Zdrav�m V�s
> Jsem v Delphi za��te�n�k. M�m n�sleduj�c� probl�m. M�m vytvo�enou funk�n�
aplikaci (obsahuje grafy). Kdy� tuto aplikaci p�enesu na jin� po��ta�
(zkop�ruji ex��) a spust�m, tak vysko�� chybov� hl�ka : "Exeption
EOleSysError in module Project1.exe at 0002CC35. T��da nen�
zaregistrov�na.".
> Pora�te mi, pros�m, jak vytvo�it aplikaci tak, aby ji nebylo nutn�
instalovat, ale spou�t�t p��mo z diskety nebo CD. Aplikaci m�m vytvo�enou v
Delphi3 Standard. Bude-li nutn�, po��d�m si nov�j�� verzi.
>
> D�kuji za jakoukoliv radu
> Offman
Jak naprogramovat aplikaci typu TaskList
[*] Miroslav Mares <sm(zv)sct(tec)cz> - 16.10.1999 12:01:38
Zkus pouzit EnumWindows. Priklad by mel byt v archivu konference.
Mirek
----- Original Message -----
From: Ing. Radim Bro�ek <radim.brozek(zv)berit(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 16, 1999 10:16 AM
Subject: Jak naprogramovat aplikaci typu TaskList
> Poradte mi prosim, jak ve 32-bit aplikaci zjistim seznam bezicich uloh
to co se zobrazi v TaskListu po Ctrl + Alt+ Del ).
> V Delphi 1 byla knihovna Toolhelp a funkce TaskFirst, TaskNext, ale v D3
pro uz tohle nejde.
>
> Diky za radu.
>
> S pozdravem
> Miki
>Instalace BDE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.10.1999 12:11:29
Puvodni zprava, kterou napsal Radovan Urban dne 16 Nov 99,:
> Mam nasledujici problem. Nevim jak prinutit Install Shield, aby s aplikaci nainstaloval i potrebne
> tabulky. Kdyz uvedu alias, nainstaluje se jen jeho nastaveni.
Proste je tam pridas stejne jako EXE soubory apod.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Chyba u Win98
[*] Petr Vale� - 16.10.1999 12:18:19
Aha,
no kdyz jsem se na to podival detailne, tak ono neco na tom asi bude. Ovsem
nevite nahodou nekdo jak zjistim/osetrim tento stav. Tj. jak zjistim zda
jsou sys. prostredky vycerpane ?
DIIK
Petr Vales
-----P�vodn� zpr�va-----
Od: Jaroslav Nadhera <nadhera(zv)csh(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 15. november 1999 15.27
P�edm�t: Re: Chyba u Win98
>> mam takovy problem se kterym si nevim rady. Pouzivam program napsany ve
>C++
>> Builder 4.0. Na platforme NT mi beha bez problemu. Ovsem pokud ho spustim
>> pod Win98, po zavolani funkce ShoModal(); mi program dialog nezobrazi a
>hodi
>> MessageBox "A Win32 API function failed".
>
>Ja bych to tipnul na vycerpane systemove zdroje ve W98. Aspon me se tato
>hlaska objevuje, kdyz otevru soucasne hodne slozitych formularu.
>
>J. N�dhera
>
>CSH spol. s r.o.
>Velflikova 10, 160 00 Praha 6
>tel: 02/2431 2344-5, fax: 02/652 28 92
>Nedbalova 14, 701 00 Ostrava
>tel: 069/663 56 87
>e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
>Aplikace
[*] Martin Bob�k <bobak(zv)minv.sk> - 16.10.1999 12:34:52
alebo pomocou tregsrv dany class zaregistrovat
inak to nepojde
----- Original Message -----
From: Miroslav Mare� <sm(zv)sct(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, November 16, 1999 11:58 AM
Subject: Re: Aplikace
> Pouzivas grafy z palety ActiveX a tim padem bys je musel na tom jinem
> pocitaci zaregistrovat. Zkus pouzit komponentu TChart, ta dela taky grafy.
>
> Mirek
>
> P.S.: Priste prosim Te bez diakritiky!!
>
> ----- Original Message -----
> From: OFFMAN <OFFMAN(zv)seznam(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, November 16, 1999 8:56 AM
> Subject: Aplikace
>
>
> > Zdrav�m V�s
> > Jsem v Delphi za��te�n�k. M�m n�sleduj�c� probl�m. M�m vytvo�enou
funk�n�
> aplikaci (obsahuje grafy). Kdy� tuto aplikaci p�enesu na jin� po��ta�
> (zkop�ruji ex��) a spust�m, tak vysko�� chybov� hl�ka : "Exeption
> EOleSysError in module Project1.exe at 0002CC35. T��da nen�
> zaregistrov�na.".
> > Pora�te mi, pros�m, jak vytvo�it aplikaci tak, aby ji nebylo nutn�
> instalovat, ale spou�t�t p��mo z diskety nebo CD. Aplikaci m�m vytvo�enou
v
> Delphi3 Standard. Bude-li nutn�, po��d�m si nov�j�� verzi.
> >
> > D�kuji za jakoukoliv radu
> > Offman
>PostMessage
[*] Roman Sladek <slado(zv)datapac.sk> - 16.10.1999 12:49:20
Nemal by si posielat WM_USER + nieco, ale mal by si si zaregistrovat
svoju message cez
RegisterWindowMessage. Inak je mozne, ze nastane konfilkt v cislovani
messages a to tvoje cislo bude pouzivat nejaka ina aplikacia.
PS. Toto urcite neriesi tvoj problem, je to len taky maly hint.
> -----Original Message-----
> From: Vavro Vladimir Ing. [mailto:Vlado(zv)tentoas.sk]
> Sent: Tuesday, November 16, 1999 11:29 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: PostMessage
> Mam tento problem :
> Jednoducha service, ktora ani nema vlastne okno, na NT 4.0 ma posielat
> zpravy klasickej aplikacii. Cez subor mapovany do pamati aplikacia
> odovzda handle svojho okna a service potom zavola :
> PostMessage(StatArea^.BalHWND,WM_USER + 10,RollWg,0);
> funkcia vsak neprebehne spravne a GetLastError vrati 1400 co by malo
byt
> ERROR_INVALID_WINDOW_HANDLE. Urobil som iny programik, ktory si tiez
> zistil handle toho okna a posielal tam zpravy v pohode rovnakym
volanim
> PostMessage. Ked som si nechal vypisat hodnotu toho handle, tak
service,
> skusobny programik aj cielove okno ukazali rovnaku cifru.
> Neviete v com moze byt problem ?
> Vlado Vavro
Aplikace
[*] Ren� Otisk - 16.10.1999 12:58:32
Hi,
Jestli pouzivas nejake ActiveX komponenty (v D3 zalozka ActiveX - TChartfx,
vsSpell...), tak je potrebujes zaregistrovat.
Sroub
Zdrav�m V�s
Jsem v Delphi za��te�n�k. M�m n�sleduj�c� probl�m. M�m vytvo�enou funk�n�
aplikaci (obsahuje grafy). Kdy� tuto aplikaci p�enesu na jin� po��ta�
(zkop�ruji ex��) a spust�m, tak vysko�� chybov� hl�ka : "Exeption
EOleSysError in module Project1.exe at 0002CC35. T��da nen�
zaregistrov�na.".
Pora�te mi, pros�m, jak vytvo�it aplikaci tak, aby ji nebylo nutn�
instalovat, ale spou�t�t p��mo z diskety nebo CD. Aplikaci m�m vytvo�enou v
Delphi3 Standard. Bude-li nutn�, po��d�m si nov�j�� verzi.
D�kuji za jakoukoliv radu
Offman
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Install Shield a BDE
[*] Michal Hlav�� - 16.10.1999 13:18:32
Zdravim,
chcem sa spytat, ze co by som mal urobit v InstallShield aby sa mi dalo
korektne naistalovat BDE, pretoze po instalacii na inej masine mi padne
instalacia pri merge file IDAPI32.dll, potom mi vypise "error BDE 3" a som v
pr... Treba nejakto nastavit registre alebo nieco ine?
Senks, Miso
Testovani stringu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 16.10.1999 13:20:30
Ahoj,
> Asi bych to resil tak, ze pro nacteny retezec 's' bych zkusil
> if (s>='000') and (s<='999') Then CoUznasZaVhodne
> else NecoJineho
****Coz neni spravne, nebot treba '000' < '11g' < '999'
Pokud jde prave o triznakovy retezec, pak bych otestoval primo
znaky na pozici 1, 2 a 3. Je to asi nejrychlejsi a nikoliv ,,spinavy``
zpusob.
Slavek
> / Lukas Suchanek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
AutoIncrement
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 16.10.1999 13:23:10
> Asi bych to delal tatkto :
>
> 1) na udalosti BeforeInsert a pred Insertem si pres Query
> SELECT MAX(ID) FROM Table nasel nejvyssi hodnotu,pricetl 1 a
> zapamatoval.
To by sis mohl pekne nabehnout. Kdyz insertnes do nove
databaze dejme tomu 10 vet a pak posledni dve smazes, podle
Tveho vypoctu dostanes, ze nasledne cislo bude 9, ktezto spravne
je 11.
Slavek
> ML Software - Martin Lasevic
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
Zjisteni volneho mista
[*] Heger Martin <HEGERM.vos97(zv)vsps-su(tec)cz> - 16.10.1999 12:47:06
Neznate nekdo jak zjistit volnou kapacitu disku pod DELPHI 3.
Podminkou je, aby bylo mozne zjistit volnou kapacitu i u disku, kde
volne misto presahuje 2GB.
Diky
Heger Martin
AutoIncrement
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 16.10.1999 14:41:19
> > Asi bych to delal tatkto :
> >
> > 1) na udalosti BeforeInsert a pred Insertem si pres Query
> > SELECT MAX(ID) FROM Table nasel nejvyssi hodnotu,pricetl 1 a
> > zapamatoval.
> To by sis mohl pekne nabehnout. Kdyz insertnes do nove
> databaze dejme tomu 10 vet a pak posledni dve smazes, podle
> Tveho vypoctu dostanes, ze nasledne cislo bude 9, ktezto spravne
> je 11.
>
> Slavek
Mozna ne, protoze to by byl korektni stav ( macimalni ID v te dobe bude 8). A kdyz smazu neco v prostredku, tak stejne bude nove ID 11.
Uz taby bylo reseni, ze autoincrement se doplni po postu. Ale v pripade, ze ho chci behem editace vyuzivat, tak mi asi nic jineho nezbude.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
Rozliseni obrazovky
[*] Radek Lev� - 16.10.1999 14:44:43
Hi,
jak zjistim aktualni rozliseni obrazovky ?
Delal jsem formular, kterej se mel spustit maximalizovanej. Vse jsem
zkompiloval pri rozsliseni 800x600. U kamarada to pak pri 1024x768 udelalo
normalni okno o rozliseni 800x600, tj. ne pres celou obrazovku.
Tento formular m� Border nastaven na bsNone a m� d�lat podklad zbytku
aplikace. S tim souvisi jeste jeden muj problem. Pokud uzivatel klikne na
tento podklad ten prekrije vsechny okna a jelikoz je maximalizovany tak se
nedostane zpatky k oknum. Zaroven jsou ale na tomto FORMu nejake ikony,
takze ho nemuzu udelan ENABLED = false.
Omlouvam se, pokud se jedna o trivialni dotazy, jsem zacatecnik...
Dir, Radek
Testovani stringu
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 16.10.1999 14:44:03
No a coz takhle toto ( mozna uz to tady bylo a tak, pokud bych se opakoval, sorac):
function StrIsNumber( S :String) : boolean;
var
N : longint;
begin
try
N := StrToInt( S);
Result := True;
except
Result := False;
end
end;
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
Install Shield a BDE
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 16.10.1999 14:47:22
> chcem sa spytat, ze co by som mal urobit v InstallShield aby sa mi dalo
> korektne naistalovat BDE, pretoze po instalacii na inej masine mi padne
> instalacia pri merge file IDAPI32.dll, potom mi vypise "error BDE 3" a
som v
> pr... Treba nejakto nastavit registre alebo nieco ine?
Pokud to mas 16-ti bit BDE, pak se do registry nic nepise, ale vse se
uklada do system.ini ( nebo win.ini - ted nevim, protoze uz 16-bity
nedelam).
V obou pripadech ale staci dosadit do projektu InstallShieldu jen novou
grupu BDE a ISX si uz
zapis do registru nebo INI souboru ( 16b) zajisti sam vcetne inkrementace
UseCount.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================AutoIncrement
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 16.10.1999 15:21:49
> -----P�vodn� zpr�va-----
> Od: Martin Lasevic [mailto:vyvoj(zv)atlascon(tec)cz]
> Odesl�no: 16. listopadu 1999 14:41
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: AutoIncrement
>
>
> > > Asi bych to delal tatkto :
> > >
> > > 1) na udalosti BeforeInsert a pred Insertem si pres Query
> > > SELECT MAX(ID) FROM Table nasel nejvyssi hodnotu,pricetl 1 a
> > > zapamatoval.
> > To by sis mohl pekne nabehnout. Kdyz insertnes do nove
> > databaze dejme tomu 10 vet a pak posledni dve smazes, podle
> > Tveho vypoctu dostanes, ze nasledne cislo bude 9, ktezto spravne
> > je 11.
> >
> > Slavek
>
> Mozna ne, protoze to by byl korektni stav ( macimalni ID v te
> dobe bude 8). A kdyz smazu neco v prostredku, tak stejne bude
> nove ID 11.
Nemusel by to byt korektni stav, co kdyz se na smazane zaznamy
neco odkazovalo? Ted se to bude odkazovat na neco jineho.
Radsi bych rikal, ze spravne by tam melo byt 11. Rozhodne je to bezpecnejsi.
Myslim, ze neni potreba znat tu hodnotu predem. Ale kdybys to chtel udelat
za kazdou cenu v beforeinsert, radeji nez Max(ID) si zaloz jednoradkovou
tabulku pro
uchovavani naposledy pouzitych hodnot klicu vsech datovych tabulek,
prislusne hodnoty ber z tabulky klicu a pri kazdem insertu do datove
tabulky
hodnotu klice inkrementuj.
> Uz taby bylo reseni, ze autoincrement se doplni po postu. Ale
> v pripade, ze ho chci behem editace vyuzivat, tak mi asi nic
> jineho nezbude.
Na co bys ho mohl chtit vyuzivat? Pro uzivatele je ta hodnota nezajimava,
tzn. nemusi existovat, musi vzniknout az pri ukladani do databaze.
Jura
Zistenie WinControl-u, ktory mal predtym Focus
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 16.10.1999 15:25:07
Ahojte !
Dufam, ze sa nepytam na prilis velku blbost.
Uzivatel klikne na urcite tlacitko, na zaklade coho sa vykona nejaka
akcia.
Po jej skonceni potrebujem vratit focus na povodny WinControl, t.j. ten,
ktory bol aktivny tesne pred kliknutim na dotycne tlacitko.
Da sa nejako zistit, ktory prvok mal predtym focus ?
Z urcitych dovodov totiz nemozem ponechat focus na danom tlacitku.
Nastavenie predosleho resp. nasledovneho control-prvku, pomocou
FindNextControl,
mi nevyhovuje, pretoze tato funkcia odovzda focus prvku, ktory je v
"poradi"
za tlacitkom resp. pred tlacitkom.
Parameter Sender v obsluhe OnEnter tlacitka obsahuje ukazatel na samotne
tlacitko, ktore prave ziskalo focus, takze ten mi je nanic.
Najlepsie by bolo odchytit nejaku spravu o opusteni focusu lubovolneho
ineho prvku, poznacit si, ktory prvok to bol. A potom mam navrat focusu
vyrieseny. Lenze neviem ako to spravit (ak je to vobec mozne).
Poznamenavam, ze pisat obsluhu OnExit pre kazdy prvok zvlast, resp.
spolocnu
obsluhu pre vsetky prvky mi nevyhovuje, pretoze niektore komponenty maju
obsluhu
tohto eventu uz priradenu a s ohladom na univerzalnost ucitej unity
neviem dopredu
urcit kolko prvkov a s akymi obsluhami na formulari v urcitom okamihu
bude.
Peter
Chyba u Win98
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 16.10.1999 16:08:11
no kdyz jsem se na to podival detailne, tak ono neco na tom asi bude. Ovsem
nevite nahodou nekdo jak zjistim/osetrim tento stav. Tj. jak zjistim zda
jsou sys. prostredky vycerpane ?
No to nezistis. Akonahle dojdu systemove prostredky, tak Win sa stanu
nestabilnymi. Na to aby si ich zistil potrebujes asi vyrabat nejaky objekt
(ak ho nemas vyrobeny) a kazda vyroba neicoho uz po vycerpani zdroju ide do
kytek. Mozes ale permanente zistovat percentulany stav zaplnenia SysRes. a
podla toho riadit svoj program. Ak Windows SysRes su zaplnene z viac ako 95
% zacinaju byt nestabilene! Povedzme ze pri zisteni takehoto stavu, by si
nedovolil vyrabat dalsie objekty. Takto by to slo. Ale co dalsie programy
:-)))
btw: ak chces mam zdojak na zistovanie obsadenia SysRes
Pavol Kaka�ka
paka(zv)aktis(tec)cz
AutoIncrement
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 16.10.1999 16:10:05
> -----P�vodn� zpr�va-----
> Od: Polak Jiri
> Odesl�no: 16. listopadu 1999 15:22
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: AutoIncrement
>
> Nemusel by to byt korektni stav, co kdyz se na smazane zaznamy
> neco odkazovalo? Ted se to bude odkazovat na neco jineho.
> Radsi bych rikal, ze spravne by tam melo byt 11. Rozhodne je to
bezpecnejsi.
>
To, co navrhuji si muzu dovolit poze tehdy, ze se muzu na 100% spolehnout
na referencni integritu . Odmazani je uz veci referencni integrity a
databaze, aby na toto spravne zareagovala, tj. bud odmazat vsechny odkazy
na dany zaznam nebo odmazani vubec nedovolit.
>
> Myslim, ze neni potreba znat tu hodnotu predem. Ale kdybys to chtel
udelat
> za kazdou cenu v beforeinsert, radeji nez Max(ID) si zaloz jednoradkovou
> tabulku pro
> uchovavani naposledy pouzitych hodnot klicu vsech datovych tabulek,
> prislusne hodnoty ber z tabulky klicu a pri kazdem insertu do datove
> tabulky
> hodnotu klice inkrementuj.
Jo, i to je reseni.
>
> Na co bys ho mohl chtit vyuzivat? Pro uzivatele je ta hodnota nezajimava,
> tzn. nemusi existovat, musi vzniknout az pri ukladani do databaze.
Asi nemas pravdu, protoze treba ted delam na zakazku nadstavbu na POHODU,
kde je prave
na Autoincrement navazany dalsi zaznam - konkretne mam tabulku skladovych
skupin, kde
kazda skupina ma svoje ID ( autoincrement) a dale tabulku skladovych
polozek, kde ke kazde
polozce je doplnena hodnota ID (ta uz autoincrement nejni) a uzivatel ji
chce videt.
Ale jinak mas vcelku pravdu , ID s autoincrementem by melo byt pouze
interni pole.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================
>
> Jura
>
> Partition
[*] Josef Vopalensky <xvopale(zv)pluto.spsselib.hiedu(tec)cz> - 16.10.1999 16:30:05
Zdravim, nevedel by nekdo jak na nasledujici problem:
potrebuji udelat skritou oblast na HDD pred nahodnym(ne moc
zbehlym)uzivatelem.
Napadlo me ze bych to mohl udelat tak, ze si udelam hiden partisn a po
zadani hesla se my odkryje, ale nemam potuchy jak to udelat.
Nevedel by nekdo jak na to?
vytvorenie triedy
[*] lubos <bruce(zv)pobox.sk> - 16.10.1999 16:51:37
Caute Delfinci !
Mam takyto problemik.
Urobim si vlastnu triedu, napr. TMoja definovanu v subore moja.cpp + moja.h
Tu mam aj zadefinovany konstruktor.
Urobim si klasicku Win32 aplikaciu a v Unit1.cpp includnem moja.h.
Zadefinujem TMoja *MojObjekt, ale tento ma stale hodnotu NULL.
Neviete mi niekto poradit v com je problem ?
Pouzivam CB4.0.
Vdaka.
/LH
Install Shield a BDE
[*] Michal Hlav�� - 16.10.1999 16:57:15
Zdravim,
pochybujem, ze mam 16-bit verziu, pretoze mam BDE 5.01, a to si myslim, ze
nie je 16-bit.
A este nieco. To co si pisal, som celkom nepochopil, teda co mam urobit.
Dalo by sa to nejak blizsie?
Dik, Miso
-----P�vodn� zpr�va-----
Od: Martin Lasevic <vyvoj(zv)atlascon(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 16. november 1999 15:27
P�edm�t: RE: Install Shield a BDE
> chcem sa spytat, ze co by som mal urobit v InstallShield aby sa mi dalo
> korektne naistalovat BDE, pretoze po instalacii na inej masine mi padne
> instalacia pri merge file IDAPI32.dll, potom mi vypise "error BDE 3" a
som v
> pr... Treba nejakto nastavit registre alebo nieco ine?
Pokud to mas 16-ti bit BDE, pak se do registry nic nepise, ale vse se
uklada do system.ini ( nebo win.ini - ted nevim, protoze uz 16-bity
nedelam).
V obou pripadech ale staci dosadit do projektu InstallShieldu jen novou
grupu BDE a ISX si uz
zapis do registru nebo INI souboru ( 16b) zajisti sam vcetne inkrementace
UseCount.
P�kny den a pilotum mnoho stastnych pristani...
====================================
ML Software - Martin Lasevic
Budovatelska 459
Ostrava - Poruba, 708 00
tel.: +420 (69) 691 85 11, Paegas : 0603 338 765
fax.: +420 (69) 691 85 11
E-mail : ml_software(zv)email(tec)cz
WWW: http://cement.fmi(tec)cz/ml_software
Miror : http://freeweb.coco(tec)cz/ml_software
====================================