Update FWorkspace.class
This commit is contained in:
parent
523effc9fe
commit
2c6944c285
1 changed files with 19 additions and 2 deletions
|
@ -1,4 +1,5 @@
|
||||||
' Gambas class file
|
' Gambas class file
|
||||||
|
Property CloseButton As Boolean
|
||||||
|
|
||||||
Private $aWindow As New CWindow[]
|
Private $aWindow As New CWindow[]
|
||||||
Private $hCurrent As CWindow
|
Private $hCurrent As CWindow
|
||||||
|
@ -14,7 +15,7 @@ Private $bNoClose As Boolean
|
||||||
Private $iLock As Integer
|
Private $iLock As Integer
|
||||||
Private $bBorder As Boolean = True
|
Private $bBorder As Boolean = True
|
||||||
Private $nDetach As Integer
|
Private $nDetach As Integer
|
||||||
|
Private $CloseButton As Boolean = True
|
||||||
Private Enum CLOSE_ALL, CLOSE_OTHER, CLOSE_RIGHT
|
Private Enum CLOSE_ALL, CLOSE_OTHER, CLOSE_RIGHT
|
||||||
Private $hImage As Image
|
Private $hImage As Image
|
||||||
|
|
||||||
|
@ -533,7 +534,11 @@ Public Sub UpdateSize()
|
||||||
|
|
||||||
Endif
|
Endif
|
||||||
|
|
||||||
tabWorkspace.CloseButton = $aWindow.Count >= 1
|
If $CloseButton Then
|
||||||
|
tabWorkspace.CloseButton = $aWindow.Count >= 1
|
||||||
|
Else
|
||||||
|
tabWorkspace.CloseButton = False
|
||||||
|
Endif
|
||||||
|
|
||||||
'DEBUG tabWorkspace.Visible;; "Index =";; tabWorkspace.Index;; "ClientY =";; tabWorkspace.ClientY
|
'DEBUG tabWorkspace.Visible;; "Index =";; tabWorkspace.Index;; "ClientY =";; tabWorkspace.ClientY
|
||||||
|
|
||||||
|
@ -1043,3 +1048,15 @@ Public Sub IsCloseWithMouse() As Boolean
|
||||||
Return Not tabWorkspace.Closable
|
Return Not tabWorkspace.Closable
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
|
Private Function CloseButton_Read() As Boolean
|
||||||
|
|
||||||
|
Return $CloseButton
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Private Sub CloseButton_Write(Value As Boolean)
|
||||||
|
|
||||||
|
$CloseButton = Value
|
||||||
|
|
||||||
|
End
|
||||||
|
|
Loading…
Reference in a new issue