Вверх ↑
Ответов: 1376
Рейтинг: 197
#1: 2012-10-25 19:00:05 ЛС | профиль | цитата
Баловался... Получились часики, наглядно показывающие как безвозвратно уходит время... Куда-нибудь можно применить, наверное.
ПКМ - меню для закрытия окна
ЛКМ - для таскать по экрану
При выходе координаты запоминаются
WindowsXP SP3 NVidia
code_29382.txt
Добавил Application для обработки сообщений в очереди, возможно его и не хватало. Вкючается СКМ

Add(MainForm,2953706,441,196)
{
Left=800
Top=500
Width=200
Height=200
Name="f"
Caption=""
BorderStyle=6
TaskBar=1
DragForm=0
SavePosName="HiClock"
Point(Left)
Point(Top)
Point(Handle)
link(onCreate,8730968:doEvent1,[])
}
Add(Image,12120925,483,252)
{
Width=200
Height=200
Align=5
ViewStyle=1
Point(onMouseDown)
Point(Width)
link(onMouseDown,12274948:doEvent,[])
}
Add(ChildForm,15156356,441,252)
{
FirstUsage=0
link(onEvent1,12120925:doLoad,[])
link(Data1,2953706:Left,[])
link(Data2,2953706:Top,[])
}
BEGIN_SDK
Add(EditMulti,5888192,25,74)
{
EventCount=1
WorkCount=2
DataCount=2
Width=664
Height=319
link(doWork1,13397555:doEvent1,[(12,80)(12,174)])
link(doWork2,15889664:doSwitch,[(565,87)(565,181)])
}
Add(MainForm,4226016,273,140)
{
Width=200
Height=200
Color=16777215
BorderStyle=0
TaskBar=1
Picture=[ZIP7E06000078DA73F2AD636300033B20D600E21428660442107080CA83001382C9F0FFFF7F1086830F10B151FE287F943FCA1FE58FF209F20195A20EE4]
Point(Handle)
Point(onMove)
Point(doLeft)
Point(doTop)
Point(Left)
Point(Top)
Point(Width)
Point(Height)
link(onMove,15416528:doCopy,[(321,167)(321,259)(266,259)(266,223)])
}
Add(Img_Copy,15416528,273,217)
{
DrawSource=1
Point(Width)
Point(Height)
link(onCopy,8908202:doEvent1,[])
link(Source,4226016:Handle,[])
link(Width,4226016:Width,[])
link(Height,4226016:Height,[])
}
Add(Random,11299315,182,294)
{
Min=-1
Max=1
link(onRandom,1339345:doOperation,[])
}
Add(Timer,10602716,35,294)
{
@Hint=#4:Такт|18:Подбирать по вкусу|
Interval=40
link(onTimer,580015:doNext,[])
AddHint(-35,-48,101,26,@Hint)
}
Add(Math,1339345,231,294)
{
ResultType=0
link(onResult,552744:doWork3,[(275,300)(275,277)(214,277)])
link(Op1,4226016:Left,[(237,197)(286,197)])
}
Add(Img_Text,16347123,483,217)
{
X=15
Y=85
Font=[Tahoma,28,3,32768,204]
Point(doFont)
link(onDraw,4109435:doEvent1,[])
link(Text,4973698:Var,[])
}
Add(Hub,13397555,133,168)
{
InCount=2
link(onEvent1,14050087:doData,[])
link(onEvent2,4298210:doData,[])
}
Add(Hub,8908202,336,217)
{
OutCount=3
link(onEvent1,16347123:doDraw,[])
link(onEvent2,2993570:doRandom,[(374,230)(374,167)])
link(onEvent3,8446226:doFont,[])
}
Add(Font,8446226,392,231)
{
Font=[Tahoma,26,3,0,204]
link(onFont,16347123:doFont,[(447,237)(447,230)])
link(Color,2993570:Random,[])
}
Add(Random,2993570,399,161)
{
Max=4294967295
link(onRandom,149914:doRandom,[])
}
Add(VisualStrings,6897782,504,126)
{
Lines=#5:HiAsm|
Width=10
}
Add(Hub,15366706,154,294)
{
OutCount=3
link(onEvent1,11299315:doRandom,[])
link(onEvent2,11299315:doRandomize,[])
link(onEvent3,5323986:doRandom,[(175,314)(175,356)])
}
Add(Random,5323986,182,350)
{
Min=-1
Max=1
link(onRandom,5233090:doOperation,[])
}
Add(Math,5233090,245,350)
{
OpType=1
ResultType=0
link(onResult,7871592:doWork3,[(292,356)(292,268)(221,268)])
link(Op1,4226016:Top,[(251,205)(293,205)])
}
Add(Random,149914,441,161)
{
Max=250
link(onRandom,4973698:doIndex,[])
}
Add(GetIndexData,4973698,490,161)
{
Count=7
link(Data1,15193489:Text,[])
link(Data2,13467449:Var1,[(503,152)])
link(Data3,6897782:Text,[])
link(Data4,13467449:Var2,[])
link(Data5,10277243:Var2,[])
link(Data6,674488:Var2,[])
link(Data7,674488:Var3,[(538,152)])
}
Add(VisualStrings,15193489,490,126)
{
Lines=#6:foksov|
Width=11
}
Add(Time,6494967,511,112)
{
Format="h:m:s"
}
Add(GetDataEx,13467449,511,147)
{
link(Data,6494967:FormatTime,[])
}
Add(GetDataEx,10277243,518,147)
{
Angle=3
link(Data,13467449:Var3,[])
}
Add(GetDataEx,674488,525,147)
{
Angle=3
link(Data,10277243:Var3,[])
}
Add(HubEx,552744,210,168)
{
link(onEvent,4226016:doLeft,[])
}
Add(HubEx,7871592,217,175)
{
link(onEvent,4226016:doTop,[])
}
Add(CounterEx,580015,84,294)
{
Max=33
Point(onThroughMax)
link(onNext,15366706:doEvent1,[])
link(onThroughMax,13397555:doEvent2,[(124,307)(124,181)])
}
Add(DoData,14050087,161,168)
{
link(onEventData,552744:doWork2,[])
link(Data,5888192:Data1,[(167,121)(31,121)])
}
Add(DoData,4298210,168,175)
{
link(onEventData,7871592:doWork2,[])
link(Data,5888192:Data2,[(174,113)(38,113)])
}
Add(Hub,4109435,525,217)
{
link(onEvent1,5888192:onEvent1,[(558,223)(558,80)])
link(onEvent2,12844876:doEvent,[])
}
Add(Application,4702780,644,224)
{
}
Add(Switch,15889664,581,175)
{
DataOn=Integer(1)
DataOff=Integer(0)
Default=0
Point(State)
}
Add(IndexToChanel,12844876,581,224)
{
Count=1
Point(Index)
link(onEvent1,4702780:doProcessMessages,[])
link(Index,15889664:State,[])
}
END_SDK
Add(PopupMenu,1154173,595,266)
{
Menu=#7:Закрыть|
link(onClick,8900037:doTimer,[])
}
Add(Hub,8730968,497,210)
{
link(onEvent1,9096777:doPopup,[])
link(onEvent2,15156356:doWork1,[(529,223)(529,294)(429,294)(429,258)])
}
Add(WinTools,9096777,588,203)
{
link(Handle,2438259:Var1,[(594,191)(633,191)])
}
Add(Timer,8900037,644,266)
{
Interval=3000
Enable=1
link(onTimer,2953706:doClose,[(691,272)(691,314)(420,314)(420,223)])
}
Add(IndexToChanel,12274948,546,259)
{
Count=3
link(onEvent1,2527619:doMove,[])
link(onEvent2,1154173:doPopupHere,[])
link(onEvent3,15156356:doWork2,[(586,279)(586,304)(434,304)(434,265)])
}
Add(MoveWindow,2527619,700,259)
{
link(Handle,2438259:Var3,[(706,246)])
}
Add(GetDataEx,2438259,627,241)
{
Angle=3
link(Data,2953706:Handle,[(461,246)])
}


Приятного наблюдения за временем!
карма: 1

0
файлы: 1code_29382.txt [5.3KB] [550]