trichview.support
Re: I dont think so! |
Author |
Message |
Sergey Tkachenko |
Posted: 05/15/2003 20:00:14 You still use RVStyle1.TextStyles.Count instead of RVStyle1.TextStyles.Count-1 The code must be with RVStyle1.TextStyles do begin Add; Items[RVStyle1.TextStyles.Count-1].BackColor := clCream; Items[RVStyle1.TextStyles.Count-1].Size := 50; end; while DBRichViewEdit1.SearchText('Test', [rvseoDown]) do DBRichViewEdit1.ApplyTextStyle(RVStyle1.TextStyles.Count - 1); > Hi Sergy! > Thankx for your answer! > But the problem dont solved again! > Let's see my new code: > with RVStyle1.TextStyles do > begin > Add; > Items[RVStyle1.TextStyles.Count].BackColor := clCream; > Items[RVStyle1.TextStyles.Count].Size := 50; > end; > > { if RVStyle1.TextStyles.Items[RVStyle1.TextStyles.Count - 1].Size = 50 > then > ShowMessage('"RVStyle1.TextStyles.Count" indicate last item!');} > > > while DBRichViewEdit1.SearchText('Test', [rvseoDown]) do > DBRichViewEdit1.ApplyTextStyle(RVStyle1.TextStyles.Count - 1); > > I send you sample project to your emial. > > Thankx |
Powered by ABC Amber Outlook Express Converter