tomr,
I tried your selection thing with different fonts in both the rich edit and scale rich edit demos. And both of those show the font name of the selection point text as you are seeing. I think all that is is the way Sergey coded his demos. In my current app I coded mine to display the word [Mutliple] (in brackets) if mutible fonts are in the selection. I did this in the rve CurTextStyleChanged procedure (I just use a regular richview edit in my app).
Code: Select all
rv.GetSelectionBounds(FStart, FSOff, FEnd, FEoff, true);
fi := rv.Style.TextStyles[rv.GetItemStyle(FStart)];
for i := FStart to FEnd do
begin
fi2 := rv.Style.TextStyles[rv.GetItemStyle(i)];
if fi.FontName <> fi2.FontName then
begin
SRDCvsRVEFont.Caption := '[Multiple]';
//This could be set to SRDCvsRVEFont.Caption := '' to mimic Word behavior
break;
end;
end;
Same thing for the font size combo:
Code: Select all
for i := FStart to FEnd do
begin
fi2 := rv.Style.TextStyles[rv.GetItemStyle(i)];
if fi.Size <> fi2.Size then
begin
//Reset Combo
cmbFontSize.Text := '';
break;
end;
end;
So, I think you'd just need to write some code to do that in your app.
Stan (I'm not with richview "support," just saw your post and tried it myself)
