Ajuste e teste

EvoUMLPlugin/src/ituExplorerV2.pas

@@ -192,6 +192,7 @@ type
     function IsKeyword(piItem : string): boolean;
     function GetTextBetweenWord(piSynEdit :TSynEdit;piWordPos: TPoint;piWord : string) : string;
     function IsExepressaoValida(piOpEve: TFaOpenEvent;piTexto : string; piTemPalavraAntes : Boolean = false):boolean;
+    function GetPrevWordPosValida(piSynEdit: TSynEdit) :TPoint;
    protected
     procedure CreateParams(var Params : TCreateParams); override;
     function Connect : acPersistenceSession;
@@ -1304,7 +1305,8 @@ function TExplorerV2.GetTextBetweenLines(piSynEdit: TSynEdit; out
 var p1, p2, PointAtual: TPoint;
     lLen : integer;
 begin
-  p1 := piSynEdit.PrevWordPos;
+  //p1 := piSynEdit.PrevWordPos;
+  p1 := Self.GetPrevWordPosValida(piSynEdit);
   piCareWordXY := p1;
   p2 := piSynEdit.CaretXY;
   PointAtual := P2;
@@ -1430,9 +1432,12 @@ begin
 			 end;
 		end
     else if (lTextAfterWord  <> '') then
+    begin
+       if not IsExepressaoValida(opEve,trim(lTextAfterWord),lTemPalavra) then
        begin
          result := lTextAfterWord;
 			 end;
+   	end;
 	end
   else
   begin
@@ -1525,6 +1530,12 @@ begin
     li_Pos       := 1;
     li_len       := Length(piTexto);
     if (piOpEve = fopEvenSelectCompleto)  then
+    begin
+      if piTemPalavraAntes then
+      begin
+        ls_expressao := '=,(*';
+      end
+      else
       begin
         ls_expressao := '=,()*';
         if (trim(piTexto)  = __ASTERICO)  then
@@ -1532,10 +1543,18 @@ begin
           li_Pos := li_Len + 1;
           result := false;
    			end;
+      end;
 		end
     else if (piOpEve = fopEvenFromCompleto)  then
+    begin
+      if piTemPalavraAntes then
+      begin
+        ls_expressao := ',(';
+      end
+      else
       begin
         ls_expressao := '=,()';
+      end
 		end
 		else if (piOpEve = fopEvenWhereCompleto)  then
     begin
@@ -1564,6 +1583,32 @@ begin
  	 end;
 end;
 
+function TExplorerV2.GetPrevWordPosValida(piSynEdit: TSynEdit): TPoint;
+var  lWordAnt,
+     lWord : string;
+begin
+  result   := piSynEdit.PrevWordPos;
+	lWordAnt := trim(piSynEdit.GetWordAtRowCol(result));
+  if lWordAnt = '' then
+  begin
+	   while (trim(lWordAnt) = '') and (result.Y > 0) do
+	   begin
+	     result.Y  := result.Y - 1;
+	     lWordAnt  := trim(piSynEdit.GetWordAtRowCol(result));
+	   end;
+
+	   result.X  := result.X + Length(lWordAnt) + 1;
+	   lWord     := trim(piSynEdit.GetWordAtRowCol(result));
+	   while lWord <> lWordAnt do
+	   begin
+	      lWordAnt  := lWord;
+	      result.X  := result.X + Length(lWord);
+	      lWord     := trim(piSynEdit.GetWordAtRowCol(result));
+	   end;
+	end;
+
+end;
+
 procedure TExplorerV2.CreateParams(var Params: TCreateParams);
 begin
   inherited CreateParams(Params);
@@ -2358,4 +2403,4 @@ begin
   {$ENDIF}
 end;
 
-end.11
+end.