Add(MainForm,2953706,7,14)
{
 Width=498
 Caption="Изменялка"
}
Add(Clipboard,3132766,231,119)
{
 Point(PutText)
}
Add(Edit,1482338,280,175)
{
 Left=325
 Top=255
 Visible=1
 Text=""
 link(onChange,7529311:doModify,[])
 AddHint(100,-147,15,13,@Hint)
}
Add(DoData,14492037,231,175)
{
 link(onEventData,1482338:doText,[])
 link(Data,3132766:Text,[])
}
Add(MMTimer,3690518,182,175)
{
 Interval=100
 link(onTimer,14492037:doData,[])
}
Add(StrCase,7529311,329,175)
{
 link(onModify,5826575:doText,[])
}
Add(Edit,5826575,378,175)
{
 Left=345
 Top=255
 Visible=1
 Text=""
 link(onChange,4013921:In,[])
 AddHint(19,-124,15,13,@Hint)
}
Add(LineBreak,11941737,182,119)
{
 link(Out,3132766:doPutText,[])
 Primary=[4013921,252,56]
}
Add(InfoTip,9269300,105,28)
{
 Info=#76:Программа вставляет строчку из буфера обмена в "    ",из этого бокса строчка|81:принимает нижний регистр и переходит во второй бокс "     " .А уже из этого бокса|40:данные переходят обратно в буфер обмена.|
 Width=323
 Height=67
}
Add(Label,8205635,7,49)
{
 Width=492
 Height=28
 Font=[MS Sans Serif,16,0,0,1]
 Caption="Программа делалась исключительно для своих целей"
 Alignment=2
 Underline=0
}
Add(Label,14551295,7,84)
{
 Left=45
 Top=40
 Width=408
 Height=220
 Font=[MS Sans Serif,10,0,0,1]
 Caption="Программа изменяет строчку из буфера обмена.Делает ее в 
нижнем регистре.И выдает в буфер обмена уже измененную 
строку.


1.Выделите текст*.
2.Нажмите "Ctrl+C".Эта комбинация клавиш скопирует текст 
в буфер обмена.
3.Нажмите "Ctrl+V".Эта комбинация клавиш вставит текст из
буфера обмена.

*Текст должен состоять из больших букв,иначе программа
бесполезна                         "
 AutoSize=1
}