Вверх ↑
Ответов: 866
Рейтинг: 186
#1: 2025-01-27 22:35:35 ЛС | профиль | цитата
z80 писал(а):
Может подскажете еще как реализовать поле ввода для айпи как на картинке?. т е как в виндовс. что бы можно было вводить только цифры и автоматом точки стояли через каждые три цифры

Можно воспользоваться вот этим компонентом
https://forum.hiasm.com/topic/65657
Или нарисовать самому

Add(MainForm,2953706,84,105)
{
}
Add(ChildPanel,13217504,161,105)
{
}
BEGIN_SDK
  Add(EditMulti,5978035,21,21)
  {
   EventCount=1
   WorkCount=1
   VarCount=1
   Width=395
   Height=351
   VOffset=273
   HOffset=84
   link(doWork1,16301099:doString,[])
   link(Var1,16301099:FString,[])
  }
  Add(Panel,2771530,35,105)
  {
   Left=15
   Top=20
   Width=235
   Height=24
  }
  Add(Edit,14375938,105,98)
  {
   Align=1
   Font=[Lucida Console,12,1,0,204]
   WinStyle=1
   Text=""
   Alignment=2
   DataType=2
   MaxLenField=3
   ClearAfterEnter=1
   link(onChange,11014327:doCompare,[])
  }
  Add(Label,5422496,35,28)
  {
   Left=112
   Top=2
   Width=1
   Height=20
   Align=1
   Color=16777215
   Font=[Lucida Console,12,1,0,204]
   Caption="."
   Alignment=2
  }
  Add(Edit,9313454,154,147)
  {
   Align=1
   Font=[Lucida Console,12,1,0,204]
   WinStyle=1
   Text=""
   Alignment=2
   DataType=2
   MaxLenField=3
   ClearAfterEnter=1
   link(onChange,6649673:doCompare,[])
  }
  Add(Label,9250038,84,28)
  {
   Left=217
   Top=2
   Width=1
   Height=20
   Align=1
   Color=16777215
   Font=[Lucida Console,12,1,0,204]
   Caption="."
   Alignment=2
  }
  Add(Edit,15584030,189,189)
  {
   Align=1
   Font=[Lucida Console,12,1,0,204]
   WinStyle=1
   Text=""
   Alignment=2
   DataType=2
   MaxLenField=3
   ClearAfterEnter=1
   link(onChange,9062153:doCompare,[])
  }
  Add(Label,5526906,126,28)
  {
   Left=322
   Top=2
   Width=5
   Height=20
   Align=1
   Color=16777215
   Font=[Lucida Console,12,1,0,204]
   Caption="."
   Alignment=2
  }
  Add(Edit,793270,231,238)
  {
   Align=1
   Font=[Lucida Console,12,1,0,204]
   WinStyle=1
   Text=""
   Alignment=2
   DataType=2
   MaxLenField=3
   ClearAfterEnter=1
   link(onChange,9400180:doCompare,[])
  }
  Add(If_else,9400180,280,238)
  {
   Type=2
   Op2=Integer(255)
   link(onTrue,7091017:doData,[])
  }
  Add(DoData,7091017,329,238)
  {
   link(onEventData,793270:doText2,[(375,244)(375,230)(221,230)(221,251)])
  }
  Add(If_else,9062153,238,189)
  {
   Type=2
   Op2=Integer(255)
   link(onTrue,1326251:doData,[])
  }
  Add(DoData,1326251,287,189)
  {
   link(onEventData,15584030:doText2,[(326,195)(326,181)(179,181)(179,202)])
  }
  Add(If_else,6649673,203,147)
  {
   Type=2
   Op2=Integer(255)
   link(onTrue,11310243:doData,[])
  }
  Add(DoData,11310243,252,147)
  {
   link(onEventData,9313454:doText2,[(291,153)(291,139)(144,139)(144,160)])
  }
  Add(If_else,11014327,154,98)
  {
   Type=2
   Op2=Integer(255)
   link(onTrue,7887810:doData,[])
  }
  Add(DoData,7887810,203,98)
  {
   link(onEventData,14375938:doText2,[(242,104)(242,90)(95,90)(95,111)])
  }
  Add(FormatStr,16301099,105,294)
  {
   DataCount=4
   Mask="%1.%2.%3.%4"
   Point(FString)
   link(onFString,5978035:onEvent1,[])
   link(Str1,14375938:Text,[])
   link(Str2,9313454:Text,[(118,187)(160,187)])
   link(Str3,15584030:Text,[(125,229)(195,229)])
   link(Str4,793270:Text,[(132,278)(237,278)])
  }
END_SDK

карма: 18

1
Голосовали:z80