Работает ли кернинг в RichEdit?
|
|
Пятница, 02 Апреля 2021 г. 08:47
+ в цитатник
swe: В Delphy7 написал код:
procedure reSetKern(RichEdit:TRichEdit; k:word);
var
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
with Format do
begin
cbSize := SizeOf(Format);
dwMask := CFM_KERNING;
// dwMask := CFM_SPACING; // - как вариант
wKerning := k;
Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;
end;
Он никак не работает. Аналогичный код для изменения цвета фона текста:
procedure reSetBkColor(RichEdit:TRichEdit; AColor: TColor);
var
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
with Format do
begin
cbSize := SizeOf(Format);
dwMask := CFM_BACKCOLOR;
crBackColor := AColor;
Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;
end;
отлично выполняет свою функцию.
Может быть кернинг просто не поддерживается? Или я что-то делаю не так?
https://forum.sources.ru/index.php?showtopic=421299&view=findpost&p=3845926
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
