Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-05-05 07:16:24 ЛС | профиль | цитата
Схема


Add(MainForm,2953706,154,105)
{
Width=428
Height=441
}
Add(ChildGroupBox,7224576,252,105)
{
}
BEGIN_SDK
Add(EditMulti,7412133,7,7)
{
WorkCount=1
Width=195
Height=165
VOffset=28
link(doWork1,5837163:doEvent1,[])
}
Add(GroupBox,2618308,28,84)
{
Left=35
Top=55
Width=240
Height=150
Font=[MS Sans Serif,8,1,16711680,1]
Ctl3D=0
WinStyle=1
Caption="ГРАФИК"
Point(Handle)
Point(doCaption)
}
Add(PaintBox,13607343,140,28)
{
Width=245
Height=150
Point(Width)
Point(Height)
Point(doVisible)
}
Add(Img_Diagram,10381908,133,126)
{
Point1=1
Point2AsOffset=0
Style=2
Color=16777215
BgColor=65280
BgColors=['Питание'=12672767,'Транспорт'=8294280,'Платежи'=15413896,'Дети'=14667846,'Быт.расходы'=16744014]
Font=[Courier New,8,1,8388608,204]
Items=#7:Питание|9:Транспорт|7:Платежи|4:Дети|9:Быт.расх.|
LegendSize=100
ShowZero=1
Point(Point1)
Point(Point2)
link(onDraw,13607343:doRefresh,[(189,132)(189,16)(128,16)(128,34)])
link(Bitmap,13607343:Bitmap,[(139,79)(146,79)])
link(Point2,8882345:Point,[])
}
Add(PointXY,8882345,147,77)
{
link(X,13607343:Width,[])
link(Y,13607343:Height,[])
}
Add(Hub,5837163,28,35)
{
OutCount=3
link(onEvent1,13607343:doClear,[])
link(onEvent2,4848606:doAdd,[(66,48)(66,132)])
}
Add(MT_AddData,4848606,77,126)
{
Count=5
Data=Integer(0)
link(onAdd,10381908:doDraw,[])
}
Add(VisualStrings,14563985,91,77)
{
Lines=#3:100|
}
END_SDK
Add(Button,14137115,203,105)
{
Left=10
Top=20
link(onClick,7224576:doWork1,[])
}

nesco, у себя добавил строку

   sum := 0;
SetLength(items, FList.Count);
for i := 0 to FList.Count-1 do
begin
Items[i] := ToReal(mt);
if mt.ldata ‹› nil then
mt := mt.ldata^;

sum := sum + items[i];
end;
IF SUM=0 THEN EXIT; // 05.05.2017 Tad

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:sla8a