anchor.diff:    public
       Constructor Create(Collection: TCollection); override;
   
  -    Procedure WindowProc(Var Message: TMessage);
  +    Procedure WindowProc(Var Message: TLMessage);
     End;
   
     TPopupHooks = Class(TPSCNamedItems)
  
positive.code:       End;
      ACanvas.Brush.Color := color;
      DestDC := ACanvas.Handle;
      Windows.SetTextColor(DestDC,clPSCWhite);
      Windows.SetBkColor(DestDC,clPSCBlack);
      BitBlt(DestDC,X + disp,Y + disp,ImageList.Width,ImageList.Height,SrcDC,
        0,0,ROP_DSPDxax);
    End;
  
negative.code:   Buttons,
    ImgList,
    StdCtrls,
    ComCtrls,
    sysutils,
  
    lmessages,
    classes,
    controls,
    LCLIntf,
    LCLType,
    LCLProc,
    forms,
  
    myla_system,
  