luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update FWorkspace.class

Browse source
This commit is contained in:
Jorge Carrión Molpeceres 2019-03-11 18:34:11 +00:00
parent 523effc9fe
commit 2c6944c285
1 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
comp/src/gb.form.mdi/.src/Workspace/FWorkspace.class
View file

@ -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
If $CloseButton Then
tabWorkspace.CloseButton = $aWindow.Count >= 1 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