Re: UpperCase and LowerCase

Return to index

Author

Message

Yernar Shambayev

Posted: 05/19/2003 11:40:30

GetSelectionBounds - to return bounds of selected part of document.

This procedure wibb be useful for you:

uses CRVData;

procedure AllUpperCase(RVData: TCustomRVData);

var i,r,c: Integer;

     table: TRVTableItemInfo;

begin

for i := 0 to RVData.Items.Count-1 do

  if (RVData.GetItemStyle(i)>=0) and (here use results of GetSelectionBounds

method) then begin

    s := RVData.Items[i];

    s := AnsiUpperCase(s);

    RVData.Items[i] := s;

    end

  else if RVData.GetItemStyle(i)=rvsTable then begin

    table := TRVTableItemInfo(RVData.GetItem(i));

    for r := 0 to table.Rows.Count-1 do

      for c := 0 to table.Rows[r].Count-1 do

        if table.Cells[r,c]<>nil then

          AllUpperCase(table.Cells[r,c].GetRVData);

  end;

end;

call

AllUpperCase(RichView.RVData);