вставка по нажатию кнопки

Форумы Помощь по пакетувставка по нажатию кнопки ← Ctrl1Ctrl →

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

Ответов: 177

Рейтинг: 11

#1: 2012-07-12 12:49:16 ЛС | профиль | цитата

Нужно для редактора,вот такие функции,были задумки,но чет ниче не получилось,
вот что именно нужно:
вставка времени,вставка текста из буфера обмена,и вставка в из поля ввода,
все должно вставлять в редактор текста

вот все по такому принципу:
code_28454.txt

Я где-то видел тему по вставке текста,но давно,а сейчас найти не смог,да и нужно мне немного другое.

карма: 0

файлы: 1

code_28454.txt [645B] [179]

Ответов: 1173

Рейтинг: 49

#2: 2012-07-12 15:19:36 ЛС | профиль | цитата

[flood]Детский сад, честное слово[/flood]


Add(MainForm,2211625,14,21)
{
 Width=609
 Height=443
}
Add(Memo,12245894,252,105)
{
 Left=130
 Top=115
 Width=380
 Height=205
 Point(doSetFocus)
}
Add(Button,14087581,119,126)
{
 Left=130
 Top=90
 Width=95
 Caption="вставить время"
 link(onClick,7277467:doStrCat,[])
}
Add(Button,7143337,119,273)
{
 Left=230
 Top=90
 Width=160
 Caption="вставить из буфера обмена"
 link(onClick,13843253:doEvent1,[])
}
Add(Button,11958476,56,21)
{
 Left=395
 Top=90
 Width=115
 Caption="вставить "
}
Add(Edit,517602,182,175)
{
 Left=130
 Top=65
 Width=110
}
Add(Button,5194739,119,224)
{
 Left=245
 Top=65
 Width=100
 Caption="вставить "
 link(onClick,6345448:doStrCat,[])
}
Add(Time,1439065,182,77)
{
}
Add(StrCat,7277467,175,126)
{
 link(onStrCat,9568145:doWork2,[])
 link(Str1,601433:Var,[(181,112)(146,112)])
 link(Str2,1439065:FormatTime,[])
}
Add(ClipboardHook,14158392,252,273)
{
 Point(Handle)
}
Add(Hub,13843253,175,273)
{
 link(onEvent1,12245894:doSetFocus,[(240,279)(240,153)])
 link(onEvent2,14158392:doPut,[])
}
Add(StrCat,6345448,175,224)
{
 link(onStrCat,9568145:doWork3,[(235,230)])
 link(Str1,10796501:Var,[(181,210)(146,210)])
 link(Str2,517602:Text,[])
}
Add(HubEx,9568145,231,126)
{
 link(onEvent,12245894:doText,[])
}
Add(LineBreak,4558253,287,175)
{
 Type=1
 link(Data,6679204:Var3,[(293,166)])
 Primary=[10796501,-147,7]
}
Add(LineBreak,12120880,245,175)
{
 Type=1
 link(Data,6679204:Var1,[(251,166)])
 Primary=[601433,-105,-91]
}
Add(GetDataEx,6679204,252,161)
{
 link(Data,12245894:Text,[])
}

Если тебе нужна вставка в место каретки, используй Insert.

карма: 0

файлы: 1 code_28455.txt [1.6KB] [108]

Голосовали: =G=S

Ответов: 177

Рейтинг: 11

#3: 2012-07-15 09:48:58 ЛС | профиль | цитата

А вот после встаки, все же вставляет в одну строку,а нужно чтобы каждый текст выводился с новой строки,ну вот нажал на кнопку вывелся текст,сново нажал на другую кнопку текст вывелся с новой строки... и нужно атоматом все проимходило.

карма: 0

Ответов: 1173

Рейтинг: 49

#4: 2012-07-15 11:48:46 ЛС | профиль | цитата

Так


Add(MainForm,2211625,133,91)
{
 Width=609
 Height=443
}
Add(Memo,12245894,434,196)
{
 Left=130
 Top=115
 Width=380
 Height=205
 Point(doSetFocus)
}
Add(Button,14087581,238,196)
{
 Left=130
 Top=90
 Width=95
 Caption="вставить время"
 Data=Integer(0)
 link(onClick,16755964:doWork2,[])
 AddHint(-41,-23,21,13,Data)
}
Add(Button,7143337,238,266)
{
 Left=230
 Top=90
 Width=160
 Caption="вставить из буфера обмена"
 Data=Integer(2)
 link(onClick,733100:doWork3,[(284,272)])
 AddHint(-38,50,21,13,Data)
}
Add(Button,11958476,175,91)
{
 Left=395
 Top=90
 Width=115
 Caption="вставить "
}
Add(Edit,517602,308,133)
{
 Left=130
 Top=65
 Width=110
}
Add(Button,5194739,238,231)
{
 Left=245
 Top=65
 Width=100
 Caption="вставить "
 Data=Integer(1)
 link(onClick,733100:doWork2,[])
 AddHint(-42,6,21,13,Data)
}
Add(Time,1439065,266,133)
{
}
Add(Clipboard,3040915,350,133)
{
}
Add(GetIndexData,13027244,301,196)
{
 Count=3
 link(onIndex,3945376:doData,[])
 link(Data1,1439065:FormatTime,[(307,180)(272,180)])
 link(Data2,517602:Text,[])
 link(Data3,3040915:Text,[(321,180)(356,180)])
}
Add(DoData,3945376,364,196)
{
 link(onEventData,12245894:doAdd,[])
 link(Data,13027244:Var,[(370,184)(338,184)(338,240)(307,240)])
}
Add(HubEx,16755964,280,196)
{
 link(onEvent,13027244:doIndex,[])
}
Add(HubEx,733100,280,231)
{
 Angle=3
 link(onEvent,16755964:doWork3,[])
}