Skip to content

Commit 27f1d16

Browse files
coderserdarcoderserdar
committed
Other Commit
Some freeware Delphi components have been added
1 parent f3f3e05 commit 27f1d16

File tree

1,469 files changed

+595253
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

1,469 files changed

+595253
-0
lines changed

‎Torry's Delphi Pages/Other/source1109b2/source1109/Samples/BCB/BCB5/Project1.bpr‎

Lines changed: 93 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,93 @@
1+
<?xml version='1.0' encoding='utf-8' ?>
2+
<!-- C++Builder XML Project -->
3+
<PROJECT>
4+
<MACROS>
5+
<VERSION value="BCB.05.03"/>
6+
<PROJECT value="Project1.exe"/>
7+
<OBJFILES value="Project1.obj Unit1.obj"/>
8+
<RESFILES value="Project1.res"/>
9+
<DEFFILE value=""/>
10+
<RESDEPEN value="$(RESFILES) Unit1.dfm"/>
11+
<LIBFILES value=""/>
12+
<LIBRARIES value="FSQL1_R_BCB51.lib"/>
13+
<SPARELIBS value="Vcl50.lib Vcldb50.lib FSQL1_R_BCB51.lib"/>
14+
<PACKAGES value="Vcl50.bpi Vclx50.bpi bcbsmp50.bpi Qrpt50.bpi Vcldb50.bpi Vclbde50.bpi
15+
ibsmp50.bpi vcldbx50.bpi TeeUI50.bpi TeeDB50.bpi Tee50.bpi TeeQR50.bpi
16+
VCLIB50.bpi bcbie50.bpi vclie50.bpi Inetdb50.bpi Inet50.bpi NMFast50.bpi
17+
dclocx50.bpi bcb2kaxserver50.bpi fsutils_d_bcb51.bpi"/>
18+
<PATHCPP value=".;"/>
19+
<PATHPAS value=".;"/>
20+
<PATHRC value=".;"/>
21+
<PATHASM value=".;"/>
22+
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
23+
<RELEASELIBPATH value="$(BCB)\lib\release"/>
24+
<LINKER value="tlink32"/>
25+
<USERDEFINES value="_DEBUG"/>
26+
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
27+
<MAINSOURCE value="Project1.cpp"/>
28+
<INCLUDEPATH value="..\..;$(BCB)\include;$(BCB)\include\vcl"/>
29+
<LIBPATH value="e:\CBuilder5\Projects\lib\;..\..;$(BCB)\lib\obj;$(BCB)\lib"/>
30+
<WARNINGS value="-w-par"/>
31+
</MACROS>
32+
<OPTIONS>
33+
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
34+
-tW -tWM"/>
35+
<PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
36+
<RFLAGS value=""/>
37+
<AFLAGS value="/mx /w2 /zd"/>
38+
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/>
39+
</OPTIONS>
40+
<LINKER>
41+
<ALLOBJ value="c0w32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)"/>
42+
<ALLRES value="$(RESFILES)"/>
43+
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
44+
</LINKER>
45+
<IDEOPTIONS>
46+
[Version Info]
47+
IncludeVerInfo=0
48+
AutoIncBuild=0
49+
MajorVer=1
50+
MinorVer=0
51+
Release=0
52+
Build=0
53+
Debug=0
54+
PreRelease=0
55+
Special=0
56+
Private=0
57+
DLL=0
58+
Locale=1045
59+
CodePage=1250
60+
61+
[Version Info Keys]
62+
CompanyName=
63+
FileDescription=
64+
FileVersion=1.0.0.0
65+
InternalName=
66+
LegalCopyright=
67+
LegalTrademarks=
68+
OriginalFilename=
69+
ProductName=
70+
ProductVersion=1.0.0.0
71+
Comments=
72+
73+
[Debugging]
74+
DebugSourceDirs=$(BCB)\source\vcl
75+
76+
[Parameters]
77+
RunParams=
78+
HostApplication=
79+
RemoteHost=
80+
RemotePath=
81+
RemoteDebug=0
82+
83+
[Compiler]
84+
ShowInfoMsgs=0
85+
LinkDebugVcl=0
86+
LinkCGLIB=0
87+
88+
[Language]
89+
ActiveLang=
90+
ProjectLang=
91+
RootDir=
92+
</IDEOPTIONS>
93+
</PROJECT>

‎Torry's Delphi Pages/Other/source1109b2/source1109/Samples/BCB/BCB5/Project1.cpp‎

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,22 @@
1+
//---------------------------------------------------------------------------
2+
3+
#include <vcl.h>
4+
#pragma hdrstop
5+
USERES("Project1.res");
6+
USEFORM("Unit1.cpp", Form1);
7+
//---------------------------------------------------------------------------
8+
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
9+
{
10+
try
11+
{
12+
Application->Initialize();
13+
Application->CreateForm(__classid(TForm1), &Form1);
14+
Application->Run();
15+
}
16+
catch (Exception &exception)
17+
{
18+
Application->ShowException(&exception);
19+
}
20+
return 0;
21+
}
22+
//---------------------------------------------------------------------------

‎Torry's Delphi Pages/Other/source1109b2/source1109/Samples/BCB/BCB5/Project1.res‎

876 Bytes
Binary file not shown.

‎Torry's Delphi Pages/Other/source1109b2/source1109/Samples/BCB/BCB5/Unit1.cpp‎

Lines changed: 25 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,25 @@
1+
//---------------------------------------------------------------------------
2+
3+
#include <vcl.h>
4+
#pragma hdrstop
5+
6+
#include "Unit1.h"
7+
//---------------------------------------------------------------------------
8+
#pragma package(smart_init)
9+
#pragma link "fsclreng"
10+
#pragma link "fsdb"
11+
#pragma link "fsdbbase"
12+
#pragma link "fsllbase"
13+
#pragma link "fsllcomm"
14+
#pragma link "fsllcomp"
15+
#pragma link "fslleng"
16+
#pragma link "fslllgcy"
17+
#pragma link "fssrintm"
18+
#pragma resource "*.dfm"
19+
TForm1 *Form1;
20+
//---------------------------------------------------------------------------
21+
__fastcall TForm1::TForm1(TComponent* Owner)
22+
: TForm(Owner)
23+
{
24+
}
25+
//---------------------------------------------------------------------------

‎Torry's Delphi Pages/Other/source1109b2/source1109/Samples/BCB/BCB5/Unit1.dfm‎

Lines changed: 198 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,198 @@
1+
object Form1: TForm1
2+
Left = 369
3+
Top = 153
4+
Width = 413
5+
Height = 331
6+
Caption = 'Form1'
7+
Color = clBtnFace
8+
Font.Charset = DEFAULT_CHARSET
9+
Font.Color = clWindowText
10+
Font.Height = -11
11+
Font.Name = 'MS Sans Serif'
12+
Font.Style = []
13+
OldCreateOrder = False
14+
PixelsPerInch = 96
15+
TextHeight = 13
16+
object DBGrid1: TDBGrid
17+
Left = 16
18+
Top = 56
19+
Width = 377
20+
Height = 225
21+
DataSource = DataSource1
22+
TabOrder = 0
23+
TitleFont.Charset = DEFAULT_CHARSET
24+
TitleFont.Color = clWindowText
25+
TitleFont.Height = -11
26+
TitleFont.Name = 'MS Sans Serif'
27+
TitleFont.Style = []
28+
end
29+
object FSRemoteServer1: TFSRemoteServer
30+
Transport = FSParamConnect1
31+
Left = 8
32+
Top = 16
33+
end
34+
object FSClient1: TFSClient
35+
ClientName = 'Client1'
36+
ServerEngine = FSRemoteServer1
37+
Left = 112
38+
Top = 16
39+
end
40+
object FSSession1: TFSSession
41+
ClientName = 'Client1'
42+
SessionName = 'Ses1'
43+
Left = 144
44+
Top = 16
45+
end
46+
object FSDatabase1: TFSDatabase
47+
AliasName = 'CrmData'
48+
DataBaseName = 'DBs1'
49+
SessionName = 'Ses1'
50+
RecLocking = tlOptimisticNoWait
51+
Left = 192
52+
Top = 16
53+
end
54+
object FSTable1: TFSTable
55+
BlobAutoStartTransaction = False
56+
BlobModifiedError = False
57+
BlobMode = bmAuto
58+
CheckTimeout = 0
59+
DeleteTimeout = 0
60+
DataBaseName = 'DBs1'
61+
RecLockedBeforeEdit = False
62+
FieldDefs = <
63+
item
64+
Name = 'IDKLIENTA'
65+
DataType = ftAutoInc
66+
end
67+
item
68+
Name = 'IDPARENT'
69+
Attributes = [faRequired]
70+
DataType = ftInteger
71+
end
72+
item
73+
Name = 'VERSION'
74+
DataType = ftLargeint
75+
end
76+
item
77+
Name = 'SKROT'
78+
DataType = ftString
79+
Size = 50
80+
end
81+
item
82+
Name = 'NAZWA'
83+
DataType = ftString
84+
Size = 250
85+
end
86+
item
87+
Name = 'IDSTANKL'
88+
Attributes = [faRequired]
89+
DataType = ftInteger
90+
end
91+
item
92+
Name = 'DATASTANU'
93+
Attributes = [faRequired]
94+
DataType = ftDate
95+
end
96+
item
97+
Name = 'IDREGION'
98+
Attributes = [faRequired]
99+
DataType = ftInteger
100+
end
101+
item
102+
Name = 'IDKRAJ'
103+
DataType = ftInteger
104+
end
105+
item
106+
Name = 'IDWOJ'
107+
DataType = ftInteger
108+
end
109+
item
110+
Name = 'IDMIASTO'
111+
Attributes = [faRequired]
112+
DataType = ftInteger
113+
end
114+
item
115+
Name = 'ADRES'
116+
DataType = ftString
117+
Size = 60
118+
end
119+
item
120+
Name = 'KOD'
121+
DataType = ftString
122+
Size = 20
123+
end
124+
item
125+
Name = 'TELEFON'
126+
DataType = ftString
127+
Size = 60
128+
end
129+
item
130+
Name = 'TELEFON2'
131+
DataType = ftString
132+
Size = 60
133+
end
134+
item
135+
Name = 'FAX'
136+
DataType = ftString
137+
Size = 60
138+
end
139+
item
140+
Name = 'E_MAIL'
141+
DataType = ftString
142+
Size = 60
143+
end
144+
item
145+
Name = 'WWW'
146+
DataType = ftString
147+
Size = 60
148+
end
149+
item
150+
Name = 'KONTAKT'
151+
DataType = ftString
152+
Size = 80
153+
end
154+
item
155+
Name = 'TELKONTAKT'
156+
DataType = ftString
157+
Size = 60
158+
end
159+
item
160+
Name = 'UWAGA'
161+
DataType = ftMemo
162+
end
163+
item
164+
Name = 'FLAGA'
165+
Attributes = [faRequired]
166+
DataType = ftInteger
167+
end
168+
item
169+
Name = 'STM'
170+
DataType = ftDateTime
171+
end
172+
item
173+
Name = 'SUSER'
174+
DataType = ftString
175+
Size = 30
176+
end>
177+
FilterEval = fseServer
178+
FilterTimeout = 3000
179+
FlipOrder = False
180+
BlobChunkSize = 524288
181+
SessionName = 'Ses1'
182+
SupportRecNo = False
183+
TableName = 'DtKlienci'
184+
Left = 232
185+
Top = 16
186+
end
187+
object FSParamConnect1: TFSParamConnect
188+
ServerName = 'Local'
189+
Protocol = ptSingleUser
190+
Left = 40
191+
Top = 16
192+
end
193+
object DataSource1: TDataSource
194+
DataSet = FSTable1
195+
Left = 264
196+
Top = 16
197+
end
198+
end

‎Torry's Delphi Pages/Other/source1109b2/source1109/Samples/BCB/BCB5/Unit1.h‎

Lines changed: 41 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,41 @@
1+
//---------------------------------------------------------------------------
2+
3+
#ifndef Unit1H
4+
#define Unit1H
5+
//---------------------------------------------------------------------------
6+
#include <Classes.hpp>
7+
#include <Controls.hpp>
8+
#include <StdCtrls.hpp>
9+
#include <Forms.hpp>
10+
#include "fsclreng.hpp"
11+
#include "fsdb.hpp"
12+
#include "fsdbbase.hpp"
13+
#include "fsllbase.hpp"
14+
#include "fsllcomm.hpp"
15+
#include "fsllcomp.hpp"
16+
#include "fslleng.hpp"
17+
#include "fslllgcy.hpp"
18+
#include "fssrintm.hpp"
19+
#include <Db.hpp>
20+
#include <DBGrids.hpp>
21+
#include <Grids.hpp>
22+
//---------------------------------------------------------------------------
23+
class TForm1 : public TForm
24+
{
25+
__published:// IDE-managed Components
26+
TFSRemoteServer *FSRemoteServer1;
27+
TFSClient *FSClient1;
28+
TFSSession *FSSession1;
29+
TFSDatabase *FSDatabase1;
30+
TFSTable *FSTable1;
31+
TFSParamConnect *FSParamConnect1;
32+
TDataSource *DataSource1;
33+
TDBGrid *DBGrid1;
34+
private:// User declarations
35+
public:// User declarations
36+
__fastcall TForm1(TComponent* Owner);
37+
};
38+
//---------------------------------------------------------------------------
39+
extern PACKAGE TForm1 *Form1;
40+
//---------------------------------------------------------------------------
41+
#endif

0 commit comments

Comments
 (0)