用F1Book做的ACTIVEX在IE8中的问题


procedure TActiveFormX.SetCellsBorder(startRow, startCol, endRow,
  endCol: Integer);
var cellfrmt :F1CellFormat ;
begin
  F1Book61.SetFocus;
     ShowMessage('aaa');
    try
      F1Book61.DefaultInterface.SelStartRow:=3;
       F1Book61.DefaultInterface.SelStartCol:=3;       F1Book61.DefaultInterface.SelEndRow:=6;
       F1Book61.DefaultInterface.SelEndCol:=6;  cellfrmt := F1Book61.CreateNewCellFormat;
//上句出问题：canves does not drawing 
  ShowMessage('1');
  cellfrmt.MergeCells:=True;
//有时上句也出问题   
ShowMessage('2');
  cellfrmt.BorderStyle[F1RightBorder] := F1BorderThin;
  cellfrmt.BorderStyle[F1LeftBorder] := F1BorderThin ;
  cellfrmt.BorderStyle[F1TopBorder] := F1BorderThin ;
  cellfrmt.BorderStyle[F1BottomBorder] := F1BorderThin ;
  ShowMessage('3');
  cellfrmt.BorderColor[F1RightBorder] :=clBlack;
  cellfrmt.BorderColor[F1LeftBorder] := clBlack;
  cellfrmt.BorderColor[F1TopBorder] :=clBlack;
  cellfrmt.BorderColor[F1BottomBorder] :=clBlack;
  ShowMessage('4');
  F1Book61.SetCellFormat( cellfrmt);
  except
    on E:Exception do
    ShowMessage(e.Message);
  end;
//  F1Book61.DefaultInterface.SelStartCol:=1;
//  F1Book61.DefaultInterface.