From 77cd61b4d2c65a2cfa2b2d5a00b8acf49e86b372 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 1 Apr 2007 21:04:46 +0000
Subject: [PATCH] + OO test

git-svn-id: trunk@7055 -
---
 .gitattributes                            |   1 +
 packages/base/winunits/examples/OOTest.pp | 121 ++++++++++++++++++++++
 2 files changed, 122 insertions(+)
 create mode 100644 packages/base/winunits/examples/OOTest.pp

diff --git a/.gitattributes b/.gitattributes
index d1e2acb8fd..e0c6677e35 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -1513,6 +1513,7 @@ packages/base/winunits/comconst.pp svneol=native#text/plain
 packages/base/winunits/commctrl.pp svneol=native#text/plain
 packages/base/winunits/comobj.pp svneol=native#text/plain
 packages/base/winunits/examples/OOHelper.pp svneol=native#text/plain
+packages/base/winunits/examples/OOTest.pp -text svneol=unset#text/plain
 packages/base/winunits/examples/testcom1.pp svneol=native#text/plain
 packages/base/winunits/examples/testcom2.pp svneol=native#text/plain
 packages/base/winunits/examples/testver.pp svneol=native#text/plain
diff --git a/packages/base/winunits/examples/OOTest.pp b/packages/base/winunits/examples/OOTest.pp
new file mode 100644
index 0000000000..8221b8b2c9
--- /dev/null
+++ b/packages/base/winunits/examples/OOTest.pp
@@ -0,0 +1,121 @@
+{***********************************************************************
+ *
+ *  $RCSfile: SampleUI.pas,v $
+ *
+ *  $Revision: 1.2 $
+ *
+ *  last change: $Author: hr $ $Date: 2003/06/30 15:51:41 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  the BSD license.
+ *  
+ *  Copyright (c) 2003 by Sun Microsystems, Inc.
+ *  All rights reserved.
+ *
+ *  Redistribution and use in source and binary forms, with or without
+ *  modification, are permitted provided that the following conditions
+ *  are met:
+ *  1. Redistributions of source code must retain the above copyright
+ *     notice, this list of conditions and the following disclaimer.
+ *  2. Redistributions in binary form must reproduce the above copyright
+ *     notice, this list of conditions and the following disclaimer in the
+ *     documentation and/or other materials provided with the distribution.
+ *  3. Neither the name of Sun Microsystems, Inc. nor the names of its
+ *     contributors may be used to endorse or promote products derived
+ *     from this software without specific prior written permission.
+ *
+ *  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ *  "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ *  LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+ *  FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+ *  COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
+ *  INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+ *  BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
+ *  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ *  ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+ *  TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
+ *  USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *     
+ *************************************************************************}
+{$mode objfpc}
+uses
+  OOHelper;
+  
+var
+  Sample : TSampleCode;
+
+procedure error(const s : string = 'Error');
+  begin
+    writeln(s);
+    halt(1);
+  end;
+  
+  
+begin
+  write('Connection to StarOffice ... ');
+  Sample := TSampleCode.Create();
+  if Sample.Connect() then
+    writeln('done.')
+  else
+    error;
+  write('Creating new text document ... ');
+  if Sample.CreateDocument(false) then
+    writeln('done.')
+  else
+    error;
+{  
+  try
+    writeln('Inserting Table ...');
+    Sample.InsertTable(Edit2.Text, Edit1.Text);
+    writeln('Ready');
+  except
+    Error;
+  end;
+}   
+  write('Disconnection from StarOffice ... ');
+  Sample.Disconnect();
+  writeln('done.');
+  writeln('Finished');
+end.
+
+{
+end;
+
+procedure TOKBottomDlg.OnCreateDocument(Sender: TObject);
+begin
+end;
+
+procedure TOKBottomDlg.OnInsertTable(Sender: TObject);
+begin
+end;
+
+procedure TOKBottomDlg.OnGetDatabasePointer(Sender: TObject);
+var
+    res : String;
+begin
+    try
+        StatusBar1.SimpleText := 'Getting database pointer ...';
+        res := Sample.getDatabasePointer(Edit4.Text, Edit3.Text);
+        Application.MessageBox(PChar('the pointer: ' + res), PChar('Result'), ID_OK);
+        StatusBar1.SimpleText := 'Ready';
+    except
+        StatusBar1.SimpleText := 'Error';
+    end;
+end;
+
+procedure TOKBottomDlg.OnGetCellContent(Sender: TObject);
+var
+    res : String;
+begin
+    try
+        StatusBar1.SimpleText := 'Getting cell content ...';
+        res := Sample.getCellContent(Edit6.Text);
+        Application.MessageBox(PChar('the content: ' + res), PChar('Result'), ID_OK);
+        StatusBar1.SimpleText := 'Ready';
+    except
+        StatusBar1.SimpleText := 'Error';
+    end;
+end;
+
+end.
+}
\ No newline at end of file