Problems, Bugs, Fixes and Workarounds

Updated October 11, 2006

Versions 9.3 to 9.41

Problem: The CSS property, list-style-image, is not working.

Resolution: In htmlsubs.pas, the TImageObj.SimpleCreate constructor, add the two lines shown so that it reads:

constructor TImageObj.SimpleCreate(MasterList TSectionList; const AnURL string);
begin
inherited Create;
ParentSectionList = MasterList;
ObjAlign = ABottom;   {default}
Source = AnURL;
NoBorder = True;
BorderSize = 0;
SpecHeight = -1;   {<-- add this}
SpecWidth = -1;    {<-- add this}
end;

Version 9.41

Problem: Table headers and footers (<thead>, <tbody>, and <tfoot>) are not being printed.

Resolution: In htmlsubs.pas, the ThtmlTable.Draw method, change the line that reads

    if ParentSectionList.Printing and (ParentSectionList.TableNestLevel = 0)
to:
    if ParentSectionList.Printing and (ParentSectionList.TableNestLevel = 1)

The only change is a 0 to a 1.

Versions 9.27 through 9.4a

Problem: Text files (LoadTextFile and LoadTextStrings) do not scroll horizontally in a correct manner.

Resolution: Download DoText.zip which gives a new DoText procedure to replace the existing one in ReadHTML.pas.

Version 9.4 but not 9.4a

Problem: Undefining NoMetafile so as to display Metafile images results in exceptions. Fixed in Version 9.4a released March 22, 2006.

Resolution: In htmlun2.pas, add the statements to the code as shown:

function GetImageHeight(Image: TGpObject): integer;
begin
if Image is TBitmap then
  Result := TBitmap(Image).Height
else if Image is TGpImage then
  Result := TGpImage(Image).Height
else if Image is TGifImage then
  Result := TGifImage(Image).Height
else if Image is ThtMetaFile then       {<-- add this}
  Result := ThtMetaFile(Image).Height
else Raise(EGDIPlus.Create('Not a TBitmap, TGifImage, of TGpImage'));
end;

function GetImageWidth(Image: TGpObject): integer;
begin
if Image is TBitmap then
  Result := TBitmap(Image).Width
else if Image is TGpImage then
  Result := TGpImage(Image).Width
else if Image is TGifImage then
  Result := TGifImage(Image).Width
else if Image is ThtMetaFile then     {<--add this}
  Result := ThtMetaFile(Image).Width
else Raise(EGDIPlus.Create('Not a TBitmap, TGifImage, of TGpImage'));
end;

Version 9.27 but not 9.27a

Problem: Some tables with complex colspan attributes are not formatted correctly. (Version 9.27 was replaced by 9.27a May 29).

Resolution: In htmlsubs.pas, the ThtmlTable.AddDummyCells method, comment out the line of code which reads:

    ColSpan := IntMin(ColSpan, MaxCells-Cl);  {So ColSpan can't expand number of cols} 

Versions 9.25, Delphi 2005

Problem: Slow response when using WinXP manifest for themes. TFrameViewer may appear transparent when loaded.

Resolution: In htmlview.pas, framview.pas, and frambrwz.pas, locate the code that reads:

{$ifDef ver150}  {Delphi 7}                
ParentBackground := False;     
{$endif}

Add similar code for Delphi 2005 to each of these three locations.

{$ifDef ver170}  {Delphi 2005}                
ParentBackground := False;     
{$endif}                                   

Versions 9.21 and 9.22

Problem: The value, "Normal", is not understood in the line-height stylesheet property and causes a line height of zero.

Resolution: In styleun.pas, the TProperties.GetLineHeight method, change the line that reads:

    Result = LengthConv(Props[LineHeight], True, EmSize, EmSize, ExSize, 0);
to
    Result = LengthConv(Props[LineHeight], True, EmSize, EmSize, ExSize, -1);

Versions 9.2 and 9.21

Problem: In Win98/95/ME, HTML Components version 9.2 and 9.21, table cells which exceed a pixel height of 32000 fail to display or have parts missing. This applies to printing also.

Resolution: Download tallcellpatch.zip which contains a source code patch for this problem.


Versions 9.0 through 9.2b

Problem: There are a number of Win98/95 (and probably ME) printer drivers which can't handle wide character text in Print Preview.

Resolution: Apparently, it's not necessary to use the printer driver for Print Preview, so the following change can be made. In MetaFilePrinter.pas, change the statement in TMetaFilePrinter.NewPage that reads:

NewCanvas  := TMetaFileCanvas.Create(MetaFile, Printer.Handle);

to:

NewCanvas  := TMetaFileCanvas.Create(MetaFile, 0);

Versions 9.03 through 9.2b

Problem: There is an unnecessary 32K restriction on clipboard output in TFrameViewer and TFrameBrowser.

Resolution: In framview.pas, change the TFVBase.CopyToClipboard method to read:

procedure TFVBase.CopyToClipboard;
var
  AViewer: ThtmlViewer;
begin
AViewer := GetActiveViewer;
if Assigned(AViewer) and (AViewer.SelLength <> 0) then
  AViewer.CopyToClipboard;
end;

Version 9.2 and 9.2a

Problem: A rather serious resource leak occurs with font changes when the character set used is other than Default_Charset.

Resolution: Download getfont.zip which contains a revised TProperties.GetFont method.


Version 9.2

Problem: Some nested tables are misformatted.

Resolution: In htmlsubs.pas, the ThtmlTable.GetMinMaxAbs method, comment out the line shown:

{Find the total min and max width}
2:
(*ThisCycle = ParentSectionList.CycleNumber; *)  {<-- this line} 
TotalMaxWidth = 0;  TotalMinWidth = 0;
for I = 0 to NumCols-1 do
  begin

Do this only in the ThtmlTable.GetMinMaxAbs method. This problem will be fixed in an upcoming 9.2a version.


Version 9.12

Problem: If a bad stream or Nil is used as a parameter in a call to ThtmlViewer.InsertImage, an access violation may result.

Resolution: In htmlsubs.pas, change the lines that reads:

  if NeedDoImageStuff and (BGImage.Image <> DefBitmap) then
  
to:

  if NeedDoImageStuff and (BGImage.Image <> DefBitmap)
     and (BGImage.Image <> ErrorBitmap) then 

Change this line in both the TBlock.Draw and TCellObj.Draw methods.


Version 9.11

Problem: Copy To Clipboard does not work in Win95/98/ME.

Resolution: In htmlun2.pas, change the ClipBuffer.Terminate method to read:

function ClipBuffer.Terminate: integer;
begin
Buffer[Leng] := #0;
Result := Leng+1;
if IsWin32Platform then
  Clipboard.AsText := Buffer
else
  CopyToClipboard;
end;

Versions 9.1 and Earlier with Delphi 7 and WinXP Manifest file

Problem: The HTML Components and the new Theme Manager in Delphi 7 disagree resulting in a hang when an XP manifest file is used.

Resolution 1: Compile with one of the other Delphi's if a manifest file is to be used.

Resolution 2: The file Delphi7Theme.txt has patches which will prevent the lockup.


Versions 9.02, 9.03, 9.1

Problem: There is a possible conflict if a TTabControl is used in an application with ThtmlViewer.

Resolution: "TTabControl" was used for another object definition in htmlsubs.pas. Replace all occurances of TTabControl with ThtTabControl in htmlsubs.pas.


Versions 9.02, 9.03

Problem: HTML Documents with many hundreds of links can be very slow in loading.

Resolution: If you expect documents of this sort, turn off link tabbing by defining NoTabLink in htmlcons.inc. Version 9.1 and future versions will have a limit on the number of links where tabbing will be allowed.


Version 9.0, 9.01, 9.02, Windows 2000 only

Problem: Occasional serious mis-formatting of the display or print output. Some output may be off screen. Sensitive to font selection.

Resolution: The Windows 2000 API call, GetTextExtentPoint32W, ocasionally and unpredictably returns results that have no relation to reality. This function may be replaced with the GetTextExtentExPointW function for Windows versions where it is available. Download the source patch file, win2000fix.zip.


Version 9.0, Win95, 98, ME only

Problem: The routines used to convert Unicode text to Upper and Lower case do nothing in Win95, 98, ME. This primarily effects the text search methods, Find and FindEx. These methods will only find text where the case matches.

Resolution: No quick fix. Version 9.01 will be released shortly.


Versions 8.31 - 9.0, Win95, 98, ME only

Problem: Very large animated GIFs cause an OutOfMemory or similar error. This problem can occur if the product of the Gif width and number of frames exceeds about 21,000.

Resolution: The problem is caused by experimental code that was mistakenly left in the source. In htmlgif2.pas, the TMyBitmap.StretchDraw procedure, there is code that reads:

      if MyTransparent then
      begin
        Save := 0;
        MaskDC := 0;
        try
          MaskDC := CreateCompatibleDC(0);  {LDB}  {<-- remove}
          Save := SelectObject(MaskDC, MaskHandle);  {<-- remove}
          TransparentStretchBlt(ACanvas.Handle, Left, Top, Right - Left,
            Bottom - Top, Canvas.Handle,
            SrcRect.Left, SrcRect.Top, SrcRect.Right - SrcRect.Left, SrcRect.Bottom - SrcRect.Top,
            MyMask.Canvas.Handle, SrcRect.Left, SrcRect.Top);   {LDB}
        finally
          if Save <> 0 then SelectObject(MaskDC, Save);
          if MaskDC <> 0 then DeleteDC(MaskDC);
        end;
      end
Remove or comment out the two lines marked "Remove"

Versions 8.1 - 8.3

Problem: ThtmlViewer will not load a file which is open elsewhere.

Resolution: In htmlview.pas, in the LoadFile method, change the line that reads:

      FS := TFileStream.Create(FName, fmOpenRead);
to:
      FS := TFileStream.Create(FName, fmOpenRead or fmShareDenyWrite);     


Version 8.3

Problem: The new OnObjectFocus, OnObjectBlur, and OnObjectChange events were inadvertently omitted from the TFrameBrowser component.

Resolution: In frambrwz.pas, at approximately line 617, add the three lines shown:

  Viewer.OnObjectClick := FOnObjectClick;
  Viewer.OnObjectFocus := FOnObjectFocus;  {<-- add this}
  Viewer.OnObjectBlur := FOnObjectBlur;    {<-- add this} 
  Viewer.OnObjectChange := FOnObjectChange;  {<-- add this}
  Viewer.ServerRoot := ServerRoot;


Version 8.3

Problem: Animated GIFs only animate initially.

Resolution: In htmlsubs.pas, the TSectionList.DoLogic method, add the Self indentifier as shown:

for I := 0 to AGifList.Count-1 do
  with TGifImage(AGifList.Items[I]) do
    begin
    CurrentFrame := 1;   
    Animate := False;    
    if not Self.IsCopy then   {<-- Add the "Self." here}
      Animate := True;
    end;

Delphi 6.01 (Service Pack 1) and all Versions 8.0 thru 8.25a of HTML Components

Problem: Borland "improvements" in version 6.01 don't agree with the HTML Components. Most margin spacings are missing in the display.

Resolution: If you're not using Delphi 6.01, do nothing. For Delphi 6.01, version 8.25b is available now. There is also a patch kit, patch601.zip, available. This contains substitute modules for version 8.25 and instruction for source code changes for earlier versions.


Versions 8.04 to 8.11

Problem: CSS table cell padding-left/top/right/bottom incorrect unless all sides were uniform.

Resolution:In htmlsubs.pas, the TCellList.DrawLogic1 method, change the following:

          if VSize + HzSpace > SpecHt then
            TmpSize = VSize + HzSpace 

to:
          if VSize + VrSpace > SpecHt then
            TmpSize = VSize + VrSpace

Versions 8.04 to 8.11

Problem: Images used as backgrounds in tables sometimes print poorly.

Resolution:The following code occurs in htmlsubs.pas in two locations, the TCellObj.Draw and the TBlock.DrawBlock methods. Change:

        else if NoMask then
          BitBlt(Canvas.Handle, PL, FT, PR-PL, IH, TiledImage.Canvas.Handle, 0, IT, SrcCopy)
        else if HasBackgroundColor then

to:

        else if NoMask then
          PrintBitmap(Canvas, PL, FT, PR-PL, IH, TiledImage.Handle)     
        else if HasBackgroundColor then

in both locations.


Version 8.11

Problem: Word wrapping of lines containing <br> tags is not correct if the wrap must occur before the <br> tag. This tends to show as text overflow in table cells.

Resolution:In htmlsubs.pas, the TSection.FindCountThatFits1 method, change the last statement:

Result := Cnt;
if FoundBreak then
  Inc(Result);
end;

to:

Result := Cnt;
if FoundBreak and (Cnt = Max) then    {<-- change this}
  Inc(Result);
end;

Versions 8.05, 8.1, Win95/98 only

Problem: Non-local fonts cannot be accessed.

Resolution:In StyleUn.pas, the TProperties.AssignCharSet method, change:

begin
{the following makes sure the CharSet is available.  It also translates
 "Default_CharSet" into the actual local character set}
Font := TFont.Create;
Font.CharSet := CS;

to:

begin
{the following makes sure the CharSet is available.  It also translates
 "Default_CharSet" into the actual local character set}
Font := TFont.Create;
Font.Name := 'Arial';     {<--  add this}
Font.CharSet := CS;

Versions 8.05, 8.1, Win95/98 only

Problem: Justified text with only one word on a line will give a divide exception when the mouse passes over.

Resolution: Sorry, no simple solution. Wait for version 8.11


Versions 8.0, 8.1

Problem: Using an ID= attribute in a Frame definition document may cause an exception.

Resolution: In readhtml.pas, add a line that reads:

 MasterList := Nil;

right after the Begin statement in both the FrameParseFile procedure and IsFrameFile function.


Version 8.06

Problem: Some documents with Japanese fonts may have extra characters at the end

Resolution:In ReadHTML.pas, the TranslateCharset function, change the following:

      if not HaveTranslated then
        begin
        N := Buff-PChar(DocS);
        DocS := EUCToShiftJis(DocS);   {translate to ShiftJis}
        Buff := PChar(DocS)+N;     {DocS probably moves}
        BuffEnd := Buff+Length(DocS);     {<-- change this}
        HaveTranslated := True;
        end;
  to:

      if not HaveTranslated then
        begin
        N := Buff-PChar(DocS);
        DocS := EUCToShiftJis(DocS);   {translate to ShiftJis}
        Buff := PChar(DocS)+N;     {DocS probably moves}
        BuffEnd := PChar(Docs)+Length(DocS);  {<-- to this}
        HaveTranslated := True;
        end;

Versions 8.05, 8.06

Problem: A floating image in a table cell with NoWrap set may cause a hang.

Resolution:In htmlsubs.pas, the TSection.MinMaxWidth method, change the following:

    if not PercentWidth then
      if ObjAlign in [ALeft, ARight] then
        Max := Max + ImageWidth + HSpaceL + HSpaceR
      else Min := IntMax(Min, ImageWidth);

to:
    if not PercentWidth then
      if ObjAlign in [ALeft, ARight] then
        begin
        Max := Max + ImageWidth + HSpaceL + HSpaceR;
        Brk[Pos+1] := 'y';    {allow break after floating image} 
        end
      else Min := IntMax(Min, ImageWidth);

Versions 8.05, 8.06 Win95/98

Problem: Justified text crammed into a narrow space causes a GPF.

Resolution: In htmlsubs.pas, the TSection.Draw method, change

        if LR.Extra = 0 then      {<--}
          SetTextJustification(Canvas.Handle, 0, 0)
        else SetTextJustification(Canvas.Handle, LR.Extra, LR.Spaces);

to:

        if LR.Spaces = 0 then      {<--}
          SetTextJustification(Canvas.Handle, 0, 0)
        else SetTextJustification(Canvas.Handle, LR.Extra, LR.Spaces);

Version 8.06

Problem: Some characters of mulibyte fonts are not correct

Resolution: In htmlsubs.pas, the TSection.ProcessText method, change:

  I := Pos(#173, BuffS);  {soft hyphen won't show}
  while I > 0 do
    begin
    Remove(I);
    I := Pos(#173, BuffS);
    end;

to:

if not Multibyte then    {<--}
  begin
  I := Pos(#173, BuffS);  {soft hyphen won't show}
  while I > 0 do
    begin
    Remove(I);
    I := Pos(#173, BuffS);
    end;
  end;

Version 8.05

Problem: Calling TFrameViewer.Clear or TFrameBrowser.Clear can sometimes cause an exception.

Resolution: Add the Assigned test near the end of the TFrameViewer.Clear and TFrameBrowser.Clear methods in framview.pas and frambrwz.pas.

 if Assigned(FViewerList) then {<-- add this}
        FViewerList.Clear;     

Version 8.0 through 8.04

Problem: The <body> attributes are not interpreted when <body> is not the first display tag. This is most apparent when no background image is displayed when <basefont> is used earlier.

Resolution: In the DoBody procedure in readhtml.pas, change the code that reads:

    BodySy:
      begin
      if (BodyBlock.MyCell.Count = 0) and
           (PropStackIndex = 0) then   {make sure we're at beginning}
        begin

to:
    BodySy:
      begin
      if (BodyBlock.MyCell.Count = 0) then   {make sure we're at beginning}
        begin

Version 8.04, Win95 and Win 98 Only

Problem: Occasional GPFs or OutofMemory errors with Print Preview or Printing.

Resolution: In the BitmapToRegion procedure in htmlun2.pas, make two changes.

Change:

    { alloc initial region data }
    maxRects := AllocUnit;
    GetMem(RgnData,SizeOf(TRgnDataHeader) + (SizeOf(TRect) * maxRects));

to:
    { alloc initial region data }
    maxRects := AllocUnit;
    GetMem(RgnData,SizeOf(TRgnDataHeader) + (SizeOf(TRect) * maxRects));
    FillChar(RgnData^, SizeOf(TRgnDataHeader) + (SizeOf(TRect) * maxRects), 0); {<--Add}

Also Change:

       begin
         Inc(maxRects,AllocUnit);
         ReallocMem(RgnData,SizeOf(TRgnDataHeader) + (SizeOf(TRect) * MaxRects));
       end;
to:
       begin
         Inc(maxRects,AllocUnit);
         ReallocMem(RgnData,SizeOf(TRgnDataHeader) + (SizeOf(TRect) * MaxRects));
         pr := @RgnData^.Buffer;    {<-- Add}
         FillChar(pr^[maxRects-AllocUnit], AllocUnit*SizeOf(TRect), 0);   {<-- Add}
       end;


Version 8.0, 8.01

Problem: Transparent images with a height of 1 pixel cause a floating point error when printed or previewed.

Resolution: In the PrintTransparentBitmap2 procedure in htmlun2.pas, change the line that reads:

      YStep := (biHeight-1)/(NewH-1);

to:
      YStep := (biHeight)/(NewH) - 0.000001;   

Version 8.0, 8.01

Problem: An inner nested table displays the background color of the outer table rather than its own.

Resolution: In the ThtmlTable.AddDummyCells method in htmlsubs.pas around line 5388, remove the first statement:

Begin
(*if not ParentSectionList.Printing and not BkGnd and (MyCell.BkGnd) then
  begin    {Transfer any Background colors}
  BkGnd := True;
  BkColor := MyCell.BkColor;
  end; *)     {<-- remove this statement}    

RowCount := Rows.Count;
if not ListsProcessed then

Version 8.0, 8.01

Problem: There are two uninitialized variables in the code for the <pre> tag. This can cause occasional random memory access exceptions.

Resolution: In the DoPreSy procedure in readhtml.pas around line 1621, add the statements:

  begin
  InForm := False;    {<-- add this statement}
  InP := False;       {<-- add this statement}
  S := TokenObj.Create;
  FormBlock := Nil;
  try
    SectionList.Add(Section);

Version 8.0, 8.01

Problem: In some situations, links located in tables cannot be accessed or their sensitive area is not correct.

Resolution: In htmlsubs.pas, the TCellObj.Draw method, add the line shown:

    else PrintTransparentBitmap1(Canvas, X1, Y1, W1, H1, bmImage, bmMask, dcImage, dcMask);
    end;

  Cell.Draw(Canvas, ARect, Wd-PadLeft-PadRight-CellSpacing, X+PadLeft+CellSpacing,
                Y+PadTop+YIndent, 1000, 1000);
  Cell.DrawYY := Y;     {<-- add this statement}
  if Border then

Version 8.0, 8.01

Problem: The OnInclude event sometimes inserts an extra '>' character in the displayed text.

Resolution: In the DoInclude procedure in readhtml.pas near line 409, add the statement:

  while GetAttribute(Sym, SymStr, AttrStr, L) do
    SL.Add(SymStr+'="'+AttrStr+'"');
  DoDashDash;
  Comment := True;    {<-- add this}
  IncludeEvent(CallingObject, S, SL, IBuff, BuffSize);
  if BuffSize > 0 then

Version 8.0

Problem:The BorderColor attribute for the <table> tag was omitted.

Resolution: In the ThtmlTable.Create method in htmlsubs.pas, add two lines:

for I := 0 to Attr.Count-1 do
  with TAttribute(Attr[I]) do
    case Which of
      BorderSy:
        Border := Value > 0;   {Border=0 is no border}
      CellSpacingSy:
        if Value >= 0 then CellSpacing := IntMin(Value, 40);
      CellPaddingSy:
        if Value >= 0 then CellPadding := IntMin(Value, 50);
      BorderColorSy:     {<-- Add this}
        BdrOn := ColorFromString(Name, False, BdrColor); {<-- Add this}
      end;

Versions 7.22 to 7.25

Problem: Rapid repeated clicking on a link sometimes causes exceptions.

Resolution: In htmlview.pas, the HTMLMouseUp method, change the code that reads:

      URLAction;
      {Note:  Self pointer may not be valid after URLAction call (TFrameViewer, HistoryMaxCount=0)}
      end;
    end;
  LeftButtonDown := False;
  end;
end;

to:

      URLAction;
      {Note:  Self pointer may not be valid after URLAction call (TFrameViewer, HistoryMaxCount=0)}
      end;
    end
  else LeftButtonDown := False; 
  end;
end;

Version 7.25 and Earlier, Windows 2000 only

Problem: Occasional serious mis-formatting of the display or print output. Some output may be off screen. Sensitive to font selection.

Resolution: The Windows 2000 API call, GetTextExtentPoint32, ocasionally and unpredictably returns results that have no relation to reality. This function may be replaced with the GetTextExtentExPoint function. The change has no effect in other Windows versions:

In htmlun2.pas, change the call that reads

  GetTextExtentPoint32(DC, P, N, ExtS); 
to:
  GetTextExtentExPoint(DC, P, N, 0, Nil, Nil, ExtS);

In htmlsubs.pas, replace

    GetTextExtentPoint32(Canvas.Handle, Start, I+1, ExtS); 
with:
    GetTextExtentExPoint(Canvas.Handle, Start, I+1, 0, Nil, Nil, ExtS);  

This call appears in two places in htmlsubs.pas.


Version 7.24, TFrameBrowser

Problem: The TFrameBrowser MarginWidth and MarginHeight Properties are set at 0 by default and behave in a confusing manner.

Resolution: In FramBrwz.pas, the TFrameBrowser.Create constructor, add the lines shown:

FPrintMarginTop = 2.0;
FPrintMarginBottom = 2.0;
FMarginWidth = 10;        {<-- add this}
FMarginHeight = 5;        {<-- add this}
{$ifdef ver100_plus}  {Delphi 3,4,5, C++Builder 3, 4}

Version 7.24 and Earlier with Delphi 5

Problem: The HTML Components have a name conflict with the new Delphi 5 TFrame component. This causes problems when using Delphi's TFrame.

Resolution: In the Uses clause of the Delphi Frame file, make sure that "framview" precedes "forms", as:

Uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Readhtml, FramView,
  Forms, Dialogs,  StdCtrls;

Version 7.22 and Earlier, 256 Color Mode in Windows NT

Problem: Images don't display and possible exceptions.

Resolution: In ditherunit.pas, the InitializeBitmapInfoHeader procedure, change the following:

procedure InitializeBitmapInfoHeader(Bitmap: HBITMAP; var Info: TBitmapInfoHeader;
  PixelFormat: TPixelFormat);
// From graphics.pas, "optimized" for our use
var
  DIB           : TDIBSection;
  Bytes         : Integer;
begin
  DIB.dsbmih.biSize := 0;
  Bytes := GetObject(Bitmap, SizeOf(DIB), @DIB);

to:

procedure InitializeBitmapInfoHeader(Bitmap: HBITMAP; var Info: TBitmapInfoHeader;
  PixelFormat: TPixelFormat);
// From graphics.pas, "optimized" for our use
var
  DIB           : TDIBSection;
  Bytes         : Integer;
begin
  FillChar(DIB, sizeof(DIB), 0);  {<--  Change this line } 
  Bytes := GetObject(Bitmap, SizeOf(DIB), @DIB);

Version 7.22

Problem: Active images and mouseover links work only if the ThtmlViewer has the focus.

Resolution: In htmlview.pas, the ThtmlViewer.HTMLMouseMove method, change the following:

if ((NextCursor = HandCursor) or (SectionList.ActiveImage <> Nil))  and
     (PtInRect(ClientRect, Point(X, Y)) and Focused) then
  SetCapture(PaintPanel.Handle)
else if not (ssLeft in Shift) then
    begin
    ReleaseCapture;
    SectionList.CancelActives;
    end;

to:

if ((NextCursor = HandCursor) or (SectionList.ActiveImage <> Nil))  and
     (WindowFromPoint(ClientToScreen(Point(X, Y))) = PaintPanel.Handle) then
  SetCapture(PaintPanel.Handle)
else if not (ssLeft in Shift) then
    begin
    ReleaseCapture;
    SectionList.CancelActives;
    end;


Version 7.21

Problem: The cursor does not change into a hand when over an image with mapped links.

Resolution: In htmlview.pas, the ThtmlViewer.HTMLMouseMove method, change the following:

if ((NextCursor = HandCursor) or (SectionList.ActiveImage <> Nil))  and (PtInRect(ClientRect, Point(X, Y))) then
  SetCapture(PaintPanel.Handle)
else
    begin
    ReleaseCapture;
    SectionList.CancelActives;
    end;

to:

if ((NextCursor = HandCursor) or (SectionList.ActiveImage <> Nil))  and
     (WindowFromPoint(ClientToScreen(Point(X, Y))) = PaintPanel.Handle) then
  SetCapture(PaintPanel.Handle)
else if not (ssLeft in Shift) then
    begin
    ReleaseCapture;
    SectionList.CancelActives;
    end;

Versions 7.0 to 7.21,  32 bit

Problem: In the demo programs, when a Print Preview is followed by a Print from the menu, an access violation occurs. (Printing from the Preview dialog does not have this problem.)

Resolution: In PrintStatusForm.Pas, change both the TPrnStatusForm.DoPreview and TPrnStatusForm.DoPrint methods by adding a line:

Viewer.OnPageEvent := PageEvent;
PostMessage(Handle, Wm_StartPreview, 0, 0);
Abort := ShowModal = mrCancel;
Viewer.OnPageEvent := Nil;      {<-- add this line}
end;

Version 7.2, 7.21,  Delphi 1 version 7.03

Problem: The TFrameViewer.Clear method does not clear.

Resolution: In FramView.Pas, change the TSubFrameSet.Clear method to read as follows:

procedure TSubFrameSet.Clear;
var
  I: integer;
  X: TFrameBase;
begin
for I := List.Count-1 downto 0 do
  begin
  X := List.Items[I];
  List.Delete(I);
  RemoveControl(X);
  X.Free;
  end;
DimCount := 0;
First := True;
Rows := False;
FillChar(Fixed, Sizeof(Fixed), 0);
FillChar(Lines, Sizeof(Lines), 0);
DisposeStr(FBase); FBase := NullStr;
DisposeStr(FBaseTarget); FBaseTarget := NullStr;
end;

Top