//---------------------------------------------------------------------------
void __fastcall TFormSummaryRep::AddCurrentRow(GridData& GData,int Mul, bool Show, bool Clear)
{
// bool Selected;
TDataSet* DSet = GData.WrkDSet;
if (Clear) {
ClearSums(PageTag);
}
else {
int ID;
TDBGridColumnsEh* Columns;
switch (PageTag) {
case 1: Columns = DBGridEh1->Columns;
for (int i = 1; i < 14; i++) {
Sum1[i] += Mul * DSet->FieldByName(Columns->Items[i]->FieldName)->AsFloat;
}
break;
case 2: Columns = DBGridEh2->Columns;
for (int i = 2; i < 41; i++) {
Sum2[i] += Mul * DSet->FieldByName(Columns->Items[i]->FieldName)->AsInteger;
}
break;
}
if (Show) ShowHighFooter(GData.WrkDSet);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormClientRep::AddCurrentRow(GridData& GData,int Mul, bool Show, bool Clear)
{
// bool Selected;
TDataSet* DSet = GData.WrkDSet;
if (Clear) {
ClearSums();
if (PageTag == 4) {
// DrawMap.clear();
}
}
else {
int ID;
switch (PageTag) {
case 3: SumPayCalc += Mul*DSet->FieldByName("PAY_CALC")->AsInteger;
SumPayRes += Mul*DSet->FieldByName("PAY_RES")->AsInteger;
SumPayAvc += Mul*DSet->FieldByName("PAY_AVC")->AsInteger;
SumPayRest += Mul*DSet->FieldByName("PAY_REST")->AsInteger;
break;
}
if (Show) ShowHighFooter(GData.WrkDSet);
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmHomePhotosBase::InitializeFrame()
{
TDataSet* dsHomes;
TdxTileControlItem* AItem;
TFormatSettings AFmtSettings;
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, AFmtSettings);
tcHomePhotos->BeginUpdate();
__try
{
dsHomes = DMRealtorWorld->clHomesAndHomes;
dsHomes->First();
while (!dsHomes->Eof)
{
AItem = tcHomePhotos->CreateItem(true);
AItem->Glyph->Image->LoadFromFieldValue(dsHomes->FieldByName("Photo")->Value);
AItem->Glyph->Mode = ifmStretch;
AItem->Text2->Value = " " + dsHomes->FieldByName("Beds")->AsString + " Beds" + "\n" + " " + dsHomes->FieldByName("Baths")->AsString + " Baths ";
AItem->Text2->IndentHorz = 0;
AItem->Text2->Font->Size = 13;
AItem->Text2->IndentVert = 0;
AItem->Text2->Transparent = false;
AItem->Text3->Value = " " + FloatToStrF(dsHomes->FieldByName("Price")->AsFloat, ffCurrency, 10, 0, AFmtSettings) + " ";
AItem->Text3->IndentHorz = 0;
AItem->Text3->IndentVert = 0;
AItem->Text3->Font->Size = 13;
AItem->Text3->Transparent = false;
AItem->Tag = dsHomes->FieldByName("ID")->AsInteger;
AItem->OnClick = OnItemClick;
dsHomes->Next();
}
}
__finally
{
tcHomePhotos->EndUpdate();
}
}
