anchor.diff:      function GetVerb(Index: Integer): string; override;
       function GetVerbCount: Integer; override;
     end;
  -
  +*)
   {-------------------------------------------}
   
   Function TPSCPickListProp.GetAttributes: TPropertyAttributes;
  
positive.code: End;
  
  {-------------------------------------}
  
  destructor TPSCCustomSectionEditor.Destroy;
  begin
    FColorBoxEditor.Free;
  
negative.code:       case Index of
          0: begin
               FSlot:=TPSCGraphicItem(TPSCCustomSection(FSection.GetInstance).Add);
               //Designer.SelectComponent(FSlot);
               //Designer.InvokeComponentEditor(FSlot);
               Designer.Modified;
             end;
          1: begin
  