Using Delphi to make statistical charts, Delphi pagecontrol tab title discoloration

Using Delphi to make statistical charts

Using the Dbchart control under Data controls (name set to DBCHT1), double click on Add to the type you want

First query in Delphi, then add

Dbcht1. Series[0]. xlabelssource:= ' field name ';

Dbcht1. Series[0]. yvalues.valuesource:= ' field name ';

Dbcht1. Series[0]. Datasource:=qry_1;

Dbcht1. Title.Text.SetText (' Name of the chart ');

The data can be displayed in the form of a chart

Delphi Pagecontrol Tab Title discoloration

1) Set the OwnerDraw property of the Pagecontrol to True

2) Add the following code to the Pagecontrol OnDrawTab event:

If Active Then

Begin

Pgc_test. Canvas.font.color:=clblue; Corresponding title turns blue

Pgc_test. Canvas.font.style:=[fsbold]; Corresponding title Bold

End

Pgc_test. Canvas.textout (rect.left+4,rect.top+4,pgc_test. Pages[tabindex]. Caption);//Output Sub-tab title content