disappear Cell's Spacing Line

Return to index

Author

Message

dekavita

Posted: 05/26/2004 8:46:13

Execution of a "RichView1->RVData->PaintTo" may vanish a Cell's Spacingline.

some time.

this is bug?

source code:

  TRVTableItemInfo* table = new TRVTableItemInfo(10,10,RichView->RVData);

  table->BorderWidth = 0;

  table->CellBorderWidth = 0;

  table->CellHSpacing = 1;

  table->CellVSpacing = 1;

  table->BorderLightColor = clBlack;

  table->Color = clBlack;

  table->BorderColor = clBlack;

  table->BorderLightColor = clBlack;

  table->CellBorderColor = clBlack;

  table->CellBorderLightColor = clBlack;

  for( int loopy = 0; loopy < 10; loopy++ ){

    for( int loopx = 0; loopx < 10; loopx++ ){

      table->Cells[loopy][loopx]->Clear();

      table->Cells[loopy][loopx]->Color = clWhite;

      table->Cells[loopy][loopx]->AddNL( String(loopy * 100 + loopx), 0,

0 );

    }

  }

  RichView->AddItem("", table);

  RichView->Format();

  TMetafileCanvas *pCanvas = new TMetafileCanvas(wmf, 0);

  pCanvas->Brush->Color = clWindow;

  pCanvas->FillRect(Rect(0,0,Width,Height));

  RichView->RVData->PaintTo(pCanvas, Rect(0,0,0xFFFFFFF,0xFFFFFFF));

  delete pCanvas;

  Image2->Picture->Graphic = wmf;

  delete wmf;