anchor.diff:  begin
     Result := fVisible and ((Parent = nil) or Parent.Visible);
   end;
  +
  +
  +function TKMControl.GetIsPainted: Boolean;
  +begin
  +  Result := GetVisible;
  +end;
  +
   
   
   procedure TKMControl.SetEnabled(aValue: Boolean);
  
positive.code:     property Anchors: TKMAnchorsSet read fAnchors write SetAnchors;
      property Enabled: Boolean read fEnabled write SetEnabled;
      property Visible: Boolean read GetVisible write SetVisible;
      property IsFocused: Boolean read GetIsFocused;
      property IsClickable: Boolean read GetIsClickable;  // Control considered 'Clickabale' if it is Visible and Enabled
      property ControlIndex: Integer read fControlIndex;
  
negative.code:   Highlight := False;
    HighlightOnMouseOver := False;
    HighlightCoef := 0.4;
  end;
  
  
  function TKMImage.GetIsPainted: Boolean;
  begin
    Result := inherited and (TexID <> 0);
  end;
  
  
  