HiAsm

Форумы Помощь по пакету Экранная клавиатура ← Ctrl12Ctrl →

Ответов: 2324

Рейтинг: 681

#1: 2025-03-13 10:43:57 ЛС | профиль | цитата

Можно воспользоваться нестандартным элементом: AdjustControls(Настройки интерфейса) что упростит настройку интерфейсных элементов.

Add(Edit,2900382,427,203)
{
 Left=145
 Top=40
 TabOrder=1
 Name="Edit1"
 Text=""
 Point(doSetFocus)
 Point(onSetFocus)
 link(onSetFocus,4051188:doStrCatDlm,[])
}
Add(Edit,11802280,427,259)
{
 Left=145
 Top=75
 TabOrder=2
 Name="Edit2"
 Text=""
 Point(onSetFocus)
 link(onSetFocus,5485134:doStrCatDlm,[])
}
Add(Edit,14683328,427,315)
{
 Left=145
 Top=110
 TabOrder=3
 Name="Edit3"
 Text=""
 Point(onSetFocus)
 link(onSetFocus,13389485:doStrCatDlm,[])
}
Add(Edit,13031914,427,378)
{
 Left=145
 Top=145
 TabOrder=4
 Name="Edit4"
 Text=""
 Point(onSetFocus)
 link(onSetFocus,15028634:doStrCatDlm,[])
}
Add(MainForm,2953706,427,119)
{
 Width=531
 Position=1
}
Add(ChildPanel,13577154,560,217)
{
}
BEGIN_SDK
  Add(EditMulti,2315616,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=783
   Height=550
   link(doWork1,11382835:doSplit,[])
  }
  Add(Panel,2899805,133,105)
  {
   Left=300
   Top=20
   Width=196
   Height=191
   Color=-16777215
  }
  Add(Button,8123954,224,105)
  {
   Left=10
   Top=10
   Height=40
   TabOrder=-1
   Caption="1"
   Data=String(1)
   link(onClick,16068034:doWork2,[])
  }
  Add(Button,15621436,266,112)
  {
   Left=70
   Top=10
   Height=40
   TabOrder=-1
   Caption="2"
   Data=String(2)
   link(onClick,6603526:doWork2,[])
  }
  Add(Button,10858996,308,119)
  {
   Left=130
   Top=10
   Height=40
   TabOrder=-1
   Caption="3"
   Data=String(3)
   link(onClick,7020218:doWork2,[])
  }
  Add(Button,13304092,224,154)
  {
   Left=10
   Top=55
   Height=40
   TabOrder=-1
   Caption="4"
   Data=String(4)
   link(onClick,6074418:doWork2,[])
  }
  Add(Button,6365898,266,161)
  {
   Left=70
   Top=55
   Height=40
   TabOrder=-1
   Caption="5"
   Data=String(5)
   link(onClick,6502993:doWork2,[])
  }
  Add(Button,215202,308,168)
  {
   Left=130
   Top=55
   Height=40
   TabOrder=-1
   Caption="6"
   Data=String(6)
   link(onClick,5929663:doWork2,[])
  }
  Add(Button,16730402,224,203)
  {
   Left=10
   Top=100
   Height=40
   TabOrder=-1
   Caption="7"
   Data=String(7)
   link(onClick,2150922:doWork2,[])
  }
  Add(Button,13675507,266,210)
  {
   Left=70
   Top=100
   Height=40
   TabOrder=-1
   Caption="8"
   Data=String(8)
   link(onClick,12681268:doWork2,[])
  }
  Add(Button,11389870,308,217)
  {
   Left=130
   Top=100
   Height=40
   TabOrder=-1
   Caption="9"
   Data=String(9)
   link(onClick,694154:doWork2,[])
  }
  Add(Button,9892486,266,259)
  {
   Left=70
   Top=145
   Height=40
   TabOrder=-1
   Caption="0"
   Data=String(0)
   link(onClick,694154:doWork3,[(418,265)])
  }
  Add(HubEx,16068034,414,105)
  {
   Angle=3
   link(onEvent,42866:doString,[(418,104)])
  }
  Add(HubEx,6603526,414,112)
  {
   Angle=3
   link(onEvent,16068034:doWork3,[])
  }
  Add(HubEx,7020218,414,119)
  {
   Angle=3
   link(onEvent,6603526:doWork3,[])
  }
  Add(HubEx,6074418,414,154)
  {
   Angle=3
   link(onEvent,7020218:doWork3,[])
  }
  Add(HubEx,6502993,414,161)
  {
   Angle=3
   link(onEvent,6074418:doWork3,[])
  }
  Add(HubEx,5929663,414,168)
  {
   Angle=3
   link(onEvent,6502993:doWork3,[])
  }
  Add(HubEx,2150922,414,203)
  {
   Angle=3
   link(onEvent,5929663:doWork3,[])
  }
  Add(HubEx,12681268,414,210)
  {
   Angle=3
   link(onEvent,2150922:doWork3,[])
  }
  Add(HubEx,694154,414,217)
  {
   Angle=3
   link(onEvent,12681268:doWork3,[])
  }
  Add(FormatStr,42866,441,98)
  {
   DataCount=3
   Mask="%1=Text=%2%3\r\n%1=SetFocus"
   link(onFString,9750058:doSet,[])
   link(Str1,11382835:Part1,[])
   link(Str2,11382835:Part2,[])
  }
  Add(AdjustControls,9750058,490,98)
  {
  }
  Add(MultiStrPart,11382835,441,21)
  {
  }
END_SDK
Add(StrCatDelim,4051188,469,217)
{
 Delimiter=";"
 Str1="Edit1"
 link(onStrCatDlm,1472928:doWork2,[])
 link(Str2,2900382:Text,[(482,205)(463,205)(463,246)(433,246)])
}
Add(StrCatDelim,5485134,469,273)
{
 Delimiter=";"
 Str1="Edit2"
 link(onStrCatDlm,13127859:doWork2,[])
 link(Str2,11802280:Text,[(482,261)(465,261)(465,302)(433,302)])
}
Add(StrCatDelim,13389485,469,329)
{
 Delimiter=";"
 Str1="Edit3"
 link(onStrCatDlm,4431572:doWork2,[])
 link(Str2,14683328:Text,[(482,317)(463,317)(463,368)(433,368)])
}
Add(StrCatDelim,15028634,469,392)
{
 Delimiter=";"
 Str1="Edit4"
 link(onStrCatDlm,4431572:doWork3,[(508,398)])
 link(Str2,13031914:Text,[(482,380)(463,380)(463,421)(433,421)])
}
Add(HubEx,1472928,504,217)
{
 link(onEvent,13577154:doWork1,[])
}
Add(HubEx,13127859,504,273)
{
 Angle=3
 link(onEvent,1472928:doWork3,[])
}
Add(HubEx,4431572,504,329)
{
 Angle=3
 link(onEvent,13127859:doWork3,[])
}

При таком решении можно и очистить и ввести одной кнопкой нужные данные. В схеме нажатием клавиши Tab переход между Edit-ами, кнопками набор числа. Еще можно добавить при получении Edit-ом фокуса чтоб сдвигалась каретка в конец (doPosition).

На стандартных компонентах (пример работы с SendMessage):

Add(Edit,2900382,427,203)
{
 Left=145
 Top=40
 TabOrder=1
 Text=""
 Point(doSetFocus)
 Point(onSetFocus)
 Point(Handle)
 link(onSetFocus,8125823:doData,[])
}
Add(Edit,11802280,427,259)
{
 Left=145
 Top=75
 TabOrder=2
 Text=""
 Point(onSetFocus)
 Point(Handle)
 link(onSetFocus,7965549:doData,[])
}
Add(Edit,14683328,427,315)
{
 Left=145
 Top=110
 TabOrder=3
 Text=""
 Point(onSetFocus)
 Point(Handle)
 link(onSetFocus,9668951:doData,[])
}
Add(Edit,13031914,427,378)
{
 Left=145
 Top=145
 TabOrder=4
 Text=""
 Point(onSetFocus)
 Point(Handle)
 link(onSetFocus,16230459:doData,[])
}
Add(MainForm,2953706,427,119)
{
 Width=531
 Position=1
}
Add(ChildPanel,13577154,574,217)
{
}
BEGIN_SDK
  Add(EditMulti,2315616,21,21)
  {
   WorkCount=1
   Width=846
   Height=550
   link(doWork1,9883853:doValue,[(283,27)(283,69)])
  }
  Add(Panel,2899805,84,259)
  {
   Left=300
   Top=20
   Width=196
   Height=191
   Color=-16777215
  }
  Add(Button,8123954,175,259)
  {
   Left=10
   Top=10
   Height=40
   TabOrder=-1
   Caption="1"
   Data=String(1)
   link(onClick,16068034:doWork2,[])
  }
  Add(Button,15621436,217,266)
  {
   Left=70
   Top=10
   Height=40
   TabOrder=-1
   Caption="2"
   Data=String(2)
   link(onClick,6603526:doWork2,[])
  }
  Add(Button,10858996,259,273)
  {
   Left=130
   Top=10
   Height=40
   TabOrder=-1
   Caption="3"
   Data=String(3)
   link(onClick,7020218:doWork2,[])
  }
  Add(Button,13304092,175,308)
  {
   Left=10
   Top=55
   Height=40
   TabOrder=-1
   Caption="4"
   Data=String(4)
   link(onClick,6074418:doWork2,[])
  }
  Add(Button,6365898,217,315)
  {
   Left=70
   Top=55
   Height=40
   TabOrder=-1
   Caption="5"
   Data=String(5)
   link(onClick,6502993:doWork2,[])
  }
  Add(Button,215202,259,322)
  {
   Left=130
   Top=55
   Height=40
   TabOrder=-1
   Caption="6"
   Data=String(6)
   link(onClick,5929663:doWork2,[])
  }
  Add(Button,16730402,175,357)
  {
   Left=10
   Top=100
   Height=40
   TabOrder=-1
   Caption="7"
   Data=String(7)
   link(onClick,2150922:doWork2,[])
  }
  Add(Button,13675507,217,364)
  {
   Left=70
   Top=100
   Height=40
   TabOrder=-1
   Caption="8"
   Data=String(8)
   link(onClick,12681268:doWork2,[])
  }
  Add(Button,11389870,259,371)
  {
   Left=130
   Top=100
   Height=40
   TabOrder=-1
   Caption="9"
   Data=String(9)
   link(onClick,694154:doWork2,[])
  }
  Add(Button,9892486,217,413)
  {
   Left=70
   Top=145
   Height=40
   TabOrder=-1
   Caption="0"
   Data=String(0)
   link(onClick,694154:doWork3,[(369,419)])
  }
  Add(HubEx,16068034,365,259)
  {
   Angle=3
   link(onEvent,7274262:doEvent1,[(369,251)])
  }
  Add(HubEx,6603526,365,266)
  {
   Angle=3
   link(onEvent,16068034:doWork3,[])
  }
  Add(HubEx,7020218,365,273)
  {
   Angle=3
   link(onEvent,6603526:doWork3,[])
  }
  Add(HubEx,6074418,365,308)
  {
   Angle=3
   link(onEvent,7020218:doWork3,[])
  }
  Add(HubEx,6502993,365,315)
  {
   Angle=3
   link(onEvent,6074418:doWork3,[])
  }
  Add(HubEx,5929663,365,322)
  {
   Angle=3
   link(onEvent,6502993:doWork3,[])
  }
  Add(HubEx,2150922,365,357)
  {
   Angle=3
   link(onEvent,5929663:doWork3,[])
  }
  Add(HubEx,12681268,365,364)
  {
   Angle=3
   link(onEvent,2150922:doWork3,[])
  }
  Add(HubEx,694154,365,371)
  {
   Angle=3
   link(onEvent,12681268:doWork3,[])
  }
  Add(Hub,7274262,406,245)
  {
   OutCount=3
   link(onEvent1,5834539:doData,[])
   link(onEvent2,839236:doStrCat,[(447,258)(447,356)])
   link(onEvent3,13473150:doSendMessage,[(437,265)(437,496)])
  }
  Add(SendMessage,15421399,546,301)
  {
   Message=13
   link(onSend,16305821:doGet,[])
   link(Handle,2212676:Var2,[])
   link(LParam,1164314:Memory,[(566,285)(615,285)])
  }
  Add(MemoryStream,1164314,595,238)
  {
   Point(Memory)
   Point(doPosition)
   Point(doSize)
  }
  Add(DataToFile,16305821,595,294)
  {
   Type=6
   Point(doPosition)
   link(onGet,14944298:doValue,[])
   link(Stream,1164314:Stream,[])
  }
  Add(Hub,8233292,511,245)
  {
   OutCount=3
   link(onEvent1,1164314:doClear,[])
   link(onEvent2,1164314:doSize,[(588,258)(588,265)])
   link(onEvent3,15421399:doSendMessage,[(535,265)(535,307)])
  }
  Add(DoData,5834539,462,245)
  {
   Data=Integer(100000)
   link(onEventData,8233292:doEvent1,[])
   AddHint(-5,-24,51,13,Data)
  }
  Add(WinTools,6963430,707,322)
  {
   Point(doCaption)
   link(Handle,2212676:Var3,[(713,159)])
  }
  Add(StrCat,839236,644,350)
  {
   link(onStrCat,6963430:doCaption,[])
   link(Str1,14944298:Value,[])
  }
  Add(Memory,14944298,644,294)
  {
  }
  Add(SendMessage,13473150,525,490)
  {
   @Hint=#19:Устанавливает фокус|
   Point(Message)
   link(Handle,2212676:Var1,[(531,159)])
   link(Message,5973309:Value,[])
   AddHint(51,15,127,13,@Hint)
  }
  Add(GetDataEx,2212676,546,154)
  {
   link(Data,9883853:Value,[])
  }
  Add(Memory,5973309,546,441)
  {
   Default=Integer(7)
   AddHint(-2,-19,21,13,Default)
  }
  Add(Memory,9883853,546,63)
  {
   Default=Integer(-1)
   AddHint(4,-21,24,13,Default)
  }
END_SDK
Add(DoData,8125823,483,217)
{
 link(onEventData,4612438:doWork2,[])
 link(Data,2900382:Handle,[(489,205)(465,205)(465,247)(440,247)])
}
Add(DoData,7965549,483,273)
{
 link(onEventData,8333327:doWork2,[])
 link(Data,11802280:Handle,[(489,261)(465,261)(465,303)(440,303)])
}
Add(DoData,9668951,483,329)
{
 link(onEventData,15050674:doWork2,[])
 link(Data,14683328:Handle,[(489,317)(465,317)(465,359)(440,359)])
}
Add(DoData,16230459,483,392)
{
 link(onEventData,15050674:doWork3,[(529,398)])
 link(Data,13031914:Handle,[(489,380)(465,380)(465,422)(440,422)])
}
Add(HubEx,4612438,525,217)
{
 link(onEvent,13577154:doWork1,[])
}
Add(HubEx,8333327,525,273)
{
 Angle=3
 link(onEvent,4612438:doWork3,[])
}
Add(HubEx,15050674,525,329)
{
 Angle=3
 link(onEvent,8333327:doWork3,[])
}

Вот так подсвечивается редактируемый Edit:

Add(Edit,2900382,427,196)
{
 Left=145
 Top=40
 TabOrder=1
 Text=""
 Point(onSetFocus)
 Point(Handle)
 Point(doSelectAll)
 link(onSetFocus,9712476:doEvent1,[])
}
Add(Edit,11802280,427,266)
{
 Left=145
 Top=75
 TabOrder=2
 Text=""
 Point(onSetFocus)
 Point(Handle)
 Point(doSelectAll)
 link(onSetFocus,10204604:doEvent1,[])
}
Add(Edit,14683328,427,329)
{
 Left=145
 Top=110
 TabOrder=3
 Text=""
 Point(onSetFocus)
 Point(Handle)
 Point(doSelectAll)
 link(onSetFocus,6151629:doEvent1,[])
}
Add(Edit,13031914,427,399)
{
 Left=145
 Top=145
 TabOrder=4
 Text=""
 Point(onSetFocus)
 Point(Handle)
 Point(doSelectAll)
 link(onSetFocus,6456103:doEvent1,[])
}
Add(MainForm,2953706,427,119)
{
 Width=531
 Position=1
}
Add(ChildPanel,13577154,490,525)
{
}
BEGIN_SDK
  Add(EditMulti,2315616,21,21)
  {
   WorkCount=1
   Width=846
   Height=550
   link(doWork1,9883853:doValue,[(283,27)(283,69)])
  }
  Add(Panel,2899805,84,259)
  {
   Left=300
   Top=20
   Width=196
   Height=191
   Color=-16777215
  }
  Add(Button,8123954,175,259)
  {
   Left=10
   Top=10
   Height=40
   TabOrder=-1
   Caption="1"
   Data=String(1)
   link(onClick,16068034:doWork2,[])
  }
  Add(Button,15621436,217,266)
  {
   Left=70
   Top=10
   Height=40
   TabOrder=-1
   Caption="2"
   Data=String(2)
   link(onClick,6603526:doWork2,[])
  }
  Add(Button,10858996,259,273)
  {
   Left=130
   Top=10
   Height=40
   TabOrder=-1
   Caption="3"
   Data=String(3)
   link(onClick,7020218:doWork2,[])
  }
  Add(Button,13304092,175,308)
  {
   Left=10
   Top=55
   Height=40
   TabOrder=-1
   Caption="4"
   Data=String(4)
   link(onClick,6074418:doWork2,[])
  }
  Add(Button,6365898,217,315)
  {
   Left=70
   Top=55
   Height=40
   TabOrder=-1
   Caption="5"
   Data=String(5)
   link(onClick,6502993:doWork2,[])
  }
  Add(Button,215202,259,322)
  {
   Left=130
   Top=55
   Height=40
   TabOrder=-1
   Caption="6"
   Data=String(6)
   link(onClick,5929663:doWork2,[])
  }
  Add(Button,16730402,175,357)
  {
   Left=10
   Top=100
   Height=40
   TabOrder=-1
   Caption="7"
   Data=String(7)
   link(onClick,2150922:doWork2,[])
  }
  Add(Button,13675507,217,364)
  {
   Left=70
   Top=100
   Height=40
   TabOrder=-1
   Caption="8"
   Data=String(8)
   link(onClick,12681268:doWork2,[])
  }
  Add(Button,11389870,259,371)
  {
   Left=130
   Top=100
   Height=40
   TabOrder=-1
   Caption="9"
   Data=String(9)
   link(onClick,694154:doWork2,[])
  }
  Add(Button,9892486,217,413)
  {
   Left=70
   Top=145
   Height=40
   TabOrder=-1
   Caption="0"
   Data=String(0)
   link(onClick,694154:doWork3,[(369,419)])
  }
  Add(HubEx,16068034,365,259)
  {
   Angle=3
   link(onEvent,7274262:doEvent1,[(369,251)])
  }
  Add(HubEx,6603526,365,266)
  {
   Angle=3
   link(onEvent,16068034:doWork3,[])
  }
  Add(HubEx,7020218,365,273)
  {
   Angle=3
   link(onEvent,6603526:doWork3,[])
  }
  Add(HubEx,6074418,365,308)
  {
   Angle=3
   link(onEvent,7020218:doWork3,[])
  }
  Add(HubEx,6502993,365,315)
  {
   Angle=3
   link(onEvent,6074418:doWork3,[])
  }
  Add(HubEx,5929663,365,322)
  {
   Angle=3
   link(onEvent,6502993:doWork3,[])
  }
  Add(HubEx,2150922,365,357)
  {
   Angle=3
   link(onEvent,5929663:doWork3,[])
  }
  Add(HubEx,12681268,365,364)
  {
   Angle=3
   link(onEvent,2150922:doWork3,[])
  }
  Add(HubEx,694154,365,371)
  {
   Angle=3
   link(onEvent,12681268:doWork3,[])
  }
  Add(Hub,7274262,406,245)
  {
   OutCount=3
   link(onEvent1,5834539:doData,[])
   link(onEvent2,839236:doStrCat,[(447,258)(447,356)])
   link(onEvent3,13473150:doSendMessage,[(437,265)(437,496)])
  }
  Add(SendMessage,15421399,546,301)
  {
   Message=13
   link(onSend,16305821:doGet,[])
   link(Handle,2212676:Var2,[])
   link(LParam,1164314:Memory,[(566,285)(615,285)])
  }
  Add(MemoryStream,1164314,595,238)
  {
   Point(Memory)
   Point(doPosition)
   Point(doSize)
  }
  Add(DataToFile,16305821,595,294)
  {
   Type=6
   Point(doPosition)
   link(onGet,14944298:doValue,[])
   link(Stream,1164314:Stream,[])
  }
  Add(Hub,8233292,511,245)
  {
   OutCount=3
   link(onEvent1,1164314:doClear,[])
   link(onEvent2,1164314:doSize,[(588,258)(588,265)])
   link(onEvent3,15421399:doSendMessage,[(535,265)(535,307)])
  }
  Add(DoData,5834539,462,245)
  {
   Data=Integer(100000)
   link(onEventData,8233292:doEvent1,[])
   AddHint(-5,-24,51,13,Data)
  }
  Add(WinTools,6963430,707,322)
  {
   Point(doCaption)
   link(Handle,2212676:Var3,[(713,159)])
  }
  Add(StrCat,839236,644,350)
  {
   link(onStrCat,6963430:doCaption,[])
   link(Str1,14944298:Value,[])
  }
  Add(Memory,14944298,644,294)
  {
  }
  Add(SendMessage,13473150,525,490)
  {
   @Hint=#19:Устанавливает фокус|
   Point(Message)
   link(Handle,2212676:Var1,[(531,159)])
   link(Message,5973309:Value,[])
   AddHint(51,15,127,13,@Hint)
  }
  Add(GetDataEx,2212676,546,154)
  {
   link(Data,9883853:Value,[])
  }
  Add(Memory,5973309,546,441)
  {
   Default=Integer(7)
   AddHint(-2,-19,21,13,Default)
  }
  Add(Memory,9883853,546,63)
  {
   Default=Integer(-1)
   AddHint(4,-21,24,13,Default)
  }
END_SDK
Add(DoData,8125823,504,210)
{
 link(onEventData,5539680:doWork,[])
 link(Data,2900382:Handle,[(510,198)(465,198)(465,240)(440,240)])
}
Add(DoData,7965549,497,280)
{
 link(onEventData,10681657:doWork,[])
 link(Data,11802280:Handle,[(503,268)(465,268)(465,310)(440,310)])
}
Add(DoData,9668951,497,343)
{
 link(onEventData,8528988:doWork,[])
 link(Data,14683328:Handle,[(503,331)(465,331)(465,373)(440,373)])
}
Add(DoData,16230459,497,413)
{
 link(onEventData,637310:doWork,[])
 link(Data,13031914:Handle,[(503,401)(465,401)(465,442)(440,442)])
}
Add(LineBreakEx,5539680,546,210)
{
 Caption="fcs"
}
Add(LineBreakEx,10681657,539,280)
{
 Caption="fcs"
}
Add(LineBreakEx,8528988,539,343)
{
 Caption="fcs"
}
Add(LineBreakEx,637310,539,413)
{
 Caption="fcs"
}
Add(LineBreakEx,2787946,448,525)
{
 Caption="fcs"
 Type=1
 link(OnEvent,13577154:doWork1,[])
}
Add(Hub,9712476,469,210)
{
 link(onEvent1,8125823:doData,[])
 link(onEvent2,2900382:doSelectAll,[(491,223)(491,246)(415,246)(415,216)])
}
Add(Hub,10204604,469,280)
{
 link(onEvent1,7965549:doData,[])
 link(onEvent2,11802280:doSelectAll,[(494,293)(494,314)(415,314)(415,286)])
}
Add(Hub,6151629,469,343)
{
 link(onEvent1,9668951:doData,[])
 link(onEvent2,14683328:doSelectAll,[(490,356)(490,380)(415,380)(415,349)])
}
Add(Hub,6456103,469,413)
{
 link(onEvent1,16230459:doData,[])
 link(onEvent2,13031914:doSelectAll,[(491,426)(491,453)(414,453)(414,419)])
}

карма: 11

Редактировалось 2 раз(а), последний 2025-03-13 11:53:33

Форумы Помощь по пакету Экранная клавиатура ← Ctrl12Ctrl →