Вверх ↑
Разработчик
Ответов: 26149
Рейтинг: 2127
#1: 2022-01-09 02:10:46 ЛС | профиль | цитата
Писец моему посту из-за глюка форума. Ну, да ладно, напишу снова.
TheRenat писал(а):
Спрашиваю потому что вроде есть способ это сделать тупо в исходнике какой-нибудь формы Дельфи (или где-то в коде).

Да, есть такой способ, но в вопросе ничего не было про добавление такого функционала.
Gunta, у тебя в схеме ошибка, ты подаешь затолкать иконку на точку FileName. И WinInfo почему-то не отображает иконки, по крайней мере, в Win10x64. Точнее, иконки выдаются, но они ничем в HiAsm не понимаются.
Схема

Add(MainForm,9336585,371,140)
{
Icon=[ZIP7E03000078DA63606004420101062029C190C1CCC020C6C0C0A001C44021060506883808383033D01DEC5E3A2DD9D31482D27C2DE06C5C08A8FEC6F68547E7366EEACE07324E2EEFDFD65B882C02615C5AD9B36F463550FD81D573FEFFFB07448766D5FEFDF5E3EF8FAF40C6EF4F6F7E7F7CB57F5AE5AF97777FBF7A0014F9F5E0FC95BDEB90D59F5FDAFEFFCFEF7F3F7F9C5DDCFAF7CB7BA07A2003A818A805C8F8F9F0125CFDD5F5D38026002D058A03CD8433381D5EB39A5E062226ED1D1011A0FA139B9740CC0772E10CA0C3FE7DFFA21EF9054802ED026AF9F5ECF685435B91D5034D4030FEFC066AF1AFF80672E1F72F40F54087C1D5E3724FE1E4DF402D405B800E038A00D5E0720F9AC3800C60883DB871091841D8DD83EA3068887D7A0334FFD5AA6E207AB9BCFDC592A6E70B6A9FCD2C01A2A793B39EF4253FE98C79DC1CFCA8D6FB61A5EB8352FB3B45D6E7B2AD808AFFBE79F8FFF50320FAF7F21E10FD7D7EFBC79A5620FAB6B41A197D9D5708518F69F8BD9ED45B2D514074B5DC0B82802A2188D4F4F91F0A402C5231080000FFD6D18E]
Point(PHandle)
Point(Handle)
link(onCreate,3309684:doEvent1,[(410,160)(410,132)(302,132)(302,244)])
}
Add(Image,3245731,588,224)
{
Left=20
Top=10
Width=128
Height=128
Color=12632256
}
Add(Icon,7797333,532,224)
{
Point(onBitmap)
Point(doLoadIcon)
Point(doBitmap)
link(onBitmap,3245731:doLoad,[])
}
Add(Hub,3183704,490,238)
{
link(onEvent1,7797333:doLoadIcon,[])
link(onEvent2,7797333:doBitmap,[])
}
Add(InlineCode,14610609,357,301)
{
WorkPoints=#6:doIcon|
EventPoints=#6:onIcon|
DataPoints=#7:PHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|17: Icon: PIcon;|9: public|24: PHandle: THI_Event;|23: onIcon: THI_Event;|0:|20: constructor Create;|33: destructor Destroy; override;|51: procedure doIcon(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|18: Icon := NewIcon;|4:end;|0:|31:destructor THiAsmClass.Destroy;|5:begin|12: Icon.free;|4:end;|0:|29:procedure THiAsmClass.doIcon;|3:var|21: sControl: PControl;|12: di: TData;|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|31: Icon.Handle := sControl.Icon;|21: dtIcon(di, Icon); |26: _hi_onEvent(onIcon, di);|4:end;|0:|4:end.|
link(onIcon,11399916:doEvent1,[])
link(PHandle,9336585:PHandle,[(363,180)(377,180)])
}
Add(WinInfo,663474,378,238)
{
Point(Icon)
link(onWinInfo,14733343:doData,[])
link(Handle,9336585:Handle,[])
}
Add(DoData,14733343,434,238)
{
link(onEventData,3183704:doEvent1,[])
link(Data,663474:Icon,[(440,229)(426,229)(426,278)(398,278)])
}
Add(Image,10203477,588,287)
{
Left=160
Top=10
Width=128
Height=128
Color=12632256
}
Add(Icon,14127813,532,287)
{
Point(onBitmap)
Point(doLoadIcon)
Point(doBitmap)
link(onBitmap,10203477:doLoad,[])
}
Add(Hub,11399916,490,301)
{
link(onEvent1,14127813:doLoadIcon,[])
link(onEvent2,14127813:doBitmap,[])
}
Add(Hub,3309684,322,238)
{
link(onEvent1,663474:doWinInfo,[])
link(onEvent2,14610609:doIcon,[(347,251)(347,307)])
}
карма: 22

0
Редактировалось 5 раз(а), последний 2022-01-09 03:57:24