(:Мелкие вопросы от RinniX:)

Вверх ↑

Форумы Между делом(:Мелкие вопросы от RinniX:) ← Ctrl1 2 3 4 5...12 13 14 1516Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 26153

Рейтинг: 2127

#226: 2020-06-04 16:24:54 ЛС | профиль | цитата

Леонид писал(а):

Просто заменить lnk_trace.dll, или какие телодвижения ещё?

Да, просто заменить и включить умный обход в настройках.

карма: 22

Ответов: 8926

Рейтинг: 823

#227: 2020-06-04 17:24:51 ЛС | профиль | цитата

nesco, радость вы наша, спасибо!!

карма: 19

Ответов: 1061

Рейтинг: 22

#228: 2020-06-04 22:23:44 ЛС | профиль | цитата


Add(InlineCode,10797942,301,539)
{
 WorkPoints=#18:work_doSendMessage|
 DataPoints=#11:data_Handle|12:data_Message|11:data_WParam|11:data_LParam|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|39:uses Kol,Windows,Share,Debug, Messages;|1: |4:type|31: THISendMessage = class(TDebug)|10:   private|9:   public|26:    data_Handle:THI_Event;|27:    data_Message:THI_Event;|26:    data_WParam:THI_Event;|26:    data_LParam:THI_Event;|4:    |62:    procedure work_doSendMessage(var _Data:TData; Index:word);|5: end;|0:|50:implementation                                    |0:|44:procedure THISendMessage.work_doSendMessage;|11:var h:HWND;|17:    w,l:cardinal;|5:begin|40:  h := ReadInteger(_Data,data_Handle,0);|38:  w := ReadInteger(_Data,data_WParam);|38:  l := ReadInteger(_Data,data_LParam);|53:  SendMessage(h,ReadInteger(_Data,data_Message),w,l);|4:end;|0:|4:end.|
}

Почему скрипт не компилируется?

карма: 0

Разработчик

Ответов: 26153

Рейтинг: 2127

#229: 2020-06-04 22:33:30 ЛС | профиль | цитата

RinniX писал(а):

Почему скрипт не компилируется?

Замени THISendMessage на THiAsmUnit

карма: 22

Голосовали:

RinniX

Ответов: 1061

Рейтинг: 22

#230: 2020-06-06 16:43:38 ЛС | профиль | цитата

Add(ChildPanelEx,6657212,427,252)
{
 Mode=1
 link(onClick,6143588:doData,[(466,258)(466,293)(424,293)(424,314)])
}
BEGIN_SDK
  Add(EditMultiEx,13934842,21,21)
  {
   WorkCount=#5:##add|8:##delete|
   EventCount=#7:onClick|
   VarCount=#7:##index|12:##eventIndex|
   Width=433
   Height=361
   Point(##add)
   Point(##delete)
   Point(##index)
   Point(##eventIndex)
  }
  Add(Panel,13883922,154,224)
  {
   Left=160
   Top=55
   Width=286
   Height=143
   Color=-16777215
   Point(doLeft)
   Point(doTop)
  }
  Add(Button,1963658,203,84)
  {
   Left=200
   Top=80
   link(onClick,13934842:onClick,[(242,90)(242,27)])
  }
END_SDK
Add(DoData,6143588,434,308)
{
 link(onEventData,6657212:##delete,[(473,314)(473,300)(417,300)(417,265)])
 link(Data,6657212:##eventIndex,[])
}
Add(Button,7678432,343,252)
{
 Left=40
 Top=85
 link(onClick,6657212:##add,[])
}

Как удалить динамическую панель?

Редактировалось 2 раз(а), последний 2020-06-06 17:45:03

карма: 0

Ответов: 1061

Рейтинг: 22

#231: 2020-06-06 18:01:27 ЛС | профиль | цитата

Похоже, что без костылей никак)


Add(ChildPanelEx,6657212,427,252)
{
 Mode=1
 link(onClick,14100620:doValue,[(466,258)(466,293)(424,293)(424,321)])
}
BEGIN_SDK
  Add(EditMultiEx,13934842,21,21)
  {
   WorkCount=#5:##add|8:##delete|
   EventCount=#7:onClick|
   VarCount=#7:##index|12:##eventIndex|
   Width=433
   Height=361
   Point(##add)
   Point(##delete)
   Point(##index)
   Point(##eventIndex)
  }
  Add(Panel,13883922,154,224)
  {
   Left=160
   Top=55
   Width=286
   Height=143
   Color=-16777215
   Point(doLeft)
   Point(doTop)
  }
  Add(Button,1963658,203,84)
  {
   Left=200
   Top=80
   link(onClick,13934842:onClick,[(242,90)(242,27)])
  }
END_SDK
Add(Button,7678432,343,252)
{
 Left=40
 Top=85
 link(onClick,6657212:##add,[])
}
Add(Timer,15756136,378,371)
{
 Interval=5
 Enable=1
 AutoStop=1
 link(onTimer,209089:doData,[])
}
Add(Memory,14100620,434,315)
{
 Point(Data)
 link(onData,15756136:doTimer,[(473,321)(473,356)(368,356)(368,377)])
 link(Data,6657212:##eventIndex,[])
}
Add(DoData,209089,434,371)
{
 link(onEventData,6657212:##delete,[(473,377)(473,363)(417,363)(417,265)])
 link(Data,14100620:Value,[])
}

карма: 0

Ответов: 2267

Рейтинг: 676

#232: 2020-06-06 19:37:39 ЛС | профиль | цитата

RinniX, можно так:


Add(MainForm,2953706,182,105)
{
 Width=855
 Height=465
}
Add(ChildPanelEx,6657212,343,98)
{
 Mode=1
 link(onClick,8744189:doDeferredEvent,[])
}
BEGIN_SDK
  Add(EditMultiEx,13934842,21,21)
  {
   WorkCount=#5:##add|8:##delete|
   EventCount=#7:onClick|
   VarCount=#7:##index|12:##eventIndex|
   Width=433
   Height=361
   Point(##add)
   Point(##delete)
   Point(##index)
   Point(##eventIndex)
  }
  Add(Panel,13883922,154,224)
  {
   Left=160
   Top=55
   Width=286
   Height=143
   Color=-16777215
   Point(doLeft)
   Point(doTop)
  }
  Add(Button,1963658,203,84)
  {
   Left=200
   Top=80
   link(onClick,13934842:onClick,[(242,90)(242,27)])
  }
END_SDK
Add(Button,7678432,259,98)
{
 Left=40
 Top=85
 link(onClick,6657212:##add,[])
}
Add(DeferredEvent,8744189,385,98)
{
 InData=0
 Point(Data)
 link(onDeferredEvent,6657212:##delete,[(429,104)(429,152)(331,152)(331,111)])
 link(Data,6657212:##eventIndex,[(391,86)(380,86)(380,139)(356,139)])
}

карма: 11

Голосовали: RinniX

232

Форумы Между делом(:Мелкие вопросы от RinniX:) ← Ctrl1 2 3 4 5...12 13 14 1516Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)