just execute this code, then move mouse on items
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
begin
RVStyle1.TextStyles.Clear;
RVStyle1.TextStyles.Add;
RVStyle1.TextStyles.Add;
RVStyle1.TextStyles.Add;
RVStyle1.TextStyles.Add;
RVStyle1.TextStyles.Add;
RVStyle1.TextStyles.Add;
RVStyle1.TextStyles.Add;
{ Or Assign
RVStyle1.TextStyles.Add.Assign( RVStyle1.TextStyles[0] );
RVStyle1.TextStyles.Add.Assign( RVStyle1.TextStyles[0] );
RVStyle1.TextStyles.Add.Assign( RVStyle1.TextStyles[0] );
RVStyle1.TextStyles.Add.Assign( RVStyle1.TextStyles[0] );
RVStyle1.TextStyles.Add.Assign( RVStyle1.TextStyles[0] ); }
RVStyle1.SaveINI( ExtractFilePath(Application.ExeName) + 'test.ini', 'dem');
RVStyle1.LoadINI( ExtractFilePath(Application.ExeName) + 'test.ini', 'dem' );
RichView1.AddNL('Style No 3 is Ok :) ', 3, 0);
RichView1.AddNL('Style No 4 Focus rect BUG :( ', 4, 0);
RichView1.AddNL('Style No 5 Focus rect BUG :( ', 5, 0);
RichView1.Format;
end;