From 523effc9fe1efe5cf64caf159bdf8620970563ac Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jorge=20Carri=C3=B3n=20Molpeceres?= Date: Mon, 11 Mar 2019 18:30:59 +0000 Subject: [PATCH] Update Workspace.class --- .../gb.form.mdi/.src/Workspace/Workspace.class | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/comp/src/gb.form.mdi/.src/Workspace/Workspace.class b/comp/src/gb.form.mdi/.src/Workspace/Workspace.class index 5dd0b086f..7f8d2d561 100644 --- a/comp/src/gb.form.mdi/.src/Workspace/Workspace.class +++ b/comp/src/gb.form.mdi/.src/Workspace/Workspace.class @@ -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 \ No newline at end of file