Archivado/Componentes.Terceros.DevExpressVCL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@4 05c56307-c608-d34a-929d-697000501d7a

Browse Source
This commit is contained in:
David Arranz 2007-08-09 14:11:37 +00:00
parent a44413f8fe
commit 18773faa49
5070 changed files with 1802089 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemo.cpp Normal file
View File

@ -0,0 +1,27 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("BackgroundDemo.res");
USEFORM("BackgroundDemoAbout.cpp", BackgroundDemoAboutForm);
USEFORM("BackgroundDemoMain.cpp", BackgroundDemoMainForm);
USEFORM("..\Common\EBarsAbout.cpp", EBarsAboutForm);
USEFORM("..\Common\EBarsDemoRating.cpp", EBarsDemoRatingForm);
USEFORM("..\Common\EBarsUtils.cpp", dmCommonData);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "ExpressBars6 Background Demo";
Application->CreateForm(__classid(TdmCommonData), &dmCommonData);
Application->CreateForm(__classid(TBackgroundDemoMainForm), &BackgroundDemoMainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemo.res Normal file
View File

Binary file not shown.

16
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoAbout.cpp Normal file
View File

@ -0,0 +1,16 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "BackgroundDemoAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TBackgroundDemoAboutForm *BackgroundDemoAboutForm;
//---------------------------------------------------------------------------
__fastcall TBackgroundDemoAboutForm::TBackgroundDemoAboutForm(TComponent* Owner)
: TEBarsAboutForm(Owner)
{
}
//---------------------------------------------------------------------------

26
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoAbout.dfm Normal file
View File

@ -0,0 +1,26 @@
inherited BackgroundDemoAboutForm: TBackgroundDemoAboutForm
inherited lbDemoName: TLabel
Width = 125
Caption = 'BackgroundDemo'
end
inherited reDemoInfo: TRichEdit
Lines.Strings = (
'Experiment with displaying/hiding '
'background images at runtime.'
''
'In this demo you can:'
''
'- hide background images of one '
'or more toolbars'
''
'- replace images with your own '
''
'- see the effect of changing the '
'display style'
''
'Note the use of '
'dxBarManager1.LockUpdate in '
'the cbShowImageCaptionsClick '
'event handler.')
end
end

25
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoAbout.h Normal file
View File

@ -0,0 +1,25 @@
//---------------------------------------------------------------------------
#ifndef BackgroundDemoAboutH
#define BackgroundDemoAboutH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
class TBackgroundDemoAboutForm : public TEBarsAboutForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TBackgroundDemoAboutForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TBackgroundDemoAboutForm *BackgroundDemoAboutForm;
//---------------------------------------------------------------------------
#endif

73
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoC10.bdsproj Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">CPlusPlusBuilder.Personality</Option>
<Option Name="ProjectType">CppVCLApplication</Option>
</Option>
</PersonalityInfo>
<CPlusPlusBuilder.Personality>
<BCBPROJECT>
<project version="10.0">
<property category="build.config" name="excludedefaultforzero" value="0"/>
<property category="build.config.0" name="settings.win32b" value="default"/>
<property category="build.node" name="name" value="BackgroundDemo.exe"/>
<property category="build.node" name="sparelibs" value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<property category="build.platform" name="active" value="win32"/>
<property category="build.platform" name="win32.default" value="win32b"/>
<property category="build.platform" name="win32.enabled" value="1"/>
<property category="build.platform" name="win32.win32b.enabled" value="1"/>
<optionset name="all_configurations">
<property category="node" name="displayname" value="All Configurations"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.1" value="$(SYSDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.2" value="$(USERDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.3" value="NO_WIN32_LEAN_AND_MEAN"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.D.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.1" value="$(BCB)\lib\vcl100.csm"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.merge" value="0"/>
<property category="win32.*.win32b.bcc32" name="option.H=.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.Hc.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.1" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.2" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.3" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.4" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.5" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.6" value="..\Common"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.1" value="_RTLDLL"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.2" value="NO_STRICT"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.1" value="$(BCB)\lib\release"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.2" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.3" value="$(BCB)\lib\obj"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.4" value="$(BCB)\lib"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.5" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.aa.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.1" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.enabled" value="0"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.1" value="."/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.1" value="$(LIBRARIES)"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.2" value="import32.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.3" value="cp32mt.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.1" value="c0w32.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.2" value="Memmgr.Lib"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.3" value="$(PACKAGES)"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.4" value="sysinit.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.merge" value="1"/>
</optionset>
</project>
</BCBPROJECT>
<Source>
<Source Name="MainSource">BackgroundDemo.cpp</Source>
</Source>
</CPlusPlusBuilder.Personality>
</BorlandProject>

42
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoC10.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.10.00"/>
<PROJECT value="BackgroundDemo.exe"/>
<OBJFILES value="BackgroundDemo.obj BackgroundDemoAbout.obj BackgroundDemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="BackgroundDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) BackgroundDemoAbout.dfm BackgroundDemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="BackgroundDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder10"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder10"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl100.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoC5.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="BackgroundDemo.exe"/>
<OBJFILES value="BackgroundDemo.obj BackgroundDemoAbout.obj BackgroundDemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="BackgroundDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) BackgroundDemoAbout.dfm BackgroundDemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<SPARELIBS value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="BackgroundDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder5"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder5"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoC6.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="BackgroundDemo.exe"/>
<OBJFILES value="BackgroundDemo.obj BackgroundDemoAbout.obj BackgroundDemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="BackgroundDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) BackgroundDemoAbout.dfm BackgroundDemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="BackgroundDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder6"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder6"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

223
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoMain.cpp Normal file
View File

@ -0,0 +1,223 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "BackgroundDemoMain.h"
#include "BackgroundDemoAbout.h"
#include "EBarsDemoRating.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dxBar"
#pragma link "dxBarExtItems"
#pragma resource "*.dfm"
TBackgroundDemoMainForm *BackgroundDemoMainForm;
const String sCustomImage = "(custom image)";
const String sDefaultImage = "(default image)";
//---------------------------------------------------------------------------
__fastcall TBackgroundDemoMainForm::TBackgroundDemoMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::FormCreate(TObject *Sender)
{
dmCommonData->AboutFormClass = __classid(TBackgroundDemoAboutForm);
FPath = ExtractFilePath(Application->ExeName);
FBarBackgroudBitmap = new Graphics::TBitmap();
FBarSubmenuBitmap = new Graphics::TBitmap();
FSatusbarBackgroudBitmap = new Graphics::TBitmap();
FPopupmenuBitmap = new Graphics::TBitmap();
cbBarClick(NULL);
cbSubMenuClick(NULL);
cbBackgroundBitmapClick(NULL);
cbBackgroundBitmapPMClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::FormDestroy(TObject *Sender)
{
delete FBarBackgroudBitmap;
delete FBarSubmenuBitmap;
delete FSatusbarBackgroudBitmap;
delete FPopupmenuBitmap;
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::cbBarClick(TObject *Sender)
{
if (cbBar->Checked) {
if (lbBarBackgroud->Caption == sDefaultImage)
dxBarManager1->Backgrounds->Bar->LoadFromFile(FPath + "b01.bmp");
else
dxBarManager1->Backgrounds->Bar->Assign(FBarBackgroudBitmap);
lbBarBackgroud->Enabled = true;
sbBarBackgroud->Enabled = true;
}
else {
dxBarManager1->Backgrounds->Bar->Assign(NULL);
lbBarBackgroud->Enabled = false;
sbBarBackgroud->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::cbSubMenuClick(TObject *Sender)
{
if (cbSubMenu->Checked) {
if (lbBarSubmenu->Caption == sDefaultImage)
dxBarManager1->Backgrounds->SubMenu->LoadFromFile(FPath + "b02.bmp");
else
dxBarManager1->Backgrounds->SubMenu->Assign(FBarSubmenuBitmap);
lbBarSubmenu->Enabled = true;
sbBarSubmenu->Enabled = true;
}
else {
dxBarManager1->Backgrounds->SubMenu->Assign(NULL);
lbBarSubmenu->Enabled = false;
sbBarSubmenu->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::cbBackgroundBitmapClick(
TObject *Sender)
{
if (cbBackgroundBitmap->Checked) {
if (lbSatusbarBackgroud->Caption == sDefaultImage)
dxBarManager1->Bars->Items[4]->BackgroundBitmap->LoadFromFile(FPath + "b03.bmp");
else
dxBarManager1->Bars->Items[4]->BackgroundBitmap->Assign(FSatusbarBackgroudBitmap);
lbSatusbarBackgroud->Enabled = true;
sbSatusbarBackgroud->Enabled = true;
}
else {
dxBarManager1->Bars->Items[4]->BackgroundBitmap->Assign(NULL);
lbSatusbarBackgroud->Enabled = false;
sbSatusbarBackgroud->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::cbBackgroundBitmapPMClick(
TObject *Sender)
{
if (cbBackgroundBitmapPM->Checked) {
if (lbPopupmenu->Caption == sDefaultImage)
dxBarPopupMenu1->BackgroundBitmap->LoadFromFile(FPath + "b04.bmp");
else
dxBarPopupMenu1->BackgroundBitmap->Assign(FPopupmenuBitmap);
lbPopupmenu->Enabled = true;
sbPopupmenu->Enabled = true;
}
else {
lbPopupmenu->Enabled = false;
sbPopupmenu->Enabled = false;
dxBarPopupMenu1->BackgroundBitmap->Assign(NULL);
}
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::btnRestoreDefaultsClick(
TObject *Sender)
{
if((!cbBar->Checked) || (lbBarBackgroud->Caption == sCustomImage)) {
dxBarManager1->Backgrounds->Bar->LoadFromFile(FPath + "b01.bmp");
lbBarBackgroud->Caption = sDefaultImage;
cbBar->Checked = true;
};
if((!cbSubMenu->Checked) || (lbBarSubmenu->Caption == sCustomImage)) {
dxBarManager1->Backgrounds->SubMenu->LoadFromFile(FPath + "b02.bmp");
lbBarSubmenu->Caption = sDefaultImage;
cbSubMenu->Checked = true;
};
if((!cbBackgroundBitmap->Checked) || (lbSatusbarBackgroud->Caption == sCustomImage)) {
dxBarManager1->Bars->Items[4]->BackgroundBitmap->LoadFromFile(FPath + "b03.bmp");
lbSatusbarBackgroud->Caption = sDefaultImage;
cbBackgroundBitmap->Checked = true;
};
if((!cbBackgroundBitmapPM->Checked) || (lbPopupmenu->Caption == sCustomImage)) {
dxBarPopupMenu1->BackgroundBitmap->LoadFromFile(FPath + "b04.bmp");
lbPopupmenu->Caption = sDefaultImage;
cbBackgroundBitmapPM->Checked = true;
};
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::cbShowImageCaptionsClick(
TObject *Sender)
{
dxBarManager1->LockUpdate = true;
bool AChecked = ((TCheckBox*)Sender)->Checked;
for (int i=0; i < ComponentCount; i++)
if (dynamic_cast<TdxBarLargeButton*>(Components[i]))
((TdxBarLargeButton*)Components[i])->ShowCaption = AChecked;
dxBarManager1->LockUpdate = false;
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::cbAssignHotImagesClick(
TObject *Sender)
{
if (((TCheckBox*)Sender)->Checked)
dxBarManager1->HotImages = ilHotImages;
else
dxBarManager1->HotImages = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::BarManagerStyleClick(
TObject *Sender)
{
dxBarManager1->Style = (TdxBarManagerStyle)BarManagerStyle->ItemIndex;
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::sbBarBackgroudClick(
TObject *Sender)
{
if (OpenPictureDialog->Execute())
switch (((TComponent*)Sender)->Tag) {
case 0: {
FBarBackgroudBitmap->LoadFromFile(OpenPictureDialog->FileName);
dxBarManager1->Backgrounds->Bar->Assign(FBarBackgroudBitmap);
lbBarBackgroud->Caption = sCustomImage; } break;
case 1: {
FBarSubmenuBitmap->LoadFromFile(OpenPictureDialog->FileName);
dxBarManager1->Backgrounds->SubMenu->Assign(FBarSubmenuBitmap);
lbBarSubmenu->Caption = sCustomImage;
} break;
case 2: {
FSatusbarBackgroudBitmap->LoadFromFile(OpenPictureDialog->FileName);
dxBarManager1->Bars->Items[4]->BackgroundBitmap->Assign(FSatusbarBackgroudBitmap);
lbSatusbarBackgroud->Caption = sCustomImage;
} break;
case 3: {
FPopupmenuBitmap->LoadFromFile(OpenPictureDialog->FileName);
dxBarPopupMenu1->BackgroundBitmap->Assign(FPopupmenuBitmap);
lbPopupmenu->Caption = sCustomImage;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::dxBarButton1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TBackgroundDemoMainForm::dxBarSpinEdit1CurChange(
TObject *Sender)
{
dxBarProgressItem1->Position = floor(dxBarSpinEdit1->CurValue);
dxBarSpinEdit1->CurValue = dxBarProgressItem1->Position;
}
//---------------------------------------------------------------------------

16937
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoMain.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

127
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/BackgroundDemoMain.h Normal file
View File

@ -0,0 +1,127 @@
//---------------------------------------------------------------------------
#ifndef BackgroundDemoMainH
#define BackgroundDemoMainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "dxBar.hpp"
#include "dxBarExtItems.hpp"
#include <ActnList.hpp>
#include <Buttons.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <ExtDlgs.hpp>
#include <ImgList.hpp>
#include "EBarsUtils.h"
//---------------------------------------------------------------------------
class TBackgroundDemoMainForm : public TForm
{
__published: // IDE-managed Components
TRadioGroup *BarManagerStyle;
TGroupBox *gbBackgroundOptions;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TSpeedButton *sbBarBackgroud;
TSpeedButton *sbBarSubmenu;
TSpeedButton *sbSatusbarBackgroud;
TSpeedButton *sbPopupmenu;
TLabel *lbBarBackgroud;
TLabel *lbBarSubmenu;
TLabel *lbSatusbarBackgroud;
TLabel *lbPopupmenu;
TBevel *Bevel1;
TLabel *Label4;
TCheckBox *cbBar;
TCheckBox *cbSubMenu;
TCheckBox *cbBackgroundBitmap;
TCheckBox *cbBackgroundBitmapPM;
TButton *btnRestoreDefaults;
TGroupBox *gbImageDisplay;
TCheckBox *cbShowImageCaptions;
TCheckBox *cbAssignHotImages;
TPanel *Panel1;
TPanel *pnlMain;
TPanel *pnlOptions;
TImageList *ilLargeImages;
TImageList *ilDisabledImages;
TImageList *ilHotImages;
TdxBarManager *dxBarManager1;
TdxBarSubItem *dxBarSubItem1;
TdxBarSubItem *dxBarSubItem2;
TdxBarSubItem *dxBarSubItem3;
TdxBarSubItem *dxBarSubItem4;
TdxBarSubItem *dxBarSubItem5;
TdxBarSubItem *dxBarSubItem6;
TdxBarLargeButton *dxBarButton1;
TdxBarLargeButton *dxBarButton3;
TdxBarLargeButton *dxBarButton4;
TdxBarLargeButton *dxBarButton5;
TdxBarLargeButton *dxBarButton6;
TdxBarLargeButton *dxBarButton7;
TdxBarLargeButton *dxBarButton8;
TdxBarLargeButton *dxBarButton9;
TdxBarLargeButton *dxBarButton10;
TdxBarLargeButton *dxBarButton11;
TdxBarLargeButton *dxBarLargeButton1;
TdxBarLargeButton *dxBarLargeButton2;
TdxBarLargeButton *dxBarLargeButton3;
TdxBarLargeButton *dxBarLargeButton4;
TdxBarLargeButton *dxBarLargeButton5;
TdxBarLargeButton *dxBarLargeButton6;
TdxBarLargeButton *dxBarLargeButton7;
TdxBarButton *dxBarButton15;
TdxBarColorCombo *dxBarColorCombo1;
TdxBarFontNameCombo *dxBarFontNameCombo1;
TdxBarDateCombo *dxBarDateCombo1;
TdxBarSpinEdit *dxBarSpinEdit1;
TdxBarProgressItem *dxBarProgressItem1;
TdxBarStatic *dxBarStatic1;
TdxBarLargeButton *dxBarLargeButton8;
TdxBarLargeButton *dxBarLargeButton9;
TdxBarLargeButton *dxBarLargeButton10;
TdxBarLargeButton *dxBarLargeButton11;
TdxBarLargeButton *dxBarLargeButton12;
TdxBarLargeButton *dxBarLargeButton13;
TdxBarLargeButton *dxBarLargeButton14;
TdxBarLargeButton *btnNewWindow;
TdxBarLargeButton *btnArrangeAll;
TdxBarLargeButton *btnSplit;
TdxBarLargeButton *btnNew;
TdxBarLargeButton *btnOpen;
TdxBarLargeButton *btnSave;
TdxBarLargeButton *btnClose;
TdxBarLargeButton *btnPrint;
TdxBarLargeButton *btnSaveAs;
TdxBarLargeButton *btnSaveAll;
TdxBarSubItem *dxBarSubItem7;
TdxBarLargeButton *dxBarLargeButton15;
TdxBarLargeButton *dxBarLargeButton16;
TdxBarPopupMenu *dxBarPopupMenu1;
TOpenPictureDialog *OpenPictureDialog;
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
void __fastcall cbBarClick(TObject *Sender);
void __fastcall cbSubMenuClick(TObject *Sender);
void __fastcall cbBackgroundBitmapClick(TObject *Sender);
void __fastcall cbBackgroundBitmapPMClick(TObject *Sender);
void __fastcall btnRestoreDefaultsClick(TObject *Sender);
void __fastcall cbShowImageCaptionsClick(TObject *Sender);
void __fastcall cbAssignHotImagesClick(TObject *Sender);
void __fastcall BarManagerStyleClick(TObject *Sender);
void __fastcall sbBarBackgroudClick(TObject *Sender);
void __fastcall dxBarButton1Click(TObject *Sender);
void __fastcall dxBarSpinEdit1CurChange(TObject *Sender);
private: // User declarations
Graphics::TBitmap* FBarBackgroudBitmap, *FBarSubmenuBitmap, *FSatusbarBackgroudBitmap, *FPopupmenuBitmap;
String FPath;
public: // User declarations
__fastcall TBackgroundDemoMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TBackgroundDemoMainForm *BackgroundDemoMainForm;
//---------------------------------------------------------------------------
#endif

BIN
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/b01.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 27 KiB

BIN
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/b02.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/b03.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.3 KiB

BIN
official/.26/ExpressBars 6/Demos/CBuilder/BackgroundDemo/b04.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 852 B

38
official/.26/ExpressBars 6/Demos/CBuilder/BarsDemo.groupproj Normal file
View File

@ -0,0 +1,38 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<ProjectExtensions>
<Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Target Name="BackgroundDemo">
<MSBuild Projects="BackgroundDemo\BackgroundDemo.dproj" Targets="" />
</Target>
<Target Name="DockingMegaDemo">
<MSBuild Projects="DockingMegaDemo\DockingMegaDemo.dproj" Targets="" />
</Target>
<Target Name="EBarMegaDemo">
<MSBuild Projects="EBarMegaDemo\EBarMegaDemo.dproj" Targets="" />
</Target>
<Target Name="EBar2000Demo">
<MSBuild Projects="EBar2000Demo\EBar2000Demo.dproj" Targets="" />
</Target>
<Target Name="EBarMDIDemo">
<MSBuild Projects="EBarMDIDemo\EBarMDIDemo.dproj" Targets="" />
</Target>
<Target Name="ESBarDemo">
<MSBuild Projects="ESBarDemo\ESBarDemo.dproj" Targets="" />
</Target>
<Target Name="InPlaceEditorsDemo">
<MSBuild Projects="InPlaceEditorsDemo\InPlaceEditorsDemo.dproj" Targets="" />
</Target>
<Target Name="RibbonNotepadDemo">
<MSBuild Projects="RibbonNotepadDemo\RibbonNotepadDemo.dproj" Targets="" />
</Target>
<Target Name="SampleDocking">
<MSBuild Projects="SampleDocking\SampleDocking.dproj" Targets="" />
</Target>
<Target Name="Build">
<CallTarget Targets="BackgroundDemo;DockingMegaDemo;EBarMegaDemo;EBar2000Demo;EBarMDIDemo;ESBarDemo;InPlaceEditorsDemo;RibbonNotepadDemo;SampleDocking" />
</Target>
</Project>

22
official/.26/ExpressBars 6/Demos/CBuilder/BarsDemoC10.bdsgroup Normal file
View File

@ -0,0 +1,22 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality" Type="String">Default.Personality</Option>
</Option>
</PersonalityInfo>
<Default.Personality>
<Projects>
<Projects Name="BackgroundDemoC10.exe" Type="String">BackgroundDemo\BackgroundDemoC10.bdsproj</Projects>
<Projects Name="DockingMegaDemoC10.exe" Type="String">DockingMegaDemo\DockingMegaDemoC10.bdsproj</Projects>
<Projects Name="EBarMegaDemoC10.exe" Type="String">EBarMegaDemo\EBarMegaDemoC10.bdsproj</Projects>
<Projects Name="EBar2000DemoC10.exe" Type="String">EBar2000Demo\EBar2000DemoC10.bdsproj</Projects>
<Projects Name="EBarMDIDemoC10.exe" Type="String">EBarMDIDemo\EBarMDIDemoC10.bdsproj</Projects>
<Projects Name="ESBarDemoC10.exe" Type="String">ESBarDemo\ESBarDemoC10.bdsproj</Projects>
<Projects Name="InPlaceEditorsDemoC10.exe" Type="String">InPlaceEditorsDemo\InPlaceEditorsDemoC10.bdsproj</Projects>
<Projects Name="RibbonNotepadDemoC10.exe" Type="String">RibbonNotepadDemo\RibbonNotepadDemoC10.bdsproj</Projects>
<Projects Name="SampleDockingC10.exe" Type="String">SampleDocking\SampleDockingC10.bdsproj</Projects>
<Projects Name="Targets" Type="String">BackgroundDemoC10.exe DockingMegaDemoC10.exe EBarMegaDemoC10.exe EBar2000DemoC10.exe EBarMDIDemoC10.exe ESBarDemoC10.exe InPlaceEditorsDemoC10.exe RibbonNotepadDemoC10.exe SampleDockingC10.exe</Projects>
</Projects>
</Default.Personality>
</BorlandProject>

46
official/.26/ExpressBars 6/Demos/CBuilder/BarsDemoC10.bpg Normal file
View File

@ -0,0 +1,46 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = BackgroundDemoC10.exe DockingMegaDemoC10.exe EBarMegaDemoC10.exe EBar2000DemoC10.exe \
EBarMDIDemoC10.exe ESBarDemoC10.exe InPlaceEditorsDemoC10.exe RibbonNotepadDemoC10.exe SampleDockingC10.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
BackgroundDemoC10.exe: BackgroundDemo\BackgroundDemoC10.bpr
$(MAKE)
DockingMegaDemoC10.exe: DockingMegaDemo\DockingMegaDemoC10.bpr
$(MAKE)
EBarMegaDemoC10.exe: EBarMegaDemo\EBarMegaDemoC10.bpr
$(MAKE)
EBar2000DemoC10.exe: EBar2000Demo\EBar2000DemoC10.bpr
$(MAKE)
EBarMDIDemoC10.exe: EBarMDIDemo\EBarMDIDemoC10.bpr
$(MAKE)
ESBarDemoC10.exe: ESBarDemo\ESBarDemoC10.bpr
$(MAKE)
InPlaceEditorsDemoC10.exe: InPlaceEditorsDemo\InPlaceEditorsDemoC10.bpr
$(MAKE)
RibbonNotepadDemoC10.exe: RibbonNotepadDemo\RibbonNotepadDemoC10.bpr
$(MAKE)
SampleDockingC10.exe: SampleDocking\SampleDockingC10.bpr
$(MAKE)

46
official/.26/ExpressBars 6/Demos/CBuilder/BarsDemoC5.bpg Normal file
View File

@ -0,0 +1,46 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = BackgroundDemoC5.exe DockingMegaDemoC5.exe EBarMegaDemoC5.exe EBar2000DemoC5.exe \
EBarMDIDemoC5.exe ESBarDemoC5.exe InPlaceEditorsDemoC5.exe RibbonNotepadDemoC5.exe SampleDockingC5.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
BackgroundDemoC5.exe: BackgroundDemo\BackgroundDemoC5.bpr
$(MAKE)
DockingMegaDemoC5.exe: DockingMegaDemo\DockingMegaDemoC5.bpr
$(MAKE)
EBarMegaDemoC5.exe: EBarMegaDemo\EBarMegaDemoC5.bpr
$(MAKE)
EBar2000DemoC5.exe: EBar2000Demo\EBar2000DemoC5.bpr
$(MAKE)
EBarMDIDemoC5.exe: EBarMDIDemo\EBarMDIDemoC5.bpr
$(MAKE)
ESBarDemoC5.exe: ESBarDemo\ESBarDemoC5.bpr
$(MAKE)
InPlaceEditorsDemoC5.exe: InPlaceEditorsDemo\InPlaceEditorsDemoC5.bpr
$(MAKE)
RibbonNotepadDemoC5.exe: RibbonNotepadDemo\RibbonNotepadDemoC5.bpr
$(MAKE)
SampleDockingC5.exe: SampleDocking\SampleDockingC5.bpr
$(MAKE)

46
official/.26/ExpressBars 6/Demos/CBuilder/BarsDemoC6.bpg Normal file
View File

@ -0,0 +1,46 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = BackgroundDemoC6.exe DockingMegaDemoC6.exe EBarMegaDemoC6.exe EBar2000DemoC6.exe \
EBarMDIDemoC6.exe ESBarDemoC6.exe InPlaceEditorsDemoC6.exe RibbonNotepadDemoC6.exe SampleDockingC6.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
BackgroundDemoC6.exe: BackgroundDemo\BackgroundDemoC6.bpr
$(MAKE)
DockingMegaDemoC6.exe: DockingMegaDemo\DockingMegaDemoC6.bpr
$(MAKE)
EBarMegaDemoC6.exe: EBarMegaDemo\EBarMegaDemoC6.bpr
$(MAKE)
EBar2000DemoC6.exe: EBar2000Demo\EBar2000DemoC6.bpr
$(MAKE)
EBarMDIDemoC6.exe: EBarMDIDemo\EBarMDIDemoC6.bpr
$(MAKE)
ESBarDemoC6.exe: ESBarDemo\ESBarDemoC6.bpr
$(MAKE)
InPlaceEditorsDemoC6.exe: InPlaceEditorsDemo\InPlaceEditorsDemoC6.bpr
$(MAKE)
RibbonNotepadDemoC6.exe: RibbonNotepadDemo\RibbonNotepadDemoC6.bpr
$(MAKE)
SampleDockingC6.exe: SampleDocking\SampleDockingC6.bpr
$(MAKE)

15
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsAbout.cpp Normal file
View File

@ -0,0 +1,15 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
__fastcall TEBarsAboutForm::TEBarsAboutForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

2245
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsAbout.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

29
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsAbout.h Normal file
View File

@ -0,0 +1,29 @@
//---------------------------------------------------------------------------
#ifndef EBarsAboutH
#define EBarsAboutH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
//---------------------------------------------------------------------------
class TEBarsAboutForm : public TForm
{
__published: // IDE-managed Components
TLabel *lbCopyright;
TBevel *bvBottom;
TLabel *lbCompanyName;
TLabel *lbDemoName;
TImage *imgIcon;
TRichEdit *reDemoInfo;
TButton *btnOK;
private: // User declarations
public: // User declarations
__fastcall TEBarsAboutForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
#endif

65
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsDemoRating.cpp Normal file
View File

@ -0,0 +1,65 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Shellapi.h"
#include "EBarsDemoRating.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEBarsDemoRatingForm *EBarsDemoRatingForm;
const String OurEmail = "Support@devexpress.com";
const String EmailSubj = "EBars6.Demos.";
//---------------------------------------------------------------------------
__fastcall TEBarsDemoRatingForm::TEBarsDemoRatingForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEBarsDemoRatingForm::rgRateChange(TObject *Sender)
{
if (rgRate->ItemIndex != -1)
btnSend->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TEBarsDemoRatingForm::AdjustMessageBody(String &ABody, String ASearchStr, String AReplaceStr)
{
int APos = ABody.Pos(ASearchStr);
while (APos != 0) {
ABody.Delete(APos, ASearchStr.Length());
ABody.Insert(AReplaceStr, APos);
APos = ABody.Pos(ASearchStr);
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarsDemoRatingForm::btnSendClick(TObject *Sender)
{
Screen->Cursor = crHourGlass;
try {
String ABody, ASubj;
ASubj = EmailSubj + ChangeFileExt(ExtractFileName(Application->ExeName),"")+"-user rating";
ABody = "Rate: " + IntToStr(rgRate->ItemIndex + 1);
if (memRateDescrip->Text != "")
ABody = ABody+"\r\n"+"\r\n"+"Description:"+ "\r\n" + memRateDescrip->Text;
AdjustMessageBody(ABody, "%", "$prc$");
AdjustMessageBody(ABody, "$prc$", "%25");
AdjustMessageBody(ABody, "\r\n", "%0D%0A");
AdjustMessageBody(ABody, "&", "%26");
AdjustMessageBody(ABody, " ", "%20");
String s = "mailto:" + OurEmail + "?subject="+ASubj+"&body="+ABody;
ShellExecute(Handle, "OPEN", s.c_str(), NULL, NULL, SW_SHOWMAXIMIZED);
}
__finally {
Screen->Cursor = crDefault;
Close();
}
}
//---------------------------------------------------------------------------

91
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsDemoRating.dfm Normal file
View File

@ -0,0 +1,91 @@
object EBarsDemoRatingForm: TEBarsDemoRatingForm
Left = 399
Top = 220
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Demo rating '
ClientHeight = 254
ClientWidth = 306
Color = 15921902
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 16
Width = 256
Height = 13
Caption = 'How would you rate the quality of this demo?'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 48
Width = 22
Height = 13
Caption = 'Poor'
end
object Label3: TLabel
Left = 252
Top = 48
Width = 43
Height = 13
Caption = 'Excellent'
end
object Label4: TLabel
Left = 8
Top = 80
Width = 263
Height = 13
Caption = 'Tell us your opinion about this demo (optional)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object memRateDescrip: TMemo
Left = 8
Top = 96
Width = 289
Height = 121
Color = 15921902
TabOrder = 1
end
object btnSend: TButton
Left = 224
Top = 224
Width = 75
Height = 25
Caption = 'Email...'
Enabled = False
TabOrder = 2
OnClick = btnSendClick
end
object rgRate: TRadioGroup
Left = 44
Top = 32
Width = 201
Height = 38
Columns = 5
Items.Strings = (
'1'
'2'
'3'
'4'
'5')
TabOrder = 0
OnClick = rgRateChange
end
end

32
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsDemoRating.h Normal file
View File

@ -0,0 +1,32 @@
//---------------------------------------------------------------------------
#ifndef EBarsDemoRatingH
#define EBarsDemoRatingH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TEBarsDemoRatingForm : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TLabel *Label4;
TMemo *memRateDescrip;
TButton *btnSend;
TRadioGroup *rgRate;
void __fastcall rgRateChange(TObject *Sender);
void __fastcall btnSendClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TEBarsDemoRatingForm(TComponent* Owner);
void __fastcall AdjustMessageBody(String &ABody, String ASearchStr, String AReplaceStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarsDemoRatingForm *EBarsDemoRatingForm;
//---------------------------------------------------------------------------
#endif

99
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsUtils.cpp Normal file
View File

@ -0,0 +1,99 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#include <Forms.hpp>
#pragma hdrstop
#include "EBarsUtils.h"
#include "EBarsDemoRating.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TdmCommonData *dmCommonData;
//---------------------------------------------------------------------------
__fastcall TdmCommonData::TdmCommonData(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actSBarsHelpExecute(TObject *Sender)
{
Application->HelpFile = "..\\..\\..\\..\\ExpressSideBar\\Help\\eSideBar.hlp";
Application->HelpCommand(HELP_FINDER, 0);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actBarsHelpExecute(TObject *Sender)
{
Application->HelpFile = "..\\..\\..\\Help\\ExpressBars6.hlp";
Application->HelpCommand(HELP_FINDER, 0);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actDockingHelpExecute(TObject *Sender)
{
Application->HelpFile = "..\\..\\..\\..\\ExpressDocking Library\\Help\\docking.hlp";
Application->HelpCommand(HELP_FINDER, 0);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actRateDemoExecute(TObject *Sender)
{
TEBarsDemoRatingForm* EBarsDemoRatingForm = new TEBarsDemoRatingForm(NULL);
try {
EBarsDemoRatingForm->ShowModal();
}
__finally {
delete EBarsDemoRatingForm;
}
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actMyDXExecute(TObject *Sender)
{
Browse(spMyDX);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actDownloadsExecute(TObject *Sender)
{
Browse(spDownloads);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actSupportExecute(TObject *Sender)
{
Browse(spSupport);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actDXOnTheWebExecute(TObject *Sender)
{
Browse(spStart);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actProductsExecute(TObject *Sender)
{
Browse(spProducts);
}
//---------------------------------------------------------------------------
void __fastcall TdmCommonData::actAboutExecute(TObject *Sender)
{
TEBarsAboutForm * AboutForm;
Application->CreateForm(AboutFormClass, &AboutForm);
try {
AboutForm->ShowModal();
}
__finally {
delete AboutForm;
}
}
//---------------------------------------------------------------------------
void Browse(dxSitePage ASitePage)
{
PCHAR AURL;
switch (ASitePage)
{
case spDownloads: AURL = dxDownloadURL; break;
case spSupport: AURL = dxSupportURL; break;
case spStart: AURL = dxStartURL; break;
case spProducts: AURL = dxProductsURL; break;
case spMyDX: AURL = dxMyDXURL; break;
}
ShellExecute(0, "OPEN", AURL, NULL, NULL, SW_SHOWMAXIMIZED);
}
//---------------------------------------------------------------------------

84
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsUtils.dfm Normal file
View File

@ -0,0 +1,84 @@
object dmCommonData: TdmCommonData
Left = 430
Top = 127
Height = 435
Width = 789
object alMain: TActionList
Left = 96
Top = 208
object actSBarsHelp: TAction
Category = 'Help'
Caption = 'Express SideBar Help'
Hint = 'Express &SideBar Help'
ImageIndex = 0
OnExecute = actSBarsHelpExecute
end
object actBarsHelp: TAction
Category = 'Help'
Caption = 'Express&Bars 6 Help'
Hint = 'Starts the ExpressBars6 help system'
ImageIndex = 0
OnExecute = actBarsHelpExecute
end
object actDockingHelp: TAction
Category = 'Help'
Caption = 'Express D&ocking Library Help'
Hint = 'Starts the Express Docking Library help system'
ImageIndex = 0
OnExecute = actDockingHelpExecute
end
object actRateDemo: TAction
Category = 'Help'
Caption = '&Rate this demo...'
Hint = 'Send feedback to Developer Express'
ImageIndex = 1
OnExecute = actRateDemoExecute
end
object actMyDX: TAction
Category = 'Help'
Caption = 'DevExpress Client C&enter'
Hint = 'Launches the Developer Express Client Center webpage'
ImageIndex = 2
OnExecute = actMyDXExecute
end
object actDownloads: TAction
Category = 'Help'
Caption = 'Developer Express &Downloads'
Hint =
'Launches the webpage with the list of available downloads of De' +
'veloper Express products'
ImageIndex = 2
OnExecute = actDownloadsExecute
end
object actSupport: TAction
Category = 'Help'
Caption = 'DevExpress Support &Center'
Hint = 'Launches the webpage with the Developer Express Support Center'
ImageIndex = 2
OnExecute = actSupportExecute
end
object actProducts: TAction
Category = 'Help'
Caption = 'Developer Express &Products'
Hint =
'Launches the webpage with the list of Developer Express product' +
's'
ImageIndex = 2
OnExecute = actProductsExecute
end
object actDXOnTheWeb: TAction
Category = 'Help'
Caption = 'Developer Express on the &Web'
Hint = 'Launches the official website of Developer Express'
ImageIndex = 3
OnExecute = actDXOnTheWebExecute
end
object actAbout: TAction
Category = 'Options'
Caption = '&About'
Checked = True
Hint = 'Display the description of the current demo'
OnExecute = actAboutExecute
end
end
end

56
official/.26/ExpressBars 6/Demos/CBuilder/Common/EBarsUtils.h Normal file
View File

@ -0,0 +1,56 @@
//---------------------------------------------------------------------------
#ifndef EBarsUtilsH
#define EBarsUtilsH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ActnList.hpp>
#include <ImgList.hpp>
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
enum dxSitePage { spDownloads, spSupport, spStart, spProducts, spMyDX };
//---------------------------------------------------------------------------
const
PChar dxDownloadURL = "http://www.devexpress.com/downloads",
dxSupportURL = "http://www.devexpress.com/Support/Center",
dxStartURL = "http://www.devexpress.com",
dxProductsURL = "http://www.devexpress.com/products",
dxMyDXURL = "https://www.devexpress.com/ClientCenter";
//---------------------------------------------------------------------------
class TdmCommonData : public TDataModule
{
__published: // IDE-managed Components
TActionList *alMain;
TAction *actBarsHelp;
TAction *actDockingHelp;
TAction *actRateDemo;
TAction *actDownloads;
TAction *actSupport;
TAction *actDXOnTheWeb;
TAction *actProducts;
TAction *actAbout;
void __fastcall actSBarsHelpExecute(TObject *Sender);
void __fastcall actBarsHelpExecute(TObject *Sender);
void __fastcall actDockingHelpExecute(TObject *Sender);
void __fastcall actRateDemoExecute(TObject *Sender);
void __fastcall actMyDXExecute(TObject *Sender);
void __fastcall actDownloadsExecute(TObject *Sender);
void __fastcall actSupportExecute(TObject *Sender);
void __fastcall actDXOnTheWebExecute(TObject *Sender);
void __fastcall actProductsExecute(TObject *Sender);
void __fastcall actAboutExecute(TObject *Sender);
private: // User declarations
TMetaClass* FAboutFormClass;
public: // User declarations
__fastcall TdmCommonData(TComponent* Owner);
__property TMetaClass* AboutFormClass = {read=FAboutFormClass, write=FAboutFormClass, nodefault};
};
//---------------------------------------------------------------------------
extern PACKAGE TdmCommonData *dmCommonData;
//---------------------------------------------------------------------------
void Browse(dxSitePage ASitePage);
//---------------------------------------------------------------------------
#endif

40
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemo.cpp Normal file
View File

@ -0,0 +1,40 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USERES("DockingMegaDemo.res");
USEFORM("DockingMegaDemoAbout.cpp", DockingMegaDemoAboutForm);
USEFORM("..\Common\EBarsDemoRating.cpp", EBarsDemoRatingForm);
USEFORM("..\Common\EBarsAbout.cpp", EBarsAboutForm);
USEFORM("DockingMegaDemoMain.cpp", DockingMegaDemoMainForm);
USEFORM("..\Common\EBarsUtils.cpp", dmCommonData);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "ExpressBars6 DockingMega Demo";
Application->CreateForm(__classid(TdmCommonData), &dmCommonData);
Application->CreateForm(__classid(TDockingMegaDemoMainForm), &DockingMegaDemoMainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------

2475
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemo.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

80
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemo.h Normal file
View File

@ -0,0 +1,80 @@
//---------------------------------------------------------------------------
#ifndef DockingMegaDemoH
#define DockingMegaDemoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "dxBar.hpp"
#include "dxDockControl.hpp"
#include <ActnList.hpp>
#include <Dialogs.hpp>
#include <ImgList.hpp>
//---------------------------------------------------------------------------
class TfmMain : public TForm
{
__published: // IDE-managed Components
TActionList *alMain;
TAction *actHelp;
TAction *actRateDemo;
TAction *actDownloads;
TAction *actForum;
TAction *actDXOnTheWeb;
TAction *actProducts;
TAction *actAbout;
TAction *actShowDemoDescription;
TdxDockingManager *dxDockingManager1;
TdxBarManager *BarManager;
TdxBarButton *dxBarButtonLoad;
TdxBarButton *dxBarButtonSave;
TdxBarSubItem *dxBarSubItemFile;
TdxBarSubItem *dxBarSubItemInsert;
TdxBarSubItem *dxBarSubItemFormat;
TdxBarSubItem *dxBarSubItemWindow;
TdxBarButton *dxBarButtonExit;
TdxBarSubItem *dxBarSubItemHelp;
TdxBarButton *dxBarButtonStartPage;
TdxBarButton *dxBarButtonToolBox;
TdxBarButton *dxBarButtonWatch;
TdxBarButton *dxBarButtonOutput;
TdxBarButton *dxBarButtonCallStack;
TdxBarButton *dxBarButtonProperties;
TdxBarButton *dxBarButtonClassView;
TdxBarButton *dxBarButtonFont;
TdxBarButton *dxBarButtonColor;
TdxBarButton *dxBarButtonStandardView;
TdxBarButton *dxBarButtonNETView;
TdxBarButton *dxBarButtonOffice11View;
TdxBarButton *dxBarButtonSolutionExplorer;
TdxBarButton *dxBarButtonDockable;
TdxBarButton *dxBarButtonHide;
TdxBarButton *dxBarButtonFloating;
TdxBarButton *dxBarButtonAutoHide;
TdxBarSubItem *dxBarSubItemOtherWindows;
TdxBarButton *dxBarButtonXPView;
TdxBarButton *dxBarButton1;
TdxBarButton *dxBarButton2;
TdxBarButton *dxBarButton3;
TdxBarButton *dxBarButton4;
TdxBarButton *dxBarButton5;
TdxBarButton *dxBarButton6;
TdxBarButton *dxBarButton7;
TdxBarPopupMenu *dxBarPopupMenu1;
TFontDialog *FontDialog1;
TColorDialog *ColorDialog1;
TOpenDialog *OpenDialog1;
TSaveDialog *SaveDialog1;
TImageList *ilDockIcons;
TImageList *imBarIcons;
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TfmMain(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TfmMain *fmMain;
//---------------------------------------------------------------------------
#endif

BIN
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemo.res Normal file
View File

Binary file not shown.

16
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoAbout.cpp Normal file
View File

@ -0,0 +1,16 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DockingMegaDemoAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDockingMegaDemoAboutForm *DockingMegaDemoAboutForm;
//---------------------------------------------------------------------------
__fastcall TDockingMegaDemoAboutForm::TDockingMegaDemoAboutForm(TComponent* Owner)
: TEBarsAboutForm(Owner)
{
}
//---------------------------------------------------------------------------

32
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoAbout.dfm Normal file
View File

@ -0,0 +1,32 @@
inherited DockingMegaDemoAboutForm: TDockingMegaDemoAboutForm
ClientWidth = 392
PixelsPerInch = 96
TextHeight = 13
inherited lbDemoName: TLabel
Width = 138
Caption = 'DockingMegaDemo'
end
inherited reDemoInfo: TRichEdit
Width = 253
Lines.Strings = (
'This demo shows how ExpressBars 6 provides '
'docking facilities similar in style to MS Visual Studio.'
''
'Experiment with docking - you can dock, undock '
'panels, autohide and float them'
''
'Set the Font and Color of docking panels and '
'change the View Style (see Style Menu)'
''
'You can also set properties for each docking panel - '
'select an item in the Solution Explorer and change '
'its properties in the Properties panel.'
''
'Use the '#39'Save Layout'#39' followed by '#39'Load Layout'#39' to '
'show the persistance of settings at runtime.'
''
'Note: most of the images used in this demo have '
'been provided by Glyfz - to purchase your copy or '
'download free samples, please visit www.glyfz.com')
end
end

25
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoAbout.h Normal file
View File

@ -0,0 +1,25 @@
//---------------------------------------------------------------------------
#ifndef DockingMegaDemoAboutH
#define DockingMegaDemoAboutH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
class TDockingMegaDemoAboutForm : public TEBarsAboutForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TDockingMegaDemoAboutForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDockingMegaDemoAboutForm *DockingMegaDemoAboutForm;
//---------------------------------------------------------------------------
#endif

73
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoC10.bdsproj Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">CPlusPlusBuilder.Personality</Option>
<Option Name="ProjectType">CppVCLApplication</Option>
</Option>
</PersonalityInfo>
<CPlusPlusBuilder.Personality>
<BCBPROJECT>
<project version="10.0">
<property category="build.config" name="excludedefaultforzero" value="0"/>
<property category="build.config.0" name="settings.win32b" value="default"/>
<property category="build.node" name="name" value="DockingMegaDemo.exe"/>
<property category="build.node" name="sparelibs" value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<property category="build.platform" name="active" value="win32"/>
<property category="build.platform" name="win32.default" value="win32b"/>
<property category="build.platform" name="win32.enabled" value="1"/>
<property category="build.platform" name="win32.win32b.enabled" value="1"/>
<optionset name="all_configurations">
<property category="node" name="displayname" value="All Configurations"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.1" value="$(SYSDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.2" value="$(USERDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.3" value="NO_WIN32_LEAN_AND_MEAN"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.D.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.1" value="$(BCB)\lib\vcl100.csm"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.merge" value="0"/>
<property category="win32.*.win32b.bcc32" name="option.H=.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.Hc.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.1" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.2" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.3" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.4" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.5" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.6" value="..\Common"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.1" value="_RTLDLL"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.2" value="NO_STRICT"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.1" value="$(BCB)\lib\release"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.2" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.3" value="$(BCB)\lib\obj"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.4" value="$(BCB)\lib"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.5" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.aa.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.1" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.enabled" value="0"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.1" value="."/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.1" value="$(LIBRARIES)"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.2" value="import32.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.3" value="cp32mt.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.1" value="c0w32.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.2" value="Memmgr.Lib"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.3" value="$(PACKAGES)"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.4" value="sysinit.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.merge" value="1"/>
</optionset>
</project>
</BCBPROJECT>
<Source>
<Source Name="MainSource">DockingMegaDemo.cpp</Source>
</Source>
</CPlusPlusBuilder.Personality>
</BorlandProject>

42
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoC10.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.10.00"/>
<PROJECT value="DockingMegaDemo.exe"/>
<OBJFILES value="DockingMegaDemo.obj DockingMegaDemoAbout.obj ..\Common\EBarsDemoRating.obj DockingMegaDemoMain.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="DockingMegaDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) DockingMegaDemoAbout.dfm ..\Common\EBarsDemoRating.dfm DockingMegaDemoMain.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="DockingMegaDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder10"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder10"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl100.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoC5.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="DockingMegaDemo.exe"/>
<OBJFILES value="DockingMegaDemo.obj DockingMegaDemoAbout.obj ..\Common\EBarsDemoRating.obj DockingMegaDemoMain.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="DockingMegaDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) DockingMegaDemoAbout.dfm ..\Common\EBarsDemoRating.dfm DockingMegaDemoMain.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<SPARELIBS value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="DockingMegaDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder5"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder5"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoC6.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="DockingMegaDemo.exe"/>
<OBJFILES value="DockingMegaDemo.obj DockingMegaDemoAbout.obj ..\Common\EBarsDemoRating.obj DockingMegaDemoMain.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="DockingMegaDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) DockingMegaDemoAbout.dfm ..\Common\EBarsDemoRating.dfm DockingMegaDemoMain.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="DockingMegaDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder6"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder6"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

540
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoMain.cpp Normal file
View File

@ -0,0 +1,540 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DockingMegaDemoMain.h"
#include "DockingMegaDemoAbout.h"
#include "EBarsDemoRating.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dxBar"
#pragma link "dxDockControl"
#pragma link "dxDockPanel"
#pragma link "dxBarExtItems"
#pragma link "dxsbar"
#pragma resource "*.dfm"
TDockingMegaDemoMainForm *DockingMegaDemoMainForm;
//---------------------------------------------------------------------------
__fastcall TDockingMegaDemoMainForm::TDockingMegaDemoMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::FormShow(TObject *Sender)
{
DockControl = dsHost;
UpdateSolutionTV();
UpdateClassViewTV();
ComboBox1->Align = alClient;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::CheckSite(TdxCustomDockControl* AControl, TTreeNode* ANode)
{
String ANodeName;
if (AControl->Name != "")
ANodeName = AControl->Name;
else ANodeName = AControl->ClassName();
TTreeNode* AChild = tvSolutionExplorer->Items->AddChildObject(ANode, ANodeName, AControl);
AChild->StateIndex = AControl->ImageIndex;
for (int i=0; i < AControl->ChildCount; i++)
CheckSite(AControl->Children[i], AChild);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::UpdateSolutionTV()
{
if (!tvSolutionExplorer->HandleAllocated()) return;
tvSolutionExplorer->Items->BeginUpdate();
try {
tvSolutionExplorer->Items->Clear();
CheckSite(dsHost, NULL);
tvSolutionExplorer->FullExpand();
}
__finally {
tvSolutionExplorer->Items->EndUpdate();
}
tvSolutionExplorer->Selected = NULL;
for (int i=0; i < tvSolutionExplorer->Items->Count; i++)
if (((TdxCustomDockControl*)tvSolutionExplorer->Items->Item[i]->Data) == DockControl)
tvSolutionExplorer->Selected = tvSolutionExplorer->Items->Item[i];
UpdateProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::UpdateClassViewTV()
{
if (!tvClassView->HandleAllocated()) return;
TTreeNode* ANode;
tvClassView->Items->BeginUpdate();
try {
tvClassView->Items->Clear();
ANode = tvClassView->Items->AddChild(NULL, "TdxCustomDockControl");
ANode = tvClassView->Items->AddChild(ANode, "TdxCustomDockSite");
tvClassView->Items->AddChild(ANode, "TdxLayoutDockSite");
ANode = tvClassView->Items->AddChild(ANode, "TdxContainerDockSite");
tvClassView->Items->AddChild(ANode, "TdxTabContainerDockSite");
ANode = tvClassView->Items->AddChild(ANode, "TdxSideContainerDockSite");
tvClassView->Items->AddChild(ANode, "TdxHorizContainerDockSite");
tvClassView->Items->AddChild(ANode, "TdxVertContainerDockSite");
tvClassView->Items->AddChild(tvClassView->Items->Item[1], "TdxFloatDockSite");
tvClassView->Items->AddChild(tvClassView->Items->Item[1], "TdxDockSite");
tvClassView->Items->AddChild(tvClassView->Items->Item[0], "TdxDockPanel");
tvClassView->FullExpand();
}
__finally {
tvClassView->Items->EndUpdate();
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::MakeVisible(TdxDockPanel* AControl)
{
if (AControl == NULL) return;
if (!AControl->Visible)
AControl->Visible = true;
dxDockingController()->ActiveDockControl = AControl;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonPageClick(TObject *Sender)
{
switch (((TComponent*)Sender)->Tag) {
case 0: MakeVisible(dpStartPage); break;
case 1: MakeVisible(dpSolutionExplorer); break;
case 2: MakeVisible(dpClassView); break;
case 3: MakeVisible(dpProperties); break;
case 4: MakeVisible(dpToolbox); break;
case 5: MakeVisible(dpCallStack); break;
case 6: MakeVisible(dpOutput); break;
case 7: MakeVisible(dpWatch); break;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonLoadClick(TObject *Sender)
{
if (OpenDialog1->Execute())
dxDockingManager1->LoadLayoutFromIniFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonSaveClick(TObject *Sender)
{
if (SaveDialog1->Execute())
dxDockingManager1->SaveLayoutToIniFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonColorClick(TObject *Sender)
{
ColorDialog1->Color = dxDockingManager1->Color;
if (ColorDialog1->Execute())
dxDockingManager1->Color = ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonFontClick(TObject *Sender)
{
FontDialog1->Font = dxDockingManager1->Font;
if (FontDialog1->Execute())
dxDockingManager1->Font = FontDialog1->Font;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonStandardViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsStandard;
BarManager->Style = bmsStandard;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonNETViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsNET;
BarManager->Style = bmsFlat;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonOffice11ViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsOffice11;
BarManager->Style = bmsOffice11;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonXPViewClick(TObject *Sender)
{
dxDockingManager1->ViewStyle = vsXP;
BarManager->Style = bmsXP;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::frStartPage1Label1Click(TObject *Sender)
{
dxBarButtonLoadClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::frStartPage1Label2Click(TObject *Sender)
{
dxBarButtonSaveClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonDockableClick(TObject *Sender)
{
if (FPopupMenuDockControl != NULL) {
FPopupMenuDockControl->Dockable = ((TdxBarButton*)Sender)->Down;
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonHideClick(TObject *Sender)
{
if (FPopupMenuDockControl != NULL) {
FPopupMenuDockControl->Visible = false;
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonFloatingClick(TObject *Sender)
{
TPoint pt;
if ((FPopupMenuDockControl != NULL) && (FPopupMenuDockControl->DockState != dsFloating)) {
GetCursorPos(&pt);
FPopupMenuDockControl->MakeFloating(pt.x, pt. y);
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonAutoHideClick(TObject *Sender)
{
if (FPopupMenuDockControl != NULL) {
FPopupMenuDockControl->AutoHide = ((TdxBarButton*)Sender)->Down;
FPopupMenuDockControl = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dpContextPopup(TObject *Sender, const TPoint &MousePos, bool &Handled)
{
TPoint pt;
GetCursorPos(&pt);
TdxCustomDockControl* AControl = dxDockingController()->GetDockControlAtPos(pt);
if (AControl != NULL) {
FPopupMenuDockControl = AControl;
dxBarButtonDockable->Down = FPopupMenuDockControl->Dockable;
dxBarButtonFloating->Down = FPopupMenuDockControl->FloatDockSite != NULL;
dxBarButtonAutoHide->Enabled = FPopupMenuDockControl->CanAutoHide();
dxBarButtonAutoHide->Down = FPopupMenuDockControl->AutoHide;
dxBarPopupMenu1->PopupFromCursorPos();
Handled = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::UpdateProperties()
{
if ((FDockControl != NULL) && !FDockControl->ComponentState.Contains(csDestroying)) {
cbManagerColor->Enabled = true;
cbManagerColor->Checked = FDockControl->ManagerColor;
cbManagerFont->Enabled = true;
cbManagerFont->Checked = FDockControl->ManagerFont;
eCaption->Enabled = true;
eCaption->Text = FDockControl->Caption;
cbShowCaption->Enabled = true;
cbShowCaption->Checked = FDockControl->ShowCaption;
cbShowCloseButton->Enabled = true;
cbShowCloseButton->Checked = FDockControl->CaptionButtons.Contains(cbClose);
cbShowMaxButton->Enabled = true;
cbShowMaxButton->Checked = FDockControl->CaptionButtons.Contains(cbMaximize);
cbShowHideButton->Enabled = true;
cbShowHideButton->Checked = FDockControl->CaptionButtons.Contains(cbHide);
cbAllowDockLeft->Enabled = true;
cbAllowDockLeft->Checked = FDockControl->AllowDock.Contains(dtLeft);
cbAllowDockTop->Enabled = true;
cbAllowDockTop->Checked = FDockControl->AllowDock.Contains(dtTop);
cbAllowDockRight->Enabled = true;
cbAllowDockRight->Checked = FDockControl->AllowDock.Contains(dtRight);
cbAllowDockBottom->Enabled = true;
cbAllowDockBottom->Checked = FDockControl->AllowDock.Contains(dtBottom);
cbAllowDockClient->Enabled = true;
cbAllowDockClient->Checked = FDockControl->AllowDock.Contains(dtClient);
cbAllowFloating->Enabled = true;
cbAllowFloating->Checked = FDockControl->AllowFloating;
cbAllowDockClientsLeft->Enabled = true;
cbAllowDockClientsLeft->Checked = FDockControl->AllowDockClients.Contains(dtLeft);
cbAllowDockClientsTop->Enabled = true;
cbAllowDockClientsTop->Checked = FDockControl->AllowDockClients.Contains(dtTop);
cbAllowDockClientsRight->Enabled = true;
cbAllowDockClientsRight->Checked = FDockControl->AllowDockClients.Contains(dtRight);
cbAllowDockClientsBottom->Enabled = true;
cbAllowDockClientsBottom->Checked = FDockControl->AllowDockClients.Contains(dtBottom);
cbAllowDockClientsClient->Enabled = true;
cbAllowDockClientsClient->Checked = FDockControl->AllowDockClients.Contains(dtClient);
if (dynamic_cast<TdxTabContainerDockSite*>(FDockControl)) {
cbTabsOnTop->Enabled = true;
cbTabsOnTop->Checked = ((TdxTabContainerDockSite*)FDockControl)->TabsPosition == Dxdockcontrol::tctpTop;
cbTabsScrollable->Enabled = true;
cbTabsScrollable->Checked = ((TdxTabContainerDockSite*)FDockControl)->TabsScroll;}
else {
cbTabsOnTop->Enabled = false;
cbTabsScrollable->Enabled = false;
};
btnApply->Enabled = true;
btnCancel->Enabled = true;
}
else DisableProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::ApplyProperties()
{
TdxDockingTypes ADockTypes;
if ((FDockControl == NULL) || (FDockControl->ComponentState.Contains(csDestroying))) return;
FDockControl->ManagerColor = cbManagerColor->Checked;
FDockControl->ManagerFont = cbManagerFont->Checked;
FDockControl->Caption = eCaption->Text;
FDockControl->ShowCaption = cbShowCaption->Checked;
FDockControl->CaptionButtons.Clear();
if (cbShowCloseButton->Checked)
FDockControl->CaptionButtons = FDockControl->CaptionButtons + (TdxCaptionButtons() << cbClose);
if (cbShowMaxButton->Checked)
FDockControl->CaptionButtons = FDockControl->CaptionButtons + (TdxCaptionButtons() << cbMaximize);
if (cbShowHideButton->Checked)
FDockControl->CaptionButtons = FDockControl->CaptionButtons + (TdxCaptionButtons() << cbHide);
ADockTypes.Clear();
if (cbAllowDockLeft->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtLeft);
if (cbAllowDockTop->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtTop);
if (cbAllowDockRight->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtRight);
if (cbAllowDockBottom->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtBottom);
if (cbAllowDockClient->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtClient);
FDockControl->AllowDock = ADockTypes;
FDockControl->AllowFloating = cbAllowFloating->Checked;
ADockTypes.Clear();
if (cbAllowDockClientsLeft->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtLeft);
if (cbAllowDockClientsTop->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtTop);
if (cbAllowDockClientsRight->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtRight);
if (cbAllowDockClientsBottom->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtBottom);
if (cbAllowDockClientsClient->Checked) ADockTypes = ADockTypes + (TdxDockingTypes() << dtClient);
FDockControl->AllowDockClients = ADockTypes;
if(dynamic_cast<TdxTabContainerDockSite*>(FDockControl)) {
if( cbTabsOnTop->Checked)
((TdxTabContainerDockSite*)FDockControl)->TabsPosition = Dxdockcontrol::tctpTop;
else ((TdxTabContainerDockSite*)FDockControl)->TabsPosition = Dxdockcontrol::tctpBottom;
((TdxTabContainerDockSite*)FDockControl)->TabsScroll = cbTabsScrollable->Checked;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::DisableProperties()
{
cbManagerColor->Checked = false;
cbManagerColor->Enabled = false;
cbManagerFont->Checked = false;
cbManagerFont->Enabled = false;
eCaption->Text = "";
eCaption->Enabled = false;
cbShowCaption->Checked = false;
cbShowCaption->Enabled = false;
cbShowCloseButton->Checked = false;
cbShowCloseButton->Enabled = false;
cbShowMaxButton->Checked = false;
cbShowMaxButton->Enabled = false;
cbShowHideButton->Checked = false;
cbShowHideButton->Enabled = false;
cbAllowDockLeft->Checked = false;
cbAllowDockLeft->Enabled = false;
cbAllowDockTop->Checked = false;
cbAllowDockTop->Enabled = false;
cbAllowDockRight->Checked = false;
cbAllowDockRight->Enabled = false;
cbAllowDockBottom->Checked = false;
cbAllowDockBottom->Enabled = false;
cbAllowDockClient->Checked = false;
cbAllowDockClient->Enabled = false;
cbAllowFloating->Checked = false;
cbAllowFloating->Enabled = false;
cbAllowDockClientsLeft->Checked = false;
cbAllowDockClientsLeft->Enabled = false;
cbAllowDockClientsTop->Checked = false;
cbAllowDockClientsTop->Enabled = false;
cbAllowDockClientsRight->Checked = false;
cbAllowDockClientsRight->Enabled = false;
cbAllowDockClientsBottom->Checked = false;
cbAllowDockClientsBottom->Enabled = false;
cbAllowDockClientsClient->Checked = false;
cbAllowDockClientsClient->Enabled = false;
cbTabsOnTop->Checked = false;
cbTabsOnTop->Enabled = false;
cbTabsScrollable->Checked = false;
cbTabsScrollable->Enabled = false;
btnApply->Enabled = false;
btnCancel->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::SetDockControl(TdxCustomDockControl* Value)
{
if (FDockControl != Value) {
FDockControl = Value;
UpdateProperties();
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::btnApplyClick(TObject *Sender)
{
ApplyProperties();
UpdateProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::btnCancelClick(TObject *Sender)
{
UpdateProperties();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::tvSolutionExplorerChange(
TObject *Sender, TTreeNode *Node)
{
TTreeNode* ANode = tvSolutionExplorer->Selected;
if (ANode != NULL)
DockControl = ((TdxCustomDockControl*)ANode->Data);
else DockControl = dsHost;
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxDockingManager1LayoutChanged(
TdxCustomDockControl *Sender)
{
UpdateSolutionTV();
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonStartPageClick(
TObject *Sender)
{
if (dpStartPage != NULL) {
if (!dpStartPage->Visible)
dpStartPage->Visible = true;
dxDockingController()->ActiveDockControl = dpStartPage;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonSolutionExplorerClick(
TObject *Sender)
{
if (dpSolutionExplorer != NULL) {
if (!dpSolutionExplorer->Visible)
dpSolutionExplorer->Visible = true;
dxDockingController()->ActiveDockControl = dpSolutionExplorer;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonClassViewClick(
TObject *Sender)
{
if (dpClassView != NULL) {
if (!dpClassView->Visible)
dpClassView->Visible = true;
dxDockingController()->ActiveDockControl = dpClassView;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonPropertiesClick(
TObject *Sender)
{
if (dpProperties != NULL) {
if (!dpProperties->Visible)
dpProperties->Visible = true;
dxDockingController()->ActiveDockControl = dpProperties;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonToolBoxClick(
TObject *Sender)
{
if (dpToolbox != NULL) {
if (!dpToolbox->Visible)
dpToolbox->Visible = true;
dxDockingController()->ActiveDockControl = dpToolbox;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonCallStackClick(
TObject *Sender)
{
if (dpCallStack != NULL) {
if (!dpCallStack->Visible)
dpCallStack->Visible = true;
dxDockingController()->ActiveDockControl = dpCallStack;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonOutputClick(
TObject *Sender)
{
if (dpOutput != NULL) {
if (!dpOutput->Visible)
dpOutput->Visible = true;
dxDockingController()->ActiveDockControl = dpOutput;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::dxBarButtonWatchClick(
TObject *Sender)
{
if (dpWatch != NULL) {
if (!dpWatch->Visible)
dpWatch->Visible = true;
dxDockingController()->ActiveDockControl = dpWatch;
}
}
//---------------------------------------------------------------------------
void __fastcall TDockingMegaDemoMainForm::FormCreate(TObject *Sender)
{
dmCommonData->AboutFormClass = __classid(TDockingMegaDemoAboutForm);
#if __BORLANDC__ >= 0x550 // BCB version >= 5
dpStartPage->OnContextPopup = dpContextPopup;
dpProperties->OnContextPopup = dpContextPopup;
dpSolutionExplorer->OnContextPopup = dpContextPopup;
dpClassView->OnContextPopup = dpContextPopup;
dpOutput->OnContextPopup = dpContextPopup;
dpCallStack->OnContextPopup = dpContextPopup;
dpWatch->OnContextPopup = dpContextPopup;
dpToolbox->OnContextPopup = dpContextPopup;
#endif
}
//---------------------------------------------------------------------------

13909
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoMain.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

186
official/.26/ExpressBars 6/Demos/CBuilder/DockingMegaDemo/DockingMegaDemoMain.h Normal file
View File

@ -0,0 +1,186 @@
//---------------------------------------------------------------------------
#ifndef DockingMegaDemoMainH
#define DockingMegaDemoMainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "dxBar.hpp"
#include "dxDockControl.hpp"
#include <ActnList.hpp>
#include <Dialogs.hpp>
#include <ImgList.hpp>
#include "dxDockPanel.hpp"
#include "dxBarExtItems.hpp"
#include "dxsbar.hpp"
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "EBarsUtils.h"
//---------------------------------------------------------------------------
class TDockingMegaDemoMainForm : public TForm
{
__published: // IDE-managed Components
TdxDockSite *dsHost;
TdxLayoutDockSite *dxLayoutDockSite4;
TdxLayoutDockSite *dxLayoutDockSite2;
TdxLayoutDockSite *dxLayoutDockSite1;
TdxLayoutDockSite *dxLayoutDockSite3;
TdxDockPanel *dpStartPage;
TPanel *Panel2;
TImage *Image2;
TPanel *Panel3;
TLabel *Label4;
TImage *Image3;
TImage *Image4;
TLabel *Label5;
TPanel *Panel5;
TImage *Image1;
TdxVertContainerDockSite *dxVertContainerDockSite1;
TdxDockPanel *dpProperties;
TScrollBox *ScrollBox1;
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TCheckBox *cbManagerColor;
TCheckBox *cbManagerFont;
TEdit *eCaption;
TCheckBox *cbShowCaption;
TCheckBox *cbShowCloseButton;
TCheckBox *cbShowMaxButton;
TCheckBox *cbShowHideButton;
TCheckBox *cbAllowDockLeft;
TCheckBox *cbAllowDockTop;
TCheckBox *cbAllowDockClient;
TCheckBox *cbAllowFloating;
TCheckBox *cbAllowDockBottom;
TCheckBox *cbAllowDockRight;
TCheckBox *cbAllowDockClientsLeft;
TCheckBox *cbAllowDockClientsTop;
TCheckBox *cbAllowDockClientsClient;
TCheckBox *cbAllowDockClientsBottom;
TCheckBox *cbAllowDockClientsRight;
TCheckBox *cbTabsOnTop;
TCheckBox *cbTabsScrollable;
TPanel *Panel4;
TButton *btnApply;
TButton *btnCancel;
TdxTabContainerDockSite *dxTabContainerDockSite2;
TdxDockPanel *dpSolutionExplorer;
TTreeView *tvSolutionExplorer;
TdxDockPanel *dpClassView;
TTreeView *tvClassView;
TdxTabContainerDockSite *dxTabContainerDockSite1;
TdxDockPanel *dpOutput;
TMemo *Memo1;
TPanel *Panel1;
TComboBox *ComboBox1;
TdxDockPanel *dpCallStack;
TListView *ListView2;
TdxDockPanel *dpWatch;
TListView *ListView1;
TdxDockPanel *dpToolbox;
TdxSideBar *dxSideBar1;
TdxDockingManager *dxDockingManager1;
TdxBarManager *BarManager;
TdxBarLargeButton *dxBarButtonLoad;
TdxBarLargeButton *dxBarButtonSave;
TdxBarSubItem *dxBarSubItemFile;
TdxBarSubItem *dxBarSubItemInsert;
TdxBarSubItem *dxBarSubItemFormat;
TdxBarSubItem *dxBarSubItemWindow;
TdxBarLargeButton *dxBarButtonExit;
TdxBarSubItem *dxBarSubItemHelp;
TdxBarLargeButton *dxBarButtonStartPage;
TdxBarLargeButton *dxBarButtonToolBox;
TdxBarLargeButton *dxBarButtonWatch;
TdxBarLargeButton *dxBarButtonOutput;
TdxBarLargeButton *dxBarButtonCallStack;
TdxBarLargeButton *dxBarButtonProperties;
TdxBarLargeButton *dxBarButtonClassView;
TdxBarLargeButton *dxBarButtonFont;
TdxBarLargeButton *dxBarButtonColor;
TdxBarLargeButton *dxBarButtonStandardView;
TdxBarLargeButton *dxBarButtonNETView;
TdxBarLargeButton *dxBarButtonOffice11View;
TdxBarLargeButton *dxBarButtonSolutionExplorer;
TdxBarButton *dxBarButtonDockable;
TdxBarButton *dxBarButtonHide;
TdxBarButton *dxBarButtonFloating;
TdxBarButton *dxBarButtonAutoHide;
TdxBarSubItem *dxBarSubItemOtherWindows;
TdxBarLargeButton *dxBarButtonXPView;
TdxBarLargeButton *dxBarButton1;
TdxBarLargeButton *dxBarButton2;
TdxBarLargeButton *dxBarButton3;
TdxBarLargeButton *dxBarButton4;
TdxBarLargeButton *dxBarButton5;
TdxBarLargeButton *dxBarButton6;
TdxBarLargeButton *dxBarButton7;
TdxBarLargeButton *dxBarLargeButton1;
TdxBarLargeButton *dxBarLargeButton2;
TImageList *imBarIcons;
TColorDialog *ColorDialog1;
TFontDialog *FontDialog1;
TImageList *ilDockIcons;
TdxBarPopupMenu *dxBarPopupMenu1;
TOpenDialog *OpenDialog1;
TSaveDialog *SaveDialog1;
TImageList *ilDisabledImages;
TImageList *ilHotImages;
TImageList *iComponentsIcons;
void __fastcall FormShow(TObject *Sender);
void __fastcall dxBarButtonPageClick(TObject *Sender);
void __fastcall dxBarButtonLoadClick(TObject *Sender);
void __fastcall dxBarButtonSaveClick(TObject *Sender);
void __fastcall dxBarButtonColorClick(TObject *Sender);
void __fastcall dxBarButtonFontClick(TObject *Sender);
void __fastcall dxBarButtonStandardViewClick(TObject *Sender);
void __fastcall dxBarButtonNETViewClick(TObject *Sender);
void __fastcall dxBarButtonOffice11ViewClick(TObject *Sender);
void __fastcall dxBarButtonXPViewClick(TObject *Sender);
void __fastcall frStartPage1Label1Click(TObject *Sender);
void __fastcall frStartPage1Label2Click(TObject *Sender);
void __fastcall dxBarButtonExitClick(TObject *Sender);
void __fastcall dxBarButtonDockableClick(TObject *Sender);
void __fastcall dxBarButtonHideClick(TObject *Sender);
void __fastcall dxBarButtonFloatingClick(TObject *Sender);
void __fastcall dxBarButtonAutoHideClick(TObject *Sender);
void __fastcall dpContextPopup(TObject *Sender, const TPoint &MousePos, bool &Handled);
void __fastcall btnApplyClick(TObject *Sender);
void __fastcall btnCancelClick(TObject *Sender);
void __fastcall tvSolutionExplorerChange(TObject *Sender,
TTreeNode *Node);
void __fastcall dxDockingManager1LayoutChanged(
TdxCustomDockControl *Sender);
void __fastcall dxBarButtonStartPageClick(TObject *Sender);
void __fastcall dxBarButtonSolutionExplorerClick(TObject *Sender);
void __fastcall dxBarButtonClassViewClick(TObject *Sender);
void __fastcall dxBarButtonPropertiesClick(TObject *Sender);
void __fastcall dxBarButtonToolBoxClick(TObject *Sender);
void __fastcall dxBarButtonCallStackClick(TObject *Sender);
void __fastcall dxBarButtonOutputClick(TObject *Sender);
void __fastcall dxBarButtonWatchClick(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
TdxCustomDockControl* FPopupMenuDockControl;
TdxCustomDockControl* FDockControl;
void __fastcall SetDockControl(TdxCustomDockControl* Value);
void __fastcall DisableProperties();
public: // User declarations
__fastcall TDockingMegaDemoMainForm(TComponent* Owner);
void __fastcall UpdateSolutionTV();
void __fastcall UpdateClassViewTV();
void __fastcall CheckSite(TdxCustomDockControl* AControl, TTreeNode* ANode);
void __fastcall MakeVisible(TdxDockPanel* AControl);
void __fastcall UpdateProperties();
void __fastcall ApplyProperties();
__property TdxCustomDockControl* DockControl={read=FDockControl, write=SetDockControl};
};
//---------------------------------------------------------------------------
extern PACKAGE TDockingMegaDemoMainForm *DockingMegaDemoMainForm;
//---------------------------------------------------------------------------
#endif

27
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000Demo.cpp Normal file
View File

@ -0,0 +1,27 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("EBar2000Demo.res");
USEFORM("EBar2000DemoAbout.cpp", EBar2000DemoAboutForm);
USEFORM("EBar2000DemoMain.cpp", EBar2000DemoMainForm);
USEFORM("..\Common\EBarsAbout.cpp", EBarsAboutForm);
USEFORM("..\Common\EBarsDemoRating.cpp", EBarsDemoRatingForm);
USEFORM("..\Common\EBarsUtils.cpp", dmCommonData);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "ExpressBar Demo (Enchanced Style)";
Application->CreateForm(__classid(TdmCommonData), &dmCommonData);
Application->CreateForm(__classid(TEBar2000DemoMainForm), &EBar2000DemoMainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000Demo.res Normal file
View File

Binary file not shown.

16
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoAbout.cpp Normal file
View File

@ -0,0 +1,16 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBar2000DemoAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEBar2000DemoAboutForm *EBar2000DemoAboutForm;
//---------------------------------------------------------------------------
__fastcall TEBar2000DemoAboutForm::TEBar2000DemoAboutForm(TComponent* Owner)
: TEBarsAboutForm(Owner)
{
}
//---------------------------------------------------------------------------

28
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoAbout.dfm Normal file
View File

@ -0,0 +1,28 @@
inherited EBar2000DemoAboutForm: TEBar2000DemoAboutForm
ClientWidth = 449
PixelsPerInch = 96
TextHeight = 13
inherited lbDemoName: TLabel
Width = 108
Caption = 'EBar2000Demo'
end
inherited reDemoInfo: TRichEdit
Width = 308
Lines.Strings = (
'This demo shows formatting options provided by ExpressBars 6.'
''
'Experiment by changing options in the group boxes. In particular:'
''
'- see the way a button is displayed when using different styles when Down=True (Align Left button).'
''
'- move the mouse over toolbar buttons to see the effect of the hot image support.'
''
'- display complete toolbars by dragging them into floating windows or by checking the Multiline options.'
''
'- floating toolbars can be made invisible or partially transparent by using the AlphaBlend trackbars.'
''
'Note: the images used in the toolbars and a few of the menu '
'items in this demo have been provided by Glyfz - to purchase '
'your copy or download free samples, please visit www.glyfz.com')
end
end

25
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoAbout.h Normal file
View File

@ -0,0 +1,25 @@
//---------------------------------------------------------------------------
#ifndef EBar2000DemoAboutH
#define EBar2000DemoAboutH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
class TEBar2000DemoAboutForm : public TEBarsAboutForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TEBar2000DemoAboutForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TEBar2000DemoAboutForm *EBar2000DemoAboutForm;
//---------------------------------------------------------------------------
#endif

73
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoC10.bdsproj Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">CPlusPlusBuilder.Personality</Option>
<Option Name="ProjectType">CppVCLApplication</Option>
</Option>
</PersonalityInfo>
<CPlusPlusBuilder.Personality>
<BCBPROJECT>
<project version="10.0">
<property category="build.config" name="excludedefaultforzero" value="0"/>
<property category="build.config.0" name="settings.win32b" value="default"/>
<property category="build.node" name="name" value="EBar2000Demo.exe"/>
<property category="build.node" name="sparelibs" value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<property category="build.platform" name="active" value="win32"/>
<property category="build.platform" name="win32.default" value="win32b"/>
<property category="build.platform" name="win32.enabled" value="1"/>
<property category="build.platform" name="win32.win32b.enabled" value="1"/>
<optionset name="all_configurations">
<property category="node" name="displayname" value="All Configurations"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.1" value="$(SYSDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.2" value="$(USERDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.3" value="NO_WIN32_LEAN_AND_MEAN"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.D.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.1" value="$(BCB)\lib\vcl100.csm"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.merge" value="0"/>
<property category="win32.*.win32b.bcc32" name="option.H=.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.Hc.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.1" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.2" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.3" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.4" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.5" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.6" value="..\Common"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.1" value="_RTLDLL"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.2" value="NO_STRICT"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.1" value="$(BCB)\lib\release"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.2" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.3" value="$(BCB)\lib\obj"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.4" value="$(BCB)\lib"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.5" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.aa.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.1" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.enabled" value="0"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.1" value="."/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.1" value="$(LIBRARIES)"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.2" value="import32.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.3" value="cp32mt.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.1" value="c0w32.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.2" value="Memmgr.Lib"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.3" value="$(PACKAGES)"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.4" value="sysinit.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.merge" value="1"/>
</optionset>
</project>
</BCBPROJECT>
<Source>
<Source Name="MainSource">EBar2000Demo.cpp</Source>
</Source>
</CPlusPlusBuilder.Personality>
</BorlandProject>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoC10.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.10.00"/>
<PROJECT value="EBar2000Demo.exe"/>
<OBJFILES value="EBar2000Demo.obj EBar2000DemoAbout.obj EBar2000DemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBar2000Demo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBar2000DemoAbout.dfm EBar2000DemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBar2000Demo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder10"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder10"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl100.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoC5.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="EBar2000Demo.exe"/>
<OBJFILES value="EBar2000Demo.obj EBar2000DemoAbout.obj EBar2000DemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBar2000Demo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBar2000DemoAbout.dfm EBar2000DemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<SPARELIBS value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBar2000Demo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder5"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder5"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoC6.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="EBar2000Demo.exe"/>
<OBJFILES value="EBar2000Demo.obj EBar2000DemoAbout.obj EBar2000DemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBar2000Demo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBar2000DemoAbout.dfm EBar2000DemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBar2000Demo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder6"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder6"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

370
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoMain.cpp Normal file
View File

@ -0,0 +1,370 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBar2000DemoMain.h"
#include "EBar2000DemoAbout.h"
#include "EBarsDemoRating.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dxBar"
#pragma link "dxBarExtItems"
#pragma resource "*.dfm"
TEBar2000DemoMainForm *EBar2000DemoMainForm;
bool FUpdateVisible;
//---------------------------------------------------------------------------
__fastcall TEBar2000DemoMainForm::TEBar2000DemoMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbStyleMeasureItem(TdxBarCustomCombo *Sender,
int AIndex, int &AHeight)
{
AHeight = 35;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbStyleDrawItem(TdxBarCustomCombo *Sender,
int AIndex, TRect &ARect, TOwnerDrawState AState)
{
tagRECT R = (tagRECT)ARect;
if (Sender->DroppedDown)
{
StyleImages->Draw(Sender->Canvas, R.left, R.top, AIndex
#if __BORLANDC__ > 0x530
, true
#endif
);
Sender->Canvas->FrameRect(R);
InflateRect(&R, -1, -1);
Sender->Canvas->FrameRect(R);
}
else
Sender->Canvas->TextRect(R, R.left + 1, R.top, Sender->Text);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::FormCreate(TObject *Sender)
{
dmCommonData->AboutFormClass = __classid(TEBar2000DemoAboutForm);
cbAddress->Items->Add(dxStartURL);
cbAddress->Items->Add(dxSupportURL);
TrackBarChange(tbStandard);
TrackBarChange(tbFormatting);
btnFontColor->Tag = clBlue;
UpdateColorItems(btnFontColor, btnDownFontColorItem, btnCustomFontColor, btnFontColorItem, FontColorPopupMenu);
btnHighlight->Tag = clYellow;
UpdateColorItems(btnHighlight, btnDownColorItem, btnCustomColor, btnColorItem, HightlightColorPopupMenu);
FUpdateVisible = true;
rgStyleClick(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::UpdateColorItems(TdxBarButton *AButton, TdxBarButton *ADownButton,
TdxBarButton *ACustomButton, TdxBarButton *AItemButton, TdxBarPopupMenu *APopupMenu)
{
const TColor Colors[] = {clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver,
clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite};
const AnsiString ColorNames[] = {"Black", "Maroon", "Green", "Olive", "Navy", "Purple", "Teal", "Gray", "Silver",
"Red", "Lime", "Yellow", "Blue", "Fuchsia", "Aqua", "White"};
int I;
Graphics::TBitmap *B;
TdxBarItemLink *ItemLink;
B = new Graphics::TBitmap;
B->Width = Images->Width + 1;
B->Height = Images->Height;
APopupMenu->ItemLinks->Clear();
for( I = 0; I <= 15; I++)
{
if (Colors[I] != clBlack) B->Canvas->Brush->Color = clBlack;
else B->Canvas->Brush->Color = clWhite;
B->Canvas->FillRect(Rect(0, 0, B->Width, B->Height));
B->Canvas->Brush->Color = Colors[I];
B->Canvas->Pen->Color = clGray;
if (AButton->Tag == Colors[I]) B->Canvas->Rectangle(1, 1, B->Width - 3, B->Height - 2);
else B->Canvas->Rectangle(2, 2, B->Width - 2, B->Height - 1);
ItemLink = APopupMenu->ItemLinks->Add();
if (AButton->Tag == Colors[I])
{
ItemLink->Item = ADownButton;
ADownButton->Down = true;
}
else ItemLink->Item = AItemButton;
ItemLink->Data = Colors[I];
ItemLink->UserCaption = ColorNames[I];
ItemLink->UserGlyph = B;
};
ItemLink = APopupMenu->ItemLinks->Add();
ItemLink->Item = ACustomButton;
ItemLink->UserCaption = "Custom ...";
ItemLink->BeginGroup = true;
delete B;
};
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::btnFontColorItemClick(TObject *Sender)
{
btnFontColor->Tag = ((TdxBarButton*)Sender)->ClickItemLink->Data;
UpdateColorItems(btnFontColor, btnDownFontColorItem, btnCustomFontColor, btnFontColorItem, FontColorPopupMenu);
UpdateColorButtonGlyph(btnFontColor);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::UpdateColorButtonGlyph(TdxBarButton *AButton)
{
Graphics::TBitmap *B;
TRect R;
B = new Graphics::TBitmap;
B->Width = AButton->Glyph->Width;
B->Height = AButton->Glyph->Height;
if (AButton->Tag == clFuchsia) B->Canvas->Brush->Color = clSilver;
else B->Canvas->Brush->Color = clFuchsia;
R = Rect(0, 0, B->Width, B->Height);
B->Canvas->FillRect(R);
B->Canvas->BrushCopy(R, AButton->Glyph, R, AButton->Glyph->TransparentColor);
B->Canvas->Brush->Color = (TColor)(AButton->Tag);
if (ColorToRGB((TColor)(AButton->Tag)) != ColorToRGB(clBtnFace)) B->Canvas->Pen->Color = (TColor)(AButton->Tag);
else B->Canvas->Pen->Color = clBlack;
B->Canvas->Rectangle(0, B->Height - 4, B->Width, B->Height - 1);
AButton->Glyph->Assign(B);
delete B;
};
void __fastcall TEBar2000DemoMainForm::btnCustomFontColorClick(TObject *Sender)
{
ColorDialog->Color = (TColor)(btnFontColor->Tag);
if (ColorDialog->Execute())
{
btnFontColor->Tag = ColorDialog->Color;
UpdateColorButtonGlyph(btnFontColor);
UpdateColorItems(btnFontColor, btnDownFontColorItem, btnCustomFontColor, btnFontColorItem, FontColorPopupMenu);
};
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::btnColorItemClick(TObject *Sender)
{
btnHighlight->Tag = ((TdxBarButton*)Sender)->ClickItemLink->Data;
UpdateColorItems(btnHighlight, btnDownColorItem, btnCustomColor, btnColorItem, HightlightColorPopupMenu);
UpdateColorButtonGlyph(btnHighlight);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::btnCustomColorClick(TObject *Sender)
{
ColorDialog->Color = (TColor)(btnHighlight->Tag);
if (ColorDialog->Execute())
{
btnHighlight->Tag = ColorDialog->Color;
UpdateColorButtonGlyph(btnHighlight);
UpdateColorItems(btnHighlight, btnDownColorItem, btnCustomColor, btnColorItem, HightlightColorPopupMenu);
};
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::btnStandardClick(TObject *Sender)
{
FUpdateVisible = false;
dxBarManager->Bars->Items[((TdxBarButton*)Sender)->Tag]->Visible = ((TdxBarButton*)Sender)->Down;
FUpdateVisible = true;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::sbFontClick(TObject *Sender)
{
FontDialog->Font->Assign(dxBarManager->Font);
if (FontDialog->Execute()) dxBarManager->Font->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbCanCustomizeClick(TObject *Sender)
{
dxBarManager->CanCustomize = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::sbDockColorClick(TObject *Sender)
{
if (ColorDialog->Execute())
dxBarManager->DockColor = ColorDialog->Color;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbAllowResetClick(TObject *Sender)
{
dxBarManager->AllowReset = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbShowHelpButtonClick(TObject *Sender)
{
dxBarManager->ShowHelpButton = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbSunkenBorderClick(TObject *Sender)
{
dxBarManager->SunkenBorder = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbMenusShowRecentItemsFirstClick(
TObject *Sender)
{
dxBarManager->MenusShowRecentItemsFirst = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::rgMenuAnimationsClick(TObject *Sender)
{
dxBarManager->MenuAnimations = (TdxBarMenuAnimations)(rgMenuAnimations->ItemIndex);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::SpeedButton1Click(TObject *Sender)
{
FontDialog->Font->Assign(dxBarManager->Bars->Items[1]->Font);
if (FontDialog->Execute())
dxBarManager->Bars->Items[1]->Font->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::SpeedButton2Click(TObject *Sender)
{
FontDialog->Font->Assign(dxBarManager->Bars->Items[2]->Font);
if (FontDialog->Execute())
dxBarManager->Bars->Items[2]->Font->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbAllowCustomizingBar1Click(TObject *Sender)
{
dxBarManager->Bars->Items[1]->AllowCustomizing = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbAllowQuickCustomizingBar1Click(
TObject *Sender)
{
dxBarManager->Bars->Items[1]->AllowQuickCustomizing = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbAllowResetBar1Click(TObject *Sender)
{
dxBarManager->Bars->Items[1]->AllowReset = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbAllowCustomizingBar2Click(TObject *Sender)
{
dxBarManager->Bars->Items[2]->AllowCustomizing = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbAllowQuickCustomizingBar2Click(
TObject *Sender)
{
dxBarManager->Bars->Items[2]->AllowQuickCustomizing = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbAllowResetBar2Click(TObject *Sender)
{
dxBarManager->Bars->Items[2]->AllowReset = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbShowFullMenusAfterDelayClick(TObject *Sender)
{
dxBarManager->ShowFullMenusAfterDelay = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::dxBarManagerHelpButtonClick(TObject *Sender)
{
MessageDlg("You click on Help Button .", mtInformation, TMsgDlgButtons() << mbOK,0);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbRotateWhenVerticalClick(TObject *Sender)
{
dxBarManager->Bars->Items[3]->RotateWhenVertical = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::btnCustomizeClick(TObject *Sender)
{
dxBarManager->Customizing(true);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::dxBarManagerBarVisibleChange(
TdxBarManager *Sender, TdxBar *ABar)
{
if ( FUpdateVisible && HandleAllocated())
switch (ABar->Index) {
case 1: btnStandard->Down = ABar->Visible;
case 2: btnFormatting->Down = ABar->Visible;
case 3: btnInternet->Down = ABar->Visible;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbStretchGlyphsClick(TObject *Sender)
{
dxBarManager->StretchGlyphs = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::CheckBox2Click(TObject *Sender)
{
dxBarManager->Bars->Items[2]->MultiLine = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::rgStyleClick(TObject *Sender)
{
dxBarManager->Style = (TdxBarManagerStyle)rgStyle->ItemIndex;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::CheckBox1Click(TObject *Sender)
{
dxBarManager->Bars->Items[1]->MultiLine = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::TrackBarChange(TObject *Sender)
{
dxBarManager->Bars->Items[((TTrackBar*)Sender)->Tag]->AlphaBlendValue = (byte)(((TTrackBar*)Sender)->Position * 15);
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbHotImagesClick(TObject *Sender)
{
if (((TCheckBox*)Sender)->Checked)
dxBarManager->HotImages = ilHotImages;
else
dxBarManager->HotImages = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbDisabledImagesClick(TObject *Sender)
{
if (((TCheckBox*)Sender)->Checked) {
dxBarManager->DisabledImages = ilDisabledImages;
dxBarManager->DisabledLargeImages = ilDisabledImages;
}
else {
dxBarManager->DisabledLargeImages = NULL;
dxBarManager->DisabledImages = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::CheckBox4Click(TObject *Sender)
{
if (((TCheckBox*)Sender)->Checked)
dxBarManager->LargeImages = Images;
else
dxBarManager->LargeImages = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TEBar2000DemoMainForm::cbShowCaptionsClick(TObject *Sender)
{
dxBarManager->LockUpdate = true;
try {
bool AChecked = ((TCheckBox*)Sender)->Checked;
for (int i=0; i < ComponentCount - 1; i++)
if (dynamic_cast<TdxBarLargeButton*>(Components[i]))
((TdxBarLargeButton*)Components[i])->ShowCaption = AChecked;
}
__finally {
dxBarManager->LockUpdate = false;
}
}
//---------------------------------------------------------------------------

33625
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoMain.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

413
official/.26/ExpressBars 6/Demos/CBuilder/EBar2000Demo/EBar2000DemoMain.h Normal file
View File

@ -0,0 +1,413 @@
#ifndef mainHPP
#define mainHPP
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
#include <StdCtrls.hpp>
#include <dxBarExtItems.hpp>
#include <dxBar.hpp>
#include <Dialogs.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <SysUtils.hpp>
#include <Messages.hpp>
#include <Windows.hpp>
#include <SysInit.hpp>
#include <System.hpp>
#include <ActnList.hpp>
#include <ComCtrls.hpp>
#include <ImgList.hpp>
#include "EBarsUtils.h"
//-- ------------------------------------------------------
class TEBar2000DemoMainForm : public TForm
{
__published:
TPanel *Panel1;
TScrollBox *ScrollBox1;
TGroupBox *gbOptions;
TRadioGroup *rgMenuAnimations;
TGroupBox *bgBar1;
TSpeedButton *SpeedButton1;
TCheckBox *cbAllowCustomizingBar1;
TCheckBox *cbAllowQuickCustomizingBar1;
TCheckBox *cbAllowResetBar1;
TCheckBox *CheckBox1;
TGroupBox *gbBar2;
TSpeedButton *SpeedButton2;
TCheckBox *cbAllowCustomizingBar2;
TCheckBox *cbAllowQuickCustomizingBar2;
TCheckBox *cbAllowResetBar2;
TCheckBox *CheckBox2;
TGroupBox *rgBar3;
TCheckBox *cbRotateWhenVertical;
TRadioGroup *rgStyle;
TGroupBox *gbImages;
TCheckBox *cbHotImages;
TCheckBox *cbDisabledImages;
TCheckBox *CheckBox4;
TGroupBox *gbMiscellaneous;
TSpeedButton *sbFont;
TSpeedButton *sbDockColor;
TCheckBox *cbCanCustomize;
TCheckBox *cbAllowReset;
TCheckBox *cbShowHelpButton;
TCheckBox *cbSunkenBorder;
TCheckBox *cbMenusShowRecentItemsFirst;
TCheckBox *cbShowFullMenusAfterDelay;
TCheckBox *cbStretchGlyphs;
TCheckBox *cbShowCaptions;
TGroupBox *gbAlphaBlending;
TLabel *Label2;
TLabel *Label3;
TLabel *Label5;
TTrackBar *tbStandard;
TGroupBox *GroupBox1;
TLabel *Label1;
TLabel *Label4;
TLabel *Label6;
TTrackBar *tbFormatting;
TdxBarManager *dxBarManager;
TdxBarSubItem *siFile;
TdxBarSubItem *siEdit;
TdxBarSubItem *siView;
TdxBarSubItem *siInsert;
TdxBarSubItem *siFormat;
TdxBarSubItem *siTools;
TdxBarSubItem *siTable;
TdxBarSubItem *siWindow;
TdxBarSubItem *siHelp;
TdxBarLargeButton *btnNew;
TdxBarLargeButton *btnNewWebPage;
TdxBarLargeButton *btnNewEmailMessage;
TdxBarLargeButton *btnNewBlankDocument;
TdxBarLargeButton *btnOpen;
TdxBarLargeButton *btnClose;
TdxBarLargeButton *btnCloseAll;
TdxBarLargeButton *btnSave;
TdxBarLargeButton *btnSaveAs;
TdxBarLargeButton *btnSaveAsWebPage;
TdxBarLargeButton *btnSaveAll;
TdxBarLargeButton *btnSaveVersion;
TdxBarLargeButton *btnWebPagePreview;
TdxBarLargeButton *btnPageSetup;
TdxBarLargeButton *btnPrintPreview;
TdxBarLargeButton *btnPrint;
TdxBarLargeButton *btnPrintSetup;
TdxBarLargeButton *btnMailRecipient;
TdxBarLargeButton *btnSendNow;
TdxBarLargeButton *btnRoundRecipient;
TdxBarLargeButton *btnExchengeFolder;
TdxBarLargeButton *btnFaxRecipient;
TdxBarLargeButton *btnSendToMicrosoftPowerPoint;
TdxBarLargeButton *btnVersion;
TdxBarLargeButton *btnProperties;
TdxBarLargeButton *btnExit;
TdxBarLargeButton *btnUndo;
TdxBarLargeButton *btnRedo;
TdxBarLargeButton *btnRepeat;
TdxBarLargeButton *btnCut;
TdxBarLargeButton *btnCopy;
TdxBarLargeButton *btnPaste;
TdxBarLargeButton *btnPasteTable;
TdxBarLargeButton *btnPasteSpecial;
TdxBarLargeButton *btnPasetAsHyperlink;
TdxBarLargeButton *btnClear;
TdxBarLargeButton *dxBarButton1;
TdxBarLargeButton *btnFind;
TdxBarLargeButton *btnFindNext;
TdxBarLargeButton *btnReplace;
TdxBarLargeButton *btnGoTo;
TdxBarLargeButton *btnLinks;
TdxBarLargeButton *btnObject;
TdxBarLargeButton *btnPicture;
TdxBarLargeButton *btnCreateTextBoxLink;
TdxBarLargeButton *btnBreakForwardLink;
TdxBarLargeButton *btnNextTextBox;
TdxBarLargeButton *btnPreviousTextBox;
TdxBarLargeButton *btnNextComment;
TdxBarLargeButton *btnPreviousComment;
TdxBarCombo *cbZoom;
TdxBarLargeButton *btnRuler;
TdxBarLargeButton *btnShowAll;
TdxBarLargeButton *btnDocumentMap;
TdxBarLargeButton *btnViewFieldCodes;
TdxBarLargeButton *btnShowFieldShading;
TdxBarLargeButton *btnFullScreen;
TdxBarLargeButton *btnMagnifier;
TdxBarLargeButton *btnZoom100;
TdxBarLargeButton *btnFitToWindow;
TdxBarLargeButton *btnOnePage;
TdxBarLargeButton *btnNormal;
TdxBarLargeButton *btnWebLayout;
TdxBarLargeButton *btnPrintLayout;
TdxBarLargeButton *btnOutLine;
TdxBarSubItem *siToolBars;
TdxBarLargeButton *btnComments;
TdxBarLargeButton *btnHTMLSource;
TdxBarLargeButton *dxBarButton2;
TdxBarLargeButton *dxBarButton3;
TdxBarLargeButton *btnPromote;
TdxBarLargeButton *btnDemote;
TdxBarLargeButton *btnDemoteToBodyText;
TdxBarLargeButton *btnMoveUp;
TdxBarLargeButton *btnMoveDown;
TdxBarLargeButton *btnExpand;
TdxBarLargeButton *btnCollapse;
TdxBarLargeButton *btnAll;
TdxBarLargeButton *btnShowHeading1;
TdxBarLargeButton *btnShowHeading2;
TdxBarLargeButton *btnShowHeading3;
TdxBarLargeButton *btnShowHeading4;
TdxBarLargeButton *btnShowHeading5;
TdxBarLargeButton *btnFirstLineOnlyView;
TdxBarLargeButton *btnShowFormatting;
TdxBarLargeButton *btnMasterDocumentView;
TdxBarLargeButton *btnNextHeader;
TdxBarLargeButton *btnPreviousHeader1;
TdxBarLargeButton *btnHideBodyText;
TdxBarLargeButton *btnPageBreak;
TdxBarLargeButton *btnInsertColumnBreak;
TdxBarLargeButton *btnInsertSectionBreak;
TdxBarLargeButton *btnPageNumber;
TdxBarLargeButton *btnNumberOfPages;
TdxBarLargeButton *btnDate;
TdxBarLargeButton *btnTime;
TdxBarLargeButton *btnPageNumbers;
TdxBarLargeButton *btnDateAndTime;
TdxBarLargeButton *btnAutoText;
TdxBarLargeButton *btnSumbol;
TdxBarLargeButton *btnComment;
TdxBarLargeButton *btnDeleteComment;
TdxBarLargeButton *btnFootnote;
TdxBarLargeButton *InsertListNumField;
TdxBarLargeButton *btnHyperlink;
TdxBarLargeButton *btnFromFile;
TdxBarLargeButton *btnTextBox;
TdxBarLargeButton *btnHorizontal;
TdxBarLargeButton *btnFile;
TdxBarLargeButton *btnInsertExcelSpreadsheet;
TdxBarLargeButton *btnChart;
TdxBarLargeButton *btnWordArt;
TdxBarLargeButton *btnEquationEditor;
TdxBarLargeButton *btnVoiceComment;
TdxBarLargeButton *btnPenComment;
TdxBarLargeButton *btnFromScannerOrCamear;
TdxBarLargeButton *btnClipArt;
TdxBarLargeButton *btnDataBase;
TdxBarLargeButton *btnAddressBook;
TdxBarLargeButton *btnObject1;
TdxBarFontNameCombo *cbFontName;
TdxBarCombo *cnFontSize;
TdxBarCombo *cbStyle;
TdxBarLargeButton *btnBold;
TdxBarLargeButton *btnItalic;
TdxBarLargeButton *btnUnderline;
TdxBarLargeButton *btnFormatPainter;
TdxBarLargeButton *btnFontColor;
TdxBarLargeButton *btnHighlight;
TdxBarLargeButton *btnGrowFont;
TdxBarLargeButton *btnShrinkFont;
TdxBarLargeButton *btnGrowFont1Pt;
TdxBarLargeButton *btnShinkFont1Pt;
TdxBarLargeButton *btnSmallCaps;
TdxBarLargeButton *btnAllCaps;
TdxBarLargeButton *btnSuperscript;
TdxBarLargeButton *btnsubscript;
TdxBarLargeButton *btnDecreaseIndent;
TdxBarLargeButton *btnIncreaseIndent;
TdxBarLargeButton *btnNumbering;
TdxBarLargeButton *btnBullets;
TdxBarLargeButton *btnAlignLeft;
TdxBarLargeButton *btnCenter;
TdxBarLargeButton *btnAlignRight;
TdxBarLargeButton *btnJustify;
TdxBarLargeButton *btnColumns;
TdxBarLargeButton *btnAutoFormat;
TdxBarLargeButton *btnInsertListNumField;
TdxBarLargeButton *btnChangeTextDirection;
TdxBarLargeButton *btnFont;
TdxBarLargeButton *btnParagraph;
TdxBarLargeButton *btnBulletsAndNumbering1;
TdxBarLargeButton *btnGropCap;
TdxBarLargeButton *btnStyle;
TdxBarLargeButton *btnTextDirection;
TdxBarLargeButton *btnChangeCase;
TdxBarLargeButton *btnTheme;
TdxBarLargeButton *btnCOMAddIns;
TdxBarLargeButton *btnSpellingandGrammar;
TdxBarLargeButton *btnNextMisspelling;
TdxBarLargeButton *btnHideSpellingErrors;
TdxBarLargeButton *btnHideGrammarErrors;
TdxBarLargeButton *btnSpelling;
TdxBarLargeButton *btnDictionary;
TdxBarLargeButton *btnGrammar;
TdxBarLargeButton *btnSetLanguage;
TdxBarLargeButton *btnThesaurus;
TdxBarLargeButton *btnWordCount;
TdxBarLargeButton *btnAutoSummarize;
TdxBarLargeButton *btnResumarize;
TdxBarLargeButton *btnHighlightShowOnlySummary;
TdxBarLargeButton *btnAutoCorrect;
TdxBarLargeButton *btnToolsAutoCorrectExceptions;
TdxBarLargeButton *btnHighlightChanges;
TdxBarLargeButton *btnTrackChanges;
TdxBarLargeButton *btnAcceptOrRejectChanges;
TdxBarLargeButton *btnAcceptChange;
TdxBarLargeButton *btnRejectChange;
TdxBarLargeButton *btnNextChange;
TdxBarLargeButton *btnPreviousChange;
TdxBarLargeButton *btnCompareDocuments;
TdxBarLargeButton *btnMergeDocuments;
TdxBarLargeButton *btnProtectDocument;
TdxBarLargeButton *btnEnvelopesAndLabels;
TdxBarLargeButton *btnLetterWizard;
TdxBarLargeButton *btnMacros;
TdxBarLargeButton *btnRecordMacroStopRecorder;
TdxBarLargeButton *btnSecurity;
TdxBarLargeButton *btnVisualBasicEditor;
TdxBarLargeButton *btnMicrosoftScriptEditor;
TdxBarLargeButton *btnInsertScript;
TdxBarLargeButton *btnRemoveAllScripts;
TdxBarLargeButton *btnShowAllScripts;
TdxBarLargeButton *btnStopRecordind;
TdxBarLargeButton *btnPauseRecording;
TdxBarLargeButton *btnUpdateField;
TdxBarLargeButton *btnRepaginate;
TdxBarLargeButton *btnShrinkOnePage;
TdxBarLargeButton *btnInsertTable;
TdxBarLargeButton *dxBarButton4;
TdxBarLargeButton *btnCells;
TdxBarLargeButton *btnRows;
TdxBarLargeButton *btnColumnsToTheLeft;
TdxBarLargeButton *btnDeleteCells;
TdxBarLargeButton *btnDeleteRows;
TdxBarLargeButton *btnDeleteColumns;
TdxBarLargeButton *btnGridLines;
TdxBarLargeButton *btnTableAutoFormat;
TdxBarLargeButton *btnAutoSum;
TdxBarLargeButton *btnSortAscepring;
TdxBarLargeButton *btnSortDescending;
TdxBarLargeButton *btnFindInField;
TdxBarSubItem *btnTableInsert;
TdxBarLargeButton *btnTablesandBordersToolbar;
TdxBarLargeButton *btnDrawTable;
TdxBarLargeButton *btnEraser;
TdxBarLargeButton *btnMergeCells;
TdxBarLargeButton *btnAplitCells;
TdxBarLargeButton *btnAlignTop;
TdxBarLargeButton *btnCenterVerticaly;
TdxBarLargeButton *btnAlignBottom;
TdxBarSubItem *siCellAlignment;
TdxBarLargeButton *btnDistributeRowsEvenly;
TdxBarLargeButton *btnDistributeColumnsEvenly;
TdxBarLargeButton *btnNewWindow;
TdxBarLargeButton *btnArrangeAll;
TdxBarLargeButton *btnSplit;
TdxBarLargeButton *btnNextWindow;
TdxBarLargeButton *btnPreviousWindow;
TdxBarLargeButton *dxBarButton7;
TdxBarLargeButton *dxBarButton8;
TdxBarLargeButton *dxBarButton9;
TdxBarLargeButton *dxBarButton10;
TdxBarLargeButton *dxBarButton11;
TdxBarLargeButton *dxBarButton12;
TdxBarLargeButton *dxBarButton13;
TdxBarLargeButton *dxBarButton14;
TdxBarSubItem *siSendTo;
TdxBarSubItem *siPicture;
TdxBarSubItem *siLanguage;
TdxBarLargeButton *btnCustomize;
TdxBarSubItem *siMacro;
TdxBarSubItem *siInsertTable;
TdxBarSubItem *siDeleteTable;
TdxBarSubItem *siAutoFit;
TdxBarLargeButton *btnTableProperties;
TdxBarLargeButton *btnFontColorItem;
TdxBarLargeButton *btnDownFontColorItem;
TdxBarLargeButton *btnCustomFontColor;
TdxBarLargeButton *btnColorItem;
TdxBarLargeButton *btnDownColorItem;
TdxBarLargeButton *btnCustomColor;
TdxBarLargeButton *btnStandard;
TdxBarLargeButton *btnFormatting;
TdxBarLargeButton *btnInternet;
TdxBarCombo *cbAddress;
TdxBarLargeButton *btnBack;
TdxBarLargeButton *btnForward;
TdxBarLargeButton *btnStop;
TdxBarLargeButton *btnRefresh;
TdxBarLargeButton *btnHome;
TdxBarLargeButton *btnAttach;
TdxBarLargeButton *dxBarButton5;
TdxBarLargeButton *dxBarButton6;
TdxBarLargeButton *dxBarButton15;
TdxBarLargeButton *dxBarButton16;
TdxBarLargeButton *dxBarButton17;
TdxBarLargeButton *dxBarButton18;
TdxBarLargeButton *dxBarButton19;
TdxBarLargeButton *dxBarLargeButton1;
TdxBarLargeButton *dxBarLargeButton2;
TImageList *Images;
TImageList *StyleImages;
TdxBarPopupMenu *FontColorPopupMenu;
TdxBarPopupMenu *HightlightColorPopupMenu;
TColorDialog *ColorDialog;
TFontDialog *FontDialog;
TImageList *ilHotImages;
TImageList *ilDisabledImages;
void __fastcall cbStyleMeasureItem(TdxBarCustomCombo* Sender, int AIndex, int &AHeight);
void __fastcall cbStyleDrawItem(TdxBarCustomCombo* Sender, int AIndex, TRect
&ARect, TOwnerDrawState AState);
void __fastcall FormCreate(TObject* Sender);
void __fastcall btnFontColorItemClick(TObject* Sender);
void __fastcall btnCustomFontColorClick(TObject* Sender);
void __fastcall btnColorItemClick(TObject* Sender);
void __fastcall btnCustomColorClick(TObject* Sender);
void __fastcall btnStandardClick(TObject* Sender);
void __fastcall sbFontClick(TObject* Sender);
void __fastcall cbCanCustomizeClick(TObject* Sender);
void __fastcall sbDockColorClick(TObject* Sender);
void __fastcall cbAllowResetClick(TObject* Sender);
void __fastcall cbShowHelpButtonClick(TObject* Sender);
void __fastcall cbSunkenBorderClick(TObject* Sender);
void __fastcall cbMenusShowRecentItemsFirstClick(TObject* Sender);
void __fastcall rgMenuAnimationsClick(TObject* Sender);
void __fastcall SpeedButton1Click(TObject* Sender);
void __fastcall SpeedButton2Click(TObject* Sender);
void __fastcall cbAllowCustomizingBar1Click(TObject* Sender);
void __fastcall cbAllowQuickCustomizingBar1Click(TObject* Sender);
void __fastcall cbAllowResetBar1Click(TObject* Sender);
void __fastcall cbAllowCustomizingBar2Click(TObject* Sender);
void __fastcall cbAllowQuickCustomizingBar2Click(TObject* Sender);
void __fastcall cbAllowResetBar2Click(TObject* Sender);
void __fastcall cbShowFullMenusAfterDelayClick(TObject* Sender);
void __fastcall dxBarManagerHelpButtonClick(TObject* Sender);
void __fastcall cbRotateWhenVerticalClick(TObject* Sender);
void __fastcall btnCustomizeClick(TObject* Sender);
void __fastcall dxBarManagerBarVisibleChange(TdxBarManager* Sender, TdxBar* ABar);
void __fastcall cbStretchGlyphsClick(TObject* Sender);
void __fastcall rgStyleClick(TObject* Sender);
void __fastcall CheckBox1Click(TObject* Sender);
void __fastcall CheckBox2Click(TObject* Sender);
void __fastcall TrackBarChange(TObject *Sender);
void __fastcall cbHotImagesClick(TObject *Sender);
void __fastcall cbDisabledImagesClick(TObject *Sender);
void __fastcall CheckBox4Click(TObject *Sender);
void __fastcall cbShowCaptionsClick(TObject *Sender);
private:
void __fastcall UpdateColorItems(TdxBarButton *AButton, TdxBarButton *ADownButton,
TdxBarButton *ACustomButton, TdxBarButton *AItemButton, TdxBarPopupMenu *APopupMenu);
void __fastcall UpdateColorButtonGlyph(TdxBarButton *AButton);
public:
__fastcall TEBar2000DemoMainForm(TComponent* Owner);
bool FUpdateVisible;
};
//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TEBar2000DemoMainForm* EBar2000DemoMainForm;
//-- end unit ----------------------------------------------------------------
#endif // main

28
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemo.cpp Normal file
View File

@ -0,0 +1,28 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("EBarMDIDemo.res");
USEFORM("EBarMDIDemoAbout.cpp", EBarMDIDemoAboutForm);
USEFORM("EBarMDIDemoChild.cpp", EBarMDIDemoChildForm);
USEFORM("EBarMDIDemoMain.cpp", EBarMDIDemoMainForm);
USEFORM("..\Common\EBarsAbout.cpp", EBarsAboutForm);
USEFORM("..\Common\EBarsDemoRating.cpp", EBarsDemoRatingForm);
USEFORM("..\Common\EBarsUtils.cpp", dmCommonData);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "ExpressBars6 MDI Demo";
Application->CreateForm(__classid(TdmCommonData), &dmCommonData);
Application->CreateForm(__classid(TEBarMDIDemoMainForm), &EBarMDIDemoMainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemo.res Normal file
View File

Binary file not shown.

16
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoAbout.cpp Normal file
View File

@ -0,0 +1,16 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBarMDIDemoAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEBarMDIDemoAboutForm *EBarMDIDemoAboutForm;
//---------------------------------------------------------------------------
__fastcall TEBarMDIDemoAboutForm::TEBarMDIDemoAboutForm(TComponent* Owner)
: TEBarsAboutForm(Owner)
{
}
//---------------------------------------------------------------------------

33
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoAbout.dfm Normal file
View File

@ -0,0 +1,33 @@
inherited EBarMDIDemoAboutForm: TEBarMDIDemoAboutForm
ClientWidth = 370
PixelsPerInch = 96
TextHeight = 13
inherited lbDemoName: TLabel
Width = 103
Caption = 'EBarMDIDemo'
end
inherited reDemoInfo: TRichEdit
Width = 229
Lines.Strings = (
'In this demo, ExpressBars 6 is used in a '
'standard rtf editor application.'
''
'Load one or more files and note the difference '
'made to the menu items enabled. Change the '
'width of the form to see the smart truncation of '
'the file path.'
''
'Experiment with the different bar items - '
'FontNameCombo, Combo, ColorCombo and '
'Button.'
''
'Examine the effect of changing the style '
'(Standard, Enhanced, Flat, XP and Office11). '
'In particular, see how the status bar changes.'
''
'Note: the images used in this demo have been '
'provided by Glyfz - to purchase your copy or '
'download free samples, please visit '
'www.glyfz.com')
end
end

25
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoAbout.h Normal file
View File

@ -0,0 +1,25 @@
//---------------------------------------------------------------------------
#ifndef EBarMDIDemoAboutH
#define EBarMDIDemoAboutH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
class TEBarMDIDemoAboutForm : public TEBarsAboutForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TEBarMDIDemoAboutForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarMDIDemoAboutForm *EBarMDIDemoAboutForm;
//---------------------------------------------------------------------------
#endif

73
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoC10.bdsproj Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">CPlusPlusBuilder.Personality</Option>
<Option Name="ProjectType">CppVCLApplication</Option>
</Option>
</PersonalityInfo>
<CPlusPlusBuilder.Personality>
<BCBPROJECT>
<project version="10.0">
<property category="build.config" name="excludedefaultforzero" value="0"/>
<property category="build.config.0" name="settings.win32b" value="default"/>
<property category="build.node" name="name" value="EBarMDIDemo.exe"/>
<property category="build.node" name="sparelibs" value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<property category="build.platform" name="active" value="win32"/>
<property category="build.platform" name="win32.default" value="win32b"/>
<property category="build.platform" name="win32.enabled" value="1"/>
<property category="build.platform" name="win32.win32b.enabled" value="1"/>
<optionset name="all_configurations">
<property category="node" name="displayname" value="All Configurations"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.1" value="$(SYSDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.2" value="$(USERDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.3" value="NO_WIN32_LEAN_AND_MEAN"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.D.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.1" value="$(BCB)\lib\vcl100.csm"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.merge" value="0"/>
<property category="win32.*.win32b.bcc32" name="option.H=.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.Hc.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.1" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.2" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.3" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.4" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.5" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.6" value="..\Common"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.1" value="_RTLDLL"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.2" value="NO_STRICT"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.1" value="$(BCB)\lib\release"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.2" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.3" value="$(BCB)\lib\obj"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.4" value="$(BCB)\lib"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.5" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.aa.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.1" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.enabled" value="0"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.1" value="."/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.1" value="$(LIBRARIES)"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.2" value="import32.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.3" value="cp32mt.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.1" value="c0w32.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.2" value="Memmgr.Lib"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.3" value="$(PACKAGES)"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.4" value="sysinit.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.merge" value="1"/>
</optionset>
</project>
</BCBPROJECT>
<Source>
<Source Name="MainSource">EBarMDIDemo.cpp</Source>
</Source>
</CPlusPlusBuilder.Personality>
</BorlandProject>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoC10.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.10.00"/>
<PROJECT value="EBarMDIDemo.exe"/>
<OBJFILES value="EBarMDIDemo.obj EBarMDIDemoAbout.obj EBarMDIDemoChild.obj EBarMDIDemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBarMDIDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBarMDIDemoAbout.dfm EBarMDIDemoChild.dfm EBarMDIDemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBarMDIDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder10"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder10"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl100.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoC5.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="EBarMDIDemo.exe"/>
<OBJFILES value="EBarMDIDemo.obj EBarMDIDemoAbout.obj EBarMDIDemoChild.obj EBarMDIDemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBarMDIDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBarMDIDemoAbout.dfm EBarMDIDemoChild.dfm EBarMDIDemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<SPARELIBS value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBarMDIDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder5"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder5"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoC6.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="EBarMDIDemo.exe"/>
<OBJFILES value="EBarMDIDemo.obj EBarMDIDemoAbout.obj EBarMDIDemoChild.obj EBarMDIDemoMain.obj ..\Common\EBarsDemoRating.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBarMDIDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBarMDIDemoAbout.dfm EBarMDIDemoChild.dfm EBarMDIDemoMain.dfm ..\Common\EBarsDemoRating.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBarMDIDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder6"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder6"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib "/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

92
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoChild.cpp Normal file
View File

@ -0,0 +1,92 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBarMDIDemoChild.h"
#include <stdio.h>
#include "EBarMDIDemoMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEBarMDIDemoChildForm *EBarMDIDemoChildForm;
//---------------------------------------------------------------------------
__fastcall TEBarMDIDemoChildForm::TEBarMDIDemoChildForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoChildForm::SetFileName(AnsiString Value)
{
int I;
FFileName = Value;
Caption = FFileName;
I = EBarMDIDemoMainForm->dxBarListWindows->Items->IndexOfObject(this);
if ((0 <= I) && (I < EBarMDIDemoMainForm->dxBarListWindows->Items->Count))
EBarMDIDemoMainForm->dxBarListWindows->Items->Strings[I] = FFileName;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoChildForm::FormCreate(TObject *Sender)
{
EBarMDIDemoMainForm->CreatedMDICount++;
Caption = "Document" + IntToStr(EBarMDIDemoMainForm->CreatedMDICount);
Editor->OnChange = EBarMDIDemoMainForm->EditorChange;
Editor->OnSelectionChange = EBarMDIDemoMainForm->EditorSelectionChange;
EBarMDIDemoMainForm->dxBarListWindows->Items->AddObject(Caption, this);
Editor->Modified;
if (EBarMDIDemoMainForm->MDIChildCount == 1) EBarMDIDemoMainForm->ShowItems(True);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoChildForm::FormClose(TObject *Sender,
TCloseAction &Action)
{
if (EBarMDIDemoMainForm->FileName != "")
EBarMDIDemoMainForm->dxBarMRUFiles->AddItem(EBarMDIDemoMainForm->FileName, NULL);
Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoChildForm::FormActivate(TObject *Sender)
{
Editor->OnChange(Editor);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoChildForm::FormDestroy(TObject *Sender)
{
EBarMDIDemoMainForm->dxBarListWindows->Items->Delete(EBarMDIDemoMainForm->dxBarListWindows->Items->IndexOfObject(this));
if (EBarMDIDemoMainForm->MDIChildCount == 1) EBarMDIDemoMainForm->ShowItems(False);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoChildForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (Editor->Modified)
{
int Res = Application->MessageBox(
Format("Do you want to save the changes you made to ""%s""?", ARRAYOFCONST((Caption))).c_str(),
Application->Title.c_str(), MB_ICONQUESTION | MB_YESNOCANCEL);
switch (Res)
{
case ID_YES: CanClose = EBarMDIDemoMainForm->SaveFile(False); break;
case ID_NO: CanClose = True; break;
case ID_CANCEL: CanClose = False; break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoChildForm::EditorMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
EBarMDIDemoMainForm->dxBarPopupMenu->PopupFromCursorPos();
}
//---------------------------------------------------------------------------

32
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoChild.dfm Normal file
View File

@ -0,0 +1,32 @@
object EBarMDIDemoChildForm: TEBarMDIDemoChildForm
Left = 272
Top = 221
Width = 368
Height = 219
Caption = 'EBarMDIDemoChildForm'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
Position = poDefault
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Editor: TRichEdit
Left = 0
Top = 0
Width = 360
Height = 185
Align = alClient
TabOrder = 0
OnMouseDown = EditorMouseDown
end
end

32
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoChild.h Normal file
View File

@ -0,0 +1,32 @@
//---------------------------------------------------------------------------
#ifndef EBarMDIDemoChildH
#define EBarMDIDemoChildH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TEBarMDIDemoChildForm : public TForm
{
__published: // IDE-managed Components
TRichEdit *Editor;
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
void __fastcall EditorMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
private:
AnsiString FFileName;
void __fastcall SetFileName(AnsiString Value);
public:
__fastcall TEBarMDIDemoChildForm(TComponent* Owner);
__property AnsiString FileName = {read = FFileName, write = SetFileName};
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarMDIDemoChildForm *EBarMDIDemoChildForm;
//---------------------------------------------------------------------------
#endif

546
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoMain.cpp Normal file
View File

@ -0,0 +1,546 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#include <shellapi.h>
#pragma hdrstop
#include "EBarMDIDemoMain.h"
#include "EBarMDIDemoChild.h"
#include "EBarsDemoRating.h"
#include "EBarMDIDemoAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dxBar"
#pragma link "dxBarExtItems"
#pragma link "cxControls"
#pragma link "dxStatusBar"
#pragma link "cxGraphics"
#pragma link "dxStatusBar"
#pragma resource "*.dfm"
TEBarMDIDemoMainForm *EBarMDIDemoMainForm;
char
*sRichEditFoundResultCaption = "Information",
*sRichEditTextNotFound = "The search text is not found.",
*sRichEditReplaceAllResult = "Replaced %d occurances.";
//---------------------------------------------------------------------------
__fastcall TEBarMDIDemoMainForm::TEBarMDIDemoMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
TRichEdit *__fastcall TEBarMDIDemoMainForm::GetEditor()
{
if (ActiveMDIChild == NULL) return NULL;
else return ((TEBarMDIDemoChildForm*) ActiveMDIChild)->Editor;
}
//---------------------------------------------------------------------------
int __fastcall TEBarMDIDemoMainForm::GetEditorCol()
{
return Editor->SelStart - SendMessage(Editor->Handle, EM_LINEINDEX, EditorRow, 0);
}
//---------------------------------------------------------------------------
int __fastcall TEBarMDIDemoMainForm::GetEditorRow()
{
return SendMessage(Editor->Handle, EM_LINEFROMCHAR, Editor->SelStart, 0);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TEBarMDIDemoMainForm::GetFileName()
{
if (ActiveMDIChild == NULL) return NULL;
else return ((TEBarMDIDemoChildForm*) ActiveMDIChild)->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::SetFileName(AnsiString Value)
{
if (ActiveMDIChild != NULL)
((TEBarMDIDemoChildForm*) ActiveMDIChild)->FileName = Value;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::EditorChange(TObject *Sender)
{
if (Editor == NULL) return;
Editor->OnSelectionChange(Editor);
SetModified(Editor->Modified);
dxStatusBar->Panels->Items[1]->Text = ActiveMDIChild->Caption;
((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[1]->PanelStyle)->ImageIndex = 0;
((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[0]->PanelStyle)->ImageIndex = 2;
dxBarButtonUndo->Enabled = (SendMessage(Editor->Handle, EM_CANUNDO, 0, 0) != 0);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::EditorSelectionChange(TObject *Sender)
{
FUpdating = True;
try
{
dxBarComboFontSize->OnChange = 0;
dxBarComboFontName->OnChange = 0;
dxBarComboFontColor->OnChange = 0;
dxStatusBar->Panels->Items[0]->Text =
Format("Line: %3d Col: %3d", ARRAYOFCONST((1 + EditorRow, 1 + EditorCol)));
dxBarButtonCopy->Enabled = Editor->SelLength > 0;
dxBarButtonCut->Enabled = dxBarButtonCopy->Enabled;
dxBarButtonPaste->Enabled = (SendMessage(Editor->Handle, EM_CANPASTE, 0, 0) != 0);
dxBarButtonClear->Enabled = dxBarButtonCopy->Enabled;
dxBarComboFontSize->Text = IntToStr(Editor->SelAttributes->Size);
dxBarComboFontName->Text = Editor->SelAttributes->Name;
dxBarComboFontColor->Color = Editor->SelAttributes->Color;
dxBarButtonBold->Down = Editor->SelAttributes->Style.Contains(fsBold);
dxBarButtonItalic->Down = Editor->SelAttributes->Style.Contains(fsItalic);
dxBarButtonUnderline->Down = Editor->SelAttributes->Style.Contains(fsUnderline);
dxBarButtonBullets->Down = Boolean(Editor->Paragraph->Numbering);
switch ((int) Editor->Paragraph->Alignment)
{
case 0: dxBarButtonAlignLeft->Down = True; break;
case 1: dxBarButtonAlignRight->Down = True; break;
case 2: dxBarButtonCenter->Down = True; break;
}
dxBarButtonProtected->Down = Editor->SelAttributes->Protected;
}
__finally
{
FUpdating = False;
dxBarComboFontSize->OnChange = dxBarComboFontSizeChange;
dxBarComboFontName->OnChange = dxBarComboFontNameChange;
dxBarComboFontColor->OnChange = dxBarComboFontColorChange;
}
}
//---------------------------------------------------------------------------
bool __fastcall TEBarMDIDemoMainForm::SaveFile(bool ASaveAs)
{
if (ASaveAs || (FileName == ""))
{
SaveDialog->FileName = FileName;
if (!SaveDialog->Execute()) return False;
FileName = SaveDialog->FileName;
}
Editor->Lines->SaveToFile(FileName);
SetModified(False);
return True;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::SetModified(bool Value)
{
Editor->Modified = Value;
if (Value) {
dxStatusBar->Panels->Items[2]->Text = "Modified";
((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[2]->PanelStyle)->ImageIndex = 1;
}
else {
dxStatusBar->Panels->Items[2]->Text = "";
((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[2]->PanelStyle)->ImageIndex = 4;
}
dxBarButtonSave->Enabled = Value;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::ShowItems(bool AShow)
{
TdxBarItemVisible AVisible;
BarManager->LockUpdate = True;
if (!AShow)
{
dxStatusBar->Panels->Items[0]->Text = "";
dxStatusBar->Panels->Items[1]->Text = "";
}
BarManager->Groups[0]->Enabled = AShow;
if (AShow) AVisible = ivAlways;
else AVisible = ivInCustomizing;
dxBarSubItemEdit->Visible = AVisible;
dxBarSubItemFormat->Visible = AVisible;
BarManager->LockUpdate = False;
((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[0]->PanelStyle)->ImageIndex = 5;
((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[1]->PanelStyle)->ImageIndex = 3;
((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[2]->PanelStyle)->ImageIndex = 4;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::FormCreate(TObject *Sender)
{
dmCommonData->AboutFormClass = __classid(TEBarMDIDemoAboutForm);
const AnsiString Filter = "Rich Text Files (*.RTF)|*.RTF";
OpenDialog->Filter = Filter;
SaveDialog->Filter = Filter;
OpenDialog->InitialDir = ExtractFilePath(ParamStr(0));
SaveDialog->InitialDir = OpenDialog->InitialDir;
ShowItems(False);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonNewClick(TObject *Sender)
{
new TEBarMDIDemoChildForm(Application);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonOpenClick(TObject *Sender)
{
OpenDialog->FileName = "";
if (OpenDialog->Execute())
{
TEBarMDIDemoChildForm *AForm = new TEBarMDIDemoChildForm(Application);
AForm->FileName = OpenDialog->FileName;
AForm->Editor->Lines->LoadFromFile(AForm->FileName);
SetModified(False);
dxBarMRUFiles->RemoveItem(OpenDialog->FileName, NULL);
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonCloseClick(TObject *Sender)
{
ActiveMDIChild->Close();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonSaveClick(TObject *Sender)
{
SaveFile(False);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::FindOne(TObject *Sender)
{
TFindDialog *ADialog = ((TFindDialog*) Sender);
int StartPos, FindLength, FoundAt;
TSearchTypes Flags;
TPoint P;
RECT R, CaretR, IntersectR;
if (ADialog->Options.Contains(frDown))
{
if (Editor->SelLength == 0) StartPos = Editor->SelStart;
else StartPos = Editor->SelStart + Editor->SelLength;
FindLength = Editor->Text.Length() - StartPos;
}
else
{
StartPos = Editor->SelStart;
FindLength = -StartPos;
}
Flags.Clear();
if (ADialog->Options.Contains(frMatchCase)) Flags << stMatchCase;
if (ADialog->Options.Contains(frWholeWord)) Flags << stWholeWord;
Screen->Cursor = crHourGlass;
FoundAt = Editor->FindText(ADialog->FindText, StartPos, FindLength, Flags);
if (!(ADialog->Options.Contains(frReplaceAll))) Screen->Cursor = crDefault;
if (FoundAt > -1)
if (ADialog->Options.Contains(frReplaceAll))
{
Editor->SelStart = FoundAt;
Editor->SelLength = ADialog->FindText.Length();
}
else
{
Editor->SetFocus();
Editor->SelStart = FoundAt;
Editor->SelLength = ADialog->FindText.Length();
GetCaretPos(&P);
P = Editor->ClientToScreen(P);
CaretR = Rect(P.x, P.y, P.x + 2, P.y + 20);
GetWindowRect(Editor->Handle, &R);
if (IntersectRect(&IntersectR, &CaretR, &R))
if (P.y < Screen->Height / 2)
ADialog->Top = P.y + 40;
else
ADialog->Top = P.y - (R.bottom - R.top + 20);
}
else
if (!(ADialog->Options.Contains(frReplaceAll)))
Application->MessageBox(sRichEditTextNotFound,
sRichEditFoundResultCaption, MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::ReplaceOne(TObject *Sender)
{
TReplaceDialog *ADialog = ((TReplaceDialog*) Sender);
int ReplacedCount, OldSelStart, PrevSelStart;
AnsiString S;
ReplacedCount = 0;
OldSelStart = Editor->SelStart;
if (ADialog->Options.Contains(frReplaceAll)) Screen->Cursor = crHourGlass;
do
{
if ((Editor->SelLength > 0) && ((Editor->SelText == ADialog->FindText) ||
(!(ADialog->Options.Contains(frMatchCase)) &&
(AnsiUpperCase(Editor->SelText) == AnsiUpperCase(ADialog->FindText)))))
{
Editor->SelText = ADialog->ReplaceText;
ReplacedCount++;
}
PrevSelStart = Editor->SelStart;
FindOne(Sender);
}
while (!(!(ADialog->Options.Contains(frReplaceAll)) || (Editor->SelStart == PrevSelStart)));
if (ADialog->Options.Contains(frReplaceAll))
{
Screen->Cursor = crDefault;
if (ReplacedCount == 0) S = sRichEditTextNotFound;
else
{
Editor->SelStart = OldSelStart;
S = Format(sRichEditReplaceAllResult, ARRAYOFCONST((ReplacedCount)));
}
Application->MessageBox(S.c_str(), sRichEditFoundResultCaption,
MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonSaveAsClick(TObject *Sender)
{
SaveFile(True);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonPrintClick(TObject *Sender)
{
if (PrintDialog->Execute()) Editor->Print(FileName);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonUndoClick(TObject *Sender)
{
SendMessage(Editor->Handle, EM_UNDO, 0, 0);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonCutClick(TObject *Sender)
{
Editor->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonCopyClick(TObject *Sender)
{
Editor->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonPasteClick(TObject *Sender)
{
Editor->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonClearClick(TObject *Sender)
{
Editor->ClearSelection();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonSelectAllClick(TObject *Sender)
{
Editor->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonFindClick(TObject *Sender)
{
Editor->SelLength = 0;
FindDialog->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonReplaceClick(TObject *Sender)
{
Editor->SelLength = 0;
ReplaceDialog->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarComboFontNameChange(TObject *Sender)
{
if (!FUpdating)
Editor->SelAttributes->Name = dxBarComboFontName->Text;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarComboFontSizeChange(TObject *Sender)
{
if (!FUpdating)
Editor->SelAttributes->Size = StrToInt(dxBarComboFontSize->Text);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonBoldClick(TObject *Sender)
{
if (dxBarButtonBold->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsBold;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonItalicClick(TObject *Sender)
{
if (dxBarButtonItalic->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsItalic;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsItalic;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonUnderlineClick(TObject *Sender)
{
if (dxBarButtonUnderline->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsUnderline;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarComboFontColorChange(TObject *Sender)
{
Editor->SelAttributes->Color = dxBarComboFontColor->Color;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonBulletsClick(TObject *Sender)
{
Editor->Paragraph->Numbering = (TNumberingStyle) dxBarButtonBullets->Down;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonAlignClick(TObject *Sender)
{
if (((TdxBarButton *)Sender)->Down)
Editor->Paragraph->Alignment = (TAlignment)((TdxBarButton *)Sender)->Tag;
else
Editor->Paragraph->Alignment = taLeftJustify;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonProtectedClick(TObject *Sender)
{
Editor->SelAttributes->Protected = !Editor->SelAttributes->Protected;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonFontClick(TObject *Sender)
{
FontDialog->Font->Assign(Editor->SelAttributes);
if (FontDialog->Execute())
Editor->SelAttributes->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonArrangeAllClick(TObject *Sender)
{
Tile();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonNextWindowClick(TObject *Sender)
{
Next();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonPreviousWindowClick(TObject *Sender)
{
Previous();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarListWindowsClick(TObject *Sender)
{
((TCustomForm *)dxBarListWindows->Items->Objects[dxBarListWindows->ItemIndex])->Show();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarListWindowsGetData(TObject *Sender)
{
dxBarListWindows->ItemIndex = dxBarListWindows->Items->IndexOfObject(ActiveMDIChild);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonOnWebClick(TObject *Sender)
{
ShellExecute(0, NULL, "http://www.devexpress.com", NULL, NULL, SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonEnhancedStyleClick(TObject *Sender)
{
BarManager->Style = bmsEnhanced;
dxStatusBar->PaintStyle = stpsStandard;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonStdStyleClick(TObject *Sender)
{
BarManager->Style = bmsStandard;
dxStatusBar->PaintStyle = stpsStandard;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonFlatStyleClick(TObject *Sender)
{
BarManager->Style = bmsFlat;
dxStatusBar->PaintStyle = stpsFlat;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarMRUFilesClick(TObject *Sender)
{
AnsiString AFileName;
TEBarMDIDemoChildForm *CForm;
AFileName = dxBarMRUFiles->Items->Strings[dxBarMRUFiles->ItemIndex];
if (FileExists(AFileName))
{
CForm = new TEBarMDIDemoChildForm(Application);
CForm->FileName = AFileName;
CForm->Editor->Lines->LoadFromFile(FileName);
SetModified(False);
}
else
Application->MessageBox(AnsiString(AFileName+"\nFile not found.").c_str(),"Open",MB_OK || MB_ICONERROR);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonOffice11StyleClick(TObject *Sender)
{
BarManager->Style = bmsOffice11;
dxStatusBar->PaintStyle = stpsOffice11;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMDIDemoMainForm::dxBarButtonXPStyleClick(TObject *Sender)
{
BarManager->Style = bmsXP;
dxStatusBar->PaintStyle = stpsXP;
}
//---------------------------------------------------------------------------

5888
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoMain.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

161
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/EBarMDIDemoMain.h Normal file
View File

@ -0,0 +1,161 @@
//---------------------------------------------------------------------------
#ifndef EBarMDIDemoMainH
#define EBarMDIDemoMainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "dxBar.hpp"
#include <Dialogs.hpp>
#include <ComCtrls.hpp>
#include "dxBarExtItems.hpp"
#include "cxControls.hpp"
#include "dxStatusBar.hpp"
#include <ActnList.hpp>
#include <ImgList.hpp>
#include "cxGraphics.hpp"
#include "dxStatusBar.hpp"
#include "EBarsUtils.h"
//---------------------------------------------------------------------------
class TEBarMDIDemoMainForm : public TForm
{
__published: // IDE-managed Components
TdxBarDockControl *dxBarDockControl1;
TdxBarManager *BarManager;
TdxBarLargeButton *dxBarButtonNew;
TdxBarLargeButton *dxBarButtonOpen;
TdxBarLargeButton *dxBarButtonClose;
TdxBarLargeButton *dxBarButtonSave;
TdxBarLargeButton *dxBarButtonSaveAs;
TdxBarSubItem *dxBarSubItemFile;
TdxBarSubItem *dxBarSubItemEdit;
TdxBarSubItem *dxBarSubItemFormat;
TdxBarSubItem *dxBarSubItemWindow;
TdxBarLargeButton *dxBarButtonPrint;
TdxBarLargeButton *dxBarButtonExit;
TdxBarLargeButton *dxBarButtonUndo;
TdxBarLargeButton *dxBarButtonCut;
TdxBarLargeButton *dxBarButtonCopy;
TdxBarLargeButton *dxBarButtonPaste;
TdxBarLargeButton *dxBarButtonClear;
TdxBarLargeButton *dxBarButtonSelectAll;
TdxBarLargeButton *dxBarButtonFind;
TdxBarLargeButton *dxBarButtonReplace;
TdxBarCombo *dxBarComboFontSize;
TdxBarLargeButton *dxBarButtonBold;
TdxBarLargeButton *dxBarButtonItalic;
TdxBarLargeButton *dxBarButtonUnderline;
TdxBarLargeButton *dxBarButtonBullets;
TdxBarLargeButton *dxBarButtonAlignLeft;
TdxBarLargeButton *dxBarButtonCenter;
TdxBarLargeButton *dxBarButtonAlignRight;
TdxBarLargeButton *dxBarButtonProtected;
TdxBarLargeButton *dxBarButtonNewWindow;
TdxBarLargeButton *dxBarButtonArrangeAll;
TdxBarLargeButton *dxBarButtonNextWindow;
TdxBarLargeButton *dxBarButtonPreviousWindow;
TdxBarSubItem *dxBarSubItemHelp;
TdxBarListItem *dxBarListWindows;
TdxBarLargeButton *dxBarButtonFont;
TdxBarLargeButton *dxBarButtonEnhancedStyle;
TdxBarLargeButton *dxBarButtonFlatStyle;
TdxBarLargeButton *dxBarButtonStdStyle;
TdxBarMRUListItem *dxBarMRUFiles;
TdxBarColorCombo *dxBarComboFontColor;
TdxBarLargeButton *dxBarButtonXPStyle;
TdxBarLargeButton *dxBarButton1;
TdxBarLargeButton *dxBarButton2;
TdxBarLargeButton *dxBarButton3;
TdxBarLargeButton *dxBarButton4;
TdxBarLargeButton *dxBarButton5;
TdxBarLargeButton *dxBarButton6;
TdxBarLargeButton *dxBarButton7;
TdxBarLargeButton *dxBarButtonOffice11Style;
TdxBarFontNameCombo *dxBarComboFontName;
TdxBarLargeButton *dxBarLargeButton1;
TdxBarLargeButton *dxBarLargeButton2;
TdxBarGroup *dxBarGroup1;
TOpenDialog *OpenDialog;
TSaveDialog *SaveDialog;
TPrintDialog *PrintDialog;
TFontDialog *FontDialog;
TdxBarPopupMenu *dxBarPopupMenu;
TImageList *Images;
TImageList *ilHotImages;
TImageList *ilDisabledImages;
TImageList *ilStatusBarImages;
TFindDialog *FindDialog;
TReplaceDialog *ReplaceDialog;
TdxStatusBar *dxStatusBar;
void __fastcall FormCreate(TObject *Sender);
void __fastcall FindOne(TObject *Sender);
void __fastcall ReplaceOne(TObject *Sender);
void __fastcall dxBarButtonNewClick(TObject *Sender);
void __fastcall dxBarButtonOpenClick(TObject *Sender);
void __fastcall dxBarButtonCloseClick(TObject *Sender);
void __fastcall dxBarButtonSaveClick(TObject *Sender);
void __fastcall dxBarButtonSaveAsClick(TObject *Sender);
void __fastcall dxBarButtonPrintClick(TObject *Sender);
void __fastcall dxBarButtonExitClick(TObject *Sender);
void __fastcall dxBarButtonUndoClick(TObject *Sender);
void __fastcall dxBarButtonCutClick(TObject *Sender);
void __fastcall dxBarButtonCopyClick(TObject *Sender);
void __fastcall dxBarButtonPasteClick(TObject *Sender);
void __fastcall dxBarButtonClearClick(TObject *Sender);
void __fastcall dxBarButtonSelectAllClick(TObject *Sender);
void __fastcall dxBarButtonFindClick(TObject *Sender);
void __fastcall dxBarButtonReplaceClick(TObject *Sender);
void __fastcall dxBarComboFontNameChange(TObject *Sender);
void __fastcall dxBarComboFontSizeChange(TObject *Sender);
void __fastcall dxBarButtonBoldClick(TObject *Sender);
void __fastcall dxBarButtonItalicClick(TObject *Sender);
void __fastcall dxBarButtonUnderlineClick(TObject *Sender);
void __fastcall dxBarComboFontColorChange(TObject *Sender);
void __fastcall dxBarButtonBulletsClick(TObject *Sender);
void __fastcall dxBarButtonAlignClick(TObject *Sender);
void __fastcall dxBarButtonProtectedClick(TObject *Sender);
void __fastcall dxBarButtonFontClick(TObject *Sender);
void __fastcall dxBarButtonArrangeAllClick(TObject *Sender);
void __fastcall dxBarButtonNextWindowClick(TObject *Sender);
void __fastcall dxBarButtonPreviousWindowClick(TObject *Sender);
void __fastcall dxBarListWindowsClick(TObject *Sender);
void __fastcall dxBarListWindowsGetData(TObject *Sender);
void __fastcall dxBarButtonOnWebClick(TObject *Sender);
void __fastcall dxBarButtonEnhancedStyleClick(TObject *Sender);
void __fastcall dxBarButtonStdStyleClick(TObject *Sender);
void __fastcall dxBarButtonFlatStyleClick(TObject *Sender);
void __fastcall dxBarMRUFilesClick(TObject *Sender);
void __fastcall dxBarButtonOffice11StyleClick(TObject *Sender);
void __fastcall dxBarButtonXPStyleClick(TObject *Sender);
private:
bool FUpdating;
TRichEdit *__fastcall GetEditor();
int __fastcall GetEditorCol();
int __fastcall GetEditorRow();
AnsiString __fastcall GetFileName();
void __fastcall SetFileName(const AnsiString Value);
public:
__fastcall TEBarMDIDemoMainForm(TComponent* Owner);
int CreatedMDICount;
void __fastcall EditorChange(TObject *Sender);
void __fastcall EditorSelectionChange(TObject *Sender);
bool __fastcall SaveFile(bool ASaveAs);
void __fastcall SetModified(bool Value);
void __fastcall ShowItems(bool AShow);
__property TRichEdit *Editor = {read = GetEditor};
__property int EditorCol = {read = GetEditorCol};
__property int EditorRow = {read = GetEditorRow};
__property AnsiString FileName = {read = GetFileName, write = SetFileName};
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarMDIDemoMainForm *EBarMDIDemoMainForm;
//---------------------------------------------------------------------------
#endif

21
official/.26/ExpressBars 6/Demos/CBuilder/EBarMDIDemo/lipsum.rtf Normal file
View File

@ -0,0 +1,21 @@
{\rtf1\ansi\ansicpg1252\uc1 \deff0\deflang1033\deflangfe1033{\fonttbl{\f0\froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f11\fswiss\fcharset0\fprq2{\*\panose 00000000000000000000}MS Sans Serif{\*\falt Arial};}
{\f27\fswiss\fcharset204\fprq2{\*\panose 020b0604030504040204}Tahoma;}{\f28\fswiss\fcharset204\fprq2{\*\panose 020b0a04020102020204}Arial Black;}{\f69\froman\fcharset0\fprq2 Times New Roman;}{\f67\froman\fcharset238\fprq2 Times New Roman CE;}
{\f70\froman\fcharset161\fprq2 Times New Roman Greek;}{\f71\froman\fcharset162\fprq2 Times New Roman Tur;}{\f72\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f73\froman\fcharset178\fprq2 Times New Roman (Arabic);}
{\f74\froman\fcharset186\fprq2 Times New Roman Baltic;}{\f285\fswiss\fcharset0\fprq2 Tahoma;}{\f283\fswiss\fcharset238\fprq2 Tahoma CE;}{\f286\fswiss\fcharset161\fprq2 Tahoma Greek;}{\f287\fswiss\fcharset162\fprq2 Tahoma Tur;}
{\f288\fswiss\fcharset177\fprq2 Tahoma (Hebrew);}{\f289\fswiss\fcharset178\fprq2 Tahoma (Arabic);}{\f290\fswiss\fcharset186\fprq2 Tahoma Baltic;}{\f293\fswiss\fcharset0\fprq2 Arial Black;}{\f291\fswiss\fcharset238\fprq2 Arial Black CE;}
{\f294\fswiss\fcharset161\fprq2 Arial Black Greek;}{\f295\fswiss\fcharset162\fprq2 Arial Black Tur;}{\f298\fswiss\fcharset186\fprq2 Arial Black Baltic;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;
\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;
\red192\green192\blue192;\red220\green20\blue60;\red72\green61\blue139;\red75\green0\blue130;\red47\green79\blue79;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0
\fs24\lang2057\langfe1033\cgrid\langnp2057\langfenp1033 \snext0 Normal;}{\*\cs10 \additive Default Paragraph Font;}}{\info{\title Lorem ipsum}{\author Mike Orriss}{\operator -}{\creatim\yr2003\mo4\dy1\hr19\min41}{\revtim\yr2003\mo4\dy1\hr19\min41}
{\version2}{\edmins180}{\nofpages1}{\nofwords50}{\nofchars289}{\*\company 3K Computer Consultancy}{\nofcharsws0}{\vern8269}}\margl1701\margr850\margt1134\margb1134
\widowctrl\ftnbj\aenddoc\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\hyphcaps0\horzdoc\dghspace120\dgvspace120\dghorigin1701\dgvorigin1984\dghshow0\dgvshow3\jcompress\viewkind4\viewscale100\nolnhtadjtbl \fet0\sectd \linex0\sectdefaultcl
{\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang{\pntxta )}}{\*\pnseclvl5
\pndec\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang
{\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}\pard\plain \ql \li0\ri0\sb100\sa100\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang2057\langfe1033\cgrid\langnp2057\langfenp1033 {
\b\f28\ul\lang1033\langfe1033\langnp1033 Lorem ipsum}{\f27\lang1033\langfe1033\langnp1033
\par Lorem ipsum dolor sit }{\f27\cf17\lang1033\langfe1033\langnp1033 amet}{\f27\lang1033\langfe1033\langnp1033 , consectetaur adipisicing }{\f27\cf17\lang1033\langfe1033\langnp1033 elit}{\f27\lang1033\langfe1033\langnp1033
, sed do eiusmod tempor incididunt ut labore et dolore magna }{\f27\cf18\lang1033\langfe1033\langnp1033 aliqua}{\f27\lang1033\langfe1033\langnp1033 .
\par Ut enim ad minim }{\i\f27\lang1033\langfe1033\langnp1033 veniam}{\f27\lang1033\langfe1033\langnp1033 , quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo }{\f27\cf19\lang1033\langfe1033\langnp1033 consequat}{
\f27\lang1033\langfe1033\langnp1033 .
\par }{\f11\cf20\lang1033\langfe1033\langnp1033 Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur.
\par }}

31
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemo.cpp Normal file
View File

@ -0,0 +1,31 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("EBarMegaDemo.res");
USEFORM("EBarMegaDemoAbout.cpp", EBarMegaDemoAboutForm);
USEFORM("EBarMegaDemoData.cpp", EBarMegaDemoMainDM); /* TDataModule: DesignClass */
USEFORM("EBarMegaDemoOptions.cpp", EBarMegaDemoOptionsForm);
USEFORM("..\Common\EBarsAbout.cpp", EBarsAboutForm);
USEFORM("..\Common\EBarsDemoRating.cpp", EBarsDemoRatingForm);
USEFORM("EBarMegaDemoMain.cpp", EBarMegaDemoMainForm);
USEFORM("..\Common\EBarsUtils.cpp", dmCommonData);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "ExpressBars6 Mega Demo";
Application->CreateForm(__classid(TdmCommonData), &dmCommonData);
Application->CreateForm(__classid(TEBarMegaDemoMainDM), &EBarMegaDemoMainDM);
Application->CreateForm(__classid(TEBarMegaDemoMainForm), &EBarMegaDemoMainForm);
Application->CreateForm(__classid(TEBarMegaDemoOptionsForm), &EBarMegaDemoOptionsForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemo.res Normal file
View File

Binary file not shown.

16
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoAbout.cpp Normal file
View File

@ -0,0 +1,16 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBarMegaDemoAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEBarMegaDemoAboutForm *EBarMegaDemoAboutForm;
//---------------------------------------------------------------------------
__fastcall TEBarMegaDemoAboutForm::TEBarMegaDemoAboutForm(TComponent* Owner)
: TEBarsAboutForm(Owner)
{
}
//---------------------------------------------------------------------------

30
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoAbout.dfm Normal file
View File

@ -0,0 +1,30 @@
inherited EBarMegaDemoAboutForm: TEBarMegaDemoAboutForm
ClientWidth = 368
PixelsPerInch = 96
TextHeight = 13
inherited lbDemoName: TLabel
Width = 123
Caption = 'EBarsMegaDemo'
end
inherited reDemoInfo: TRichEdit
Width = 226
Lines.Strings = (
'Each of these samples (Office, IE, Database)'
'has its own set of toolbars to help illustrate'
'different aspects of functionality available'
'within ExpressBars.'
''
'See Menu\Options for display facilities '
'where you can experiment with different '
'Side Bar and Bars Options. In particular, '
'try changing between the five styles: '
'Standard, Enhanced, Flat, XP and '
'Office11.'
''
''
'Note: the images used in this demo have '
'been provided by Glyfz - to purchase your '
'copy or download free samples, please '
'visit www.glyfz.com')
end
end

25
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoAbout.h Normal file
View File

@ -0,0 +1,25 @@
//---------------------------------------------------------------------------
#ifndef EBarMegaDemoAboutH
#define EBarMegaDemoAboutH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
class TEBarMegaDemoAboutForm : public TEBarsAboutForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TEBarMegaDemoAboutForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarMegaDemoAboutForm *EBarMegaDemoAboutForm;
//---------------------------------------------------------------------------
#endif

73
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoC10.bdsproj Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">CPlusPlusBuilder.Personality</Option>
<Option Name="ProjectType">CppVCLApplication</Option>
</Option>
</PersonalityInfo>
<CPlusPlusBuilder.Personality>
<BCBPROJECT>
<project version="10.0">
<property category="build.config" name="excludedefaultforzero" value="0"/>
<property category="build.config.0" name="settings.win32b" value="default"/>
<property category="build.node" name="name" value="EBarMegaDemo.exe"/>
<property category="build.node" name="sparelibs" value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<property category="build.platform" name="active" value="win32"/>
<property category="build.platform" name="win32.default" value="win32b"/>
<property category="build.platform" name="win32.enabled" value="1"/>
<property category="build.platform" name="win32.win32b.enabled" value="1"/>
<optionset name="all_configurations">
<property category="node" name="displayname" value="All Configurations"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.1" value="$(SYSDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.2" value="$(USERDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.3" value="NO_WIN32_LEAN_AND_MEAN"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.D.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.1" value="$(BCB)\lib\vcl100.csm"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.merge" value="0"/>
<property category="win32.*.win32b.bcc32" name="option.H=.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.Hc.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.1" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.2" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.3" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.4" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.5" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.6" value="..\Common"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.1" value="_RTLDLL"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.2" value="NO_STRICT"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.1" value="$(BCB)\lib\release"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.2" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.3" value="$(BCB)\lib\obj"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.4" value="$(BCB)\lib"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.5" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.aa.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.1" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.enabled" value="0"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.1" value="."/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.1" value="$(LIBRARIES)"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.2" value="import32.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.3" value="cp32mt.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.1" value="c0w32.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.2" value="Memmgr.Lib"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.3" value="$(PACKAGES)"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.4" value="sysinit.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.merge" value="1"/>
</optionset>
</project>
</BCBPROJECT>
<Source>
<Source Name="MainSource">EBarMegaDemo.cpp</Source>
</Source>
</CPlusPlusBuilder.Personality>
</BorlandProject>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoC10.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.10.00"/>
<PROJECT value="EBarMegaDemo.exe"/>
<OBJFILES value="EBarMegaDemo.obj EBarMegaDemoAbout.obj EBarMegaDemoData.obj EBarMegaDemoOptions.obj ..\Common\EBarsDemoRating.obj EBarMegaDemoMain.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBarMegaDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBarMegaDemoAbout.dfm EBarMegaDemoData.dfm EBarMegaDemoOptions.dfm ..\Common\EBarsDemoRating.dfm EBarMegaDemoMain.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBarMegaDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder10"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder10"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl100.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\debug;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib bcbie.lib"/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoC5.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="EBarMegaDemo.exe"/>
<OBJFILES value="EBarMegaDemo.obj EBarMegaDemoAbout.obj EBarMegaDemoData.obj EBarMegaDemoOptions.obj ..\Common\EBarsDemoRating.obj EBarMegaDemoMain.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBarMegaDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBarMegaDemoAbout.dfm EBarMegaDemoData.dfm EBarMegaDemoOptions.dfm ..\Common\EBarsDemoRating.dfm EBarMegaDemoMain.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<SPARELIBS value="vcl50.lib vcldb50.lib vclbde50.lib VCLX50.lib dxcomnc5.lib dxthemec5.lib cxlibraryvclc5.lib dxbarc5.lib dxbarextitemsc5.lib dxbarextdbitemsc5.lib dxbardbnavc5.lib dxsbc5.lib dxdockingc5.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBarMegaDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder5"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder5"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\debug;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib bcbie50.lib"/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

42
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoC6.bpr Normal file
View File

@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<!--C++Builder XML Project-->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="EBarMegaDemo.exe"/>
<OBJFILES value="EBarMegaDemo.obj EBarMegaDemoAbout.obj EBarMegaDemoData.obj EBarMegaDemoOptions.obj ..\Common\EBarsDemoRating.obj EBarMegaDemoMain.obj ..\Common\EBarsAbout.obj ..\Common\EBarsUtils.obj"/>
<RESFILES value="EBarMegaDemo.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) EBarMegaDemoAbout.dfm EBarMegaDemoData.dfm EBarMegaDemoOptions.dfm ..\Common\EBarsDemoRating.dfm EBarMegaDemoMain.dfm ..\Common\EBarsAbout.dfm ..\Common\EBarsUtils.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<SPARELIBS value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc6.lib dxthemec6.lib cxlibraryvclc6.lib dxbarc6.lib dxbarextitemsc6.lib dxbarextdbitemsc6.lib dxbardbnavc6.lib dxsbc6.lib dxdockingc6.lib "/>
<PACKAGES value=""/>
<PATHCPP value=".;..\Common"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="iLink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="EBarMegaDemo.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Library\CBuilder6"/>
<LIBPATH value="$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Library\CBuilder6"/>
<WARNINGS value="-w-par"/>
<WARNOPTSTR value=""/>
</MACROS>
<OPTIONS>
<CFLAG1 value="-I$(BCB)\include;$(BCB)\include\vcl;..\Common -Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)"/>
<LFLAGS value="-L$(BCB)\Projects\Lib;$(BCB)\lib\debug;$(BCB)\lib\obj;$(BCB)\lib;..\Common;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib bcbie.lib"/>
</LINKER>
<IDEOPTIONS/>
</PROJECT>

23
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoData.cpp Normal file
View File

@ -0,0 +1,23 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBarMegaDemoData.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEBarMegaDemoMainDM *EBarMegaDemoMainDM;
//---------------------------------------------------------------------------
__fastcall TEBarMegaDemoMainDM::TEBarMegaDemoMainDM(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainDM::tblContactsCalcFields(
TDataSet *DataSet)
{
DataSet->FieldByName("CustName")->AsString = DataSet->FieldByName("FirstName")->AsString + " " + DataSet->FieldByName("LastName")->AsString;
}
//---------------------------------------------------------------------------

113
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoData.dfm Normal file
View File

@ -0,0 +1,113 @@
object EBarMegaDemoMainDM: TEBarMegaDemoMainDM
Left = 311
Top = 196
Height = 308
Width = 358
object tblContacts: TTable
Active = True
OnCalcFields = tblContactsCalcFields
DatabaseName = 'EBarMegaDemo'
TableName = 'Contacts.DB'
Left = 36
Top = 127
object tblContactsID: TAutoIncField
FieldName = 'ID'
end
object tblContactsProductID: TIntegerField
FieldName = 'ProductID'
end
object tblContactsFirstName: TStringField
FieldName = 'FirstName'
Size = 25
end
object tblContactsLastName: TStringField
FieldName = 'LastName'
Size = 25
end
object tblContactsCompany: TStringField
FieldName = 'Company'
Size = 50
end
object tblContactsAddress: TStringField
FieldName = 'Address'
Size = 50
end
object tblContactsCity: TStringField
FieldName = 'City'
end
object tblContactsState: TStringField
FieldName = 'State'
Size = 2
end
object tblContactsPurchaseDate: TDateField
FieldName = 'PurchaseDate'
DisplayFormat = 'aaa mm/dd/yy'
end
object tblContactsPaymentType: TStringField
FieldName = 'PaymentType'
Size = 7
end
object tblContactsPaymentAmount: TBCDField
FieldName = 'PaymentAmount'
Size = 15
end
object tblContactsproduct: TStringField
FieldKind = fkLookup
FieldName = 'product'
LookupDataSet = tblProducts
LookupKeyFields = 'ID'
LookupResultField = 'NAME'
KeyFields = 'ProductID'
Size = 25
Lookup = True
end
object tblContactsCustName: TStringField
FieldKind = fkCalculated
FieldName = 'CustName'
Size = 50
Calculated = True
end
end
object tblProducts: TTable
Active = True
DatabaseName = 'EBarMegaDemo'
TableName = 'products.db'
Left = 104
Top = 129
object tblProductsID: TIntegerField
FieldName = 'ID'
end
object tblProductsNAME: TStringField
DisplayWidth = 22
FieldName = 'NAME'
Size = 25
end
object tblProductsDescription: TStringField
DisplayWidth = 55
FieldName = 'Description'
Size = 55
end
end
object Database: TDatabase
Connected = True
DatabaseName = 'EBarMegaDemo'
DriverName = 'STANDARD'
Params.Strings = (
'PATH=..\..\Data'
'DEFAULT DRIVER=PARADOX'
'ENABLE BCD=FALSE')
SessionName = 'Default'
Left = 32
Top = 16
end
object dsProducts: TDataSource
DataSet = tblProducts
Left = 103
Top = 73
end
object dsContacts: TDataSource
DataSet = tblContacts
Left = 38
Top = 75
end
end

45
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoData.h Normal file
View File

@ -0,0 +1,45 @@
//---------------------------------------------------------------------------
#ifndef EBarMegaDemoDataH
#define EBarMegaDemoDataH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
//---------------------------------------------------------------------------
class TEBarMegaDemoMainDM : public TDataModule
{
__published: // IDE-managed Components
TTable *tblContacts;
TAutoIncField *tblContactsID;
TIntegerField *tblContactsProductID;
TStringField *tblContactsFirstName;
TStringField *tblContactsLastName;
TStringField *tblContactsCompany;
TStringField *tblContactsAddress;
TStringField *tblContactsCity;
TStringField *tblContactsState;
TDateField *tblContactsPurchaseDate;
TStringField *tblContactsPaymentType;
TBCDField *tblContactsPaymentAmount;
TStringField *tblContactsproduct;
TStringField *tblContactsCustName;
TTable *tblProducts;
TIntegerField *tblProductsID;
TStringField *tblProductsNAME;
TStringField *tblProductsDescription;
TDatabase *Database;
TDataSource *dsProducts;
TDataSource *dsContacts;
void __fastcall tblContactsCalcFields(TDataSet *DataSet);
private: // User declarations
public: // User declarations
__fastcall TEBarMegaDemoMainDM(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarMegaDemoMainDM *EBarMegaDemoMainDM;
//---------------------------------------------------------------------------
#endif

949
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoMain.cpp Normal file
View File

@ -0,0 +1,949 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBarMegaDemoMain.h"
#include "EBarMegaDemoData.h"
#include "EBarMegaDemoOptions.h"
#include "EBarMegaDemoAbout.h"
#include "EBarsDemoRating.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dxBar"
#pragma link "dxBarDBNav"
#pragma link "dxBarExtDBItems"
#pragma link "dxBarExtItems"
#pragma link "dxsbar"
#if (__BORLANDC__ >= 0x540) && (__BORLANDC__ < 0x550) // BCB = 4
#pragma link "SHDocVw_OCX_4"
#endif
#if __BORLANDC__ >= 0x550 // BCB = 5, BCB = 6
#pragma link "SHDocVw_OCX"
#endif
#pragma resource "*.dfm"
TEBarMegaDemoMainForm *EBarMegaDemoMainForm;
char
*sRichEditFoundResultCaption = "Information",
*sRichEditTextNotFound = "The search text is not found.",
*sRichEditReplaceAllResult = "Replaced %d occurances.";
//---------------------------------------------------------------------------
__fastcall TEBarMegaDemoMainForm::TEBarMegaDemoMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::FormCreate(TObject *Sender)
{
const AnsiString Filter = "Rich Text Files (*.RTF)|*.RTF";
dmCommonData->AboutFormClass = __classid(TEBarMegaDemoAboutForm);
#if __BORLANDC__ > 0x540 // BCB version > 4
HTML = new TCppWebBrowser(HTMLPanel);
#else
HTML = new TWebBrowserProxy(HTMLPanel);
#endif
HTML->OnDocumentComplete = DocumentComplete;
HTML->OnProgressChange = ProgressChange;
HTML->OnBeforeNavigate2 = BeforeNavigate;
HTML->OnStatusTextChange = StatusTextChange;
HTML->OnTitleChange = TitleChange;
((TWinControl*)HTML)->Parent = HTMLPanel;
HTML->Align = alClient;
Address = "";
ShortDateFormat = "mm/dd/yyyy";
UpdateCombo = true;
OpenDialog->Filter = Filter;
SaveDialog->Filter = Filter;
OpenDialog->InitialDir = ExtractFilePath(ParamStr(0));
SaveDialog->InitialDir = OpenDialog->InitialDir;
Editor->Lines->Clear();
PanelRE->Visible = false;
SetModified(false);
ShowItems(false);
BarManager->LockUpdate = true;
UpdateToolBar(0);
BarManager->LockUpdate = false;
HistoryIndex = -1;
HistoryList = new TStringList;
EBarMegaDemoMainDM->tblProducts->Close();
EBarMegaDemoMainDM->tblContacts->Close();
EBarMegaDemoMainDM->tblProducts->Open();
EBarMegaDemoMainDM->tblContacts->Open();
dxDate->Text = "";
Editor->Lines->LoadFromFile("lipsum.rtf");
SetModified(false);
ShowItems(true);
dxSideBarItemClick(NULL, dxSideBar->Groups->Items[0]->Items->Items[0]);
dxSideBar->SelectedItem = dxSideBar->Groups->Items[0]->Items->Items[0];
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::UpdateToolBar( int index)
{
typedef
Set <int, 0, 12> TVisibleItems;
const
Boolean SunkenBorders[] = {False, False, True, False};
TVisibleItems VisibleBars[] = {
TVisibleItems () << 0,
TVisibleItems () << 0 << 1 << 2 << 3 << 9,
TVisibleItems () << 0 << 4 << 5 << 6 << 9,
TVisibleItems () << 0 << 7 <<8};
TVisibleItems VisibleCategories[] = {
TVisibleItems () << 0 << 4 << 5,
TVisibleItems () << 0 << 1 << 2 << 3 << 4 << 5,
TVisibleItems () << 0 << 1 << 5 << 4 << 6 << 7 << 8 << 10 << 11,
TVisibleItems () << 0 << 4 << 5 << 9 << 12};
int i;
BarManager->SunkenBorder = SunkenBorders[index];
for( i = 0; i < BarManager->Categories->Count ; i++)
BarManager->CategoryVisible[i] = VisibleCategories[index].Contains(i);
for( i = BarManager->Bars->Count - 1; i >= 0; i--)
if ((! VisibleBars[index].Contains(i)) || (i == 0))
{
BarManager->Bars->Items[i]->Visible = false;
BarManager->Bars->Items[i]->Hidden = true;
};
for( i = 0; i < BarManager->ItemCount; i++)
if ((BarManager->Items[i]->Tag == 0 ) || (BarManager->Items[i]->Tag == index))
BarManager->Items[i]->Visible = ivAlways;
else
BarManager->Items[i]->Visible = ivNever;
for( i = 0; i < BarManager->Bars->Count; i++ )
if (VisibleBars[index].Contains(i) || (i == 0))
{
BarManager->Bars->Items[i]->Visible = true;
BarManager->Bars->Items[i]->Hidden = false;
};
Nb->PageIndex = index;
dxBSIEStatus->Caption = "";
dxBSStatus->Caption = "";
dxBSPosition->Caption = "";
dxBarProgress->Position = 0;
dxBSIEStatus->Glyph = 0;
if (index == 2)
dxBSIEStatus->Glyph->Assign(Image->Picture->Bitmap);
}
void __fastcall TEBarMegaDemoMainForm::dxSideBarItemClick(TObject *Sender,
TdxSideBarItem *Item)
{
Caption = "ExpressBars Demo";
LockWindowUpdate(EBarMegaDemoMainForm->Handle);
BarManager->LockUpdate = true;
UpdateToolBar(Item->Tag);
BarManager->LockUpdate = false;
LockWindowUpdate(0);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonNewClick(TObject *Sender)
{
int Res;
if (Editor->Modified) {
Res = MessageDlg("Do you want to save the changes you made ?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo << mbCancel, 0);
switch (Res) {
case mrYes : if (!SaveFile(false)) return; break;
case mrCancel : return;
};
};
Editor->Lines->Clear();
FileName = "";
ShowItems(true);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonOpenClick(TObject *Sender)
{
int Res;
if (Editor->Modified) {
Res = MessageDlg("Do you want to save the changes you made to \""+FileName+"\" ?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo << mbCancel, 0);
switch (Res) {
case mrYes : if (! SaveFile(false)) return; break;
case mrCancel : return;
};
};
OpenDialog->FileName = "";
if (OpenDialog->Execute()) {
FileName = OpenDialog->FileName;
Editor->Lines->LoadFromFile(FileName);
SetModified(false);
ShowItems(true);
};
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonCloseClick(TObject *Sender)
{
int Res;
if (Editor->Modified) {
Res = MessageDlg("Do you want to save the changes you made to \""+FileName+"\" ?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo << mbCancel, 0);
switch (Res) {
case mrYes : if (! SaveFile(false)) return; break;
case mrCancel : return;
};
};
Editor->Lines->Clear();
ShowItems(false);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::EditorChange(TObject *Sender)
{
if (Editor == NULL) return;
Editor->OnSelectionChange(Editor);
SetModified(Editor->Modified);
dxBarButtonUndo->Caption = "&Undo";
dxBarButtonUndo->Enabled = SendMessage(Editor->Handle, EM_CANUNDO, 0, 0) != 0;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::EditorSelectionChange(TObject *Sender)
{
int Col, Row;
Row = SendMessage(Editor->Handle, EM_LINEFROMCHAR, Editor->SelStart, 0);
Col = Editor->SelStart - SendMessage(Editor->Handle, EM_LINEINDEX, Row, 0);
FUpdating = true;
dxBSPosition->Caption = "Line: "+IntToStr(Row + 1)+" Col: "+IntToStr(Col + 1);
dxBarButtonCopy->Enabled = Editor->SelLength > 0;
dxBarButtonCut->Enabled = dxBarButtonCopy->Enabled;
dxBarButtonPaste->Enabled = ((SendMessage(Editor->Handle, EM_CANPASTE, 0, 0) != 0) && dxBarButtonSave->Enabled);
dxBarButtonClear->Enabled = dxBarButtonCopy->Enabled;
dxBarComboFontSize->Text = IntToStr(Editor->SelAttributes->Size);
dxBarComboFontName->Text = Editor->SelAttributes->Name;
dxBarButtonBold->Down = Editor->SelAttributes->Style.Contains(fsBold);
dxBarButtonItalic->Down = Editor->SelAttributes->Style.Contains(fsItalic);
dxBarButtonUnderline->Down = Editor->SelAttributes->Style.Contains(fsUnderline);
dxBarButtonBullets->Down = (bool)(Editor->Paragraph->Numbering);
switch (Editor->Paragraph->Alignment) {
case 0: dxBarButtonAlignLeft->Down = true; break;
case 1: dxBarButtonAlignRight->Down = true; break;
case 2: dxBarButtonCenter->Down = true; break;
};
dxBarButtonURLDetection->Down = (bool)(SendMessage(Editor->Handle, EM_GETAUTOURLDETECT, 0, 0));
dxBarComboFontColor->Color = Editor->SelAttributes->Color;
FUpdating = false;
}
//---------------------------------------------------------------------------
bool __fastcall TEBarMegaDemoMainForm::SaveFile(bool ASaveAs)
{
bool Res;
if (ASaveAs || (FileName == "")) {
SaveDialog->FileName = FileName;
Res = SaveDialog->Execute();
if (! Res) return (Res);
FileName = SaveDialog->FileName;
};
Editor->Lines->SaveToFile(FileName);
SetModified(false);
return(true);
};
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::SetModified(bool Value)
{
Editor->Modified = Value;
if (Value)
dxBSStatus->Caption = "Modified";
else
dxBSStatus->Caption = "";
if (FileName != "")
dxBarButtonSave->Enabled = Value;
};
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::ShowItems(bool AShow)
{
TdxBarItemVisible AVisible;
if (! AShow) {
dxBSStatus->Caption = "";
dxBSPosition->Caption = "";
};
BarManager->Groups[0]->Enabled = AShow;
if (AShow) AVisible = ivAlways;
else AVisible = ivInCustomizing;
dxBarSubItemEdit->Visible = AVisible;
dxBarSubItemFormat->Visible = AVisible;
PanelRE->Visible = AShow;
Editor->Repaint();
};
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonSaveClick(TObject *Sender)
{
SaveFile(false);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonSaveAsClick(TObject *Sender)
{
SaveFile(true);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonPrintClick(TObject *Sender)
{
if (PrintDialog->Execute())
Editor->Print(FileName);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonUndoClick(TObject *Sender)
{
SendMessage(Editor->Handle, EM_UNDO, 0, 0);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonCutClick(TObject *Sender)
{
Editor->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonCopyClick(TObject *Sender)
{
Editor->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonPasteClick(TObject *Sender)
{
Editor->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonClearClick(TObject *Sender)
{
Editor->ClearSelection();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonSelectAllClick(TObject *Sender)
{
Editor->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonFindClick(TObject *Sender)
{
Editor->SelLength = 0;
FindDialog->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonReplaceClick(TObject *Sender)
{
Editor->SelLength = 0;
ReplaceDialog->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonFontClick(TObject *Sender)
{
FontDialog->Font->Assign(Editor->SelAttributes);
if (FontDialog->Execute())
Editor->SelAttributes->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonBulletsClick(TObject *Sender)
{
Editor->Paragraph->Numbering = (TNumberingStyle)dxBarButtonBullets->Down;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonProtectedClick(TObject *Sender)
{
Editor->SelAttributes->Protected = ! Editor->SelAttributes->Protected;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarComboFontColorChange(TObject *Sender)
{
if (! FUpdating)
Editor->SelAttributes->Color = dxBarComboFontColor->Color;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarComboFontColorClick(TObject *Sender)
{
FontDialog->Font->Assign(Editor->SelAttributes);
if (FontDialog->Execute())
Editor->SelAttributes->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonURLDetectionClick(TObject *Sender)
{
bool URLDetection;
URLDetection = (bool)(SendMessage(Editor->Handle, EM_GETAUTOURLDETECT, 0, 0));
URLDetection = ! URLDetection;
SendMessage(Editor->Handle, EM_AUTOURLDETECT, (int)(URLDetection), 0);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonOnWebClick(TObject *Sender)
{
ShellExecute(0, NULL, "http://www.devexpress.com", NULL, NULL, SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarComboFontNameChange(TObject *Sender)
{
if (! FUpdating)
Editor->SelAttributes->Name = dxBarComboFontName->Text;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarComboFontNameClick(TObject *Sender)
{
FontDialog->Font->Assign(Editor->SelAttributes);
if (FontDialog->Execute())
Editor->SelAttributes->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonBoldClick(TObject *Sender)
{
if (dxBarButtonBold->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsBold;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonItalicClick(TObject *Sender)
{
if (dxBarButtonItalic->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsItalic;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsItalic;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonUnderlineClick(TObject *Sender)
{
if (dxBarButtonUnderline->Down)
Editor->SelAttributes->Style = Editor->SelAttributes->Style << fsUnderline;
else
Editor->SelAttributes->Style = Editor->SelAttributes->Style >> fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonAlignLeftClick(TObject *Sender)
{
if (((TdxBarButton*)Sender)->Down)
Editor->Paragraph->Alignment = (TAlignment)0;
else
Editor->Paragraph->Alignment = taLeftJustify;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonCenterClick(TObject *Sender)
{
if (((TdxBarButton*)Sender)->Down)
Editor->Paragraph->Alignment = (TAlignment)2;
else
Editor->Paragraph->Alignment = taLeftJustify;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarButtonAlignRightClick(TObject *Sender)
{
if (((TdxBarButton*)Sender)->Down)
Editor->Paragraph->Alignment = (TAlignment)1;
else
Editor->Paragraph->Alignment = taLeftJustify;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxAddressComboKeyDown(TObject *Sender,
WORD &Key, TShiftState Shift)
{
if (Key == VK_RETURN) dxAddressCombo->Items->Insert(0, Address);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxAddressComboDrawItem(
TdxBarCustomCombo *Sender, int AIndex, TRect &ARect,
TOwnerDrawState AState)
{
TRect RectText;
Sender->Canvas->Brush->Color = clWindow;
Sender->Canvas->FillRect(ARect);
RectText = ARect;
RectText.Left += 16;
if (AIndex >= 0) RectText.Right = RectText.Left + Sender->Canvas->TextWidth(Sender->Items->Strings[AIndex]) + 4;
if ( AState.Contains(odSelected) ) {
Sender->Canvas->Brush->Color = clHighlight;
Sender->Canvas->FillRect(RectText);
};
if (AIndex >= 0) {
Sender->Canvas->Draw(ARect.Left + 1, ARect.Top + 2, Image->Picture->Bitmap);
Sender->Canvas->TextOut(RectText.Left + 2, RectText.Top , Sender->Items->Strings[AIndex]);
}
else
if (Sender->Text != "")
{
Sender->Canvas->Draw(ARect.Left + 1, ARect.Top + 2, Image->Picture->Bitmap);
Sender->Canvas->TextOut(RectText.Left + 2, RectText.Top , Sender->Text);
}
if ( AState.Contains(odSelected) )
Sender->Canvas->DrawFocusRect(RectText);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::FindAddress(void)
{
#if __BORLANDC__ > 0x530 // BCB version > 3
TVariant
#else
VARIANT
#endif
Flags, TargetFrameName, PostData, Headers ;
try {
if (Address != "") {
BSTR S = WideString(Address);
HTML->Navigate(S, &Flags, &TargetFrameName, &PostData, &Headers);
}
}
catch (...) {};
};
void __fastcall TEBarMegaDemoMainForm::dxStopBtnClick(TObject *Sender)
{
if (HistoryIndex != -1) HTML->Stop();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxRefreshBtnClick(TObject *Sender)
{
if (HistoryIndex != -1) HTML->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxHomeBtnClick(TObject *Sender)
{
Address = "http://www.devexpress.com/";
FindAddress();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxProductsBtnClick(TObject *Sender)
{
Address = ((TdxBarButton*)Sender)->Hint;
FindAddress();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxAddressComboChange(TObject *Sender)
{
if (UpdateCombo) {
Address = dxAddressCombo->Text;
FindAddress();
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::FormDestroy(TObject *Sender)
{
HTML->Stop();
HistoryList->Free();
HTML->Free();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBackBtnClick(TObject *Sender)
{
Address = HistoryList->Strings[HistoryIndex - 1];
FindAddress();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxForwardBtnClick(TObject *Sender)
{
Address = HistoryList->Strings[HistoryIndex + 1];
FindAddress();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarHistoryClick(TObject *Sender)
{
if (((TdxBarButton*)Sender)->ClickItemLink != NULL) {
Address = ((TdxBarButton*)Sender)->ClickItemLink->UserCaption;
FindAddress();
};
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxSearchBtnClick(TObject *Sender)
{
HTML->GoSearch();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxCityComboChange(TObject *Sender)
{
SetFilter();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::SetFilter(void)
{
const
String PaymentStr[] = {"CASH", "VISA", "MASTER", "AMEX"};
AnsiString Filter, S;
int i;
Filter = "";
if (dxCityCombo->Text != "")
if (dxCityCombo->TreeView->Selected->Count == 0) Filter = "City = '"+dxCityCombo->Text+"'";
else
{
for( i= 0; i < dxCityCombo->TreeView->Selected->Count; i++)
if (Filter == "") Filter = Filter + "( City = '" + dxCityCombo->TreeView->Selected->Item[i]->Text+"' )";
else Filter = Filter + " or ( City = '" + dxCityCombo->TreeView->Selected->Item[i]->Text+"' )";
};
if (Filter != "") Filter = "(" + Filter + ")";
if (dxProductsCombo->Text != "")
if (Filter == "") Filter = "( ProductID = " +EBarMegaDemoMainDM->tblProducts->FieldByName("ID")->AsString + ")";
else Filter = Filter + " and ( ProductID = " +EBarMegaDemoMainDM->tblProducts->FieldByName("ID")->AsString + ")";
if (dxDate->Text != "")
if (Filter == "") Filter = "( PurchaseDate = '" + DateToStr(dxDate->Date) + "')";
else Filter = Filter + " and ( PurchaseDate = '" + DateToStr(dxDate->Date) + "')";
if (dxTypeCombo->Text != "")
if (Filter == "") Filter = "( PaymentType = '" + PaymentStr[dxTypeCombo->ItemIndex] + "')";
else Filter = Filter + " and ( PaymentType = '" + PaymentStr[dxTypeCombo->ItemIndex] + "')";
EBarMegaDemoMainDM->tblContacts->Filter = Filter;
EBarMegaDemoMainDM->tblContacts->Filtered = true;
};
void __fastcall TEBarMegaDemoMainForm::dxClearBtnClick(TObject *Sender)
{
dxCityCombo->Text = "";
dxProductsCombo->KeyValue = NULL;
dxProductsCombo->Text = "";
dxDate->Text = "";
dxTypeCombo->ItemIndex = -1;
EBarMegaDemoMainDM->tblContacts->Filter = "";
EBarMegaDemoMainDM->tblContacts->Filtered = false;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxOptionsClick(TObject *Sender)
{
EBarMegaDemoOptionsForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::ProgressChange(TObject *Sender,
long Progress, long ProgressMax)
{
dxBarProgress->Max = ProgressMax;
dxBarProgress->Position = Progress;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::FindDialogFind(TObject *Sender)
{
TFindDialog *ADialog = ((TFindDialog*) Sender);
int StartPos, FindLength, FoundAt;
TSearchTypes Flags;
TPoint P;
RECT R, CaretR, IntersectR;
if (ADialog->Options.Contains(frDown))
{
if (Editor->SelLength == 0) StartPos = Editor->SelStart;
else StartPos = Editor->SelStart + Editor->SelLength;
FindLength = Editor->Text.Length() - StartPos;
}
else
{
StartPos = Editor->SelStart;
FindLength = -StartPos;
}
Flags.Clear();
if (ADialog->Options.Contains(frMatchCase)) Flags << stMatchCase;
if (ADialog->Options.Contains(frWholeWord)) Flags << stWholeWord;
Screen->Cursor = crHourGlass;
FoundAt = Editor->FindText(ADialog->FindText, StartPos, FindLength, Flags);
if (!(ADialog->Options.Contains(frReplaceAll))) Screen->Cursor = crDefault;
if (FoundAt > -1)
if (ADialog->Options.Contains(frReplaceAll))
{
Editor->SelStart = FoundAt;
Editor->SelLength = ADialog->FindText.Length();
}
else
{
Editor->SetFocus();
Editor->SelStart = FoundAt;
Editor->SelLength = ADialog->FindText.Length();
GetCaretPos(&P);
P = Editor->ClientToScreen(P);
CaretR = Rect(P.x, P.y, P.x + 2, P.y + 20);
GetWindowRect(Editor->Handle, &R);
if (IntersectRect(&IntersectR, &CaretR, &R))
if (P.y < Screen->Height / 2)
ADialog->Top = P.y + 40;
else
ADialog->Top = P.y - (R.bottom - R.top + 20);
if (ADialog->Top < 0) ADialog->Top = 0;
}
else
if (!(ADialog->Options.Contains(frReplaceAll)))
Application->MessageBox(sRichEditTextNotFound,
sRichEditFoundResultCaption, MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::ReplaceDialogReplace(TObject *Sender)
{
TReplaceDialog *ADialog = ((TReplaceDialog*) Sender);
int ReplacedCount, OldSelStart, PrevSelStart;
AnsiString S;
ReplacedCount = 0;
OldSelStart = Editor->SelStart;
if (ADialog->Options.Contains(frReplaceAll)) Screen->Cursor = crHourGlass;
do
{
if ((Editor->SelLength > 0) && ((Editor->SelText == ADialog->FindText) ||
(!(ADialog->Options.Contains(frMatchCase)) &&
(AnsiUpperCase(Editor->SelText) == AnsiUpperCase(ADialog->FindText)))))
{
Editor->SelText = ADialog->ReplaceText;
ReplacedCount++;
}
PrevSelStart = Editor->SelStart;
FindDialogFind(Sender);
}
while (!(!(ADialog->Options.Contains(frReplaceAll)) || (Editor->SelStart == PrevSelStart)));
if (ADialog->Options.Contains(frReplaceAll))
{
Screen->Cursor = crDefault;
if (ReplacedCount == 0) S = sRichEditTextNotFound;
else
{
Editor->SelStart = OldSelStart;
S = Format(sRichEditReplaceAllResult, ARRAYOFCONST((ReplacedCount)));
}
Application->MessageBox(S.c_str(), sRichEditFoundResultCaption,
MB_ICONINFORMATION);
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::DocumentComplete(TObject *Sender, LPDISPATCH pDisp,
#if (__BORLANDC__ == 0x540) && (__BORLANDC__ < 0x550) // BCB = 4
void
#endif
#if (__BORLANDC__ >= 0x550) && (__BORLANDC__ < 0x560) // BCB = 5
TVariant
#endif
#if __BORLANDC__ >= 0x560 // BCB = 6
tagVARIANT
#endif
* URL)
{
dxBarProgress->Position = 0;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::BeforeNavigate(TObject *Sender, LPDISPATCH pDisp,
#if (__BORLANDC__ >= 0x550) && (__BORLANDC__ < 0x560) // BCB = 5
TVariant* URL, TVariant* Flags, TVariant* TargetFrameName, TVariant* PostData, TVariant* Headers, TOLEBOOL* Cancel
#elif (__BORLANDC__ == 0x540) && (__BORLANDC__ < 0x550) // BCB = 4
void* URL, void* Flags, void* TargetFrameName, void* PostData, void* Headers, void* Cancel
#else
tagVARIANT* URL, tagVARIANT* Flags, tagVARIANT* TargetFrameName, tagVARIANT* PostData, tagVARIANT* Headers, short* Cancel
#endif
)
{
int NewIndex, i;
AnsiString NAddress;
TdxBarItemLink *AItemLink;
#if __BORLANDC__ > 0x530 // BCB version > 3
TVariant* AURL = (TVariant*)URL;
#else
Variant AURL = *URL;
#endif
#if __BORLANDC__ > 0x530 // BCB version > 3
NAddress = *AURL;
#else
NAddress = AURL;
#endif
if (NAddress == "") NAddress = Address;
if (NAddress == "") return;
NewIndex = HistoryList->IndexOf(NAddress);
if (NewIndex == -1) {
HistoryList->Add(NAddress);
NewIndex = HistoryList->IndexOf(NAddress);
};
UpdateCombo = false;
dxAddressCombo->Text = NAddress;
UpdateCombo = true;
ForwardPopupMenu->ItemLinks->Clear();
for( i = HistoryList->Count - 1; i >= NewIndex + 1; i--) {
AItemLink = ForwardPopupMenu->ItemLinks->Add();
AItemLink->Index = 0;
AItemLink->Item = dxBarHistory;
AItemLink->UserCaption = HistoryList->Strings[i];
};
BackPopupMenu->ItemLinks->Clear();
for( i = 0; i< NewIndex; i++) {
AItemLink = BackPopupMenu->ItemLinks->Add();
AItemLink->Index = 0;
AItemLink->Item = dxBarHistory;
AItemLink->UserCaption = HistoryList->Strings[i];
}
HistoryIndex = NewIndex;
if (HistoryIndex == 0) {
dxBackBtn->Enabled = false;
dxIEBackBtn->Enabled = false;
}
else
{
dxBackBtn->Enabled = true;
dxIEBackBtn->Enabled = true;
};
if (HistoryIndex == HistoryList->Count - 1) {
dxForwardBtn->Enabled = false;
dxIEForwardBtn->Enabled = false;
}
else
{
dxForwardBtn->Enabled = true;
dxIEForwardBtn->Enabled = true;
};
}
void __fastcall TEBarMegaDemoMainForm::StatusTextChange(TObject * Sender, BSTR Text)
{
if ((String)Text == "")
dxBSIEStatus->Caption = "Done";
else
dxBSIEStatus->Caption = TCaption(Text);
}
void __fastcall TEBarMegaDemoMainForm::TitleChange(TObject * Sender, BSTR Text)
{
Caption = (TCaption)Text;
}
void __fastcall TEBarMegaDemoMainForm::dxBarComboFontSizeChange(TObject *Sender)
{
if (! FUpdating)
Editor->SelAttributes->Size = StrToInt(dxBarComboFontSize->Text);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxBarComboFontSizeClick(TObject *Sender)
{
FontDialog->Font->Assign(Editor->SelAttributes);
if (FontDialog->Execute())
Editor->SelAttributes->Assign(FontDialog->Font);
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::tContactsCalcFields(TDataSet *DataSet)
{
DataSet->FieldByName("CustName")->AsString = DataSet->FieldByName("FirstName")->AsString +
" " + DataSet->FieldByName("LastName")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxProductsComboChange(
TObject *Sender)
{
SetFilter();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxDateChange(TObject *Sender)
{
SetFilter();
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoMainForm::dxTypeComboChange(TObject *Sender)
{
SetFilter();
}
//---------------------------------------------------------------------------

7789
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoMain.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

273
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoMain.h Normal file
View File

@ -0,0 +1,273 @@
//---------------------------------------------------------------------------
#ifndef EBarMegaDemoMainH
#define EBarMegaDemoMainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "dxBar.hpp"
#include "dxBarDBNav.hpp"
#include "dxBarExtDBItems.hpp"
#include "dxBarExtItems.hpp"
#include "dxsbar.hpp"
#include <ComCtrls.hpp>
#include <Db.hpp>
#include <DBGrids.hpp>
#include <DBTables.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
#include <OleCtrls.hpp>
#include <ShellAPI.hpp>
#include <Graphics.hpp>
#include <ImgList.hpp>
#include <DB.hpp>
#include <ActnList.hpp>
#if (__BORLANDC__ >= 0x540) && (__BORLANDC__ < 0x550) // BCB = 4
#include "SHDocVw_OCX_4.h"
#endif
#if __BORLANDC__ >= 0x550 // BCB = 5, BCB = 6
#include "SHDocVw_OCX.h"
#endif
#include <Graphics.hpp>
#include <ImgList.hpp>
#include <ActnList.hpp>
#include "EBarsUtils.h"
//---------------------------------------------------------------------------
class TEBarMegaDemoMainForm : public TForm
{
__published: // IDE-managed Components
TPanel *Panel3;
TSplitter *Splitter;
TPanel *Panel1;
TImage *Image;
TdxSideBar *dxSideBar;
TPanel *Panel2;
TNotebook *Nb;
TPanel *PanelRE;
TRichEdit *Editor;
TPanel *HTMLPanel;
TDBGrid *DBGrid1;
TdxBarDockControl *dxBDStatus;
TdxSideBarStore *dxSideBarStore;
TdxStoredSideItem *dxSideBarStoreItem1;
TdxStoredSideItem *dxSideBarStoreItem2;
TdxStoredSideItem *dxSideBarStoreItem3;
TdxBarManager *BarManager;
TdxBarLargeButton *dxBarButtonNew;
TdxBarLargeButton *dxBarButtonOpen;
TdxBarLargeButton *dxBarButtonClose;
TdxBarLargeButton *dxBarButtonSave;
TdxBarLargeButton *dxBarButtonSaveAs;
TdxBarSubItem *dxBarSubItemFile;
TdxBarSubItem *dxBarSubItemEdit;
TdxBarSubItem *dxBarSubItemFormat;
TdxBarLargeButton *dxBarButtonPrint;
TdxBarLargeButton *dxBarButtonExit;
TdxBarLargeButton *dxBarButtonUndo;
TdxBarLargeButton *dxBarButtonCut;
TdxBarLargeButton *dxBarButtonCopy;
TdxBarLargeButton *dxBarButtonPaste;
TdxBarLargeButton *dxBarButtonClear;
TdxBarLargeButton *dxBarButtonSelectAll;
TdxBarLargeButton *dxBarButtonFind;
TdxBarLargeButton *dxBarButtonReplace;
TdxBarCombo *dxBarComboFontSize;
TdxBarLargeButton *dxBarButtonBold;
TdxBarLargeButton *dxBarButtonItalic;
TdxBarLargeButton *dxBarButtonUnderline;
TdxBarLargeButton *dxBarButtonBullets;
TdxBarLargeButton *dxBarButtonAlignLeft;
TdxBarLargeButton *dxBarButtonCenter;
TdxBarLargeButton *dxBarButtonAlignRight;
TdxBarLargeButton *dxBarButtonURLDetection;
TdxBarSubItem *dxBarSubItemHelp;
TdxBarLargeButton *dxBarButtonFont;
TdxBarFontNameCombo *dxBarComboFontName;
TdxBarColorCombo *dxBarComboFontColor;
TdxBarLargeButton *dxBackBtn;
TdxBarLargeButton *dxForwardBtn;
TdxBarLargeButton *dxStopBtn;
TdxBarLargeButton *dxRefreshBtn;
TdxBarLargeButton *dxHomeBtn;
TdxBarLargeButton *dxSearchBtn;
TdxBarCombo *dxAddressCombo;
TdxBarStatic *dxLinks;
TdxBarLargeButton *dxProductsBtn;
TdxBarLargeButton *dxDownloadsBtn;
TdxBarLargeButton *dxBarHistory;
TdxBarTreeViewCombo *dxCityCombo;
TdxBarLookupCombo *dxProductsCombo;
TdxBarDateCombo *dxDate;
TdxBarLargeButton *dxIESelectAllBtn;
TdxBarSubItem *dxIEView;
TdxBarSubItem *dxGo;
TdxBarLargeButton *dxIEStop;
TdxBarLargeButton *dxIERefreshBtn;
TdxBarLargeButton *dxIEBackBtn;
TdxBarLargeButton *dxIEForwardBtn;
TdxBarSubItem *dxFavorites;
TdxBarSubItem *dxIELinks;
TdxBarLargeButton *dxClearBtn;
TdxBarSubItem *dxFilter;
TdxBarSubItem *dxDBNavig;
TdxBarButton *dxOptions;
TdxBarLargeButton *dxFORUMBtn;
TdxBarImageCombo *dxTypeCombo;
TdxBarStatic *dxBSPosition;
TdxBarStatic *dxBSStatus;
TdxBarProgressItem *dxBarProgress;
TdxBarStatic *dxBSIEStatus;
TdxBarLargeButton *dxBarButtonAbout;
TdxBarLargeButton *dxBarButtonDXDownloads;
TdxBarLargeButton *dxBarButtonDXOntheweb;
TdxBarLargeButton *dxBarButtonHelp;
TdxBarLargeButton *dxBarButtonProducts;
TdxBarLargeButton *dxBarButtonForum;
TdxBarDBNavButton *dxBarDBNavFirst1;
TdxBarDBNavButton *dxBarDBNavPrev1;
TdxBarDBNavButton *dxBarDBNavNext1;
TdxBarDBNavButton *dxBarDBNavLast1;
TdxBarDBNavButton *dxBarDBNavInsert1;
TdxBarDBNavButton *dxBarDBNavDelete1;
TdxBarDBNavButton *dxBarDBNavEdit1;
TdxBarDBNavButton *dxBarDBNavPost1;
TdxBarDBNavButton *dxBarDBNavCancel1;
TdxBarDBNavButton *dxBarDBNavRefresh1;
TdxBarLargeButton *dxBarButton1;
TdxBarLargeButton *dxBarLargeButton1;
TdxBarLargeButton *dxBarLargeButton2;
TdxBarGroup *dxBarGroup;
TOpenDialog *OpenDialog;
TdxBarPopupMenu *dxBarPopupMenu;
TSaveDialog *SaveDialog;
TPrintDialog *PrintDialog;
TFontDialog *FontDialog;
TImageList *LargeImage;
TImageList *SmallImage;
TdxBarPopupMenu *BackPopupMenu;
TdxBarPopupMenu *ForwardPopupMenu;
TdxBarDBNavigator *dxBarDBNavigator;
TImageList *GridImageList;
TdxSideBarPopupMenu *dxSideBarPopupMenu;
TFindDialog *FindDialog;
TReplaceDialog *ReplaceDialog;
TImageList *ilDisabledImages;
TImageList *ilHotImages;
TImageList *Images;
void __fastcall FormCreate(TObject *Sender);
void __fastcall dxSideBarItemClick(TObject *Sender,
TdxSideBarItem *Item);
void __fastcall dxBarButtonNewClick(TObject *Sender);
void __fastcall dxBarButtonOpenClick(TObject *Sender);
void __fastcall dxBarButtonCloseClick(TObject *Sender);
void __fastcall EditorChange(TObject *Sender);
void __fastcall EditorSelectionChange(TObject *Sender);
void __fastcall dxBarButtonExitClick(TObject *Sender);
void __fastcall dxBarButtonSaveClick(TObject *Sender);
void __fastcall dxBarButtonSaveAsClick(TObject *Sender);
void __fastcall dxBarButtonPrintClick(TObject *Sender);
void __fastcall dxBarButtonUndoClick(TObject *Sender);
void __fastcall dxBarButtonCutClick(TObject *Sender);
void __fastcall dxBarButtonCopyClick(TObject *Sender);
void __fastcall dxBarButtonPasteClick(TObject *Sender);
void __fastcall dxBarButtonClearClick(TObject *Sender);
void __fastcall dxBarButtonSelectAllClick(TObject *Sender);
void __fastcall dxBarButtonFindClick(TObject *Sender);
void __fastcall dxBarButtonReplaceClick(TObject *Sender);
void __fastcall dxBarButtonFontClick(TObject *Sender);
void __fastcall dxBarButtonBulletsClick(TObject *Sender);
void __fastcall dxBarButtonProtectedClick(TObject *Sender);
void __fastcall dxBarComboFontColorChange(TObject *Sender);
void __fastcall dxBarComboFontColorClick(TObject *Sender);
void __fastcall dxBarButtonURLDetectionClick(TObject *Sender);
void __fastcall dxBarButtonOnWebClick(TObject *Sender);
void __fastcall dxBarComboFontNameChange(TObject *Sender);
void __fastcall dxBarComboFontNameClick(TObject *Sender);
void __fastcall dxBarButtonBoldClick(TObject *Sender);
void __fastcall dxBarButtonItalicClick(TObject *Sender);
void __fastcall dxBarButtonUnderlineClick(TObject *Sender);
void __fastcall dxBarButtonAlignLeftClick(TObject *Sender);
void __fastcall dxBarButtonCenterClick(TObject *Sender);
void __fastcall dxBarButtonAlignRightClick(TObject *Sender);
void __fastcall dxAddressComboKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall dxAddressComboDrawItem(TdxBarCustomCombo *Sender,
int AIndex, TRect &ARect, TOwnerDrawState AState);
void __fastcall dxStopBtnClick(TObject *Sender);
void __fastcall dxRefreshBtnClick(TObject *Sender);
void __fastcall dxHomeBtnClick(TObject *Sender);
void __fastcall dxProductsBtnClick(TObject *Sender);
void __fastcall dxAddressComboChange(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
void __fastcall dxBackBtnClick(TObject *Sender);
void __fastcall dxForwardBtnClick(TObject *Sender);
void __fastcall dxBarHistoryClick(TObject *Sender);
void __fastcall dxSearchBtnClick(TObject *Sender);
void __fastcall dxCityComboChange(TObject *Sender);
void __fastcall dxClearBtnClick(TObject *Sender);
void __fastcall dxOptionsClick(TObject *Sender);
void __fastcall FindDialogFind(TObject *Sender);
void __fastcall ReplaceDialogReplace(TObject *Sender);
void __fastcall ProgressChange(TObject *Sender, long Progress, long ProgressMax);
void __fastcall StatusTextChange(TObject * Sender, BSTR Text);
void __fastcall TitleChange(TObject * Sender, BSTR Text);
void __fastcall dxBarComboFontSizeChange(TObject *Sender);
void __fastcall dxBarComboFontSizeClick(TObject *Sender);
void __fastcall tContactsCalcFields(TDataSet *DataSet);
void __fastcall dxProductsComboChange(TObject *Sender);
void __fastcall dxDateChange(TObject *Sender);
void __fastcall dxTypeComboChange(TObject *Sender);
private: // User declarations
bool FUpdating;
int HistoryIndex;
TStringList *HistoryList;
bool UpdateCombo;
AnsiString FileName;
AnsiString Address;
#if __BORLANDC__ >= 0x550 // BCB version > 4
TCppWebBrowser *HTML;
#else
TWebBrowserProxy *HTML;
#endif
void __fastcall DocumentComplete(TObject *Sender, LPDISPATCH pDisp,
#if (__BORLANDC__ == 0x540) && (__BORLANDC__ < 0x550) // BCB = 4
void
#endif
#if (__BORLANDC__ >= 0x550) && (__BORLANDC__ < 0x560) // BCB = 5
TVariant
#endif
#if __BORLANDC__ >= 0x560 // BCB = 6
tagVARIANT
#endif
* URL);
void __fastcall BeforeNavigate(TObject *Sender, LPDISPATCH pDisp,
#if (__BORLANDC__ >= 0x550) && (__BORLANDC__ < 0x560) // BCB = 5
TVariant* URL, TVariant* Flags, TVariant* TargetFrameName, TVariant* PostData, TVariant* Headers, TOLEBOOL* Cancel
#elif (__BORLANDC__ == 0x540) && (__BORLANDC__ < 0x550) // BCB = 4
void* URL, void* Flags, void* TargetFrameName, void* PostData, void* Headers, void* Cancel
#else
tagVARIANT* URL, tagVARIANT* Flags, tagVARIANT* TargetFrameName, tagVARIANT* PostData, tagVARIANT* Headers, short* Cancel
#endif
);
void __fastcall UpdateToolBar( int index);
void __fastcall FindAddress(void);
bool __fastcall SaveFile(bool ASaveAs);
void __fastcall SetModified(bool Value);
void __fastcall ShowItems(bool AShow);
void __fastcall SetFilter(void);
public: // User declarations
__fastcall TEBarMegaDemoMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarMegaDemoMainForm *EBarMegaDemoMainForm;
//---------------------------------------------------------------------------
#endif

295
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoOptions.cpp Normal file
View File

@ -0,0 +1,295 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "EBarMegaDemoOptions.h"
#include "EBarMegaDemoMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cspin"
#pragma link "CSPIN"
#pragma resource "*.dfm"
TEBarMegaDemoOptionsForm *EBarMegaDemoOptionsForm;
//---------------------------------------------------------------------------
__fastcall TEBarMegaDemoOptionsForm::TEBarMegaDemoOptionsForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::pBeginColorClick(TObject *Sender)
{
if (ColorDialog->Execute()) {
((TPanel*)Sender)->Color = ColorDialog->Color;
switch(((TComponent*)Sender)->Tag) {
case 0: EBarMegaDemoMainForm->dxSideBar->BkGround->BeginColor = pBeginColor->Color; break;
case 1: EBarMegaDemoMainForm->dxSideBar->BkGround->EndColor = pEndColor->Color; break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::FormActivate(TObject *Sender)
{
pBeginColor->Color = EBarMegaDemoMainForm->dxSideBar->BkGround->BeginColor;
pEndColor->Color = EBarMegaDemoMainForm->dxSideBar->BkGround->EndColor;
switch(EBarMegaDemoMainForm->dxSideBar->BkGround->FillStyle) {
case bfsHorz: cbFillStyle->ItemIndex = 0; break;
case bfsNone: cbFillStyle->ItemIndex = 1; break;
case bfsVert: cbFillStyle->ItemIndex = 2; break;
}
seStep->Value = EBarMegaDemoMainForm->dxSideBar->BkGround->Step;
lbItemFont->Caption = EBarMegaDemoMainForm->dxSideBar->ItemFont->Name + " ("+IntToStr(EBarMegaDemoMainForm->dxSideBar->ItemFont->Size)+")";
lbGroupFont->Caption = EBarMegaDemoMainForm->dxSideBar->GroupFont->Name + " ("+IntToStr(EBarMegaDemoMainForm->dxSideBar->GroupFont->Size)+")";
cbShowGroups->Checked = EBarMegaDemoMainForm->dxSideBar->ShowGroups;
switch (EBarMegaDemoMainForm->dxSideBar->BorderStyle) {
case bsNone: cbBorderStyle->ItemIndex = 0; break;
case bsSingle: cbBorderStyle->ItemIndex = 1; break;
}
switch (EBarMegaDemoMainForm->dxSideBar->PaintStyle) {
case sbpsFlat: cbPaintStyle->ItemIndex = 0; break;
case sbpsStandard: cbPaintStyle->ItemIndex = 1; break;
}
cbIconType->Checked = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options.Contains(sbmIconType);
cbAddGroup->Checked = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options.Contains(sbmAddGroup);
cbRemoveGroup->Checked = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options.Contains(sbmRemoveGroup);
cbCustomize->Checked = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options.Contains(sbmCustomize);
cbRenameGroup->Checked = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options.Contains(sbmRenameGroup);
cbRenameItem->Checked = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options.Contains(sbmRenameItem);
cbRemoveItem->Checked = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options.Contains(sbmRemoveItem);
lbFontName->Caption = EBarMegaDemoMainForm->BarManager->Font->Name + " ("+IntToStr(EBarMegaDemoMainForm->BarManager->Font->Size)+")";
cbUseF10ForMenu->Checked = EBarMegaDemoMainForm->BarManager->UseF10ForMenu;
cbCanCustomize->Checked = EBarMegaDemoMainForm->BarManager->CanCustomize;
cbSunkenBorder->Checked = EBarMegaDemoMainForm->BarManager->SunkenBorder;
cbAllowReset->Checked = EBarMegaDemoMainForm->BarManager->AllowReset;
rgStyle->ItemIndex = (int)EBarMegaDemoMainForm->BarManager->Style;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::BitBtn2Click(TObject *Sender)
{
EBarMegaDemoMainForm->dxSideBar->BkGround->BeginColor = pBeginColor->Color;
EBarMegaDemoMainForm->dxSideBar->BkGround->EndColor = pEndColor->Color;
switch (cbFillStyle->ItemIndex) {
case 0: EBarMegaDemoMainForm->dxSideBar->BkGround->FillStyle = bfsHorz; break;
case 1: EBarMegaDemoMainForm->dxSideBar->BkGround->FillStyle = bfsNone; break;
case 2: EBarMegaDemoMainForm->dxSideBar->BkGround->FillStyle = bfsVert; break;
};
EBarMegaDemoMainForm->dxSideBar->BkGround->Step = seStep->Value;
EBarMegaDemoMainForm->dxSideBar->BkPicture = ImSideBarbkPicture->Picture;
EBarMegaDemoMainForm->dxSideBar->GroupFont = FontGroup;
EBarMegaDemoMainForm->dxSideBar->ItemFont = FontItem;
switch (cbBorderStyle->ItemIndex) {
case 0: EBarMegaDemoMainForm->dxSideBar->BorderStyle = bsNone; break;
case 1: EBarMegaDemoMainForm->dxSideBar->BorderStyle = bsSingle; break;
};
switch (cbPaintStyle->ItemIndex) {
case 0: EBarMegaDemoMainForm->dxSideBar->PaintStyle = sbpsFlat; break;
case 1: EBarMegaDemoMainForm->dxSideBar->PaintStyle = sbpsStandard; break;
};
EBarMegaDemoMainForm->dxSideBar->CanSelected = cbCanSelected->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::seStepChange(TObject *Sender)
{
if (((TCSpinEdit*)Sender)->Value < 1)
((TCSpinEdit*)Sender)->Value = 1;
EBarMegaDemoMainForm->dxSideBar->BkGround->Step = seStep->Value;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::SpeedButton1Click(TObject *Sender)
{
FontDialog->Font = FontGroup;
if (FontDialog->Execute()) FontGroup = FontDialog->Font;
lbGroupFont->Caption = FontGroup->Name + " ("+IntToStr(FontGroup->Size)+")";
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::SpeedButton2Click(TObject *Sender)
{
FontDialog->Font = FontItem;
if (FontDialog->Execute()) FontItem = FontDialog->Font;
lbItemFont->Caption = FontItem->Name + " ("+IntToStr(FontItem->Size)+")";
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::rgStyleClick(TObject *Sender)
{
EBarMegaDemoMainForm->BarManager->Style = (TdxBarManagerStyle)rgStyle->ItemIndex;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::btnBkBarsLoadClick(
TObject *Sender)
{
if (OpenPictureDialog->Execute()){
imBarsBackground->Picture->LoadFromFile(OpenPictureDialog->FileName);
EBarMegaDemoMainForm->BarManager->Backgrounds->Bar = imBarsBackground->Picture->Bitmap;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::btnBkBarsClearClick(
TObject *Sender)
{
imBarsBackground->Picture = NULL;
EBarMegaDemoMainForm->BarManager->Backgrounds->Bar = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::btnBkSubMenuLoadClick(
TObject *Sender)
{
if (OpenPictureDialog->Execute()) {
imSubMenuBackground->Picture->LoadFromFile(OpenPictureDialog->FileName);
EBarMegaDemoMainForm->BarManager->Backgrounds->SubMenu = imSubMenuBackground->Picture->Bitmap;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::btnBkSubMenuClearClick(
TObject *Sender)
{
imSubMenuBackground->Picture = NULL;
EBarMegaDemoMainForm->BarManager->Backgrounds->SubMenu = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::sbFontClick(TObject *Sender)
{
FontDialog->Font = EBarMegaDemoMainForm->BarManager->Font;
if (FontDialog->Execute()) {
EBarMegaDemoMainForm->BarManager->Font = FontDialog->Font;
lbGroupFont->Caption = EBarMegaDemoMainForm->BarManager->Font->Name + " (" + IntToStr(EBarMegaDemoMainForm->BarManager->Font->Size)+")";
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbUseF10ForMenuClick(
TObject *Sender)
{
EBarMegaDemoMainForm->BarManager->UseF10ForMenu = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbCanCustomizeClick(
TObject *Sender)
{
EBarMegaDemoMainForm->BarManager->CanCustomize = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbSunkenBorderClick(
TObject *Sender)
{
EBarMegaDemoMainForm->BarManager->SunkenBorder = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbAllowResetClick(
TObject *Sender)
{
EBarMegaDemoMainForm->BarManager->AllowReset = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbFillStyleChange(
TObject *Sender)
{
switch (((TComboBox*)Sender)->ItemIndex) {
case 0: EBarMegaDemoMainForm->dxSideBar->BkGround->FillStyle = bfsHorz; break;
case 1: EBarMegaDemoMainForm->dxSideBar->BkGround->FillStyle = bfsNone; break;
case 2: EBarMegaDemoMainForm->dxSideBar->BkGround->FillStyle = bfsVert; break;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbSBPopupMenuClick(TObject *Sender)
{
TdxSideBarPopupMenuOption pmOption = (TdxSideBarPopupMenuOption)(((TCheckBox*)Sender)->Tag);
if (((TCheckBox*)Sender)->Checked)
EBarMegaDemoMainForm->dxSideBarPopupMenu->Options = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options << pmOption;
else
EBarMegaDemoMainForm->dxSideBarPopupMenu->Options = EBarMegaDemoMainForm->dxSideBarPopupMenu->Options >> pmOption;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::spGroupFontClick(TObject *Sender)
{
FontDialog->Font = EBarMegaDemoMainForm->dxSideBar->GroupFont;
if (FontDialog->Execute()) {
EBarMegaDemoMainForm->dxSideBar->GroupFont = FontDialog->Font;
lbGroupFont->Caption = EBarMegaDemoMainForm->dxSideBar->GroupFont->Name + " ("+IntToStr(EBarMegaDemoMainForm->dxSideBar->GroupFont->Size)+")";
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::spItemFontClick(TObject *Sender)
{
FontDialog->Font = EBarMegaDemoMainForm->dxSideBar->ItemFont;
if (FontDialog->Execute()) {
EBarMegaDemoMainForm->dxSideBar->ItemFont = FontDialog->Font;
lbItemFont->Caption = EBarMegaDemoMainForm->dxSideBar->ItemFont->Name + " ("+IntToStr(EBarMegaDemoMainForm->dxSideBar->ItemFont->Size)+")";
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::btnLoadClick(TObject *Sender)
{
if (OpenPictureDialog->Execute()) {
ImSideBarbkPicture->Picture->LoadFromFile(OpenPictureDialog->FileName);
EBarMegaDemoMainForm->dxSideBar->BkPicture = ImSideBarbkPicture->Picture;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbShowGroupsClick(
TObject *Sender)
{
EBarMegaDemoMainForm->dxSideBar->ShowGroups = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbCanSelectedClick(
TObject *Sender)
{
EBarMegaDemoMainForm->dxSideBar->CanSelected = ((TCheckBox*)Sender)->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbPaintStyleChange(
TObject *Sender)
{
switch(cbPaintStyle->ItemIndex) {
case 0: EBarMegaDemoMainForm->dxSideBar->PaintStyle = sbpsFlat; break;
case 1: EBarMegaDemoMainForm->dxSideBar->PaintStyle = sbpsStandard; break;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::cbBorderStyleChange(
TObject *Sender)
{
switch(cbBorderStyle->ItemIndex) {
case 0: EBarMegaDemoMainForm->dxSideBar->BorderStyle = bsNone;
case 1: EBarMegaDemoMainForm->dxSideBar->BorderStyle = bsSingle;
}
}
//---------------------------------------------------------------------------
void __fastcall TEBarMegaDemoOptionsForm::btnCloseClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

580
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoOptions.dfm Normal file
View File

@ -0,0 +1,580 @@
object EBarMegaDemoOptionsForm: TEBarMegaDemoOptionsForm
Left = 298
Top = 223
BorderStyle = bsDialog
Caption = 'Options'
ClientHeight = 336
ClientWidth = 450
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Position = poScreenCenter
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object pgOptions: TPageControl
Left = 0
Top = 0
Width = 450
Height = 297
ActivePage = tsBars
Align = alTop
TabOrder = 0
object tsBars: TTabSheet
Caption = 'Bars'
ImageIndex = 1
object gbBackgroundSubMenu: TGroupBox
Left = 168
Top = 129
Width = 274
Height = 133
Caption = 'Submenu background'
TabOrder = 3
object imSubMenuBackground: TImage
Left = 2
Top = 15
Width = 270
Height = 116
Align = alClient
end
object btnBkSubMenuLoad: TButton
Left = 12
Top = 104
Width = 41
Height = 21
Caption = 'Load'
TabOrder = 0
OnClick = btnBkSubMenuLoadClick
end
object btnBkSubMenuClear: TButton
Left = 56
Top = 104
Width = 41
Height = 21
Caption = 'Clear'
TabOrder = 1
OnClick = btnBkSubMenuClearClick
end
end
object gbBackgroundBars: TGroupBox
Left = 168
Top = 0
Width = 273
Height = 129
Caption = 'Background'
TabOrder = 1
object imBarsBackground: TImage
Left = 2
Top = 15
Width = 269
Height = 112
Align = alClient
end
object btnBkBarsLoad: TButton
Left = 12
Top = 96
Width = 41
Height = 21
Caption = 'Load'
TabOrder = 0
OnClick = btnBkBarsLoadClick
end
object btnBkBarsClear: TButton
Left = 56
Top = 96
Width = 41
Height = 21
Caption = 'Clear'
TabOrder = 1
OnClick = btnBkBarsClearClick
end
end
object rgStyle: TRadioGroup
Left = 1
Top = 0
Width = 160
Height = 126
Caption = 'Style'
Items.Strings = (
'&Standard'
'&Enhanced'
'&Flat'
'&XP'
'&Office11')
TabOrder = 0
OnClick = rgStyleClick
end
object gbBarsMiscellaneous: TGroupBox
Left = 1
Top = 128
Width = 160
Height = 134
Caption = 'Miscellaneous'
TabOrder = 2
object sbFont: TSpeedButton
Left = 134
Top = 11
Width = 21
Height = 21
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = sbFontClick
end
object lbFont: TLabel
Left = 22
Top = 14
Width = 21
Height = 13
Caption = 'Font'
end
object lbFontName: TLabel
Left = 22
Top = 31
Width = 57
Height = 13
Caption = 'lbFontName'
end
object beMiscellaneous: TBevel
Left = 8
Top = 47
Width = 137
Height = 5
Shape = bsBottomLine
end
object cbUseF10ForMenu: TCheckBox
Left = 21
Top = 55
Width = 124
Height = 17
Caption = 'Use F10 for Menu'
TabOrder = 0
OnClick = cbUseF10ForMenuClick
end
object cbCanCustomize: TCheckBox
Left = 21
Top = 72
Width = 97
Height = 17
Caption = 'Can Customize'
TabOrder = 1
OnClick = cbCanCustomizeClick
end
object cbSunkenBorder: TCheckBox
Left = 21
Top = 90
Width = 97
Height = 17
Caption = 'Sunken Border'
TabOrder = 2
OnClick = cbSunkenBorderClick
end
object cbAllowReset: TCheckBox
Left = 21
Top = 109
Width = 97
Height = 17
Caption = 'Allow Reset'
TabOrder = 3
OnClick = cbAllowResetClick
end
end
end
object tsSideBar: TTabSheet
Caption = 'Side Bar'
object gbBackgroundColor: TGroupBox
Left = 10
Top = 12
Width = 138
Height = 113
Caption = ' Background Color '
TabOrder = 0
object lbBeginColor: TLabel
Left = 8
Top = 24
Width = 53
Height = 13
Caption = 'Begin color'
end
object lbEndColor: TLabel
Left = 8
Top = 44
Width = 45
Height = 13
Caption = 'End color'
end
object lbFillStyle: TLabel
Left = 8
Top = 68
Width = 36
Height = 13
Caption = 'Fill style'
end
object blStep: TLabel
Left = 8
Top = 92
Width = 22
Height = 13
Caption = 'Step'
end
object pBeginColor: TPanel
Left = 64
Top = 20
Width = 65
Height = 17
Color = clGrayText
TabOrder = 0
OnClick = pBeginColorClick
end
object pEndColor: TPanel
Tag = 1
Left = 64
Top = 40
Width = 65
Height = 17
Color = clGrayText
TabOrder = 1
OnClick = pBeginColorClick
end
object cbFillStyle: TComboBox
Left = 64
Top = 60
Width = 65
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Horz'
'None'
'Vert')
TabOrder = 2
OnChange = cbFillStyleChange
end
object seStep: TCSpinEdit
Left = 64
Top = 84
Width = 65
Height = 22
TabStop = True
ParentColor = False
TabOrder = 3
OnChange = seStepChange
end
end
object gbBackgroundPicture: TGroupBox
Left = 297
Top = 12
Width = 137
Height = 252
Caption = ' Background Picture '
TabOrder = 5
object ImSideBarbkPicture: TImage
Left = 2
Top = 15
Width = 133
Height = 235
Align = alClient
end
object btnLoad: TButton
Left = 44
Top = 224
Width = 41
Height = 21
Caption = 'Load'
TabOrder = 0
OnClick = btnLoadClick
end
object btnClear: TButton
Left = 88
Top = 224
Width = 41
Height = 21
Caption = 'Clear'
TabOrder = 1
end
end
object gbFonts: TGroupBox
Left = 156
Top = 12
Width = 137
Height = 113
Caption = ' Fonts '
TabOrder = 1
object beFonts: TBevel
Left = 2
Top = 60
Width = 131
Height = 8
Shape = bsTopLine
end
object lbItemFontCaption: TLabel
Left = 4
Top = 68
Width = 44
Height = 13
Caption = 'Item font:'
end
object lbGroupFontCaption: TLabel
Left = 4
Top = 16
Width = 53
Height = 13
Caption = 'Group font:'
end
object lbGroupFont: TLabel
Left = 8
Top = 36
Width = 58
Height = 13
Caption = 'lbGroupFont'
end
object lbItemFont: TLabel
Left = 8
Top = 88
Width = 49
Height = 13
Caption = 'lbItemFont'
end
object spGroupFont: TSpeedButton
Left = 112
Top = 36
Width = 21
Height = 21
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = spGroupFontClick
end
object spItemFont: TSpeedButton
Left = 112
Top = 88
Width = 21
Height = 21
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = spItemFontClick
end
end
object gbStyle: TGroupBox
Left = 154
Top = 128
Width = 139
Height = 72
Caption = ' Style '
TabOrder = 3
object Label7: TLabel
Left = 8
Top = 20
Width = 31
Height = 13
Caption = 'Border'
end
object Label8: TLabel
Left = 8
Top = 48
Width = 24
Height = 13
Caption = 'Paint'
end
object cbBorderStyle: TComboBox
Left = 44
Top = 16
Width = 85
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'None'
'Single')
TabOrder = 0
OnChange = cbBorderStyleChange
end
object cbPaintStyle: TComboBox
Left = 44
Top = 44
Width = 85
Height = 21
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'Flat'
'Standard')
TabOrder = 1
OnChange = cbPaintStyleChange
end
end
object gbMiscellaneous: TGroupBox
Left = 154
Top = 200
Width = 139
Height = 65
Caption = 'Miscellaneous'
TabOrder = 4
object cbCanSelected: TCheckBox
Left = 8
Top = 16
Width = 105
Height = 17
Caption = 'Show Selected'
TabOrder = 0
OnClick = cbCanSelectedClick
end
object cbShowGroups: TCheckBox
Left = 8
Top = 40
Width = 85
Height = 17
Caption = 'Show Groups'
TabOrder = 1
OnClick = cbShowGroupsClick
end
end
object gbSideBarPopupmenu: TGroupBox
Left = 8
Top = 128
Width = 140
Height = 137
Caption = 'Popup menu - visible items'
TabOrder = 2
object cbIconType: TCheckBox
Left = 13
Top = 16
Width = 73
Height = 17
Caption = 'Icon Type'
TabOrder = 0
OnClick = cbSBPopupMenuClick
end
object cbAddGroup: TCheckBox
Tag = 1
Left = 13
Top = 32
Width = 73
Height = 17
Caption = 'Add Group'
TabOrder = 1
OnClick = cbSBPopupMenuClick
end
object cbRemoveGroup: TCheckBox
Tag = 2
Left = 13
Top = 48
Width = 97
Height = 17
Caption = 'Remove Group'
TabOrder = 2
OnClick = cbSBPopupMenuClick
end
object cbCustomize: TCheckBox
Tag = 3
Left = 13
Top = 64
Width = 73
Height = 17
Caption = 'Customize'
TabOrder = 3
OnClick = cbSBPopupMenuClick
end
object cbRenameGroup: TCheckBox
Tag = 4
Left = 13
Top = 80
Width = 93
Height = 17
Caption = 'Rename Group'
TabOrder = 4
OnClick = cbSBPopupMenuClick
end
object cbRenameItem: TCheckBox
Tag = 5
Left = 13
Top = 96
Width = 81
Height = 17
Caption = 'Rename Item'
TabOrder = 5
OnClick = cbSBPopupMenuClick
end
object cbRemoveItem: TCheckBox
Tag = 6
Left = 13
Top = 112
Width = 81
Height = 17
Caption = 'Remove Item'
TabOrder = 6
OnClick = cbSBPopupMenuClick
end
end
end
end
object btnClose: TButton
Left = 368
Top = 304
Width = 75
Height = 25
Cancel = True
Caption = 'Close'
TabOrder = 1
OnClick = btnCloseClick
end
object ColorDialog: TColorDialog
Ctl3D = True
Left = 10
Top = 34
end
object OpenPictureDialog: TOpenPictureDialog
Filter = 'Bitmaps (*.bmp)|*.bmp'
Left = 10
Top = 10
end
object FontDialog: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 68
Top = 20
end
end

116
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/EBarMegaDemoOptions.h Normal file
View File

@ -0,0 +1,116 @@
//---------------------------------------------------------------------------
#ifndef EBarMegaDemoOptionsH
#define EBarMegaDemoOptionsH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <ExtDlgs.hpp>
#include "CSPIN.h"
//---------------------------------------------------------------------------
class TEBarMegaDemoOptionsForm : public TForm
{
__published: // IDE-managed Components
TPageControl *pgOptions;
TTabSheet *tsBars;
TGroupBox *gbBackgroundSubMenu;
TImage *imSubMenuBackground;
TButton *btnBkSubMenuLoad;
TButton *btnBkSubMenuClear;
TGroupBox *gbBackgroundBars;
TImage *imBarsBackground;
TButton *btnBkBarsLoad;
TButton *btnBkBarsClear;
TRadioGroup *rgStyle;
TGroupBox *gbBarsMiscellaneous;
TSpeedButton *sbFont;
TLabel *lbFont;
TLabel *lbFontName;
TBevel *beMiscellaneous;
TCheckBox *cbUseF10ForMenu;
TCheckBox *cbCanCustomize;
TCheckBox *cbSunkenBorder;
TCheckBox *cbAllowReset;
TTabSheet *tsSideBar;
TGroupBox *gbBackgroundColor;
TLabel *lbBeginColor;
TLabel *lbEndColor;
TLabel *lbFillStyle;
TLabel *blStep;
TPanel *pBeginColor;
TPanel *pEndColor;
TComboBox *cbFillStyle;
TCSpinEdit *seStep;
TGroupBox *gbBackgroundPicture;
TImage *ImSideBarbkPicture;
TButton *btnLoad;
TButton *btnClear;
TGroupBox *gbFonts;
TBevel *beFonts;
TLabel *lbItemFontCaption;
TLabel *lbGroupFontCaption;
TLabel *lbGroupFont;
TLabel *lbItemFont;
TSpeedButton *spGroupFont;
TSpeedButton *spItemFont;
TGroupBox *gbStyle;
TLabel *Label7;
TLabel *Label8;
TComboBox *cbBorderStyle;
TComboBox *cbPaintStyle;
TGroupBox *gbMiscellaneous;
TCheckBox *cbCanSelected;
TCheckBox *cbShowGroups;
TGroupBox *gbSideBarPopupmenu;
TCheckBox *cbIconType;
TCheckBox *cbAddGroup;
TCheckBox *cbRemoveGroup;
TCheckBox *cbCustomize;
TCheckBox *cbRenameGroup;
TCheckBox *cbRenameItem;
TCheckBox *cbRemoveItem;
TButton *btnClose;
TColorDialog *ColorDialog;
TOpenPictureDialog *OpenPictureDialog;
TFontDialog *FontDialog;
void __fastcall pBeginColorClick(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall BitBtn2Click(TObject *Sender);
void __fastcall seStepChange(TObject *Sender);
void __fastcall SpeedButton1Click(TObject *Sender);
void __fastcall SpeedButton2Click(TObject *Sender);
void __fastcall rgStyleClick(TObject *Sender);
void __fastcall btnBkBarsLoadClick(TObject *Sender);
void __fastcall btnBkBarsClearClick(TObject *Sender);
void __fastcall btnBkSubMenuLoadClick(TObject *Sender);
void __fastcall btnBkSubMenuClearClick(TObject *Sender);
void __fastcall sbFontClick(TObject *Sender);
void __fastcall cbUseF10ForMenuClick(TObject *Sender);
void __fastcall cbCanCustomizeClick(TObject *Sender);
void __fastcall cbSunkenBorderClick(TObject *Sender);
void __fastcall cbAllowResetClick(TObject *Sender);
void __fastcall cbFillStyleChange(TObject *Sender);
void __fastcall cbSBPopupMenuClick(TObject *Sender);
void __fastcall spGroupFontClick(TObject *Sender);
void __fastcall spItemFontClick(TObject *Sender);
void __fastcall btnLoadClick(TObject *Sender);
void __fastcall cbShowGroupsClick(TObject *Sender);
void __fastcall cbCanSelectedClick(TObject *Sender);
void __fastcall cbPaintStyleChange(TObject *Sender);
void __fastcall cbBorderStyleChange(TObject *Sender);
void __fastcall btnCloseClick(TObject *Sender);
private: // User declarations
public: // User declarations
TFont *FontGroup;
TFont *FontItem;
__fastcall TEBarMegaDemoOptionsForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TEBarMegaDemoOptionsForm *EBarMegaDemoOptionsForm;
//---------------------------------------------------------------------------
#endif

554
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/ShDocVw_OCX_4.h Normal file
View File

@ -0,0 +1,554 @@
// ************************************************************************ //
// WARNING //
// ------- //
// The types declared in this file were generated from data read from a //
// Type Library. If this type library is explicitly or indirectly (via //
// another type library referring to this type library) re-imported, or the //
// 'Refresh' command of the Type Library Editor activated while editing the //
// Type Library, the contents of this file will be regenerated and all //
// manual modifications will be lost. //
// ************************************************************************ //
// C++ TLBWRTR : $Revision: 1.96.1.27 $
// File generated on 08.04.1999 11:45:01 from Type Library described below.
// ************************************************************************ //
// Type Lib: D:\WINNT\System32\SHDOCVW.DLL
// IID\LCID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\0
// Helpfile:
// DepndLst:
// (1) v2.0 stdole, (D:\WINNT\System32\STDOLE2.TLB)
// (2) v4.0 StdVCL, (D:\WINNT\System32\STDVCL40.DLL)
// ************************************************************************ //
#ifndef __SHDocVw_OCX_h__
#define __SHDocVw_OCX_h__
#pragma option push -b -w-inl
#include <vcl/utilcls.h>
#if !defined(__UTILCLS_H_VERSION) || (__UTILCLS_H_VERSION < 0x0101)
#error "This file requires an newer version of the header file UTILCLS.H"
#endif
#include <olectl.h>
#include <ocidl.h>
#if !defined(_NO_VCL) // For Console applications that don't use VCL
#include <vcl/stdvcl.hpp>
#endif // _NO_VCL
#include <vcl/ocxproxy.h>
#include "SHDocVw_TLB_4.h"
namespace Shdocvw_tlb
{
// *********************************************************************//
// HelpString: Microsoft Internet Controls
// Version: 1.1
// *********************************************************************//
// *********************************************************************//
// OCX PROXY CLASS DECLARATION
// Control Name : TWebBrowser_V1
// Help String : WebBrowser Control
// Default Interface: IWebBrowser
// Def. Intf. Object: TCOMIWebBrowser
// Def. Intf. DISP? : No
// Event Interface: DWebBrowserEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
// *********************************************************************//
// Definition of closures to allow VCL handlers to catch OCX events. //
// *********************************************************************//
typedef void __fastcall (__closure * TWebBrowser_V1BeforeNavigate)(System::TObject * Sender,
BSTR URL/*[in]*/, long Flags,
BSTR TargetFrameName,
void* PostData_which_is_really_a_Ptr_to_TVariant,
BSTR Headers,
void* Cancel_which_is_really_a_Ptr_to_TOLEBOOL);
typedef void __fastcall (__closure * TWebBrowser_V1NavigateComplete)(System::TObject * Sender,
BSTR URL/*[in]*/);
typedef void __fastcall (__closure * TWebBrowser_V1StatusTextChange)(System::TObject * Sender,
BSTR Text/*[in]*/);
typedef void __fastcall (__closure * TWebBrowser_V1ProgressChange)(System::TObject * Sender,
long Progress/*[in]*/,
long ProgressMax/*[in]*/);
typedef void __fastcall (__closure * TWebBrowser_V1CommandStateChange)(System::TObject * Sender,
long Command/*[in]*/,
TOLEBOOL Enable/*[in]*/);
typedef void __fastcall (__closure * TWebBrowser_V1NewWindow)(System::TObject * Sender,
BSTR URL/*[in]*/, long Flags/*[in]*/,
BSTR TargetFrameName/*[in]*/,
void* PostData_which_is_really_a_Ptr_to_TVariant,
BSTR Headers/*[in]*/,
void* Processed_which_is_really_a_Ptr_to_TOLEBOOL);
typedef void __fastcall (__closure * TWebBrowser_V1TitleChange)(System::TObject * Sender,
BSTR Text/*[in]*/);
typedef void __fastcall (__closure * TWebBrowser_V1FrameBeforeNavigate)(System::TObject * Sender,
BSTR URL/*[in]*/, long Flags,
BSTR TargetFrameName,
void* PostData_which_is_really_a_Ptr_to_TVariant,
BSTR Headers,
void* Cancel_which_is_really_a_Ptr_to_TOLEBOOL);
typedef void __fastcall (__closure * TWebBrowser_V1FrameNavigateComplete)(System::TObject * Sender,
BSTR URL/*[in]*/);
typedef void __fastcall (__closure * TWebBrowser_V1FrameNewWindow)(System::TObject * Sender,
BSTR URL/*[in]*/,
long Flags/*[in]*/,
BSTR TargetFrameName/*[in]*/,
void* PostData_which_is_really_a_Ptr_to_TVariant,
BSTR Headers/*[in]*/,
void* Processed_which_is_really_a_Ptr_to_TOLEBOOL);
typedef void __fastcall (__closure * TWebBrowser_V1Quit)(System::TObject * Sender,
void* Cancel_which_is_really_a_Ptr_to_TOLEBOOL);
typedef void __fastcall (__closure * TWebBrowser_V1PropertyChange)(System::TObject * Sender,
BSTR Property/*[in]*/);
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
// Proxy class to host WebBrowser Control in CBuilder IDE/Applications.
//-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
class PACKAGE TWebBrowser_V1 : public TOleControl
{
OVERLOADED_PROP_METHODS;
static TNoParam OptParam;
static GUID DEF_CTL_INTF;
// Instance of Closures to expose OCX Events as VCL ones
//
TWebBrowser_V1BeforeNavigate FOnBeforeNavigate;
TWebBrowser_V1NavigateComplete FOnNavigateComplete;
TWebBrowser_V1StatusTextChange FOnStatusTextChange;
TWebBrowser_V1ProgressChange FOnProgressChange;
TNotifyEvent FOnDownloadComplete;
TWebBrowser_V1CommandStateChange FOnCommandStateChange;
TNotifyEvent FOnDownloadBegin;
TWebBrowser_V1NewWindow FOnNewWindow;
TWebBrowser_V1TitleChange FOnTitleChange;
TWebBrowser_V1FrameBeforeNavigate FOnFrameBeforeNavigate;
TWebBrowser_V1FrameNavigateComplete FOnFrameNavigateComplete;
TWebBrowser_V1FrameNewWindow FOnFrameNewWindow;
TWebBrowser_V1Quit FOnQuit;
TNotifyEvent FOnWindowMove;
TNotifyEvent FOnWindowResize;
TNotifyEvent FOnWindowActivate;
TWebBrowser_V1PropertyChange FOnPropertyChange;
// Default Interace of OCX
//
TCOMIWebBrowser m_OCXIntf;
// VCL Property Getters/Setters which delegate to OCX
//
LPDISPATCH __fastcall Get_Application_(void);
LPDISPATCH __fastcall Get_Parent(void);
LPDISPATCH __fastcall Get_Container(void);
LPDISPATCH __fastcall Get_Document(void);
// Static variables used by all instances of OCX proxy
//
static int EventDispIDs[17];
static TControlData CControlData;
static GUID CTL_DEF_INTF;
// Method providing access to interface as __property
//
TCOMIWebBrowser __fastcall GetControlInterface(void);
protected:
void __fastcall CreateControl (void);
void __fastcall InitControlData(void);
public:
virtual __fastcall TWebBrowser_V1(TComponent* AOwner) : TOleControl(AOwner)
{};
virtual __fastcall TWebBrowser_V1(HWND Parent) : TOleControl(Parent)
{};
// OCX methods
//
void/*HR*/ __fastcall GoBack(void);
void/*HR*/ __fastcall GoForward(void);
void/*HR*/ __fastcall GoHome(void);
void/*HR*/ __fastcall GoSearch(void);
void/*HR*/ __fastcall Navigate(BSTR URL/*[in]*/, TVariant* Flags/*[in,opt]*/= TNoParam(),
TVariant* TargetFrameName/*[in,opt]*/= TNoParam(),
TVariant* PostData/*[in,opt]*/= TNoParam(),
TVariant* Headers/*[in,opt]*/= TNoParam());
void/*HR*/ __fastcall Refresh(void);
void/*HR*/ __fastcall Refresh2(TVariant* Level/*[in,opt]*/= TNoParam());
void/*HR*/ __fastcall Stop(void);
// OCX properties
//
__property _di_IDispatch Application_={ read=GetIDispatchProp, index=200 };
__property _di_IDispatch Parent={ read=GetIDispatchProp, index=201 };
__property _di_IDispatch Container={ read=GetIDispatchProp, index=202 };
__property _di_IDispatch Document={ read=GetIDispatchProp, index=203 };
__property bool TopLevelContainer={ read=GetWordBoolProp, index=204 };
__property System::WideString Type={ read=GetWideStringProp, index=205 };
__property System::WideString LocationName={ read=GetWideStringProp, index=210 };
__property System::WideString LocationURL={ read=GetWideStringProp, index=211 };
__property bool Busy={ read=GetWordBoolProp, index=212 };
__property TCOMIWebBrowser ControlInterface={ read=GetControlInterface };
// Published properties
//
__published:
// Standard/Extended properties
//
__property TabStop;
__property Align;
__property DragCursor;
__property DragMode;
__property ParentShowHint;
__property PopupMenu;
__property ShowHint;
__property TabOrder;
__property Visible;
__property OnDragDrop;
__property OnDragOver;
__property OnEndDrag;
__property OnEnter;
__property OnExit;
__property OnStartDrag;
// OCX properties
//
// OCX Events
//
__property TWebBrowser_V1BeforeNavigate OnBeforeNavigate={ read=FOnBeforeNavigate, write=FOnBeforeNavigate };
__property TWebBrowser_V1NavigateComplete OnNavigateComplete={ read=FOnNavigateComplete, write=FOnNavigateComplete };
__property TWebBrowser_V1StatusTextChange OnStatusTextChange={ read=FOnStatusTextChange, write=FOnStatusTextChange };
__property TWebBrowser_V1ProgressChange OnProgressChange={ read=FOnProgressChange, write=FOnProgressChange };
__property TNotifyEvent OnDownloadComplete={ read=FOnDownloadComplete, write=FOnDownloadComplete };
__property TWebBrowser_V1CommandStateChange OnCommandStateChange={ read=FOnCommandStateChange, write=FOnCommandStateChange };
__property TNotifyEvent OnDownloadBegin={ read=FOnDownloadBegin, write=FOnDownloadBegin };
__property TWebBrowser_V1NewWindow OnNewWindow={ read=FOnNewWindow, write=FOnNewWindow };
__property TWebBrowser_V1TitleChange OnTitleChange={ read=FOnTitleChange, write=FOnTitleChange };
__property TWebBrowser_V1FrameBeforeNavigate OnFrameBeforeNavigate={ read=FOnFrameBeforeNavigate, write=FOnFrameBeforeNavigate };
__property TWebBrowser_V1FrameNavigateComplete OnFrameNavigateComplete={ read=FOnFrameNavigateComplete, write=FOnFrameNavigateComplete };
__property TWebBrowser_V1FrameNewWindow OnFrameNewWindow={ read=FOnFrameNewWindow, write=FOnFrameNewWindow };
__property TWebBrowser_V1Quit OnQuit={ read=FOnQuit, write=FOnQuit };
__property TNotifyEvent OnWindowMove={ read=FOnWindowMove, write=FOnWindowMove };
__property TNotifyEvent OnWindowResize={ read=FOnWindowResize, write=FOnWindowResize };
__property TNotifyEvent OnWindowActivate={ read=FOnWindowActivate, write=FOnWindowActivate };
__property TWebBrowser_V1PropertyChange OnPropertyChange={ read=FOnPropertyChange, write=FOnPropertyChange };
};
typedef TWebBrowser_V1 TWebBrowser_V1Proxy;
// *********************************************************************//
// OCX PROXY CLASS DECLARATION
// Control Name : TWebBrowser
// Help String : WebBrowser Control
// Default Interface: IWebBrowser2
// Def. Intf. Object: IWebBrowser2Disp
// Def. Intf. DISP? : No
// Event Interface: DWebBrowserEvents2
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
// *********************************************************************//
// Definition of closures to allow VCL handlers to catch OCX events. //
// *********************************************************************//
typedef void __fastcall (__closure * TWebBrowserStatusTextChange)(System::TObject * Sender,
BSTR Text/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserProgressChange)(System::TObject * Sender,
long Progress/*[in]*/,
long ProgressMax/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserCommandStateChange)(System::TObject * Sender,
long Command/*[in]*/,
TOLEBOOL Enable/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserTitleChange)(System::TObject * Sender,
BSTR Text/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserPropertyChange)(System::TObject * Sender,
BSTR szProperty/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserBeforeNavigate2)(System::TObject * Sender,
LPDISPATCH pDisp/*[in]*/,
void* URL_which_is_really_a_Ptr_to_TVariant,
void* Flags_which_is_really_a_Ptr_to_TVariant,
void* TargetFrameName_which_is_really_a_Ptr_to_TVariant,
void* PostData_which_is_really_a_Ptr_to_TVariant,
void* Headers_which_is_really_a_Ptr_to_TVariant,
void* Cancel_which_is_really_a_Ptr_to_TOLEBOOL);
typedef void __fastcall (__closure * TWebBrowserNewWindow2)(System::TObject * Sender,
void* ppDisp_which_is_really_a_Ptr_to_LPDISPATCH,
void* Cancel_which_is_really_a_Ptr_to_TOLEBOOL);
typedef void __fastcall (__closure * TWebBrowserNavigateComplete2)(System::TObject * Sender,
LPDISPATCH pDisp/*[in]*/,
void* URL_which_is_really_a_Ptr_to_TVariant);
typedef void __fastcall (__closure * TWebBrowserDocumentComplete)(System::TObject * Sender,
LPDISPATCH pDisp/*[in]*/,
void* URL_which_is_really_a_Ptr_to_TVariant);
typedef void __fastcall (__closure * TWebBrowserOnVisible)(System::TObject * Sender,
TOLEBOOL Visible/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserOnToolBar)(System::TObject * Sender,
TOLEBOOL ToolBar/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserOnMenuBar)(System::TObject * Sender,
TOLEBOOL MenuBar/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserOnStatusBar)(System::TObject * Sender,
TOLEBOOL StatusBar/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserOnFullScreen)(System::TObject * Sender,
TOLEBOOL FullScreen/*[in]*/);
typedef void __fastcall (__closure * TWebBrowserOnTheaterMode)(System::TObject * Sender,
TOLEBOOL TheaterMode/*[in]*/);
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
// Proxy class to host WebBrowser Control in CBuilder IDE/Applications.
//-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
class PACKAGE TWebBrowser : public TOleControl
{
OVERLOADED_PROP_METHODS;
static TNoParam OptParam;
static GUID DEF_CTL_INTF;
// Instance of Closures to expose OCX Events as VCL ones
//
TWebBrowserStatusTextChange FOnStatusTextChange;
TWebBrowserProgressChange FOnProgressChange;
TWebBrowserCommandStateChange FOnCommandStateChange;
TNotifyEvent FOnDownloadBegin;
TNotifyEvent FOnDownloadComplete;
TWebBrowserTitleChange FOnTitleChange;
TWebBrowserPropertyChange FOnPropertyChange;
TWebBrowserBeforeNavigate2 FOnBeforeNavigate2;
TWebBrowserNewWindow2 FOnNewWindow2;
TWebBrowserNavigateComplete2 FOnNavigateComplete2;
TWebBrowserDocumentComplete FOnDocumentComplete;
TNotifyEvent FOnQuit;
TWebBrowserOnVisible FOnVisible;
TWebBrowserOnToolBar FOnToolBar;
TWebBrowserOnMenuBar FOnMenuBar;
TWebBrowserOnStatusBar FOnStatusBar;
TWebBrowserOnFullScreen FOnFullScreen;
TWebBrowserOnTheaterMode FOnTheaterMode;
// Default Interace of OCX
//
IWebBrowser2Disp m_OCXIntf;
// VCL Property Getters/Setters which delegate to OCX
//
LPDISPATCH __fastcall Get_Application_(void);
LPDISPATCH __fastcall Get_Parent(void);
LPDISPATCH __fastcall Get_Container(void);
LPDISPATCH __fastcall Get_Document(void);
// Static variables used by all instances of OCX proxy
//
static int EventDispIDs[18];
static TControlData CControlData;
static GUID CTL_DEF_INTF;
// Method providing access to interface as __property
//
IWebBrowser2Disp __fastcall GetControlInterface(void);
protected:
void __fastcall CreateControl (void);
void __fastcall InitControlData(void);
public:
virtual __fastcall TWebBrowser(TComponent* AOwner) : TOleControl(AOwner)
{};
virtual __fastcall TWebBrowser(HWND Parent) : TOleControl(Parent)
{};
// OCX methods
//
void/*HR*/ __fastcall GoBack(void);
void/*HR*/ __fastcall GoForward(void);
void/*HR*/ __fastcall GoHome(void);
void/*HR*/ __fastcall GoSearch(void);
void/*HR*/ __fastcall Navigate(BSTR URL/*[in]*/, TVariant* Flags/*[in,opt]*/= TNoParam(),
TVariant* TargetFrameName/*[in,opt]*/= TNoParam(),
TVariant* PostData/*[in,opt]*/= TNoParam(),
TVariant* Headers/*[in,opt]*/= TNoParam());
void/*HR*/ __fastcall Refresh(void);
void/*HR*/ __fastcall Refresh2(TVariant* Level/*[in,opt]*/= TNoParam());
void/*HR*/ __fastcall Stop(void);
void/*HR*/ __fastcall Quit(void);
void/*HR*/ __fastcall ClientToWindow(int* pcx/*[in,out]*/, int* pcy/*[in,out]*/);
void/*HR*/ __fastcall PutProperty(BSTR Property/*[in]*/, TVariant vtValue/*[in]*/);
TVariant __fastcall GetProperty(BSTR Property/*[in]*/);
void/*HR*/ __fastcall Navigate2(TVariant* URL/*[in]*/,
TVariant* Flags/*[in,opt]*/= TNoParam(),
TVariant* TargetFrameName/*[in,opt]*/= TNoParam(),
TVariant* PostData/*[in,opt]*/= TNoParam(),
TVariant* Headers/*[in,opt]*/= TNoParam());
Shdocvw_tlb::OLECMDF __fastcall QueryStatusWB(Shdocvw_tlb::OLECMDID cmdID/*[in]*/);
void/*HR*/ __fastcall ExecWB(Shdocvw_tlb::OLECMDID cmdID/*[in]*/,
Shdocvw_tlb::OLECMDEXECOPT cmdexecopt/*[in]*/,
TVariant* pvaIn/*[in,opt]*/= TNoParam(),
TVariant* pvaOut/*[in,out,opt]*/= TNoParam());
void/*HR*/ __fastcall ShowBrowserBar(TVariant* pvaClsid/*[in]*/,
TVariant* pvarShow/*[in,opt]*/= TNoParam(),
TVariant* pvarSize/*[in,opt]*/= TNoParam());
// OCX properties
//
__property _di_IDispatch Application_={ read=GetIDispatchProp, index=200 };
__property _di_IDispatch Parent={ read=GetIDispatchProp, index=201 };
__property _di_IDispatch Container={ read=GetIDispatchProp, index=202 };
__property _di_IDispatch Document={ read=GetIDispatchProp, index=203 };
__property bool TopLevelContainer={ read=GetWordBoolProp, index=204 };
__property System::WideString Type={ read=GetWideStringProp, index=205 };
__property System::WideString LocationName={ read=GetWideStringProp, index=210 };
__property System::WideString LocationURL={ read=GetWideStringProp, index=211 };
__property bool Busy={ read=GetWordBoolProp, index=212 };
__property System::WideString Name={ read=GetWideStringProp, index=0 };
__property int HWND={ read=GetIntegerProp, index=-515 };
__property System::WideString FullName={ read=GetWideStringProp, index=400 };
__property System::WideString Path={ read=GetWideStringProp, index=401 };
__property TOleEnum ReadyState={ read=GetTOleEnumProp, index=-525 };
__property IWebBrowser2Disp ControlInterface={ read=GetControlInterface };
// Published properties
//
__published:
// Standard/Extended properties
//
__property TabStop;
__property Align;
__property DragCursor;
__property DragMode;
__property ParentShowHint;
__property PopupMenu;
__property ShowHint;
__property TabOrder;
__property OnDragDrop;
__property OnDragOver;
__property OnEndDrag;
__property OnEnter;
__property OnExit;
__property OnStartDrag;
// OCX properties
//
__property bool Visible={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=402 };
__property bool StatusBar={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=403 };
__property System::WideString StatusText={ read=GetWideStringProp, write=SetWideStringProp, stored=false, index=404 };
__property int ToolBar={ read=GetIntegerProp, write=SetIntegerProp, stored=false, index=405 };
__property bool MenuBar={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=406 };
__property bool FullScreen={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=407 };
__property bool Offline={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=550 };
__property bool Silent={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=551 };
__property bool RegisterAsBrowser={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=552 };
__property bool RegisterAsDropTarget={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=553 };
__property bool TheaterMode={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=554 };
__property bool AddressBar={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=555 };
__property bool Resizable={ read=GetWordBoolProp, write=SetWordBoolProp, stored=false, index=556 };
// OCX Events
//
__property TWebBrowserStatusTextChange OnStatusTextChange={ read=FOnStatusTextChange, write=FOnStatusTextChange };
__property TWebBrowserProgressChange OnProgressChange={ read=FOnProgressChange, write=FOnProgressChange };
__property TWebBrowserCommandStateChange OnCommandStateChange={ read=FOnCommandStateChange, write=FOnCommandStateChange };
__property TNotifyEvent OnDownloadBegin={ read=FOnDownloadBegin, write=FOnDownloadBegin };
__property TNotifyEvent OnDownloadComplete={ read=FOnDownloadComplete, write=FOnDownloadComplete };
__property TWebBrowserTitleChange OnTitleChange={ read=FOnTitleChange, write=FOnTitleChange };
__property TWebBrowserPropertyChange OnPropertyChange={ read=FOnPropertyChange, write=FOnPropertyChange };
__property TWebBrowserBeforeNavigate2 OnBeforeNavigate2={ read=FOnBeforeNavigate2, write=FOnBeforeNavigate2 };
__property TWebBrowserNewWindow2 OnNewWindow2={ read=FOnNewWindow2, write=FOnNewWindow2 };
__property TWebBrowserNavigateComplete2 OnNavigateComplete2={ read=FOnNavigateComplete2, write=FOnNavigateComplete2 };
__property TWebBrowserDocumentComplete OnDocumentComplete={ read=FOnDocumentComplete, write=FOnDocumentComplete };
__property TNotifyEvent OnQuit={ read=FOnQuit, write=FOnQuit };
__property TWebBrowserOnVisible OnVisible={ read=FOnVisible, write=FOnVisible };
__property TWebBrowserOnToolBar OnToolBar={ read=FOnToolBar, write=FOnToolBar };
__property TWebBrowserOnMenuBar OnMenuBar={ read=FOnMenuBar, write=FOnMenuBar };
__property TWebBrowserOnStatusBar OnStatusBar={ read=FOnStatusBar, write=FOnStatusBar };
__property TWebBrowserOnFullScreen OnFullScreen={ read=FOnFullScreen, write=FOnFullScreen };
__property TWebBrowserOnTheaterMode OnTheaterMode={ read=FOnTheaterMode, write=FOnTheaterMode };
};
typedef TWebBrowser TWebBrowserProxy;
// *********************************************************************//
// OCX PROXY CLASS DECLARATION
// Control Name : TShellFolderViewOC
// Help String : Shell Folder View Events Router.
// Default Interface: IFolderViewOC
// Def. Intf. Object: TCOMIFolderViewOC
// Def. Intf. DISP? : No
// Event Interface: DShellFolderViewEvents
// TypeFlags : (18) CanCreate Hidden
// *********************************************************************//
// *********************************************************************//
// Definition of closures to allow VCL handlers to catch OCX events. //
// *********************************************************************//
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
// Proxy class to host Shell Folder View Events Router. in CBuilder IDE/Applications.
//-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
class PACKAGE TShellFolderViewOC : public TOleControl
{
OVERLOADED_PROP_METHODS;
static TNoParam OptParam;
static GUID DEF_CTL_INTF;
// Instance of Closures to expose OCX Events as VCL ones
//
TNotifyEvent FOnSelectionChanged;
// Default Interace of OCX
//
TCOMIFolderViewOC m_OCXIntf;
// VCL Property Getters/Setters which delegate to OCX
//
// Static variables used by all instances of OCX proxy
//
static int EventDispIDs[1];
static TControlData CControlData;
static GUID CTL_DEF_INTF;
// Method providing access to interface as __property
//
TCOMIFolderViewOC __fastcall GetControlInterface(void);
protected:
void __fastcall CreateControl (void);
void __fastcall InitControlData(void);
public:
virtual __fastcall TShellFolderViewOC(TComponent* AOwner) : TOleControl(AOwner)
{};
virtual __fastcall TShellFolderViewOC(HWND Parent) : TOleControl(Parent)
{};
// OCX methods
//
void/*HR*/ __fastcall SetFolderView(LPDISPATCH pDisp/*[in]*/);
// OCX properties
//
__property TCOMIFolderViewOC ControlInterface={ read=GetControlInterface };
// Published properties
//
__published:
// Standard/Extended properties
//
// OCX properties
//
// OCX Events
//
__property TNotifyEvent OnSelectionChanged={ read=FOnSelectionChanged, write=FOnSelectionChanged };
};
typedef TShellFolderViewOC TShellFolderViewOCProxy;
}; // namespace Shdocvw_tlb
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Shdocvw_tlb;
#endif
#pragma option pop
#endif // __SHDocVw_OCX_h__

BIN
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/ShDocVw_OCX_4.obj Normal file
View File

Binary file not shown.

9159
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/ShDocVw_TLB_4.h Normal file
View File

File diff suppressed because it is too large Load Diff

21
official/.26/ExpressBars 6/Demos/CBuilder/EBarMegaDemo/lipsum.rtf Normal file
View File

@ -0,0 +1,21 @@
{\rtf1\ansi\ansicpg1252\uc1 \deff0\deflang1033\deflangfe1033{\fonttbl{\f0\froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f11\fswiss\fcharset0\fprq2{\*\panose 00000000000000000000}MS Sans Serif{\*\falt Arial};}
{\f27\fswiss\fcharset204\fprq2{\*\panose 020b0604030504040204}Tahoma;}{\f28\fswiss\fcharset204\fprq2{\*\panose 020b0a04020102020204}Arial Black;}{\f69\froman\fcharset0\fprq2 Times New Roman;}{\f67\froman\fcharset238\fprq2 Times New Roman CE;}
{\f70\froman\fcharset161\fprq2 Times New Roman Greek;}{\f71\froman\fcharset162\fprq2 Times New Roman Tur;}{\f72\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f73\froman\fcharset178\fprq2 Times New Roman (Arabic);}
{\f74\froman\fcharset186\fprq2 Times New Roman Baltic;}{\f285\fswiss\fcharset0\fprq2 Tahoma;}{\f283\fswiss\fcharset238\fprq2 Tahoma CE;}{\f286\fswiss\fcharset161\fprq2 Tahoma Greek;}{\f287\fswiss\fcharset162\fprq2 Tahoma Tur;}
{\f288\fswiss\fcharset177\fprq2 Tahoma (Hebrew);}{\f289\fswiss\fcharset178\fprq2 Tahoma (Arabic);}{\f290\fswiss\fcharset186\fprq2 Tahoma Baltic;}{\f293\fswiss\fcharset0\fprq2 Arial Black;}{\f291\fswiss\fcharset238\fprq2 Arial Black CE;}
{\f294\fswiss\fcharset161\fprq2 Arial Black Greek;}{\f295\fswiss\fcharset162\fprq2 Arial Black Tur;}{\f298\fswiss\fcharset186\fprq2 Arial Black Baltic;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;
\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;
\red192\green192\blue192;\red220\green20\blue60;\red72\green61\blue139;\red75\green0\blue130;\red47\green79\blue79;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0
\fs24\lang2057\langfe1033\cgrid\langnp2057\langfenp1033 \snext0 Normal;}{\*\cs10 \additive Default Paragraph Font;}}{\info{\title Lorem ipsum}{\author Mike Orriss}{\operator -}{\creatim\yr2003\mo4\dy1\hr19\min41}{\revtim\yr2003\mo4\dy1\hr19\min41}
{\version2}{\edmins180}{\nofpages1}{\nofwords50}{\nofchars289}{\*\company 3K Computer Consultancy}{\nofcharsws0}{\vern8269}}\margl1701\margr850\margt1134\margb1134
\widowctrl\ftnbj\aenddoc\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\hyphcaps0\horzdoc\dghspace120\dgvspace120\dghorigin1701\dgvorigin1984\dghshow0\dgvshow3\jcompress\viewkind4\viewscale100\nolnhtadjtbl \fet0\sectd \linex0\sectdefaultcl
{\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang{\pntxta )}}{\*\pnseclvl5
\pndec\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang
{\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}\pard\plain \ql \li0\ri0\sb100\sa100\nowidctlpar\faauto\rin0\lin0\itap0 \fs24\lang2057\langfe1033\cgrid\langnp2057\langfenp1033 {
\b\f28\ul\lang1033\langfe1033\langnp1033 Lorem ipsum}{\f27\lang1033\langfe1033\langnp1033
\par Lorem ipsum dolor sit }{\f27\cf17\lang1033\langfe1033\langnp1033 amet}{\f27\lang1033\langfe1033\langnp1033 , consectetaur adipisicing }{\f27\cf17\lang1033\langfe1033\langnp1033 elit}{\f27\lang1033\langfe1033\langnp1033
, sed do eiusmod tempor incididunt ut labore et dolore magna }{\f27\cf18\lang1033\langfe1033\langnp1033 aliqua}{\f27\lang1033\langfe1033\langnp1033 .
\par Ut enim ad minim }{\i\f27\lang1033\langfe1033\langnp1033 veniam}{\f27\lang1033\langfe1033\langnp1033 , quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo }{\f27\cf19\lang1033\langfe1033\langnp1033 consequat}{
\f27\lang1033\langfe1033\langnp1033 .
\par }{\f11\cf20\lang1033\langfe1033\langnp1033 Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur.
\par }}

27
official/.26/ExpressBars 6/Demos/CBuilder/ESBarDemo/ESBarDemo.cpp Normal file
View File

@ -0,0 +1,27 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("ESBarDemo.res");
USEFORM("ESBarDemoAbout.cpp", ESBarDemoAboutForm);
USEFORM("ESBarDemoMain.cpp", ESBarDemoMainForm);
USEFORM("..\Common\EBarsAbout.cpp", EBarsAboutForm);
USEFORM("..\Common\EBarsDemoRating.cpp", EBarsDemoRatingForm);
USEFORM("..\Common\EBarsUtils.cpp", dmCommonData);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->Title = "ExpressBars6 SideBar Demo";
Application->CreateForm(__classid(TdmCommonData), &dmCommonData);
Application->CreateForm(__classid(TESBarDemoMainForm), &ESBarDemoMainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
official/.26/ExpressBars 6/Demos/CBuilder/ESBarDemo/ESBarDemo.res Normal file
View File

Binary file not shown.

16
official/.26/ExpressBars 6/Demos/CBuilder/ESBarDemo/ESBarDemoAbout.cpp Normal file
View File

@ -0,0 +1,16 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ESBarDemoAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TESBarDemoAboutForm *ESBarDemoAboutForm;
//---------------------------------------------------------------------------
__fastcall TESBarDemoAboutForm::TESBarDemoAboutForm(TComponent* Owner)
: TEBarsAboutForm(Owner)
{
}
//---------------------------------------------------------------------------

27
official/.26/ExpressBars 6/Demos/CBuilder/ESBarDemo/ESBarDemoAbout.dfm Normal file
View File

@ -0,0 +1,27 @@
inherited ESBarDemoAboutForm: TESBarDemoAboutForm
ClientWidth = 293
PixelsPerInch = 96
TextHeight = 13
inherited lbDemoName: TLabel
Width = 86
Caption = 'ESBarDemo'
end
inherited reDemoInfo: TRichEdit
Width = 157
Lines.Strings = (
'This is the SideBar feature '
'demo.'
''
'Experiment with adding, '
'deleting and renaming groups.'
''
'Drag a tree node into the '
'SideBar to add an item into a '
'group.'
''
'Try different SideBar paint '
'styles - Flat, Standard, W2k '
'and XP'
'')
end
end

25
official/.26/ExpressBars 6/Demos/CBuilder/ESBarDemo/ESBarDemoAbout.h Normal file
View File

@ -0,0 +1,25 @@
//---------------------------------------------------------------------------
#ifndef ESBarDemoAboutH
#define ESBarDemoAboutH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include "EBarsAbout.h"
//---------------------------------------------------------------------------
class TESBarDemoAboutForm : public TEBarsAboutForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TESBarDemoAboutForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TESBarDemoAboutForm *ESBarDemoAboutForm;
//---------------------------------------------------------------------------
#endif

73
official/.26/ExpressBars 6/Demos/CBuilder/ESBarDemo/ESBarDemoC10.bdsproj Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">CPlusPlusBuilder.Personality</Option>
<Option Name="ProjectType">CppVCLApplication</Option>
</Option>
</PersonalityInfo>
<CPlusPlusBuilder.Personality>
<BCBPROJECT>
<project version="10.0">
<property category="build.config" name="excludedefaultforzero" value="0"/>
<property category="build.config.0" name="settings.win32b" value="default"/>
<property category="build.node" name="name" value="ESBarDemo.exe"/>
<property category="build.node" name="sparelibs" value="vcl.lib rtl.lib vcldb.lib dbrtl.lib bdertl.lib adortl.lib VCLX.lib dxcomnc10.lib dxthemec10.lib cxlibraryc10.lib dxbarc10.lib dxbarextitemsc10.lib dxbarextdbitemsc10.lib dxbardbnavc10.lib dxsbc10.lib dxdockingc10.lib "/>
<property category="build.platform" name="active" value="win32"/>
<property category="build.platform" name="win32.default" value="win32b"/>
<property category="build.platform" name="win32.enabled" value="1"/>
<property category="build.platform" name="win32.win32b.enabled" value="1"/>
<optionset name="all_configurations">
<property category="node" name="displayname" value="All Configurations"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.1" value="$(SYSDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.2" value="$(USERDEFINES)"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.3" value="NO_WIN32_LEAN_AND_MEAN"/>
<property category="win32.*.win32b.bcc32" name="option.D.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.D.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.1" value="$(BCB)\lib\vcl100.csm"/>
<property category="win32.*.win32b.bcc32" name="option.H=.arg.merge" value="0"/>
<property category="win32.*.win32b.bcc32" name="option.H=.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.Hc.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.1" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.2" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.3" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.4" value="$(BCB)\include"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.5" value="$(BCB)\include\vcl"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.6" value="..\Common"/>
<property category="win32.*.win32b.bcc32" name="option.I.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.I.enabled" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.1" value="_RTLDLL"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.2" value="NO_STRICT"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.arg.merge" value="1"/>
<property category="win32.*.win32b.bcc32" name="option.sysdefines.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.1" value="$(BCB)\lib\release"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.2" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.3" value="$(BCB)\lib\obj"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.4" value="$(BCB)\lib"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.5" value="..\..\..\..\Library\CBuilder10"/>
<property category="win32.*.win32b.ilink32" name="option.L.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.L.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.aa.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.1" value="..\Common"/>
<property category="win32.*.win32b.ilink32" name="option.j.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.j.enabled" value="0"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.1" value="."/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.arg.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="option.outputdir.enabled" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.1" value="$(LIBRARIES)"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.2" value="import32.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.3" value="cp32mt.lib"/>
<property category="win32.*.win32b.ilink32" name="param.libfiles.merge" value="1"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.1" value="c0w32.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.2" value="Memmgr.Lib"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.3" value="$(PACKAGES)"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.4" value="sysinit.obj"/>
<property category="win32.*.win32b.ilink32" name="param.objfiles.merge" value="1"/>
</optionset>
</project>
</BCBPROJECT>
<Source>
<Source Name="MainSource">ESBarDemo.cpp</Source>
</Source>
</CPlusPlusBuilder.Personality>
</BorlandProject>

Some files were not shown because too many files have changed in this diff Show More