Optimization by Ghost2File

diff --git a/SVG.dpr b/SVG.dpr
index a30ffbd..ef2f7d8 100644 (file)
--- a/SVG.dpr
+++ b/SVG.dpr
@@ -1,3 +1,8 @@
+{
+SSTP Bottle Surface Preview Plug-In for "SVG"
+(C)2003 naru, Mikage Sawatari / SSTP Bottle
+}
+
 library SVG;
 
 {$R *.res}
@@ -50,7 +55,7 @@ end;
 // CanConfigure\82Í\81AConfigure\82ð\8cÄ\82Î\82ê\82Ä\82â\82é\82±\82Æ\82ª\82 \82é\82©\82Ç\82¤\82©\82ð\95Ô\82·\81B
 function GetVersion(DLLName: PChar; NameLen: integer;
   var Version: integer; var CanConfigure: boolean): integer; cdecl;
-const ThisDLL = 'SVG Surface Loader';
+const ThisDLL = 'SVG Surface Loader for Ver. 1';
 begin
   Version := 1;
   CanConfigure := true;
@@ -71,8 +76,14 @@ begin
     ALine := TStringList.Create;
     try
       ALine.CommaText := Lines[0];
-      if (ALine[0] <> 'GHOST') or (ALine[1] <> Ghost) then
+      if (ALine[0] <> 'GHOST') then
+        Exit;
+      if (ALine[1] <> Ghost) then
+      begin
+        Ghost2File.Values[Ghost] := FileName; // \8e\9f\82©\82ç\82Ì\83V\83\87\81[\83g\83J\83b\83g
         Exit;
+      end;
+
       // \96Ú\93I\82Ì\83S\81[\83X\83g\94­\8c©
 
       SurfaceMap := TStringList.Create;
@@ -157,8 +168,6 @@ begin
           DefFileName, dum);
         if BmpFileName <> '' then
         begin
-          // \94­\8c©!
-          Ghost2File.Values[Ghost] := DefFileName; // \8e\9f\82©\82ç\82Ì\82½\82ß\82É\92è\8b`\83t\83@\83C\83\8b\96¼\82ð\8bL\89¯
           Result := ExtractFilePath(DefFileName) + BmpFileName;
           Pos := dum;
           Break;