david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
147 lines
4.4 KiB
C++
147 lines
4.4 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#include "shellapi.hpp"
|
|
#pragma hdrstop
|
|
|
|
#include "UnboundSimpleDemoMain.h"
|
|
#include "AboutDemoForm.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "cxClasses"
|
|
#pragma link "cxControls"
|
|
#pragma link "cxCustomData"
|
|
#pragma link "cxData"
|
|
#pragma link "cxDBData"
|
|
#pragma link "cxEdit"
|
|
#pragma link "cxFilter"
|
|
#pragma link "cxGraphics"
|
|
#pragma link "cxGrid"
|
|
#pragma link "cxGridCustomTableView"
|
|
#pragma link "cxGridCustomView"
|
|
#pragma link "cxGridDBTableView"
|
|
#pragma link "cxGridLevel"
|
|
#pragma link "cxGridTableView"
|
|
#pragma link "cxStyles"
|
|
#pragma link "cxEditRepositoryItems"
|
|
#pragma link "cxLookAndFeels"
|
|
#pragma resource "*.dfm"
|
|
TUnboundSimpleDemoMainForm *UnboundSimpleDemoMainForm;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TUnboundSimpleDemoMainForm::TUnboundSimpleDemoMainForm(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TUnboundSimpleDemoMainForm::miAboutClick(TObject *Sender)
|
|
{
|
|
ShowAboutDemoForm();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TUnboundSimpleDemoMainForm::miExitClick(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TUnboundSimpleDemoMainForm::CustomizeColumns()
|
|
{
|
|
const cDistance = 3;
|
|
const cPeriod = 4;
|
|
const cRadius = 7;
|
|
DecimalSeparator = '.';
|
|
for(int i=0; i < tvPlanets->ColumnCount; i++)
|
|
if((i == cDistance) || (i == cRadius))
|
|
tvPlanets->Columns[i]->DataBinding->ValueTypeClass = __classid(TcxIntegerValueType);
|
|
else
|
|
if (i == cPeriod)
|
|
tvPlanets->Columns[i]->DataBinding->ValueTypeClass = __classid(TcxFloatValueType);
|
|
else
|
|
tvPlanets->Columns[i]->DataBinding->ValueTypeClass = __classid(TcxStringValueType);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TUnboundSimpleDemoMainForm::InitRecord(String const Str, int AInt, TStringList* AValues)
|
|
{
|
|
Variant V;
|
|
#if __BORLANDC__ < 0x560
|
|
Extended E;
|
|
#endif
|
|
AValues->CommaText = Str;
|
|
for(int j = 0; j < AValues->Count; j++)
|
|
if(AValues->Strings[j] != "-") {
|
|
V = AValues->Strings[j];
|
|
if(!VarIsNull(V)) {
|
|
#if __BORLANDC__ < 0x560
|
|
if(AnsiPos(DecimalSeparator, V) != 0) {
|
|
if(TextToFloat(AValues->Strings[j].c_str(), &E, fvExtended))
|
|
tvPlanets->DataController->Values[AInt][j] = E;
|
|
else
|
|
tvPlanets->DataController->Values[AInt][j] = V;
|
|
}
|
|
else
|
|
#endif
|
|
tvPlanets->DataController->Values[AInt][j] = V;
|
|
}
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TUnboundSimpleDemoMainForm::LoadData()
|
|
{
|
|
const String AFileName = "nineplanets.txt";
|
|
const int AHeaderLineCount = 2;
|
|
|
|
if (!FileExists(AFileName))
|
|
throw Exception("Data file not found");
|
|
|
|
TStringList* ARecords = new TStringList();
|
|
try {
|
|
TStringList* AValues = new TStringList();
|
|
try {
|
|
tvPlanets->BeginUpdate();
|
|
try {
|
|
ARecords->LoadFromFile(AFileName);
|
|
tvPlanets->DataController->RecordCount = ARecords->Count - AHeaderLineCount;
|
|
for (int i=0; i < ARecords->Count - (AHeaderLineCount + 1) + 1; i++)
|
|
InitRecord(ARecords->Strings[i + AHeaderLineCount], i, AValues);
|
|
}
|
|
__finally {
|
|
tvPlanets->EndUpdate();
|
|
}
|
|
}
|
|
__finally {
|
|
delete AValues;
|
|
}
|
|
}
|
|
__finally {
|
|
delete ARecords;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TUnboundSimpleDemoMainForm::SetFilter()
|
|
{
|
|
tvPlanets->DataController->Filter->AddItem(NULL, tvPlanetsORBITS, foEqual, "Sun", "Sun");
|
|
tvPlanets->DataController->Filter->Active = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TUnboundSimpleDemoMainForm::FormCreate(TObject *Sender)
|
|
{
|
|
tvPlanets->BeginUpdate();
|
|
try{
|
|
CustomizeColumns();
|
|
LoadData();
|
|
SetFilter();
|
|
}
|
|
__finally{
|
|
tvPlanets->EndUpdate();
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|