This info is C orientated but you can figure it out!
- Start a new application with its default form
- From the Win32 tab of the Component Palette, double-click the ListView control.
- Change the Height of the ListView1 control to 200 and its Width to 350
- Double-click an empty area on the form and implement the OnCreate event of the form as form.
- 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; } //---------------------------------------------------------------------------