anchor.diff:        Exit; //==>
       // searching for the appropriate character position
       hh := FHeaderHeight;
  -
  -    if (y < FMargin+hh) then  // inside Header row
  +    borders := fpgStyle.GetControlFrameBorders;
  +
  +    if (y < (borders.Top+hh)) then  // inside Header row
       begin
         {$IFDEF DEBUG} Writeln('header click...'); {$ENDIF}
   
  -      cLeft := FMargin; // column starting point
  +      cLeft := borders.Left; // column starting point
         if go_SmoothScroll in FOptions then
         begin
           if FHScrollBar.Visible then
  
positive.code:   begin
      colresize := False;
      hh := FHeaderHeight;
  
      cLeft := FMargin; // column starting point
      if go_SmoothScroll in FOptions then
      begin
        if FHScrollBar.Visible then
  
negative.code:   c: integer;
    n: integer;
    cw: integer;
    borders: TRect;
  begin
    inherited HandleLMouseUp(x, y, shiftstate);
  
  