dysmas
Power User
Joined: 14 Apr 2007
Posts: 59
Location: Grenoble, France
|
 Posted: Tue Apr 24, 2007 2:47 am Post subject: Non modal dialogs in OO : a very simple solution |
 |
|
If anyone is interested in non-modal dialogs (a dialog which lets you interact with your document, select text, modify anything) see the answer to that question in the thread :
http://www.oooforum.org/forum/viewtopic.phtml?t=14095
The main point is :
Here is the code necessary to display a non-modal dialog Dialog1 of the library "modaless", provided the Dialog1 has a toggle button which name is CloseButton, to close the dialog.
=========================
Sub dialog_modal()
dim dlg as object
dim n as integer
dlg = loadDialog ("modaless","Dialog1")
dlg.visible = true
do
n = dlg.model.CloseButton.State
if n = 1 then exit do
wait (100)
loop
exit sub
That's all guys. Enjoy.
_________________
Dysmas |
|
