Пользовательский и проблемы экспорта в Pdf
Yushinin
Воронеж
Здравствуйте, все и в первую очередь разработчики.
Мне нужно, чтобы заголовок в отчете можно было оформить следующим образом по брендбуку заказчика:
Такое ощущение, что DrawBackground напрочь не вызывается при этом экспорте.
Попробовал перенести код в Draw - эффект тот же.
Что скажете, разработчики?
Мне нужно, чтобы заголовок в отчете можно было оформить следующим образом по брендбуку заказчика:
procedure TsyfrxTitleStripe.DrawBackground;
var
tw, h, c: integer;
begin
inherited;
h := (FY1 - FY);
c := FX + (FX1 - FX) div 2;
with FCanvas do
begin
tw := textWidth(Text) div 2 + h;
Brush.Color := FStripeColor;
Pen.Style := psClear;
Polygon([Point(FX, FY), Point(c - tw, FY), Point(c - tw - h, FY1), Point(FX, FY1)]);
Polygon([Point(c + tw, FY), Point(FX1, FY), Point(FX1, FY1), Point(c + tw + h, FY1)]);
end;
end;
Такое ощущение, что DrawBackground напрочь не вызывается при этом экспорте.
Попробовал перенести код в Draw - эффект тот же.
Что скажете, разработчики?