• R/O
  • HTTP
  • SSH
  • HTTPS

svg-dll: コミット

SVG (SSTP-Viewer Ghost) 用プラグイン


コミットメタ情報

リビジョンa5d3546d5c7d1ac45744baf0198e21fe1b9527e5 (tree)
日時2003-04-06 01:47:41
作者naru <bottle@mika...>
コミッターnaru

ログメッセージ

Optimization by Ghost2File

変更サマリ

差分

--- a/SVG.dpr
+++ b/SVG.dpr
@@ -1,3 +1,8 @@
1+{
2+SSTP Bottle Surface Preview Plug-In for "SVG"
3+(C)2003 naru, Mikage Sawatari / SSTP Bottle
4+}
5+
16 library SVG;
27
38 {$R *.res}
@@ -50,7 +55,7 @@ end;
5055 // CanConfigureは、Configureを呼ばれてやることがあるかどうかを返す。
5156 function GetVersion(DLLName: PChar; NameLen: integer;
5257 var Version: integer; var CanConfigure: boolean): integer; cdecl;
53-const ThisDLL = 'SVG Surface Loader';
58+const ThisDLL = 'SVG Surface Loader for Ver. 1';
5459 begin
5560 Version := 1;
5661 CanConfigure := true;
@@ -71,8 +76,14 @@ begin
7176 ALine := TStringList.Create;
7277 try
7378 ALine.CommaText := Lines[0];
74- if (ALine[0] <> 'GHOST') or (ALine[1] <> Ghost) then
79+ if (ALine[0] <> 'GHOST') then
80+ Exit;
81+ if (ALine[1] <> Ghost) then
82+ begin
83+ Ghost2File.Values[Ghost] := FileName; // 次からのショートカット
7584 Exit;
85+ end;
86+
7687 // 目的のゴースト発見
7788
7889 SurfaceMap := TStringList.Create;
@@ -157,8 +168,6 @@ begin
157168 DefFileName, dum);
158169 if BmpFileName <> '' then
159170 begin
160- // 発見!
161- Ghost2File.Values[Ghost] := DefFileName; // 次からのために定義ファイル名を記憶
162171 Result := ExtractFilePath(DefFileName) + BmpFileName;
163172 Pos := dum;
164173 Break;
旧リポジトリブラウザで表示