From 8f68b9e1050344d94838c467c4ccb0480e2b4457 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Fri, 17 Jan 2014 22:45:55 +0000
Subject: [PATCH] Examples, sqlite_mushrooms: close transaction at application
 end, fixes SIGSEGV at program close

git-svn-id: trunk@43757 -
---
 examples/database/sqlite_mushrooms/unit1.lfm | 33 ++++++++++----------
 examples/database/sqlite_mushrooms/unit1.pas | 10 +-----
 2 files changed, 17 insertions(+), 26 deletions(-)

diff --git a/examples/database/sqlite_mushrooms/unit1.lfm b/examples/database/sqlite_mushrooms/unit1.lfm
index 60a579895a..e11a371277 100644
--- a/examples/database/sqlite_mushrooms/unit1.lfm
+++ b/examples/database/sqlite_mushrooms/unit1.lfm
@@ -147,7 +147,7 @@ object Form1: TForm1
   OnClose = FormClose
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '1.2.0.2'
+  LCLVersion = '1.3'
   object DBNavigator1: TDBNavigator
     Left = 6
     Height = 35
@@ -206,7 +206,7 @@ object Form1: TForm1
   end
   object DBEdit1: TDBEdit
     Left = 128
-    Height = 23
+    Height = 21
     Top = 408
     Width = 166
     DataField = 'Image_Link'
@@ -236,22 +236,22 @@ object Form1: TForm1
     Columns = <    
       item
         Title.Caption = 'Common Name'
-        Width = 101
+        Width = 86
         FieldName = 'Common_Name'
       end    
       item
         Title.Caption = 'Scientific Name'
-        Width = 98
+        Width = 87
         FieldName = 'Scientific_Name'
       end    
       item
         Title.Caption = 'Order'
-        Width = 45
+        Width = 43
         FieldName = 'Order'
       end    
       item
         Title.Caption = 'Genus'
-        Width = 48
+        Width = 45
         FieldName = 'Genus'
       end    
       item
@@ -261,7 +261,7 @@ object Form1: TForm1
       end    
       item
         Title.Caption = 'Notes'
-        Width = 46
+        Width = 43
         FieldName = 'Notes'
       end>
     DataSource = Datasource1
@@ -322,23 +322,22 @@ object Form1: TForm1
       DataSource = Datasource1
       OnDblClick = DBImage1DblClick
       OnDBImageRead = DBImage1DBImageRead
-      OnDBImageWrite = DBImage1DBImageWrite
       Proportional = True
     end
   end
   object Label1: TLabel
     Left = 8
-    Height = 15
+    Height = 13
     Top = 55
-    Width = 22
+    Width = 18
     Caption = 'Link'
     ParentColor = False
   end
   object Label2: TLabel
     Left = 360
-    Height = 15
+    Height = 13
     Top = 55
-    Width = 24
+    Width = 20
     Caption = 'Blob'
     ParentColor = False
   end
@@ -353,13 +352,13 @@ object Form1: TForm1
   end
   object Label3: TLabel
     Left = 8
-    Height = 15
+    Height = 13
     Top = 424
-    Width = 32
+    Width = 30
     Caption = 'Note :'
     ParentColor = False
   end
-  object Datasource1: TDatasource
+  object Datasource1: TDataSource
     DataSet = SQLQuery1
     left = 216
     top = 192
@@ -380,14 +379,14 @@ object Form1: TForm1
     top = 192
   end
   object SQLTransaction1: TSQLTransaction
-    Active = True
+    Active = False
     Action = caCommitRetaining
     Database = SQLite3Connection1
     left = 208
     top = 120
   end
   object SQLite3Connection1: TSQLite3Connection
-    Connected = True
+    Connected = False
     LoginPrompt = False
     DatabaseName = 'ImageTest.db3'
     KeepConnection = False
diff --git a/examples/database/sqlite_mushrooms/unit1.pas b/examples/database/sqlite_mushrooms/unit1.pas
index fddd4c64fd..df05a0b185 100644
--- a/examples/database/sqlite_mushrooms/unit1.pas
+++ b/examples/database/sqlite_mushrooms/unit1.pas
@@ -43,8 +43,6 @@ type
       Column: TColumn; AState: TGridDrawState);
     procedure DBImage1DBImageRead(Sender: TObject; S: TStream;
       var GraphExt: string);
-    procedure DBImage1DBImageWrite(Sender: TObject; S: TStream; GraphExt: string
-      );
     procedure DBImage1DblClick(Sender: TObject);
     procedure DBNavigator1BeforeAction(Sender: TObject; Button: TDBNavButtonType
       );
@@ -131,12 +129,6 @@ end;
 
 
 
-procedure TForm1.DBImage1DBImageWrite(Sender: TObject; S: TStream;
-  GraphExt: string);
-begin
-
-end;
-
 procedure TForm1.DBImage1DblClick(Sender: TObject);
 var
   BlobStream: TStream;
@@ -186,7 +178,7 @@ end;
 procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
   SQLQuery1.ApplyUpdates;
- SQLTransaction1.CommitRetaining;
+  SQLTransaction1.Commit;
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);