summaryrefslogtreecommitdiffstats
path: root/odk/examples/OLE/delphi/InsertTables/SampleUI.pas
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 09:06:44 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-07 09:06:44 +0000
commited5640d8b587fbcfed7dd7967f3de04b37a76f26 (patch)
tree7a5f7c6c9d02226d7471cb3cc8fbbf631b415303 /odk/examples/OLE/delphi/InsertTables/SampleUI.pas
parentInitial commit. (diff)
downloadlibreoffice-ed5640d8b587fbcfed7dd7967f3de04b37a76f26.tar.xz
libreoffice-ed5640d8b587fbcfed7dd7967f3de04b37a76f26.zip
Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'odk/examples/OLE/delphi/InsertTables/SampleUI.pas')
-rw-r--r--odk/examples/OLE/delphi/InsertTables/SampleUI.pas168
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.