Стартовый пул

This commit is contained in:
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions

View File

@@ -0,0 +1,5 @@
*.dcu
*.exe
*.hpp
*.obj
*.tds

View File

@@ -0,0 +1,29 @@
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=0
Z=1
ShowHints=1
ShowWarnings=1

View File

@@ -0,0 +1,22 @@
program Demo;
uses
Forms,
Demo1 in 'Demo1.pas' {Form1};
{$R *.RES}
{$IFDEF CLR}
[STAThread] // All VCL.NET projects that use Toolbar2000 must include this
{$ENDIF}
begin
Application.Initialize;
{$IFDEF CONDITIONALEXPRESSIONS}
{$IF CompilerVersion >= 18.5}
Application.MainFormOnTaskbar := True;
{$IFEND}
{$ENDIF}
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Binary file not shown.

View File

@@ -0,0 +1,254 @@
unit Demo1;
{
Toolbar2000 demo project
$jrsoftware: tb2k/DemoProj/Demo1.pas,v 1.9 2006/03/12 23:11:58 jr Exp $
}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus, ActnList, ImgList, ComCtrls,
TB2Item, TB2ExtItems, TB2Dock, TB2Toolbar, TB2MRU;
type
TForm1 = class(TForm)
ActionList: TActionList;
actNew: TAction;
actOpen: TAction;
actSave: TAction;
actSaveAs: TAction;
actPageSetup: TAction;
actPrint: TAction;
actExit: TAction;
actUndo: TAction;
actCut: TAction;
actCopy: TAction;
actPaste: TAction;
actDelete: TAction;
actSelectAll: TAction;
actTimeDate: TAction;
actWordWrap: TAction;
actSetFont: TAction;
actFind: TAction;
actFindNext: TAction;
actReplace: TAction;
actHelpTopics: TAction;
actAbout: TAction;
actTestButton: TAction;
actTestEdit: TTBEditAction;
DockTop: TTBDock;
MenuToolbar: TTBToolbar;
ImageList: TTBImageList;
FMenu: TTBSubmenuItem;
FNew: TTBItem;
FOpen: TTBItem;
FSave: TTBItem;
FSaveAs: TTBItem;
FPageSetup: TTBItem;
FPrint: TTBItem;
FExit: TTBItem;
EMenu: TTBSubmenuItem;
EUndo: TTBItem;
ECut: TTBItem;
ECopy: TTBItem;
EPaste: TTBItem;
EDelete: TTBItem;
ESelectAll: TTBItem;
ETimeDate: TTBItem;
EWordWrap: TTBItem;
ESetFont: TTBItem;
SMenu: TTBSubmenuItem;
SFind: TTBItem;
SFindNext: TTBItem;
SReplace: TTBItem;
HMenu: TTBSubmenuItem;
HHelpTopics: TTBItem;
HAbout: TTBItem;
FMRU: TTBMRUListItem;
NBSeparatorItem3: TTBSeparatorItem;
NBSeparatorItem4: TTBSeparatorItem;
TestEdit: TTBEditItem;
MainToolbar: TTBToolbar;
NewButton: TTBItem;
OpenButton: TTBItem;
SaveButton: TTBItem;
DockBottom: TTBDock;
DockLeft: TTBDock;
DockRight: TTBDock;
BottomToolbar: TTBToolbar;
PopupMenuBarButton: TTBItem;
PopupToolbarButton: TTBItem;
Memo1: TMemo;
ContextPopupMenu: TTBPopupMenu;
StatusBar: TStatusBar;
ToolbarPopupMenu: TTBPopupMenu;
MRUList: TTBMRUList;
PrintButton: TTBItem;
CutButton: TTBItem;
CopyButton: TTBItem;
PasteButton: TTBItem;
UndoButton: TTBSubmenuItem;
actPrintPreview: TAction;
TBItem1: TTBItem;
FormatToolbar: TTBToolbar;
BoldItem: TTBItem;
ItalicItem: TTBItem;
UnderlineItem: TTBItem;
TBSeparatorItem1: TTBSeparatorItem;
AlignLeftItem: TTBItem;
CenterItem: TTBItem;
AlignRightItem: TTBItem;
TBSeparatorItem2: TTBSeparatorItem;
BulletsItem: TTBItem;
NBItem34: TTBItem;
NBSeparatorItem6: TTBSeparatorItem;
NBItem35: TTBItem;
NBItem36: TTBItem;
NBItem37: TTBItem;
NBItem38: TTBItem;
NBSeparatorItem7: TTBSeparatorItem;
NBItem39: TTBItem;
ComboBox1: TComboBox;
TBControlItem1: TTBControlItem;
TBSeparatorItem3: TTBSeparatorItem;
TBControlItem2: TTBControlItem;
ComboBox2: TComboBox;
actBold: TAction;
actItalic: TAction;
actUnderline: TAction;
actAlignLeft: TAction;
actCenter: TAction;
actAlignRight: TAction;
TBSeparatorItem4: TTBSeparatorItem;
actRedo: TAction;
RedoButton: TTBSubmenuItem;
TBItem2: TTBItem;
TBItem3: TTBItem;
TBItem4: TTBItem;
ERedo: TTBItem;
VMenu: TTBSubmenuItem;
VToolbars: TTBSubmenuItem;
VTStandard: TTBVisibilityToggleItem;
VTFormatting: TTBVisibilityToggleItem;
VTBottom: TTBVisibilityToggleItem;
VStatusBar: TTBItem;
actBullets: TAction;
procedure FormCreate(Sender: TObject);
procedure ItemClick(Sender: TObject);
procedure PopupMenuBarButtonClick(Sender: TObject);
procedure PopupToolbarButtonClick(Sender: TObject);
procedure MRUListClick(Sender: TObject; const Filename: String);
procedure AlignClick(Sender: TObject);
procedure BulletsItemClick(Sender: TObject);
procedure BoldItemClick(Sender: TObject);
procedure ItalicItemClick(Sender: TObject);
procedure UnderlineItemClick(Sender: TObject);
procedure VStatusBarClick(Sender: TObject);
procedure VMenuClick(Sender: TObject);
private
{ Private declarations }
procedure OnHint(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
{$IFDEF CLR} Types, {$ENDIF}
CommCtrl, TB2Version;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text := 'Running on ' + Toolbar2000VersionPropText;
Application.OnHint := OnHint;
end;
procedure TForm1.OnHint(Sender: TObject);
begin
StatusBar.Panels[0].Text := Application.Hint;
end;
procedure TForm1.ItemClick(Sender: TObject);
begin
Application.MessageBox( {$IFNDEF CLR} PChar {$ENDIF}
('You selected:'#13#10#13#10 + (Sender as TComponent).Name),
'OnClick handler', MB_OK or MB_ICONINFORMATION);
end;
procedure TForm1.MRUListClick(Sender: TObject; const Filename: String);
begin
Application.MessageBox( {$IFNDEF CLR} PChar {$ENDIF}
(Format('You selected "%s" from the MRU list.', [Filename])),
'MRUListClick', MB_OK or MB_ICONINFORMATION);
end;
procedure TForm1.VMenuClick(Sender: TObject);
begin
VStatusBar.Checked := StatusBar.Visible;
end;
procedure TForm1.VStatusBarClick(Sender: TObject);
begin
{ Force the StatusBar to always be at the bottom of the form. Without this
line of code, the status bar sometimes may appear above the bottom dock.
This is not a bug in Toolbar2000, but rather is due to the design of the
VCL's alignment system. }
StatusBar.Top := ClientHeight;
{ Toggle the status bar's visibility }
StatusBar.Visible := not StatusBar.Visible;
end;
procedure TForm1.AlignClick(Sender: TObject);
begin
AlignLeftItem.Checked := (Sender = actAlignLeft);
CenterItem.Checked := (Sender = actCenter);
AlignRightItem.Checked := (Sender = actAlignRight);
end;
procedure TForm1.BulletsItemClick(Sender: TObject);
begin
BulletsItem.Checked := not BulletsItem.Checked;
end;
procedure TForm1.BoldItemClick(Sender: TObject);
begin
BoldItem.Checked := not BoldItem.Checked;
end;
procedure TForm1.ItalicItemClick(Sender: TObject);
begin
ItalicItem.Checked := not ItalicItem.Checked;
end;
procedure TForm1.UnderlineItemClick(Sender: TObject);
begin
UnderlineItem.Checked := not UnderlineItem.Checked;
end;
procedure TForm1.PopupMenuBarButtonClick(Sender: TObject);
var
P: TPoint;
begin
P := Memo1.ClientToScreen(Point(8, 8));
MenuToolbar.Items.Popup(P.X, P.Y, True);
end;
procedure TForm1.PopupToolbarButtonClick(Sender: TObject);
var
P: TPoint;
begin
P := Memo1.ClientToScreen(Point(8, 8));
MainToolbar.Items.Popup(P.X, P.Y, True);
end;
end.

View File

@@ -0,0 +1,179 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = DemoBCB.exe
OBJFILES = Demo1.obj DemoBCB.obj
RESFILES = DemoBCB.res
RESDEPEN = $(RESFILES) Demo1.dfm
LIBFILES =
LIBRARIES = vcl40.lib
SPARELIBS = vcl40.lib
PACKAGES =
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT
# ---------------------------------------------------------------------------
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl -Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- \
-a8 -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tW -tWM \
-D$(SYSDEFINES);$(USERDEFINES)
PFLAGS = -U$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl -$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
LFLAGS = -L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -aa -Tpe -x \
-Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@@ -0,0 +1,22 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("DemoBCB.res");
USEFORMNS("Demo1.pas", Demo1, Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

View File

@@ -0,0 +1,115 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="DemoBCB6.exe"/>
<OBJFILES value="DemoBCB6.obj Demo1.obj"/>
<RESFILES value="DemoBCB6.res"/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) Demo1.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="bcb2kaxserver.lib indy.lib dbxcds.lib dclocx.lib soaprtl.lib bcbie.lib
nmfast.lib dbexpress.lib inetdbxpress.lib inetdb.lib inetdbbde.lib
visualdbclx.lib ibxpress.lib teeqr.lib tee.lib teedb.lib teeui.lib
bdecds.lib cds.lib dsnap.lib vcldbx.lib bdertl.lib qrpt.lib adortl.lib
dbrtl.lib vcldb.lib bcbsmp.lib inet.lib xmlrtl.lib"/>
<SPARELIBS value="vcl.lib rtl.lib xmlrtl.lib inet.lib tb2k_cb6.lib bcbsmp.lib vcldb.lib
dbrtl.lib adortl.lib qrpt.lib bdertl.lib vcldbx.lib dsnap.lib cds.lib
bdecds.lib teeui.lib teedb.lib tee.lib teeqr.lib ibxpress.lib
visualdbclx.lib inetdbbde.lib inetdb.lib inetdbxpress.lib dbexpress.lib
nmfast.lib bcbie.lib soaprtl.lib dclocx.lib dbxcds.lib indy.lib
bcb2kaxserver.lib"/>
<PACKAGES value="vcl.bpi rtl.bpi vclx.bpi tb2k_cb6.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="ilink32"/>
<USERDEFINES value="_DEBUG"/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="DemoBCB6.cpp"/>
<INCLUDEPATH value="$(BCB)\Projects;$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="$(BCB)\Projects;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tW -tWM"/>
<PFLAGS value="-$YD -$W -$O- -$A8 -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/>
<OTHERFILES value=""/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
<OTHERFILES value=""/>
</LINKER>
<FILELIST>
<FILE FILENAME="DemoBCB6.res" FORMNAME="" UNITNAME="DemoBCB6.res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="DemoBCB6.cpp" FORMNAME="" UNITNAME="DemoBCB6" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="Demo1.pas" FORMNAME="Form1" UNITNAME="Demo1" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
</FILELIST>
<BUILDTOOLS>
</BUILDTOOLS>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
Launcher=
UseLauncher=0
DebugCWD=
HostApplication=
RemoteHost=
RemotePath=
RemoteLauncher=
RemoteCWD=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[Language]
ActiveLang=
ProjectLang=
RootDir=
</IDEOPTIONS>
</PROJECT>

View File

@@ -0,0 +1,34 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORMNS("Demo1.pas", Demo1, Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------