From Clomosy Docs
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
SetupComponent Properties
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.