C++ (Cpp) TDataSet::First Examples

Example #1

File: RealtorWorldHomePhotosBase.cpp Project: chinnyannieb/Meus-Projetos

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