Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi и WinAPI

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

CFM_BACKCOLOR в Win10 - Delphi WinAPI

29.10.2016, 14:26. Просмотров 340. Ответов 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;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2016, 14:26
Здравствуйте! Я подобрал для вас темы с ответами на вопрос CFM_BACKCOLOR в Win10 (Delphi WinAPI):

Runas в win10 - CMD/BAT
Приветствую. У пользователя обычные права. Есть батник подключения к VPN, требует права админа. Чтоб каждый раз не бегать вводить...

Виснет win10 - Windows 10
Всем привет Есть одна проблемка, на ноутбуке у меня винда виснет после ухода в ждущий режим, но это ладно, думаю надо электропитание...

Подвисает WIN10 - Ноутбуки
Добра всем! Уважаемые форумчане, помогите решить проблему, ибо кажется, что скоро стану психом :) Система: Core i3 Оперативка: 4ГБ ...

Переход на Win10 - Windows 10
Ребят просветите! Ноут Asus cтоит Win7 лицензионная, хочу поставить Windows 10 Enterprise 2016 LTSB 14393 Version 1607 x86/x64 . Если...

Службы Win10 - Windows 10
Приветствую, форумчане. Возник вопрос. Какой самый короткий набор служб, которые могут находится на винде 10 и при этом система будет ...

Установка WIN10 - Windows 10
Добрый вечер! Ранее был приобретен ноут с предустановленной 8. Позже она успешно обновилась до 8.1, а потом и до 10. Но сегодня меня кто-то...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2016, 14:26
Привет! Вот еще темы с ответами:

Установлен ли Steam на Win10? - C#
Здравствуйте! Для проверки того, установлен ли Steam на Win7 пользуюсь этим кодом: Object Steam =...

Win10 не запускает regedit - Удаление вирусов
Здравствуйте. Не запускается редактор реестра. Далее начал шерстить этот вопрос, скачал утилиту AVZ она также не запустилась. Попробовал...

ShellExecute не работает в WIN10 - Delphi
ShellExecute(Handle, 'Print', PChar(VarToStr(dirini + '\orders.html')), nil, nil, SW_Hide); вывожу на печать страницу в 7 и 8 винде все...

Не обновляется Win7 на Win10 - Windows 10
Всем привет! Нужен ХЕЛП) Всё загружается, подготовка и настройка проходят.. начинается установка.. Копирование файлов при установке...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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