Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 168 insertions, 0 deletions

diff --git a/odk/examples/OLE/delphi/InsertTables/SampleUI.pas b/odk/examples/OLE/delphi/InsertTables/SampleUI.pas
new file mode 100644
index 000000000..fcd4f4301
--- /dev/null
+++ b/odk/examples/OLE/delphi/InsertTables/SampleUI.pas
@@ -0,0 +1,168 @@
+{***********************************************************************
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  the BSD license.
+ *  
+ *  Copyright 2000, 2010 Oracle and/or its affiliates.
+ *  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.
+ *     
+ *************************************************************************}
+unit SampleUI;
+
+interface
+
+uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
+  Buttons, ExtCtrls, SampleCode, ComCtrls;
+
+type
+  TOKBottomDlg = class(TForm)
+    Bevel1: TBevel;
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+    Button4: TButton;
+    Edit1: TEdit;
+    Label1: TLabel;
+    Edit2: TEdit;
+    Label2: TLabel;
+    Button5: TButton;
+    Button6: TButton;
+    Edit3: TEdit;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label6: TLabel;
+    Edit6: TEdit;
+    Bevel2: TBevel;
+    Bevel3: TBevel;
+    Bevel4: TBevel;
+    StatusBar1: TStatusBar;
+    Edit4: TEdit;
+    Label7: TLabel;
+    procedure OnConnect(Sender: TObject);
+    procedure OnDisconnect(Sender: TObject);
+    procedure OnCreateDocument(Sender: TObject);
+    procedure OnInsertTable(Sender: TObject);
+    procedure OnGetDatabasePointer(Sender: TObject);
+    procedure OnGetCellContent(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  OKBottomDlg: TOKBottomDlg;
+  Sample : TSampleCode;
+implementation
+
+{$R *.DFM}
+
+procedure TOKBottomDlg.OnConnect(Sender: TObject);
+begin
+    StatusBar1.SimpleText := 'Connection to StarOffice ...';
+    Sample := TSampleCode.Create();
+    if Sample.Connect() then
+    begin
+        Button1.Enabled := false;
+        Button2.Enabled := true;
+        Button3.Enabled := true;
+        Button4.Enabled := false;
+        Button5.Enabled := false;
+        Button6.Enabled := false;
+    end;
+    StatusBar1.SimpleText := 'Ready';
+end;
+
+procedure TOKBottomDlg.OnDisconnect(Sender: TObject);
+begin
+    StatusBar1.SimpleText := 'Disconnection from StarOffice ...';
+    Sample.Disconnect();
+    Button1.Enabled := true;
+    Button2.Enabled := false;
+    Button3.Enabled := false;
+    Button4.Enabled := false;
+    Button5.Enabled := false;
+    Button6.Enabled := false;
+    StatusBar1.SimpleText := 'Ready';
+end;
+
+procedure TOKBottomDlg.OnCreateDocument(Sender: TObject);
+begin
+    StatusBar1.SimpleText := 'Creating new text document ...';
+    try
+        if Sample.CreateDocument(false) then
+        begin
+            Button4.Enabled := true;
+            Button5.Enabled := true;
+            Button6.Enabled := true;
+        end;
+        StatusBar1.SimpleText := 'Ready';
+    except
+        StatusBar1.SimpleText := 'Error';
+    end;
+end;
+
+procedure TOKBottomDlg.OnInsertTable(Sender: TObject);
+begin
+    try
+        StatusBar1.SimpleText := 'Inserting Table ...';
+        Sample.InsertTable(Edit2.Text, Edit1.Text);
+        StatusBar1.SimpleText := 'Ready';
+    except
+        StatusBar1.SimpleText := 'Error';
+    end;
+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.