TClProListViewDesignerPanel

function AddNewProListViewDesignerPanel(AComponent: TCLComponent; xName: string): TClProListViewDesignerPanel;

AComponent : Specifies the parent of the object to be defined.

xName : The name of the defined TclProListViewDesignerPanel should be written.

Used only on the TClProListView object.

Used on the ListView object, this represents items created within the list. A single item is created, within which a specified number of objects can be added.

The field names for defining objects to be added within the TclProListViewDesignerPanel object are listed below.

The field name can be used only once within the project.

• clRecord_GUID
• clCaption
• clText
• clText1
• clText2
• clText3
• clText4
• clText5
• clText6
• clImage1
• clImage2

How to add an object to a field name?
The object is added using the AddPanelObject property. The first parameter of this property is the name of the object to be added, and the second parameter specifies the field where the object will be added.
For example, if there is a TclEdit object, it contains text, so one of the fields starting with clText can be used for this.
Example usage:

DesignerPanel1.AddPanelObject(Edit1,clText);

Feature	Use of	Definition
TClProListViewDesignerPanel	DesignerPanel1 : TClProListViewDesignerPanel;	A variable belonging to the TClProListViewDesignerPanel class is created.
AddNewProListViewDesignerPanel	DesignerPanel1 = MyForm.AddNewProListViewDesignerPanel(ProListView1,'DesignerPanel1');	A new TClProListViewDesignerPanel component is added to the form.
AddPanelObject	DesignerPanel1.AddPanelObject(Label1,clText); //Label1 :TclLabel;	The TclProListViewDesignerPanel object allows the addition of objects into it.

clProSettings Properties

BorderColor

BorderWidth

BackgroundColor

IsTransparent

IsFill

IsRound

RoundHeight

RoundWidth

SetupComponent Properties

Width

Height

PositionX

PositionY

Align

BackgroundColor

MarginTop

MarginBottom

MarginRight

MarginLeft

RoundHeight

RoundWidth

BorderColor

BorderWidth

To learn the purpose and usage of the SetupComponent and clProSettings properties, please refer to the page.

Example

The data will not appear in the TclListView object unless it is added to the DesignerPanel.

For clProSettings:

var
  Form1 : TclForm;
  ListView1 : TClProListView;
  DesignerPanel1 : TClProListViewDesignerPanel;
  
{
  Form1 = TclForm.Create(Self);

  ListView1 = Form1.AddNewProListView(Form1,'ListView1');
  ListView1.Align = AlClient;
  ListView1.Margins.Bottom = 20;
  ListView1.Margins.Top = 20;
  ListView1.Margins.Right = 20;
  ListView1.Margins.Left = 20;
  ListView1.clProSettings.ViewType = lvIcon; //(lvList, lvIcon, lvWaterFall)
  ListView1.clProSettings.ColCount = 1;
  ListView1.clProSettings.ItemHeight = 100;
  ListView1.clProSettings.ItemSpace = 10;
  ListView1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFCFF');
  ListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#66FF7F');
  ListView1.clProSettings.BorderWidth = 2;
  ListView1.clProSettings.RoundHeight = 5;
  ListView1.clProSettings.RoundWidth = 5;
  ListView1.SetclProSettings(ListView1.clProSettings);

  DesignerPanel1 = Form1.AddNewProListViewDesignerPanel(ListView1,'DesignerPanel1');
  DesignerPanel1.Align = alMostTop;
  DesignerPanel1.Height = 100;
  DesignerPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#F5BCC9');
  DesignerPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F6EDDB');
  DesignerPanel1.clProSettings.IsTransparent = False;
  DesignerPanel1.clProSettings.IsFill = True; 
  DesignerPanel1.clProSettings.IsRound = True;
  DesignerPanel1.clProSettings.RoundHeight = 20;
  DesignerPanel1.clProSettings.RoundWidth = 20;
  DesignerPanel1.clProSettings.BorderWidth = 2;
  DesignerPanel1.SetclProSettings(DesignerPanel1.clProSettings);
  ListView1.SetDesignerPanel(DesignerPanel1);
  
  Form1.Run;
}

For SetupComponent:

var
  Form1 : TclForm;
  ListView1 : TClProListView;
  DesignerPanel1 : TClProListViewDesignerPanel;
  
{
  Form1 = TclForm.Create(Self);

  ListView1 = Form1.AddNewProListView(Form1,'ListView1');
  ListView1.Align = AlClient;
  ListView1.Margins.Bottom = 20;
  ListView1.Margins.Top = 20;
  ListView1.Margins.Right = 20;
  ListView1.Margins.Left = 20;
  ListView1.clProSettings.ViewType = lvIcon; //(lvList, lvIcon, lvWaterFall)
  ListView1.clProSettings.ColCount = 1;
  ListView1.clProSettings.ItemHeight = 100;
  ListView1.clProSettings.ItemSpace = 10;
  ListView1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFCFF');
  ListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#66FF7F');
  ListView1.clProSettings.BorderWidth = 2;
  ListView1.clProSettings.RoundHeight = 5;
  ListView1.clProSettings.RoundWidth = 5;
  ListView1.SetclProSettings(ListView1.clProSettings);

  DesignerPanel1 = Form1.AddNewProListViewDesignerPanel(ListView1,'DesignerPanel1');
  clComponent.SetupComponent(DesignerPanel1,'{
  "Align" : "MostTop",
  "Height":100,
  "BorderColor":"#F5BCC9",
  "BackgroundColor":"#F6EDDB", 
  "RoundHeight":20,
  "RoundWidth":20,		
  "BorderWidth":2
  }');
  ListView1.SetDesignerPanel(DesignerPanel1);
  
  Form1.Run;
}

You can see the sample projects in the TClProListView page.

See Also

• Components
• Pro Object Properties
• Object Properties