[Instantobjects-cvscommit] SF.net SVN: instantobjects:[789] trunk/Demos/PrimerCross

[<car...@us...>]

Revision: 789
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=789&view=rev
Author:   carlobar
Date:     2008-09-03 10:46:34 +0000 (Wed, 03 Sep 2008)

Log Message:
-----------
little fixes to show the entire examples for IQL queries and the SQL translated command.

Modified Paths:
--------------
    trunk/Demos/PrimerCross/QueryView.dfm
    trunk/Demos/PrimerCross/QueryView.pas

Modified: trunk/Demos/PrimerCross/QueryView.dfm
===================================================================
--- trunk/Demos/PrimerCross/QueryView.dfm	2008-09-03 10:43:07 UTC (rev 788)
+++ trunk/Demos/PrimerCross/QueryView.dfm	2008-09-03 10:46:34 UTC (rev 789)
@@ -72,7 +72,7 @@
       Width = 461
       Height = 21
       Style = csDropDownList
-      DropDownCount = 11
+      DropDownCount = 12
       ItemHeight = 13
       TabOrder = 1
       OnClick = ExampleComboBoxClick

Modified: trunk/Demos/PrimerCross/QueryView.pas
===================================================================
--- trunk/Demos/PrimerCross/QueryView.pas	2008-09-03 10:43:07 UTC (rev 788)
+++ trunk/Demos/PrimerCross/QueryView.pas	2008-09-03 10:46:34 UTC (rev 789)
@@ -114,6 +114,9 @@
 
 procedure TQueryViewForm.ExecuteActionExecute(Sender: TObject);
 begin
+{$IFDEF IO_STATEMENT_LOGGING}
+  TranslatedQueryMemo.Clear;
+{$ENDIF}
   with TestSelector do
   begin
     Close;
@@ -193,7 +196,9 @@
 procedure TQueryViewForm.TestSelectorAfterClose(DataSet: TDataSet);
 begin
   inherited;
+{$IFDEF IO_STATEMENT_LOGGING}
   TranslatedQueryMemo.Clear;
+{$ENDIF}
 end;
 
 end.