1、fast report 导出PDF文件时中文不显示的问题
在显示中文的控件上,比如TfrxMemoView,设置Font的Name属性,设置的Font的Name为“宋体”或者“黑体”等中文字体即可解决。
2.TToolButton设置图片和标题后如何让图片显示在标题的左边?
设置TToolBar的List属性为True!
3. TClientDataSet + TDBGrid点击标题排序实现
procedure TMainForm.DBTitleSort(SortColumn: TColumn);
var
OldIndex:string;
begin
if (SortColumn.Grid.DataSource=nil) or (SortColumn.Grid.DataSource.DataSet=nil) or
(not SortColumn.Grid.DataSource.DataSet.Active) or (SortColumn.Grid.DataSource.DataSet.IsEmpty) then Exit;
OldIndex:=TClientDataSet(SortColumn.Field.DataSet).IndexName;
if OldIndex<>'' then
begin
TClientDataSet(SortColumn.Field.DataSet).IndexName:='';
TClientDataSet(SortColumn.Field.DataSet).DeleteIndex(OldIndex);
end;
if SortColumn.Grid.Tag = 0 then
begin
TClientDataSet(SortColumn.Field.DataSet).AddIndex('px',SortColumn.Field.FieldName,[ixDescending]);// 降序
SortColumn.Grid.Tag := 1;
end
else //否则按升序排列
begin
TClientDataSet(SortColumn.Field.DataSet).AddIndex('px',SortColumn.Field.FieldName,[ixPrimary]); //升序
SortColumn.Grid.Tag := 0;
end;
TClientDataSet(SortColumn.Field.DataSet).IndexName:='px';
end;