• R/O
  • HTTP
  • SSH
  • HTTPS

svg-dll: コミット

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


コミットメタ情報

リビジョン766d822fe76f110f3aaba636268dc69308ec7f5a (tree)
日時2003-04-06 21:06:02
作者naru <bottle@mika...>
コミッターnaru

ログメッセージ

OpenDialog incluced

変更サマリ

差分

--- a/SVG.dpr
+++ b/SVG.dpr
@@ -8,7 +8,7 @@ library SVG;
88 {$R *.res}
99
1010 uses
11- Windows, Classes, SysUtils, Graphics, IniFiles;
11+ Windows, Classes, SysUtils, Graphics, IniFiles, Dialogs;
1212
1313 const
1414 SurfaceWidth = 48;
@@ -55,7 +55,7 @@ end;
5555 // CanConfigureは、Configureを呼ばれてやることがあるかどうかを返す。
5656 function GetVersion(DLLName: PChar; NameLen: integer;
5757 var Version: integer; var CanConfigure: boolean): integer; cdecl;
58-const ThisDLL = 'SVG Surface Loader for Ver. 1';
58+const ThisDLL = 'SVG Surface Loader for Ver. 1.1';
5959 begin
6060 Version := 1;
6161 CanConfigure := true;
@@ -243,7 +243,34 @@ end;
243243 // DLL固有の設定を行う。
244244 //
245245 procedure Configure; cdecl;
246+var OpenDialog: TOpenDialog;
247+ Ini: TIniFile;
246248 begin
249+ try
250+ ShowMessage('Specify SSTP Viewer''s ghost file.');
251+ OpenDialog := TOpenDialog.Create(nil);
252+ try
253+ OpenDialog.Filter := 'Ghost Definition File(ghost.txt)|ghost.txt|' +
254+ 'All Files(*.*)|*.*';
255+ OpenDialog.FileName := GhostFile;
256+ if OpenDialog.Execute then
257+ begin
258+ GhostFile := OpenDialog.FileName;
259+ Ini := TIniFile.Create(MyPath + ConfigFile);
260+ try
261+ Ini.WriteString('SVG', 'GhostFile', GhostFile);
262+ finally
263+ Ini.Free;
264+ end;
265+ Ghost2File.Clear;
266+ end;
267+ finally
268+ OpenDialog.Free;
269+ end;
270+ except
271+ on E: Exception do
272+ ShowMessage(E.Message);
273+ end;
247274 end;
248275
249276 exports
旧リポジトリブラウザで表示