Thanks Terry I used that
and it works
On Jul 18, 2006, at 4:18 PM, Terry Ford wrote:
On Jul 18, 2006, at 11:40 AM, CV wrote:
On Jul 18, 2006, at 5:27 AM, Phil M wrote:
On Jul 17, 2006, at 11:56 PM, ISS WebMaster wrote:
Is it possible to use a palette window but have no title bar?
It is called a "Plain Box".
The Plain Box is modal and nonmovable. On the Mac, a floating
window with ProcID 1104 provides a nonmodal, nonmovable window. If
those configurations don't work for you, check out the MBS plugin
or Windows Functionality Suite.
On Jul 18, 2006, at 11:59 AM, Sven E Olsson wrote:
This should be Floating (frontmost) and No Title bar Example
http://www.xhtmlsoft.com/rb/Floatingnotitlebar.zip
Hi Brian,
First of all, it really helps if a subject is included in the
original message. :)
Sven's example uses a MacProcID of 2 which makes a window with a
black border. For one without a border, use 1104 as Jack (CV)s
suggested.
This is fine if you don't want it movable which is what the Title
bar is best at. It's not that hard to make it movable though. Just
add two properties and some code for the MouseDown and MouseDrag
events in the window or a control.
Properties:
FirstX As Integer
FirstY as Integer
MouseDown Event:
[Function MouseDown(X As Integer, Y As Integer) As Boolean]
// This is the Drag routine.
// Save Initial Coordinates
FirstX = X
FirstY = Y
// Start Drag
Return True
[End Function]
MouseDrag Event:
[Sub MouseDrag(X As Integer, Y As Integer)]
// Drag Window
Left = Left + (x - FirstX)
Top = Top + (y - FirstY)
// Keep Window onscreen
If Top<Screen(0).AvailableTop+2 Then Top=Screen(0).AvailableTop+2
If Left<Screen(0).AvailableLeft Then Left=Screen(0).AvailableLeft+2
If (Top+Height)>Screen(0).AvailableHeight Then Top=Screen
(0).AvailableHeight-Height//+2
If (Left+Width)>Screen(0).AvailableWidth Then Left=Screen
(0).AvailableWidth-Width-2
[End Sub]
Terry
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
