cxSpreadSheetBook控件使用

      因为项目需要读取excel的数据，并且可以进行编辑、而且需要进行界面样式的调整，所以进行这个控件的研究。
cxSpreadSheetBook是一个Excel控件，可以读取Excel的数据，并且可以进行控件的单元格进行控制，可以实现合并单元格、设置单元格宽度、设置单元格的字体大小、字体样式、设置单元格文字是否居中等等。下面是技巧

1：首先定义单元格样式

1.   TStyleValue = (svAlign, svFontName, svSize, svBold, svItalic, svUnderline, svStrikeOut);
2.   TStyleValueSet = set of TStyleValue;

文字的位置、文字的字体名、大小、是否黑体、是否下划线等等

2：合并单元格

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;
15.  

使用方法：SetMergedStateA(0,0,15,0,True);

3：设置单元格文字的样式

1. procedure TfrmStatiWenShu.SetCellsStyle(AValuesSet: TStyleValueSet;
2.   AAlign: TcxHorzTextAlign; AFontSize: Integer; const AFontName: string;
3.   AStyles: TFontStyles);
4.   procedure SetValue(AFlag: TStyleValue; ANeedStyle: TFontStyle;
5.     var ASetStyles: TFontStyles);
6.   begin
7.     if AFlag in AValuesSet then
8.     begin
9.       if ANeedStyle in AStyles then
10.         Include(ASetStyles, ANeedStyle)
11.       else
12.         Exclude(ASetStyles, ANeedStyle);
13.     end;
14.   end;
15.  
16. var
17.   I, J: Integer;
18.   AStyle: TFontStyles;
19.  
20. begin
21.   with CX_StatResult do
22.   try
23.     BeginUpdate;
24.     with ActiveSheet do
25.     begin
26.       for I := SelectionRect.Left to SelectionRect.Right do
27.         for J := SelectionRect.Top to SelectionRect.Bottom do
28.         with GetCellObject(I, J) do
29.         try
30.           with Style do
31.           begin
32.             AStyle := Font.Style;
33.             if svFontName in AValuesSet then
34.               Font.Name := AFontName;
35.             if svSize in AValuesSet then
36.               Font.Size := AFontSize;
37.             if svAlign in AValuesSet then
38.               HorzTextAlign := AAlign;
39.             SetValue(svBold, fsBold, AStyle);
40.             SetValue(svItalic, fsItalic, AStyle);
41.             SetValue(svUnderline, fsUnderline, AStyle);
42.             SetValue(svStrikeOut, fsStrikeOut, AStyle);
43.             Font.Style := AStyle;
44.           end;
45.         finally
46.           Free;
47.         end;
48.     end;
49.   finally
50.     EndUpdate;
51.     UpdateControl;
52.   end;
53. end;

如下使用：

1. CX_StatResult.Pages[0].SelectCell(0,0,False);
2.   SetCellsStyle([svBold,svAlign], haCenter, 0, '', [fsBold]);

首先选择单元格，然后调用SetCellsStyle设置单元格格式

3：控件一个表格也不选择，使用如下语句：

1. CX_StatResult.Pages[0].SelectCell(-1,-1,False);  

4：设置某一个列的宽度

1. CX_StatResult.Pages[0].Cols.Size[15]:=70;

5：设置某个单元格的文字

1. Cell := CX_StatResult.Pages[0].GetCellObject(15, 1);
2.   Cell.Text:='备注';

6：导入Excel

1. CX_StatResult.LoadFromFile();

 

 

转载于:https://www.cnblogs.com/hsbs/p/4453348.html