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

[DEVELOPMENT ENVIRONMENT]

Browse source 
* BUG: Fix virtual controls management like HttpClient, FtpClient, and so on.


git-svn-id: svn://localhost/gambas/trunk@7804 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2016-06-21 21:11:57 +00:00
parent 82c20cf083
commit 44f544e4cc
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
app/src/gambas3/.src/Component/CClassInfo.class
View file

@ -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
@ -133,6 +134,8 @@ Public Sub InitControl()
'DEBUG Component;; Name
Control = True
hSym = Symbols["_Family"]
If hSym Then Family = hSym.Value
@ -1019,6 +1022,7 @@ 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