Re: How can I select text by TextStyleNo

Return to index

Author

Message

Yernar

Posted: 03/30/2003 18:42:20

procedure TSelectForm.SelectTextByStyle(RVData: TCustomRVData; StyleIndex:

Integer);

var

  i, r, c: Integer;

  table: TRVTableItemInfo;

begin

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

    if RVData.GetItemStyle(i) = StyleIndex then begin

      rve.SetSelectionBounds(i, rve.GetOffsBeforeItem(i), i, rve.GetOffsAfterItem(i));

      rve.ApplyTextStyle(3);

    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

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

    end;

end;