anchor.diff:    ErrorBitMapMask := TBitmap.Create;
   {$ifdef LCL}
     {$I htmlun2.lrs}
  -  DefBitMap.LoadFromLazarusResource('ErrBitmap');
  -  ErrorBitMap.LoadFromLazarusResource('DefaultBitmap');
  -  ErrorBitMapMask.LoadFromLazarusResource('ErrBitmapMask');
  -  Screen.Cursors[HandCursor] := LoadCursorFromLazarusResource('Hand_Cursor');
  -  Screen.Cursors[UpDownCursor] := LoadCursorFromLazarusResource('UPDOWNCURSOR');
  -  Screen.Cursors[UpOnlyCursor] := LoadCursorFromLazarusResource('UPONLYCURSOR');
  -  Screen.Cursors[DownOnlyCursor] := LoadCursorFromLazarusResource('DOWNONLYCURSOR');
   {$else}
     {$R Html32.res}
  -  DefBitMap.Handle := LoadBitmap(HInstance, MakeIntResource(DefaultBitmap));
  -  ErrorBitMap.Handle := LoadBitmap(HInstance, MakeIntResource(ErrBitmap));
  -  ErrorBitMapMask.Handle := LoadBitmap(HInstance, MakeIntResource(ErrBitmapMask));
  -  Screen.Cursors[HandCursor] := LoadCursor(HInstance, MakeIntResource(Hand_Cursor));
  -  Screen.Cursors[UpDownCursor] := LoadCursor(HInstance, 'UPDOWNCURSOR');
  -  Screen.Cursors[UpOnlyCursor] := LoadCursor(HInstance, 'UPONLYCURSOR');
  -  Screen.Cursors[DownOnlyCursor] := LoadCursor(HInstance, 'DOWNONLYCURSOR');
   {$endif}
  +  htLoadBitmap(DefBitMap, DefaultBitmap);
  +  htLoadBitmap(ErrorBitMap, ErrBitmap);
  +  htLoadBitmap(ErrorBitMapMask, ErrBitmapMask);
  +  Screen.Cursors[UpDownCursor] := htLoadCursor('UPDOWNCURSOR');
  +  Screen.Cursors[UpOnlyCursor] := htLoadCursor('UPONLYCURSOR');
  +  Screen.Cursors[DownOnlyCursor] := htLoadCursor('DOWNONLYCURSOR');
     WaitStream := TMemoryStream.Create;
     ErrorStream := TMemoryStream.Create;
   
  
positive.code: end;
  
  {$ifdef LCL}
  {$else}
  const
    DefaultBitmap = 1002;
    ErrBitmap = 1001;
    ErrBitmapMask = 1005;
    Hand_Cursor = 1003;
    ThickIBeam_Cursor = 1006;
  {$endif}
  
  { TIDObject }
  
negative.code: const
    VersionNo = '11.2';
    MaxHScroll = 6000; {max horizontal display in pixels}
    HandCursor = crHandPoint; //10101;
    OldThickIBeamCursor = 2;
    UpDownCursor = 10103;
    UpOnlyCursor = 10104;
  