paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 00:22:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Add new property CaseSensitive to TLvlGraph (http://www.lazarusforum.de/viewtopic.php?f=18&t=11108).

Browse Source 
git-svn-id: trunk@55990 -
This commit is contained in:
wp 2017-10-06 10:57:57 +00:00
parent c5ebf982e9
commit 4803801696
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazcontrols/lvlgraphctrl.pas
View File

@ -196,6 +196,7 @@ type
FOnInvalidate: TNotifyEvent;
FNodes: TFPList; // list of TLvlGraphNode
fLevels: TFPList;
FCaseSensitive: Boolean;
FOnSelectionChanged: TNotifyEvent;
FOnStructureChanged: TOnLvlGraphStructureChanged;
function GetLevelCount: integer;
@ -229,6 +230,7 @@ type
procedure ClearSelection;
procedure SingleSelect(Node: TLvlGraphNode);
function IsMultiSelection: boolean;
property CaseSensitive: Boolean read FCaseSensitive write FCaseSensitive;
// edges
function GetEdge(SourceCaption, TargetCaption: string;
@ -2976,7 +2978,11 @@ var
i: Integer;
begin
i:=NodeCount-1;
while (i>=0) and (aCaption<>Nodes[i].Caption) do dec(i);
if FCaseSensitive then
while (i>=0) and (aCaption<>Nodes[i].Caption) do dec(i)
else
while (i>=0) and not SameText(aCaption, Nodes[i].Caption) do dec(i);
if i>=0 then begin
Result:=Nodes[i];
end else if CreateIfNotExists then begin