Sign in Join
Wiki copytemporary

TAChart Tutorial: Userdefined ChartSource/fi: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: TAChart Tutorial: Userdefined ChartSource/fi

OldNewLine
1+## Johdanto
2+
3+![](/wiki-images/4/40/TAChart_Population6.png)
4+
5+Tässä opetusohjelmassa käytämme TAChart-komponentteja piirtämään ikäjakauman maailman väestöstä. Näin tehdessään, opit
6+
7+- miten työskennellä [[TAChart documentation|aluekuvaajan]] kanssa
8+- ja ennen kaikkea, miten soveltaa [[TAChart documentation|käyttäjän määrittämää dataa kaaviossa]]
9+
10+Kuten tavallista, oletamme, että olet perehtynyt Lazarukseen ja Object Pascal kieleen ja on joitakin perustietoja TAChart paketista, jotka voit käymällä läpi [[TAChart Tutorial: Getting started/fi|Aloittajan opetusohjelman]].
11+
12+## Esivalmistelu
13+
14+### Data
15+
16+Saitti [www.census.gov](http://www.census.gov) sisältää runsaasti demografista tietoa. Tämä [linkki](http://www.census.gov/population/international/data/worldpop/tool_population.php) vie suoraan tietoihin, jotka halutaan piirtää: maailman väestö iän ja sukupuolen mukaan.
17+
18+Mene sivulle, valitse ja klikkaa "submit" (lähetä). Ikkunan alaosassa, näet taulukon sarakkeet *"Age"*, *"Both Sexes Population"*, *"Male population"*, *"Female population"* ja *"Sex ratio"*. Valitse hiirellä taulukon tiedot (mukaan lukien otsikko) ja kopioi ne leikepöydälle. Liitä tiedot tekstieditoriin ja tallenna nimellä "population.txt".
19+
20+Avaa Lazarus ja luo uusi projekti. Ensin meidän täytyy ladata tietoja, jotta ne voidaan piirtää.
21+
22+Määritellään tietue `TPopulationRecord` ja taulukko `TPopulationArray` joka pitää väestön tiedot taulukossa:
23+
24+``` pascal
25+type
26+ TPopulationRecord = record
27+ Age: Integer;
28+ Total: Double;
29+ Male: Double;
30+ Female: Double;
31+ Ratio: Double;
32+ end;
33+
34+ TPopulationArray = array of TPopulationRecord;
35+```
36+
37+Seuraavaksi luetaan tiedosto. Tutustu käännösyksikköön (unit) `population.pas` [[TAChart Tutorial: Userdefined ChartSource|lähdekoodiin]]. Löydät sieltä:
38+
39+``` pascal
40+procedure LoadPopulationData(const AFilename:string; var Data:TPopulationArray)
41+```
42+
43+mikä tekee tiedoston lukemisen ja tallentaa datan `TPopulationArray` taulukkoon.
44+
45+Sisällytä käännösyksikkö (unit) `population` `uses` -lauseen luetteloon jotta päästään käsiksi kyseiseen aliohjelmaan. Lisää muuttuja `PopulationData` joka on tyypiltään `TPopulationArray` lomakkeen luokan `private` osioon. Nyt meillä on kaikki valmiina jotta voidaan kutsua `LoadPopulationData` lomakkeen OnCreate tapahtumasta. Tämä lukee tiedoston tiedot taulukkoon `PopulationData`.
46+
47+``` pascal
48+uses
49+ ..., population;
50+
51+type
52+ TForm1 = class(TForm)
53+ // ...
54+ private
55+ PopulationData : TPopulationArray;
56+ // ...
57+ end;
58+
59+const
60+ POPULATION_FILE = 'population.txt';
61+
62+procedure TForm1.FormCreate(Sender: TObject);
63+begin
64+ LoadPopulationData(POPULATION_FILE, PopulationData);
65+end;
66+```
67+
68+Käännä tarkistaaksesi ilmeiset virheet pois. Voit saada ajonaikaisen virheen (runtime error), että tiedosto ei löydy. Tämä johtuu siitä, että tiedosto oletetaan sijaitsevan samassa kansiossa kuin ajettava tiedosto (ns. exe-tiedosto). Voit korjata tämän, joko muuttamalla vakio `POPULATION_FILE` osoittamaan oikeaan tallennuspaikkaan, tai kopioida "population.txt" on exe-kansioon. Nyt ohjelma pitäisi toimia hyvin, näet vaikka näet vain tyhjän lomakkeen.
69+
70+### Yhdistelmäruutu ComboBox ryhmän valitsimena
71+
72+Tiedosto sisältää eri ryhmiä: koko, miespuolinen ja naispuolinen väestö sekä mies-nais suhde. Miksi se ei näytä näitä tietoja meidän kaaviossa?
73+
74+Tehdään tämä pohjaksi
75+
76+- Lisätään paneeli (TPanel-komponentti) lomakkeelle. Asetetaan sen align arvoon `alTop` ja poistetaan siinä oleva teksti.
77+- Lisätään ComboBox tähän paneelin. Asetetaan sen `Style` arvoon `csDropdownList` , lisätään tekstit "Kokonaisväkiluku", "Miesväestö", "Naisväestö" ja "Suhde mies / nainen (%)" `Items` omaisuuteen sekä asetetaan `ItemIndex` arvoon 0.
78+
79+### Valmistellaan TChart
80+
81+Nyt on esivalmistelut tehty. On aika valmistella kaaviota...
82+
83+- Lisää `TChart` komponentti lomakkeelle, aseta sen align arvoon `alClient`.
84+- Aseta kaavion `BackColor` arvoon `clWhite` ja kummankin akselin `Grid.Color` arvoon `clSilver`.
85+- Laita kummankin akselin otsikot näkyviin asettamalla `LeftAxis.Visible` ja `BottomAxis.Visible` arvoon `true`.
86+- Kirjoita bottom akselin `Caption` ominaisuuteen joko "Age" tai "Ikä" ja left akselille "Total population" (tai jätä tyhjäksi - myöhemmin se korvataan kyseisen suorituksen mukaisen valinnan mukaan mikä on ComboBox:ssa valittuna )
87+- Kirjoita teksti "World population" tai "Maailman väestö" kaavion otsikoksi.
88+- Laita näiden fontin tyylit arvoon `fsBold`.
89+- Ehkä olisi hyvä idea näyttää viittaus mistä tiedot ovat peräisin. [[TAChart documentation|Footer]] - eli kaavion ominaisuus `Foot` voidaan käyttää tähän. Huomaa, että omaisuuteen Foot.Text (samoin kuin Title.Text ) voidaan merkkijonojen muokkaimen avulla kirjoittaa moni rivisiä otsikoita.
90+
91+![](/wiki-images/6/61/TAChart_Population2.png)
92+
93+## Luodaan aluekuvaaja
94+
95+Tällä kertaa näytetään tiedot [alue kuvaajan](https://en.wikipedia.org/wiki/Area_chart) avulla. Tämän tyyppinen kuvaaja yhdistää datapisteet, kuten viivakuvaaja, mutta myös täyttää alueen tietyllä värillä. On hyvin yleistä näyttää demografiset tiedot, kuten [väestöpyramidi](https://en.wikipedia.org/wiki/Population_pyramid) , tällä tavalla.
96+
97+Joten, lisää [[TAChart documentation|TAreaSeries]] (aluekuvaaja) kaavioon. Kuten tavallista, et näe sitä tällä hetkellä, koska se ei ole vielä mitään tietoa. Mutta voimme muokata sen joitakin ominaisuuksia:
98+
99+- Aseta sen `SeriesColor` arvoon `clSkyBlue`. Tämä on aluekuvaajan täyttöväri.
100+- Piilota pystysuorat viivat asettamalla `AreaLinesPen` :n `Style` arvoon `psClear`.
101+- Jos haluat, voit myös vaihtaa `ConnectType` arvoon `ctStepXY` tai `ctStepYX` saadaksesi askel efektin.
102+
103+Myöhemmin, kun kuvaajalla on dataa, voit tutustua näihin ja muihin ominaisuuksiin paremmin ja nähdä mitä ne tekevät.
104+
105+## Käyttäjän määrittämää dataa kaavioon
106+
107+Miten saadaan oma data aluekuvaajalle?
108+
109+Ensimmäinen ajatus ehkä on käydä läpi `PopulationData` taulukko ja kopioida data kuvaajalle käyttäen `AddXY` kutsua, näin:
110+
111+``` pascal
112+var
113+ i: Integer;
114+begin
115+ for i:=0 to High(PopulationData) do
116+ Chart1AreaSeries1.AddXY(PopulationData[i].Age, PopulationData[i].Total);
117+end;
118+```
119+
120+Haittana tässä lähestymistavassa on, että dataa olisi muistissa kahdesti: `PopulationData` taulukossa ja kuvaajassa - ei kovin hyvä ratkaisu: se tuhlaisi muistia ja lisäksi olisi sovitettava aina myös toisen varaston dataa kun dataa lisätään, poistetaan tai muokataan.
121+
122+![](/wiki-images/e/e0/TAChart_Population3.png)
123+
124+Tämän välttämiseksi lisäämme [[TAChart documentation|TUserDefinedChartSource]] lomakkeelle, se on kolmas tai neljäs kuvake vasemmalta Chart komponenttipaletilla. Tämä kaavio lähde on tehty liitännäksi kaikenlaisten tietojen varastoinnista, tämä lähde itsessään ei tallenna mitään tietoja. Täytyy vain kirjoittaa tapahtuman käsittelijä `OnGetChartDataItem` jotta voidaan siirtää tietoja. Tätä tarkoitusta varten, tapahtuma ottaa `var` parametrin `AItem` joka on tyyppiä `TChartDataItem` , joka on määritelty seuraavasti (elementtejä joita ei tarvita tässä on jätetty pois):
125+
126+``` pascal
127+type
128+ TChartDataItem = object
129+ X, Y: Double;
130+ // ...
131+ end;
132+```
133+
134+Kentät `X` ja `Y` ovat datapisteen koordinaatit.
135+
136+Nyt kirjoitetaan tapahtuman käsittelijä `OnGetChartDataItem`:
137+
138+``` pascal
139+procedure TForm1.UserDefinedChartSource1GetChartDataItem(
140+ ASource: TUserDefinedChartSource; AIndex: Integer; var AItem: TChartDataItem);
141+begin
142+ AItem.X := PopulationData[AIndex].Age;
143+ case Combobox1.ItemIndex of
144+ 0: AItem.Y := PopulationData[AIndex].Total;
145+ 1: AItem.Y := PopulationData[AIndex].Male;
146+ 2: AItem.Y := PopulationData[AIndex].Female;
147+ 3: AItem.Y := PopulationData[AIndex].Ratio;
148+ end;
149+end;
150+```
151+
152+`AIndex` on indeksi tietokohtaan joka kysytään. Koska sekä kaavion lähde ja `PopulationData`-taulukko alkaa indeksistä 0 niin vain luetaan data taulukkoa tällä indeksillä ja vastaavaan elementin data kopioidaan `AItem`:n . Huomaa, että poimimme y-koordinaatin sen mukaan, mitä on valittu yhdistelmäruutuun (ComboBox). Tällä tavoin UserDefinedChartSource voi tarjota monenlaisia ​​tietoja.
153+
154+On vielä joitakin tärkeitä asioita tekemättä:
155+
156+- Asettaa että kuvaaja käyttää UserDefinedChartSource:a (sisäänrakennetun lähteen sijaan). Tätä varten laitetaan kuvaajan ominaisuus `Source` osoittamaan `UserDefinedChartSource1` .
157+- Kertoa UserDefinedChartSource:lle kuinka monta datapistettä ulkoisten tietojen taulukko sisältää. Datamäärä syötetään UserDefinedChartSource:n ominaisuuteen `PointsNumber` . Datamäärää tunnetaan sen jälkeen kun procedure `LoadPopulationData`on päättynyt. Niinpä lisätään rivi, joka asettaa `PointsNumber` oikein `FormCreate` metodiin sen jälkeen kun aliohjelmaa `LoadPopulationData` on kutsuttu.
158+- Koska UserDefinedChartSource ei tiedä mitään rakennetta ulkoisista tiedoista niin täytyy ehdottomasti ilmoittaa aina, kun tiedot ovat käytettävissä tai on muutettu. Teemme tämän kutsumalla `UserDefinedChartSource1.Reset`:ä sopivasta paikasta. Joskus olet onnekas että joku muu tapa saattanut tehdä tämän jo. Mutta pitää muistaa, että aina kun kaavio, jossa on UserDefinedChartSource ja se ei käyttäydy odotetulla tavalla on olemassa mahdollisuus, että olet ehkä unohtanut kutsua `Reset`. Testaa, mitä tapahtuu jos "unohtaa" `Reset` kutsun.
159+
160+## Hienosäätö
161+
162+![](/wiki-images/4/48/TAChart_Population4.png)
163+
164+Käännä projekti tässä vaiheessa. Ei aivan huono, joitakin puutteita, vaikka.
165+
166+- Saattaa olla että y-akselin merkinnnät ovat outoja. Miksi he hypätä 80000000, 1 ja sitten 12? Tämä johtuu virheestä joka oli jossain vanhoissa FPC:n versioissa jossa `Format` toiminto ei toiminut oikein suurilla numeroilla. Jos sinulla tämä virhe, vaihda omaisuutta `LeftAxis.Marks.Format`. Tämä merkkijono välitetään `Format` funktiolle joka muuntaa numerot merkkijonoksi. Format tarkenteella "% .0n" vältetään muunnosvirhe ja lisäksi se lisää mukavan tuhaterottimen merkintöihin mikä tekee niistä paljon luettavaa. Huomaa kuitenkin, että "0" katkaisee desimaalit. Siksi tätä format tarkennetta kannattaa käyttää vain suurilla numeroilla.
167+- On pieni väli y-akselin ja täytetty alueen kuvaajan välissä. Samoin on täytetty alue ulottuu vähän x-akselin alle. Tämä johtuu kaavion `Margins` ominaisuudesta. Tämä ominaisuus on yleensä varsin hyödyllistä luoda tyhjän alueella lähellä piste akselilla, vapaa päällekkäisiä tunnuksista ja merkinnöistä. Mutta nyt se on epäedullinen. Joten asettaa `Chart.Margins.Left` ja `Chart.Margins.Bottom` arvoon 0.
168+- Ah niin yhdistelmäruutu (ComboBox) ei toimi vielä. Sille tarvitsee antaa toiminta sen `OnSelect` tapahtumaan. Mitä sillä valitaan? No, kun toinen ComboBox kohde valitaan niin UserDefinedChartSource raportoi sen y-arvon kuvaajalle - sitähän halutaan. Mutta miten saamme `OnGetChartDataItem` kutsuttua? Vain kaavion uudelleen piirtämistä! Kun kuvaaja piirtyy uudelleen se saa aina kyselyn tiedot kaaviosta lähteestä, joten sillä on päivitetyt tiedot automaattisesti. OK - kutsukaamme `Chart1.Invalidate` :
169+
170+``` pascal
171+procedure TForm1.ComboBox1Select(Sender: TObject);
172+begin
173+ Chart1.Invalidate;
174+end;
175+```
176+
177+Kun käännetään ja ohjelman ajossa valitaan toinen ComboBox kohde niin kuvaaja hienosti päivittyy valittuun luokkaan. Mutta akseli on jäätynyt, se ei muutu automaattisesti. Onko tämä virhe? Ei. Muutama rivi aikaisemmin, sanottiin, että kun kaavio, jossa on UserDefinedChartSource ei toimi odotetulla tavalla on olemassa mahdollisuus, että olet ehkä unohtanut kutsua `UserDefinedChartSource.Reset`. Siinä se on: korvataan `Invalidate` `Reset`-kutsulla . Ja voimme korjata myös toisen puutteen: kuvateksti y-akselin pitäisi muuttua, kun toinen luokka on valittu. Tämä onnistuu kopioimalla yhdistelmäruudusta (ComboBox) valittu teksti kaavion `LeftAxis.Title.Caption`. Lisätään tämä rivi yhdistelmäruudun (ComboBox) OnSelect tapahtumakäsittelijään:
178+
179+``` pascal
180+procedure TForm1.ComboBox1Select(Sender: TObject);
181+begin
182+ Chart1.LeftAxis.Title.Caption := Combobox1.Items[Combobox1.ItemIndex];
183+ UserDefinedChartSource1.Reset;
184+end;
185+```
186+
187+Nyt dataluokkien vaihto yhdistelmäruudulla (ComboBox) toimii hyvin.
188+
189+Huomaa vasen alakulma: Koska y arvot eivät sisällä nollaa y-akselilla niin sen takia automaattinen akselin skaalaus ei ala nollasta. Mutta olisi mukavaa, jos siellä oli nolla. Tätä varten meidän täytyy osittain poistaa automaattinen akselin skaalaus. `Chart.Extent` määrittelee minimi ja maksimi x- ja y-arvot suorakulmiota varten . Kun asetamme `Chart.Extent.UseYMin` arvoon `true`, y-akselin minimiksi on otettu arvo `Chart.Extent.YMin` ja tämä on nolla oletuksena. Näin saadaan nolla takaisin.
190+
191+![](/wiki-images/1/13/TAChart_Population5.png)
192+
193+Mutta on toinenkin pieni ongelma nyt: alin ruudukkoviiva piirretään x-akselin päälle. Ensinnäkin, mustat viivat, joita ehkä pidetään akseleina eivät ole akseleita, mutta kuuluvat kehyksen ympärille, ne piirretään kuvaaja alueella oletuksena. Voit testata tämän asettamalla `Chart1.Frame.Visible` väliaikaisesti arvoon `false` . Akseleilla on ominaisuus `AxisPen` jossa "true" kytkee akselin viivan päälle `AxisPen.Visible = true`. Sen jälkeen kun tekee tämän, x-akseli on edelleen katkoviivalla. Tämä johtuu piirustussekvenssistä. Oletuksena y-akseli, yhdessä sen ruudukko, piirretään x-akselin jälkeen. Jos halutaan saada niin että x-akselin piirretään ensin niin mene objektipuuhun ja vedä x-akseli y-akselin edelle.
194+
195+Kun tämän jälkeen käännät ja ajat kaavion niin se on täydellinen.
196+
197+![](/wiki-images/4/40/TAChart_Population6.png)
198+
199+![](/wiki-images/f/fc/TAChart_Population7.png)
200+
201+## Lähdekoodi
202+
203+### Project file
204+
205+``` pascal
206+program project1;
207+
208+{$mode objfpc}{$H+}
209+
210+uses
211+ {$IFDEF UNIX}{$IFDEF UseCThreads}
212+ cthreads,
213+ {$ENDIF}{$ENDIF}
214+ Interfaces, // this includes the LCL widgetset
215+ Forms, Unit1, tachartlazaruspkg, population
216+ { you can add units after this };
217+
218+{$R *.res}
219+
220+begin
221+ RequireDerivedFormResource := True;
222+ Application.Initialize;
223+ Application.CreateForm(TForm1, Form1);
224+ Application.Run;
225+end.
226+```
227+
228+### population.pas
229+
230+``` pascal
231+unit population;
232+
233+{$mode objfpc}{$H+}
234+
235+interface
236+
237+uses
238+ Classes, SysUtils;
239+
240+type
241+ TPopulationRecord = record
242+ Age: Integer;
243+ Total: Double;
244+ Male: Double;
245+ Female: Double;
246+ Ratio: Double;
247+ end;
248+
249+type
250+ TPopulationArray = array of TPopulationRecord;
251+
252+procedure LoadPopulationData(const AFileName: String; var Data: TPopulationArray);
253+
254+implementation
255+
256+procedure LoadPopulationData(const AFileName: String; var Data: TPopulationArray);
257+
258+ function StripThousandSep(const s: String): String;
259+ var
260+ i: Integer;
261+ begin
262+ Result := s;
263+ for i:=Length(Result) downto 1 do
264+ if Result[i] = ',' then
265+ Delete(Result, i, 1);
266+ end;
267+
268+var
269+ List1, List2: TStringList;
270+ i, j, n: Integer;
271+ s: String;
272+ ds: char;
273+begin
274+ ds := FormatSettings.DecimalSeparator;
275+ List1 := TStringList.Create;
276+ try
277+ List1.LoadFromFile(AFileName);
278+ n := List1.Count;
279+ SetLength(Data, n-2);
280+ FormatSettings.DecimalSeparator := '.';
281+ List2 := TStringList.Create;
282+ try
283+ List2.Delimiter := #9;
284+ List2.StrictDelimiter := true;
285+ j := 0;
286+ for i:=2 to n-1 do begin
287+ List2.DelimitedText := List1[i];
288+ s := List1[i];
289+ with Data[j] do begin
290+ if i < n-1 then
291+ Age := StrToInt(trim(List2[0]))
292+ else
293+ Age := 100;
294+ Total := StrToFloat(StripThousandSep(trim(List2[1])));
295+ Male := StrToFloat(StripThousandSep(trim(List2[2])));
296+ Female := StrToFloat(StripThousandSep(trim(List2[3])));
297+ Ratio := StrToFloat(trim(List2[4]));
298+ end;
299+ inc(j);
300+ end;
301+ finally
302+ List2.Free;
303+ end;
304+ finally
305+ FormatSettings.DecimalSeparator := ds;
306+ List1.Free;
307+ end;
308+end;
309+
310+end.
311+```
312+
313+### Unit1.pas
314+
315+``` pascal
316+unit Unit1;
317+
318+{$mode objfpc}{$H+}
319+
320+interface
321+
322+uses
323+ Classes, SysUtils, FileUtil, TAGraph, TASources, TASeries, Forms, Controls,
324+ Graphics, Dialogs, ExtCtrls, StdCtrls, population, TACustomSource;
325+
326+type
327+
328+ { TForm1 }
329+
330+ TForm1 = class(TForm)
331+ Chart1: TChart;
332+ Chart1AreaSeries1: TAreaSeries;
333+ ComboBox1: TComboBox;
334+ Panel1: TPanel;
335+ UserDefinedChartSource1: TUserDefinedChartSource;
336+ procedure ComboBox1Select(Sender: TObject);
337+ procedure FormCreate(Sender: TObject);
338+ procedure UserDefinedChartSource1GetChartDataItem(
339+ ASource: TUserDefinedChartSource; AIndex: Integer;
340+ var AItem: TChartDataItem);
341+ private
342+ { private declarations }
343+ PopulationData: TPopulationArray;
344+ public
345+ { public declarations }
346+ end;
347+
348+var
349+ Form1: TForm1;
350+
351+implementation
352+
353+{$R *.lfm}
354+
355+const
356+ POPULATION_FILE = 'population.txt';
357+
358+{ TForm1 }
359+
360+procedure TForm1.FormCreate(Sender: TObject);
361+begin
362+ LoadPopulationData(POPULATION_FILE, PopulationData);
363+ UserDefinedChartSource1.PointsNumber := Length(PopulationData);
364+ Chart1.LeftAxis.Title.Caption := Combobox1.Items[Combobox1.ItemIndex];
365+end;
366+
367+procedure TForm1.ComboBox1Select(Sender: TObject);
368+begin
369+ Chart1.LeftAxis.Title.Caption := Combobox1.Items[Combobox1.ItemIndex];
370+ UserDefinedChartSource1.Reset;
371+end;
372+
373+procedure TForm1.UserDefinedChartSource1GetChartDataItem(
374+ ASource: TUserDefinedChartSource; AIndex: Integer; var AItem: TChartDataItem);
375+begin
376+ AItem.X := PopulationData[AIndex].Age;
377+ case Combobox1.ItemIndex of
378+ 0: AItem.Y := PopulationData[AIndex].Total;
379+ 1: AItem.Y := PopulationData[AIndex].Male;
380+ 2: AItem.Y := PopulationData[AIndex].Female;
381+ 3: AItem.Y := PopulationData[AIndex].Ratio;
382+ end;
383+end;
384+
385+end.
386+```
387+
388+### Unit1.lfm
389+
390+``` pascal
391+object Form1: TForm1
392+ Left = 342
393+ Height = 360
394+ Top = 128
395+ Width = 480
396+ Caption = 'World population'
397+ ClientHeight = 360
398+ ClientWidth = 480
399+ OnCreate = FormCreate
400+ Position = poScreenCenter
401+ LCLVersion = '1.1'
402+ object Panel1: TPanel
403+ Left = 0
404+ Height = 36
405+ Top = 0
406+ Width = 480
407+ Align = alTop
408+ ClientHeight = 36
409+ ClientWidth = 480
410+ TabOrder = 0
411+ object ComboBox1: TComboBox
412+ Left = 12
413+ Height = 23
414+ Top = 5
415+ Width = 196
416+ ItemHeight = 15
417+ ItemIndex = 0
418+ Items.Strings = (
419+ 'Total population'
420+ 'Male population'
421+ 'Female population'
422+ 'Ratio male/female (%)'
423+ )
424+ OnSelect = ComboBox1Select
425+ Style = csDropDownList
426+ TabOrder = 0
427+ Text = 'Total population'
428+ end
429+ end
430+ object Chart1: TChart
431+ Left = 0
432+ Height = 324
433+ Top = 36
434+ Width = 480
435+ AxisList = <
436+ item
437+ Grid.Visible = False
438+ Alignment = calRight
439+ AxisPen.Visible = True
440+ Marks.Visible = False
441+ Minors = <>
442+ end
443+ item
444+ Grid.Color = clSilver
445+ Alignment = calBottom
446+ AxisPen.Visible = True
447+ Minors = <>
448+ Title.LabelFont.Style = [fsBold]
449+ Title.Visible = True
450+ Title.Caption = 'Age'
451+ end
452+ item
453+ Grid.Color = clSilver
454+ AxisPen.Visible = True
455+ Marks.Format = '%.0n'
456+ Marks.Style = smsCustom
457+ Minors = <>
458+ Title.LabelFont.Orientation = 900
459+ Title.LabelFont.Style = [fsBold]
460+ Title.Visible = True
461+ end>
462+ BackColor = clWhite
463+ Extent.UseYMin = True
464+ Foot.Alignment = taLeftJustify
465+ Foot.Brush.Color = clBtnFace
466+ Foot.Font.Color = clBlue
467+ Foot.Text.Strings = (
468+ 'Source:'
469+ 'http://www.census.gov/population/international/data/worldpop/tool_population.php'
470+ )
471+ Foot.Visible = True
472+ Margins.Left = 0
473+ Margins.Right = 0
474+ Margins.Bottom = 0
475+ Title.Brush.Color = clBtnFace
476+ Title.Font.Color = clBlue
477+ Title.Font.Style = [fsBold]
478+ Title.Text.Strings = (
479+ 'World population'
480+ )
481+ Title.Visible = True
482+ Align = alClient
483+ ParentColor = False
484+ object Chart1AreaSeries1: TAreaSeries
485+ AreaBrush.Color = clSkyBlue
486+ AreaLinesPen.Style = psClear
487+ Source = UserDefinedChartSource1
488+ end
489+ end
490+ object UserDefinedChartSource1: TUserDefinedChartSource
491+ OnGetChartDataItem = UserDefinedChartSource1GetChartDataItem
492+ left = 552
493+ top = 152
494+ end
495+end
496+```
497+
498+---
499+*From the Free Pascal wiki, page "TAChart Tutorial: Userdefined ChartSource/fi", as it stood on 2020-02-29 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history