|
20.06.2019, 12:08
#39828722
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: A galaxy far far away
Сообщения: 3 972
Рейтинг:
0
/ 0
|
|
|
|
Демо-пример унигуя, два клика в код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
var
UniChart1: TUniChart;
Series1: TUniLineSeries;
Series4: TUniLineSeries;
Series5: TUniLineSeries;
UniChart3: TUniChart;
Series3: TUniBarSeries;
Series6: TUniBarSeries;
UniButton1: TUniButton;
UniStringGrid1: TUniStringGrid;
UniChart2: TUniChart;
Series2: TUniPieSeries;
UniLabel1: TUniLabel;
UniChart1 := TUniChart.Create(Self);
Series1 := TUniLineSeries.Create(Self);
Series4 := TUniLineSeries.Create(Self);
Series5 := TUniLineSeries.Create(Self);
UniChart3 := TUniChart.Create(Self);
Series3 := TUniBarSeries.Create(Self);
Series6 := TUniBarSeries.Create(Self);
UniButton1 := TUniButton.Create(Self);
UniStringGrid1 := TUniStringGrid.Create(Self);
UniChart2 := TUniChart.Create(Self);
Series2 := TUniPieSeries.Create(Self);
UniLabel1 := TUniLabel.Create(Self);
UniChart1.Name := 'UniChart1';
UniChart1.Parent := Self;
UniChart1.Left := 8;
UniChart1.Top := 3;
UniChart1.Width := 499;
UniChart1.Height := 166;
UniChart1.Hint := '';
UniChart1.Title.Text.Clear;
UniChart1.Title.Text.Add('Line Chart');
UniChart1.Anchors := [akLeft, akTop, akRight];
Series1.Name := 'Series1';
Series1.Parent := Self;
Series1.Title := 'Trend-1';
Series4.Name := 'Series4';
Series4.Parent := Self;
Series4.Title := 'Trend-2';
Series5.Name := 'Series5';
Series5.Parent := Self;
Series5.Title := 'Trend-3';
UniChart3.Name := 'UniChart3';
UniChart3.Parent := Self;
UniChart3.Left := 8;
UniChart3.Top := 175;
UniChart3.Width := 499;
UniChart3.Height := 187;
UniChart3.Hint := '';
UniChart3.Title.Text.Clear;
UniChart3.Title.Text.Add('Bar Chart');
UniChart3.Anchors := [akLeft, akTop, akRight];
Series3.Name := 'Series3';
Series3.Parent := Self;
Series3.Title := 'Series3';
Series6.Name := 'Series6';
Series6.Parent := Self;
Series6.Title := 'Series6';
UniButton1.Name := 'UniButton1';
UniButton1.Parent := Self;
UniButton1.Left := 593;
UniButton1.Top := 481;
UniButton1.Width := 75;
UniButton1.Height := 25;
UniButton1.Hint := '';
UniButton1.Caption := 'Apply';
UniButton1.Anchors := [akRight, akBottom];
UniButton1.ParentFont := False;
UniButton1.TabOrder := 3;
UniButton1.OnClick := UniButton1Click;
UniStringGrid1.Name := 'UniStringGrid1';
UniStringGrid1.Parent := Self;
UniStringGrid1.Left := 513;
UniStringGrid1.Top := 26;
UniStringGrid1.Width := 155;
UniStringGrid1.Height := 449;
UniStringGrid1.Hint := '';
UniStringGrid1.FixedCols := 0;
UniStringGrid1.FixedRows := 0;
UniStringGrid1.RowCount := 30;
UniStringGrid1.ColCount := 2;
UniStringGrid1.DefaultRowHeight := 18;
UniStringGrid1.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing];
UniStringGrid1.Columns := <>;
UniStringGrid1.Anchors := [akTop, akRight, akBottom];
UniStringGrid1.TabOrder := 2;
UniStringGrid1.ParentFont := False;
UniChart2.Name := 'UniChart2';
UniChart2.Parent := Self;
UniChart2.Left := 8;
UniChart2.Top := 368;
UniChart2.Width := 499;
UniChart2.Height := 138;
UniChart2.Hint := '';
UniChart2.Title.Text.Clear;
UniChart2.Title.Text.Add('Pie Chart');
UniChart2.Anchors := [akLeft, akTop, akRight, akBottom];
Series2.Name := 'Series2';
Series2.Parent := Self;
Series2.Colors.Clear;
Series2.Colors.Add('#0000FF');
Series2.Colors.Add('#00FF00');
Series2.Colors.Add('#FF0000');
Series2.Colors.Add('#00FFFF');
Series2.Colors.Add('#FFFF00');
Series2.Colors.Add('#FF00FF');
UniLabel1.Name := 'UniLabel1';
UniLabel1.Parent := Self;
UniLabel1.Left := 556;
UniLabel1.Top := 8;
UniLabel1.Width := 61;
UniLabel1.Height := 13;
UniLabel1.Hint := '';
UniLabel1.Caption := 'Chart Data';
UniLabel1.Anchors := [akTop, akRight];
UniLabel1.ParentFont := False;
UniLabel1.Transparent := False;
UniLabel1.TabOrder := 0;
|
|
|
