X11
Проблему с выводом на печать решил?
Я слегка поковырял и предлагаю шрифтом играться не в Grid1CustomDrawCell, а повесить на
GetContentStyle вьюка и создать необходимые стили. В этом случае всё ОК.
procedure TfmScanner.Grid1DBTableView1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
Var
val : boolean;
begin
val := VarAsType(ARecord.Values[Grid1CP.Index], varBoolean);
if val then
AStyle := cxStyle13;
end;
Проблему с выводом на печать решил?
Я слегка поковырял и предлагаю шрифтом играться не в Grid1CustomDrawCell, а повесить на
GetContentStyle вьюка и создать необходимые стили. В этом случае всё ОК.
procedure TfmScanner.Grid1DBTableView1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
Var
val : boolean;
begin
val := VarAsType(ARecord.Values[Grid1CP.Index], varBoolean);
if val then
AStyle := cxStyle13;
end;