Вверх ↑
Этот топик читают: Гость
Ответов: 9
Рейтинг: 0
#1: 2012-06-15 23:09:20 ЛС | профиль | цитата
Программа делалась исключительно для своих целей,но решил что начинающим таким как я будет полезно.

Программа меняет регистр(делает его маленьким) текста из буфер обмена,выдавая конечный результат, обратно.

EXE файл - http://rghost.ru/38687128

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
}

карма: 0

0
Ответов: 1173
Рейтинг: 49
#2: 2012-06-15 23:24:10 ЛС | профиль | цитата
Tiberius, это по-вашему схема? Вот схема.
карма: 0

0
Ответов: 9
Рейтинг: 0
#3: 2012-06-15 23:27:25 ЛС | профиль | цитата
Ex_ писал(а):
Tiberius, это по-вашему схема? вот схема.


Я выложил эту схему для новичков,которые только только начинают осваивать хиасм.
карма: 0

0
Ответов: 1173
Рейтинг: 49
#4: 2012-06-15 23:31:37 ЛС | профиль | цитата
Tiberius, да это шутка была
карма: 0

0
Ответов: 9
Рейтинг: 0
#5: 2012-06-16 01:12:14 ЛС | профиль | цитата
Понятно
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2012-06-16 09:27:42 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-22 13:18:57
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2012-06-16 13:46:10 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-22 13:18:43
карма: 0

0
Ответов: 9
Рейтинг: 0
#8: 2012-06-16 16:57:52 ЛС | профиль | цитата
91.199.205.108 писал(а):
видимо Вы тоже новичок!!!!!


Да,я же это говорил.
------------ Дoбавленo в 16.57:
г. Add(StrCase,7529311,27 писал(а):
code_28201.txt
2 элемента...



Спасибо большое,видимо я не заметил этот компонент
карма: 0

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