Discussion :

[visithierry]

Salut a tous,

Je recherche un composant style TValueListEditor mais avec la possibilité de faire une arborescence.
En fait la méme chose que l'editeur de propriétés dans l'inspecteur d'objet de Lazarus :


Je me dis naïvement que si ils l'ont mis dans Lazarus, c'est que ce composant doit exister qqpart ?

Merci a vous :-)

[anapurna]

salut

regarde du cote de "lazarus\ideintf\propedits.pp"

[visithierry]

regarde du cote de "lazarus\ideintf\propedits.pp"

Merci, c'est une bonne piste (C:\lazarus\components\ideintf...)
Tu aurais un exemple d'utilisation, cela m'a l'air assez complexe...

[visithierry]

Je viens de trouver le composant TTIPropertyGrid dans la palette RTTI (package IDEIntf).
Le truc c'est qu'il se rempli automatiquement quand on lui assigne un objet dans la propriété TIObject.
Je vais creuser la chose et voir si je peux le remplir manuellement.

Le but est d'afficher un objet extrait d'un string :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
instance of Win32_DiskDrive
{
	BytesPerSector = 512;
	Capabilities = {3, 4, 10};
	CapabilityDescriptions = {"Random Access", "Supports Writing", "SMART Notification"};
	Caption = "Intel Raid 1 Volume";
	ConfigManagerErrorCode = 0;
	ConfigManagerUserConfig = FALSE;
.....
	TotalCylinders = "121600";
	TotalHeads = 255;
	TotalSectors = "1953504000";
	TotalTracks = "31008000";
	TracksPerCylinder = 255;
};

dans ce propertygrid.

[BeanzMaster]

Salut tu as plus simple, (mais ce n'est peut-être pas suffisant pour toi) le composant TValueListEditor dans l'onglet "Additional"

Sinon autre solution créer une classe pour contenir tes informations et le passer dans TTIPropertyGrid genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Type 
  TWin32DiskDriveInfos = class(TObject)
  private
    FBytesPerSect : Int64;
 
    function getBytesPerSect : Int64;
    procedure setBytesPerSect(Const value : Int64);
  published
      property BytesPerSect : Int64 Read getBytesPerSect write setBytesPerSect;
  end;

[visithierry]

Salut tu as plus simple, (mais ce n'est peut-être pas suffisant pour toi) le composant TValueListEditor dans l'onglet "Additional"

Certaines propriétées contiennent d'autres Objets, j'ai donc besoin d'une arborescence.

Je vais peut être me tourner vers un TVirtualTreeView.

Merci ;-)