TListView info

By | January 16, 2011
0 Comment

This info is C orientated but you can figure it out!

  1. Start a new application with its default form
  2. From the Win32 tab of the Component Palette, double-click the ListView control.
  3. Change the Height of the ListView1 control to 200 and its Width to 350
  4. Double-click an empty area on the form and implement the OnCreate event of the form as form.
  5. At the end of the existing content of the event but before the closing bracket, type:
    //---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TListColumn *ListCol;
    TListItem *ListIt;

    ListCol = ListView1->Columns->Add();
    ListCol->Caption = "Country";
    ListCol->Width = 95;

    ListCol = ListView1->Columns->Add();
    ListCol->Caption = "Area (Km2)";
    ListCol->Width = 70;
    ListCol->Alignment = taRightJustify;

    ListCol = ListView1->Columns->Add();
    ListCol->Caption = "Population (M)";
    ListCol->Width = 90;
    ListCol->Alignment = taRightJustify;

    ListCol = ListView1->Columns->Add();
    ListCol->Caption = "Budget";
    ListCol->Width = 50;
    ListCol->Alignment = taRightJustify;

    ListCol = ListView1->Columns->Add();
    ListCol->Caption = "Capital";
    ListCol->Width = 85;

    ListCol = ListView1->Columns->Add();
    ListCol->Caption = "@";
    ListCol->Width = 30;

    ListIt = ListView1->Items->Add();
    ListIt->Caption = "Belgium";
    ListIt->SubItems->Add("30,510");
    ListIt->SubItems->Add("10,241,506");
    ListIt->SubItems->Add("116.5B");
    ListIt->SubItems->Add("Gaborone");
    ListIt->SubItems->Add("BC");

    ListIt = ListView1->Items->Add();
    ListIt->Caption = "Colombia";
    ListIt->SubItems->Add("1,138,910");
    ListIt->SubItems->Add("39,685,655");
    ListIt->SubItems->Add("22B");
    ListIt->SubItems->Add("Bogota");
    ListIt->SubItems->Add("CO");

    ListIt = ListView1->Items->Add();
    ListIt->Caption = "Botswana";
    ListIt->SubItems->Add("600,370");
    ListIt->SubItems->Add("1,576,470");
    ListIt->SubItems->Add("1.6B");
    ListIt->SubItems->Add("Gaborone");
    ListIt->SubItems->Add("BC");

    ListIt = ListView1->Items->Add();
    ListIt->Caption = "Danemark";
    ListIt->SubItems->Add("43,094");
    ListIt->SubItems->Add("5,336,394");
    ListIt->SubItems->Add("59.7B");
    ListIt->SubItems->Add("Copenhagen");
    ListIt->SubItems->Add("DA");

    ListIt = ListView1->Items->Add();
    ListIt->Caption = "Bangladesh";
    ListIt->SubItems->Add("144,000");
    ListIt->SubItems->Add("129,194,224");
    ListIt->SubItems->Add("4.3B");
    ListIt->SubItems->Add("Dhaka");
    ListIt->SubItems->Add("BG");

    ListIt = ListView1->Items->Add();
    ListIt->Caption = "Benin";
    ListIt->SubItems->Add("112,620");
    ListIt->SubItems->Add("6,395,919");
    ListIt->SubItems->Add("299M");
    ListIt->SubItems->Add("Cotonou");
    ListIt->SubItems->Add("BN");

    ListView1->ViewStyle = vsReport;
}
//---------------------------------------------------------------------------