img
00:00
imgФорум DRKB: Как использовать верхние и нижние индексы?
imgimgimg
Форумы DRKB Как использовать верхние и нижние индексы? (Всего сообщений: 2)Страницы:  01 
CMS
Житель

Профиль
1 | #6479 | цитата11-02-2016 04:26
Комментарии к статье  Как использовать верхние и нижние индексы?
swe(sources_ru)
Гость
2 | #6480 | цитата11-02-2016 04:26
В статье приведена полная ерунда - не работа с верхним и нижним индексами, а имитация такой работы.
На самом деле надо так:

procedure TForm.Button1Click(Sender: TObjec smiley ;
var ChFormat: CHARFORMAT2;
begin
  FillChar(ChFormat, SizeOf(ChForma smiley , 0);
  with ChFormat do
  begin
    cbSize := SizeOf(ChForma smiley ;
    dwMask := CFM_SUBSCRIPT;
    dwEffects := CFE_SUBSCRIPT;
  end;
  RichText1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@ChForma smiley );
end;

procedure TForm.Button2Click(Sender: TObjec smiley ;
var ChFormat: CHARFORMAT2;
begin
  FillChar(ChFormat, SizeOf(ChForma smiley , 0);
  with ChFormat do
  begin
    cbSize := SizeOf(ChForma smiley ;
    dwMask := CFM_SUPERSCRIPT;
    dwEffects := CFE_SUPERSCRIPT;
  end;
  RichText1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@ChForma smiley );
end;


Использовать надо именно CHARFORMAT2, а не TCharFormat, иначе не работает. Вероятно версия 1.0 RichText не использовала индексы.
Форумы DRKB Как использовать верхние и нижние индексы? (Всего сообщений: 2)Страницы:  01 
Тему просматривают: 1 гостей, 0 пользователей
Ваше Имя:
 
22000/22000 [Справка по кодам]
 Защита от спамботовВведите ответ:
Как использовать верхние и нижние индексы? | Ответов: 2
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
27-11-2017 09:19
konvikkor
Даёшь MS-DOS или Windows 3.1 smiley
20-11-2017 21:44
antonn
WinXP еще недостаточно олдовая, и для нее надо будет делать другой сайт. Win98 по-ностальгичней smiley
18-11-2017 20:34
Супер Илья
Сделай вид виндовс хр
16-11-2017 14:26
konvikkor
Ну главное что тут люди бывают smiley Это о многом говорит smiley Человечество ещё не вымерло!
03-11-2017 11:05
antonn
Нет тут ИИ, все на угле и дровах работает smiley
31-10-2017 12:22
konvikkor
Тут есть инфа про нейроные сети? Думаю в такой олд скульной обстановке уже ИИ работает smiley)
06-10-2017 12:38
antonn
Скорее всего нет, тут же до сих пор атмосфера 10/20-ти летней давности smiley
04-10-2017 13:08
konvikkor
есть тут инфа про TTask в делфи? Кто знает об этой новинке????
27-08-2017 03:12
pamdoff
Блэт
27-08-2017 03:12
pamdoff
•••,ну ребят,скучно,го в чат
Статистика
 СегодняВсего
Посетителей6441612277
Запросов41646284688384
Online
Пользователей0
Гостей124
imgimgimgimg
 
img
     00:00