[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
@@ -213,6 +214,7 @@ 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)

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 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)