так как можно копировать несколько текстов и в они не будут заменятся
------------ Дoбавленo в 12.33:
Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,105,28)
{
Width=417
Height=308
Color=16777215
Ctl3D=0
WinStyle=1
AlphaBlendValue=230
Caption="***"
BorderStyle=0
DragForm=0
Point(Handle)
Point(doAlphaBlendValue)
Point(doWidth)
}
Add(ListBox,9397403,231,189)
{
Left=10
Top=45
Width=400
Height=140
WinStyle=2
AddType=1
DataType=1
Point(onDblClick)
Point(String)
Point(Index)
link(onDblClick,5704398:doSetText,[(281,209)(281,265)(240,265)(240,321)])
}
Add(StyleXP,13220516,210,112)
{
}
Add(Button,8586641,28,252)
{
Left=145
Top=220
Width=60
Height=35
Font=[MS Serif,10,1,0,204]
Hint="Очистить только выделеное"
Caption="DELL"
link(onClick,11700844:doData,[])
}
Add(Button,1213989,28,196)
{
Left=210
Top=220
Width=60
Height=35
Font=[MS Serif,10,1,0,204]
Hint="Очистить весь список"
Caption="DELL ALL"
link(onClick,9397403:doClear,[])
}
Add(ClipboardHook,5704398,252,315)
{
link(onChange,5316660:doEvent1,[])
link(Text,9397403:String,[])
}
Add(Label,8582661,308,112)
{
Left=135
Top=195
Width=68
Height=17
Color=-16777211
Font=[MS Sans Serif,8,1,0,1]
Caption="ничего нет"
link(Text,15579017:Text,[])
}
Add(Clipboard,15579017,308,63)
{
}
Add(Timer,5434705,259,112)
{
Interval=100
link(onTimer,8582661:doText,[])
}
Add(DoData,11700844,112,252)
{
link(onEventData,9397403:doDelete,[(188,258)(188,209)])
link(Data,9397403:Index,[(118,243)(265,243)])
}
Add(Label,841820,259,63)
{
Left=10
Top=15
Width=196
Height=28
Color=16777215
Font=[MS Sans Serif,14,1,0,204]
Caption="Память для буфера"
}
Add(Label,2892108,259,21)
{
Left=10
Top=195
Width=126
Height=17
Color=-16777211
Font=[MS Sans Serif,8,1,0,1]
Caption="Текущие состояние:"
}
Add(Button,13382768,28,91)
{
Left=350
Top=20
Width=25
Hint="Свернуть в трее"
Caption="__"
link(onClick,13907347:doHide,[])
}
Add(Button,7513192,29,49)
{
Left=385
Top=20
Width=25
Hint="Закрыть"
Caption="X"
link(onClick,2953706:doClose,[])
}
Add(TrayIcon,13907347,105,84)
{
link(onDblClick,13907347:doShow,[(145,97)(145,79)(93,79)(93,90)])
}
Add(ChildForm,4551235,581,259)
{
}
BEGIN_SDK
Add(EditMulti,4876487,21,21)
{
WorkCount=2
Width=307
link(doWork1,982355:doVisible,[(28,27)(28,139)])
link(doWork2,12112006:doText,[(101,34)(101,83)])
}
Add(MainForm,982355,35,105)
{
Left=1000
Top=940
Width=272
Height=57
Visible=1
WinStyle=1
BorderStyle=0
Point(doVisible)
Point(Left)
Point(Top)
}
Add(Label,2511349,112,42)
{
Width=107
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption="Скопировано:"
}
Add(Label,12112006,182,77)
{
Left=5
Top=20
Width=261
Height=32
Caption="***"
}
END_SDK
Add(Timer,2141512,427,329)
{
Interval=5000
Enable=1
link(onTimer,5217925:doData,[])
}
Add(Hub,5316660,336,315)
{
OutCount=4
link(onEvent1,9397403:doAdd,[(362,321)(362,258)(219,258)(219,195)])
link(onEvent2,14571477:doEvent1,[(410,328)(410,286)])
link(onEvent3,2141512:doTimer,[])
link(onEvent4,4551235:doWork2,[(469,342)(469,272)])
}
Add(DoData,5217925,483,329)
{
Data=Integer(0)
link(onEventData,14571477:doEvent2,[(527,316)(527,293)])
}
Add(Hub,14571477,539,280)
{
InCount=2
OutCount=1
link(onEvent1,4551235:doWork1,[(561,286)(561,265)])
}
Add(Label,12430832,210,21)
{
Left=5
Top=255
Width=149
Height=17
Color=16777215
Font=[MS Sans Serif,6,0,128,1]
Caption="Сделано в программе HiAsm"
}
Add(Button,2901921,28,133)
{
Left=275
Top=255
Width=135
Height=15
Hint="Открыть справку"
Caption="Справка"
Data=Integer(1)
link(onClick,9937457:doWork1,[])
}
Add(ChildForm,9937457,105,133)
{
}
BEGIN_SDK
Add(EditMulti,4177949,21,21)
{
WorkCount=1
link(doWork1,4483802:doVisible,[(28,27)(28,139)])
}
Add(MainForm,4483802,35,105)
{
Left=35
Top=105
Width=401
Height=250
Visible=1
Caption="Справка"
Point(doVisible)
}
Add(Label,15743313,14,14)
{
Left=10
Top=10
Width=375
Height=197
Font=[MS Sans Serif,10,1,0,1]
Caption="Как работать с программой:
Для того чтобы чтото записать в память программы просто скопируйте
Можно не возврощатся в программу каждый раз при копирование
можно бесконечно долго копировать а потом просто зайти в программу и выбирать что нужно занести в буфер
для этого нажмите 2 раза по нужной строке и далее вставте куда нужно вам
Что бы перемистить окно захватите ее за лбое место"
AutoSize=1
}
END_SDK
Add(Label,9617572,210,63)
{
Left=5
Top=280
Width=409
Height=27
Color=16777215
Font=[MS Sans Serif,8,0,255,1]
Caption="Внимание!!!Автор не несет никакой ответственности за ее дальнейшие использование другими пользователями"
AutoSize=1
}
http://binar1.hosting-test.org.ua/
[offtop]Еду я еду никого не трогаю километров 60 ну может 65......[/offtop]