anchor.diff:      TextAlign: KAlign;
       Down:boolean;
       HideHighlight:boolean;
  -  protected
  +  public
       constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight,aTexID,aRXid:integer);
  +    procedure MouseUp(X,Y:integer; Shift:TShiftState; Button:TMouseButton); override;
       procedure Paint; override;
  -  public
  -    procedure MouseUp(X,Y:integer; Shift:TShiftState; Button:TMouseButton); override;
   end;
   
   
  
positive.code: { TKMScrollBar }
  constructor TKMScrollBar.Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aScrollAxis:TScrollAxis; aStyle:TButtonStyle);
  begin
    Inherited Create(aLeft, aTop, aWidth, aHeight);
    ParentTo(aParent);
    fScrollAxis := aScrollAxis;
    Position := 1;
    MaxValue := 10;
    MinValue := 1;
    Thumb    := 10;
    Style    := aStyle;
  end;
  
  
  
negative.code:   TextAlign:=kaLeft;
    Down:=false;
    HideHighlight:=false;
  end;
  
  
  