anchor.diff:    FDropDownCount  := 8;
     FMargin         := 1;
     FFocusItem      := -1; // nothing is selected
  +  FReadOnly       := False;
     FItems := TStringList.Create;
     FItems.OnChange := @InternalItemsChanged;
     FFont := fpgGetFont('#List');
  
positive.code:     property    Items: TStringList read FItems;    {$Note Make this read/write }
      property    Options: TfpgComboOptions read FOptions write FOptions;
      property    Margin: integer read FMargin write SetMargin default 1;
      property    OnChange: TNotifyEvent read FOnChange write FOnChange;
      property    OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp;
      property    OnDropDown: TNotifyEvent read FOnDropDown write FOnDropDown;
  
negative.code:   Canvas.SetClipRect(r);
  
    if Enabled then
    begin
      if ReadOnly then
        Canvas.SetColor(clWindowBackground)
      else
        Canvas.SetColor(FBackgroundColor);
    end
    else
      Canvas.SetColor(clWindowBackground);
  
  