设计器

修正解析死循环问题

designer/utslcodeeditor.tsf

@@ -1000,6 +1000,7 @@ type TExecuteEditer=class(TCustomControl) //ִ
         s := replacetext(s,"$(CURRENT_DIRECTORY)",dir);
         s := replacetext(s,"$(SEARCH_PATH)",owner.getlibpathstr());
         s := replacetext(s,"$(TSL_EXE)",gettslexe());
+        len := length(s);
         return s;
     end
     function doSaveCurrentName();

designer/utslvclsyntaxparser.tsf

@@ -39,7 +39,7 @@ type tslparser = class(tslparserbase) //
     end
     function tkopok();
     begin
-        return FCurrentPos>0 and FCurrentPos<FTokenLen;
+        return FCurrentPos>=0 and FCurrentPos<FTokenLen;
     end
     function getTokenPos(ps);
     begin
@@ -52,7 +52,7 @@ type tslparser = class(tslparserbase) //
     function ctoken(tk,tp,pos,r);
     begin
         if not FTokens then return 0;
-        r := tkopok(pos);
+        //r := tkopok(pos);
         tk := FTokens[FCurrentPos,0];
         tp := FTokens[FCurrentPos,1];
         pos := FTokens[FCurrentPos,2]+1;
@@ -398,6 +398,12 @@ type tslparser = class(tslparserbase) //
         while true do
         begin
             ctoken(tk,tp,pos);
+            if ifnil(tk) then break;
+            if tk="end" and tp=TT_IDE then 
+            begin
+                bpos();
+                break;
+            end 
             if tk=";" then
             begin
                 if rcount then

funcext/tvclib/utslvclpage.tsf

@@ -454,6 +454,10 @@ type tcustompagecontrol = class(TCustomControl)
         if  FCurrentid=-1 then 
         begin
             setselidx(0);
+        end else 
+        begin
+            if not (page is class(TWinControl)) then CalcTabs();
+            InvalidateRect(nil,false);
         end 
     end   
     public