anchor.diff:      function    GetHint: TfpgString; virtual;
       procedure   SetHint(const AValue: TfpgString); virtual;
       procedure   DoUpdateWindowPosition; override;
  -    procedure   DoAlign(AAlign: TAlign);
  +    procedure   DoAlignment;
       procedure   DoResize;
       procedure   DoShowHint(var AHint: TfpgString);
       procedure   HandlePaint; virtual;
  
positive.code:   dy: integer;
    dw: integer;
    dh: integer;
  begin
    if (csLoading in ComponentState) then
      Exit;  //==>
  //  writeln('HandleAlignments - ', Classname);
    FAlignRect := GetClientRect;
  
    DoAlign(alTop);
    DoAlign(alBottom);
    DoAlign(alLeft);
    DoAlign(alRight);
    DoAlign(alClient);
  
    // handle anchors finally for alNone
    for n := 0 to ComponentCount - 1 do
  
negative.code:     property    Focusable: boolean read FFocusable write FFocusable default False;
      property    Focused: boolean read FFocused write FFocused default False;
      property    Anchors: TAnchors read FAnchors write FAnchors default [anLeft, anTop];
      property    Align: TAlign read FAlign write SetAlign default alNone;
      property    Hint: TfpgString read GetHint write SetHint;
      property    ShowHint: boolean read FShowHint write SetShowHint stored IsShowHintStored;
      property    ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True;
  