anchor.diff:    inherited Create(AOwner);
     FBackgroundColor  := clBoxColor;
     FTextColor        := Parent.TextColor;
  -  FWidth            := 120;
  -  FHeight           := Font.Height + (2*FMargin);
     FFocusable        := True;
   
     CalculateInternalButtonRect;
  
positive.code:   published
      property    AcceptDrops;
      property    Align;
      property    BackgroundColor default clBoxColor;
      property    DropDownCount;
      property    Enabled;
  
negative.code: begin
    FFont.Free;
    FFont := fpgGetFont(AValue);
    if FAutoSize then
    begin
      Height := FFont.Height + (FMargin * 2);
    end;
    RePaint;
  end;
  
  