JvInspector: "Enum-Item" hinzufügen

**Basic-Master**

Hallo,
ich habe mich heute mit der JvInspector-Komponente beschäftigt (JVCL 3.0), ein normales String-Item hinzufügen funktioniert mit der Funktion, die ich mir gecoded habe auch wunderbar, allerdings würde ich gerne ein Enum-Item (siehe TJvInspectorEnumItem) zu meinem JvInspector hinzufügen. Leider geht es nicht mal eben mit TJvInspectorEnumItem.Create, man müsste erst ein TJvInspectorVarData-Objekt mit den richtigen Parametern erzeugen (denke ich mal, ist beim Hinzufügen eines String-Items auch so). Nur wie jetzt der TypeInfo von diesem enum wäre, weiss ich nicht

(set ist es nicht).

Hier der Code zum erzeugen eines "normalen" String-Items:

markieren

Code:

			function AddField(eName, eCategory, eValue: String): TJvCustomInspectorItem;

var i: integer;

    eParent: TJvCustomInspectorItem;

    TempVar: Pointer;

begin

  // frmMain ist mein Formular und jviCode der JvInspector

  eParent := nil;

  for i := 0 to frmMain.jviCode.Root.Count -1 do begin

    if (frmMain.jviCode.Root.Items[i].DisplayName = eCategory) and (frmMain.jviCode.Root.Items[i] is TJvInspectorCustomCategoryItem) then

      eParent := frmMain.jviCode.Root.Items[i];

  end;

  if eParent = nil then begin

    eParent := TJvInspectorCustomCategoryItem.Create(frmMain.jviCode.Root, nil);

    eParent.DisplayName := eCategory;

  end;

  if eName <> '' then begin

    New(PString(TempVar));

    PString(TempVar)^ := eValue;

    Result := TJvInspectorVarData.New(eParent, eName, TypeInfo(String), TempVar);

    frmMain.jviCode.Root.Sort;

    eParent.Expanded := True;

  end

  else begin

    Result := nil;

    frmMain.jviCode.Root.Sort;

  end;

end;

Danke im Voraus

JvInspector: "Enum-Item" hinzufügen

JvInspector: "Enum-Item" hinzufügen

Forumregeln