используется DPI экрана
да, это так. При смене - все цифры меняются.
Решил проблему так. При OnCreate - ставлю RETextPrim.Style.Font.Size := 8;
(иначе на других DPI может быть что угодно там, а у меня еще и скалирование ScaleBy при создании форм, для слабовидящих, тоже влияет).
При изменении пользователем назначаю:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TdlgEditPrim.BTextSize10Click(Sender: TObject);
begin
RETextPrim.SelAttributes2.Size := 13;
end;
procedure TdlgEditPrim.BTextSize12Click(Sender: TObject);
begin
RETextPrim.SelAttributes2.Size := 15;
end;
procedure TdlgEditPrim.BTextSize8Click(Sender: TObject);
begin
RETextPrim.SelAttributes2.Size := 11;
end;
При перемещении курсора
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TdlgEditPrim.RETextPrimPropertiesSelectionChange(Sender: TObject);
begin
BTextBold.Down := fsBold in RETextPrim.SelAttributes2.Style;
BTextItalic.Down := fsItalic in RETextPrim.SelAttributes2.Style;
BTextUnderline.Down := fsUnderline in RETextPrim.SelAttributes2.Style;
BTextSize8.Down := RETextPrim.SelAttributes2.Size = 11;
BTextSize10.Down := RETextPrim.SelAttributes2.Size = 13;
BTextSize12.Down := RETextPrim.SelAttributes2.Size = 15;
end;
а при сохранении просто "чиню":
1.
2.
3.
4.
5.
6.
7.
8.
9.
function CorrectFonts(AStr: String): String;
begin
Result := AStr;
Result := StringReplace(Result, '\f1 ', '\f0 ', [rfReplaceAll]);
Result := StringReplace(Result, '\fs17 ', '\fs16 ', [rfReplaceAll]);
Result := StringReplace(Result, '\fs23 ', '\fs24 ', [rfReplaceAll]);
Result := StringReplace(Result, '\fs19 ', '\fs20 ', [rfReplaceAll]);
Result := StringReplace(Result, '\fs21 ', '\fs20 ', [rfReplaceAll]);
end;
Вдруг кому-то понадобится, вполне подходит :)
