Eigenschaftenfenster wie OI

[v2afrank]

Das geht aber auch mit den jedis.
Ich habe Die mal ein Bild von meinem Objektinspektor beigefügt.
In dem Bild kann der Benutzer ein Label einstellen
Das Label habe ich dem Inspektor über folgenden Code hinzugefügt

Delphi-Quellcode:

    JvInspector1.Visible:=true;
    JvInspector1.Clear;

    InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil);
    InspCat.Expanded:=true;
    InspCat.SortKind:=iskNone;

    InspCat.DisplayName := _('Visuell');

    strvariable:=TLabel(control).caption;
    TJvInspectorVarData.New(InspCat, 'String', TypeInfo(String), @strvariable).DisplayName := _('Text');
    TJvInspectorVarData.New(InspCat, 'Integer', TypeInfo(Integer), @TLabel(control).top).DisplayName := _('Oben');
    TJvInspectorVarData.New(InspCat, 'Integer', TypeInfo(Integer), @TLabel(control).Left).DisplayName := _('Links');
    TJvInspectorVarData.New(InspCat, 'Integer', TypeInfo(Integer), @TLabel(control).height).DisplayName := _('Höhe');
    TJvInspectorVarData.New(InspCat, 'Integer', TypeInfo(Integer), @TLabel(control).width).DisplayName := _('Breite');
    TJvInspectorVarData.New(InspCat, 'Font', TypeInfo(TFont), @TLabel(control).font).DisplayName := _('Schriftart');
    TJvInspectorVarData.New(InspCat, 'Color', TypeInfo(TColor), @TLabel(control).Color).DisplayName := _('Farbe');
    TJvInspectorVarData.New(InspCat, 'Align', TypeInfo(TAlignment), @TLabel(control).Alignment).DisplayName := _('Ausrichtung');
    Boolvariable:=TLabel(control).Transparent;
    TJvInspectorVarData.New(InspCat, 'Transparent', TypeInfo(Boolean), @Boolvariable).DisplayName := _('Transparent');

    InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil);
    InspCat.DisplayName := _('Allgemein');
    InspCat.SortKind:=iskNone;
    TJvInspectorVarData.New(InspCat, 'String', TypeInfo(String), @control.Name).DisplayName := _('Name');
    InspCat.Expanded:=true;

Im JvInspector1DataValueChanged kann ich dann die Variablen wie strvariable den Eigenschaften zuweisen.
Spiel einfach mal ein bischen damit herum. Es lohnt sich