Чисто эксперимент, вроде реально 
Манипулируя сообщениями наверно можно добиться более адекватного поведения
Win10 форма аля Win7 :)
Страница: 1
Сообщений 1 страница 2 из 2
Поделиться12025-03-20 11:33:38
Поделиться22026-05-28 12:14:02
Сделал попытку применить стили окна как в Debug режиме у Delphi7
Спутав стиль с Ex и сделав их одинаковым получил странный эффект
Кнопки и иконка формы поменялись местами причём кнопки работают исправно
Но так и не добился нужного мне результата применив уже точное значение стилей
Код:
Add(MainForm,2953706,98,70)
{
Point(PHandle)
}
Add(InlineCode,13011865,98,133)
{
WorkPoints=#6:doTest|
DataPoints=#2:ph|
Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|17: c: PControl;|9: public|19: ph: THI_Event;|48: procedure doTest(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doTest;|5:begin|26: c := ReadControl(ph,'');|23: c.Style := $16CF0000;|25: c.ExStyle := $16CF0000;|15: c.Invalidate;|4:end;|0:|4:end.|
link(ph,2953706:PHandle,[])
}
Add(Button,8001706,35,133)
{
Left=15
Top=40
link(onClick,13011865:doTest,[])
}
Страница: 1