Вверх ↑
Ответов: 497
Рейтинг: 16
#1: 2018-01-31 05:05:11 ЛС | профиль | цитата
Poputchik писал(а):
Если есть желание помочь со скином, то буду рад посмотреть Ваши наработки.

наработки как уже говорилось покоятся с миром ну а если вкратце то примерно так


Add(PaintBox,5706202,343,140)
{
Left=5
Top=5
Width=375
Height=255
Point(MouseX)
Point(Handle)
Point(onMouseUp)
Point(onMove)
link(onBeforeDraw,16291559:doText,[])
link(onMouseUp,15089811:doCheck,[(437,153)(437,240)(387,240)(338,241)(338,349)])
link(onMove,7936506:doCheck,[(421,160)(421,223)(261,223)(261,426)])
}
Add(PointInRectParam,15089811,350,343)
{
link(onTrue,1672507:doText,[])
link(X,1888617:Var2,[])
link(Y,8703272:Var2,[])
link(Parameters,1837256:Var2,[])
}
Add(hcVisualText,16291559,399,140)
{
Lines=#16:Рисуем интерфейс|
Width=137
link(onText,14974788:doDraw,[])
}
Add(hcVisualText,12689973,364,252)
{
Lines=#35:Список всего где и сколько рисовать|
Width=214
}
Add(hcVisualText,1672507,392,343)
{
Lines=#52:сверяем что за команда по кординатам и код клавишам|
Width=305
link(onText,5198090:doWork,[])
}
Add(hcVisualText,2667668,903,126)
{
Lines=#32:Преобразовать команды в действие|43:например если там PMP_PLAY тогда выполняем |
Width=200
Height=46
link(onText,7424252:doPlay,[])
}
Add(LineBreakEx,5198090,714,343)
{
}
Add(LineBreakEx,9580650,819,126)
{
Type=1
link(OnEvent,8310731:doWork2,[])
}
Add(BASS_ChannelPlay,7424252,1120,126)
{
}
Add(Img_AlphaBmp,14974788,707,140)
{
link(onDraw,5706202:doRefresh,[(744,146)(744,134)(331,134)(331,146)])
}
Add(TCP_Server,540799,826,161)
{
link(onRead,8310731:doWork3,[(872,167)])
}
Add(HubEx,8310731,868,126)
{
link(onEvent,2667668:doText,[])
}
Add(PointInRectParam,7936506,273,420)
{
link(onTrue,11687769:doText,[])
link(X,1888617:Var1,[(279,299)])
link(Y,8703272:Var1,[(286,313)])
link(Parameters,1837256:Var1,[(293,327)])
}
Add(GetDataEx,1888617,350,294)
{
link(Data,5706202:MouseX,[])
}
Add(GetDataEx,8703272,357,308)
{
link(Data,5706202:Handle,[])
}
Add(GetDataEx,1837256,364,322)
{
link(Data,12689973:Text,[])
}
Add(VisualStrings,11687769,322,420)
{
Lines=#89:можно менять вид кнопок при навидении запускать подсказки и делать действия при навидении|
Width=207
Height=46
Point(doText)
}
Add(InfoTip,8745510,861,315)
{
Info=#28:внешняя програма или еще что|
Width=176
Height=123
}
Add(TCP_Client,15442850,931,364)
{
}
Add(MainForm,2953706,21,105)
{
}

или как в одном из моих проектов. весь дизайн по рантайму создать и в имя компонентов действие и ставим "хук" на события onClick а там уже сравнение и выполнение как в примере выше
карма: 1
        ]  
0