Fixed memory leaks

[winbottle/winbottle.git] / bottleclient / FMOExplorer.pas

diff --git a/bottleclient/FMOExplorer.pas b/bottleclient/FMOExplorer.pas
index 4d2ea3d..78d5eb9 100755 (executable)
--- a/bottleclient/FMOExplorer.pas
+++ b/bottleclient/FMOExplorer.pas
@@ -27,6 +27,7 @@ type
     procedure lvwListChange(Sender: TObject; Item: TListItem;
       Change: TItemChange);
     procedure actKillFMOExecute(Sender: TObject);
+    procedure lvwListDblClick(Sender: TObject);
   private
     { Private \90é\8c¾ }
   public
@@ -140,4 +141,21 @@ begin
     end;
 end;
 
+procedure TfrmFMOExplorer.lvwListDblClick(Sender: TObject);
+var i, index: integer;
+    str: String;
+begin
+  if lvwList.Selected = nil then Exit;
+  index := lvwList.Selected.Index;
+  for i := 0 to SakuraSeeker[index].Count-1 do begin
+    if i > 0 then str := str + #13#10;
+    str := str + SakuraSeeker[index].KeyAt[i] + ': ' + SakuraSeeker[index].DataAt[i];
+  end;
+  ShowMessage(str);
+end;
+
+initialization
+
+frmFMOExplorer := nil;
+
 end.