Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TTreeView
[*] Tomas Andrasko <tomas.andrasko(zv)asei(tec)cz> - 20.5.1999 09:35:17
Skus si nainstalovat novejsi COMCTL32.DLL, resp. STDVCL40.DLL. Mel jsem
podobny problem s ikonkami na TToolBaru.
Tomas Andrasko
Martin Lasevic wrote:
> Ahojte,
>
> mam zahadny problem. Pouzivam ve svem programu komponentu TTreeView, kde
> programove naplnuji ikony k jednotlivym TTreeNode. Na vetsine pocitacu to
> bezi, ale
> najdou se i vyjimky, kde tyto ikony videt nejsou. Nevite nekdo, cim by to
> mohlo byt?
>
> Diky za kazde nakopnuti.
>
> Preji hezky den .....
> ============================================
> ML Software - Martin Lasevic
> Budovatelska 459,
> 708 00 Ostrava - Poruba
> tel.: + 420 (69) 691 85 11, 0603 338 765
> mailto:ml_software(zv)email(tec)cz
> mailto:+420603338765(zv)sms.paegas(tec)cz
> http://www.mujweb(tec)cz/www/ml_software
> ICQ:33630882
> ============================================
>
>
Lokalizace InstallShieldu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 20.5.1999 09:46:50
>> pokousel jsem se udelat lokalizaci Install Shieldu
>> (Delphi Edition, toho , co je na Delphi CD) ...
>>
>Setup.exe lokalizovat nelze, protoze to je v podstate jen
zavadec,
To mi je jasny, ale nikde jsem nenasel to uvodni
hlaseni "Setup is preparing InstallShield Wizard...
...Please wait" , tak me napadlo, ze by to mohlo byt
primo v nem.
>ktery budto obsahuje komprimovana data, nebo po nich saha do
dalsiho
>souboru (ted z hlavy to nevim presne, ale to je v tomto
okamziku fuk).
Zkousel jsem lokalizovat i ten vysledny distribucni
"balicek" a rovnez bez uspechu, mozna to tedy bude tim
ze jsem to delal pod W95 a ne pod NT (coz rovnez
nechapu, asi proto, ze nevim, jak probiha samotna
lokalizace).
>Lokalizovat musis soubor resdll.dll, kde jsou vsechny texty
>a formulare. No a protoze tahle dll neni psana v Delphi 3 a
vyse,
>je nutne to lokalizovat pod NT, a preklady nacpat zase zpet
>do resdll.dll (je na to v Lokalizatoru talcitko).
Zkusim to, a kdyz/tak se jeste ozvu...
...diky vsem.
Dobra.TShiftState
[*] xneuma02(zv)stud.fee.vutbr(tec)cz - 20.5.1999 09:07:13
> Od: "Petr Vaclavek" <bla(zv)atrey.karlin.mff.cuni(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> Datum odesl�n�: Wed, 12 May 1999 18:27:50 +0200
> V�c: Re: TShiftState
> Po�t. program: Pegasus Mail for Win32 (v3.01d)
> Odpov�� kam: delphi-l(zv)fwd(tec)cz
> > Zdravim
> > Mam taky maly problem, v nasledujucej procedure mi to vo zvyraznenom =
> > riadku hlasi: Incompactible types.
> > if Shift = ssShift then
> >
> > Problem je v tom, ze v helpe stoji, ze
> > type TShiftState =3D set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, =
> > ssMiddle, ssDouble);
> >
> > Takze v com je chyba?
> > Dakujem za kazdu pomoc.
> **** Neni to nahodou v tom, ze porovnavas MNOZINU s PRVKEM?
> Zkus toto:
> if Shift = [ssShift] then ....
>
> Petr
>
Nekdy je lepsi psat nasledujici:
if ssShift in Shift then ....
David NEUMANN
xneuma02(zv)stud.fee.vutbr(tec)cz
Zapis dat z WWW stranky do DBF souboru
[*] martin.falta(zv)obi(tec)cz - 20.5.1999 10:12:10
Nevite nekdo, jak lze pomoci ISAPI DLL vytvorene v D3 zapisovat do DBF
souboru data, ktera zada uzivatel na internetove strance? Uz jsem zkusil
snad vsechno, ale vzdy jsem dostal chybu Access violation.
DLLs - pouzivani, Exception hook
[*] Martin Bodlak <vyvoj(zv)atlascon(tec)cz> - 20.5.1999 10:18:58
Petr Zahradnik wrote:
>
> Puvodni zprava, kterou napsal Martin Bodlak dne 20 May 99,:
>
> > > >procedure FK_FreeForm(AForm: TForm); stdcall; export;
> > > >begin
> > > > TFrmMain(AForm).Free;
> > > >end {FK_FreeForm};
> > >
> > > To pretypovani je snad zbytecne, ne?
> > >
> > Ani nahodou. Mohu poslouzit vlastnimi zkusenostmi. Protoze z DLL vracim do
> > hlavniho programu TForm a do FK_FreeForm posilam zase TForm, tak ta DLL
> > nema zrejme spravne informace o skutecnem typu. Proste pokud to
> > nepretypuju, nefunguje to. Verte mi.
>
> Ja tomu neverim. Musi to chodit i bez pretypovani.
>
No ja jsem to zkousel... tak to musim vedet, ze.
Mame DLL, v nem formular. Potrebujeme ho nahrat i vicekrat a z EXE
nahravame prislusne DLL on-demand pomoci LoadLibrary. Pritom formular
zobrazujeme pres Show, nikoli ShowModal. Formular samozrejme obsahuje
spoustu dalsich datovych polozek. Pri uzavreni vsech formularu
uvolnujeme i celou DLL.
Kdyz jsme nedelali to pretypovani a uvolnovali jsme formular primo z
EXE, nesla odloudovat DLL, hazelo to chybu hnusnou odpornou. To same
kdyz jsme to uvolnovali v DLL bez pretypovani. Totiz v te DLL po
vytvoreni formulare ten formular uz nefiguruje jako zadna promenna v
DLL, ale pouze v EXE, a to jako TForm. Po uvolneni v DLL jako TForm se
nevolal destruktor odvozeneho formulare a tudiz tam spousta veci v
pameti zustala a pak se ta DLL neuvolnila. Proste to u FreeLibrary
lehlo.
Po pretypovani to tu chybu nehazelo, takze logicky je to tam zapotrebi.
Mozna jsme v tom nekde jinde udelali jinou schovanou chybu, ale tohle
pretypovani to bez jinych nasledku 100%ne vyresilo.
--
Hezky den!
______________________________________________
Martin Bodlak, ATLAS consulting, spol. s r. o.
Corporate: http://www.atlascon(tec)cz, bodlak(zv)atlascon(tec)cz
Private : http://members.xoom.com/bodlak, martin.bodlak(zv)iname.com
Tel. 069-6616432 (office), 0603-490135 (private)Fullscreen
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 20.5.1999 10:24:00
>Potreboval bych se zeptat, jak se da v Delphi menit za chodu rozliseni +
>barevna hloubka.
>
var
lpDmArray : PDmArray;
NumModes : integer;
{
.......najprv treba naplnit lpDmArray
procedurkou xxxxxx uvedenou nizsie
}
procedure ChangeRes;
var
ReturnVal : LongInt;
DisplayMode: Integer;
s: String;
begin
if ListView1.Selected = nil then Exit;
DisplayMode := Integer(ListView1.Selected.Data);
{$IFOPT R+}
{$DEFINE CKRANGE}
{$R-}
{$ENDIF}
ReturnVal := ChangeDisplaySettings(lpDmArray[DisplayMode],
CDS_UPDATEREGISTRY);
{$IFDEF CKRANGE}
{$UNDEF CKRANGE}
{$R+}
{$ENDIF}
case ReturnVal of
DISP_CHANGE_SUCCESSFUL: s := 'DISP_CHANGE_SUCCESSFUL';
DISP_CHANGE_RESTART :
begin
s := 'DISP_CHANGE_RESTART';
ExitWindows(EW_RESTARTWINDOWS, 0 );
Application.Terminate;
end;
DISP_CHANGE_BADFLAGS : s := 'DISP_CHANGE_BADFLAGS';
DISP_CHANGE_FAILED : s := 'DISP_CHANGE_FAILED';
DISP_CHANGE_BADMODE : s := 'DISP_CHANGE_BADMODE';
DISP_CHANGE_NOTUPDATED: s := 'DISP_CHANGE_NOTUPDATED';
end;
ShowMessage(s);
end;
a podporovane rozlisenia graf.karty sa zistia:
procedure xxxxxxx;
var
dm : TDeviceMode;
MoreModes : bool;
begin
MoreModes := True;
{
.... nasledujuce je vhodne napriklad
na naplnenie TListView, aby si uzivatel
mohol vybrat prislusny mod plus este
na nieco ine....pozri koniec procedurky
}
i := 0;
while MoreModes do begin
MoreModes := EnumDisplaySettings(nil, i, dm);
{
.............
tu podla potreby, pricom: i...........cislo modu
dm.dmBitsPerPel ...............4=16 farieb......8=256 farieb....
dm.dmPelsWidth..................napr 800 (ak je to 800 x 600)
dm.dmPelsHeight................ napr 600 (ak je to 800 x 600)
}
Inc(i);
end;
// NEZABUDNUT NIEKDE NA KONCI POUZIT
// FreeMem(lpDmArray, sizeof(TDeviceMode) * NumModes);
NumModes := i;
GetMem(lpDmArray, sizeof(TDeviceMode) * NumModes);
FillChar(lpDmArray^, sizeof(TDeviceMode) * NumModes, #0);
{$IFOPT R+}
{$DEFINE CKRANGE}
{$R-}
{$ENDIF}
for i := 0 to (NumModes - 1) do
EnumDisplaySettings(nil,i, lpDmArray[i]);
{$IFDEF CKRANGE}
{$UNDEF CKRANGE}
{$R+}
{$ENDIF}
end;
Inaksie mnozstvo odpovedi na mnozstvo otazok v tejto konferencii
je aj na CD D4 vo formate html a na borland.com
forgo
DLLs - pouzivani, Exception hook
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.5.1999 09:25:37
Puvodni zprava, kterou napsal Martin Bodlak dne 20 May 99,:
> > >procedure FK_FreeForm(AForm: TForm); stdcall; export;
> > >begin
> > > TFrmMain(AForm).Free;
> > >end {FK_FreeForm};
> >
> > To pretypovani je snad zbytecne, ne?
> >
> Ani nahodou. Mohu poslouzit vlastnimi zkusenostmi. Protoze z DLL vracim do
> hlavniho programu TForm a do FK_FreeForm posilam zase TForm, tak ta DLL
> nema zrejme spravne informace o skutecnem typu. Proste pokud to
> nepretypuju, nefunguje to. Verte mi.
Ja tomu neverim. Musi to chodit i bez pretypovani.
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
Delphi 4 a Quickreporty
[*] Hole�ek Radek <holecek.radek(zv)seznam(tec)cz> - 20.5.1999 10:27:33
[P��loha v souboru: holecek.radek.vcf]Zmena rozmeru pole
[*] Pavol Griga <paly(zv)sct.sk> - 20.5.1999 10:40:07
>Ahoj,
>nevite nekdo, jak zmenit rozmer pole predaneho jako parametr ? Priklad:
>
V Delphi 4 to robim tak to:
Type TSkupiny = array of Integer;
procedure TFrmDualList.DajSkupiny(var pole: TSkupiny);
var
i, n: Integer;
begin
n := SrcList.Items.Count;
SetLength(pole, n);
Pavol Griga
th32ProcessID
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 20.5.1999 12:00:50
Ahoj,
muzete mi nekdo prozradit, jak ukoncim proces, jestlize jsem si ID procesu
zjistil pomoci Thelp32 > ProcEntry.th32ProcessID???
Diky
Jiri Virt
email:virt(zv)pepa(tec)cz
www.pepa(tec)cz
th32ProcessID
[*] mdvorak(zv)csas(tec)cz - 20.5.1999 12:20:23
Treba pouzitim kombinace OpenPrecess a TerminateProcess:
hProc:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessId);
TerminateProcess(hProc,ExitCode);
CloseHandle(hproc);
S pozdravem
Mirek Dvorak
-----P�vodn� zpr�va-----
Od: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
Odesl�no: 20. kv�tna 1999 12:01
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: th32ProcessID
Ahoj,
muzete mi nekdo prozradit, jak ukoncim proces, jestlize jsem si ID procesu
zjistil pomoci Thelp32 > ProcEntry.th32ProcessID???
Diky
Jiri Virt
email:virt(zv)pepa(tec)cz
www.pepa(tec)cz
RichEdit98
[*] Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 20.5.1999 12:45:37
Stahoval jsem to z tusim z DSP. Lisi se to hlavne v tom, ze ma velkou spoustu dalsich vlastnosti textu, z nichz drtivou vetsinu lze sice nastavit, ale nijak se neprojevi. Napriklad lze nastavit asi 5 druhu tabulatoru (zarazka zleva, zarazka zprava, zarazka na desetinne carce a pod...), ale realne funguje jen jeden z nich, ten stejny jako v klasickem RichEditu. V konecnem dusledku jsem tedy nasel nasledujici realne vylepseni:
1. Umi vkladat OLE aniz by se cokoli dalsiho programovalo
2. Umi zmenit radkovani - t.j. velikost mezery mezi jednotlivymi radky
3. Umi viceurovnove undo a redo
4. Umi pracovat s casti textu vcetne formatu.
Priklad
RichEdit1.SelStart := 5;
RichEdit1.SelLength := 25;
RichEdit2.SelText := RichEdit1.SelText ;
Puvodni RichEdit toto realizoval pouze jako preneseni textu, bez formatu, RichEdit98 by to mel umet i s formatem (nezkousel jsem).
To je tak asi vsechno na co jsem prisel.
-----P�vodn� zpr�va-----
Od: Fryz, Zdenek [SMTP:fryz(zv)dcb(tec)cz]
Odesl�no: 18. kv�tna 1999 8:41
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RichEdit98
ahoj,
zna nekdo komponentu RichEdit98 ?
Rad bych vedel cim se lisi od TRichEditu,
ktery je dodavan standardne s Delphi(3),
event. kde lze tuto komponentu ziskat...
diky za pripadne odpovedi
Zdenek Fryz
ShowModal + odchyt TAB klavesy
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 20.5.1999 12:51:13
1) V Delphi 1 mam aplikaci. Pokud z menu otevrum jine modalni okno,
na dolni liste se mi objevi tlacitka pro obe okna. Pokud vsak
uzivatel klikne na liste an to hlavni okno, to se sice dostane do
popredi,
ale logicky se na nem neda nic delta, protoze aktivni je to
modalni okno. Jak udelat, aby se dostalo do popredi
aktivni modalni okno, ikdyz uzivatel na liste vybral tlacitko
hlavniho okna?
2) Jak odchytit stisknuti klavesy TAB v Delphi 1?
Skousel jsem v OnKeyDown (stejne kde odchytavam ENTER, ESC - ktere
funguji),
ale obsluha teto metody se vubec nezavola.
3) Premapovavam Enter klavesu na TAB, ale potrebuji, aby to nepipalo.
Da se to nejak udelat?
Kod:
case Key of
VK_RETURN: {focus next edit}
if (ActiveControl is TEdit) or (ActiveControl is TComboBox)then
SelectNext(ActiveControl, True, True);
Petr
Undo,redo
[*] Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 20.5.1999 12:52:49
Melo by to jit pomoci zprav EM ... napriklad jde o zpravy EM CANUNDO, EM UNDO, EM GETUNDONAME, RM REDO, EM GETREDONAME a dalsi. Mozna budou popsany nekde v helpu. Ja jsem to zahlid v RichEdit98, ten se da sehnat, tusim ze na DSP.
-----P�vodn� zpr�va-----
Od: Daniel Kminek [SMTP:kminek(zv)mite(tec)cz]
Odesl�no: 18. kv�tna 1999 13:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Undo,redo
Ahoj vsichni,
udelat richedit1.undo bylo snadne, ale jak udelat undo na vic kroku a pak redo ?
Jde to ? A kdyz, kolik kroku to registruje ?
Diky za pripadne rady
Daniel Kminek
Et iritis sicut dii, scientes bonum et malum.
kminek(zv)mite(tec)cz
www.mite(tec)cz
<<Soubor: ATT00003.htm>>
TMemo, TRichEdit
[*] Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 20.5.1999 13:02:08
A proc nejde
Memo1.SelText := 'text'
nemo napriklad
Pozice := Memo1.SelStart;
Memo1.SelText := 'text';
Memo1.SelStart := Pozice; // popripade Memo1.SelStart := Pozice+legth('text') ... a pod
???
-----P�vodn� zpr�va-----
Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odesl�no: 20. kv�tna 1999 9:30
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: TMemo, TRichEdit
Ja jsem to udelal takhle :
procedure InsertText(WMemo : TMemo; WText : string; WSize : byte);
var I : byte;
begin
WMemo.SetSelTextBuf(PChar(WText));
if WSize>0 then
for I:=1 to WSize do
PostMessage(WMemo.Handle, wm KeyDown, VK LEFT, 0);
end;
potom jsem volal napr.:
InsertText(Memo1, '<H1></H1>', 5);
ale bohuzel jsem zjitil, ze potom uz nejde udelat
WM UNDO :-(((
Dobra.
> ----------
> Od: Radek Zitta[SMTP:RADEK.ZITTA(zv)gyza(tec)cz]
> Odesl�no: 20. kv�tna 1999 13:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TMemo, TRichEdit
>
> Nev�te n�kdo, jak na aktu�ln� pozici kurzoru vlo�it n�jak� text tak,
> aby kurzor nezmizel a p��padn� zm�nit jeho pozici ?
>
Dialog "otevrit cim"
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 20.5.1999 13:08:26
Ahoj,
nevite, jak programove vyvolat dialog "otevrit cim" pro dane jmeno souboru ?
Uzivatelsky se lze k tomuto dialogu dostat kliknutim na soubor pravym
tlacitkem
mysi s podrzenym shiftem. Diky za hinty.
-----------
Ing. Martin Dupal
address: Hodolanska 35
77200 Olomouc
Czech Republic
tel.: +420/68/5313130
fax.: +420/68/5313132
http://www.vision(tec)cz
mailto:mdupal(zv)vision(tec)cz
TMemo, TRichEdit
[*] Radek Zitta <RADEK.ZITTA(zv)gyza(tec)cz> - 20.5.1999 11:14:40 cet
Nev�te n�kdo, jak na aktu�ln� pozici kurzoru vlo�it n�jak� text tak,
aby kurzor nezmizel a p��padn� zm�nit jeho pozici ?DLLs - pouzivani, Exception hook
[*] Petr =?iso-8859-2?Q?Ga=EFourek?= <geta(zv)telecom(tec)cz> - 20.5.1999 13:14:07
Kolem DDL se nemuzu poustet do odbornych diskusi, ale mam stejnou zkusenost jako
Martin Bodlak. Proto jsem ten dotaz do konference poslal.
Pri vicenasoubnem volani TForm (jasne, ze SHOW) z hlavniho EXE se mi EXE
hroutilo a to jak se hroutilo zalezele na posloupnosti uvolnovani otevrenych
TForm. Dokonce to schazuje system tak, ze jsem musel dat tvrdy reset,
CTRL-ALT-DEL nereagoval.
Pretypovani jsem zatim nezkousel, delam ted jiny veci, ale pokud jsem TForm
vyvolal a hned ukoncil, tak se ukouslo z pameti cca 10 kB, co� podporuje to co
napsal Martin 20.5. 99 v 10:18.
Ahoj
Petr Gadourek
Petr Zahradnik wrote:
> Puvodni zprava, kterou napsal Martin Bodlak dne 20 May 99,:
>
> > > >procedure FK_FreeForm(AForm: TForm); stdcall; export;
> > > >begin
> > > > TFrmMain(AForm).Free;
> > > >end {FK_FreeForm};
> > >
> > > To pretypovani je snad zbytecne, ne?
> > >
> > Ani nahodou. Mohu poslouzit vlastnimi zkusenostmi. Protoze z DLL vracim do
> > hlavniho programu TForm a do FK_FreeForm posilam zase TForm, tak ta DLL
> > nema zrejme spravne informace o skutecnem typu. Proste pokud to
> > nepretypuju, nefunguje to. Verte mi.
>
> Ja tomu neverim. Musi to chodit i bez pretypovani.
>
> 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
Jak do TDBGrid udelat multiline?
[*] j.binder(zv)albacon(tec)cz - 20.5.1999 13:34:13
Omlouvam se pokud tato zprava prichazi podruhe, ale vcera jsem ji
posilal a nevidel jsem, ze by dosla.
Na DSP jsem zahledl komponentu dbgrideh (vcetne zdroju) , ktera
myslim dela to co je zde pozadovano. Prikladam citaci z
dokumentace.
jiri binder
Allow to create title on several columns (multititle mode) or on the
whole
grid.
Allow to show a fotter row(s). Opportune to use in combination
with TDBSumList.
Allow automatically fit columns width to set grid width equal client
width
Allow change row height and title height
Allow automatically broken a long lines between words in title and
data
rows
Title can act as buttons and show sort marker
Allow truncate long text by ellipsis
Lookup list can show several fields
Frozen columns
Operator LIKE
[*] j.binder(zv)albacon(tec)cz - 20.5.1999 13:34:13
V Paradoxu jsem pouzival v QBE operatoru LIKE k vyhledani
podobnych textovych retezcu. V Interbase jsem nyni o tuto
vymozenost prisel. Asi by se dalo neco podobneho udelat jako
UDF. Neexistuje to uz nekde?
Podobne operator LIKE v SQL by se mi hodil posdstatne vice,
kdyby byl case insensitive. Neni nahodou neco takoveho nekde
vyreseno?
Jiri Binder
Delphi 4 a QuickReporty
[*] Hole�ek Radek <holecek.radek(zv)seznam(tec)cz> - 20.5.1999 13:36:22
Muj prvni problem se tyka distribuce hotove aplikace na jiny pocitac.
Na svem pocitaci v Win95 jsem vytvoril aplikaci, kterou jsem prenesl na
WinNT 4.0
pomoci InstallShiledu. Vsechno pracuje bez problemu, ale pri preview
tiskove sestavy se
na jednotlivych buttonech (posun vpred, vzad, printer setup apod.)
nezobrazuji ikony.
Buttony jinak pracuji bez problemu. Nevim, co bych mel jeste
distribuovat a jake pripadne zmeny v registrech provest.
Diky odpovedi na TTreeView se mi podarilo vymenou comctl32.dll za
novejsi problem s ikonami odstranit.
S pozdravem
Radek Hole�ek <holecek.radek(zv)seznam(tec)cz>
RichEdit do schranky ???
[*] Petr Vale� - 20.5.1999 14:10:25
Ahoj,
nevite prosim jak zkopirovat cely RichEdit do schranky. Momentalne mi nejde
help a sem linej to nekde hledat.
S pozdravem Petr
Refresh files in Delphi
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 20.5.1999 14:18:27
Zdrav�m program�torskou obec! A hned dot�ze�ek, jak donutit DELPHI, aby obnovovala vlastnosti v nich otev�en�ch soubor� (nap�. PAS)? Jde mi o to, aby se reagovalo na zm�nu atributu readonly u soubor�, n�jak na to nemohu p�ij�t. Soubor je readonly, v Delphi nemohu editovat, vlastnost readonly zm�n�m nap�. ve WC a delphi zareaguj� a� po t�, co je restartuji. Douf�m, �e probl�m byl pops�n dostate�n�? :-)) D�ky za n�m�ty.
M&B
Refresh files in Delphi
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 20.5.1999 14:38:30
Neiem o tom ze by to nejak slo priamo v Delphi ale neni problem konkretny
subor zatvorit, v exploreru zmenint jeho "vlastnsti" ci "properties" z
ReadOnly a potom ho znovu nacitat bez toho aby si restartoval Delphi. Teda
apon mne to tak ide.
Cau Pavol.
paka(zv)aktis(tec)cz
www.aktis(tec)cz
----- Original Message -----
From: Martin Bab�k <M.Babik(zv)mus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 20. kv�tna 1999 14:18
Subject: Refresh files in Delphi
Zdrav�m program�torskou obec! A hned dot�ze�ek, jak donutit DELPHI, aby
obnovovala vlastnosti v nich otev�en�ch soubor� (nap�. PAS)? Jde mi o to,
aby se reagovalo na zm�nu atributu readonly u soubor�, n�jak na to nemohu
p�ij�t. Soubor je readonly, v Delphi nemohu editovat, vlastnost readonly
zm�n�m nap�. ve WC a delphi zareaguj� a� po t�, co je restartuji. Douf�m, �e
probl�m byl pops�n dostate�n�? :-)) D�ky za n�m�ty.
M&B
Refres files in Delphi
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 20.5.1999 14:53:08
Este sa vratim k tym ReadOnly suborom v Delphi. V pripade ze mas Delphi v 3.
alebo 4, mas este jednu moznost: Hned pri otvarani suboru v Delphi stlac
prave tlacitko mysi a tam zmen "Properties".
Diky PACI
Zdravim Pavol
paka(zv)aktis(tec)cz
www.aktis(tec)cz
Zapis dat z WWW stranky do DBF souboru
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 20.5.1999 15:03:04
> Odes�latel: martin.falta(zv)obi(tec)cz
> Nevite nekdo, jak lze pomoci ISAPI DLL vytvorene v D3 zapisovat do DBF
> souboru data, ktera zada uzivatel na internetove strance? Uz jsem zkusil
> snad vsechno, ale vzdy jsem dostal chybu Access violation.
To je prilis obecna otazka.
Nemel by to byt problem, takovych prikladu delame na kurzu "Delphi a Internet" celou radu, vcetne alternativnich pristupu k databazim.
Mas problem s databazi nebo vubec s volanim DLL?
Zkus DLL bez databaze.
Mas to v DLL dobre osetrene proti vyjimkam?
Kde ti chodi server? Nejsou problemy s WinNT Security?
...
atd.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
RichEdit do schranky ???
[*] Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 20.5.1999 16:05:27
Mozna takto
RichEdit.SelStart := 0;
RichEdit.SelLength := -1;
RichEdit.CopyToClipboard ;
-----P�vodn� zpr�va-----
Od: Petr Vale� [SMTP:pvales(zv)post(tec)cz]
Odesl�no: 20. kv�tna 1999 14:10
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RichEdit do schranky ???
Ahoj,
nevite prosim jak zkopirovat cely RichEdit do schranky. Momentalne mi nejde
help a sem linej to nekde hledat.
S pozdravem Petr
QUERY - ClientDataSet
[*] Ale� Da�a���jW��֧g� �v��̿ - 20.5.1999 18:36:39
[P��loha v souboru: winmail.dat]
Ahoj vseci
mam problem s nasledujicim dotazem, ktery muze vypadat podobne:
Select * from Adresar where (CustID = ANY (select CustID from Osoby where
Osoba LIKE "%KAREL%"))
KOmponenta TQuery vraci data v poradku. Pokud napojim na TQuery komponentu
TProvider a TClientDataSet nastane chyba Neocekavane selhani.
Poradite v cem to muze byt?
ADaSOFT
Ale� Da�a
t�. T. Bati
760 01 Zl�n
e-mail: ales.dana(zv)seznam(tec)cz
tel. :�0603 457 024
Resource
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.5.1999 19:02:42
Petr Mys wrote:
> Nevi nekdo o nejakem free programu na generovani a spravu resource souboru
> (.res), ktery bude umet pridavat i binarni soubory (napr. avi, wav). Zatim
> jsem pouzival Microsoft C ++, ale instalce zabira spustu mista.
Jestli mas NT, tak si to muzes udelat velice snadno sam pomoci
funkci:
BeginUpdateResource
UpdateResource
EndUpdateResource
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Lokalizace InstallShieldu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.5.1999 19:02:42
Mal� Dobromil wrote:
> >ktery budto obsahuje komprimovana data, nebo po nich saha do
> dalsiho
> >souboru (ted z hlavy to nevim presne, ale to je v tomto
> okamziku fuk).
>
> Zkousel jsem lokalizovat i ten vysledny distribucni
> "balicek" a rovnez bez uspechu, mozna to tedy bude tim
> ze jsem to delal pod W95 a ne pod NT (coz rovnez
> nechapu, asi proto, ze nevim, jak probiha samotna
> lokalizace).
To je uz pozde. Zlokalizovat se musi resdll.dll jeste pred vytvorenim
balicku.
Jinak lokalizace probiha tak, ze se vytahaji resourcy z programu
(tedy i z dll), prelozi se, a budto se nacpou zpet, nebo se muze
vytvorit externi dll, kam se ty preklady nacpou. V takovem pripade
vsak program musi umet najit tu dll s preklady a musi ji umet
vycist.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
RX Help
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 20.5.1999 19:12:18
Ahoj
kde se da stahnout RX Help k 2.,60 (anglicky)
Diky Heinisch Jiri
SQL - podminka
[*] Jiri Heinisch <HeiJu(zv)sol(tec)cz> - 20.5.1999 19:12:20
Heinisch wrote:
> >>K cemu je mi pak cele slavne SQL, pokud na nem nemohu vystavit
> >obycejnou
> >>fakturu ???
> >>
> >>Ach jo !
Jaro wrote:
> >Tak ja (mimo jine) taky vystavuji faktury s pouzitim SQL.
> >Nemyslim se, ze chyba je v SQL. Mozna by namisto rozcilovani se,
> >pomohlo znovu se zamyslet nad datovou strukturou.
> >Jaro
To nebylo ani tak rozcilovani jako takove popichnuti.
Z nekterych prispevku se nabyval dojmu ze SQL je vsemocny ale
me to v praxi pripada trosku jinak :-)
Ovsem nevim co vymyslet za zmeny nad datovou strukturou
"Mnozstvi, Cena_Kus, Sazba_Dph"
Kovac wrote:
> select
> u.doklad,
> sum(u1.pocet*u1.cena)/count(*),
> sum(u2.pocet*u2.cena)/count(*),
> sum(u3.pocet*u3.cena)/count(*)
> from ucty u
> left join ucty u1
> on u.doklad=u1.doklad and u1.sadzba_dph=0
> left join ucty u2
> on u.doklad=u2.doklad and u2.sadzba_dph=5
> left join ucty u3
> on u.doklad=u3.doklad and u3.sadzba_dph=22
> group by u.doklad
Diky moc za odpoved, bohuzel mi tento dotaz
funguje pouze za predpokladu ze mam tri polozky a pokazde s jinou sazbou
DPH
tj. u1.sadzba_dph=0,u1.sadzba_dph=5 , u1.sadzba_dph=22 pokud jsou data
takto
u1.sadzba_dph=22,u1.sadzba_dph=5 , u1.sadzba_dph=22 tak to spocita uplne
neco
jineho.
S pozdravem Heinisch Jiri
Vyuzitie CPU
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 20.5.1999 20:48:35
Hello All!
Nasiel som kusok programu pre zistenie okamziteho zatazenia CPU,
prekvapivo sa to robi citanim registru (ale kde C:\WINDOWS\SYSMON.EXE
berie tie texty?):
Function GetCPULoad:longint;
var reg:Tregistry;
b:longint;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_DYN_DATA;
reg.OpenKey('\PerfStats\StatData',false);
reg.ReadBinaryData('KERNEL\CPUUSAGE',b,sizeof(b));
reg.CloseKey;
reg.Free;
result:=b;
end;
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Lokalizace InstallShieldu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.5.1999 20:12:35
Puvodni zprava, kterou napsal Mal� Dobromil dne 20 May 99,:
> To mi je jasny, ale nikde jsem nenasel to uvodni
> hlaseni "Setup is preparing InstallShield Wizard...
> ...Please wait" , tak me napadlo, ze by to mohlo byt
> primo v nem.
Ja jsme Ti na to odpovidal, ze to tam je, ale ze je to
16-bitovy program, ktery lokalizator neumi...
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
cestina podruhe....
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 20.5.1999 22:02:37
Hello All!
19. kv�tna 1999 21:33: Jan �ebel�k wrote:
> Cesky help na Delphi neexistuje a ani existovat nebude.
Zrovna vcera som sa dobre pobavil v RU.DELPHI. Moderator sa tam
rozculoval nad podobnym dotazom na helpy v rustine. Vysvetloval, ze ta
sprava, kde ich niekdo ponukal, bol len prvoaprilovy zartik, tak nech
uz to ludia neziadaju a ze nabuduce za take srandicky bude odpojovat.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
Tab order dialog
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.5.1999 22:44:36
TUNGLI Jan wrote:
>
> Ano, mas pravdu.
> Ide mi vlastne o nasledujucu vec:
>
> Do QuickReport vlozim QRLabel komponenty a chcel by som nastavit v akom
> poradi
> maju byt vytlacene (OnPrint) a to este v RunTime.
Ahoj,
Dobre, unika mi ale smysl celeho toho pocinani. V cem je tak dulezite
poradi jednotlivych QRLabelu ? Pokud volas v OnPrint nejaky kod ktery
sekvencne cte data, tak by bylo asi lepsi nacitat data v BeforePrint
prislusneho bandu do promennych a ty pak pouzit v QRLabel.OnPrint
udalostech.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Load Icon z jinych souboru...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.5.1999 22:44:15
Medusa wrote:
>
> Ahoj,
>
> Nemate nekdo priklad, kterak nacist ikony z jinych Exe, Dll, apod...
> souboru...
Ahoj,
Priklad mas treba tady:
http://www.borland.com/devsupport/delphi/qanda/1610.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Handle okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.5.1999 22:44:06
Martin Lasevic wrote:
> Myslim ti handle okna, ktere se kouslo a ktere se musi odstrelit rucne. Jde mi v podstate o to,
> ze pokud se tekoveto okno kousne, zablokuje i Session a pri novem startu se jiz aplikace
> kousne. Bohuzel ani TP Inprise ( p. Zeleny) nam nebyl schopen poradit, jestli existuje nejaky
> parametr, kterym bych si mohl nahodit nejaky TimeOut pro nahozeni property Active u TSession.
> Takze jedina sance, jak toto detekovat, je hledani oken urcitych trid.
Ahoj,
Problem je ze dialog "aplikace neodpovida" je modalni, takze v tu chvili se toho
moc delat neda. Neslo by spis nejak zaridit aby ta aplikace takhle nepadala ? :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Resource
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.5.1999 22:45:14
Petr Mys wrote:
>
> Nevi nekdo o nejakem free programu na generovani a spravu resource souboru
> (.res), ktery bude umet pridavat i binarni soubory (napr. avi, wav). Zatim
> jsem pouzival Microsoft
> C ++, ale instalce zabira spustu mista.
Ahoj,
Muzes pouzit napriklad kompilator resource z prikazove radky - BRCC32.EXE a
jim si prelozit .RC do .RES a ten pak prilinkovat k aplikaci. Neni to sice
zadny komfort, ale v nouzi postaci.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jeste dotaz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.5.1999 22:45:01
daniel.hrna(zv)vm.sme(tec)cz wrote:
>
> Kdyz vytvarim zastupce k EXE souboru, chce to po me samozrejme cestu k
> souboru a potom mam vlozit svoje jmeno, ktere je zobrazeno na plose. Chtel
> bych poradit s tim, aby mi to nabidlo u Delphi EXE souboru jako jmeno na te
> plose nejake moje a ne jmeno souboru. Kde v projektu toto muzu zadat a jak ?
Ahoj,
Pokud jsem to dobre pochopil, tak ti jde o situaci kdy uzivatelsky vytvaris
zastupce z Pruzkumnika (Soubor -> Novy objekt -> Zastupce) pomoci pruvodce
kde vyberes jmeno souboru a na dalsi strance pak zadas jmeno zastupce ?
Vzhledem k tomu ze je to soucast systemu, tak pochybuju ze by to slo nejak
resit. Muselo by existovat nejake rozhrani rozsireni shellu, kterym by slo
ovlivnit jmeno zastupce na zaklade exe souboru (napriklad hledanim nejakeho
predem znameho nazvu stringu z jeho resource). Otazkou je jestli se takova
vec vubec vyplati. Nepomohlo by treba programove vytvareni zastupce z te
aplikace ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Vyuzitie CPU
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.5.1999 22:48:58
Viliam Mlich wrote:
>
> Hello All!
>
> Nasiel som kusok programu pre zistenie okamziteho zatazenia CPU,
> prekvapivo sa to robi citanim registru (ale kde C:\WINDOWS\SYSMON.EXE
> berie tie texty?):
Ahoj,
Je to tak. Cele to mas popsane tady:
http://support.microsoft.com/support/kb/articles/q174/6/31.asp
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************RichEdit do schranky ???
[*] ing. Ale� Da�a - 20.5.1999 23:30:56
Ja jsem to pouzival takto:
RichEdit1.SetFocus;
RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
a pak t5eba do Wordu:
MSword.EditPasteSpecial(DataType := 'RTF' );
Ales Dana
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz za u�ivatele Bardon
Odesl�no: 20. kv�tna 1999 16:05
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: RichEdit do schranky ???
Mozna takto
RichEdit.SelStart := 0;
RichEdit.SelLength := -1;
RichEdit.CopyToClipboard ;
-----P�vodn� zpr�va-----
Od: Petr Vale� [SMTP:pvales(zv)post(tec)cz]
Odesl�no: 20. kv�tna 1999 14:10
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RichEdit do schranky ???
Ahoj,
nevite prosim jak zkopirovat cely RichEdit do schranky. Momentalne mi nejde
help a sem linej to nekde hledat.
S pozdravem Petr
rozlisenie
[*] Martin <geoplan(zv)pp.sinet.sk> - 21.5.1999 06:33:20
Zdravim,
Mam aplikaciu v delphi, napisanu v 1280x1024.
Ak ju spustim v 1024x768 mam zozhadzane komponenty, label mi ide cez edit a
pod. Ako to naprogramovat aby to v roznych rozlis. vyzeralo rovnako ?
vdaka
Martin
fonty ..
[*] Martin <geoplan(zv)pp.sinet.sk> - 21.5.1999 06:35:01
Zdravim,
Mam NT 40. Vo worde mi normalne idu ceske fonty, ak dam arial podla jazyka
si napr. vyberie cesky alebo anglicky. Ale v delphi su dostupne iba angl.
fonty. Ako sa dostat k ceskym ?
Martin
Jeste dotaz
[*] daniel.hrna(zv)vm.sme(tec)cz - 21.5.1999 06:51:08
pomohlo,ale nikdy jsem to nedelal, muzes me poradit ..
Dik Dan
-----P�vodn� zpr�va-----
Od: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Odesl�no: 20. kv�tna 1999 22:45
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Jeste dotaz
daniel.hrna(zv)vm.sme(tec)cz wrote:
>
> Kdyz vytvarim zastupce k EXE souboru, chce to po me samozrejme cestu k
> souboru a potom mam vlozit svoje jmeno, ktere je zobrazeno na plose. Chtel
> bych poradit s tim, aby mi to nabidlo u Delphi EXE souboru jako jmeno na
te
> plose nejake moje a ne jmeno souboru. Kde v projektu toto muzu zadat a jak
?
Ahoj,
Pokud jsem to dobre pochopil, tak ti jde o situaci kdy uzivatelsky vytvaris
zastupce z Pruzkumnika (Soubor -> Novy objekt -> Zastupce) pomoci pruvodce
kde vyberes jmeno souboru a na dalsi strance pak zadas jmeno zastupce ?
Vzhledem k tomu ze je to soucast systemu, tak pochybuju ze by to slo nejak
resit. Muselo by existovat nejake rozhrani rozsireni shellu, kterym by slo
ovlivnit jmeno zastupce na zaklade exe souboru (napriklad hledanim nejakeho
predem znameho nazvu stringu z jeho resource). Otazkou je jestli se takova
vec vubec vyplati. Nepomohlo by treba programove vytvareni zastupce z te
aplikace ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Datab�ze a zase datab�ze
[*] daniel.hrna(zv)vm.sme(tec)cz - 21.5.1999 07:03:00
Nev�m jestli se to tady uz resilo, ale mam problem v programu, ktery pracuje
s DBF.
1. V DBF mam polozku String, Integer a MEMO.
Ve svem formulari umim po prikazu ulozit zapsat do DBF String ale nejde
mi tam vubec INTEGER a uz vubec MEMO.
Porad mi to hlasi nejakou vyjimku, kde delam chybu.
Mam to nejak takhle:
Titul.Table2.Append;
Titul.Table2.FieldByName('neco_integer').AsInteger :=
StrToInt(polozka.Tetx); //je typu Edit
Titul.Table2.FieldByName('poznamka').AsMemo := polozka.Tetx; //je
typu RichEdit
Titul.Table2.Post;
Nebo, jde to nejak jinak a lepsi, dik za priklady
Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
Refresh files in Delphi
[*] Petr Kundrata <pksoft(zv)atlas(tec)cz> - 21.5.1999 07:18:44
Martin Bab�k wrote:
>
> Zdrav�m program�torskou obec! A hned dot�ze�ek, jak donutit DELPHI, aby obnovovala vlastnosti v nich otev�en�ch soubor� (nap�. PAS)? Jde mi o to, aby se reagovalo na zm�nu atributu readonly u soubor�, n�jak na to nemohu p�ij�t. Soubor je readonly, v Delphi nemohu editovat, vlastnost readonly zm�n�m nap�. ve WC a delphi zareaguj� a� po t�, co je restartuji. Douf�m, �e probl�m byl pops�n dostate�n�? :-)) D�ky za n�m�ty.
>
> M&B
Prav� tla��tko my�i v editoru (lok�ln� menu)+polo�ka ReadOnly.
Ovliv�uje to pouze intern� read-only - nem�n� atribut na disku.
Je-li na disku RO a v Delphi se zru�� - nelze stejn� ulo�it.
Petr Kundrata
SQL - podminka
[*] Jaro <jaro(zv)sinea(tec)cz> - 21.5.1999 07:24:44
>
>To nebylo ani tak rozcilovani jako takove popichnuti.
>Z nekterych prispevku se nabyval dojmu ze SQL je vsemocny ale
>me to v praxi pripada trosku jinak :-)
>
>Ovsem nevim co vymyslet za zmeny nad datovou strukturou
>"Mnozstvi, Cena_Kus, Sazba_Dph"
>
------------------
Je to silny a dobry nastroj, ale vsemocny jiste ne.
Pokud pouzivas pouze tabulky a ne server,
tak jsi samozrejme do znacne miry omezen
Co se tyce te struktury, tak na jedne tabulce toho asi vice
nevymyslis.
I kdyz pro hodnotu DPH by tam mela byt asi samotna polozka kvuli
zaokrouhlovani DPH.
Ovsem tohle je detail tabulka.
Soucty hodnot DPH za jednotlivy doklad muzes ukladat do
hlavicky dokladu, tedy do master, kde bude
DPH_zaklad, DPH_snizena a pod.
Pak staci udelat
SELECT Sum(Mnozstvi*Cena_Kus*Sazba_Dph/100)
WHERE (Sazba_Dph = 5) AND (ID_Master= ID_detail)
SELECT Sum(Mnozstvi*Cena_Kus*Sazba_Dph/100)
WHERE Sazba_Dph = 22 (ID_Master= ID_detail)
Pri ukladani to muzes take spocitat na klientovi a ulozit
master - detail v jedne transakci na server najednou.
Moznosti je vice a rozhodne pro par radku jednoho dokladu nepuje
o zadne zdrzeni, kdyz udelas dva soucty.
Jaro
th32ProcessID
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 21.5.1999 07:28:36
To je ono .Dekuji.
Jiri Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: mdvorak(zv)csas(tec)cz <mdvorak(zv)csas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 20. kv�tna 1999 13:21
P�edm�t: RE: th32ProcessID
Treba pouzitim kombinace OpenPrecess a TerminateProcess:
hProc:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessId);
TerminateProcess(hProc,ExitCode);
CloseHandle(hproc);
S pozdravem
Mirek Dvorak
-----P�vodn� zpr�va-----
Od: Jiri Virt [mailto:virt(zv)pepa(tec)cz]
Odesl�no: 20. kv�tna 1999 12:01
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: th32ProcessID
Ahoj,
muzete mi nekdo prozradit, jak ukoncim proces, jestlize jsem si ID procesu
zjistil pomoci Thelp32 > ProcEntry.th32ProcessID???
Diky
Jiri Virt
email:virt(zv)pepa(tec)cz
www.pepa(tec)cz
registracia DLL
[*] Ing. J�n Kuch�r�����!j��G - 21.5.1999 08:29:14
Caute
Mam nasledovny problem ( mozno tu uz bol, ale neviem ), napisal som program
pre ktory
pouzivam "externe" DLL subory. Vytvorim pomocou IS EXPRESS 4 instalacky, kde
v casti
" SPECIFY COMPONENTS AND FILES "pridavam potrebne DLL pod adresar
WINDOWS\SYSTEM. U vsetkych suborou som vo vlastnostiach zaskrtol aby sa
zaregistrovaly. Tvorba instalaciek prejde OK, ale ked ich spustim vyskoci ze
kniznice niesu zaregistrovane, co
s tym ?
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
041 27 Ko�ice
e-mail : kuchar(zv)tuke.sk
Refresh files in Delphi
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 21.5.1999 08:41:03
Petr Kundrata wrote:
>Prav� tla��tko my�i v editoru (lok�ln� menu)+polo�ka ReadOnly.
>Ovliv�uje to pouze intern� read-only - nem�n� atribut na disku.
>Je-li na disku RO a v Delphi se zru�� - nelze stejn� ulo�it.
To je p�kn�, ale pro� delphi nezvl�dnou sami si tu intern� vlastnost nastavit dle HD, pou��v�m MVSS 6 a zd� se mi nep�irozen� to nastavovat dvakr�t. M�m Delphi 4 CS a za ty prachy by jeden o�ek�val, �e takovou mali�kost zvl�dnou sami, bez pomoci. :-(((( Toto �e�en� se mi nezamlouv�, neb si pak nikdy nebudu moct b�t jist�, �e se mi to bude ukl�dat na HD a nep�ijdu o k�d. M&B
Lokalizace InstallShieldu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 08:51:01
Ja to vim.
> ----------
> Od: Petr Zahradnik[SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 20. kv�tna 1999 21:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Lokalizace InstallShieldu
>
> Puvodni zprava, kterou napsal Mal� Dobromil dne 20 May 99,:
>
> > To mi je jasny, ale nikde jsem nenasel to uvodni
> > hlaseni "Setup is preparing InstallShield Wizard...
> > ...Please wait" , tak me napadlo, ze by to mohlo byt
> > primo v nem.
>
> Ja jsme Ti na to odpovidal, ze to tam je, ale ze je to
> 16-bitovy program, ktery lokalizator neumi...
>
>
> 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
> Refresh files in Delphi
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 21.5.1999 08:56:26
Cau pani!
K ReadOnly: Riesime tu nieco tak zlozito a ono to tak zlozite ani nie je.
Takze: Ak cheme zmenit atribut Suboru na disku musime ist v Delphi na menu
FILE a v nom na OPEN... . Zobrazi sa dialg OPEN a v tom mozeme zmenit
atributy suboru /prave tlacitko mysi/ a to sa odzrkadli aj na disku.
Ine to je v DELPHI EDIT WINDOWS kde sa menia atributy len pre D.
Cau Pavol.
----- Original Message -----
From: Martin Bab�k <M.Babik(zv)mus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 21. kv�tna 1999 8:41
Subject: Re: Refresh files in Delphi
Petr Kundrata wrote:
>Prav� tla��tko my�i v editoru (lok�ln� menu)+polo�ka ReadOnly.
>Ovliv�uje to pouze intern� read-only - nem�n� atribut na disku.
>Je-li na disku RO a v Delphi se zru�� - nelze stejn� ulo�it.
To je p�kn�, ale pro� delphi nezvl�dnou sami si tu intern� vlastnost
nastavit dle HD, pou��v�m MVSS 6 a zd� se mi nep�irozen� to nastavovat
dvakr�t. M�m Delphi 4 CS a za ty prachy by jeden o�ek�val, �e takovou
mali�kost zvl�dnou sami, bez pomoci. :-(((( Toto �e�en� se mi nezamlouv�,
neb si pak nikdy nebudu moct b�t jist�, �e se mi to bude ukl�dat na HD a
nep�ijdu o k�d. M&B
TPopupMenu and Font
[*] Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk> - 21.5.1999 08:59:46
Mam taky maly problem. V popup menu by som chcel aby jedna polozka bola
zobrazena zvyraznene (bold-om). V polozke TMenuItem (D1) sa vsak nic take
ako Font nenachadza. Ako by som to mal spravit? Chcel by som pouzit iba
standarde komponenty.
Dik za odpoved
Dalibor
********************************
Dalibor Zliechovec
Frequentis s.r.o.
dalibor.zliechovec(zv)frequentis.sk
+421 7 64287798
ShowModal + odchyt TAB klavesy
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 09:11:54
Ad 3 - Pote, co presunes Focus na dalsi/predchozi
komponentu, definuj Key:=#0; Uz to pipat nebude.
A na UDDF rikaji tohle:
procedure TForm1.EditKeyPress(Sender: TObject; var Key:Char);
begin
if Key = Chr(VK_RETURN) then
begin
Perform(WM_NEXTDLGCTL,0,0);
key:= #0;
end;
end;> ----------
> 3) Premapovavam Enter klavesu na TAB, ale potrebuji, aby to nepipalo.
> Da se to nejak udelat?
> Kod:
> case Key of
> VK_RETURN: {focus next edit}
> if (ActiveControl is TEdit) or (ActiveControl is TComboBox)then
> SelectNext(ActiveControl, True, True);
>
>
> Petr
> Ceska gramatika
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 21.5.1999 09:12:09
Ahoj.
Narazil jsem na problem, ktery by asi zajimal mnohe delphisty (prinejmensim pri hledani v archivu teto konference). Tim problemem je ceska gramatika pri sklonovani a casovani slov. Kdyz totiz budu v anotaci hledat "nova komponenta", tak je to samozrejme jiny string nez "s novou komponentou", ale pritom docela dobre muze jit o clanek se stejnou tematikou.
Kdysi se cela oblast cestiny (a na DOST dobre urovni) resila a urcite to take maji zpracovane firmy, ktere delaji full-textove hledani. Ale neni to nekde dostupne i sirsimu publiku? Neda se to nekde koupit? Treba jako nejaka DLL nebo package nebo cokoliv? Privital bych jakoukoliv informaci.
JK
TTabControl
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 21.5.1999 09:22:03
Zdravim,
jak lze programove zmenit caption u zalozky TTabControlu?
Dekuji.==[ 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
============================================== rozlisenie
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 21.5.1999 09:26:21
Mozes preluskat tento jednuchy zdrojak, a prides na to:
Cau Pavol.
procedure TMojeDataForm.FormCreate(Sender: TObject);
begin
ZmenVelkost(Sender, Velkost);
DBGrid.Columns[0].Color := clInfoBk;
MyGridColumnResize(Sender);
end;
procedure TMojeDataForm.BtnOKClick(Sender: TObject);
begin
if Table1.Modified then Table1.Post;
Close;
end;
procedure TMojeDataForm.BtnVelkostClick(Sender: TObject);
begin
if WindowState = wsMaximized then WindowState := wsNormal;
if Velkost > 3 then Velkost := 0;
Inc(Velkost);
ZmenVelkost(Sender, Velkost);
SetKurzorPoz := True;
end;
procedure TMojeDataForm.ZmenVelkost(Sender: TObject; Vel: Byte);
const
H: Byte = 0; {Zmen�enie v % }
begin
case Vel of
1: H := 40;
2: H := 60;
3: H := 80;
4: H := 100;
end;
with MojeDataForm do
begin
Visible := False; {zhasne pred zmenou velkosti}
Width := Trunc(Screen.Width / 100 * H);
Height := Trunc(Screen.Height / 100 * H);
if Width <= 424 then Width := 424;
if Height <= 202 then Height := 202;
Position := poScreenCenter;
BtnVelkost.Caption := Format('&Ve�kos� %d/4', [Velkost]);
Visible := True; {po zmene velkosti zobrazi}
end;
end;
procedure TMojeDataForm.btnNajdiClick(Sender: TObject);
var
S: String;
begin
FormNajdi.ShowModal;
S:= FormNajdi.Text;
end;
procedure TMojeDataForm.BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TMojeDataForm.FormResize(Sender: TObject);
begin
MyGridColumnResize(Sender);
end;
procedure TMojeDataForm.MyGridColumnResize(Sender: TObject);
var
mScrollBarWidth : Word;
begin
mScrollBarWidth := GetSystemMetrics(SM_CYVSCROLL);
with DBGrid do Columns[3].Width := Width - (Columns[0].Width +
Columns[1].Width +
Columns[2].Width +
mScrollBarWidth + 8);
end;
procedure TMojeDataForm.FormPaint(Sender: TObject);
var
mX, mY : Longint;
begin
if SetKurzorPoz then
begin
mX := BtnVelkost.ClientOrigin.X;
mY := BtnVelkost.ClientOrigin.Y;
SetCursorPos(mX + 25, mY + 12);
SetKurzorPoz := False;
end;
end;
----- Original Message -----
From: Martin <geoplan(zv)pp.sinet.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 21. kv�tna 1999 6:33
Subject: rozlisenie
> Zdravim,
>
> Mam aplikaciu v delphi, napisanu v 1280x1024.
> Ak ju spustim v 1024x768 mam zozhadzane komponenty, label mi ide cez edit
a
> pod. Ako to naprogramovat aby to v roznych rozlis. vyzeralo rovnako ?
>
> vdaka
>
> Martin
>TMemo, TRichEdit
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 09:33:54
To me vubec nenapadlo :-O
Nekdy clovek pro oci nevidi.
Vyzkousim to :-)
Dobra.
> ----------
> Od: /O=INEQ SOFTWARE S.R.O./OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON za
> Bardon[SMTP:ineq-soft(zv)ova.eridan(tec)cz]
> Odesl�no: 20. kv�tna 1999 13:02
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: TMemo, TRichEdit
>
> A proc nejde
> Memo1.SelText := 'text'
> nemo napriklad
> Pozice := Memo1.SelStart;
> Memo1.SelText := 'text';
> Memo1.SelStart := Pozice; // popripade Memo1.SelStart :=
> Pozice+legth('text') ... a pod
> ???
>
> -----P�vodn� zpr�va-----
> Od: Mal� Dobromil [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 20. kv�tna 1999 9:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: TMemo, TRichEdit
>
> Ja jsem to udelal takhle :
>
> procedure InsertText(WMemo : TMemo; WText : string; WSize :
> byte);
> var I : byte;
> begin
> WMemo.SetSelTextBuf(PChar(WText));
> if WSize>0 then
> for I:=1 to WSize do
> PostMessage(WMemo.Handle, wm_KeyDown, VK_LEFT, 0);
> end;
>
> potom jsem volal napr.:
>
> InsertText(Memo1, '<H1></H1>', 5);
>
> ale bohuzel jsem zjitil, ze potom uz nejde udelat
> WM_UNDO :-(((
>
> Dobra.
>
> > ----------
> > Od: Radek Zitta[SMTP:RADEK.ZITTA(zv)gyza(tec)cz]
> > Odesl�no: 20. kv�tna 1999 13:14
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: TMemo, TRichEdit
> >
> > Nev�te n�kdo, jak na aktu�ln� pozici kurzoru vlo�it n�jak�
> text tak,
> > aby kurzor nezmizel a p��padn� zm�nit jeho pozici ?
> >
> TPopupMenu and Font
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.5.1999 09:33:37
Ahoj,
tak zkus pouzit TRxPopupMenu, kde sice font taky primo neni, ale muzes si
udelat vlastni OwnerDraw polozky.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Dalibor Zliechovec [SMTP:Dalibor.Zliechovec(zv)frequentis.sk]
> Odesl�no: 21. kv�tna 1999 9:00
> Komu: Delphi forum
> P�edm�t: TPopupMenu and Font
>
> Mam taky maly problem. V popup menu by som chcel aby jedna polozka bola
> zobrazena zvyraznene (bold-om). V polozke TMenuItem (D1) sa vsak nic take
> ako Font nenachadza. Ako by som to mal spravit? Chcel by som pouzit iba
> standarde komponenty.
> Dik za odpoved
> Dalibor
>
> ********************************
> Dalibor Zliechovec
> Frequentis s.r.o.
> dalibor.zliechovec(zv)frequentis.sk
> +421 7 64287798
Lokalizace InstallShieldu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 09:34:53
Proc pozde, to je preci taky aplikace, ne ?
Bohuzel jsem ani v jedne knihovne nenasel
napr tento text "Unauthorized reproduction
or distribution of this program ..." a spoustu
dalsich textu a ani zadny formular; hm, asi
budu dal pouzivat Inno Setup
Dobra.
> ----------
> Od: Zbysek Hlinka[SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 20. kv�tna 1999 19:02
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Lokalizace InstallShieldu
>
> Mal� Dobromil wrote:
>
> > >ktery budto obsahuje komprimovana data, nebo po nich saha do
> > dalsiho
> > >souboru (ted z hlavy to nevim presne, ale to je v tomto
> > okamziku fuk).
> >
> > Zkousel jsem lokalizovat i ten vysledny distribucni
> > "balicek" a rovnez bez uspechu, mozna to tedy bude tim
> > ze jsem to delal pod W95 a ne pod NT (coz rovnez
> > nechapu, asi proto, ze nevim, jak probiha samotna
> > lokalizace).
>
> To je uz pozde. Zlokalizovat se musi resdll.dll jeste pred vytvorenim
> balicku.
>
> Jinak lokalizace probiha tak, ze se vytahaji resourcy z programu
> (tedy i z dll), prelozi se, a budto se nacpou zpet, nebo se muze
> vytvorit externi dll, kam se ty preklady nacpou. V takovem pripade
> vsak program musi umet najit tu dll s preklady a musi ji umet
> vycist.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
> TPopupMenu and Font
[*] Martin =?iso-8859-2?Q?O=E8en=E1=B9?= <ocenas(zv)proces.sk> - 21.5.1999 09:48:13
Typ TMenuItem ma property Default. To je ono.
Hasta la vista
delphista
M.
Dalibor Zliechovec wrote:
>
> Mam taky maly problem. V popup menu by som chcel aby jedna polozka bola
> zobrazena zvyraznene (bold-om). V polozke TMenuItem (D1) sa vsak nic take
> ako Font nenachadza. Ako by som to mal spravit? Chcel by som pouzit iba
> standarde komponenty.
> Dik za odpoved
> Dalibor
>
> ********************************
> Dalibor Zliechovec
> Frequentis s.r.o.
> dalibor.zliechovec(zv)frequentis.sk
> +421 7 64287798
RichEdit do schranky ???
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 09:50:52
Rekl bych
RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
Ale jsem (taky) linej to proverovat.
D.
> ----------
> Od: Petr Vale�[SMTP:pvales(zv)post(tec)cz]
> Odesl�no: 20. kv�tna 1999 14:10
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RichEdit do schranky ???
>
> Ahoj,
>
> nevite prosim jak zkopirovat cely RichEdit do schranky. Momentalne mi
> nejde
> help a sem linej to nekde hledat.
>
> S pozdravem Petr
>
> TPopupMenu and Font
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 21.5.1999 10:02:11
U kazde polozky v PopupMenu lze zvolit Default := True.
Je to zaroven zvyrazneni polozky, ale vzdy pouze jenom jedne.
Jiri Virt
email: virt(zv)pepa(tec)cz
www.pepa(tec)cz
-----P�vodn� zpr�va-----
Od: Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk>
Komu: Delphi forum <delphi-l(zv)fwd(tec)cz>
Datum: 21. kv�tna 1999 9:49
P�edm�t: TPopupMenu and Font
>Mam taky maly problem. V popup menu by som chcel aby jedna polozka bola
>zobrazena zvyraznene (bold-om). V polozke TMenuItem (D1) sa vsak nic take
>ako Font nenachadza. Ako by som to mal spravit? Chcel by som pouzit iba
>standarde komponenty.
>Dik za odpoved
>Dalibor
>
>********************************
>Dalibor Zliechovec
>Frequentis s.r.o.
>dalibor.zliechovec(zv)frequentis.sk
>+421 7 64287798
>rozlisenie
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 21.5.1999 10:14:55
Zdravicko...
Nastav vlastnost formulare Scaled na False.
F.
> -----P�vodn� zpr�va-----
> Od: Martin [SMTP:geoplan(zv)pp.sinet.sk]
> Odesl�no: 21. kv�tna 1999 6:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: rozlisenie
>
> Zdravim,
>
> Mam aplikaciu v delphi, napisanu v 1280x1024.
> Ak ju spustim v 1024x768 mam zozhadzane komponenty, label mi ide cez
> edit a
> pod. Ako to naprogramovat aby to v roznych rozlis. vyzeralo rovnako ?
>
> vdaka
>
> Martin
TTabControl
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.5.1999 10:19:38
Haj hou!
> jak lze programove zmenit caption u zalozky TTabControlu?
Tohle je z helpu delphi pro TTabControl:
Tabs contains the list of text strings that label the tabs of the tab
control.
property Tabs: TStrings;
Description
Use Tabs to access the labels of the tabs in the tab control, or any objects
associated with those tabs using the Objects property of the Tabs object.
Add new strings to the Tabs property to add new tabs to the tab control.
Rearrange the Tabs list to rearrange the tabs in the tab control.
Hodne zdaru
Pave Cisar
Nexus project coordinator
Delphree Open Source Initiative
http://delphree.clexpert.com
TPopupMenu and Font
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 21.5.1999 10:27:26
----- P�vodn� zpr�va -----
Od: Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk>> Mam taky maly problem. V popup menu by som chcel aby jedna polozka bola
> zobrazena zvyraznene (bold-om). V polozke TMenuItem (D1) sa vsak nic take
> ako Font nenachadza. Ako by som to mal spravit? Chcel by som pouzit iba
> standarde komponenty.
> Dik za odpoved
> Dalibor
Vlastnost, ktera te zajima je TMenuItem.Default
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Rich
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 21.5.1999 10:28:48
Hi,
prosim, prosim mam velky problem jenz me depta
Chci posilat do rich nebo memo text na pozici. Delam to richedit.seltext:='text';
jenze k CR a LF se to chova nekorektne. Chtel bych aby na CR to skocilo
na zacatek a LF o pozici dolu tak jak to ma byt dle definice. ( na 07 piplo atp.)
Existuje zpusob jak ovlivnit tohle chovani abych ten text nemusel znak po znaku
prebirat, cimz bych prisel o rychlost vkladani pomoci seltext ?
Help me, please
Dik
Daniel Kminek
Et iritis sicut dii, scientes bonum et malum.
kminek(zv)mite(tec)cz
www.mite(tec)cz
TTabControl
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 21.5.1999 10:32:03
----- P�vodn� zpr�va -----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
> Zdravim,
>
> jak lze programove zmenit caption u zalozky TTabControlu?
>
Jednotlive Tabs jsou typu TString, takze se k nim take tak pristupuje. Napr:
TabControl1.Tabs.Strings[1] := 'Nove jmeno';
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Refresh files in Delphi
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 21.5.1999 10:40:55
Je�t� jednou a podrobn�ji ve MVSS(program na spr�vu soubor�) provedu 'Check' (to provede zm�nu vlastnosti souboru readonly na readwrite). N�sledn� chci tento soubor editovat (zkr�tka zapsat n�jak� k�d), te� pozor, soubor byl ji� p�ed t�m v Delphi editoru otev�en. No a te� nastane situace kdy do tohoto souboru nemohu nic zapsat, nefunguje ani zav�en� a znovu otev�en� doty�n�ho souboru, jen reset D4 a mo�n� i to nastavov�n� 'DELPHI EDIT WINDOWS', ale to je jako to drb�n� lebou rukou na prav� tv��i p�es hlavu, a tak� druh� nastavov�n� atributu souboru, kter� notabene nem� nic spole�n�ho se skute�n�m stavem souboru.:-(
A te� jednodu�e: Chci aby Delphi na�etli v re�ln�m �ase vlastnosti souboru z HD, NECHCI NASTAVOVAT VLASTNOSTI Z PROST�ED� DELPHI!!! No a te� jsem na v�s zv�d�v :-))), j� jsem teda z toho u� vy��zen�. :-))). D�k za n�vrhy.
Pavol_Kaka�ka wrote:
>K ReadOnly: Riesime tu nieco tak zlozito a ono to tak zlozite ani nie je.
>Takze: Ak cheme zmenit atribut Suboru na disku musime ist v Delphi na menu
>FILE a v nom na OPEN... . Zobrazi sa dialg OPEN a v tom mozeme zmenit
>atributy suboru /prave tlacitko mysi/ a to sa odzrkadli aj na disku.
>Ine to je v DELPHI EDIT WINDOWS kde sa menia atributy len pre D.
>>Martin Babik wrote:
>> To je p�kn�, ale pro� delphi nezvl�dnou sami si tu intern� vlastnost
>>nastavit dle HD, pou��v�m MVSS 6 a zd� se mi nep�irozen� to nastavovat
>>dvakr�t. M�m Delphi 4 CS a za ty prachy by jeden o�ek�val, �e takovou
>>mali�kost zvl�dnou sami, bez pomoci. :-(((( Toto �e�en� se mi nezamlouv�,
>>neb si pak nikdy nebudu moct b�t jist�, �e se mi to bude ukl�dat na HD a
>>nep�ijdu o k�d.
M&B
Refresh files in Delphi
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.5.1999 10:55:54
Haj hou!
>A te� jednodu�e: Chci aby Delphi na�etli v re�ln�m �ase vlastnosti souboru
z HD, NECHCI NASTAVOVAT >VLASTNOSTI Z PROST�ED� DELPHI!!! No a te� jsem na
v�s zv�d�v :-))), j� jsem teda z toho u� vy��zen�. :-
Chtit muzes. Skus si treba stezovat u Borlandu, nebo si napis vlastni expert
do IDE ktery to bude delat nebo pouzivej nejaky uz hotovy expert pro
integraci VSS do IDE Delphi. Pokud pro tebe neni zadna z uvedenych moznosti
schudna, pak mas docela smulu :-)
Hodne stesti.
Pave Cisar
Nexus project coordinator
Delphree Open Source Initiative
http://delphree.clexpert.com
RX Help
[*] Oldrich Nic <nico(zv)feld.cvut(tec)cz> - 21.5.1999 09:28:14 met-1mest
http://rx.demo.ru/
Oldrich Nic, nico(zv)feld.cvut(tec)cz
SQL - podminka
[*] Kovac <kovac(zv)pvt.sk> - 21.5.1999 11:42:56
To mas recht, je to blbost.
Spravne je to takto:
select
u.doklad,
sum(u1.pocet*u1.cena),
sum(u2.pocet*u2.cena),
sum(u3.pocet*u3.cena)
from ucty u
left join ucty u1
on u.doklad=u1.doklad and u1.sadzba_dph=0 and u.id=u1.id
left join ucty u2
on u.doklad=u2.doklad and u2.sadzba_dph=5 and u.id=u2.id
left join ucty u3
on u.doklad=u3.doklad and u3.sadzba_dph=22 and u.id=u3.id
group by u.doklad
Chce to vsak, aby si v tej tabulke mal nejaky jednoznacny identifikator vety
(id).
Ak nemas, tak v paradoxe by sa snad dalo vyuzit cislo vety, ale netusim ako
to napisat.>Kovac wrote:
>
>> select
>> u.doklad,
>> sum(u1.pocet*u1.cena)/count(*),
>> sum(u2.pocet*u2.cena)/count(*),
>> sum(u3.pocet*u3.cena)/count(*)
>> from ucty u
>> left join ucty u1
>> on u.doklad=u1.doklad and u1.sadzba_dph=0
>> left join ucty u2
>> on u.doklad=u2.doklad and u2.sadzba_dph=5
>> left join ucty u3
>> on u.doklad=u3.doklad and u3.sadzba_dph=22
>> group by u.doklad
>
>
>Diky moc za odpoved, bohuzel mi tento dotaz
>funguje pouze za predpokladu ze mam tri polozky a pokazde s jinou sazbou
>DPH
>tj. u1.sadzba_dph=0,u1.sadzba_dph=5 , u1.sadzba_dph=22 pokud jsou data
>takto
> u1.sadzba_dph=22,u1.sadzba_dph=5 , u1.sadzba_dph=22 tak to spocita uplne
>neco
>jineho.
>
>
> S pozdravem Heinisch Jiri
>
>Usi PageControlu
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 21.5.1999 11:46:24
Nevite nekdo jestli jde nejak jednoduse u klasickeho page controlu
programove menit font a jeho nastaveni na jednotlivych "usich"
zvlast. Klasicky jde font nastavit jen pro vsechny usi stejny a barva nejde
nastavit vubec a to bych chtel. vim ze existuji ruzne freeware shareware
komponenty, ktere to umi, ale ty nechci pouzivat. Ptam se jestli to jde
nejak osetrit programove primo u originalniho PageControlu.
S pozdravem
Zdenek Petruj
____________________________
adress: Q.gir, s.r.o.
F�gnerova 11
702 00 Ostrava
Czech republic
____________________________
telefon: +420-(0)69-6134566
fax: +420-(0)69-6134567
e-mail: zpetruj(zv)qgir(tec)cz
internet: http://www.qgir(tec)cz
Counter&Pack...
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 21.5.1999 11:50:00
Halloa ALL!
Omlouvam se za, pro vas asi primitivni, otazky, ale ja vazne nevim, jak to
uz udelat...
Jak nejlepe udelat pocitadlo zaznamu v�databazi? (Paradox)... proste aby to
psalo 12/468...(12.zaznam z 468)...
A tak�, mimo jin�, nevim, jak udelat pakovani databaze...proste jak smazat
fyzicky logicky smazane zaznamy ze souboru...
Snad sem vas temahle dotazama neurazil....Dik. ByE.Refresh files in Delphi
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 21.5.1999 12:10:24
"Pavel Cisar" wrote:
>Chtit muzes. Skus si treba stezovat u Borlandu, nebo si napis vlastni expert
>do IDE ktery to bude delat nebo pouzivej nejaky uz hotovy expert pro
>integraci VSS do IDE Delphi. Pokud pro tebe neni zadna z uvedenych moznosti
>schudna, pak mas docela smulu :-)
St�ovat si asi nem� cenu to bych dopad asi jak u �E kdy� mi odpojili elektrom�r (DD se vr�til s adres�t nezn�m�). Ale ten expert nen� �patn� n�pad jak na n�j, alespo� n�jak� odkaz? D�k. M&B
TPopupMenu and Font
[*] Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk> - 21.5.1999 12:16:44
Default vlastnost nie je v D1 :-(, takze to neriesi moj problem.
Dalibor
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin O�en�
Sent: Friday, May 21, 1999 9:48 AM
To: Delphi forum
Subject: Re: TPopupMenu and Font
Typ TMenuItem ma property Default. To je ono.
Hasta la vista
delphista
M.
Dalibor Zliechovec wrote:
>
> Mam taky maly problem. V popup menu by som chcel aby jedna polozka bola
> zobrazena zvyraznene (bold-om). V polozke TMenuItem (D1) sa vsak nic take
> ako Font nenachadza. Ako by som to mal spravit? Chcel by som pouzit iba
> standarde komponenty.
> Dik za odpoved
> Dalibor
>
> ********************************
> Dalibor Zliechovec
> Frequentis s.r.o.
> dalibor.zliechovec(zv)frequentis.sk
> +421 7 64287798
TPopupMenu and Font
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 21.5.1999 12:27:11
Viem ze to asi nechces, ale ak to inak nepjde skus sa pozriet na help WinAPI
a tam na Index:
- Creating a Floating Font-Attributes Menu
- MENUITEMINFO
- MFS_Higlights / new in Win 95
Best of luck
Kaka�ka Pavol
program�tor
Aktis a.s.
paka(zv)aktis(tec)cz
www.aktis(tec)cz
----- Original Message -----
From: Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 21. kv�tna 1999 12:16
Subject: RE: TPopupMenu and Font
Default vlastnost nie je v D1 :-(, takze to neriesi moj problem.
Dalibor
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin O�en�
Sent: Friday, May 21, 1999 9:48 AM
To: Delphi forum
Subject: Re: TPopupMenu and Font
Typ TMenuItem ma property Default. To je ono.
Hasta la vista
delphista
M.
Dalibor Zliechovec wrote:
>
> Mam taky maly problem. V popup menu by som chcel aby jedna polozka bola
> zobrazena zvyraznene (bold-om). V polozke TMenuItem (D1) sa vsak nic take
> ako Font nenachadza. Ako by som to mal spravit? Chcel by som pouzit iba
> standarde komponenty.
> Dik za odpoved
> Dalibor
>
> ********************************
> Dalibor Zliechovec
> Frequentis s.r.o.
> dalibor.zliechovec(zv)frequentis.sk
> +421 7 64287798
Counter&Pack...
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 21.5.1999 12:47:04
----- P�vodn� zpr�va -----
Od: M�ra Tom� <tmara(zv)itsys(tec)cz>> Halloa ALL!
> Omlouvam se za, pro vas asi primitivni, otazky, ale ja vazne nevim, jak to
> uz udelat...
> Jak nejlepe udelat pocitadlo zaznamu v databazi? (Paradox)... proste aby
to
> psalo 12/468...(12.zaznam z 468)...
> A tak�, mimo jin�, nevim, jak udelat pakovani databaze...proste jak smazat
> fyzicky logicky smazane zaznamy ze souboru...
>
Na zobrazeni pozice zkus neco takoveho
Label.Caption := Format('%d/%d', [Table.RecNo, Table.RecordCount]);
Pro zpakovani tabulky musis pouzit funkci BDE. Napr. dbiDoRestrukture nebo
dbiPackTable (pouzitelne pro Paradox a dBase).
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Counter&Pack...
[*] martin.falta(zv)obi(tec)cz - 21.5.1999 13:06:00
Proste pouzij funkce Table1.ReNo a Table1.RecordCount.
TPopupMenu and Font
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 21.5.1999 13:08:21
----- P�vodn� zpr�va -----
Od: Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk>> Default vlastnost nie je v D1 :-(, takze to neriesi moj problem.
>
Vidis, ale tys nenapsal, ze to chces pro D1.
Honza
RichEdit & klavesnice
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 21.5.1999 13:17:04
ahoj
mam nasledujici problem :
RichEdit si "pamatuje klavesnici" pro kazdy
znak textu:
nekde napisu napr. "$" - anglickou klavesnici, pak
prepnu na ceskou a pisu dal, kdyz se pak v textu
vratim za znak "$", je nastavena anglicka klavesnice,
takze abych mohl psat cesky, musim prepnout na ceskou...
tohle chovani zdrzuje a mate uzivatele
je mozne prinutit RichEdit aby pouzival pro cely text
napoledy zvolenou klavesnici ?
diky za pripadne odpovedi
Zdenek Fryz
RichEdit a nahrada textu
[*] mbartone(zv)Synthesia(tec)cz - 21.5.1999 13:19:13
Ahoj
Poradte prosim, mam v RichEditu text <<r.c.>> .
Tento text potrebuji v programu nahrazovat skutecnym rodnym cislem.
Jak se to da udelat efektivne, abych nemusel od zacatku a pres funkce pos() a
copy() hledat a nahrazovat ?
Dekuji Milan
Counter&Pack...
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 14:09:11
To pocitadlo umi RXLib (DBStatusLabel), jinak ale
pohyb v databazi zjistis v OnDataChange u DataSet-u
a k tomu pakovani, myslim, ze tabulky Pdoxu neni treba
pakovat (ze jsou zaznamy skutecne vymazavany)
Dobra.
> ----------
> Od: M�ra Tom�[SMTP:tmara(zv)itsys(tec)cz]
> Odesl�no: 21. kv�tna 1999 11:50
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Counter&Pack...
>
> Halloa ALL!
> Omlouvam se za, pro vas asi primitivni, otazky, ale ja vazne nevim,
> jak to
> uz udelat...
> Jak nejlepe udelat pocitadlo zaznamu v�databazi? (Paradox)... proste
> aby to
> psalo 12/468...(12.zaznam z 468)...
> A tak�, mimo jin�, nevim, jak udelat pakovani databaze...proste jak
> smazat
> fyzicky logicky smazane zaznamy ze souboru...
>
>
> Snad sem vas temahle dotazama neurazil....Dik. ByE.
>
-No, me urcite ne :-)Lokalizace InstallShieldu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 14:15:49
> ----------
> > Proc pozde, to je preci taky aplikace, ne ?
>
> Protoze vysledek je jen zavadec + vse ostatni zkomprimovane,
> kdyz se to spusti, tak on si to teprve vybali a spusti ten
> vetsi program, ktery pak teprve opravdu instaluje...
>
---No jo, to je vlastne pravda.> > Bohuzel jsem ani v jedne knihovne nenasel
> > napr tento text "Unauthorized reproduction
> > or distribution of this program ..." a spoustu
> > dalsich textu a ani zadny formular; hm, asi
> > budu dal pouzivat Inno Setup
>
> Ale nekde to tam je... v te DLL.
>
---Mohl by ses prosim Te podivat (az budes
mit cas:) Ja to vazne nenasel, mozna, ze
pouzivam spatny lokalizator (stahnul jsem
si k tomuto ucelu ten loc30fcz), a prosel
jsem vsechny DLL, i exe, ktere sly otevrit
a dal jsem hledat text "Unauthorized" a nikde
nic :-o
Dobra.komponenta zip
[*] Ing. J�n Kuch�r�����!j��G - 21.5.1999 14:21:14
Caute
pre jeden svoj program by som potreboval komponentu ZIP, ktora by vedela
pakovat aj
rozbalovat aj zaheslovane ZIP subory, skusil som to hladat na internete, ale
podarilo sa
mi najst len take ktore nepodporovali heslovanie, preto Vas chcem poziadat,
ci z vas
niekto nema ( ak ano tak ci by mi ich neposlal ), alebo nevie kde to
zozeniem.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice, Park Komensk�ho 9
041 27 Ko�ice
e-mail : kuchar(zv)tuke.sk
Offset
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 21.5.1999 14:28:38
Existuje funkce, ktera vrati offset polozky ve strukture ?
priklad = struct
prvni : byte;
druhy : byte;
treti : byte;
end;
Ta_Funkce ( priklad.prvni ) vrati 0;
Ta_Funkce ( priklad.druhy ) vrati 1;
Ta_Funkce ( priklad.treti ) vrati 2;Lokalizace InstallShieldu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.5.1999 13:37:09
Puvodni zprava, kterou napsal Mal� Dobromil dne 21 May 99,:
> Proc pozde, to je preci taky aplikace, ne ?
Protoze vysledek je jen zavadec + vse ostatni zkomprimovane,
kdyz se to spusti, tak on si to teprve vybali a spusti ten
vetsi program, ktery pak teprve opravdu instaluje...
> Bohuzel jsem ani v jedne knihovne nenasel
> napr tento text "Unauthorized reproduction
> or distribution of this program ..." a spoustu
> dalsich textu a ani zadny formular; hm, asi
> budu dal pouzivat Inno Setup
Ale nekde to tam je... v te DLL.
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
komponenta zip
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 21.5.1999 14:46:50
Je to umisteno na ftp archivu konference.
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D3/other/delzip12.txt
a
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D3/other/delzip12.zip
(203 kB)
Dobra.
> ----------
> Od: Ing. J�n Kuch�r[SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 21. kv�tna 1999 14:21
> Komu: Delphi konferencia
> P�edm�t: komponenta zip
>
> Caute
>
> pre jeden svoj program by som potreboval komponentu ZIP, ktora by
> vedela
> pakovat aj
> rozbalovat aj zaheslovane ZIP subory, skusil som to hladat na
> internete, ale
> podarilo sa
> mi najst len take ktore nepodporovali heslovanie, preto Vas chcem
> poziadat,
> ci z vas
> niekto nema ( ak ano tak ci by mi ich neposlal ), alebo nevie kde to
> zozeniem.
>
>
> Dik
>
> Ing. J�n Kuch�r
> Katedra inov�ci� a rein�inieringu
> SjF TU Ko�ice, Park Komensk�ho 9
> 041 27 Ko�ice
> e-mail : kuchar(zv)tuke.sk
> Offset
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.5.1999 15:02:53
Haj hou!
> Existuje funkce, ktera vrati offset polozky ve strukture ?
Ne, ale muzes si ji napsat sam. Operator (zv) slouzi k urceni adresy ulozeni
identifikatoru, takze pak staci jen jednoducha adresni aritmetika, tj.
vzorec offset := (integer((zv)Rec.Druha)-integer((zv)Rec)
Best regards.
Pavel Cisar
Nexus project coordinator
Delphree Open Source Initiative
http://delphree.clexpert.com
Oracle procedure
[*] miroslav.prokel(zv)rtscs(tec)cz - 21.5.1999 15:41:53
Ahoj vsichni!
Nevite nekdo, jak v Oracle 8.0 napsat ulozenou proceduru (stored procedure)
tak, abych mohl v Delphi vyuzit komponentu Tquery pro nacteni dat ze selectu
v Oracle procedure?
V Oracle mam neco na zpusob tohoto:
CREATE PROCEDURE SEZNAM (ID IN INTEGER, SKLAD IN VARCHAR2, OD IN DATE, DO IN
DATE)
AS
BEGIN
SELECT N.STREDISKO, N.SKP, N.MATERIAL, N.CENA_JEDNOTKA FROM SEZNAM_TBL N
WHERE
N.ID = SEZNAM.ID AND N.SKLAD = SEZNAM.SKLAD AND
N.DATUM >= SEZNAM.OD AND
N.DATUM <= SEZNAM.DO
ORDER BY NAVRJED.STREDISKO;
END SEZNAM;
/
Tohle je samozrejme spatne a takovou proceduru neprelozim. Ale jak tyhlety
data dostanu do Delpi?
Pomuze nekdo? Diky za radu.
Mirek Prokel
Offset
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 21.5.1999 16:04:41
>Ne, ale muzes si ji napsat sam. Operator (zv) slouzi k urceni adresy ulozeni
>identifikatoru, takze pak staci jen jednoducha adresni aritmetika, tj.
>vzorec offset := (integer((zv)Rec.Druha)-integer((zv)Rec)
coz ale obecne spocita vzdalenost v bytech mezi lokacemi, nikoliv poradove
cislo zaznamu. V singularnim pripade, kdy jsou vsechny zaznamy deklarovany
jako byte a je nastaveno {$A-} to ovsem pracuje perfektne.
Zdravi
D. Toman
Lokalizace InstallShieldu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.5.1999 16:15:23
Mal� Dobromil wrote:
> Proc pozde, to je preci taky aplikace, ne ?
Pozde je to proto, ze v instalacnim baliku je pouze zavadec,
ostatni je zapakovane. Pri instalaci se deje toto: instalator si
rozbali potrebne veci do Temp na disku, a teprve odtamtud se
spousti a instaluje ostatni. Takze formulare jsou pouzitelne az na
disku, museji byt tedy lokalizovane jeste nez se zkomprimuji pri
tvorbe instalacniho setu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Offset
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 21.5.1999 16:28:19
Diky, ja jen jestli to nejde jednoduseji.
> -----P�vodn� zpr�va-----
> Od: Pavel Cisar [SMTP:pcisar(zv)aktis(tec)cz]
> Odesl�no: 21. kv�tna 1999 15:03
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Offset
>
> Haj hou!
>
> > Existuje funkce, ktera vrati offset polozky ve strukture ?
>
> Ne, ale muzes si ji napsat sam. Operator (zv) slouzi k urceni adresy
> ulozeni
> identifikatoru, takze pak staci jen jednoducha adresni aritmetika, tj.
> vzorec offset := (integer((zv)Rec.Druha)-integer((zv)Rec)
>
> Best regards.
>
> Pavel Cisar
> Nexus project coordinator
> Delphree Open Source Initiative
> http://delphree.clexpert.com
>
>
>
> Offset
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 21.5.1999 16:38:38
Haj hou1
> >vzorec offset := (integer((zv)Rec.Druha)-integer((zv)Rec)
>
> coz ale obecne spocita vzdalenost v bytech mezi lokacemi, nikoliv poradove
> cislo zaznamu. V singularnim pripade, kdy jsou vsechny zaznamy deklarovany
> jako byte a je nastaveno {$A-} to ovsem pracuje perfektne.
Eh, pokud vim, tak byla rec o offsetu, coz je bezne prave pocet bajtu od
zakladni adresy. Hodne se to pouziva v ruznych strukturach predavanych API.
Poradove cislo se tim samozrejme nezjisti. Pokud bylo mineno prave poradove
cislo, pak byla otazka spatne formulovana (priznam se, ze ani dost dobre
nechapu k cemu by to bylo dobre).
Best regards.
Pavel Cisar
Nexus project coordinator
Delphree Open Source Initiative
http://delphree.clexpert.com
Rich
[*] Daniel Kminek <kminek(zv)mite(tec)cz> - 21.5.1999 17:28:56
Zdravim se
uz jsem prisel na to , ze SetSelTextBuf (misto seltext) vyvola zpravu EM REPLACESEL.
Ted potrebuju najit metodu ktera tuhle message obsluhuje
a upravit si ji k obrazu svemu.
Jenze ja nevim jak ji najit. Vi to nekdo z vas ?
Daniel Kminek
Et iritis sicut dii, scientes bonum et malum.
kminek(zv)mite(tec)cz
www.mite(tec)cz
-----P�vodn� zpr�va-----
Od: Daniel Kminek <kminek(zv)mite(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. kv�tna 1999 11:26
P�edm�t: Rich
Hi,
prosim, prosim mam velky problem jenz me depta
Chci posilat do rich nebo memo text na pozici. Delam to richedit.seltext:='text';
jenze k CR a LF se to chova nekorektne. Chtel bych aby na CR to skocilo
na zacatek a LF o pozici dolu tak jak to ma byt dle definice. ( na 07 piplo atp.)
Existuje zpusob jak ovlivnit tohle chovani abych ten text nemusel znak po znaku
prebirat, cimz bych prisel o rychlost vkladani pomoci seltext ?
Help me, please
Dik
Daniel Kminek
Et iritis sicut dii, scientes bonum et malum.
kminek(zv)mite(tec)cz
www.mite(tec)cz
Jak spustit z prg. word.sablonu, aby Word otevrel
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.5.1999 18:28:45
Nejak takhle?
uses ComObj;
var
WordApp: variant;
MyTemplateName: string;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Add(MyTemplateName);
WordApp.Visible := True;
WordApp.Activate;
end;
Cau
Mac
Tomas Andrasko wrote:
> Vazeni pratele,
> skousim podruhe,
> Mam problem, ktery neumim vyresit.
> Potrebuji spustit z programu v D4 MS Word, jako parametr mu predat
> sablonu, napr. "faktura.dot" a chci, aby mi Word otevrel novy dokument.
> Ale on mi porad otevira k editaci tu sablonu. Pritom kdyz tuto sablonu
> spustim z Pruzkumnika, tak se otevre "dokument1.doc", coz chci, ale z
> prg. Zkousel jsem ShellExecute i WinExec, a to nejak nechce fungovat.
>
> Vite nekdo, jak na to ???
>
> Predem dekuji
> Tomas Andrasko
> tomas.andrasko(zv)asei(tec)cz
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
komponenta zip
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.5.1999 18:41:54
Neco o ZIPu je i tady (ale spise obecneji, ne jen pro Delphi)
http://www.cdrom.com/pub/infozip/
Mac
Ing. J�n Kuch�r wrote:
> Caute
>
> pre jeden svoj program by som potreboval komponentu ZIP, ktora by vedela
> pakovat aj
> rozbalovat aj zaheslovane ZIP subory, skusil som to hladat na internete, ale
> podarilo sa
> mi najst len take ktore nepodporovali heslovanie, preto Vas chcem poziadat,
> ci z vas
> niekto nema ( ak ano tak ci by mi ich neposlal ), alebo nevie kde to
> zozeniem.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Lokalizace InstallShieldu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.5.1999 18:41:08
Puvodni zprava, kterou napsal Mal� Dobromil dne 21 May 99,:
> > Ale nekde to tam je... v te DLL.
> >
> ---Mohl by ses prosim Te podivat (az budes
> mit cas:) Ja to vazne nenasel, mozna, ze
Bohuzel, ja IS Express nepouzivam a nemam nainstalovany...
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
komponenta zip
[*] j.binder(zv)albacon(tec)cz - 21.5.1999 20:45:06
> > pre jeden svoj program by som potreboval komponentu ZIP, ktora by vedela
> > pakovat aj
> > rozbalovat aj zaheslovane ZIP subory, skusil som to hladat na internete, ale
> > podarilo sa
> > mi najst len take ktore nepodporovali heslovanie, preto Vas chcem poziadat,
Pouzival jsem free komponenty Ericha Englera. Odkaz na jeho
stranky je i v odkazech na www.delphi(tec)cz, melo by to byt
http://www.geocities.com/SiliconValley/Network/2114/
Heslo tam ma. Jiri Binder
Vkladani do tabulky pomoci BDE API
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 21.5.1999 21:57:01
Ahoj
Pokousim se vkladat do tabulky pomoci BDE API (kvuliva rychlosti)
a narazil jsem na nasledujici problemek:
pD: ^TDateTime;
begin
New (pD);
.
.
.
with Table1 do
begin
DisableControls;
// Vytvoreni bufferu na cely zaznam
GetMem(Buf, RecordSize);
Check(DbiGetCursorProps(Handle, Props));
Check(DbiInitRecord(Handle, Buf));
pD^ := now;
// Vkladana hodnota - textovy datum
S := DateTimeToStr (pD^);
X := 2*I;
// Vlozeni _jednoho_ atributu do zaznamu
Check(DbiPutField(Handle, Table1TEXT.FieldNo, Buf,
PChar(S)));
Check(DbiPutField(Handle, Table1NUM.FieldNo, Buf, (zv)X));
// Datetime
Check(DbiPutField(Handle, Table1D1.FieldNo, Buf, pD));
if (Props.iIndexes > 0) then
Check(DbiInsertRecord(Handle, dbiNOLOCK, Buf))
else
Check(DbiAppendRecord(Handle, Buf));
end;
FreeMem(Buf);
UpdateCursorPos;
Refresh;
EnableControls;
end;
-------------------
No a co mi nefunguje je vlozeni toho dateTimu, jinak je to OK.
Vsechno probehne v poradku, akorat v te tabulce, kde by mel byt
aktualni cas je porad stejny udaj:
0.0.0000 0:00:36
Muze mi nekdo prozradit, kde delam chybu?
(Proste a jednoduse potrebuji do tabulky vlozit zaznam s atributem
TimeStamp (TDateTime) pomoci BDE API a nejak mi to nejde.
Diky predem za odpovedi
Petr
Zmena rozmeru pole
[*] Jiri Smitka <jiri.smitka(zv)atlas(tec)cz> - 21.5.1999 22:28:44
Ahoj,
Pavol Griga wrote:
> Type TSkupiny = array of Integer;
>
> procedure TFrmDualList.DajSkupiny(var pole: TSkupiny);
:
> n := SrcList.Items.Count;
> SetLength(pole, n);
Zajimavy napad - diky !!! Presto mam takovy pocit, ze na to existuje
nejaka funkce.
Srdecne zdravi
Jirka
--
/\_/\
(0 0)
--------------------------oOO--(_)--OOo-----------------------------
Jiri Smitka, OK1HFE E-mail: xsmitka(zv)hwlab.felk.cvut(tec)cz
CVUT FEL Praha WWW: http://cs.felk.cvut(tec)cz/~xsmitka
--------------------------------------------------------------------
Prihoda s ExtractFilePath
[*] Roman Fi�er <fiser(zv)gbn(tec)cz> - 21.5.1999 22:46:34
Vazeni pratele,
Stala se mi tato celkem zajimava prihoda. Mam D4 (SP 1) na Win NT 4.0 (SP 4),
psal jsem aplikaci ve ktere jsem pouzil funkci ExtractFilePath(). Jelikoz jsem predtim funkci nikdy nepouzil usoudil jsem ze za
jmenem cesty asi nebude vracet lomitko a doplnil jsem si ho tam programove sam:
TMP := ExtracFilePath(otevreny)+'\TEMP\1.tmp';
Soubor jsem pak TMP nechal ulozit.Aplikaci jsem uspesne spustitl na NT vse chodilo Ok, fuknci jsem se uz dale nezabyval usoudil jsem ze lomitko skutcne na konci nevraci.
Asi po dvou tydnech jsem aplikaci nahodou pustil na Win 95 u nas ve skole a jake bylo moje prekvapeni kdyz misto aby se soubor ulozil do tempu se objevila chyba 'Could not create file E:\xx\\temp\1'. V totu chvili me napadlo, ze Delphi totu funkci pravdepodobne jinak interpretuji v 95 a jinak ve Win NT. pochopitelne jsem chtel tento problem odstranit a obratil jsem se o radu k me profesorce. Slibila mi ze se pokusi zeptat sveho kolegy a ze mi v nejblizsi dobe doda odpoved.
Druhy den rano za mnou zasla s tim, ze jinou aplikaci s touto funkc� zkompilovala na svych NT i 95 a fce vracela lomitko. Jeji aplikaci jsem pustil doma a k memu prekvapeni jsem zjistil ze i u mne fce vraci lomitko. Zkusil jsem aplikaci rekompilovat a zase lomitko. V tuto chvili jsem uz zacal propadat silenstvi. K me hruze i ma puvodni aplikace stala vesele fungovala dal, bez lomitka.
Asi po 20 minutach namahani mych mozkovych zavitu a 20 rekompilacich puvodni aplikace me napadlo zkusit nechat si vratit obsah promene TMP..... Objevilo se mi toto: E:\xx\\temp\1. Nevim jak je to mozne, ale soubor se na tuto cestu (tedy E:\xx\temp\1) ULOZIL ?????????????!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Zadna chybova hlaska, proste NIC !!! Jakoby se nic nestalo si to soubor klidne ulozi na syntakticky nespravnou cestu.
Ted uz tedy opravdu nevim, mam se vratit ke staremu dobremu DOSu, nebo radsi prejit rovnou na LINUX ???
P.S.: Pro CC adresaty toto bylo puvodne urceno pro Delphi konferenci....
------------------------------------------------------
- Roman Fiser jr.
- programatorska skupina NGSoft
- software nove generace
- fiser(zv)gbn(tec)cz www.gbn(tec)cz/ngsoft
------------------------------------------------------
telefon: 0301/24632, ICQ: 25542226 Excel & 852
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 21.5.1999 23:05:53
Ahoj,
vzdy som mal zmatok v kodovych strankach ... Ale teraz mam mensi problem.
Mam v *.xls tabulku, kotu potrebujem "specialne" vyexportovat do *.txt s
kodovou strankou 852.
No a problemom je konverzia. Predpokladam, ze excel ma data vo win1250.
Nepozna niekto rychly a bezbolestny pristup?
Jedine co ma napadlo v suvislosti s tym ze mam na disku prevodne tabuky
nieco2unicode, prekodovat zdroj do unikode a spat do 852 resp. vygenerovat
priamu konverznu lookup tabulku.
Ale neviem preco, myslimz e by atke nieco malo byt priamo vo win. Alebo nie?
rw
rozlisenie
[*] Ing. Marian Winkler <ag.art(zv)iol(tec)cz> - 22.5.1999 01:20:15
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
zkus tohle:
procedure TForm1.FormCreate(Sender: TObject);
var
Res : Integer;
begin
WindowState := wsMaximized;
Res := GetSystemMetrics(SM_CXSCREEN);
ScaleBy(Res,xxx);
xxx .... rozliseni, na kterem navrhujes. Priklad 800 x 600 => xxx =
800
Pro vetsinu pripadu mi to zcela stacilo.
Jinak take viz priloha.
Marian
-----P�vodn� zpr�va-----
Od: Martin <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. kv�tna 1999 9:33
P�edm�t: rozlisenie
>Zdravim,
>
>Mam aplikaciu v delphi, napisanu v 1280x1024.
>Ak ju spustim v 1024x768 mam zozhadzane komponenty, label mi ide cez edit
a
>pod. Ako to naprogramovat aby to v roznych rozlis. vyzeralo rovnako ?
>
>vdaka
>
>Martin
>
>DBGrid - zmrazene sloupce
[*] Ing. Marian Winkler <ag.art(zv)iol(tec)cz> - 22.5.1999 01:25:46
Zdravim,
nevite nekdo, prosim, jestli se da nejak "zmrazit" jeden nebo vice sloupcu
v DBGridu na tak,
aby pri posunu po sloupcich neutekly? (Pro D1).
Diky za Vas cas. Marian
DataSet v dvoch DBGridoch
[*] Igor Vojtek <ivojtek(zv)ba.psg.sk> - 22.5.1999 14:36:07
Pozdravujem V�s,
pokusne som pri�iel na nasleduj�cu hypot�zu:
Ak je jeden dataset zobrazen� v dvoch gridoch s��asne, tak pri prid�van� do jedn�ho z nich zahl�si "Grid index out of range", ale iba ak je u� "zaplnen�" a za��na sa rolova�.
Nevie niekto ako sa tomuto javu vyhn��?
�akujem za n�mety. Igor.QReport new function
[*] Igor Vojtek <ivojtek(zv)ba.psg.sk> - 22.5.1999 14:40:15
Druh� pokus:
potreboval by som jednoduch� pr�klad, alebo n�met ako zaregistrova� nov� funkciu do TQRExpr, ktor� m� parameter Field z datasetu.
�akujem za pomoc. Igor.CodeCentral beta
[*] Radoslav Jalc, ProNet <pronet(zv)ke.telecom.sk> - 22.5.1999 16:37:31
Pekny den prajem ...
odporucam kazdemu vyskusat bezplatnu sluzbu CodeCentral ...
Podrobne informacie + klient aplikaciu najdete na:
http://www.borland.com/codecentral/client/
Je to permanentne aktualizovana databaza tipov, prikladov, vylepseni pre Delphi, C++Bulder, BDE atd ..
S pozdravom
Radoslav Jalc - ProNet development
E-Mail: pronet(zv)ke.telecom.sk | Mobil: +421-905-489364
komponenta zip
[*] sup(zv)svitap(tec)cz - 22.5.1999 18:57:38
>Je to umisteno na ftp archivu konference.
>ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D3/other/delzip12.zip
>(203 kB)
>
>Dobra.
>> pre jeden svoj program by som potreboval komponentu ZIP, ktora by
>> vedela
>> pakovat aj
>> rozbalovat aj zaheslovane ZIP subory...
Mam takovy dojem, ze prave tato verze neumi zaheslovane ZIP subory.
Zkus se podivat na http://www.ziptv.com , jesli by se ti tam neco nehodilo.
The ZipTV components currently support 46 compression and decompression
algorithms from the most widely used compression utilities.
Supported archive types include archives compressed in the Dos, Win95/98/NT,
and Unix operating environments.
All components contained in the ZipTV package are fully compatible with
Win95/98/NT operating systems.
We are proud to announce that a recent commercial grade application which
was developed using the ZipTV components has passed rigorous compliance
tests in an independent testing laboratory by VeriTest. Based on these
tests, the product received licensing approval for the "Designed for
Windows NT and Windows 98" logo.
Most compression, decompression, encryption, and decryption components in
the ZipTV component suite are 100% Delphi coded. They require no external
DLL's or shell to external programs. Due to the overwhelming request for
support for other archive types, we have recently included compression and
decompression support for Microsoft CABinet archives as well as
decompression for RAR archives. Components supporting these two archive
types are wrapper components.
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
DBGrid - zmrazene sloupce
[*] E&J soft <uli(zv)internet.sk> - 22.5.1999 22:53:50
Pekny den preji,
skus na http://www.sinea(tec)cz komponenty pro D1.
Jedna z vlastnosti jejich DBGridu je, ze umi
fixovat zvoleny pocet sloupcu.
Jaro
Excel & 852
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 23.5.1999 08:46:32
Nevim, jestli muj napad je ten pravy, ale proc to nesverit BDE?
Pres ODBC nactu Excel (nebo text z Excelu vyexportovany) a ulozim to do tabulky (.db,.dbf,.txt) ve spravnem kodu (Language Driver u .db,.dbf resp. CharSet v .sch pro textovou tabulku .txt).
Konverze se provede automaticky.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Excel & 852
> Datum: 21. kv�tna 1999 23:05
>
> Ahoj,
>
> vzdy som mal zmatok v kodovych strankach ... Ale teraz mam mensi problem.
> Mam v *.xls tabulku, kotu potrebujem "specialne" vyexportovat do *.txt s
> kodovou strankou 852.
>
> No a problemom je konverzia. Predpokladam, ze excel ma data vo win1250.
> Nepozna niekto rychly a bezbolestny pristup?
>
> Jedine co ma napadlo v suvislosti s tym ze mam na disku prevodne tabuky
> nieco2unicode, prekodovat zdroj do unikode a spat do 852 resp. vygenerovat
> priamu konverznu lookup tabulku.
>
> Ale neviem preco, myslimz e by atke nieco malo byt priamo vo win. Alebo nie?
>
> rw
na DBGridu DBLookupCombo
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 23.5.1999 08:49:47
Teda nevim, ale mne, pokud mam v tabulce vlozeny lookup field, tak DBGrid funguje OK i pri insertu.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Petr Mat�jovsk� <pema(zv)seznam(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: na DBGridu DBLookupCombo
> Datum: 22. ledna 1999 15:07
>
>
> Ahoj
>
> Mam nasledujici problem,
> kdyz prejdu kurzorem na sloupec NAZEV na DBGridu tak potrebuju zobrazit
> DBLookupCombo primo na DBGridu ve sloupci NAZEV......
>
> Tohle vsechno funguje dokud nepridavam nove zaznamy pomoci insert potom se
> DBGrid prestane prekreslovat a chova se nejak podivne
>
> Kde delam chybu ?
>
> Neexistuje nejaka komponenta ktera umi zobrazit na urcitem sloupci Gridu
> DBlookupComboBox ??? (nechci OCX)
>
>
> zde je zdojak:
> ------------------
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables;
>
> type
> TForm1 = class(TForm)
> Table1: TTable;
> DataSource1: TDataSource;
> Table2: TTable;
> DataSource2: TDataSource;
> DBGrid1: TDBGrid;
> DBNavigator1: TDBNavigator;
> DBLookupCombo1: TDBComboBox;
> Table1NAZEV: TStringField;
> Table1PRODUKT: TStringField;
> procedure FormCreate(Sender: TObject);
> procedure DBGrid1ColExit(Sender: TObject);
> procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
> procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
> DataCol: Integer; Column: TColumn; State: TGridDrawState);
> procedure DBLookupCombo1Enter(Sender: TObject);
> procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
> Field: TField; State: TGridDrawState);
> private
> WasInFloater : Boolean;
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> DBLookupCombo1.Visible := False;
> end;
>
> procedure TForm1.DBGrid1ColExit(Sender: TObject);
> begin
> If DBGrid1.SelectedField.FieldName ='NAZEV' then DBLookupCombo1.Visible
> := false;
> end;
>
> procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
> begin
> if (key <>chr(9)) then begin
> if (DBGrid1.SelectedField.FieldName = 'NAZEV') then begin
> DBLookupCombo1.SetFocus;
> SendMessage(DBLookupCombo1.Handle, WM_Char, word(Key), 0);
> end;
> end;
> end;
>
> procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
> DataCol: Integer; Column: TColumn; State: TGridDrawState);
> begin
> if (gdFocused in State) then begin
> if (DBGrid1.SelectedField.FieldName = 'NAZEV') then begin
> DBLookupCombo1.Left := Rect.Left + DBGrid1.Left;
> DBLookupCombo1.Top := Rect.Top + DBGrid1.top;
> DBLookupCombo1.Width := Rect.Right - Rect.Left;
> DBLookupCombo1.Height := Rect.Bottom - Rect.Top;
> DBLookupCombo1.Visible := True;
> end;
> end;
> end;
>
> procedure TForm1.DBLookupCombo1Enter(Sender: TObject);
> begin
> WasInFloater := True;
> end;
>
> procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if (Key in [VK_TAB]) and WasInFloater then begin
> SendMessage(DBGrid1.Handle, WM_KeyDown, Key, 0);
> WasInFloater := False;
> end;
> end;
>
> procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
> Field: TField; State: TGridDrawState);
> begin
> if (gdFocused in State) then begin
> if (DBGrid1.SelectedField.FieldName = 'NAZEV') then begin
> DBLookupCombo1.Left := Rect.Left + DBGrid1.Left;
> DBLookupCombo1.Top := Rect.Top + DBGrid1.top;
> DBLookupCombo1.Width := Rect.Right - Rect.Left;
> DBLookupCombo1.Height := Rect.Bottom - Rect.Top;
> DBLookupCombo1.Visible := True;
> end;
> end;
> end;
>
> end.Zmena rozmeru pole
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 23.5.1999 09:03:11
Jiri Smitka wrote:
> > Type TSkupiny = array of Integer;
> >
> > procedure TFrmDualList.DajSkupiny(var pole: TSkupiny);
> :
> > n := SrcList.Items.Count;
> > SetLength(pole, n);
>
> Zajimavy napad - diky !!! Presto mam takovy pocit, ze na to existuje
> nejaka funkce.
ReallocMem?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Sablona aplikace jen pomoci API
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.1999 11:20:56
Ahoj
Mohl by mi nekdo poslat jednoduchou sablonu (prazdny program)
na programek, ktery prelozim v D4 a je naprogramovan jen pomoci
WinAPI (treba klasicky Hello World) - proste jenom WinMain a
WindowProc.
Zkousel jsem nejaky pretahnout z BP7, prelozim to, ale nic se
neukaze :-((
Duvod: potrebuji udelat jednoduchouckej programek a opravdu
nepotrebuji aby byl 300kb veliky...
Diky moc
Petr
Lokalizace InstallShieldu
[*] Jaro <jaro(zv)sinea(tec)cz> - 23.5.1999 16:55:03
Me se zda cena lokalizace IS, za niz to nabizime smesne nizka,
protoze to za takovou cenu nelze nikdy ani prelozit i kdyz na to
pouzijete nejakej vhody editor.
Nicmene pro ty nadsence, kteri chteji usetrit nebo to
z jakehokoliv duvodu chteji take zkusit, uvedu nasledujici radu:
Musite prelozit nejmene tri knihovny dll
_isres32.dll
_isusr32.dll
_setup.dll
a program Uninst.exe
Musite vyresit problemy s fonty. Musite to odladit na
Win95, Win98 a WinNT.
Mnoho stesti
Jaro
jaro(zv)sinea(tec)cz
-------------------------
Puvodni zprava, kterou napsal Maly Dobromil dne 21 May 99,:
> Proc pozde, to je preci taky aplikace, ne ?
Protoze vysledek je jen zavadec + vse ostatni zkomprimovane,
kdyz se to spusti, tak on si to teprve vybali a spusti ten
vetsi program, ktery pak teprve opravdu instaluje...
> Bohuzel jsem ani v jedne knihovne nenasel
> napr tento text "Unauthorized reproduction
> or distribution of this program ..." a spoustu
> dalsich textu a ani zadny formular; hm, asi
> budu dal pouzivat Inno Setup
Ale nekde to tam je... v te DLL.
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
Ulozeni fontu do souboru
[*] Petr Vale� - 23.5.1999 17:34:57
Ahoj,
nevite prosim nekdo jak ulozit strukturu fontu do souboru. Myslim tim vystup z TFontDialog.Font
Diik
Petr
Ochrana programu (uz zase ;-)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 23.5.1999 18:36:39
Dostal se mi do ruky program, u ktereho autori (dealeri) tvrdi:
"Na pocitaci, kde byla nainstalovana demo licence jiz nelze DEMO
programu znovu spustit. Toto je zajisteno nekolikanasobnym roztrousenim
hesel v ruznych castech pocitace tak, aby ani po formatovani pevnych
disku nebylo mozne instalaci bez licencniho hesla spustit."
KDE se teda ty informace ukladaji???? Napada nekoho neco? Boot sektor?
Mac
P.S. Jinak se samozrejme jedna o prasackou ochranu, kterou trpi uzivatel
- dokonce to maji tak vymakane, ze kdyz vam lehne disk tak na dalsi to
nepujde nainstalovat, protoze to licencni cislo je vazano na PC (jestli
to ocmuchava i konfiguraci PC tak potes panbu). A co je nejlepsi -
cituji: "neni zaruceno, ze dostanete pomoc zdarma a budete muset bud
znovu investovat do programu nebo jej nebudete muci uzivat". Toto mi
pripada jako obzvlaste vypecene - asi to tak taky zacneme delat ;-)))
Ono by se to dalo nekdy vyuzit, ale ne az TAKTO drasticky.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
adresace ShortString a String
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 23.5.1999 20:40:48
Ahoj,
potrebuji do registru Windows zapsat retezec, ale nechci pouzivat
WriteString, protoze by retezec byl citelny.
Proto bych rad pouzil WriteBinaryData, jenze tady je problem.
procedure TRegistry.WriteBinaryData(const Name: string; var Buffer;
BufSize: Integer);
begin
PutData(Name, (zv)Buffer, BufSize, rdBinary);
end;
Metoda pri svem zapisu predpoklada, ze budu zapisovat objekt, ktery NENI
pointer. To znamena, ze pomoci ni mohu zapsat treba stary pascalovsky
string, v Delphi tedy ShortString nebo nejake staticky definovane pole. Na
toto pole si potom metoda pomoci (zv)Buffer vytvori pointer a ten preda metode
PutData.
Pokud by byla PutData definovana jako Public, nebylo by co resit, proste
bych si to zavolal jako
PutData(Name, MujString, BufSize, rdBinary), bez konverze na pointer ve
WriteBinaryData;. Ale vzhledem k tomu, ze je definovana tak, jak je, tedy
jako protected, vytvari to celkem (alespon pro me) zajimavy orisek.
Protoze standartni retezec typu String v Delphi je sam o sobe pointer,
volani (zv)Buffer zpusobi, ze se do registru zapisou binarni data uplne z jine
casti pameti.
1) Lze nejak prevest String na fyzickou adresu tak, abych mohl pouzit volani
WriteBinaryData s promennou Buffer typu string ?
2) Existuje opak k : P:=(zv)A; ?
Var P: Pointer;
A : ShortString;
P:=(zv)A;
Samozrejme by to slo asi vyresit tak, ze bych si trosku predelal unit
Registry na svuj vlastni. Ale chtel bych pouzit pokud mozno standartni sadu
unitu. Napada nekoho nejake sikovne reseni ?
Diky za napovedu
PK
Ochrana programu (uz zase ;-)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 23.5.1999 20:09:57
Puvodni zprava, kterou napsal Martin Kubecka dne 23 May 99,:
> Dostal se mi do ruky program, u ktereho autori (dealeri) tvrdi:
>
> "Na pocitaci, kde byla nainstalovana demo licence jiz nelze DEMO
> programu znovu spustit. Toto je zajisteno nekolikanasobnym roztrousenim
> hesel v ruznych castech pocitace tak, aby ani po formatovani pevnych disku
> nebylo mozne instalaci bez licencniho hesla spustit."
To tezko, nesmis hned vsem skocit na spek. Pokud zformatujes disk,
nic se nezachova. Leda by si ten disk upravili, ale to je take
hloupost. Pripadne dali do MBR, i ten jde prepsat. Proste tomu never.
> KDE se teda ty informace ukladaji???? Napada nekoho neco? Boot sektor?
To by byla cunarna, navic by se to preformatovalo.
> P.S. Jinak se samozrejme jedna o prasackou ochranu, kterou trpi uzivatel -
> dokonce to maji tak vymakane, ze kdyz vam lehne disk tak na dalsi to
> nepujde nainstalovat, protoze to licencni cislo je vazano na PC (jestli to
> ocmuchava i konfiguraci PC tak potes panbu). A co je nejlepsi - cituji:
O tom jsme se tu jiz bavili :)))
> "neni zaruceno, ze dostanete pomoc zdarma a budete muset bud znovu
> investovat do programu nebo jej nebudete muci uzivat". Toto mi pripada
> jako obzvlaste vypecene - asi to tak taky zacneme delat ;-))) Ono by se to
> dalo nekdy vyuzit, ale ne az TAKTO drasticky.
Me to pripada jako vyslovene odrazovani zakaznika. Protoze pokud
bych vylozene toto cetl, tak si to nekoupim :)))))
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
Ochrana programu (uz zase ;-)
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 23.5.1999 22:09:44
Ochranu ? Kde?
- Flash s BIOSEM je tam spousta mista nevyuziteho - nektere viry tam taky
rady bydli. {nejmene riskantni - jsou zhruba 3 nejrozsirenejsi typy biosu a
to se uz da ohlidt.}
- Cmos {hm....chrocht .... , ale jinak taky spolehlive / krome vadnych
baterek :-)}
- Partition ( Fdisk /mbr ) {haklive}
- Boot ne - ten format neprezije.
- a pak vetsina "slusnych" zarizeni ma tay flashku s firmwarem - modemy,
HDD (!!), CD-Rom ..... :-))) { ruznorodost - nejiste }
7 prasat. jestli cokoliv z toho pouzili...:-) .... a umim vystavit hlavu nekterych 3.5" FDD za hranice moznosti (sama
se nevrati) - ale to by uzivatele trochu omezilo v praci (ale uz by tam to
demo podruhe nevrazil .... ani nic jineho)
navic - jak chteji zarucit, ze se to nepozere s nekterym jinym taky tak
"chytre" zabezpecenym programem?
hm... a pokud to nainstaluju, po...se mi disk a ja ho tedy sformatuju, tak
uz si to demo vlastne taky nevyzkousim :-))))
Mti.
-----P�vodn� zpr�va-----
>Dostal se mi do ruky program, u ktereho autori (dealeri) tvrdi:
>
>"Na pocitaci, kde byla nainstalovana demo licence jiz nelze DEMO
>programu znovu spustit. Toto je zajisteno nekolikanasobnym roztrousenim
>hesel v ruznych castech pocitace tak, aby ani po formatovani pevnych
>disku nebylo mozne instalaci bez licencniho hesla spustit."
>
>KDE se teda ty informace ukladaji???? Napada nekoho neco? Boot sektor?
>
>Mac
>
>P.S. Jinak se samozrejme jedna o prasackou ochranu, kterou trpi uzivatel
>- dokonce to maji tak vymakane, ze kdyz vam lehne disk tak na dalsi to
>nepujde nainstalovat, protoze to licencni cislo je vazano na PC (jestli
>to ocmuchava i konfiguraci PC tak potes panbu). A co je nejlepsi -
>cituji: "neni zaruceno, ze dostanete pomoc zdarma a budete muset bud
>znovu investovat do programu nebo jej nebudete muci uzivat". Toto mi
>pripada jako obzvlaste vypecene - asi to tak taky zacneme delat ;-)))
>Ono by se to dalo nekdy vyuzit, ale ne az TAKTO drasticky.adresace ShortString a String
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:20:24
"Petr Kro�a ml." wrote:
>
> Ahoj,
> potrebuji do registru Windows zapsat retezec, ale nechci pouzivat
> WriteString, protoze by retezec byl citelny.
> Proto bych rad pouzil WriteBinaryData, jenze tady je problem.
>
> procedure TRegistry.WriteBinaryData(const Name: string; var Buffer;
> BufSize: Integer);
> begin
> PutData(Name, (zv)Buffer, BufSize, rdBinary);
> end;
>
> Metoda pri svem zapisu predpoklada, ze budu zapisovat objekt, ktery NENI
> pointer. To znamena, ze pomoci ni mohu zapsat treba stary pascalovsky
> string, v Delphi tedy ShortString nebo nejake staticky definovane pole. Na
> toto pole si potom metoda pomoci (zv)Buffer vytvori pointer a ten preda metode
> PutData.
Ahoj,
Muzes to udelat napriklad takhle:
uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
ShortStr: ShortString;
LongStr: String;
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.OpenKey('Pokus', True);
// Zapis String, vcetne #0
LongStr := '123';
Reg.WriteBinaryData('Pokus_LongStr', Pointer(LongStr)^, Length(LongStr) + 1);
// Zapis ShortString, vcetne udaje o delce
ShortStr := '123';
Reg.WriteBinaryData('Pokus_ShortStr', Pointer((zv)ShortStr)^, Length(ShortStr) + 1);
Reg.CloseKey;
finally
Reg.Free;
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
cestina podruhe....
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:20:17
M�ra Tom� wrote:
>
> Halloa ALL!
> Jelikoz se muj minuly dotaz minul ucinkem, zkousim to je�t� jednou....
> Nevite nahodou n�kdo, zda-li existuje cesky help pro D3 nebo D4? Pripadne
> kde ho zchrastit....Dik. ByE.
Ahoj,
Tezko, posledni lokalizovany Borlandi produkt byl pokud vim BP7 a musela
to byt silena prace. Uvedom si, jake mnozstvi informaci dnes help a i
ostatni programatorska dokumentace obsahuje, to proste neni realne. Spis
je dobre se trochu podivat na anglictinu, bude se ti jiste hodit i mimo
programovani.
P.S.
Vlastne se ti muze hodit i rustina pokud ses ji ucil, na help k RxLib :-)
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Vytvoreni zastupce (Was:Jeste dotaz)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:20:43
daniel.hrna(zv)vm.sme(tec)cz wrote:
>
> pomohlo,ale nikdy jsem to nedelal, muzes me poradit ..
Ahoj,
Uz se to tu resilo, najdes to v archivu:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\mar\23\dlfaaadm.htm
Mimochodem, v archivu uz je opraveno fulltextove hledani a je pridano
i prohlizeni prispevku v casove posloupnosti.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
RichEdit & klavesnice
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:21:01
"Fryz, Zdenek" wrote:
>
> ahoj
>
> mam nasledujici problem :
>
> RichEdit si "pamatuje klavesnici" pro kazdy
> znak textu:
>
> nekde napisu napr. "$" - anglickou klavesnici, pak
> prepnu na ceskou a pisu dal, kdyz se pak v textu
> vratim za znak "$", je nastavena anglicka klavesnice,
> takze abych mohl psat cesky, musim prepnout na ceskou...
>
> tohle chovani zdrzuje a mate uzivatele
>
> je mozne prinutit RichEdit aby pouzival pro cely text
> napoledy zvolenou klavesnici ?
Ahoj,
Tohle umi Richedit 2.0 a vyssi, jako komponenta je to napriklad v RxLib.
V Richeditu 1.0 se to ale obejit takhle:
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/API/Example_RicheditAutolayoutDisable.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Excel & 852
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:21:53
"No Comemnt Group, s.r.o. / Sales Department" wrote:
>
> Ahoj,
>
> vzdy som mal zmatok v kodovych strankach ... Ale teraz mam mensi problem.
> Mam v *.xls tabulku, kotu potrebujem "specialne" vyexportovat do *.txt s
> kodovou strankou 852.
>
> No a problemom je konverzia. Predpokladam, ze excel ma data vo win1250.
> Nepozna niekto rychly a bezbolestny pristup?
>
> Jedine co ma napadlo v suvislosti s tym ze mam na disku prevodne tabuky
> nieco2unicode, prekodovat zdroj do unikode a spat do 852 resp. vygenerovat
> priamu konverznu lookup tabulku.
Ahoj,
Mas nekolik moznosti:
1. Pouzit API funkce OemToChar nebo CharToOem, u nich je ale problem v tom
ze budou zavisle na lokalizaci Windows.
2. Pouzit langdrivery z BDE, pokud to vsak neni databazova aplikace tak je
to ponekud tezkopadne reseni.
3. Pouzit nejakou konverzni funkci k tomu ucelu zhotovenou. Nejake uz mam
hotove, umoznuji prevod kodovani mezi strankami 1250, 852, 862 a 859.
Krome toho jsem zkousel i automaticke rozpoznani kodovani dle obsahu
textu, ale neni to uplne 100% ni:-) Ke stazeni zde:
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/other/CharSetConv.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
RichEdit a nahrada textu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:21:20
mbartone(zv)Synthesia(tec)cz wrote:
>
> Ahoj
>
> Poradte prosim, mam v RichEditu text <<r.c.>> .
> Tento text potrebuji v programu nahrazovat skutecnym rodnym cislem.
>
> Jak se to da udelat efektivne, abych nemusel od zacatku a pres funkce pos() a
> copy() hledat a nahrazovat ?
Ahoj,
Bud muzes pouzit primo hledani v richeditu s naslednym nahrazenim textu,
nebo s textem pracovat mimo richedit a pak jej tam cely vratit. Oba dva
pristupy jsou v tomto prikladu:
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/other/Example_ReplaceText.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Sablona aplikace jen pomoci API
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:22:19
Petr Vaclavek wrote:
>
> Ahoj
>
> Mohl by mi nekdo poslat jednoduchou sablonu (prazdny program)
> na programek, ktery prelozim v D4 a je naprogramovan jen pomoci
> WinAPI (treba klasicky Hello World) - proste jenom WinMain a
> WindowProc.
Ahoj,
Tady ho mas:
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/API/HelloWorld.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Datab�ze a zase =?iso-8859-2?Q?datab�ze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:22:44
daniel.hrna(zv)vm.sme(tec)cz wrote:
>
> Nev�m jestli se to tady uz resilo, ale mam problem v programu, ktery pracuje
> s DBF.
>
> 1. V DBF mam polozku String, Integer a MEMO.
> Ve svem formulari umim po prikazu ulozit zapsat do DBF String ale nejde
> mi tam vubec INTEGER a uz vubec MEMO.
> Porad mi to hlasi nejakou vyjimku, kde delam chybu.
>
> Mam to nejak takhle:
>
> Titul.Table2.Append;
> Titul.Table2.FieldByName('neco_integer').AsInteger :=
> StrToInt(polozka.Tetx); //je typu Edit
> Titul.Table2.FieldByName('poznamka').AsMemo := polozka.Tetx; //je
> typu RichEdit
> Titul.Table2.Post;
Ahoj,
Nejdrive by jsi si mel vytvorit persistetni pole k dane tabulce. To
udelas tak, ze na ni pravym tlacitkem vyvolas Fields Editor a v nem
pak Add all fields. Tim zikas lepsi pristup k jednotlivym polim
tabulky, popis v helpu je pod heslem "Persistent field components".
Pro tabulku "venues.db" z DBDEMOS to pak bude vypadat nejak takhle:
TForm1 = class(TForm)
Database1: TDatabase;
DataSource1: TDataSource;
Table1: TTable;
Table1VenueNo: TAutoIncField;
Table1Venue: TStringField;
Table1Capacity: TIntegerField;
Table1Venue_Map: TGraphicField;
Table1Remarks: TMemoField;
Pristupovat k polim pak muzes napriklad takhle:
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1Capacity.AsString := Edit1.Text;
Table1Remarks.Value := RichEdit1.Text;
.
.
Nicmene je asi jednodussi pouzivat primo datove komponenty - TDBEdit,
TDBRichEdit atd.. misto "rucniho" prirazovani hodnot.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Prihoda s ExtractFilePath
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:23:19
> Roman Fi�er wrote:
>
> Vazeni pratele,
> Stala se mi tato celkem zajimava prihoda. Mam D4 (SP 1) na Win NT 4.0 (SP 4),
Ahoj,
Doporucuju nainstalovat SP3, SP1 neresil vubec nic.
> psal jsem aplikaci ve ktere jsem pouzil funkci ExtractFilePath(). Jelikoz jsem predtim
> funkci nikdy nepouzil usoudil jsem ze za
> jmenem cesty asi nebude vracet lomitko a doplnil jsem si ho tam programove sam:
Naopak, tato funkce vraci vzdy lomitko, pokud je alespon jedno obsazeno v
zadanem nazvu souboru, viz jeji definice v SysUtils:
function ExtractFilePath(const FileName: string): string;
var
I: Integer;
begin
I := LastDelimiter('\:', FileName);
Result := Copy(FileName, 1, I);
end;
> Asi po 20 minutach namahani mych mozkovych zavitu a 20 rekompilacich puvodni aplikace me
> napadlo zkusit nechat si vratit obsah promene TMP..... Objevilo se mi toto: E:\xx\\temp\1.
> Nevim jak je to mozne, ale soubor se na tuto cestu (tedy E:\xx\temp\1) ULOZIL
> ?????????????!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> Zadna chybova hlaska, proste NIC !!! Jakoby se nic nestalo si to soubor klidne ulozi
> na syntakticky nespravnou cestu.
To je zajimave, patrne se jedna o nejaky problem ve Win95 protoze jak jsem ted
zkusil, lze opravdu pristupovat k souboru s neomezenym pocetem lomitek za sebou
v nazvu.
> Ted uz tedy opravdu nevim, mam se vratit ke staremu dobremu DOSu, nebo radsi prejit
> rovnou na LINUX ???
Nezoufej, chyby jsou a vzdycky budou. SW je bohuzel jedna z oblasti, kde svet
zcela bez vetsich protestu akceptoval nekvalitu jako standard, je treba s tim
vzdy pocitat.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Zmena rozmeru pole
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:23:52
Zbysek Hlinka wrote:
>
> Jiri Smitka wrote:
>
> > > Type TSkupiny = array of Integer;
> > >
> > > procedure TFrmDualList.DajSkupiny(var pole: TSkupiny);
> > :
> > > n := SrcList.Items.Count;
> > > SetLength(pole, n);
> >
> > Zajimavy napad - diky !!! Presto mam takovy pocit, ze na to existuje
> > nejaka funkce.
Ahoj,
Existuje - prave SetLength :-)
>
> ReallocMem?
Ta slouzi k necemu trochu jinemu, ke zmene velikost bloku alokovaneho
funkci GetMem.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Ulozeni fontu do souboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:24:51
> Petr Vale� wrote:
>
>
> Ahoj,
>
> nevite prosim nekdo jak ulozit strukturu fontu do souboru. Myslim tim vystup z
> TFontDialog.Font
Ahoj,
Pokud chces ulozit vlastnost TFont, tak musis bud postupne ulozit vsechny
jeji vlastnosti (Name, Size ...) do registru nebo INI souboru. Druha moznost
je pouzit uz hotove reseni napriklad z RxLib - komponenta TFormStorage.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Usi PageControlu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:24:04
Petr�j Zden�k wrote:
>
> Nevite nekdo jestli jde nejak jednoduse u klasickeho page controlu
> programove menit font a jeho nastaveni na jednotlivych "usich"
> zvlast. Klasicky jde font nastavit jen pro vsechny usi stejny a barva nejde
> nastavit vubec a to bych chtel. vim ze existuji ruzne freeware shareware
> komponenty, ktere to umi, ale ty nechci pouzivat. Ptam se jestli to jde
> nejak osetrit programove primo u originalniho PageControlu.
Ahoj,
Pokud mas D4 tak tam si muzes vykreslovat usi v udalosti OnDrawTab.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Rich
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 23.5.1999 22:25:30
> Daniel Kminek wrote:
>
> Hi,
>
> prosim, prosim mam velky problem jenz me depta
>
> Chci posilat do rich nebo memo text na pozici. Delam to richedit.seltext:='text';
> jenze k CR a LF se to chova nekorektne. Chtel bych aby na CR to skocilo
> na zacatek a LF o pozici dolu tak jak to ma byt dle definice. ( na 07 piplo atp.)
> Existuje zpusob jak ovlivnit tohle chovani abych ten text nemusel znak po znaku
> prebirat, cimz bych prisel o rychlost vkladani pomoci seltext ?
Ahoj,
Podle toho jak to popisujes to vypada ze delas neco jako "terminalove okno".
Podivej se na AsyncFree - (http://delphree.clexpert.com) tam je jiz hotova
komponenta TAfTerminal u ktere si muzes nastavovat velikost kruhoveho bufferu,
barvy a styl pisma u jednotlivych znaku, pri #07 se ktivuje event OnBeepChar,
moznost zpetneho prohlizeni bufferu, logovani do souboru vcetne pravidelneho
ukladani (kvuli moznym vypadkum), kresleni ikonek vlevo od textu atd.. Navic
je to rychlejsi nez vkladani textu do Richeditu. Jedine omezeni je v moznosti
pouziti pouze fixed-pitch fontu a vzdy muzes mit pro celou komponetu vybran
pouze jeden font, podobne jako v Delphi editoru.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************Ochrana programu (uz zase ;-)
[*] roman.vasicek(zv)email(tec)cz - 23.5.1999 22:38:01
Nazdarek
Martin Kubecka wrote:
>
> Dostal se mi do ruky program, u ktereho autori (dealeri) tvrdi:
>
> "Na pocitaci, kde byla nainstalovana demo licence jiz nelze DEMO
> programu znovu spustit. Toto je zajisteno nekolikanasobnym roztrousenim
> hesel v ruznych castech pocitace tak, aby ani po formatovani pevnych
> disku nebylo mozne instalaci bez licencniho hesla spustit."
Tomu bych moc neveril...
> KDE se teda ty informace ukladaji???? Napada nekoho neco? Boot sektor?
Master Boot, Boot Sector, Partition nebo jen oznaceni nejakeho sektoru na disku
jako chybny...
> P.S. Jinak se samozrejme jedna o prasackou ochranu, kterou trpi uzivatel
> - dokonce to maji tak vymakane, ze kdyz vam lehne disk tak na dalsi to
> nepujde nainstalovat, protoze to licencni cislo je vazano na PC (jestli
> to ocmuchava i konfiguraci PC tak potes panbu). A co je nejlepsi -
> cituji: "neni zaruceno, ze dostanete pomoc zdarma a budete muset bud
> znovu investovat do programu nebo jej nebudete muci uzivat". Toto mi
> pripada jako obzvlaste vypecene - asi to tak taky zacneme delat ;-)))
> Ono by se to dalo nekdy vyuzit, ale ne az TAKTO drasticky.
Prasacke to jiste je, ale obejit se da vse. Jedinou otazkou je, jestli to stoji
za tu namahu.
Takovyto soft bych si ale do domu nepustil (leda, ze bych ho chtel zkusit lousnout).
Je to akorat tak na odrazeni lidi...
Bye
Phoenix
+------------------------
| Roman Vasicek - Phoenix
| student FEI VUT v Brne (xvasic04(zv)stud.fee.vutbr(tec)cz)
| E-mail: roman.vasicek(zv)email(tec)cz
| WWW: http://roman.manes.skm.vutbr(tec)cz/
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
RichEdit & klavesnice
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 23.5.1999 22:51:06
On Fri, 21 May 1999, Fryz, Zdenek wrote:
> ahoj
>
> mam nasledujici problem :
>
> RichEdit si "pamatuje klavesnici" pro kazdy
> znak textu:
>
> nekde napisu napr. "$" - anglickou klavesnici, pak
> prepnu na ceskou a pisu dal, kdyz se pak v textu
> vratim za znak "$", je nastavena anglicka klavesnice,
> takze abych mohl psat cesky, musim prepnout na ceskou...
>
> tohle chovani zdrzuje a mate uzivatele
>
> je mozne prinutit RichEdit aby pouzival pro cely text
> napoledy zvolenou klavesnici ?
>
> diky za pripadne odpovedi
>
> Zdenek Fryz
Uf. Kdyby to slo zaridit i ve Wordu. :-(
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Vkladani do tabulky pomoci BDE API
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 23.5.1999 23:34:29
> >Muze mi nekdo prozradit, kde delam chybu?
> >(Proste a jednoduse potrebuji do tabulky vlozit zaznam s atributem
> >TimeStamp (TDateTime) pomoci BDE API a nejak mi to nejde.
>
> function DateTimeToDtRec(DateTime: TDateTime): TDateTimeRec;
> begin
> Result.time:=0;
> Result.date:=DateTimeToTimeStamp(DateTime).Date;
> end;
> ....
> dtrec:=DateTimeToDtRec(Now);
> Check(DbiPutField(table.Handle,field.FieldNo,pRecBuff,ADDR(dtrec)));
1) Proc v te prevodni funkci se dava time = 0???
2) Me to opet nefunguje (tentokrat to do tabulky vklada 0.0. 0000)
Jeste jednou radeji zopakuji problem (nejspise jsem ho minule
spise zamlzil)
Tabulka obsahuje atributy ruznych typu mimo jine je tam jeden
atribut D1 typu TimeStamp.
Ja se pokousim vkladat do tabulky zaznamy pomoci BDE API.
A do sloupecku D1 chci dat aktualni datum a cas (to co mi vrati fce
Now()). A to je ten problem (neumim to tam vlozit, nebo spise to
tam vlozim ale vysledek je 0.0.0000 00:00:00 nebo neco
podobneho).
Za rady predem diky
Petr
Excel & 852
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 24.5.1999 00:25:01
toto napadlo aj mna, ale problemom je potom velkost aplikacie atd.
Chcem sa vyhnut BDE a chcem distribuovat len single exe (je to
jednoduchsie). Do excelu sa dostanem cez DDE.
To naozaj neexistuje nieco na konverziu z nejakej do nejakej kodovej
stranky? To sa mi nechce verit.
rw
----- Original Message -----
From: Jan �ebel�k <honza(zv)haes(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, May 23, 1999 8:46 AM
Subject: Re: Excel & 852
> Nevim, jestli muj napad je ten pravy, ale proc to nesverit BDE?
>
> Pres ODBC nactu Excel (nebo text z Excelu vyexportovany) a ulozim to do
tabulky (.db,.dbf,.txt) ve spravnem kodu (Language Driver u .db,.dbf resp.
CharSet v .sch pro textovou tabulku .txt).
> Konverze se provede automaticky.
>
> Honza
> =========================================
> = HAES - RNDr. Jan Sebelik
> = http://www.haes(tec)cz
> = Skolici a konzultacni stredisko pro Delphi a Win32
> = Vojtiskova 206
> = 507 81 Lazne Belohrad
> = tel. 0434 692 931, 692 569, 0601 20 30 84
> =========================================
> ----------
> > Odes�latel: No Comemnt Group, s.r.o. / Sales Department
<sales(zv)nocomment.sk>
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Excel & 852
> > Datum: 21. kv�tna 1999 23:05
> >
> > Ahoj,
> >
> > vzdy som mal zmatok v kodovych strankach ... Ale teraz mam mensi
problem.
> > Mam v *.xls tabulku, kotu potrebujem "specialne" vyexportovat do *.txt s
> > kodovou strankou 852.
> >
> > No a problemom je konverzia. Predpokladam, ze excel ma data vo win1250.
> > Nepozna niekto rychly a bezbolestny pristup?
> >
> > Jedine co ma napadlo v suvislosti s tym ze mam na disku prevodne tabuky
> > nieco2unicode, prekodovat zdroj do unikode a spat do 852 resp.
vygenerovat
> > priamu konverznu lookup tabulku.
> >
> > Ale neviem preco, myslimz e by atke nieco malo byt priamo vo win. Alebo
nie?
> >
> > rw
Excel & 852
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 24.5.1999 00:30:32
Peter ty ma vzdy potesis. :-))) Uz som si myslel ze budem musiet kodovat
konverzne funkcie ...
dakujem.
rw
BTW: Ako je to s tou funkciou OemToChar a CharToOem? Na com je to zavisle
resp. aku to ma suvislost s lokalizaciou Win?
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, May 23, 1999 10:21 PM
Subject: Re: Excel & 852
> "No Comemnt Group, s.r.o. / Sales Department" wrote:
> >
> > Ahoj,
> >
> > vzdy som mal zmatok v kodovych strankach ... Ale teraz mam mensi
problem.
> > Mam v *.xls tabulku, kotu potrebujem "specialne" vyexportovat do *.txt s
> > kodovou strankou 852.
> >
> > No a problemom je konverzia. Predpokladam, ze excel ma data vo win1250.
> > Nepozna niekto rychly a bezbolestny pristup?
> >
> > Jedine co ma napadlo v suvislosti s tym ze mam na disku prevodne tabuky
> > nieco2unicode, prekodovat zdroj do unikode a spat do 852 resp.
vygenerovat
> > priamu konverznu lookup tabulku.
>
> Ahoj,
>
> Mas nekolik moznosti:
>
> 1. Pouzit API funkce OemToChar nebo CharToOem, u nich je ale problem v tom
> ze budou zavisle na lokalizaci Windows.
>
> 2. Pouzit langdrivery z BDE, pokud to vsak neni databazova aplikace tak je
> to ponekud tezkopadne reseni.
>
> 3. Pouzit nejakou konverzni funkci k tomu ucelu zhotovenou. Nejake uz mam
> hotove, umoznuji prevod kodovani mezi strankami 1250, 852, 862 a 859.
>
> Krome toho jsem zkousel i automaticke rozpoznani kodovani dle obsahu
> textu, ale neni to uplne 100% ni:-) Ke stazeni zde:
>
> ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/other/CharSetConv.zip
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
programator
> * http://www.bojkot(tec)cz *
> ************************
>
>Excel & 852
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 24.5.1999 00:34:06
btw: v akom kodovani budem tahat texty z Excelu via DDE? Ma s tym niekto
skusenosti?
rw
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, May 23, 1999 10:21 PM
Subject: Re: Excel & 852
> "No Comemnt Group, s.r.o. / Sales Department" wrote:
> >
> > Ahoj,
> >
> > vzdy som mal zmatok v kodovych strankach ... Ale teraz mam mensi
problem.
> > Mam v *.xls tabulku, kotu potrebujem "specialne" vyexportovat do *.txt s
> > kodovou strankou 852.
> >
serazovani podle abecedy
[*] Standa Kunc <obkstan(zv)obaka-karvina(tec)cz> - 24.5.1999 06:55:27
Zdravim,
na svych webovych strankach mam vypsane citaty, ktere pravidelne aktualizuji. Cerpam z knihy, kde jsou abecedne serazeny, coz je myslim nejlepsi. Ovsem problem je, ze kdyz chci pripsat nejaky jiny citat, musim ho zaradit rucne a to uz zacina byt dost unavne.
Hledal jsem na konferenci nejaky zdroj, ale nic jsem nenasel. Je tady nekdo, kdo by mi pomohl s tim algoritmem? Nebo mne trknete, jakou metodu by jste pouzili. (Pouzivam D1)
Predem dekuji...
S. Kunc
Ulozeni fontu do souboru
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.5.1999 07:19:24
Ahoj,
Pro ulozeni pouzivam TFormStorage z RxLib. Uschova i zpetne obnovi
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr Vale� [SMTP:pvales(zv)post(tec)cz]
> Odesl�no: 23. kv�tna 1999 17:35
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ulozeni fontu do souboru
>
> �
> Ahoj,
> �
> nevite prosim nekdo jak ulozit strukturu fontu do souboru. Myslim tim
> vystup z TFontDialog.Font
> �
> Diik
> �
> Petr
TOvcPictureField
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 24.5.1999 07:30:55
Ahoj,
mel bych dva dotazy na komponent TOvcPictureField z knihovny Orpheus.
Pouzil jsem to pro zobrazeni a editaci cisla uctu ve tvaru masky
"999999-9999999999". Muj dotaz je nasledujici: Jak zarovnam text, aby byl
vpravo (kdyz je cislo neuplne)? Nastaveni RightAlign=True nema vliv a
nastaveni RightJustify (ktere bych asi potreboval vice) nejde.
A druhy dotaz: Potrebuji nastavovat ruznou masku pro editaci DIC cisla tj.
jednou ve tvaru "999-9999 9999" a podruhe "999-99 99 99/9999". Lze ji nejak
jednoduse menit pri editaci nebo pri UserValidation? V obou pripadech
pouzivam StripLiterals=True, verze je 2.17
Dekuji
Jaro B.DBCombo na DBGridu
[*] Petr Matejovsky <pema(zv)seznam(tec)cz> - 24.5.1999 07:40:59
Ahoj
> potrebuji udelat na DBGridu DBLookupCombo na presne urcenem sloupci
Lookup field neudela ten pekny seznam ze ktereho si mohu vybrat nejake hodnoty a navic ty hodnoty beru z jine tabulky...
neco podobneho umi FoxPro ale v tom programovat nebudu, sehnal sem nejake OCX ale v Delhi nechce chodit :-(
Please help me se seznamem hodmot z jine tabulky primo na DBGridu
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
Databaze a zase databaze
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 24.5.1999 07:45:21
Titul.Table2.Append;
Titul.Table2.FieldByName('neco_integer').AsInteger :=
StrToInt(polozka.Tetx); //je typu Edit
Tady muze pravdepodobne delat problem to, ze polozka.Text neobsahuje
string, ktery lze
interpretovat jako cislo. Zkus tedy pred prirazenim nabo na OnChange
otestovat, jde-li
konvertovat hodnota pomoci StrToInt.
Druhe reseni je pouziti komponenty TDBEdit, kde si primo prilinkujes pres
property DataSet a DataField polozku a uz se o nic nemusis starat. Bacha na
to, aby se uzivatel nepokousel
editovat, pokud je tabulka v dsBrowse.
S tim RichEditem je to to same. Taky Existuje komponenta TDBRichEdit, zkuse
tedy pouzit tu. Komponenty jsou na pacce DataControls.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: daniel.hrna(zv)vm.sme(tec)cz [SMTP:daniel.hrna(zv)vm.sme(tec)cz]
Odeslano: 21. kvitna 1999 7:03
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Databaze a zase databaze
Nevim jestli se to tady uz resilo, ale mam problem v programu, ktery
pracuje
s DBF.
1. V DBF mam polozku String, Integer a MEMO.
Ve svem formulari umim po prikazu ulozit zapsat do DBF String ale nejde
mi tam vubec INTEGER a uz vubec MEMO.
Porad mi to hlasi nejakou vyjimku, kde delam chybu.
Mam to nejak takhle:
Titul.Table2.Append;
Titul.Table2.FieldByName('neco_integer').AsInteger :=
StrToInt(polozka.Tetx); //je typu Edit
Titul.Table2.FieldByName('poznamka').AsMemo := polozka.Tetx; //je
typu RichEdit
Titul.Table2.Post;
Nebo, jde to nejak jinak a lepsi, dik za priklady
Daniel Hroa - technik VT
Severomoravska energetika a.s.
RZ Vala?ske Mezioiei
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397
Usi PageControlu
[*] Petr�j Zden�k <ZPetruj(zv)qgir(tec)cz> - 24.5.1999 07:52:56
Jako vzdy jsem zapomnel presne definovat cely dotaz - jde mi o Delphi 3
> -----P�vodn� zpr�va-----
> Od: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 23. kv�tna 1999 22:24
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Usi PageControlu
>
>
> Petr�j Zden�k wrote:
> >
> > Nevite nekdo jestli jde nejak jednoduse u klasickeho page controlu
> > programove menit font a jeho nastaveni na jednotlivych "usich"
> > zvlast. Klasicky jde font nastavit jen pro vsechny usi
> stejny a barva nejde
> > nastavit vubec a to bych chtel. vim ze existuji ruzne
> freeware shareware
> > komponenty, ktere to umi, ale ty nechci pouzivat. Ptam se
> jestli to jde
> > nejak osetrit programove primo u originalniho PageControlu.
>
> Ahoj,
>
> Pokud mas D4 tak tam si muzes vykreslovat usi v udalosti OnDrawTab.
>
> --
>
> Internet proti monopolu. Petr Vones,
> amatersky programator
> * http://www.bojkot(tec)cz *
> ************************
>
> Ticon
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 24.5.1999 08:19:43
Ahoj
nevite co delam spatne ???
var
i:TIcon;
begin
i.LoadFromFile('c:\cloud.ico');
form1.ImageList1.AddIcon(i); ------- tady to hodi chybu
adresy
end;
Jirka Virt
email:virt(zv)pepa(tec)cz
www.pepa(tec)cz
DBCombo na DBGridu
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 24.5.1999 08:22:20
-----P�vodn� zpr�va-----
Od: pema(zv)seznam(tec)cz <pema(zv)seznam(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 24. kv�tna 1999 9:04
P�edm�t: DBCombo na DBGridu
>
>
>
>Ahoj
>
>
>> potrebuji udelat na DBGridu DBLookupCombo na presne urcenem sloupci
>
>
>
>Lookup field neudela ten pekny seznam ze ktereho si mohu vybrat nejake
>hodnoty a navic ty hodnoty beru z jine tabulky...
>
>
>neco podobneho umi FoxPro ale v tom programovat nebudu, sehnal sem nejake
>OCX ale v Delhi nechce chodit :-(
>
>
>Please help me se seznamem hodmot z jine tabulky primo na DBGridu
>
>
>
Pokud mas DELPHI3 tak se mrkni na priklad v adresari DEMOS/DB/MASTAPP.
Tam se neco podobneho pouziva. Ale nevim jestli to bude to prave orechove..Dva problemy
[*] sup(zv)svitap(tec)cz - 24.5.1999 8:47:24
Hi lidi....
Mam dva problemky..
1. Jak udelat barevny kursor ??
2. Nasledujici ukazka kodu mi pada. Potrebuji vytahnout obrazek ze streamu,
upravit, vratit do streamu a zobrazit... Uz jsem zkousel ReadBuffer,
WriteBuffer,read,write a nic...
procedure TForm1.Button1Click(Sender: TObject);
var
MS1,MS2: TMemoryStream;
bmp:tjpegimage;
pic:string;
size,l:longint;
Buffer: PChar;
begin
odlg1.initialdir:=extractfilepath(paramstr(0));
odlg1.filter:='JPG|*.jpg';
if odlg1.execute then pic:=odlg1.filename
else exit;
bmp:=TJPEGImage.create;
MS1 := TMemoryStream.Create;
MS2 := TMemoryStream.Create;
TRY
MS1.loadfromfile(odlg1.filename);
size:=MS1.size;
GetMem(Buffer, Size);
ms1.Seek(0,soFromBeginning);
ms2.Seek(0,soFromBeginning);
l:=ms1.write(Buffer,size); <<< Tady to pada :-(((
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
l:=ms2.read(Buffer,size);
bmp.LoadFromStream(ms2);
case strtoint(combobox1.text) of
8:bmp.PixelFormat:=jf8bit;
24:bmp.PixelFormat:=jf24bit;
end;
image1.width:=bmp.width;
image1.height:=bmp.height;
image1.canvas.Draw(0,0,bmp);
FINALLY
MS1.Free;
MS2.Free;
bmp.free;
END;
end;
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
IO Result
[*] daniel.hrna(zv)vm.sme(tec)cz - 24.5.1999 09:06:04
Narazil jsem na dalsi vec.
Kontroluji vstupni udaj na onChange a chtel bych testovat, zda je vlozeno
cislo, v TP to bylo treba tak, ze jsem napsal
Var Cislo:Integer;
begin
.....
{$i-}
Read(cislo);
{$i+}
if ioresult <> o then .....
.....
end.
Jak to mam testovat v D3 ?? Chci testovat to, aby uzivatel nemohl vlozit nic
jineho nez cislo, ale chci pouzit Edit, ne MaskEdit !!!
Daniel Hr�a - technik VT
Severomoravsk� energetika a.s.
RZ Vala�sk� Mezi����
tel.: 0651-683 442, fax:0651-683 424
mailto:Daniel.Hrna(zv)vm.sme(tec)cz
mobil: 0603-257397