界面库

处理gtk的缓存和caret
2022-12-08 16:43:58 +08:00
parent bf7bc4c1aa
commit 32bd460b1d
6 changed files with 84 additions and 42 deletions
@@ -32,7 +32,11 @@ type TEditerForm = class(TVCform) //
        GLobal G_OpenHostory;
        //////////////////目录/////////////////////
        {$ifdef linux}
-            basepath := ".vcl/tsl/";
+            home := sysgetenv("HOME");
+            if home then basepath := home+"/.vcl/";
+            else 
+                basepath := ".vcl/";
+        
        {$else}        
        basepath := TS_GetUserProfileHome();
        {$endif}        
@@ -328,7 +328,10 @@ type TProjectView = class(TVCForm) //
        FTslEditer.ReadOnlyDirs := array(GetVCLdir());
        fio := ioFileseparator();
        {$ifdef linux}
-        bpath := ".vcl/tsl/";
+            home := sysgetenv("HOME");
+            if home then bpath := home+"/.vcl/";
+            else 
+                bpath := ".vcl/";
        {$else}
        bpath := TS_GetUserProfileHome();
        {$endif}