anchor.diff:      end;
   end;
   
  -procedure TPSCCustomColorEdit.WMKillFocus(var Message: TWMSetFocus);
  +procedure TPSCCustomColorEdit.WMKillFocus(var Message: TLMSetFocus);
   begin
     Invalidate;
   end;
   
   {-----------------------------------------}
   
  -procedure TPSCCustomColorEdit.WMSetFocus(var Message: TWMSetFocus);
  +procedure TPSCCustomColorEdit.WMSetFocus(var Message: TLMSetFocus);
   begin
     Invalidate;
   end;
  
positive.code:   Buttons,
    ImgList,
    StdCtrls,
    commctrl,
    sysutils,
    messages,
    classes,
    controls,
    windows,
    forms,
  
    myla_system,
  
negative.code:     function StyleStored: Boolean;
  
    protected
      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;
  