anchor.diff:  constructor TKMPercentBar.Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aFont:TKMFont=fnt_Mini);
   begin
     Inherited Create(aParent, aLeft,aTop,aWidth,aHeight);
  -  Font := aFont;
  +  fFont := aFont;
     FontColor := $FFFFFFFF;
     TextAlign := taCenter;
   end;
  
positive.code: 
  
  //We know we were clicked and now we can decide what to do
  //e.g. send
  procedure TKMListHeader.DoClick(X,Y: Integer; Shift: TShiftState; Button: TMouseButton);
  var i, ColumnIndex: Integer;
  begin
  
negative.code:   {Resource order bar}
    TKMResourceOrderRow = class(TKMControl)
    private
      fOrderAdd: TKMButton;
      fOrderLab: TKMLabel;
      fOrderRem: TKMButton;
      procedure SetEnabled(aValue:boolean); override;
      procedure SetVisible(aValue:boolean); override;
    public
      RX: TRXType;
      TexID: Word;
      Caption: String;
      ResourceCount: Byte;
      OrderCount: Word;
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer);
      property OrderAdd: TKMButton read fOrderAdd; //UI sets and handles OnClickEither itself
      property OrderRem: TKMButton read fOrderRem;
      procedure Paint; override;
    end;
  
  