Changeset 252 for trunk/NewView/MainForm.pas

Timestamp:

Sep 21, 2007, 5:57:18 PM (18 years ago)

Author:

RBRi

Message:

fix for #33
fix usage of StrStartsWithIgnoringCase

File:

• trunk/NewView/MainForm.pas (modified) (3 diffs)

trunk/NewView/MainForm.pas

@@ -2384 +2384 @@
   Filename := THelpFile( CurrentOpenFiles[ 0 ] ).Filename;
   NamePart := ExtractFileName( Filename );
-  Result := StrStartsWithIgnoringCase('newview', NamePart);
+  Result := StrStartsWithIgnoringCase(NamePart, 'newview');
 end;
 
@@ -4487 +4487 @@
 End;
 
-Procedure TMainForm.IndexSearchEditOnScan (Sender: TObject;
-  Var KeyCode: TKeyCode);
+Procedure TMainForm.IndexSearchEditOnScan (Sender: TObject; Var KeyCode: TKeyCode);
 Begin
   case KeyCode of
@@ -4515 +4514 @@
 Procedure TMainForm.IndexSearchEditOnChange (Sender: TObject);
 var
-  MatchIndex: longint;
-  IndexINdex: longint;
-  SearchText: string;
+  tmpMatchIndex : longint;
+  tmpSearchText: string;
+  i : longint;
 Begin
   if InIndexSearch then
     exit;
 
-  MatchIndex:= -1;
-  SearchText:= trim( IndexSearchEdit.Text );
-  for IndexIndex:= 0 to DisplayedIndex.Count - 1 do
-  begin
-    if StrStartsWithIgnoringCase( SearchText, DisplayedIndex[ IndexIndex ] ) then //IndexEntry ) then
+  tmpMatchIndex := -1;
+  tmpSearchText := trim(IndexSearchEdit.Text);
+
+  for i := 0 to DisplayedIndex.Count - 1 do
+  begin
+    if StrStartsWithIgnoringCase(DisplayedIndex[i], tmpSearchText) then
     begin
-      MatchIndex:= IndexIndex;
+      tmpMatchIndex := i;
       break;
     end;
   end;
 
-  if MatchIndex = -1 then
+  if tmpMatchIndex = -1 then
     exit;
 
   InIndexSearch:= true;
 
-  if IndexListBox.ItemIndex <> MatchIndex then
-    IndexListBox.ItemIndex:= MatchIndex;
+  if IndexListBox.ItemIndex <> tmpMatchIndex then
+    IndexListBox.ItemIndex:= tmpMatchIndex;
 
   InIndexSearch:= false;