6ca5126595
* NEW: Little changes in the hall of fame animation. [INTERPRETER] * NEW: Do not warn against circular references when the program aborts because of an error. [COMPILER] * NEW: The error message displayed when you try to return a value in a procedure is more explicit now. [GB.FORM.MDI] * BUG: When a MDI child window is activated, the focus is set on it unless one of its child control already has the focus. [GB.GTK] * BUG: Fix Application.Busy when forms are embedded. * BUG: ComboBox does not raise the Click event anymore when its Text property changes. * BUG: Fix the management of Window Activate and Deactivate events. * BUG: Fix the management of GotFocus and LostFocus events. * BUG: SetFocus is correctly honored when used inside the Open event handler of an embedded form. * BUG: Desktop.Scale is now computed the same way as in gb.qt. [GB.QT] * BUG: SetFocus is correctly honored when used inside the Open event handler of an embedded form. git-svn-id: svn://localhost/gambas/trunk@1436 867c0c6c-44f3-4631-809d-bfa615b0a4ec
87 lines
1.1 KiB
Text
87 lines
1.1 KiB
Text
' Gambas class file
|
|
|
|
Export
|
|
|
|
Inherits UserContainer
|
|
|
|
Public Const _Properties As String = "*,Text,TextFont,Animated,Hidden"
|
|
Public Const _DefaultEvent As String = "Show"
|
|
|
|
Event Show
|
|
Event Hide
|
|
|
|
Property Hidden As Boolean
|
|
Property Text As String
|
|
Property TextFont As Font
|
|
Property Animated As Boolean
|
|
|
|
Private frmExpander As FExpander
|
|
|
|
Public Sub _new()
|
|
|
|
frmExpander = New FExpander(Me)
|
|
Me._Container = frmExpander.GetContainer()
|
|
|
|
End
|
|
|
|
Public Sub _Show()
|
|
|
|
Raise Show
|
|
|
|
End
|
|
|
|
Public Sub _Hide()
|
|
|
|
Raise Hide
|
|
|
|
End
|
|
|
|
|
|
Private Function Hidden_Read() As Boolean
|
|
|
|
Return frmExpander.GetHidden()
|
|
|
|
End
|
|
|
|
Private Sub Hidden_Write(Value As Boolean)
|
|
|
|
frmExpander.SetHidden(Value)
|
|
|
|
End
|
|
|
|
Private Function Text_Read() As String
|
|
|
|
Return frmExpander.GetText()
|
|
|
|
End
|
|
|
|
Private Sub Text_Write(Value As String)
|
|
|
|
frmExpander.SetText(Value)
|
|
|
|
End
|
|
|
|
Private Function TextFont_Read() As Font
|
|
|
|
Return frmExpander.GetFont()
|
|
|
|
End
|
|
|
|
Private Sub TextFont_Write(Value As Font)
|
|
|
|
frmExpander.SetFont(Value)
|
|
|
|
End
|
|
|
|
Private Function Animated_Read() As Boolean
|
|
|
|
Return frmExpander.GetAnimated()
|
|
|
|
End
|
|
|
|
Private Sub Animated_Write(Value As Boolean)
|
|
|
|
frmExpander.SetAnimated(Value)
|
|
|
|
|
|
End
|