anchor.diff:  {----------------PrintBitmap}
   
   type
  -  AllocRec = class(TObject)
  +  ThtAllocRec = class(TObject)
  +  public
       Ptr: Pointer;
       ASize: Integer;
       AHandle: THandle;
  
positive.code: procedure PrintBitmap(Canvas: TCanvas; X, Y, W, H: Integer; Bitmap: TBitmap);
  {Y relative to top of display here}
  
    function Allocate(Size: Integer): AllocRec;
    begin
      Result := AllocRec.Create;
      with Result do
      begin
        ASize := Size;
  
negative.code:   OldPal: HPalette;
    DC: HDC;
    Info: PBitmapInfo;
    Image: ThtAllocRec;
    ImageSize: DWord;
    InfoSize: DWord;
  {$endif}
  