Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Favorite Enhancement
Message
 
General information
Forum:
Visual FoxPro
Category:
Visual FoxPro Beta
Miscellaneous
Thread ID:
00910115
Message ID:
00912335
Views:
25
Del,

It's a window that slides off the screen when you are not using it, and slides back on when you do something like hover the mouse over the little grip it leaves at the edge of the screen.

A rudimentary one:

**************************************************
*-- Form: form1 (c:\temp\flyout.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 06/10/04 12:43:06 PM
*
DEFINE CLASS form1 AS form


DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
Caption = "click the form to see me fly", ;
Height = 17, ;
Left = 22, ;
Top = 26, ;
Width = 146, ;
Name = "Label1"


PROCEDURE Click
if ( this.Left < sysmetric( 1 ) - 30 )
this.Left = sysmetric(1) - 20
else
this.Left = sysmetric(1) - this.Width - 5
endif
ENDPROC


PROCEDURE Init
this.Left = sysmetric(1) - this.Width
ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************

>Not that I want to be annoyed, but what is a flyout?
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Previous
Reply
Map
View

Click here to load this message in the networking platform