//--------------------------------------------------------------------------- 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(); } }