Changeset 57 for trunk/IDE/Forms/UFormProjectNew.pas

Timestamp:

Jul 16, 2012, 4:11:47 PM (12 years ago)

Author:

chronos

Message:

• Modified: Testing interpretter.

File:

• trunk/IDE/Forms/UFormProjectNew.pas (modified) (2 diffs)

trunk/IDE/Forms/UFormProjectNew.pas

@@ -20 +20 @@
     procedure ListView1Change(Sender: TObject; Item: TListItem;
       Change: TItemChange);
+    procedure ListView1DblClick(Sender: TObject);
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -52 +53 @@
 end;
 
+procedure TFormProjectNew.ListView1DblClick(Sender: TObject);
+begin
+  ButtonOk.Click;
+end;
+
 procedure TFormProjectNew.ListView1SelectItem(Sender: TObject; Item: TListItem;
   Selected: Boolean);