The Cxspreadsheetbook control uses

Because the project needs to read the data in Excel, and it can be edited, and requires an interface style adjustment, the control is studied.
Cxspreadsheetbook is an Excel control that can read data from Excel and control the cells of the control, enabling you to merge cells, set cell widths, set the cell's font size, font style, set cell text to center, and more. Here's the trick.

1: First define cell style

1. Tstylevalue = (svalign, Svfontname, Svsize, Svbold, Svitalic, Svunderline, svstrikeout);
2. Tstylevalueset = set of Tstylevalue;

The position of the text, the font name of the text, the size, whether it is bold, whether it is underlined, etc.

2: Merging cells

1. Procedure Setmergedstatea (left, Top, right,
2. Bottom:integer; Ismerge:boolean);
3. Var
4. Arect:trect;
5. Begin
6. With Cx_statresult.activesheet do
7. Begin
8. Arect.left:=left;
9. Arect.top:=top;
10. Arect.right:=right;
11. Arect.bottom:=bottom;
12. Setmergedstate (Arect, True);
13. End
14. End

Method of Use: Setmergedstatea (0,0,15,0,true);

3: Set the style of the cell text

2. Procedure Tfrmstatiwenshu.setcellsstyle (Avaluesset:tstylevalueset;
4. Aalign:tcxhorztextalign; Afontsize:integer; Const afontname:string;
6. Astyles:tfontstyles);
8. Procedure SetValue (Aflag:tstylevalue; Aneedstyle:tfontstyle;
10. var asetstyles:tfontstyles);
12. Begin
14. If Aflag in Avaluesset then
16. Begin
18. If Aneedstyle in Astyles then
20. Include (Asetstyles, Aneedstyle)
22. Else
24. Exclude (Asetstyles, Aneedstyle);
26. End
28. End
32. Var
34. I, J:integer;
36. Astyle:tfontstyles;
40. Begin
42. With Cx_statresult do
44. Try
46. BeginUpdate;
48. With ActiveSheet do
50. Begin
52. For I: = Selectionrect.left to Selectionrect.right do
54. For J: = Selectionrect.top to Selectionrect.bottom do
56. With Getcellobject (I, J) do
58. Try
60. With Style do
62. Begin
64. Astyle: = Font.style;
66. If svfontname in Avaluesset then
68. Font.Name: = Afontname;
70. If svsize in Avaluesset then
72. Font.Size: = afontsize;
74. If svalign in Avaluesset then
76. Horztextalign: = aalign;
78. SetValue (Svbold, Fsbold, Astyle);
80. SetValue (Svitalic, Fsitalic, Astyle);
82. SetValue (Svunderline, Fsunderline, Astyle);
84. SetValue (Svstrikeout, Fsstrikeout, Astyle);
86. Font.style: = Astyle;
88. End
90. Finally
92. Free;
94. End
96. End
98. Finally
100. endupdate;
102. Updatecontrol;
104. End
106. End

Use as follows:

1. Cx_statresult.pages[0]. Selectcell (0,0,false);
2. Setcellsstyle ([Svbold,svalign], hacenter, 0, ', [Fsbold]);

First select the cell and then call Setcellsstyle to format the cell

3: Control does not select a table, use the following statement:

1. Cx_statresult.pages[0]. Selectcell ( -1,-1,false);

4: Set the width of a column

1. Cx_statresult.pages[0]. cols.size[15]:=70;

5: Set the text of a cell

1. Cell: = Cx_statresult.pages[0]. Getcellobject (15, 1);
2. Cell.text:= ' remarks ';

6: Import Excel

1. Cx_statresult.loadfromfile ();

The Cxspreadsheetbook control uses