Вверх ↑
Ответов: 8928
Рейтинг: 823
#1: 2008-03-13 15:57:28 ЛС | профиль | цитата
nesco, да я не менял ни Share, ни Screen, может поэтому , а на FPC и не работаю никогда.
------------ Дoбавленo:

nesco, вопрос в догонку:

Add(ChildScrollBox,6760295,238,112)
{
link(onEvent1,9396111:doText,[])
}
BEGIN_SDK
Add(EditMulti,3978996,21,21)
{
EventCount=1
WorkCount=1
Width=314
Height=368
link(doWork1,10754446:doEvent1,[(46,27)(46,48)])
}
Add(ScrollBox,10924359,56,105)
{
Left=65
Top=15
Width=320
Height=240
}
Add(Image,5274948,231,63)
{
ViewStyle=4
Point(doWidth)
Point(doHeight)
Point(ImageWidth)
Point(ImageHeight)
Point(onMouseUp)
Point(MouseX)
Point(Handle)
Point(doRefresh)
Point(onPaint)
link(onMouseUp,4468701:doValue,[(293,76)(293,130)(240,130)(240,146)])
}
Add(Hub,10754446,56,42)
{
OutCount=4
link(onEvent1,5274948:doLoad,[(121,48)(121,69)])
link(onEvent2,950310:doData,[(111,55)(111,125)])
link(onEvent3,13900580:doData,[(104,62)(104,160)])
}
Add(DoData,950310,154,119)
{
link(onEventData,5274948:doWidth,[(198,125)(198,83)])
link(Data,5274948:ImageWidth,[(160,110)(244,110)])
}
Add(DoData,13900580,126,154)
{
link(onEventData,5274948:doHeight,[(208,160)(208,90)])
link(Data,48388:Var1,[(132,114)])
}
Add(Memory,4468701,252,140)
{
Default=Integer(0)
Point(Data)
link(onData,14673293:doEvent1,[(296,146)(296,190)(116,190)(116,244)])
link(Data,5274948:MouseX,[])
}
Add(Img_Line,10122244,245,245)
{
DrawSource=1
Color=255
Point(Point1)
Point(Point2)
link(Bitmap,5274948:Handle,[(251,124)(265,124)])
link(Point1,10941271:Var2,[])
link(Point2,11703348:Point,[(265,237)(272,237)])
}
Add(PointXY,11703348,266,196)
{
link(X,10941271:Var3,[(272,184)])
link(Y,48388:Var3,[(279,114)])
}
Add(GetDataEx,48388,238,105)
{
link(Data,5274948:ImageHeight,[])
}
Add(GetDataEx,10941271,245,175)
{
link(Data,4468701:Value,[])
}
Add(Timer,10768491,175,259)
{
Interval=32
Enable=1
link(onTimer,8994884:doWork3,[(228,265)])
}
Add(HubEx,8994884,224,238)
{
link(onEvent,10122244:doDraw,[])
}
Add(Hub,14673293,126,238)
{
OutCount=4
link(onEvent1,5274948:doRefresh,[(222,244)(222,97)])
link(onEvent2,8994884:doWork2,[])
link(onEvent3,3978996:onEvent1,[(217,258)(217,27)])
link(onEvent4,10768491:doTimer,[])
}
END_SDK
Add(ODialog,8946635,154,112)
{
link(onExecute,11585814:doLoad,[])
}
Add(PictureStream,11585814,196,112)
{
link(onLoad,6760295:doWork1,[])
}
Add(Button,8407419,112,112)
{
Top=20
Width=65
Color=-16777211
Ctl3D=0
Caption="Открыть"
link(onClick,8946635:doExecute,[])
}
Add(Edit,9396111,280,112)
{
Left=5
Top=75
}

В этой схеме картинка много больше (4000х3000), чем место для неё, на ней надо по клику мышки нарисовать вертикальную линию, но что бы она (линия) не пропадала при прокрутке или загораживании её чем либо, при последующих щелчках мышки линия должна нарисоваться на новом месте, исчезнув со старого.
Мне пришлось использовать Таймер, а хотелось бы onPaint, но эта точка не работает, компилятор говорит
Error: Undeclared identifier: '_event_onPaint'

Ничего не подскажете?
карма: 19

0