Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prazdny Excel
[*] J�n Harman <harman(zv)atlas(tec)cz> - 12.8.2002 20:45:22
Ahoj, jeste jednou prosim o radu. Otervru z Delphi Excela a vse funguje
normalne.
Potom Excel zavru a chci ho otevrit z Delphi podruhe tak se mi objevi jenom
okno s menu a uvnitr NIC. Cim to je? Co mam delat?
Diky. Honza.
Qreport a svuj dataset
[*] Martin Kozusky <delphi(zv)novalis.dyndns.org> - 12.8.2002 20:51:40
Ahojte,
chci na vytvareni reportu pouzivat QReport (TQuickRep), ale chtel bych data,
ktere v nem budou vytvaret primo za behu programu. nechci jako Dataset
pouzivat napriklad tabulku (TTable), protoze se propojuje s databazi. Tak
sem sechtel zeptat, jak vytvorit svuj vlastni dataset, neexistuje na to
nejaka (nevisualni) komponenta? neco abych udelal:
var co:Tmujdataset;
x:TQuickRep;
co:=Tmujdataset.create();
co.fieldadd('cislo',ftinteger);
co.fieldadd('jmeno',ftstring);
co.fieldadd('prijmeni',ftstring);
co.insert([1,'nejake','jmeno'); (nebo nejak podobne)
x.dataset=co;
x.preview;
x.print;
Diky,
Martin
FreeReport a dynamicky dataset
[*] Petr Palicka aka PeC(zv) <petr.palicka(zv)atlas(tec)cz> - 12.8.2002 22:37:50
>Jasne....taky me to napadlo ale jsem PERFEKCIONALISTA:-))))))
>Tohle by bylo naprosto dokonaleee...
>Lepsi by bylo na designeru neukladat nazev datasetu a polii ale i sql
>select..ktery by bylo mozno opet do datasetu nahrat....
>Pak uz by to nemelo chybu a ty by sis mohl vybrat pracovni postup:-)))
jenze ja treba k jedne sestave mam vice dotazu.
jednak to muze byt ruzne setrideny, jednak to mohou
byt ruzne filtrovany. treba jedna je vse, jedna od-do
a jedna pro jednu osobu. mam to udelany tak, ze
procedura si vycucne paramtry ze sql a pak se pta
usera na hodnoty, pak otevre query a pak zobrazi
sestavu. mam i nehotovy editorek, kde se da pripravit
a otestovat dotaz a pak udelat navrh sestavy.
jenze evidentne mam trochu odlisny pristup a pozadavky
na chovani a navic nemam cas to dotahnout do pintlich
konce, pac to delam jako vedlejsi produkt firemnich
produktu a sef to kupodivu nevidi moc prinosne, takze
to dodelavam o volnych chvilich, abych si usetril praci
a mel vice volnych chvil ;)
peca
Otvaranie databazy z polozky v menu
[*] Jan Naiser <tua(zv)wo(tec)cz> - 12.8.2002 22:39:16
Ahoj,
asi mas na mysli otevirani tabulky databaze. Napr takto:***********************
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids, DBGrids, DB, DBTables, ComCtrls, StdCtrls,
ExtCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
MainMenu1: TMainMenu;
abulky1: TMenuItem;
Tabulka11: TMenuItem;
Tabulka21: TMenuItem;
Tabulka31: TMenuItem;
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
Label1: TLabel;
N1: TMenuItem;
ZavriTabulky1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tabulka11Click(Sender: TObject);
procedure ZavriTabulky1Click(Sender: TObject);
private
{ Private declarations }
Tables: TStringList;
procedure OpenTable(Tag: Integer);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.OpenTable(Tag: Integer);
begin
if Tag = -1 then
begin // zav�en� tabulek
Table1.Close;
DBGrid1.Hide;
Label1.Caption:= '';
exit;
end;
if (Tag > Tables.Count-1) then
Raise Exception.Create('Tag je v�t�� ne� po�et tabulek v seznamu!');
Table1.DisableControls;
Table1.Close;
try
Label1.Caption:= '';
Table1.TableName:= Tables[Tag];
Table1.Open;
Label1.Caption:= Format('Tabulka: %s', [Table1.TableName]);
finally
if not DBGrid1.Visible then DBGrid1.Show;
Table1.EnableControls;
end;
end;
//
============================================================================
=
procedure TForm1.FormCreate(Sender: TObject);
var
Dir: String;
begin
Dir:= 'c:\Program Files\Common Files\Borland Shared\Data\';
Tables:= TStringList.Create;
Tables.Add(Dir+'customer.db');
Tables.Add(Dir+'employee.db');
Tables.Add(Dir+'orders.db');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Tables.Free;
end;
procedure TForm1.Tabulka11Click(Sender: TObject);
begin
OpenTable((Sender as TMenuItem).Tag);
end;
procedure TForm1.ZavriTabulky1Click(Sender: TObject);
begin
OpenTable(-1); // zav�en� tabulek
end;
end.
***************************
DFM Main:
***************************
object Form1: TForm1
Left = 245
Top = 146
Width = 410
Height = 278
Caption = 'Datab�ze'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 213
Width = 402
Height = 19
Panels = <>
SimplePanel = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 402
Height = 26
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 8
Width = 3
Height = 13
end
end
object Panel2: TPanel
Left = 0
Top = 26
Width = 402
Height = 187
Align = alClient
TabOrder = 2
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 400
Height = 185
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 32
Top = 40
end
object Table1: TTable
Left = 88
Top = 40
end
object MainMenu1: TMainMenu
Left = 128
Top = 40
object abulky1: TMenuItem
Caption = 'Tabulky'
object Tabulka11: TMenuItem
Caption = 'Tabulka 1'
OnClick = Tabulka11Click
end
object Tabulka21: TMenuItem
Tag = 1
Caption = 'Tabulka 2'
ImageIndex = 1
OnClick = Tabulka11Click
end
object Tabulka31: TMenuItem
Tag = 2
Caption = 'Tabulka 3'
OnClick = Tabulka11Click
end
object N1: TMenuItem
Caption = '-'
end
object ZavriTabulky1: TMenuItem
Caption = 'Zav�i tabulky'
OnClick = ZavriTabulky1Click
end
end
end
end
*******************************
Honza Naiser.
----- Original Message -----
From: "bugi" <bugala_a(zv)centrum.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 12, 2002 8:17 PM
Subject: Otvaranie databazy z polozky v menu
> Hi ALL!
>
> Mam taky maly problem:
>
> 1.
> V Delphi 5.0 Ent potrebujem urobit
> programcek, v ktorom
> ked kliknem na nejaku polozku v hlav. menu,
> tak sa mi otvori
> prislusna databaza v DBGrid-e.
> Ku kazdej polozke v menu by mala byt
> priradena ina databaza.
> (paradox)
> Neviem ako to urobit... :-(
>
> 2.
> Ked uz sa otvori cez menu jedna databaza do
> DBGrid-u a
> nasledne sa klikne na inu polozku v menu,
> otvori sa do
> DBGRid-u dalsia databaza, ale ta
> predchadzajuca v DBGrid-e
> zostane tiez.
> Ako dosiahnem vymazanie prvej databazy z
> DBGrid-u ?
>
> Skusal som to s nacitanim udajov z TXT fajlu
> do Mema a tam
> to zostavalo...
>
> PORADTE PROSIM, ALL DAKUJEM,
>
> Alex
>
>
> -----------------------
> BUGALA Alex
>
> e-mail: bugala_a(zv)centrum.sk
>
>
>
Qreport a svuj dataset
[*] Kenny <kenny(zv)razdva(tec)cz> - 13.8.2002 02:22:35
A co pouzit nejakou MemTable treba tu v Rx komponentach nebou jinou. Zkousel
jsem to na TkbmMemTbl radove 10000sice zaznamu a vse v pameti a celkem
rychle vcetne indexu.
Kenny
----- Original Message -----
From: "Martin Kozusky" <delphi(zv)novalis.dyndns.org>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 12, 2002 8:51 PM
Subject: Qreport a svuj dataset
> Ahojte,
> chci na vytvareni reportu pouzivat QReport (TQuickRep), ale chtel bych
data,
> ktere v nem budou vytvaret primo za behu programu. nechci jako Dataset
> pouzivat napriklad tabulku (TTable), protoze se propojuje s databazi. Tak
> sem sechtel zeptat, jak vytvorit svuj vlastni dataset, neexistuje na to
> nejaka (nevisualni) komponenta? neco abych udelal:
>
> var co:Tmujdataset;
> x:TQuickRep;
>
> co:=Tmujdataset.create();
> co.fieldadd('cislo',ftinteger);
> co.fieldadd('jmeno',ftstring);
> co.fieldadd('prijmeni',ftstring);
> co.insert([1,'nejake','jmeno'); (nebo nejak podobne)
>
> x.dataset=co;
> x.preview;
> x.print;
>
> Diky,
> Martin
Otvaranie databazy z polozky v menu
[*] Karel Du�ek <Karel.Dusek(zv)oku-tu(tec)cz> - 13.8.2002 06:42:31
Nevim zda jsem presne pochopil Vas problem, ale melo by snad stacit prebinat
u
DBGridu odkaz na datovy zdroj DataSource, jeste radeji udelat refresh Formu.
S pozdravem Karel Dusek
----- Original Message -----
From: "bugi" <bugala_a(zv)centrum.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 12, 2002 8:17 PM
Subject: Otvaranie databazy z polozky v menu
> Hi ALL!
>
> Mam taky maly problem:
>
> 1.
> V Delphi 5.0 Ent potrebujem urobit
> programcek, v ktorom
> ked kliknem na nejaku polozku v hlav. menu,
> tak sa mi otvori
> prislusna databaza v DBGrid-e.
> Ku kazdej polozke v menu by mala byt
> priradena ina databaza.
> (paradox)
> Neviem ako to urobit... :-(
>
> 2.
> Ked uz sa otvori cez menu jedna databaza do
> DBGrid-u a
> nasledne sa klikne na inu polozku v menu,
> otvori sa do
> DBGRid-u dalsia databaza, ale ta
> predchadzajuca v DBGrid-e
> zostane tiez.
> Ako dosiahnem vymazanie prvej databazy z
> DBGrid-u ?
>
> Skusal som to s nacitanim udajov z TXT fajlu
> do Mema a tam
> to zostavalo...
>
> PORADTE PROSIM, ALL DAKUJEM,
>
> Alex
>
>
> -----------------------
> BUGALA Alex
>
> e-mail: bugala_a(zv)centrum.sk
>
>
>
Prazdny Excel
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 13.8.2002 07:58:47
Zkus poslat kousek programu jak oteviras a zaviras Excel.
Nekde delas chybu.
Pavel
> Ahoj, jeste jednou prosim o radu. Otervru z Delphi Excela a vse funguje
> normalne.
> Potom Excel zavru a chci ho otevrit z Delphi podruhe tak se mi objevi
jenom
> okno s menu a uvnitr NIC. Cim to je? Co mam delat?
> Diky. Honza.
>
>
Jak mit rozbalene menu behem prace?
[*] <little_bobes(zv)centrum(tec)cz> - 13.8.2002 08:22:14
Zdravim,
potreboval bych mit rozbalene urcite menu v aplikaci, ackoliv bude uzivatel
pracovat s jinymi prvky aplikace.
Ma nekdo nejaky napad jak na to (D4)?
Diky Bob
JVCL-instalacia
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 13.8.2002 08:57:43
Zdravim
jak to hle udelat v delphi
unsigned RcvAll = 1;
podle vseho to ma byt int na 4 byte. takze mam tam dat integer ?
Diky MIlan
JVCL-instalacia
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 13.8.2002 07:58:06
Zdravim,
pokusam sa instalovat JVCL v.1.32 Final na D5 Ent
Pri kompilacii mi zahlasi:
[Warning] JVCL100_R50.dpk(3): File not found:'JVCL100_R50.RES'
[Warning] JVCL100_R50.dpk(3): File not found: JVCL100_R50.RES'
[Warning] JVCL100_D50.dpk(30): Package 'JVCL100_R50' will not
be written to disk because -J option is enabled
[Fatal Error] JVCL100_D50.dpk(30): Internal error: P665
Viete mi niekto poradit ako dalej?
P.Svorc
StringGrid sort
[*] Martin Kolos <koki(zv)monoceros.physics.muni(tec)cz> - 13.8.2002 08:59:01
ahojte
ja vetsinou spojim stringrid s listem (Tlist), ktery tridit umi (musim
napsat rozhodovaci podminku)
martin
On Mon, 12 Aug 2002, Peter Surovy wrote:
> Ahoj
>
> existuje nejaka priama metoda na zoradenie
> (sort) riadkov v StringGrid alebo to treba robit
> manualne t.j. prejst vsetky bunky a postupne vymienat?
> Dik
> Peter Surovy
>
>
>
Ukladani qreportu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 13.8.2002 09:11:48
----- Original Message -----
From: "Jan Fiala" <jan.fiala(zv)iol(tec)cz>
> 12.8.2002 Martin Schayna:
> > Velikost bezneho ceskeho fontu (jednoho rezu) v PDF v sekci
> > /FontFile3 ve formatu /SubType/Type1C je cca 15kB.
> > Pokud pouzijes normalni a tucny v ruznych velikostech, zabere
> > to tedy cca 30kB + samotny text cca 1kB na stranku, tak
> > si to spocitej.
>
> Zkousel jsi to ? Tady nejde o pocitani.
> Ja jsem pouze pridal TTF fonty ARIAL a Courier. A primitivnich par
> radku se rozrostlo na 900kB
Ano, jednoducha sloupcova sestava v PDF na jednu stranku
s normalnim a tucnym fontem = 39087 bytu.
Martin Schayna
Jak mit rozbalene menu behem prace?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.8.2002 09:14:53
> potreboval bych mit rozbalene urcite menu v aplikaci, ackoliv
> bude uzivatel pracovat s jinymi prvky aplikace.
jestli to potrebujes jako ukazatel, kde se BFU nachazim
tak by mozna bylo lepsi na panel (label) umisteny pod menu
vypisovat (velkym pismem a tucne ;) vybranu volbu. napr:
SESTAVY > VYBER DLE OBDOBI > OPIS VYPLAT
peca
JVCL-instalacia
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 13.8.2002 09:20:26
Ahoj
> vymazal.milan(zv)seznam(tec)cz 13.8.02 8:57 >>>
>unsigned RcvAll = 1;
"unsigned" je zkracene napsany "unsigned int"
tzn. neznamenkova celociselna 32 bitova promenna
Cardinal, Longword
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Qreport a svuj dataset
[*] <tuffi(zv)email(tec)cz> - 13.8.2002 10:27:37
U Reportu je udalost onNeedData, ta by se na to dala vyuzit. Pripradne vytvorit lokalni paradoxi tabulku a nebo tabulku virtualni... A taky muzes vytvaret dynamicky radky v detailu, ale do toho bych se mozna nepoustel :-)
From: "Martin Kozusky" <delphi(zv)novalis.dyndns.org>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, August 12, 2002 8:51 PM
Subject: Qreport a svuj dataset
> Ahojte,
> chci na vytvareni reportu pouzivat QReport (TQuickRep), ale chtel bych
data,
> ktere v nem budou vytvaret primo za behu programu. nechci jako Dataset
> pouzivat napriklad tabulku (TTable), protoze se propojuje s databazi. Tak
> sem sechtel zeptat, jak vytvorit svuj vlastni dataset, neexistuje na to
> nejaka (nevisualni) komponenta? neco abych udelal:
>
> var co:Tmujdataset;
> x:TQuickRep;
>
> co:=Tmujdataset.create();
> co.fieldadd('cislo',ftinteger);
> co.fieldadd('jmeno',ftstring);
> co.fieldadd('prijmeni',ftstring);
> co.insert([1,'nejake','jmeno'); (nebo nejak podobne)
>
> x.dataset=co;
> x.preview;
> x.print;
>
> Diky,
> Martin
Qreport a svuj dataset
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 13.8.2002 10:59:13
Existuje napr. MemoryTable
> U Reportu je udalost onNeedData, ta by se na to dala vyuzit. Pripradne
> vytvorit lokalni paradoxi tabulku a nebo tabulku virtualni... A taky
> muzes vytvaret dynamicky radky v detailu, ale do toho bych se mozna
> nepoustel :-)
>
>
> From: "Martin Kozusky" <delphi(zv)novalis.dyndns.org>
> To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, August 12, 2002 8:51 PM
> Subject: Qreport a svuj dataset
>
>
> > Ahojte,
> > chci na vytvareni reportu pouzivat QReport (TQuickRep), ale chtel
> > bych
> data,
> > ktere v nem budou vytvaret primo za behu programu. nechci jako
> > Dataset pouzivat napriklad tabulku (TTable), protoze se propojuje s
> > databazi. Tak sem sechtel zeptat, jak vytvorit svuj vlastni dataset,
> > neexistuje na to nejaka (nevisualni) komponenta? neco abych udelal:
> >
> > var co:Tmujdataset;
> > x:TQuickRep;
> >
> > co:=Tmujdataset.create();
> > co.fieldadd('cislo',ftinteger);
> > co.fieldadd('jmeno',ftstring);
> > co.fieldadd('prijmeni',ftstring);
> > co.insert([1,'nejake','jmeno'); (nebo nejak podobne)
> >
> > x.dataset=co;
> > x.preview;
> > x.print;
> >
> > Diky,
> > Martin
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Predklad do cestiny s balicky
[*] David Kraina <DKx(zv)seznam(tec)cz> - 13.8.2002 12:33:30
-----Original Message-----
> Doposud mi stacilo prelozit si Consts a DBConst. Ted musim pouzit
> balicky, ale nevim jak do nich dostanu cestinu.
1.) Pokud potrebujes dostat DBConst a VDBConst (prelozene do cestiny)
normalne do programu, jdi na to primitivne. V adresari Delphi\Lib smaz
vsechny DBConst,VDBConst,DBCtrls a DBGrids.dcu, DBCtrls.pas a
DBGrids.pas prekopiruj z Delphi\Source\VCL do Delphi\Projects + tvoje
prelozene VDBConsts.pas a DBConst.pas. Pak jen pouzij nejaky projekt,
kde je v uses DBCtrls a DBGrids (TDBNavigator myslim pouziva oboje),
zkompiluj, a cestina je v programu.
2.) Byl bych ti vdecen, kdybys mi ty prelozene VDBConsts.pas a
DBConst.pas poslal na muj mejl (uvedeno dole)
3.) Protoze jsem v DB zacatecnik, a nikdo mi jeste neodpovedel :
V DBGrid jsem povolil multiselect a pri mazani pres DBNavigator mi
vymaze jen jeden zaznam. Jak na to + nevis o nejakem webu, kde jsou
slusne vysvetleny zaklady DB ?
Doufam, ze jsem pomohl, a moc diky za pripadnou tvoji pomoc.
S pozdravem
******************************************
* David Kraina, DKx *
* ------------------------------ *
* vedouci tymu MX-3, programator *
* *
* http://DKx.Hyperlink(tec)cz *
* http://MX-3.w3.to *
* *
******************************************
---
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.377 / Virov� b�ze: 211 - datum vyd�n�: 15.7.2002
FreeReport - help me
[*] Hr�a Daniel <Daniel.Hrna(zv)sme(tec)cz> - 13.8.2002 12:41:56
Mam nove FreeReport a D5.
Chtel bych vedetm jak muzu na formular frReportu dat promenou TEXT,
ktera se bude prepocitavat z DBF.
Konkretne: V Table (DBF) mam polozku "Cas" - typu Integer
Do toho frReportu chci ale vlozit tento cas jako string. Mam proceduru,
ktera mi z toho integru udela string (135 = 2h 15m). Vse je OK, ale
nevim jak do te promene vlozim funkci, kterou pak prepocitam.
Nacitani Stringu do frReportu mi jde, pouzivam ... [Table1."cas"]
Poradte mi, pokud to pujde, tak konkretne
Moc dik
FreeReport - help 2
[*] Hr�a Daniel <Daniel.Hrna(zv)sme(tec)cz> - 13.8.2002 14:07:27
Chtel bych poradit, jak muzu ovlivnovat frReport.
1. Mam vytvoreny formular ("frf") a pred jeho zobrazenim bych potreboval
porovnat nejake promene a podle nich pak urcity "text" na frReportu
skr�t/zobrazit.
2. Samozrejme, ze pak bych take chtel zmensovat / zvetsovat "p�s s
hlavnimi daty", kde jsou tyto promene umisteny.
Resil uz nekdo i toto, prosim poradte, treba prikladem, moc dik.
PS: fr230 mame cesky ! Muzu nabidnout .... kamos si dal praci ...
Dan
CheckBox - velikost
[*] evgenij reut <reut(zv)centrum(tec)cz> - 13.8.2002 15:08:09
Zdravim!
Jak muzu jednoduse zmnentit velikost policka v CheckBoxu, abych
nemusel na to psat svou vlastni komponentu?
Dekuji!
--------------------
16. - 18. 8. Demoparty
DEMOS / INTROS / MUSIC / WEB ART / http://syndeecate.centrum(tec)cz
FreeReport - help me
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.8.2002 15:16:00
> Konkretne: V Table (DBF) mam polozku "Cas" - typu Integer
tak si v TTable nadefinuj vypocitane pole, ktere pak pouzijes
normalne v reportu misto pole cas. pocita se v metode OnCalc...
peca
ps: posli mi prosim tu cestinu :o)
FreeReport - help me
[*] Lauko Stefan <laukosw(zv)naex.sk> - 13.8.2002 15:53:43
Ahoj,
nestacilo by vytvorit pre Table1 "New Field" > CasStr > Calculated a
potom v OnCalcFields len dosadit do Table1CasStr.Text :=
TvojaFcNaPrevod(TableCas.AsInteger);
Potom v frReport napises [Table1."CasStr"] .
Lauko.
----- Original Message -----
From: "Hr�a Daniel" <Daniel.Hrna(zv)sme(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, August 13, 2002 12:41 PM
Subject: FreeReport - help me
Mam nove FreeReport a D5.
Chtel bych vedetm jak muzu na formular frReportu dat promenou TEXT,
ktera se bude prepocitavat z DBF.
Konkretne: V Table (DBF) mam polozku "Cas" - typu Integer
Do toho frReportu chci ale vlozit tento cas jako string. Mam proceduru,
ktera mi z toho integru udela string (135 = 2h 15m). Vse je OK, ale
nevim jak do te promene vlozim funkci, kterou pak prepocitam.
Nacitani Stringu do frReportu mi jde, pouzivam ... [Table1."cas"]
Poradte mi, pokud to pujde, tak konkretne
Moc dik
AsyncPro pro D6Pro
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 13.8.2002 16:08:09
Ahoj,
je mozno pouzit AsyncPro V 2.56 (D256_D40.bpl) urceny pro D4 primo i v D6Pro
anebo je nutno ho rekompilovat? Nedelal jste to nekdo?
Jara.
AsyncPro pro D6Pro
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 13.8.2002 16:17:06
Puvodni zprava, kterou napsal SPELZA s.r.o. dne 13 Aug 2002:
> je mozno pouzit AsyncPro V 2.56 (D256_D40.bpl) urceny pro D4 primo i v
> D6Pro anebo je nutno ho rekompilovat? Nedelal jste to nekdo?
Neni to mozne z principu, kdyz je to balicek pro Delphi 4. A zrejme
nepomuze ani rekompilace, protoze Delphi 6 podporuje az Async
Professional 3.06.
S pozdravem
Petr Zahradnik, pocitacovy expert
=====================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
======================================================AsyncPro pro D6Pro
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 13.8.2002 17:15:08
On 13 Aug 2002 at 16:17, Petr Zahradnik wrote:
> > je mozno pouzit AsyncPro V 2.56 (D256_D40.bpl) urceny pro D4 primo i
> > v D6Pro anebo je nutno ho rekompilovat? Nedelal jste to nekdo?
>
> Neni to mozne z principu, kdyz je to balicek pro Delphi 4. A zrejme
> nepomuze ani rekompilace, protoze Delphi 6 podporuje az Async
> Professional 3.06.
Jde to, ale museji se tam udelat urcite upravy. Rekompilace je
samozrejme nezbytna.
S pozdravem
Zbysek Hlinka
DBGrid nezobrazi "Joined" polozky pokud je dataset
[*] David Michal <david.michal(zv)www-bv(tec)com> - 13.8.2002 17:31:54
Zdravim,
Mam D6. Zajimava vec, kterou si neumim vysvetlit. Pokud naplnim dataset pri
udalosti onCreate(U Formu) pak DBGrid umisteny na tomto formu nezobrazi
fields, ktere jsou "joined".
Pokud to same udelam pri onShow pak je vse v poradku. Neni to zadny problem
je mi celkem jedno kdy si budu plnit dataset, ale prijde mi to zajimave.
David
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.381 / Virus Database: 214 - Release Date: 02/08/2002
Prazdny Excel
[*] J�n Harman <harman(zv)atlas(tec)cz> - 13.8.2002 21:00:27
Toto je otevreni:
lcid := GetUserDefaultLCID;
ExApp.Visible[lcid]:=True;
WkBk.ConnectTo(ExApp.Workbooks.Add(xlWBATWorksheet, lcid));
WS.ConnectTo(WkBk.Worksheets[1] as _Worksheet);
a zaviram ho normalne jako Excel. Proste zavru excelovskou aplikaci. Potom
kdyz ho chci pomoci tohoto otervit podruhe, tak mi naskoci jenom prazdne
okno a menu. Sheet nikde. Dik.> Zkus poslat kousek programu jak oteviras a zaviras Excel.
> Nekde delas chybu.
>
> Pavel
>
> > Ahoj, jeste jednou prosim o radu. Otervru z Delphi Excela a vse funguje
> > normalne.
> > Potom Excel zavru a chci ho otevrit z Delphi podruhe tak se mi objevi
> jenom
> > okno s menu a uvnitr NIC. Cim to je? Co mam delat?
> > Diky. Honza.
> >
> >
>
>
Porovnani casu
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 13.8.2002 21:18:02
Marne lamu tento problem
var
Cas,Start: TDateTime;
Cas:=Now;
start:=EncodeTime(21, 00, 0, 0);
If cas > start then Showmessage(TimeToStr(Start)+ ' > ' +
TimeToStr(Cas));
If cas < start then Showmessage(TimeToStr(Start)+ ' < ' +
TimeToStr(Cas));
"IF" neodpovida skutecnosti (cas= 21:15 Start=21:00 a vych�z� mi ze 21:15
>21:00)
Tusim, ze v promene Cas je zakodovan i datum, ale nevim co s tim
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
Monitorovani PC
[*] Michal Aichinger <michal.aichinger(zv)talk21(tec)com> - 13.8.2002 21:20:47
Nainstalovat nejaky program co to umi :-) napr. program BlackBox.
s pozdravem
Michal Aichinger
> Dostal jsem za ukol monitorovat praci pracovnika na PC tak aby o to nevedel
> (vyuzivani pracovni doby)
>
> - zapnuti PC
> - restart PC
> - vypnuti PC
>
> Poradi nekdo jak na to pro WIN 98 pripadne pro WIN 95,WIN 2000,WIN ME
>
> Diky za radu
>
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
>
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
>
Porovnani casu
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 13.8.2002 22:16:02
Cauec,
> "IF" neodpovida skutecnosti (cas= 21:15 Start=21:00 a vych�z� mi ze 21:15
> >21:00)
ja teda nevim, ale podle me je 21:15 vic nez 21:00.
Bye Ludan
FreeReport - kde ho sehnat?
[*] Ing. Petr Svejda <lingvista(zv)lingvista(tec)cz> - 13.8.2002 22:25:20
Muzete mi prosim nekdo hodit primy link na FreeReport, popr. mi sdelit neco
blizsiho, co by mohlo rozhodnout o jeho pouzivani nebo nepouzivani? Diky
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.381 / Virov� b�ze: 214 - datum vyd�n�: 2.8.2002
Parameter Sender v ActionExecute
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 14.8.2002 01:00:46
Mame sancu v D5?
S pozdravom
J. Popluhar
----- Original Message -----
Sent: Friday, August 09, 2002 2:41 PM
Subject: Re: Parameter Sender v ActionExecute
| From: "Jaroslav Popluhar" <delphi1(zv)acc.sk>
| > Potreboval by som vsak kod vnutri action vetvit podla toho, ktory prvok
ju
| > zavolal.
|
| TBasicAction.ActionComponent
|
| Petr Vones
|
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.381 / V�rusov� datab�za: 214 - d�tum vydania: 5. 8. 2002
Jak mit rozbalene menu behem prace?
[*] <little_bobes(zv)centrum(tec)cz> - 14.8.2002 07:50:21
> jestli to potrebujes jako ukazatel, kde se BFU nachazim
> tak by mozna bylo lepsi na panel (label) umisteny pod menu
> vypisovat (velkym pismem a tucne ;) vybranu volbu. napr:
> SESTAVY > VYBER DLE OBDOBI > OPIS VYPLAT
Ne, ja nepotrebuji informace o menu, ja potrebuji mit to menu primo
rozbalene.
Rozbalit ho umim, ale ono zustane aktivni a kdyz klepnu na naco jineho, tak
se zavre, coz bych nechtel.
Bob
Componenta event onShow (Form)
[*] <tuffi(zv)email(tec)cz> - 14.8.2002 07:54:27
Muzes projizdet komponenty Components[i] a testovat jesli je to TQuery, nebo TDataSet(aj TTable..). S tim testovanim....muzes testovat if Assigned(myQuery)...
KOP :-)
--- P�vodn� zpr�va ---
Od: "Ales Pavel" <Aldik(zv)quick(tec)cz>
Datum: 13.08.2002 20:55:10
Jak mam udelat v komponente TComponent provazani na udalost formshow?
Predstavoval bych si to ze bych prihodil komponentu a pri formshow by se
sama provedla nejaka akce...
Nechce se mi furt prihazovat na form proceduru.
Taky jsem zapomnel jak zjistit ze je objekt uz vytvoren. tj. je u nej
zavolano CREATE;
Nakopnete me please....
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
______________________________________________________________________________
Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
http://www.Email(tec)cz <------------Po�ta zdarma!FreeReport - help 2
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.8.2002 07:58:48
Ahoj,
zacal jsem se ted na to divat, tak jestli muzes posli mi tu cestinu.
Upravim ji pro 232 a poskytnu.
Jinak ti v nicem neporadim, zatim jsem se jen dival na demo.
Pavel
>PS: fr230 mame cesky ! Muzu nabidnout .... kamos si dal praci ...Prazdny Excel
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.8.2002 07:59:51
Ahoj
Podivej se ( staci pres CTRL+ALT+DEL) na bezici aplikace. Pravdepodobne
ti tam Excel stale bezi. Musis se odpojit od toho Excelu.
Pavel
> a zaviram ho normalne jako Excel. Proste zavru excelovskou aplikaci. Potom
> kdyz ho chci pomoci tohoto otervit podruhe, tak mi naskoci jenom prazdne
> okno a menu. Sheet nikde. Dik.
FreeReport - kde ho sehnat?
[*] TOROLA electronic - Bednarcik Dalibor <dalibor(zv)torola(tec)cz> - 14.8.2002 08:01:11
FreeReport je dobry, ale dalsi vyvoj nejak stagnuje. Proto bych ti
doporucil prejit na komercni FastReport, myslim si, ze na to co umi, neni
drahy.
Koprimace DB Accessu
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 14.8.2002 08:12:21
Zdravim lidi.
Mam otazku .... existuje nejaky dotaz, nebo neco, co bych mohl aplikovat z
Delphi pomoci komponent Aloha OI ADO ke zkomprimovani databazoveho souboru
Accessu ? Mam na mysli vycisteni souboru od transakcniho logu a podobnych
veci, ktere soubor dost zvetsuji.
Petr
ICQ# : 119119215
Porovnani casu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.8.2002 08:21:45
> Cas:=Now;
> start:=EncodeTime(21, 00, 0, 0);
>
> If cas > start then Showmessage(TimeToStr(Start)+ ' > ' +
> TimeToStr(Cas));
> If cas < start then Showmessage(TimeToStr(Start)+ ' < ' +
> TimeToStr(Cas));
Ahoj,
Cas opravdu obsahuje i datum, zkusil bych misto now pouzit Time, nebo pak to
datum odstranit. Princip je jednoduchy: TDatetime je realne cislo, kde cela cast je
datum a desetinna cast je cas. Datum odstranis napr: frac(Cas)
David Lebeda
FreeReport - kde ho sehnat?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.8.2002 09:03:43
> Muzete mi prosim nekdo hodit primy link na FreeReport...
Author: Alexander Tzyganenko
For support please contact:
Home page: http://freereport.sf.net (english site)
E-mail: freereport(zv)mail.ru
nemel jsem jeste cas na to mrknout, ale vsiml jsem si,
ze by mel jit doplnit export do PDF (pomoci jinych
free PDF komponent, odkaz je na strankach freereportu).
peca
Porovnani casu
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 14.8.2002 09:24:45
TDateTime je realne cislo, cela cast obsahuje datum, v desetinne je cas.
var Start, Stop, Cas : TDateTime;
begin
Start := Now;
.
.
.
Stop := Now;
Cas := Stop - Start;
if Star > Stop then ....;
Pavel
> From: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
> Marne lamu tento problem
>
> var
> Cas,Start: TDateTime;
>
> Cas:=Now;
> start:=EncodeTime(21, 00, 0, 0);
>
> If cas > start then Showmessage(TimeToStr(Start)+ ' > ' +
> TimeToStr(Cas));
> If cas < start then Showmessage(TimeToStr(Start)+ ' < ' +
> TimeToStr(Cas));
>
> "IF" neodpovida skutecnosti (cas= 21:15 Start=21:00 a
> vych�z� mi ze 21:15
> >21:00)
>
> Tusim, ze v promene Cas je zakodovan i datum, ale nevim co s tim
>
> Diky za radu
Zjisteni verze
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 14.8.2002 09:54:18
Zdravim
jak zjistim , teda spise vytahnu informace o verzi ci vyrobci
napriklad z .dll .ocx nebo .exe
DIky milan
FreeReport - kde ho sehnat?
[*] Martin Cajbik <cajbik(zv)sct.sk> - 14.8.2002 09:59:35
Zdravim
Ako je s dynamickymi vytvaranymi zostavami cez Fast(Free)Report ? Jeden cas
som to trochu skusal a kvoli tomu, ze som to nejak nevedel dobre rozbehat
som FastReport zavrhol. Konkretne mi ide o tlac StringGrid, ListView a pod.
Pod QuickReportom som si na to vytvoril pomerne slusne unity ale pod
FastReportom mi to nejako nefungovalo. Ale bolo to uz dost davno a nevenoval
som tomu prilis vela casu, takze ak to ma niekto poriesene, staci mi
odpoved, ze s tym nie su vacsie problemy.
Vdaka
MarCaNT (marcant(zv)sct.sk)
> FreeReport je dobry, ale dalsi vyvoj nejak stagnuje. Proto bych ti
> doporucil prejit na komercni FastReport, myslim si, ze na to co umi, neni
> drahy.
>
>
Porovnani casu
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 14.8.2002 10:07:02
> Marne lamu tento problem
>
> var
> Cas,Start: TDateTime;
>
> Cas:=Now;
Doporucuji nahradit Now funkci Time;> start:=EncodeTime(21, 00, 0, 0);
>
> If cas > start then Showmessage(TimeToStr(Start)+ ' > ' +
> TimeToStr(Cas));
> If cas < start then Showmessage(TimeToStr(Start)+ ' < ' +
> TimeToStr(Cas));
>
> "IF" neodpovida skutecnosti (cas= 21:15 Start=21:00 a vych�z� mi ze 21:15
> >21:00)
>
> Tusim, ze v promene Cas je zakodovan i datum, ale nevim co s tim
>Jak mit rozbalene menu behem prace?
[*] Delphin <delphin(zv)post(tec)cz> - 14.8.2002 10:31:45
> Ne, ja nepotrebuji informace o menu, ja potrebuji mit to menu primo
> rozbalene.
> Rozbalit ho umim, ale ono zustane aktivni a kdyz klepnu na naco jineho,
tak
> se zavre, coz bych nechtel.
Musi to byt opravdu menu ?
Misto toho muzes zkusit pouzit napriklad StayOnTop formular s ToolBarem,
moznosti je samozrejme vice.
OT: IB/FB jako lokalni DB stroj
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.8.2002 10:50:14
Hi all,
v posledni dobe jsem hledal nejakou vhodnou lokalni DB a nakonec jsem dosel
k zaveru, ze jedine uspokojive reseni by mohla byt IB, ktera by se dala
spoustet
jako lokalni stroj spolu s aplikaci bez instalace serveru a bez pripadnych
kolizi s jiz nainstalovanym beznym IB/FB serverem.
Nezabyval se nekdo takovou upravou open source IB/FB?
Potrebuji to jen pro platformu M$.
Thx, pf
IB/FB jako lokalni DB stroj
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 14.8.2002 11:59:45
Yafill by neco takoveho mozna mohl umet.
Ale vse je v rustine.
http://www.private.peterlink.ru/rcav/
Slavek
> v posledni dobe jsem hledal nejakou vhodnou lokalni DB a nakonec jsem dosel
> k zaveru, ze jedine uspokojive reseni by mohla byt IB, ktera by se dala
> spoustet
> jako lokalni stroj spolu s aplikaci bez instalace serveru a bez pripadnych
> kolizi s jiz nainstalovanym beznym IB/FB serverem.
>
> Nezabyval se nekdo takovou upravou open source IB/FB?
> Potrebuji to jen pro platformu M$.
IB/FB jako lokalni DB stroj
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.8.2002 12:08:41
> Nezabyval se nekdo takovou upravou open source IB/FB?
to sice ne, ale pokud spustis server na jinem portu
nez 3050 (3051), mohlo by to fungovat. plus zajistit
aby se server nespoustel vicekrat, aby aplikace pouzivala
spravnou gds32.dll.
a proc vlastne nevyuzit pripadny jiz bezici server?
kvuli kolizi verzi?
peca
Jak mit rozbalene menu behem prace?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.8.2002 12:10:31
> Ne, ja nepotrebuji informace o menu, ja potrebuji mit to menu primo
> rozbalene.
muzes priblizit proc? treba nekoho napadne nejake rozumne,
nebo zastupne reseni.
peca
Jak mit rozbalene menu behem prace?
[*] Jan K��ek - 14.8.2002 12:35:58
Jestli tomu rozumim dobre, tak se jedna o vlastnost, kterou maji
x-windows, macintosh a snad ted i Office XP (nebo aspon mam pocit, ze u
necoho noveho od MS jsem to videl). Jde o rychlou moznost udelat z
submenu toolbar, ve chvili kdy chci v kratkem obdobi vyvolat vice funkci
ze stejne nabidky (treba menu format v editoru).
A tak bych to i naprogramoval. Vetsinou v takovem submenu je polozka s
pripinackem a ta kdyz se zmackne, tak vytvoris na tom miste (ted netusim
jak jej spravne spocitat, no v nejhorsi vyjdes z pozice mysi) plovouci
toolbar do ktereho udelas tlacitka odpovidajici polozkam v menu (neni
problem to delat automaticky) a udelas je Flat a Grouped (viz nekde v
helpu popis jak udelat menu v toolbaru).
Honza +
> -----Original Message-----
> From: Petr Palicka [mailto:petr.palicka(zv)atlas(tec)cz]
> Sent: Wednesday, August 14, 2002 12:11 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Jak mit rozbalene menu behem prace?
>
>
> > Ne, ja nepotrebuji informace o menu, ja potrebuji mit to menu primo
> > rozbalene.
>
> muzes priblizit proc? treba nekoho napadne nejake rozumne,
> nebo zastupne reseni.
>
> peca
>
OT: Poskozeny soubor XLS
[*] Jan Naiser <tua(zv)wo(tec)cz> - 14.8.2002 13:23:48
Preji pekny den,
existuji nejake nastroje na opravu poskozeneho souboru XLS? Pokud ano,
prosim o link.
Diky, Honza.
TChart
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 14.8.2002 13:30:15
Ahoj,
mam problem s komponentou TChart. Popisu zjednodusene situaci:
1) Vlozim TChartShape
2) Vlozim TGanttSeries
(hodnoty zustavaji nahodne)
V degintime je vse vporadku, ale v runtime je narusen vypis Labelu (z
GanttSeries) v LeftAxis
( 1 nebo vice chybi). Pokud prehodim poradi TSeries, pak je vse vporadku.
Nesetkal se nekdo s timto problemem?
Pavel
P.S.
( experimentovani s uzitim LeftAxis,RightAxis,... (zatim) nevedlo k cili,
protoze to rozhodilo hodnoty)
OT: Literatura o ClientDataSetu
[*] Michal Sefcik <sefcik(zv)benefitcz(tec)cz> - 14.8.2002 14:08:51
Prechazime od BDE pristupu k SQL databazim
na ADO. S vyhledem k mozne trivrstvosti aplikaci
se pokousime pracovat i s ClientDataSetem, coz
nam zatim prinasi pouze problemy.
Obracim se tedy na Vas s prosbou o vhodne odkazy
na clanky a literaturu. Rad uvitam i postrehy z vlastni
prace s CliDS.
Posilal jsem jiz drive nekolik dotazu; odpovedi na ne
vsak ve mne vyvolali dojem, ze tuto komponentu
snad nikdo v realu nepouziva (master-detailovani,
locatovani pres string-polozky,...)
Za odezvu dekuji predem.
************************************************************
Ing.Mgr. Michal Sefcik
Benefit CZ, s.r.o.
Hrub�ho 11, 612 00 Brno
tel: +420 5 41219098, 9
fax: +420 5 41215886
http: www.benefitcz(tec)cz
************************************************************
Dotazeni hodnoty pole pres Lookup JEN STRING
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 14.8.2002 14:21:52
Ahoj konecne po umorne drine umim dotahnout pole integer pres field/loopup a
jiny dataset jako ID,jenze ted potrebuji nedotahovat pres lookup ID ale jen
string hodnotu a tu je problem
(proste ciselnik je ciste informativni a ja netaham ID,ale hodnotu
string,kterou mohu nahradit vlastni hodnotou string kdyz si z ciselniku
nevyberu),zkusil jsem to ja matla, vytvorenim fiktivniho ID s blahovou
nadeji ze se pole vyplni jen stringem a zbytek zapomenu:-)
Jenze jak je tam LOOKUP tak tam proste string nenarvu...
Nevite nekdo?
Ales Pavel
D6 Ent WXP/FB
laik v profesionalnim kolotoci
Jak mit rozbalene menu behem prace?
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 14.8.2002 14:21:59
Aldik taky nevi ale fantaziruje:
snad by slo nejak prepsat event u popup... jestli dobre rozumim a prepsat
zavirani ktere se aktivuje pri opusteni...nevim nikdy jsem to
nezkousel,treba se pletu....
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
Bob nevi
potreboval bych mit rozbalene urcite menu v aplikaci, ackoliv bude uzivatel
pracovat s jinymi prvky aplikace.Jak mit rozbalene menu behem prace?
[*] <little_bobes(zv)centrum(tec)cz> - 14.8.2002 14:30:19
Kdyby bylo po mem, tak to menu nerozbaluji, ale muj sef si mysli, ze je to
pro uzivatele prehlednejsi (uzivateli je to ale v podstate jedno, jenze sef
je take uzivatel)
Jde v podstate o to, ze mam program, ve kterem si mohu zobrazit soubor.
Nekde v databazi mam ulozeno, ze tento otevreny soubor ma jine navazne
soubory a ja tyto navazne soubory vyplnim do menu, cimz si je muze uzivatel
lehce otevrit pouhym kliknutim v tomto menu. Kdyz navazne soubory nema, menu
je neaktivni.
A aby si uzivatel okamzite vsiml, ze otevreny soubor ma jine navazne
soubory, ma se toto menu rozbalit.
Ja ho tedy rozbalim, ale dokud se nezavre, nemuze uzivatel delat nic jineho.
Jedine reseni, ktere me pro vyreseni teto logiky napada, je vymenit sefa :-)
Bob
> > Ne, ja nepotrebuji informace o menu, ja potrebuji mit to menu primo
> > rozbalene.
>
> muzes priblizit proc? treba nekoho napadne nejake rozumne,
> nebo zastupne reseni.
>
Zjisteni verze
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 14.8.2002 15:04:43
Mam na to fci:
function GetFileVersion(Soubor: String): String;
const
VerFixedInfo: PChar = '\';
var
Size : DWORD;
Sz : ULONG;
Handle: THandle;
Buffer: string;
FFixedBuffer: PVSFixedFileInfo;
begin
Size := GetFileVersionInfoSize(PChar(Soubor), Handle);
if Size > 0 then
begin
SetLength(Buffer, Size);
GetFileVersionInfo(PChar(Soubor), Handle, Size, PChar(Buffer));
end;
VerQueryValue(PChar(Buffer), VerFixedInfo, Pointer(FFixedBuffer), Sz);
with FFixedBuffer^ do
begin
Result:= IntToStr(dwFileVersionMS shr 16) + '.';
Result:= Result + IntToStr(dwFileVersionMS and $FFFF) + '.';
Result:= Result + IntToStr(dwFileVersionLS shr 16) + '.';
Result:= Result + IntToStr(dwFileVersionLS and $FFFF);
end;
end;
Ladap
>>> vymazal.milan(zv)seznam(tec)cz 14.8. 2002 9:54:18 >>>
Zdravim
jak zjistim , teda spise vytahnu informace o verzi ci vyrobci
napriklad z .dll .ocx nebo .exe
DIky milan
OT: Prirucka HTM kontra Word 97
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.8.2002 15:11:57
Ahoj,
uz par dni se morim s psanim prirucky. Prirucka je HTML soubor obsahujici text a
sem tam nejaky obrazek - vzhled formalare. Pisu to ve Wordu 97 (m�m Win NT4).
Nevite nekdo, proc ten pip vsechny obrazky, ktere jsou "velke" (zrejme sirsi nez 600
bodu) pri nacitani implicitne zmensi tak, ze maji sirku okolo 600 bodu? Pritom to
nejde zvetsit: tazenim obrazek zvetsim, ulozim, nactu a uz je zase zmenseny.
Udelam upravu v HTML, nactu do Wordu, a ten to ignoruje a zas to ma sirku jen 601
pixelu. V praxi by to znamenalo prirucku napoprve napsat ve Wordu, v HTML pak
spravne nastavit velikost vsech obrazku, a pak uz to do Wordu nesmi, nebo to zas
zmrsi.
Prosim - zadne rady typu zmen nastroj, zmen verzi apod. V dane verzi Wordu -
existuje reseni (nejake nevhodne nastaveni apod.), nebo to je bug, s kterym se neda
nic delat?
Diky a sorry za OT.
Win NT4SP4, Office97 Standard
David Lebeda
Dotazeni hodnoty pole pres Lookup JEN STRING
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 14.8.2002 15:21:41
> Ahoj konecne po umorne drine umim dotahnout pole integer pres
> field/loopup a jiny dataset jako ID,jenze ted potrebuji nedotahovat
> pres lookup ID ale jen string hodnotu a tu je problem (proste ciselnik
> je ciste informativni a ja netaham ID,ale hodnotu string
Ahoj,
moc nerozumim. U lookupu jde o tohle:
1) V hlavni tabulce je odkaz do jine tabulky.
2) Zaznamy z druhe tabulky se ti nabizeji jako nabidka napr. v
DBLookupComboBoxu. Pritom nastavujes:
KeyField: sloupec s unikatnimi hodnotami (z druhe tabulky), obvykle ID, ale muze jit i
primo o stringy, jsou-li unikatni.
DisplayField: sloupec z druhe tabulky, jehoz obsah se Ti zobrazuje namisto tech ID.
Typ pole KeyField a sloupce s odkazem v hlavni tabulce by mel byt stejny. Z
uvedeneho plyne, ze odkaz z hlavni tabulky muze byt primo string a podrizena
tabulka muze mit i jediny sloupec typu string, ktery je pak jak KeyField, tak i
DisplayField.
Asi mas nekde neco spatne, ale z toho popisu to neslo zjistit. Zkus upresnit.
David Lebeda
Immo setup
[*] Fabik Milan <kinekus(zv)nextra.sk> - 14.8.2002 15:27:46
Ahojte delphi kamarati,
prosim o radu. Skusam pouzit immo setup s dbe-ckom
Setup vyzera takto :
----------------------------------------
[Setup]
AppName=Skuska
AppVerName=Skuska ver 1.0
AppCopyright=Copyright (C) 1997-2002 Fabik
DefaultDirName=c:\Program Files\Kineob6\
DefaultGroupName=Kineob
UninstallDisplayIcon={app}\kineob.exe
DisableDirPage=yes
[Files]
Source: "c:\Program Files\Kineob6.prg\kineob.exe"; DestDir: "{app}"
Source: "c:\Program Files\Kineob6.prg\str\*.*"; DestDir: "{app}\str"
Source: "c:\Program Files\Kineob6.prg\MiniReg.exe"; DestDir: "{tmp}"
Source: "c:\Program Files\Kineob6.prg\BdeInst.dll"; DestDir: "{tmp}"[Run]
Filename: "{tmp}\bdereg.exe"; Parameters: """{tmp}\BdeInst.dll"""
----------------------------------------
Po spusteni prebehne setup OK az na bde. Vypisuje toto :
Unable to execute file:
c:\WINDOWS\TEMP\is-VQIMO.tmp\bdereg.exe
CreateProcess failed; code 2
System nemoze najst zadany subor
Vie mi niekto s tym poradit ? Dakujem za kazdu odpoved.
Fabik
Frame
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 14.8.2002 15:40:28
Je mozne v RunTime menit obsah komponenty TFrame vo formulari?
Mal som umysel vo formulari menit jeho cast
podla nastavenia inych (statickych) prvkov mimo frame.
Napr.
Radiobutton by rozhodoval, ktorym obsahom vyplnit
"dieru" v hlavnom formulari.
Ako na to?
S pozdravom
J. Popluhar
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.381 / V�rusov� datab�za: 214 - d�tum vydania: 2. 8. 2002
Immo setup
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.8.2002 15:41:01
Bude to tim, ze zadny BDEreg.exe neni.
BDE se instaluje pomoci RegSvr32.EXE BdeInst.dll
Stahni si InnoSetup Tools (odkaz je na strance s Inno Setupem)
Tam staci zaskrtnout, ze chces instalovat BDE a ukazat mu cestu na
BdeInst.dll
Popr. se podivej do napovedy, tam to bude popsane
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.8.2002 Fabik Milan:
> Ahojte delphi kamarati,
> prosim o radu. Skusam pouzit immo setup s dbe-ckom
> Setup vyzera takto :
> ----------------------------------------
> [Setup]
> AppName=Skuska
> AppVerName=Skuska ver 1.0
> AppCopyright=Copyright (C) 1997-2002 Fabik
> DefaultDirName=c:\Program Files\Kineob6\
> DefaultGroupName=Kineob
> UninstallDisplayIcon={app}\kineob.exe
> DisableDirPage=yes
> [Files]
> Source: "c:\Program Files\Kineob6.prg\kineob.exe"; DestDir: "{app}"
> Source: "c:\Program Files\Kineob6.prg\str\*.*"; DestDir: "{app}\str"
> Source: "c:\Program Files\Kineob6.prg\MiniReg.exe"; DestDir: "{tmp}"
> Source: "c:\Program Files\Kineob6.prg\BdeInst.dll"; DestDir: "{tmp}"> [Run]
> Filename: "{tmp}\bdereg.exe"; Parameters: """{tmp}\BdeInst.dll"""
> ----------------------------------------
> Po spusteni prebehne setup OK az na bde. Vypisuje toto :
> Unable to execute file:
> c:\WINDOWS\TEMP\is-VQIMO.tmp\bdereg.exe
> CreateProcess failed; code 2
> System nemoze najst zadany subor
Jak mit rozbalene menu behem prace?
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 14.8.2002 15:58:37
> potreboval bych mit rozbalene urcite menu v aplikaci, ackoliv bude
uzivatel
> pracovat s jinymi prvky aplikace.
A kdy by se melo to menu zavrit?
Roman
==============================
http://kouzelne.misto(tec)cz
Jak mit rozbalene menu behem prace?
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 14.8.2002 16:26:45
> potreboval bych mit rozbalene urcite menu v aplikaci, ackoliv
> bude uzivatel pracovat s jinymi prvky aplikace.
>
> Ma nekdo nejaky napad jak na to (D4)?
Myslim, ze so standardnym menu/popup menu to nepojde. Tie totiz volaju
Windows API funkciu TrackPopupMenu, ktora sa sprava modalne, t.j. vrati sa
az po vybrani polozky alebo zruseni menu. Da sa na to maximalne zavesit hook
na odchytavanie niektorych sprav, ale to nestaci na to, aby uzivatel mohol
dalej normalne pracovat s ostatnymi GUI prvkami v aplikacii.
Mozno by sa to dalo riesit pomocou Action bands, ale asi nie v Delphi 4.
Takze Ti asi ostava jedine pouzit nejaku custom control napisanu specialne
pre toto.
V kazdom pripade to, co chces, je nestandardne spravanie, ktore bude zrejme
pre uzivatelov metuce a neprijemne.
HTH
TOndrej
Jak mit rozbalene menu behem prace?
[*] <little_bobes(zv)centrum(tec)cz> - 14.8.2002 16:36:06
Treba po urcite dobe a nebo treba nikdy.
Bob
> > potreboval bych mit rozbalene urcite menu v aplikaci, ackoliv bude
> uzivatel
> > pracovat s jinymi prvky aplikace.
>
> A kdy by se melo to menu zavrit?Jak mit rozbalene menu behem prace?
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 14.8.2002 18:50:57
A co takle list box ve stylu report jako stay on top window a mit ho "prilepeny" nekde pobliz
menu ?
Pripadne ho udelat dokovatelnym podle libosti uzivatele.
Slavek
> -----P�vodn� zpr�va-----
> Od: little_bobes(zv)centrum(tec)cz [SMTP:little_bobes(zv)centrum(tec)cz]
> Odesl�no: 14. srpna 2002 16:36
> Komu: delphi-l(zv)clexpert(tec)cz
> P�edm�t: Re: Jak mit rozbalene menu behem prace?
>
> Treba po urcite dobe a nebo treba nikdy.
>
> Bob
>
> > > potreboval bych mit rozbalene urcite menu v aplikaci, ackoliv bude
> > uzivatel
> > > pracovat s jinymi prvky aplikace.
> >
> > A kdy by se melo to menu zavrit?
>
>
>
>
>
>
>
Literatura o ClientDataSetu
[*] Redlich Software <RedlichDaniel(zv)seznam(tec)cz> - 14.8.2002 19:57:42
S ClientDataSetem jsem si hral u IB. Po prechodu na MSSQL a ADO jsem jej
zavrhnul jednak pro dublov�n� funkce - jeden klientsk� dataset u ADO, druhy
u ClientDataSet, cimz dochazelo k dlouhe dobe pri nacitani dat u seznamu.
Dale jsem mel problemy se sloupcem Identity a celkove se databasovy pristup
komplikoval. Takze jsem rezignoval na potencion�lni moznost trivrstve
architektury a pouzivam primo ADODataset.
Jedine, co mi vadi je nutnost nacist do datasetu vsechny zaznamy (alespon u
datasetu na klientovi - pri nastaveni datasetu na clUseServer zase nelze
napojit na grid)
Dan
----- Original Message -----
From: "Michal Sefcik" <sefcik(zv)benefitcz(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 14, 2002 2:08 PM
Subject: OT: Literatura o ClientDataSetu
> Prechazime od BDE pristupu k SQL databazim
> na ADO. S vyhledem k mozne trivrstvosti aplikaci
> se pokousime pracovat i s ClientDataSetem, coz
> nam zatim prinasi pouze problemy.
>
> Obracim se tedy na Vas s prosbou o vhodne odkazy
> na clanky a literaturu. Rad uvitam i postrehy z vlastni
> prace s CliDS.
>
> Posilal jsem jiz drive nekolik dotazu; odpovedi na ne
> vsak ve mne vyvolali dojem, ze tuto komponentu
> snad nikdo v realu nepouziva (master-detailovani,
> locatovani pres string-polozky,...)
>
> Za odezvu dekuji predem.
>
> ************************************************************
> Ing.Mgr. Michal Sefcik
> Benefit CZ, s.r.o.
> Hrub�ho 11, 612 00 Brno
> tel: +420 5 41219098, 9
> fax: +420 5 41215886
> http: www.benefitcz(tec)cz
> ************************************************************
>
>
Componenta event onShow (Form)
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 14.8.2002 20:54:43
Jak mam udelat v komponente TComponent provazani na udalost formshow?
Predstavoval bych si to ze bych prihodil komponentu a pri formshow by se
sama provedla nejaka akce...
Nechce se mi furt prihazovat na form proceduru.
Taky jsem zapomnel jak zjistit ze je objekt uz vytvoren. tj. je u nej
zavolano CREATE;
Nakopnete me please....
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
IBO komponenty
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 14.8.2002 22:26:00
Ahoj,
rad bych poprosil o radu uzivatele IBO komponent.
Mame IBO 4.2 Ha pro D5 SP2 na W2k. Pouzivame
komponenty z IBODataset. Pri buldiech projektu
se na ruznych mistech objevi hlaska Floating point
overflow. Ruzna mista tj. nekdy v okamziku prekladu
IB_Session, Unixpass jindy IB_Header... Na tom samem
projektu to dela na dvou PC ze tri. Nenasli jsme zadne
rozdily v nastaveni IDE. Udela to i pri primitivnim
projektu jednoho formu s IBODatabase + IBOQuery.
Prosim o nakopnuti co muzeme mit blbe nastaveneho.
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 0602 652 203
Prirucka HTM kontra Word 97
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 14.8.2002 23:35:37
Zdravim
Jelikoz to nechces slyset, neradim ti, abys zahodil word, protoze i v
kalkulacce by slo lepe tvorit html nez ve wordu.
Rada zni, neprizpusobi-li se hora mohamedovi, musi se mohamed prizpusobit
hore. Snad je to dost jasne.
Zdenek
----- Original Message -----
uz par dni se morim s psanim prirucky. Prirucka je HTML soubor obsahujici
text a
sem tam nejaky obrazek - vzhled formalare. Pisu to ve Wordu 97 (m�m Win
NT4).
Nevite nekdo, proc ten pip vsechny obrazky, ktere jsou "velke" (zrejme sirsi
nez 600
bodu) pri nacitani implicitne zmensi tak, ze maji sirku okolo 600 bodu?
Pritom to
nejde zvetsit: tazenim obrazek zvetsim, ulozim, nactu a uz je zase zmenseny.
Udelam upravu v HTML, nactu do Wordu, a ten to ignoruje a zas to ma sirku
jen 601
pixelu. V praxi by to znamenalo prirucku napoprve napsat ve Wordu, v HTML
pak
spravne nastavit velikost vsech obrazku, a pak uz to do Wordu nesmi, nebo to
zas
zmrsi.
Prosim - zadne rady typu zmen nastroj, zmen verzi apod. V dane verzi Wordu -
existuje reseni (nejake nevhodne nastaveni apod.), nebo to je bug, s kterym
se neda
nic delat?
Nazev EXE
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.8.2002 08:30:22
Ahoj,
Martin Pesava sa dotazoval na sposob
ako ziskat nazov spusteneho programu
s osetrenim velkosti pismen.
Application.ExeName a ParamStr(0) vracaju
totiz nazov aj cestu velkymi pismenami.
Vlkovic
> Mohl bych vedet, k cemu je to dobre? Proc vyhledavat soubor, o kterem vis,
> ze existuje?
>
> > function RetrieveExename: string;
> > var
> > SearchRec: TSearchRec;
> > begin
> > Result := Application.ExeName;
> > // vyhlada dotycny subor
> > if FindFirst ( Result, faAnyFile, SearchRec ) = 0 then
> > begin
> > Result := ExtractFilePath ( Application.ExeName ) + SearchRec.Name;
> > FindClose ( SearchRec );
> > end;
> > end;
Monitorovani PC
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 15.8.2002 08:50:42
Pozor na BlackBox - nelze provadet defragmentaci disku.
Mozna novejsi verze je opravena, ale pred pul rokem veskere snaky byly
zbytecne.> Na tohle jsem vid�l (�esk�) program BlackBox, monitoruje i spou�t�n�
> > Dostal jsem za ukol monitorovat praci pracovnika na PC tak aby o to
> nevedel
Zobrazeni Formu na WinXP
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 15.8.2002 09:01:45
Zdravim,
mam aplikaci, kde je chybne zobrazen hlavni Form na WinXP.
Form ma tvar jako ve Win 9x, ale ostatni formy z teto aplikace jsou jiz
normalni, tzn se zakulacenymi roky atd.
Je mozne ze tento stav je zpusoben utilitou z JclAppInst pro jedinecne
spusteni programu?
Diky Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
FreeReport - help 2
[*] Hr�a Daniel <Daniel.Hrna(zv)sme(tec)cz> - 15.8.2002 09:01:01
Pocesteny fr232 je pouze tady:
http://dh-soft(tec)czweb.org/Delphi/frf232CZ.rar
St�hni si to (nen� to visu�ln�) ..
D.
-----Original Message-----
From: Pavel Gazda [mailto:Pavel.Gazda(zv)seznam(tec)cz]
Sent: Wednesday, August 14, 2002 7:59 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: FreeReport - help 2
Ahoj,
zacal jsem se ted na to divat, tak jestli muzes posli mi tu cestinu.
Upravim ji pro 232 a poskytnu.
Jinak ti v nicem neporadim, zatim jsem se jen dival na demo.
Pavel
>PS: fr230 mame cesky ! Muzu nabidnout .... kamos si dal praci ...Jak mit rozbalene menu behem prace?
[*] <little_bobes(zv)centrum(tec)cz> - 15.8.2002 09:09:47
Zdravim,
dalo to tedy praci, ale nakonec jsem sefa presvedcil, ze to s tim menu nebyl
moc dobry napad (hura).
Udelam to tedy tak, ze pokud nejake ty dokumenty budou, zobrazi se StayOnTop
okno.
Chtel bych to ale udelat tak, ze by se zobrazila pouze "hlavicka" tohoto
okna, kde by byla vpravo klasicka tlacitka pro zavreni (krizek) nebo pro
rozbaleni (neco jako sipka dolu) (tohle asi klasicke tlacitko neni, ale snad
jste me pochopili :-).
A az po kliknuti na rozbalovaci tlacitko by se to okno "rozbalilo" cele.
Mate nekdo namety jak na to?
Diky Bob
OT: fonty s obrazky klaves pro psani dokumentace
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.8.2002 09:26:31
ahoj,
word 2000 cz, windows 2000-en prof
1/ potreboval bych poradit nejaky volne dostupny a siritelny
font s obrazky klaves. chtel bych ho pouzit v dokumentaci.
doposud pouzivame font keystroke.ttf, ale netusim odkud
pochazi a zda jej lze volne sirit. pokud uzivatel nema tento
font nainstalovany, nezobrazi se dokumentace spravne.
2/ pokud v dokumentaci zatrhnu ulozit truetype fonty do
dokumentu, nebo jaxe ta volba jmenuje, tak sice DOC naroste
cca o 800kB, ale fonty se na jinem pocitaci (word 2000 cz,
win98se cz) nezobrazi. jedine, pokud font nakopiruji do slozky
s docem, tak je to lepis (na jednom PC jo, na druhem stale ne).
kazdopadne nevim jestli mohu font takto sirit _legalne_ (zadny
copy-right-left v nem neni uveden) a stejne to neni uspokojive.
3/ sikovnou konferenci pro usery wordu nahodou neznate?
nekde jsem tu mel od MS nejaky newsy s heslama, ale nemuzu to
najit, tak alespon nejakou verejnou konferenci ci news prosim.
mnou navrhovane reseni, vyhazet pouzite znaky s tim fontem a
slovy napsat <Shift>+<F2>, <Enter>, <Ctrl>+<X> a podobne, se
nesetkalo s priznivym ohlasem. sef i kolegyne, ktera dokumentaci
spravuje mi dost vynadali, ze prej at se staram :-(
dekuji za jakoukoliv pozitivni radu
peca
StringGrid sort
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.8.2002 10:36:11
Ahoj
Ja som si pre tieto ucely napisal unitu, vid nizsie.
Vlkovic
> existuje nejaka priama metoda na zoradenie
> (sort) riadkov v StringGrid alebo to treba robit
> manualne t.j. prejst vsetky bunky a postupne vymienat?
UNIT GridSort;
INTERFACE
uses Grids;
TYPE
TStrGridCompareFunction = function ( Item1, Item2: integer ):
Integer;
PROCEDURE StringGridSort ( StringGrid: TStringGrid; RowStart, RowEnd:
integer; CompareFunction: TStrGridCompareFunction );
IMPLEMENTATION
var
FStrGridCompareFunction: TStrGridCompareFunction;
FGrid: TStringGrid;//********************************************************
procedure ExchangeItems ( Item1, Item2: Integer );
var
i: integer;
OldValue: String;
OldObject: TObject;
begin
for i := 0 to FGrid.ColCount - 1 do
begin
// vymena obsahu buniek (cells)
OldValue := FGrid.Cells[i,Item1];
FGrid.Cells[i,Item1] := FGrid.Cells[i,Item2];
FGrid.Cells[i,Item2] := OldValue;
// implementacia vymeny obsahuj objects
OldObject := FGrid.Objects[i,Item1];
FGrid.Objects[i,Item1] := FGrid.Objects[i,Item2];
FGrid.Objects[i,Item2] := OldObject;
end;
end;
//********************************************************
procedure QuickSort ( iBeg, iEnd: Integer );
var
I, J, M: Integer;
begin
I := iBeg;
J := iEnd;
M := (iBeg + iEnd) shr 1;
REPEAT
while FStrGridCompareFunction ( I, M ) < 0 do
Inc(I);
while FStrGridCompareFunction ( J, M ) > 0 do
Dec(J);
if I <= J then
begin
ExchangeItems ( I, J );
if I = M then
M := J else
if J = M then
M := I; // keeeping VALUE is absolutely necessary
Inc(I);
Dec(J);
end;
UNTIL I > J;
if J > iBeg then
QuickSort ( iBeg, J );
if I < iEnd then
QuickSort ( I, iEnd );
end;
//********************************************************
procedure StringGridSort ( StringGrid: TStringGrid; RowStart, RowEnd:
integer; CompareFunction: TStrGridCompareFunction );
begin
FStrGridCompareFunction := CompareFunction;
FGrid := StringGrid;
QuickSort ( RowStart, RowEnd );
end;
*****************
Priklad pouzitia:
*****************// priklad porovnavacej funkcie pre triedenie
function SortGridCompare ( Item1, Item2: integer ): Integer;
begin
with StringGrid1 do
Result := AnsiCompareStr ( Cells[SortColumn,Item1],
Cells[SortColumn,Item2] );
end;
// ukazka triedenia stringgridu:
StringGridSort ( StringGrid1, 0, StringGrid1.RowCount - 1,
SortGridCompare );
Re[2]: Zjisteni verze
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 15.8.2002 10:49:45
Hello Parizsky,
Wednesday, August 14, 2002, 3:04:43 PM, you wrote:
PL> Mam na to fci:
PL> function GetFileVersion(Soubor: String): String;
PL> const
PL> VerFixedInfo: PChar = '\';
PL> var
PL> Size : DWORD;
PL> Sz : ULONG;
PL> Handle: THandle;
PL> Buffer: string;
PL> FFixedBuffer: PVSFixedFileInfo;
PL> begin
PL> Size := GetFileVersionInfoSize(PChar(Soubor), Handle);
PL> if Size > 0 then
PL> begin
PL> SetLength(Buffer, Size);
PL> GetFileVersionInfo(PChar(Soubor), Handle, Size, PChar(Buffer));
PL> end;
PL> VerQueryValue(PChar(Buffer), VerFixedInfo, Pointer(FFixedBuffer), Sz);
PL> with FFixedBuffer^ do
PL> begin
PL> Result:= IntToStr(dwFileVersionMS shr 16) + '.';
PL> Result:= Result + IntToStr(dwFileVersionMS and $FFFF) + '.';
PL> Result:= Result + IntToStr(dwFileVersionLS shr 16) + '.';
PL> Result:= Result + IntToStr(dwFileVersionLS and $FFFF);
PL> end;
PL> end;
PL> Ladap
jo diky to jsem hledal. pridam si to hned do sve SourceCode Library
Diky Milan
>>>> vymazal.milan(zv)seznam(tec)cz 14.8. 2002 9:54:18 >>>
PL> Zdravim
PL> jak zjistim , teda spise vytahnu informace o verzi ci vyrobci
PL> napriklad z .dll .ocx nebo .exe
PL> DIky milan
--
Best regards,
Vymazal mailto:vymazal.milan(zv)seznam(tec)cz
fonty s obrazky klaves pro psani dokumentace
[*] Karel Du�ek <Karel.Dusek(zv)oku-tu(tec)cz> - 15.8.2002 11:18:10
Nevim jestli ti to bude k necemu dobre, ale ja toto resim pres vkladani
obrazku. Pres <Print Screen> si ulozim vzhled spusteneho programu do
programu, ktery umi pracovat s BMP. Pak jen vystrihuji popisovane casti
programu a vkladam je do dokumentace.
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
To: "DELPHI Konference (el. adresa)" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, August 15, 2002 9:26 AM
Subject: OT: fonty s obrazky klaves pro psani dokumentace
> ahoj,
>
> word 2000 cz, windows 2000-en prof
>
> 1/ potreboval bych poradit nejaky volne dostupny a siritelny
> font s obrazky klaves. chtel bych ho pouzit v dokumentaci.
> doposud pouzivame font keystroke.ttf, ale netusim odkud
> pochazi a zda jej lze volne sirit. pokud uzivatel nema tento
> font nainstalovany, nezobrazi se dokumentace spravne.
>
> 2/ pokud v dokumentaci zatrhnu ulozit truetype fonty do
> dokumentu, nebo jaxe ta volba jmenuje, tak sice DOC naroste
> cca o 800kB, ale fonty se na jinem pocitaci (word 2000 cz,
> win98se cz) nezobrazi. jedine, pokud font nakopiruji do slozky
> s docem, tak je to lepis (na jednom PC jo, na druhem stale ne).
> kazdopadne nevim jestli mohu font takto sirit _legalne_ (zadny
> copy-right-left v nem neni uveden) a stejne to neni uspokojive.
>
> 3/ sikovnou konferenci pro usery wordu nahodou neznate?
> nekde jsem tu mel od MS nejaky newsy s heslama, ale nemuzu to
> najit, tak alespon nejakou verejnou konferenci ci news prosim.
>
> mnou navrhovane reseni, vyhazet pouzite znaky s tim fontem a
> slovy napsat <Shift>+<F2>, <Enter>, <Ctrl>+<X> a podobne, se
> nesetkalo s priznivym ohlasem. sef i kolegyne, ktera dokumentaci
> spravuje mi dost vynadali, ze prej at se staram :-(
>
> dekuji za jakoukoliv pozitivni radu
>
> peca
>
>
Uvodzovky vo firebirde
[*] miro mrazik <preas_w(zv)stonline.sk> - 15.8.2002 11:46:31
Ahoj,
neviem prist na to akym znakom mam nahradit uvodzovkky - "
Potrebujem pomocou Insert vlozit textovu hodnotu, ktora v sebe obsahuje
tieto uvodzovky a tym mi to hadze chybu.
Viete mi poradit?
Diky Miro
Uvodzovky vo firebirde
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 15.8.2002 12:07:49
Nepomohlo by podobne jako u apostrofu zdvojeni? Jinak se mi
osvedcilo insertem vlozit prazdny zaznam jen s PK a nasledne
updatem zapsat obsah. Update je na ruzne specificke znaky jako
treba strednik ve stringu trochu mene haklivy.
On 15 Aug 2002 at 11:46, miro mrazik wrote:
> neviem prist na to akym znakom mam nahradit uvodzovkky - "
> Potrebujem pomocou Insert vlozit textovu hodnotu, ktora v sebe
> obsahuje tieto uvodzovky a tym mi to hadze chybu. Viete mi poradit?
Uvodzovky vo firebirde
[*] Kalus Jozef Ing. <jozef.kalus(zv)spordat.sk> - 15.8.2002 13:08:01
v oracle sa nieco take vklada tak ze zapisujem string v tvare
'aksaksh'+chr(uvodzovky-cislo zo znakovej sady)+'skdjlask'
ale mozno sa to tu da nejako obist :o)
joka
-----Original Message-----
From: miro mrazik [mailto:preas_w(zv)stonline.sk]
Sent: Thursday, August 15, 2002 11:47 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Uvodzovky vo firebirde
Ahoj,
neviem prist na to akym znakom mam nahradit uvodzovkky - "
Jak mit rozbalene menu behem prace?
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.8.2002 13:24:15
> Chtel bych to ale udelat tak, ze by se zobrazila pouze
> "hlavicka" tohoto okna, kde by byla vpravo klasicka
..............
no, nejak mi asi unika, jak to myslis. puvodne jsem si myzlel,
ze chces cast menu vytahnout jako toolbar (nekdo psal ze to
snad vlastnost ve wirXP). pak bych si do menu pridal volbu
toolbar (nebo jiny sef_friendly nazev ;), ktera by mi aktivovala
nejaky form nebo panel s tlacitky.
kdysi jsem delal nejakej pane nastroju, ale bylo hrozne zpraseny,
jeste vubec netusil o nejakych toolbarech, controlbarech a pod.
dneska bych pouzil nejakej actioncosi, nebo jak je to ted novy v
D6.
kazdopadne to co chces bych udelal jako form stay on top, ale bez
ramu a zahlavi a nahoru si umistil svoje tlacitka. nejsem si jisty,
jak z formu odstranit tu horni listu, ale napada me, ze jsem nekde
videl komponentu, ktera umela pridat tlacitko vedle tech systemovejch
(min, max, close). toz asi tak.
peca
Uvodzovky vo firebirde
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 15.8.2002 13:25:15
Uvozovky by se meli zrejme zdvojit, aspon me to tak fungovalo u
jednoduchych.
Ale obecne bych do SQL nedaval data primo ale pres parametry:
Query.Sql.Text := 'INSERT INTO tabulka (text) VALUES (:text)';
Query.ParamByName ('text').AsString := '"text"';
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Thursday, August 15, 2002, 11:46:31 AM, you wrote:
mm> Ahoj,
mm> neviem prist na to akym znakom mam nahradit uvodzovkky - "
mm> Potrebujem pomocou Insert vlozit textovu hodnotu, ktora v sebe obsahuje
mm> tieto uvodzovky a tym mi to hadze chybu.
mm> Viete mi poradit?
mm> Diky Miro
Uvodzovky vo firebirde
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.8.2002 13:31:47
ted to zkousim, a normalne
insert into MojeTabulka
(sloupec1, sloupec2)
values
(1, 'nejaky text s " (uvozovkou)')
v pohode
peca
Uvodzovky vo firebirde
[*] <tuffi(zv)email(tec)cz> - 15.8.2002 13:38:18
Skus pred ty uvozovky dat \. Myslim ze se da neco ohledne tohodle nastavit v odbc
--- P�vodn� zpr�va ---
Od: "miro mrazik" <preas_w(zv)stonline.sk>
Datum: 15.08.2002 13:11:11
Ahoj,
neviem prist na to akym znakom mam nahradit uvodzovkky - "
Potrebujem pomocou Insert vlozit textovu hodnotu, ktora v sebe obsahuje
tieto uvodzovky a tym mi to hadze chybu.
Viete mi poradit?
Diky Miro
______________________________________________________________________________
Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
http://www.Email(tec)cz <------------Po�ta zdarma!Rozdil D4 a D6
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 15.8.2002 15:47:11
Ahoj,
umi mi nekdo vysvetlit, proc v D4Std nasledujici kod funguje a v D6Pro
vyhazuje na radku AssignFile(Soubor, FJmeno) access violation. Prostredi je
W2K.
Dik. Jara
procedure TForm1.Proved(FJmeno: PChar);
var Soubor : TextFile;
begin
AssignFile(Soubor, FJmeno);
Rewrite(Soubor);
CloseFile(Soubor);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Proved('Test.txt');
end;fonty s obrazky klaves pro psani dokumentace
[*] Zden�k �t�p�nek�����^��ޏ����� - 15.8.2002 17:13:59
Zdravim
No, ja myslim, ze udelat v malovani neco kolem 30 obrazku neni moc prace.
Ale pokud chces font a nesezenes ho, udelej si vlastni. Mel jsem na to
program, ale uz je pryc, bohuzel uz ani netusim, jak se jemnoval .Vim jen
to, ze byl free a mohl sis tam pismenko po pismenku namalovat jako
vektorovou grafiku. Zkus to najit na slunecnici nebo ve vyhledavaci. Bylo to
anglicky. Mam tuseni, ze jsem to nasel na CD Computeru, asi rok zpatky.
Zdenek
----- Original Message -----
> > 1/ potreboval bych poradit nejaky volne dostupny a siritelny
> > font s obrazky klaves. chtel bych ho pouzit v dokumentaci.
> > doposud pouzivame font keystroke.ttf, ale netusim odkud
> > pochazi a zda jej lze volne sirit. pokud uzivatel nema tento
> > font nainstalovany, nezobrazi se dokumentace spravne.
> >
> > 2/ pokud v dokumentaci zatrhnu ulozit truetype fonty do
> > dokumentu, nebo jaxe ta volba jmenuje, tak sice DOC naroste
> > cca o 800kB, ale fonty se na jinem pocitaci (word 2000 cz,
> > win98se cz) nezobrazi. jedine, pokud font nakopiruji do slozky
> > s docem, tak je to lepis (na jednom PC jo, na druhem stale ne).
> > kazdopadne nevim jestli mohu font takto sirit _legalne_ (zadny
> > copy-right-left v nem neni uveden) a stejne to neni uspokojive.
> >
> > 3/ sikovnou konferenci pro usery wordu nahodou neznate?
> > nekde jsem tu mel od MS nejaky newsy s heslama, ale nemuzu to
> > najit, tak alespon nejakou verejnou konferenci ci news prosim.
> >
> > mnou navrhovane reseni, vyhazet pouzite znaky s tim fontem a
> > slovy napsat <Shift>+<F2>, <Enter>, <Ctrl>+<X> a podobne, se
> > nesetkalo s priznivym ohlasem. sef i kolegyne, ktera dokumentaci
> > spravuje mi dost vynadali, ze prej at se staram :-(
ListBox itemchange
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 15.8.2002 22:01:49
Ahoj potreboval bych odchytavat stav kdy prechazim z polozky na polozku v
ListBoxu, pripadne jinou komponentu ktera tuhle udalost odchytava,nebo jak
to resite vy? Prosil bych neco cisteho,ne nejake to onclick a keydown,to mi
neprijde koscher
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
StringGrid sort
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.8.2002 22:07:44
Na www.torry.net jsem dnes zahledl spoustu potomku TStringGrid, kteri
umi trideni. Dokonce tab byly nejake unity, kterym se predhodil
StringGrid a ony jej setridily. Zadej do hledani: sort
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
> existuje nejaka priama metoda na zoradenie
> (sort) riadkov v StringGrid alebo to treba robit
> manualne t.j. prejst vsetky bunky a postupne vymienat?
Prevod desatinnych cisiel do retazcov
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 15.8.2002 22:30:24
Vcera som asi hodinu stravil tym, ze som hladal vkonferencii kvalitne
prevadzanie des. cisiel do retazcov. Kedze som nic uspokojive nenasiel, tak
som vytvoril vlastne funkcie a uverejnil som ich na stranke
www.martinkasman.host.sk.
Tie prevedu napriklad cislo
1.5234E3 na '1 523,4'
alebo
1.5234E20 na '1,523 4.10^20'
alebo so zaokruhlenim na dve cisla
1.3502 na '1,36'
samozrejme je tu aj funkcia, ktora takyto retazec dokaze vratit spat, pritom
prevedie aj klasicky retazec (napr. '1.5234E20') spat na cislo.
PS: mimo ine je k tymto funkciam potrebna aj funkcia OdstranNuly, ktora sa
tu tiez nachadza. Ta bola poupravena k voli tymto novym funkciam, takze ak
ste si ju uz predtym odtialto stiahli, musite to urobit znovu.Konverze stringu z D6 DFM do Ansi
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 16.8.2002 00:59:12
Lze nejakym jednoduchym zpusobem prevest retezec (ziskany napr. z DFM v D6)
do ANSI kodovani (nemyslim tim zrovna nutne CP1250) ?
Priklad
'Zalo'#382'eno'
prevest na
Zalozeno (kde z s hackem ma pro CP 1250 kod 158)
Tomas
Rozdil D4 a D6
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.8.2002 05:43:28
A proc mas parametr v AssignFile jako PChar, kdyz jako parametr funkce
ma jit string ?
Mela by se provest defaultni konverze, ale...
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
15.8.2002 SPELZA s.r.o.:
> Ahoj,
> umi mi nekdo vysvetlit, proc v D4Std nasledujici kod funguje a v D6Pro
> vyhazuje na radku AssignFile(Soubor, FJmeno) access violation. Prostredi je
> W2K.
> procedure TForm1.Proved(FJmeno: PChar);
> var Soubor : TextFile;
> begin
> AssignFile(Soubor, FJmeno);
> Rewrite(Soubor);
> CloseFile(Soubor);
> end;
Prevod desatinnych cisiel do retazcov
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.8.2002 05:45:31
> alebo so zaokruhlenim na dve cisla
> 1.3502 na '1,36'
Doufam, ze to je preklep. Takove zaokrouhleni by se mi vubec nelibilo.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
15.8.2002 Martin Kasman:
> Vcera som asi hodinu stravil tym, ze som hladal vkonferencii kvalitne
> prevadzanie des. cisiel do retazcov. Kedze som nic uspokojive nenasiel, tak
> som vytvoril vlastne funkcie a uverejnil som ich na stranke
> www.martinkasman.host.sk.
> Tie prevedu napriklad cislo
> 1.5234E3 na '1 523,4'
> alebo
> 1.5234E20 na '1,523 4.10^20'
> alebo so zaokruhlenim na dve cisla
> 1.3502 na '1,36'
> samozrejme je tu aj funkcia, ktora takyto retazec dokaze vratit spat, pritom
> prevedie aj klasicky retazec (napr. '1.5234E20') spat na cislo.
> PS: mimo ine je k tymto funkciam potrebna aj funkcia OdstranNuly, ktora sa
> tu tiez nachadza. Ta bola poupravena k voli tymto novym funkciam, takze ak
> ste si ju uz predtym odtialto stiahli, musite to urobit znovu.
OT: XP a DOS
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 16.8.2002 07:03:23
U jednoho zakaznika na XP Home bezi dve (bohuzel klicove) DOSovske ulohy
napsane v PC Fandu. Behem dne se jejich beh postupne spomali az k
neunosnosti. Kdyz se vypnou a zapnou zase fungujou OK. V jinych OS je vse v
poradku. Neznate nekdo pricinu , pripadne reseni tohoto problemu?
Vasek
OT: XP a DOS
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.8.2002 07:15:01
Bude to asi tim, ze maji pridelenou automatickou velikost pameti a
postupne jsou vytlacovany na swap file.
Doporucuji u zastupce, kterym se program spousti nastavit u XMS a DPMI
limit tak 4MB, EMS vypnout uplne. PC Fand presne neznam, ale mohlo by
mu to stacit. Spis bude mit problemy s nadmernym mnozstvim pameti
(pomaly start + popisovane problemy)
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
16.8.2002 Vaclav Riha - Soft Consult:
> U jednoho zakaznika na XP Home bezi dve (bohuzel klicove) DOSovske ulohy
> napsane v PC Fandu. Behem dne se jejich beh postupne spomali az k
> neunosnosti. Kdyz se vypnou a zapnou zase fungujou OK. V jinych OS je vse v
> poradku. Neznate nekdo pricinu , pripadne reseni tohoto problemu?
ListBox itemchange
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 16.8.2002 08:14:43
> Ahoj potreboval bych odchytavat stav kdy prechazim z polozky na polozku v
> ListBoxu, pripadne jinou komponentu ktera tuhle udalost odchytava,nebo jak
> to resite vy? Prosil bych neco cisteho,ne nejake to onclick a keydown,to
mi
> neprijde koscher
Nevim, co mas proti OnClick:
VCL Help:
This event can also occur when
. The user selects an item in a grid, outline, list, or combo box by
pressing an arrow key.
Roman
==============================
http://kouzelne.misto(tec)cz
IB/FB jako lokalni DB stroj
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.8.2002 09:22:37
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
> pokud spustis server na jinem portu
> nez 3050 (3051), mohlo by to fungovat.
Tomuhle nerozumim: co vim, tak se IB instaluje na platforme NT vzdy jako
service (napr. pomoci command line utility instsvc.exe). A ta mi nedovoli
nainstalovat IB server 2x (Error occured during "CreateService")
Ty umis spustit/nainstalovat druhy IB server?> a proc vlastne nevyuzit pripadny jiz bezici server?
> kvuli kolizi verzi?
Jo, protoze potrebuju s aplikaci predinstaloval znacne rozsahlou DB a nechci
to delat pres restore.
Bye, pf
IB/FB jako lokalni DB stroj
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.8.2002 09:28:31
From: "Skopalik Slavomir" <skopalik(zv)hlubocky.del(tec)cz>
> Yafill by neco takoveho mozna mohl umet.
> Ale vse je v rustine.
No prave...
Sice jsem se ji ucil mnoho let a leccemus rozumim, ale prece jenom
pocitacova technicka rustina je pro mne za hranici srozumitelnosti.
Bye, pf
Pretazeni okna za objekt
[*] Andrle Pavel <Andrle(zv)asd-software(tec)cz> - 16.8.2002 11:04:50
Zdravim, mohl by mi nekdo poradit jak posouvat s oknem, ve kterem je
zobrazen pouze panel (nebo groubbox). Zbytek okna neni videt. Potrebuji
pretahnout okno, pokud ho chytim za tento panel. Diky.
OT: XP a DOS
[*] Richard Siegl <rsiegl(zv)elas.sk> - 16.8.2002 10:14:33
No ja by som este navrhol skusit nastavit spustanie tych aplikacii.
V Xp je mozne nastavit spustat ako "Win 95,WinNT atd"
Rickie
----- Original Message -----
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, August 16, 2002 6:15 AM
Subject: Re: OT: XP a DOS
> Bude to asi tim, ze maji pridelenou automatickou velikost pameti a
> postupne jsou vytlacovany na swap file.
> Doporucuji u zastupce, kterym se program spousti nastavit u XMS a DPMI
> limit tak 4MB, EMS vypnout uplne. PC Fand presne neznam, ale mohlo by
> mu to stacit. Spis bude mit problemy s nadmernym mnozstvim pameti
> (pomaly start + popisovane problemy)
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 16.8.2002 Vaclav Riha - Soft Consult:
> > U jednoho zakaznika na XP Home bezi dve (bohuzel klicove) DOSovske ulohy
> > napsane v PC Fandu. Behem dne se jejich beh postupne spomali az k
> > neunosnosti. Kdyz se vypnou a zapnou zase fungujou OK. V jinych OS je
vse v
> > poradku. Neznate nekdo pricinu , pripadne reseni tohoto problemu?
>
>
Nastaveni systemoveho data pod WinXP
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 16.8.2002 12:10:14
Zdravim Konference,
resim problem s kterym se jiz urcite nekdo setkal
- Nastaveni systemoveho datumu pod winXp
mohl by ste mi prosim poradit
(kousek zdrojacku je vitan)
Predem diky
Jiri Betunak
D5 pro,WinMe ,WinXP
Kindrik(zv)centrum(tec)cz
Pretazeni okna za objekt
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 16.8.2002 12:35:47
> Zdravim, mohl by mi nekdo poradit jak posouvat s oknem,
> ve kterem je zobrazen pouze panel (nebo groubbox).
> Zbytek okna neni videt.
> Potrebuji pretahnout okno, pokud ho chytim za tento panel.
Panel by mal na WM_NCHITTEST odpovedat HTTRANSPARENT. Tym padom Windows
posle tuto spravu parentovi, ktory by mal potom odpovedat HTCAPTION.
Ten panel sa da riesit bud odvodenim novej triedy, alebo subclassnutim za
behu programu. Nasledovny priklad je ten druhy pripad. BorderStyle formulara
je nastaveny na bsNone.
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FPanelWindowProc: TWndMethod;
procedure PanelWindowProc(var Message: TMessage);
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 private }
procedure TForm1.PanelWindowProc(var Message: TMessage);
begin
case Message.Msg of
WM_NCHITTEST:
with TWMNCHitTest(Message) do
Result := HTTRANSPARENT;
else
FPanelWindowProc(Message);
end;
end;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
Message.Result := HTCAPTION;
end;
{ TForm1 event handlers }
procedure TForm1.FormCreate(Sender: TObject);
begin
FPanelWindowProc := Panel1.WindowProc;
Panel1.WindowProc := PanelWindowProc;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Panel1.WindowProc := FPanelWindowProc;
FPanelWindowProc := nil;
end;
HTH
TOndrej
Pretazeni okna za objekt
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 16.8.2002 12:36:40
Do OnMouseDown panelu dat:
const
SysMoveCommand = $F012;
begin
Form1.Perform (WM_SYSCOMMAND, SysMoveCommand, 0);
end;
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
Friday, August 16, 2002, 11:04:50 AM, you wrote:
AP> Zdravim, mohl by mi nekdo poradit jak posouvat s oknem, ve kterem je
AP> zobrazen pouze panel (nebo groubbox). Zbytek okna neni videt. Potrebuji
AP> pretahnout okno, pokud ho chytim za tento panel. Diky.
Pretazeni okna za objekt
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 16.8.2002 12:42:36
Staci odchytit zpravu WM_NCHITTEST toho formu a vnutit ji vysledek myslim
htCaption. Pak si budou Windows myslet, ze se taha za titulkovy pruh.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
> Subject: Pretazeni okna za objekt
>
> Zdravim, mohl by mi nekdo poradit jak posouvat s oknem, ve kterem je
> zobrazen pouze panel (nebo groubbox). Zbytek okna neni videt. Potrebuji
> pretahnout okno, pokud ho chytim za tento panel. Diky.
Udalosti v DCOM, Pomoooc !
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 16.8.2002 13:16:21
Ahoj,
ma nekdo nejake prakticke zkusenosti s eventama mezi 2 COM objekty ?
Opravdu uz nevim, kde delam chybu, protoze kdyz mam pocitace v mistni
siti, tak komunikace probiha bez problemu (predpokladam, ze server bezi
s identitou uctu klienta).
Problem nastava pokud pocitace spojim vytacenou linkou, tak server se sice
vytvori, ale nepripoji se k udalostnimu rozhrani (Cookie=0).
Mam takovy dojem, ze se to nestihne pripojit do nejakeho casu a pak se to
odstreli.
Je metodika zpetneho volani pres udalostni rozhrani v praxi vubec pouzitelna
?
Trosku jsem si upravil priklad z Mistrovstvi v Delphi 6 a opravdu nevim, kde
by mohla byt chyba, protoze uvedeny prikladek jsem skoro uplne opsal a zda
se mi, ze na nem neni nic sloziteho. V pravech chyba byt take nemuze,
protoze
se to obcas pripoji, ale vetsinou ne.
Potreboval bych alespon vedet, jestli to nekdy nekomu po modemu fungovalo.
OS : Win 2000 server nebo profesional, Delphi 5.0
Diky za kazdou radu
S pozdravem
Richard Kejval
Oddelovac tisicu
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 16.8.2002 13:40:07
Nevite nekdo jak programove zrusit oddelovac tisicu? Promenna
ThousendSeparator je typu Char a tudiz do ni nejde dat prazdny string.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 02/2431 2344-5 (po precislovani 22431 2344-5)
fax: 02/3552 2892 (po precislovani 23552 2892)
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 069/663 5687 (po precislovani 59663 5687)
Udalosti v DCOM, Pomoooc !
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 16.8.2002 13:49:23
----- Original Message -----
From: "Richard Kejval" <kejval.delphi(zv)centrum(tec)cz>
To: "Konference Delphi" <DELPHI-L(zv)CLEXPERT.CZ>
Sent: Friday, August 16, 2002 1:16 PM
Subject: Udalosti v DCOM, Pomoooc !>
> Ahoj,
>
> ma nekdo nejake prakticke zkusenosti s eventama mezi 2 COM objekty ?
>
> Opravdu uz nevim, kde delam chybu, protoze kdyz mam pocitace v mistni
> siti, tak komunikace probiha bez problemu (predpokladam, ze server bezi
> s identitou uctu klienta).
>
> Problem nastava pokud pocitace spojim vytacenou linkou, tak server se sice
> vytvori, ale nepripoji se k udalostnimu rozhrani (Cookie=0).
>
> Mam takovy dojem, ze se to nestihne pripojit do nejakeho casu a pak se to
> odstreli.
>
> Je metodika zpetneho volani pres udalostni rozhrani v praxi vubec
pouzitelna
> ?
> Trosku jsem si upravil priklad z Mistrovstvi v Delphi 6 a opravdu nevim,
kde
> by mohla byt chyba, protoze uvedeny prikladek jsem skoro uplne opsal a zda
> se mi, ze na nem neni nic sloziteho. V pravech chyba byt take nemuze,
> protoze
> se to obcas pripoji, ale vetsinou ne.
>
> Potreboval bych alespon vedet, jestli to nekdy nekomu po modemu fungovalo.
> OS : Win 2000 server nebo profesional, Delphi 5.0
>
> Diky za kazdou radu
>
>
> S pozdravem
> Richard Kejval
95 % problemu s DCOM je v nastaveni prav. Neni problem v tom ?
Radim
Oddelovac tisicu
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 16.8.2002 13:49:50
A zkousel jsi tam dat #0 ?
Ales
> -----Original Message-----
> From: Jaroslav Nadhera [mailto:nadhera(zv)csh(tec)cz]
>
> Nevite nekdo jak programove zrusit oddelovac tisicu? Promenna
> ThousendSeparator je typu Char a tudiz do ni nejde dat prazdny string.
Oddelovac tisicu
[*] K�tele� J�n <Koteles(zv)lumen.sk> - 16.8.2002 13:52:07
ani chr(0) ?
-----Original Message-----
From: Jaroslav Nadhera [mailto:nadhera(zv)csh(tec)cz]
Sent: Friday, August 16, 2002 1:40 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Oddelovac tisicu
Nevite nekdo jak programove zrusit oddelovac tisicu? Promenna
ThousendSeparator je typu Char a tudiz do ni nejde dat prazdny string.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 02/2431 2344-5 (po precislovani 22431 2344-5)
fax: 02/3552 2892 (po precislovani 23552 2892)
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 069/663 5687 (po precislovani 59663 5687)
Vysledek dvou Query do jednoho DBGridu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 16.8.2002 14:24:22
Jak docilim %SUBJ%, pokud to tedy vubec lze ... predstavuju si napr. ve
dvou sloupcich budou vysledku dotazu Query1 a v dalsich vysledky Query2 ..
Dik Radek
Vysledek dvou Query do jednoho DBGridu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 16.8.2002 14:28:32
> Jak docilim %SUBJ%, pokud to tedy vubec lze ... predstavuju si napr. ve
> dvou sloupcich budou vysledku dotazu Query1 a v dalsich vysledky Query2 ..
Mohlo by jit pomoci Lookup nebo Calculated fields.
Roman
==============================
http://kouzelne.misto(tec)cz
Oddelovac tisicu
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 16.8.2002 14:36:38
Jenom zkousim, ale syntakticky mi proslo:
ThousandSeparator := #0;
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> Nevite nekdo jak programove zrusit oddelovac tisicu? Promenna
Oddelovac tisicu
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 16.8.2002 14:47:58
> Nevite nekdo jak programove zrusit oddelovac tisicu? Promenna
> ThousendSeparator je typu Char a tudiz do ni nejde dat prazdny string.
A je takovy problem kouknout do helpu ? !!!
ThousandSeparator is the character used to separate thousands
in numbers with more than three digits to the left of the decimal separator.
A value of #0 indicates that no thousand separator character should be
output, even if the format string specifies it. The initial value is fetched
from LOCALE_STHOUSAND.
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.Memo co vie "syntax highlight"
[*] Lubomir Fule <fule(zv)humansoft.sk> - 16.8.2002 14:52:39
Zdravim,
nepoznate nejaku free komponentu podobnu TMemo, co by vedela robit syntax
highlight SQL jazyka?
Vdaka
L.
Oddelovac tisicu
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 16.8.2002 15:03:39
>A zkousel jsi tam dat #0 ?
Zkousel. To se tam dat jako oddelovac #0 a to mi taky vadi.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 02/2431 2344-5 (po precislovani 22431 2344-5)
fax: 02/3552 2892 (po precislovani 23552 2892)
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 069/663 5687 (po precislovani 59663 5687)
Memo co vie "syntax highlight"
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 16.8.2002 15:17:06
QmFs7WsgU3luRWRpdCwga29tcG9uZW50YSBUU3luTWVtbw0KaHR0cDovL3N5bmVkaXQuc291cmNl
Zm9yZ2UubmV0Lw0KLS0gDQpKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjE2
LjguMjAwMiBMdWJvbWlyIEZ1bGU6DQo+IG5lcG96bmF0ZSBuZWpha3UgZnJlZSBrb21wb25lbnR1
IHBvZG9ibnUgVE1lbW8sIGNvIGJ5IHZlZGVsYSByb2JpdCBzeW50YXgNCj4gaGlnaGxpZ2h0IFNR
TCBqYXp5a2E/
Tlacitko biHelp
[*] SPELZA s.r.o. <spelza(zv)spelza(tec)cz> - 16.8.2002 15:32:40
Ahoj,
pri pouziti tlacitka s otaznikem na okraji formulare se mi help otevira do
noveho helpovskeho okna. Nevite jak ho donutit aby se otevrel pouze do popup
okna podobne jako hint?
Dik. Jara
OT- zdielanie vo Windows 2000/XP
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.8.2002 16:20:28
Hello Delphi CZ konferencia!
Ako mozem nastavit urcity adresar aby ho mohli vsetci vidiet, t.j. aj
ty ktorych nemam zozname uzivatelov v danom systeme. Pridu v i-kaviarni
za PC a prihlasia sa ako sa podari, ale aby sa dostali na server do
jedneho adresara kde najdu rozny shareware,freeware,linky,...
--
Best regards, TRoland
Re[2]: Vysledek dvou Query do jednoho DBGridu
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.8.2002 16:21:16
<<< 16. 8. 2002 16:14 - Roman "sw.maurice(zv)seznam(tec)cz" >>>
>> Jak docilim %SUBJ%, pokud to tedy vubec lze ... predstavuju si napr. ve
>> dvou sloupcich budou vysledku dotazu Query1 a v dalsich vysledky Query2 ..
skus v SQL "Select Fields from TABLE Union all Select fields from TABLE2"
--
Best regards, TRoland
Znate nejaky kvalitni (ale free) resource editor?
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 16.8.2002 16:33:24
Ahoj,
shanim nejaky resource editor typu Resource Builder, ale licenovany jako
freeware. Zejmena potrebuji, aby umoznoval tvorbu menu a dialogu. Kdo o
necem vi, necht mi prosim poradi...
Frankie Y
ListBox itemchange
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 16.8.2002 19:04:07
Aldik se nebrani:
To jsme si nerozumneli:-) proti click nic,jen mi prijde dost PIP pouzivat
click,kdyz popolozkach se muzes posouvat i sipkama,napadlo me jestli se na
kontrolu pohybu polozek nepouziva jinak komponenta nez je ListBox...chapes??
Proste mi neslo do hlavy proc tu neni ItemChange...:-)))
No nic nemam to rad,ale udelam to na i odchyt klaves....
Aldik
Roman chrli VCL Help:
This event can also occur when
. The user selects an item in a grid, outline, list, or combo box by
pressing an arrow key.
Roman
==============================
http://kouzelne.misto(tec)cz
ListBox itemchange
[*] MarekFi <MarekFi(zv)centrum(tec)cz> - 16.8.2002 20:20:54
Ahoj!
Nechapu. Kdyz se po polozkach TL:istBox pohybuji sipkama tak se mi vola OnClick.
(Zkouseno na D4STD) Tak proc odchytavat ty klavesy?
Marek
Ales Pavel wrote:
> Aldik se nebrani:
> To jsme si nerozumneli:-) proti click nic,jen mi prijde dost PIP pouzivat
> click,kdyz popolozkach se muzes posouvat i sipkama,napadlo me jestli se na
> kontrolu pohybu polozek nepouziva jinak komponenta nez je ListBox...chapes??
> Proste mi neslo do hlavy proc tu neni ItemChange...:-)))
>
> No nic nemam to rad,ale udelam to na i odchyt klaves....
>
> Aldik
>
> Roman chrli VCL Help:
> This event can also occur when
> . The user selects an item in a grid, outline, list, or combo box by
> pressing an arrow key.
>
> Roman
> ==============================
> http://kouzelne.misto(tec)cz
Jak poslat stisk hotkey do cizi aplikace ??
[*] tomsir1.edu(zv)mail.cez(tec)cz - 16.8.2002 21:33:40
Ahoj,
potreboval bych pomoci se %SUBJ%.
Cely vecer jsem si hral s posilanim messages , bohuzel asi nejsem schopen
sestavit parametry message. Predpokladam ze musim posilat
SendMessage(handle_cizi_app, WM_HOTKEY, ..., ...)
Diky za pomoc a namety
Radek
USB Kamera
[*] Ladislav �ejka <cejka(zv)kassoft(tec)cz> - 17.8.2002 00:59:54
Ahoj vsichni.
Po precteni prispevku v konferenci, jsem se dozvedel ze rizeni USB kamery se
provadi za pomoci ovladace Twain. Po stazeni Specifikace Twainu (552 stran),
jsem zjistil, ze bez nakopnuti nekoho, kdo se s timto problemem zaobiral, je
rizeni kamery otazkou minimalne petiletky. Moc vsechny prosim o radu jak se
s timto problemem vyporadat.
Mam webovou kameru znacky Philips a potreboval bych s ni komunikovat. Obraz
z kamery se ma zobrazit ve formulari, v Delphi. Potom bych potreboval cist
barvu jednotlivych pixelu a tu nasledne vyhodnocovat. Obraz kamery by se
nemel nikde ukladat. Za odpoved predem dekuji.
S
pozdravem Lada
Odpoved mi prosim zaslete na muj e-mail cejka(zv)kassoft(tec)cz
ListBox itemchange
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 17.8.2002 09:07:49
FAAAAKKKKKKTTTT TO MI NIKDO NEREKL.....:-))) myslel jsem ze je to logicky
jinaaac..diky jdu to zkusit....
Aldik
Nechapu. Kdyz se po polozkach TL:istBox pohybuji sipkama tak se mi vola
OnClick.
(Zkouseno na D4STD) Tak proc odchytavat ty klavesy?
Marek
USB Kamera
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 17.8.2002 09:51:25
From: Ladislav �ejka
> ... rizeni USB kamery se provadi za pomoci ovladace Twain.
> Po stazeni Specifikace Twainu (552 stran), jsem zjistil,
> ze bez nakopnuti nekoho, kdo se s timto problemem zaobiral,
> je rizeni kamery otazkou minimalne petiletky.
V balicku VCL komponent SINEA
http://www.sinea(tec)cz/default.asp?page=50
(soubory SiVclX.ZIP) je komponenta
TScanerSinea, ktera pracuje s rozhranim TWAIN.
Na formular se vlozi komponeta TScanerSinea
a klasicky TImage a propoji.
V konfiguraci aplikace se jednoduse zavola
ScanerSinea1.SelectImageSource(Handle);
pro vyber TWAIN zarizeni.
Vlastni sejmuti obrazku se provede
ScanerSinea1.AcquireToImage;
A obrazek je v TImage.
Vaclav Krmela
FreeReport - help 2
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 17.8.2002 12:33:42
Nemate nekdo platnou adresu, nebo neposlete mi to ? (opravdu nahoda - s
cestinou v FreeReport jsem se take bil, ale po te co jsem nevedel jak z .rc
udelat .res jsem se chtel zeptat na cesky report na konferenci)
S pozdravem
*********************************
David Kraina, DKx
-------------------------
Vedouc� t�mu MX-3, program�tor
http://DKx.Hyperlink(tec)cz
http://MX-3.w3.to
*********************************
*DKx# - Pros�m nemazat, index do filtru upozorn�n�
>Pocesteny fr232 je pouze tady:
>http://dh-soft(tec)czweb.org/Delphi/frf232CZ.rar
>>PS: fr230 mame cesky ! Muzu nabidnout .... kamos si dal praci ...
ImageList.ResourceLoad
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.8.2002 13:16:35
Hello Delphi CZ konferencia!
Mam resource file prilozene k projektu a tento sposob nacitania mi
vrati False
ImageList.ResourceLoad(rtIcon,'ICON001',clBlack);
Co moze byt problem?
PS: D5 Pro
--
Best regards, TRoland
Spocitanie riadkov v Tabulke DTB
[*] bugi <bugala_a(zv)centrum.sk> - 17.8.2002 14:12:06
Vsetkych srdecne zdravim a verim, ze Vas voda obisla a mate sa
fajn!
Potreboval by som pri nacitani tabulky do DBGrid-u zistit pocet
jej riadkov a nasledne ho vypisat na formular.
Jedna sa o tabulku Paradox.
Aka funkcia sluzi na zistenie poctu riadkov ???
(pomohla by aj mala ukazka v podobe kodu ...) Dakujem,
Alex
Delphi 5 Ent & Win2000
-----------------------
BUGALA Alex
e-mail: bugala_a(zv)centrum.sk
OT: MySQL krok za krokem
[*] Zdenek Stepanek <zstepanek(zv)atlas(tec)cz> - 17.8.2002 16:12:22
Zdravim
Hledam nejaky step-by-step navod (nejlepe cesky) k MySQL ve spolupraci s
PHP. Zaklady PHP jsem se za par dni naucil, ale o MySQL a databazich obecne
nemam ani paru. Z toho co jsem objevil na zive v jejich serialech bych se
tak mozna dokazal prihlasit, vybrat tabulku a odhlasit. Co se tyce tvorby
dotazu, tak to je pro me spanelska vesnice. Muzete mi nekdo poradit?
Odpovedi prosim na soukromy mail, ne do konference.
Diky
Zdenek
zstepanek(zv)atlas(tec)cz
Spocitanie riadkov v Tabulke DTB
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 17.8.2002 16:27:09
Alex:
>Vsetkych srdecne zdravim a verim, ze Vas voda obisla a mate sa
>fajn!
OT Aldik:
Jo Slovakum tem je hej,hej?
>Potreboval by som pri nacitani tabulky do DBGrid-u zistit pocet
>jej riadkov a nasledne ho vypisat na formular.
>Jedna sa o tabulku Paradox.
>Aka funkcia sluzi na zistenie poctu riadkov ???
>(pomohla by aj mala ukazka v podobe kodu ...)
Aldik:
Dataset.RecordCount;
Ales Pavel
D6 Ent WXP
laik v profesionalnim kolotoci
ScrollBox
[*] Peter Surovy <psurovy(zv)uevora.pt> - 17.8.2002 18:30:50
Ahoj
mam taky problem so ScrollBoxom
mam v nom image na tomto image
by som si chcel spravit Pan(posuvanie pomocou mysi).
v onMouseDown nacitam
pociatocne x a y
v onMouseMove robim
ScrollBox1.ScrollBy(x-pociatocne_x,y-ppociatocne_y);
obrazok sa pekne presuva spolu s mysou
ale Scrollbary na to vobec nereaguju
skusal som
ScrollBox1.HorzScrollBar.Position:= x;
ale to robi nejaky divy image sa trasie
a nakoniec sa scrollbar aj tak presunie
na 0 alebo max.
Nemate s tym niekto nejake skusenosti?
Tracking v scrbaroch mam na true
uz som skusal aj na false ale nic
Dik Peter Surovy
IB/FB jako lokalni DB stroj
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 17.8.2002 19:43:39
> > a proc vlastne nevyuzit pripadny jiz bezici server?
> > kvuli kolizi verzi?
>
> Jo, protoze potrebuju s aplikaci predinstaloval znacne rozsahlou DB a
nechci
> to delat pres restore.
Ahoj.
Co treba vyextrahovat metadata do scriptu a pak doplnit script o radky
INSERT INTO ....
INSERT INTO ...
INSERT INTO...
atd.
Nehlede k tomu, ze restore se da zrovna tak udelat programove pomoci IBX.
Ludek
Odeslani souboru na server
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 17.8.2002 22:25:32
Zdravim,
muze mi nekdo prosim poradit, jak odeslat textovy soubor cca 5 kB na server?
Presneji receno mam soubor data.txt a potreboval bych ho dostat na
http://www.domena(tec)cz/data.txt
Jake jsou moznosti? Napadl me FTP pristup nebo poslat nejak pres nejaky
skript (treba PHP).
Ale prakticky nevim jak na to.
Diky za radu a pripadny kousek zdrojaku.
VJ
USB Kamera
[*] Petr Palicka aka PeC(zv) <petr.palicka(zv)atlas(tec)cz> - 17.8.2002 23:36:29
>Po precteni prispevku v konferenci,
>jsem se dozvedel ze rizeni USB kamery se
>provadi za pomoci ovladace Twain.
no, never vsemu co se pise, respektive to
nepokladej, za jedine mozne reseni ;o)
v pondeli se pripomen, poslu ti zdrojak
pro zachytavani statickych snimku z USB
kamery. pouziva to nejaky nejaky apicap.dll,
ale z hlavy si to nepamatuju. zip s tim
zdrojakem jsem v patek videl v praci v
jedny pracovni slozce, snad to najdu.
peca
Vysledek dvou Query do jednoho DBGridu
[*] L.P.K. - Soft <lbr_dlp(zv)centrum(tec)cz> - 18.8.2002 09:52:28
Ahoj,
jde to napr. nasledujicim selectem, za predpokladu, ze pomer jednotlivych
vyslednych poli bude 1:1. Tento select pak pres nejakou TQuery atd. navazes
na DbGrid
Nejde to ovsem pouzit vzdy, zalezi jak mas postavena data. Na vazby 1:N
musis pouzit zminovany lookup, ovsem ten se neda nacpat do jednoho gridu.
select
(select Tabulka_1.Pole_1 from Tabulka_1 where Tabulka_1.Pole_1=a.Pole_1) as
'Vysledek 1',
(select Tabulka_2.Pole_2 from Tabulka_2 where
Tabulka_2.Pole_2=Tabulka_1.Pole_2 and Tabulka_2.Pole_3=...atd.) as 'Vysledek
2' from
Tabulka_1 a where a.Pole_1=value
nebo jeste obecneji
select
(select 3*3 ) as 'Vysledek 1',
(select 5*5 ) as 'Vysledek 2'
Libor
> > Jak docilim %SUBJ%, pokud to tedy vubec lze ... predstavuju si napr. ve
> > dvou sloupcich budou vysledku dotazu Query1 a v dalsich
> vysledky Query2 ..
>
IB/FB jako lokalni DB stroj
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.8.2002 11:24:48
From: "Ludek ZITA" <konference(zv)sales(tec)cz>
> Nehlede k tomu, ze restore se da zrovna tak udelat
> programove pomoci IBX.
Je nutne, aby po nakopirovani potrebnych souboru na disk aplikace bezela a
to bez restartu pocitace apod.
Stejne tak je nepripustne, aby se jeji instalace neunosne prodlouzila o
rekonstrukci DB bez ohledu na to, zda to bude pomoci restore nebo ze scriptu
nebo jakkoli jinak.
Bye, pf
INSERT v ulozene procedure -> is not a selected pr
[*] bleak <bleak(zv)atlas(tec)cz> - 18.8.2002 13:47:14
zdravim
mam ulozenou proceduru (priklad):
BEGIN
INSERT INTO platby
(POLOZKA,)
VALUES
(:POLOZKA);
END
pomoci TIBStoredProc chci provest INSERT
sproc1.ParamByName('POLOZKA').AsInteger :=1;
sproc1.ExecProc;
TIBStoredProc vrati hlasku 'is not a selected proc'. Co delam spatne? Uz mi
to chodilo, ale neco jsem pozmenil a nejde mi to...
bleak
Re[2]: Nazev EXE
[*] Martin Pesava <pesavova(zv)dkm(tec)cz> - 18.8.2002 14:40:01
>> application.exename
> Hm, schvalne se nekdy zkus podivat, jak je tato property
> naimplementovana... ;-)
Hm, D6Prof:
function TApplication.GetExeName: string;
begin
Result := ParamStr(0);
end;
Jinak, zapomnel jsem, ze je to WinAPI aplikace, takze zadny
TApplication nepouzivam; tudiz ani Application.ExeName mi moc
nepomuze. Zkusim jeste ten GetModuleName(0), co radi P.Vones ... ale
je zvlastni, ze v Helpu jsem to nenasel ... ale v SRC SysUtils to je
... hm :)
--
Best regards,
Martin mailto:jimx(zv)volny(tec)cz
Re[3]: Nazev EXE
[*] Martin Pesava <pesavova(zv)dkm(tec)cz> - 18.8.2002 14:49:13
> Zkusim jeste ten GetModuleName(0), co radi P.Vones ... ale
> je zvlastni, ze v Helpu jsem to nenasel ... ale v SRC SysUtils to je
> ... hm :)
Hm, tak taky vraci vsechno s velkejma pismenkama :((
--
Best regards,
Martin mailto:jimx(zv)volny(tec)cz
Re[4]: Nazev EXE
[*] Martin Pesava <pesavova(zv)dkm(tec)cz> - 18.8.2002 15:06:57
>> Zkusim jeste ten GetModuleName(0), co radi P.Vones ... ale
>> je zvlastni, ze v Helpu jsem to nenasel ... ale v SRC SysUtils to je
>> ... hm :)
> Hm, tak taky vraci vsechno s velkejma pismenkama :((
Jo, jsem na W9X. A to s tim FindFirst funguje ... takze to uz asi
nebudu dal resit, a radsi budu dal rozsirovat program. Dik za rady :)
--
Best regards,
Martin mailto:jimx(zv)volny(tec)cz
Re[3]: Nazev EXE
[*] Lada 'Ray' Lostak <ray(zv)unreal64(tec)net> - 18.8.2002 15:38:29
>Hm, tak taky vraci vsechno s velkejma pismenkama :((
To zalezi na nastaveni exploreru. Vzhledem k tomu, jak je udelany IFS, tak
zalezi i na konkretnim IFS, ve kterym se nachazi EXE soubor. Problem je
totiz v tom, ze pri volani procesu se cesta k EXE urcuje podle predanych
parametru. 9x jen overi zda-li soubor existuje a uz se nijak nenamahaji s
pripadnou zmenou (proto zalezi i mimo jine na nastaveni IE - tedy jako to
zorbazuje -> co 'zavola').
Pod NT nemam zadnej problem s GMP a m/v pismenkama. Pod 9x s tim obcas jsou
problemy.
Podle mne neni zadna 'rozumna' cesta jak toto obejit. Jedine si RUCNE projit
'cestu' a prez FindFile si ohledat skutecny case a 'zrekonstruovat' cestu,
je-li to takova nutnost. FindFile vraci vzdy to co ma - bohudiky :)
Best regards,
Lada 'Ray' Lostak
Unreal64 Develop group
http://www.unreal64.net
INSERT v ulozene procedure -> is not a selected pr
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 18.8.2002 19:41:06
Ahoj,
On 18 Aug 2002 at 13:47, bleak wrote:
> zdravim
> mam ulozenou proceduru (priklad):
>
> BEGIN
> INSERT INTO platby
> (POLOZKA,)
^^^
a co ta carka
> VALUES
> (:POLOZKA);
> END
chybi Ti prirazeni nazvu SP
sproc1.StoredProcName := 'TVUJ_NAZEV_SP';
> pomoci TIBStoredProc chci provest INSERT
>
> sproc1.ParamByName('POLOZKA').AsInteger :=1;
> sproc1.ExecProc;
>
> TIBStoredProc vrati hlasku 'is not a selected proc'. Co delam spatne?
copak te hlasce nerozumis?
> Uz mi to chodilo, ale neco jsem pozmenil a nejde mi to... bleak
zalohovat, zalohovat, zalohovat
Jarek U.
naplnanie array
[*] Peter Surovy <psurovy(zv)uevora.pt> - 18.8.2002 18:45:23
Ahoj
mam globalne pole: array[0..100] of Double
toto pole sa v jednej udalosti (onclick)
najskor v jednom cykle prepocita - teda jeho prvky
a v druhom cykle v tej istej udalosti vypise do
StringGridu.
Problem : skoro vzdy mi v prvku 0 niekedy aj v 1
naskoci uplne nezmyselne cislo (napr prvky pola su bud
0 alebo medzi 200 a 300) a v nultom prvku
mi naskoci napr 27.5 :-/(
Preco ale pisem: Ked si tento proces
odkrokujem vsetko prebehne ok!
Ziadnych 27,5 sa nikde neobjavi.
Ked to pustim bez breaku
je to tam zas.
Peter Surovy
IB-Firebird-rozsirena synraxe
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 18.8.2002 20:20:40
Ahoj,
kde se da najit popis, ev. priklad rozsirene syntaxe pro stored procedures,
jako napr.
for select ... AS CURSOR MyCursor
..
update .... WHERE CURRENT OF MyCursor
Diky Mirek
Dotaz
[*] PETR Va�eka <pvareka(zv)mujmejl(tec)cz> - 18.8.2002 20:56:44
Database Desktop mi neumo��uje nastaven� referen�n� integrity, tak�e j� s�m mus�m pracn� o�et�ovat v k�du.
(Po nadefinov�n� aliasu a vytvo�en� tabulek, zvolen� "Referential Integrity" v rozbalovac�m seznamu z�st�va oblast "Table" pro ur�en� rodi�ovsk� tabulky pr�zdn�.)INSERT v ulozene procedure -> is not a selected pr
[*] bleak <bleak(zv)atlas(tec)cz> - 18.8.2002 21:33:44
no tak tedy to jde takhle
sproc1.Params[0].AsInteger :=1;
sproc1.ExecSQL;
ale nev�m pro�
bleak
----- Original Message -----
From: "bleak" <bleak(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, August 18, 2002 1:47 PM
Subject: INSERT v ulozene procedure -> is not a selected proc
> zdravim
> mam ulozenou proceduru (priklad):
>
> BEGIN
> INSERT INTO platby
> (POLOZKA,)
> VALUES
> (:POLOZKA);
> END
>
> pomoci TIBStoredProc chci provest INSERT
>
> sproc1.ParamByName('POLOZKA').AsInteger :=1;
> sproc1.ExecProc;
>
> TIBStoredProc vrati hlasku 'is not a selected proc'. Co delam spatne? Uz
mi
> to chodilo, ale neco jsem pozmenil a nejde mi to...
> bleak
>
>
>
Dotaz
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 18.8.2002 22:19:54
a kde je ten dotaz? a o jakou db platformu jde? KER
----- Original Message -----
From: "PETR Va�eka" <pvareka(zv)mujmejl(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, August 18, 2002 8:56 PM
Subject: Dotaz
Database Desktop mi neumo��uje nastaven� referen�n� integrity, tak�e j� s�m
mus�m pracn� o�et�ovat v k�du.
(Po nadefinov�n� aliasu a vytvo�en� tabulek, zvolen� "Referential Integrity"
v rozbalovac�m seznamu z�st�va oblast "Table" pro ur�en� rodi�ovsk� tabulky
pr�zdn�.)
Komponenta na tabulku
[*] Martin Kozusky <delphi(zv)novalis.dyndns.org> - 18.8.2002 22:53:50
[P��loha v souboru: tabulka.JPG]
Ahojte,
neznate nekdo komponentu, ktera se podoba te v priloze?
Nebo nejakou jinou jednoduchou, nemusi to byt TStringGrid. staci abych si
nastavil pocet sloupecku, nejake zahlavi a jeho barvu, popripade barvu
pozadi a tlousku radku ...
Diky,
Martin