anchor.diff:      function StyleStored: Boolean;
   
     protected
  -    procedure WMKillFocus(Var Message: TWMSetFocus); message WM_KILLFOCUS;
  -    procedure WMSetFocus(Var Message: TWMSetFocus); message WM_SETFOCUS;
  -    procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
  +    procedure WMKillFocus(Var Message: TLMSetFocus); message LM_KILLFOCUS;
  +    procedure WMSetFocus(Var Message: TLMSetFocus); message LM_SETFOCUS;
  +    procedure WMKeyDown(var Message: TLMKeyDown); message LM_KEYDOWN;
       procedure MouseDown(Button: TMouseButton; Shift:TShiftState;
         X,Y: Integer);override;
       procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;
  
positive.code:     end;
  end;
  
  procedure TPSCCustomColorEdit.WMKillFocus(var Message: TWMSetFocus);
  begin
    Invalidate;
  end;
  
  {-----------------------------------------}
  
  procedure TPSCCustomColorEdit.WMSetFocus(var Message: TWMSetFocus);
  begin
    Invalidate;
  end;
  
negative.code:   Buttons,
    ImgList,
    StdCtrls,
    comctrls,
    sysutils,
    Lmessages,
    classes,
    controls,
    LCLIntf,
    LCLType,
    forms,
  
    myla_system,
  