anchor.diff:  interface
   
   uses
  -  Classes, windows, Controls, Graphics, Forms, messages, pngimage;
  +  Classes, windows, Controls, Graphics, Forms, messages, pngimage, Types;
   
   const
     WM_NCUAHDRAWCAPTION = $00AE;
  +
  +  CKM_ADD             = WM_USER + 1;  // ӱλ
   
   type
     TFormButtonKind = (fbkMin, fbkMax, fbkRestore, fbkClose, fbkHelp);
     TSkinIndicator = (siInactive, siHover, siPressed, siSelected, siHoverSelected);
  +
  +  TFormCaptionPlugin = class
  +
  +  end;
  +
  +  TcpToolbar = class(TFormCaptionPlugin)
  +
  +  end;
  +
   
     TskForm = class
     private
  
positive.code:   SIZE_FRAME: TRect     = (Left: 4; Top: 28; Right: 5; Bottom: 5); // ߿ĳߴ
    SPACE_AREA            = 3;          // ֮
    SIZE_RESICON          = 16;         // ԴͼĬϳߴ
  
  
  function BuildRect(L, T, W, H: Integer): TRect; inline;
  
negative.code:     property Form: TCustomForm read GetForm;
    end;
  
  
  implementation
  
  {$R MySkin.RES}
  
  type
    TacWinControl = class(TWinControl);
  
    Res = class
      class procedure LoadGraphic(const AName: string; AGraphic: TGraphic);
      class procedure LoadBitmap(const AName: string; AGraphic: TBitmap);
  