Стартовый пул
This commit is contained in:
5
ToolBar 2000/DemoProj/.cvsignore
Normal file
5
ToolBar 2000/DemoProj/.cvsignore
Normal file
@@ -0,0 +1,5 @@
|
||||
*.dcu
|
||||
*.exe
|
||||
*.hpp
|
||||
*.obj
|
||||
*.tds
|
29
ToolBar 2000/DemoProj/Demo.dof
Normal file
29
ToolBar 2000/DemoProj/Demo.dof
Normal 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
|
22
ToolBar 2000/DemoProj/Demo.dpr
Normal file
22
ToolBar 2000/DemoProj/Demo.dpr
Normal 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.
|
||||
|
BIN
ToolBar 2000/DemoProj/Demo1.dfm
Normal file
BIN
ToolBar 2000/DemoProj/Demo1.dfm
Normal file
Binary file not shown.
254
ToolBar 2000/DemoProj/Demo1.pas
Normal file
254
ToolBar 2000/DemoProj/Demo1.pas
Normal 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.
|
179
ToolBar 2000/DemoProj/DemoBCB.bpr
Normal file
179
ToolBar 2000/DemoProj/DemoBCB.bpr
Normal 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$@ $<
|
||||
# ---------------------------------------------------------------------------
|
||||
|
22
ToolBar 2000/DemoProj/DemoBCB.cpp
Normal file
22
ToolBar 2000/DemoProj/DemoBCB.cpp
Normal 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;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
115
ToolBar 2000/DemoProj/DemoBCB6.bpr
Normal file
115
ToolBar 2000/DemoProj/DemoBCB6.bpr
Normal 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"" -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>
|
34
ToolBar 2000/DemoProj/DemoBCB6.cpp
Normal file
34
ToolBar 2000/DemoProj/DemoBCB6.cpp
Normal 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;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
Reference in New Issue
Block a user