How to display a message

HCL Domino Domino Forum
1

Hello Everyone:

I am trying to create a copyright display for our databases. This should display when the user opens the database and be visible for about 30 seconds before automatically closing. I try to do it with a message box but the user will have to click ok to close it and it does not look good. The database is launch to a frameset so I need something that will not block this process.

Any ideas???

Thanks

2

Subject: How to display a message

You can do it using Java.

Here is the Javascript:

import lotus.domino.*;

import java.io.*;

import java.awt.*;

import java.awt.event.*;

import javax.swing.*;

public class ThreadedDialog {

private JFrame parentFrame;              



public void ThreadedDialog(String title, String msg) { 

	parentFrame = new JFrame(title); 

	parentFrame.setSize(500, 150);

	parentFrame.setLocation(200, 200); 

	String[] poList = msg.split("\r\n|\r|\n");

	JPanel labelPane = new JPanel(new GridLayout(0, 1));

	for (int i = 0; i < poList.length; i++) {

		JLabel label = new JLabel("     " + poList[i]);

		labelPane.add(label);

	}

	parentFrame.getContentPane().add(labelPane, BorderLayout.CENTER);

}



public void Layout(int top, int left, int width, int height) {

	parentFrame.setLocation(top, left);

	parentFrame.setSize(width, height);

}

	

public void Show() {

	parentFrame.setVisible(true);

}



public void Dispose() {

	parentFrame.hide();

	parentFrame.dispose();

}

}

And here is the contents of the declarations section of a Lotusscript envelop:

Class DialogClass

jobject As JAVAOBJECT



Sub New(title As String, msg As String)

	Dim jsession As JAVASESSION

	Dim jclass As JAVACLASS

	

	Set jsession = New JAVASESSION()

	Set jclass = jsession.GetClass("ThreadedDialog")

	Set jobject = jclass.CreateObject

	Call jobject.ThreadedDialog(title, msg)

End Sub



Sub Layout(t As Integer, l As Integer, w As Integer, h As Integer)

’ Call jobject.Layout(t, l, w, h)

End Sub



Sub Show

	Call jobject.Show()

End Sub



Sub Delete

	Call jobject.Dispose()

End Sub

End Class