anchor.diff:  
   procedure PrintBitmap(Canvas: TCanvas; X, Y, W, H: Integer; Bitmap: TBitmap);
   {Y relative to top of display here}
  -
  +{$ifdef LCL}
  +begin
  +  Canvas.StretchDraw(Rect(X, Y, X + W, Y + H), Bitmap);
  +{$else}
     function Allocate(Size: Integer): AllocRec;
     begin
       Result := AllocRec.Create;
  
positive.code:     AR.Free;
    end;
  
  {$ifdef LCL}
  {$else}
  var
    OldPal: HPalette;
    DC: HDC;
  
negative.code: {
  Version   11.3
  Copyright (c) 1995-2008 by L. David Baldwin
  Copyright (c) 2008-2012 by HtmlViewer Team
  
  Permission is hereby granted, free of charge, to any person obtaining a copy of
  this software and associated documentation files (the "Software"), to deal in
  