Назначение компонента - установка стандартных свойств формы BorderStyle и WinStyle по Handle элемента, за счет этого применимо к любым визуальным элементам, имеющим Handle. Пример использования в архиве.

Скачать архив

Как установить элемент в HiAsm4?

Компонент выполнен по этому заказу и выложен в свет по просьбе заказчика.

Редактировалось 3 раз(а), последний 2017-03-19 16:34:09

Assasin, спроси у заказчика, может разрешит в пакет добавить, в радел Окно, ты же имеешь доступ к SVN?

Редактировалось 2 раз(а), последний 2017-03-17 15:05:10

nesco, да, имею. Если он не против, добавлю. Только тогда стоит несколько подредактировать WinControl.pas и hiMainForm. Чтобы обеспечить поддержку именно HiAsm-овых стилей, я оттуда скопировал необходимый набор устанавливаемых флагов контролу. Если же вносить это в пакет, лучше сразу в этих двух файлах выделить флаги в отдельные экспортируемые константы и потом их использовать в моем компоненте.

Редактировалось 1 раз(а), последний 2017-03-17 15:16:12

Если от этого не пострадает никакая совместимость, то никто этого и не заметит.

Да вроде не должна

Редактировалось 3 раз(а), последний 2017-03-17 20:24:51

Я только "за".

Внес на SVN.

Появились warning-и:

Предлагаю в Win.pas массивы BorderStyle_Set, BorderStyle_ExSet, WinStyle_ExSet объявить как array of DWord.

Netspirit, там с этим вообще непонятно что: функция Length возвращает знаковое число, константы винды знаковые, функция винды, по-моему, тоже знаковые возвращает, в KOL беззнаковые. А со знаковыми переменными еще по Си у меня опасение, что непредсказуемо будут работать бинарные операторы. Я вроде везде приведения типов сделал, но видимо где-то забыл. На всякий случай, какой компилятор и какая версия?

--- Добавлено в 2017-03-20 14:51:02

Вроде пофиксил.

Редактировалось 2 раз(а), последний 2017-03-20 14:51:02

Эти константы объявлены в Windows.pas - как беззнаковые. Сответственно, в KOL TControl.Style и TControl.ExStyle тоже беззнаковые. В твоём предыдущем варианте из массива бралось значение как знаковое, результат получался знаковый, а присваивалось в беззнаковые TControl.Style и TControl.ExStyle. Всего лишь.


Ты, конечно, приколист. Вместо того, чтобы исправить в самом источнике, ты правишь там, где возникло. А возникнет оно везде, где используется таким образом. Да и не поправил ты - беззнаковый BorderStyle_Mask/BorderStyle_ExMask комбинируется со знаковыми числами.

Редактировалось 2 раз(а), последний 2017-03-20 15:45:37

У меня другой Win.pas и после ваших переделок получился конфликт SVN обновления. Можно скинуть сюда, что надо дописать в старый Win.pas?

Так посмотри в TortoiseSVN разницу. Можешь выбрать "Resolve Conflicts using mine", затем Diff по своему файлу - увидишь чем отличается от обновленного.

Netspirit, использую HiUpdate.exe (HiSVN), увы

В Windows.pas они вообще без типа объявлены. Как и в Си - просто дефайны, а тип интерпретируется по месту использования.
А вот функции GetWindowLong/SetWindowLong оперируют знаковым типом LONG (что есть int32). Отсюда я сделал вывод, что работа идет со знаковыми константами, поэтому и посчитал верными именно знаковые типы. Говорил же, сплошной бардак: В итоге и не ясно, где с чем правильно работать.

--- Добавлено в 2017-03-20 22:02:16

Сделал dword, пропали варнинги? У меня они еще с предыдущего коммита перестали показываться на обоих компиляторах, поэтому сам не могу протестить.

Редактировалось 2 раз(а), последний 2017-03-20 22:02:41