|
发表于 2010-4-28 09:49:47
|
显示全部楼层
引用SHEETDOCLIB
======================================
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
TSheetDoc(DocView1.Doc).BeginUpdate;
TSheetDoc(DocView1.Doc).Cells[2,3].Font.Color:= Graphics.clBlue;
//字体颜色
TSheetDoc(DocView1.Doc).Cells[2,3].Color := Graphics.clred;
//背景颜色
TSheetDoc(DocView1.Doc).Cells[5,6].Font.Color := Graphics.clGreen;
TSheetDoc(DocView1.Doc).Cells[5,6].Color := Graphics.clred;
TSheetDoc(DocView1.Doc).EndUpdate;
DocView1.OpenView(TDocMode.dmView);
end; |
|