[DEVELOPMENT ENVIRONMENT]

* NEW: Use a different color for unknown components.

I know the color is fluffy :-p


git-svn-id: svn://localhost/gambas/trunk@3006 867c0c6c-44f3-4631-809d-bfa615b0a4ec

app/src/gambas3/.src/Component/CComponent.class

@@ -29,6 +29,7 @@ Public SortKey As Integer
 'Public User As Boolean
 Public Version As String
 Public Family As String
+Public ThirdParty As Boolean
 
 Public {Library} As Boolean
 Public Path As String
@@ -197,7 +198,7 @@ Static Private Sub InitComponent(sFile As String)
   Dim aChange As String[]
   Dim aStr As String[]
   Dim sChange As String
-
+  
   sPath = Component.Path &/ sFile 
   
   Try hFic = Open sPath
@@ -213,8 +214,9 @@ Static Private Sub InitComponent(sFile As String)
 
     hComponent = New CComponent
     hComponent.Key = File.BaseName(sFile)
+    hComponent.ThirdParty = Not $cName.Exist(hComponent.key)
     hComponent.Name = $cName[hComponent.Key]
-
+   
     While Not Eof(hFic)
 
       Line Input #hFic, sLig

app/src/gambas3/.src/Component/CComponentBox.class

@@ -58,7 +58,12 @@ Public Sub _new(hComp As CComponent, bDark As Boolean)
   $sKey = hComp.Key
   
   H = 3 * Desktop.Scale
-  If bDark Then Me.Background = Color.LightBackground
+  
+  If hComp.ThirdParty Then
+    Me.Background = IIf(bDark, Color.Lighter(Color.Pink), Color.Lighter(Color.Lighter(Color.Pink)))
+  Else
+    If bDark Then Me.Background = Color.LightBackground
+  Endif
   
   panVBox = New VBox(Me)