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

Update Workspace.class

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

15
comp/src/gb.form.mdi/.src/Workspace/Workspace.class
View file

@ -4,7 +4,7 @@ Export
Inherits UserControl
Public Const _Properties As String = "*,Orientation{Align.Top;Bottom}=Top,Image,Border=True"
Public Const _Properties As String = "*,Orientation{Align.Top;Bottom}=Top,Image,Border=True,CloseButton=True"
Public Const _DefaultEvent As String = "Activate"
Public Const _Group As String = "Special"
@ -24,6 +24,7 @@ Property Border As Boolean
Property Image As Image
Property Picture As Picture
Property CloseWithMouse As Boolean
Property CloseButton As Boolean ''if false the close all tabs button is not shown
Static Private $bPictureWarning As Boolean
@ -260,3 +261,15 @@ Private Sub CloseWithMouse_Write(Value As Boolean)
$hWorkspace.SetCloseWithMouse(Value)
End
Private Function CloseButton_Read() As Boolean
Return $hWorkspace.CloseButton
End
Private Sub CloseButton_Write(Value As Boolean)
$hWorkspace.CloseButton = Value
End