Форум программистов, компьютерный форум CyberForum.ru

Delphi и WinAPI

Войти
Регистрация
Восстановить пароль
 
Tester64
395 / 356 / 43
Регистрация: 22.05.2013
Сообщений: 2,518
#1

CFM_BACKCOLOR в Win10 - Delphi WinAPI

29.10.2016, 14:26. Просмотров 290. Ответов 0
Метки нет (Все метки)

Гуру, посоветуйте...

Была программа (написанная мной больше 8 лет назад), которая по нажатию кнопки раскрашивала выделенный кусок текста в RichEdit в нужный цвет и фон. Работала без сбоев все время пока... не поставил Windows 10... цвет текста меняет, а фон - не трогает (сбивает на "системный")!
Может кто знает что они там в API на этот раз изменили?

Менял так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.SetBackColor(NewCol: TColor);
var
  Format: TCharFormat2;
begin
  Format.cbSize := SizeOf(TCharFormat2);
  Format.dwMask := CFM_BACKCOLOR;
  if NewCol = clNone then begin
    Format.crBackColor := ColorToRGB(RichEdit2.Color);
  end else begin
    Format.crBackColor := ColorToRGB(NewCol);
  end;
  SendMessage(RichEdit2.Handle, EM_SETCHARFORMAT, SCF_SELECTION, LPARAM(@Format));
end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2016, 14:26     CFM_BACKCOLOR в Win10
Посмотрите здесь:

Win 8,ubuntu,win10 Windows 8, 8.1
Виснет win10 Windows 10
Windows 10 Win10 увеличение FPS
Windows 10 Поддержка драйверов Win10
Не обновляется Win7 на Win10 Windows 10
Windows 10 Работает ли Matchad на Win10 ?
Windows 10 Установка WIN10
Установка Win10 на HDD 4 Tb
Работает ли FoxPro на Win10? FoxPro
Установлен ли Steam на Win10? C#
BAT Runas в win10
ShellExecute не работает в WIN10 Delphi

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru