FreePascal.ru

CynicRus , проверял в XP.

Нашёл другое решение, по сути, мне Uxtheme даже не нужен был, просто GetSysColor(COLOR_HIGHLIGHT). Но, когда проверял параметры функции GetSysColor, я с COLOR_HIGHLIGHT промахнулся, и решил, что цвет фона выделенного текста темой задаётся.

Проблему с OpenThemeData пока ...

DYUMON, это HWND моего окна. Если правильно понял описание параметров в MSDN, первый параметр этой функции - это HWND окна, где нужно получить Data.

Хочу получить цвет фона из темы. Добавил в uses Uxtheme , далее:


var
//
ThemeHandle: HTHEME;
...
begin
//
ThemeHandle:=OpenThemeData(hMainWnd, PWideChar('TEXTSTYLE'));


При вызове OpenThemeData получаю ошибку SIGSEGV .

Подскажите, как правильно сделать вызов функции ...

arriah, может зря лезу, но когда я создавал TreeView, использовал чистый WinApi, и сам вёл список узлов (Node), может Вам тоже завести такой список, и работать с ним?

Mirage, ясно.

А как с bool? Так и использовать тип Boolean, или его тоже нужно чем-то заменить?

Лекс Айрин, оставлю тогда Boolean, если будут проблемы, буду решать по ходу уже...

Спасибо Всем, кто помогал в данной теме

Лекс Айрин, я имел в виду, что они равны Ведь,


Вот ещё, сейчас смотрю типы данных в Си, там написано, что тип bool занимает 1 байт. Ну чем тогда им, Boolean не устраивает? По-моему, это тот-же bool А если нет, то как тогда его определить? :/

Лекс Айрин, я так понимаю, PChar = PAnsiChar.

Лекс Айрин, ясно.

Осталось только определить, что делать с типом String?

Лекс Айрин, ясно, спасибо

Кстати, как правильно определить Bool, а не Boolean переменную? Это будет WordBool или LongBool?

Лекс Айрин, а на других языках программирования потом проблемы не будет, из-за этого?

Прочитал, статью GunSmoker'а. Нашёл, что вместо String нужно использовать WideString, хотя ниже, в его коде используется String, а про WideString и упоминания нет Так как же правильно?

Sharfik , Mirage , спасибо Вам за разъяснения...

В таком случае, буду делать процедуру получения количества элементов, далее, выделять память для указателя на массив, и передавать этот указатель, а не изменять длину массива, и передавать его. Если я равильно понял, так гораздо лучше...

Ещё пара ...

Sharfik , это не Вы тупите, а я. Упустил слово var перед параметром процедуры.

Про вариант, который Вы предложили, я такого ещё не встречал. Мне уже действительно легче как resident предложил, вначале получать длину массива, устанавливать её, и потом заполнять его данными Обидно, что придётся ...

Sharfik, мысль про передачу SomeData вроде понял, а вот про TCustomArrayController не очень. Попробую завтра реализовать через классы, посмотрю, что получится

Sharfik, большое спасибо. Буду анализировать, почему у меня не получается