200求F1Book单元格合并单元格颜色设置(在线)

Question

各位大侠,本人开发好少用到F1Book这个控件,今天这个项目急用到这个控件,怎么在F1Book中合并单元格和各个单元格颜色设置呢.

Answer 1

//将数据信息写入excel 
f1book.write('c:\chen.xls',F1FileExcel5);
f1book.FilePrintSetupDlg;    //打印设置
//打印f1book数据
 try
    f1book.Selection:='A1:'+str+inttostr(f1.MaxRow);
    f1book.SetPrintAreaFromSelection;
    f1book.FilePrint(true);
  except
    Application.MessageBox('打印出错!','提示消息',MB_ICONWARNING+MB_OK);
  end;
//设置页面
f1book.NumSheets := 3;                    //设置为3个sheet
f1book.Sheet := 1;                        //当前第一个sheet为活动
f1book.SheetName[1] := '第1页';               //设置第1页标题
f1book.MaxRow :=10;       ///设置行列
f1book.MaxCol :=8;
f1book.TextRC[3,2] := '3行2列'；  
//对选择行设置字体、颜色
f1book.Selection := 'A1:Z1';
f1book.SetAlignment(F1HAlignCenter, False, F1VAlignCenter, 0);    
   //F1HAlignLeft 水平居左 F1HAlignCenter  水平居中 
f1book.SetFont('宋体', 9, False, False, False, False, clBlack, False, False);
//设置是否显示页数名称
F1book.ShowTabs:=0;  //不显示，1显示
--设定f1book的计算公式
f1book1.FormulaRC[1,1]:='1+3'; //将f1book1的A1单元格的公式设置为=1+3
//合并单元格
var cheng:If1cellformat;   
begin
cheng:=F1Book61.GetCellFormat;
cheng.Set_MergeCells(true);
F1Book61.SetCellFormat(cheng);
end;
var cheng: IF1CellFormat;//自动换行
begin
  cheng:=F1Book61.GetCellFormat;
  cheng.AlignHorizontal:=$00000006;
  F1Book61.SetCellFormat(cheng);
end;

Answer 2

To  chenquan(嘉威王子) 
  IF1CellFormat这个属性在那个文件包含呢?

Answer 3

我找到一个比F1Book更好用,功能更强大的控件了,TMS TAdvStringGrid 控件,
下载地址:http://www.tmssoftware.com