Re: about AddTextNLW and unicode char

Return to index

Author

Message

Gorden Peng

Posted: 11/02/2004 11:47:45

Hello:

  Thanks.

I just use your demo to test this.

source code :

procedure TForm1.mitInsertTable2Click(Sender: TObject);

var table: TRVTableItemInfo;

    btn: TButton;

begin

  table := TRVTableItemInfo.CreateEx(10,6, RichViewEdit1.RVData);

  table.Color := clWhite;

  table.BorderStyle := rvtbRaisedColor;

  table.CellBorderStyle := rvtbLoweredColor;

  table.BorderLightColor := clWhite;

  table.BorderColor := clBlack;

  table.CellBorderLightColor := clWhite;

  table.CellBorderColor := clBlack;

  table.BorderWidth := 2;

  table.BorderVSpacing := 0;

  table.BorderHSpacing := 0;

  table.CellBorderWidth := 2;

  table.CellPadding := 3;

  table.CellVSpacing := 0;

  table.CellHSpacing := 0;

  table.Cells[0,0].BestWidth := -16;

  table.Cells[0,1].BestWidth := -16;

  table.Cells[0,2].BestWidth := -16;

  table.Cells[0,3].BestWidth := -16;

  table.Cells[0,4].BestWidth := -16;

  table.Cells[0,5].BestWidth := -16;

//==here is i add to========================================

  table.Cells[0,0].AddTextNLW('���s�j��',11,0,0,False);

//==========================================================

  table.Rows.MergeCells(1,0,6,1);

  table.MergeCells(2,0,2,8, False);

  with table.Cells[2,0] do begin

    Clear;

    AddNL('Another example.',0,0);

    btn := TButton.Create(nil);

    btn.Caption := 'With button inside';

    btn.Width := 150;

    AddControlEx('',btn,2,rvvaBaseline);

    AddNL('Width of table = 90% of document width. Widths of cells = 16%',0,0);

  end;

  table.BestWidth := -90;

  if RichViewEdit1.InsertItem('', table) then begin

  end;

end;

==============================================================

I well Send you new email about my Refrence number. Thanks.

"Sergey Tkachenko" <[email protected]> wrote:

>Please send me a source code of project reproducing this problem.

>

>Update your version of RichView, it's free.

>

>>

>> When I create a table and use

>>

>> table.cell[0,0].AddTextNLW('���s�j��',11,0,0,false) to insert a unicode

>char

>> in table,but it display is : &#42148;�f�C&#51134;

>>

>> how can i fix this.  Thanks.

>>

>> 1. My Richview Ver : 1.7

>> 2. I already set TextStyles.unicode = true

>

>