From 44f544e4cc296a87b6d97c08dc1d02f99d9c1d81 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Tue, 21 Jun 2016 21:11:57 +0000 Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Fix virtual controls management like HttpClient, FtpClient, and so on. git-svn-id: svn://localhost/gambas/trunk@7804 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- app/src/gambas3/.src/Component/CClassInfo.class | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/app/src/gambas3/.src/Component/CClassInfo.class b/app/src/gambas3/.src/Component/CClassInfo.class index ee78832b4..019cdd34d 100644 --- a/app/src/gambas3/.src/Component/CClassInfo.class +++ b/app/src/gambas3/.src/Component/CClassInfo.class @@ -10,6 +10,7 @@ Public DefaultEvent As String Public Events As String[] Public PropertyList As String[] Public Properties As Collection +Public Control As Boolean Public VirtualControl As Boolean Public DrawWith As String Public DefaultWidth As Short @@ -132,6 +133,8 @@ Public Sub InitControl() Dim bTranslate As Boolean 'DEBUG Component;; Name + + Control = True hSym = Symbols["_Family"] If hSym Then Family = hSym.Value @@ -1018,7 +1021,8 @@ End Public Sub ConstructorNeedParent() As Boolean Dim hClass As CClassInfo - + + If Not Control Then Return False If Not VirtualControl Then Return True If Not Parent Then Return False