fdabd0c98c
* NEW: The gb.qte component has been removed. [DEVELOPMENT ENVIRONMENT] * NEW: Support for modules in project file deletion. [INTERPRETER] * BUG: Format$() now checks its second argument correctly when it is an integer. * BUG: Exported classes for components written in Gambas are now correctly loaded when inheritance between them is used. [GB.DRAW] * BUG: Some properties of the Draw class didn't correctly check that a drawing device was opened. [GB.FORM.MDI] * NEW: The Toolbar control now raises a Configure event when its configuration has changed. [GB.GTK] * BUG: Fix Draw.Picture() and Draw.Image() on transparent pictures. * BUG: Correctly initialize the foreground and background colors at Draw.Begin(). [GB.QT] * BUG: Fix Draw.Picture() and Draw.Image() on transparent pictures. [GB.QTE] * NEW: This component has been removed. git-svn-id: svn://localhost/gambas/trunk@1939 867c0c6c-44f3-4631-809d-bfa615b0a4ec
144 lines
2.1 KiB
Plaintext
144 lines
2.1 KiB
Plaintext
' Gambas class file
|
|
|
|
Export
|
|
|
|
Inherits UserContainer
|
|
|
|
Public Const _Properties As String = "*,-Arrangement,-Padding,-Spacing,Key,Text,Action,Orientation{ToolBar.Horizontal;Vertical},AutoResize=True"
|
|
Public Const _Arrangement As Integer = 3
|
|
Public Const _DefaultSize As String = "36,3"
|
|
|
|
Public Const Horizontal As Integer = 0
|
|
Public Const Vertical As Integer = 1
|
|
|
|
Event Configure
|
|
|
|
'PROPERTY READ Arrangement AS Integer
|
|
'PROPERTY READ AutoResize AS Boolean
|
|
Property Design As Boolean
|
|
'Property Hidden As Boolean
|
|
'PROPERTY Action AS String
|
|
Property Orientation As Integer
|
|
Property AutoResize As Boolean
|
|
Property Key As String
|
|
Property Text As String
|
|
|
|
Private $hForm As FToolBar
|
|
|
|
Public Sub _new()
|
|
|
|
$hForm = New FToolBar(Me)
|
|
Me._Container = $hForm.GetContainer()
|
|
Super.AutoResize = True
|
|
|
|
End
|
|
|
|
Public Sub Configure()
|
|
|
|
Action.ConfigureToolbar(Me)
|
|
|
|
End
|
|
|
|
' PRIVATE FUNCTION Arrangement_Read() AS Integer
|
|
'
|
|
' RETURN Arrange.LeftRight
|
|
'
|
|
' END
|
|
'
|
|
' PRIVATE FUNCTION AutoResize_Read() AS Boolean
|
|
'
|
|
' RETURN TRUE
|
|
'
|
|
' END
|
|
|
|
Private Function Design_Read() As Boolean
|
|
|
|
Return Super.Design
|
|
|
|
End
|
|
|
|
Private Sub Design_Write(Value As Boolean)
|
|
|
|
Super.Design = Value
|
|
If Value Then $hForm.SetDesign()
|
|
|
|
End
|
|
|
|
Private Function Hidden_Read() As Boolean
|
|
|
|
Return $hForm.IsHidden()
|
|
|
|
End
|
|
|
|
Private Sub Hidden_Write(Value As Boolean)
|
|
|
|
$hForm.SetHidden(Value)
|
|
|
|
End
|
|
|
|
Private Function Action_Read() As String
|
|
|
|
Return Action.Get(Me)
|
|
|
|
End
|
|
|
|
Private Sub Action_Write(Value As String)
|
|
|
|
Action.Register(Me, Value)
|
|
|
|
End
|
|
|
|
Private Function Orientation_Read() As Integer
|
|
|
|
Return If($hForm.IsVertical(), 1, 0)
|
|
|
|
End
|
|
|
|
Private Sub Orientation_Write(Value As Integer)
|
|
|
|
$hForm.SetVertical(Value)
|
|
|
|
End
|
|
|
|
Private Function AutoResize_Read() As Boolean
|
|
|
|
Return $hForm.IsAutoResize()
|
|
|
|
End
|
|
|
|
Private Sub AutoResize_Write(Value As Boolean)
|
|
|
|
$hForm.SetAutoResize(Value)
|
|
|
|
End
|
|
|
|
Private Function Key_Read() As String
|
|
|
|
Return $hForm.ToolbarKey
|
|
|
|
End
|
|
|
|
Private Sub Key_Write(Value As String)
|
|
|
|
$hForm.SetKey(Value)
|
|
|
|
End
|
|
|
|
Private Function Text_Read() As String
|
|
|
|
Return $hForm.Text
|
|
|
|
End
|
|
|
|
Private Sub Text_Write(Value As String)
|
|
|
|
$hForm.SetText(Value)
|
|
|
|
End
|
|
|
|
Public Sub _RaiseConfigure()
|
|
|
|
Raise Configure
|
|
|
|
End
|