Dieses Verhalten ließe sich leicht umgehen durch eine geringe Änderung des Codes (s.u.).
Das ist natürlich trivial, nur ändere ich ungern den Code einer vorgegebenen Komponente.
Eine eigene Komponente abzuleiten mach m.E. keinen Sinn, da die Eigenschaft von allgem. Interesse sein sollte.
1.property casesensitive : boolean müsste hinzugefügt werden.
2.tlvlgraphcontrol.getnode etwas geändert werden:
Code: Alles auswählen
function TLvlGraph.GetNode(aCaption: string; CreateIfNotExists: boolean
): TLvlGraphNode;
var
i: Integer;
begin
i:=NodeCount-1;
If casesensitive // <--- new
then while (i>=0) and (aCaption<>Nodes[i].Caption) do dec(i) // <--- original
else while (i>=0) and (0<>ansicomparetext(aCaption,Nodes[i].Caption)) do dec(i); // <--- new
if i>=0 then begin
Result:=Nodes[i];
........ etc ....
.....
end;