From 8e406ec976debaf8f0af6ae167d91f537f5fca20 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 28 Jan 2016 15:40:31 +0100
Subject: Editieren der ausgewählten Lösung nun möglich
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 unit1.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'unit1.pas')

diff --git a/unit1.pas b/unit1.pas
index 716c1ef..da318a7 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -29,6 +29,7 @@ type
     procedure FormResize(Sender: TObject);
     procedure ListBox1Click(Sender: TObject);
     procedure iterationsCallBack(Sender: TObject);
+    procedure ListBox1DblClick(Sender: TObject);
     procedure loesungsCallBack(Sender: TObject);
   private
     { private declarations }
@@ -45,7 +46,7 @@ implementation
 
 {$R *.lfm}
 
-uses unit3;
+uses unit3, unit4;
 
 { TForm1 }
 
@@ -106,6 +107,16 @@ begin
   end;
 end;
 
+procedure TForm1.ListBox1DblClick(Sender: TObject);
+begin
+  if (Listbox1.Itemindex>=0) and
+     (Listbox1.Itemindex<length(loesungen.inhalt)) then begin
+    form3.loesung.free;
+    form3.loesung:=tLoesung.create(loesungen.inhalt[listBox1.itemIndex]);
+    form3.showModal;
+  end;
+end;
+
 procedure TForm1.loesungsCallBack(Sender: TObject);
 begin
   inc(c2);
-- 
cgit v1.2.3-54-g00ecf