Прозрачность Tfrxpictureview

Комментарии

• vitaly_l Винница, Украина

  October 2007 отредактировано October 2007

  Дополнительный поиск по форуму FastReport 3 показал, что прозрачность фона картинки запрашивалась :
  еще в 2005 году
  

  Yojik написал: »

  Помогите плиз!!!
  TfrxPictureView
  Выводит всегда белый цвет, как backgraund, а мне нужно , чтоб он был прозрачным , как быть???

  
  На что тогда авторы FR ответили:

  Yojik написал: »

  Надо переделывать метод DrawBitmap в frxUtils.pas. Как - не спрашивайте, не знаю...

  
  Печать рисунков в отчетах - это, IMHO, гораздо большая необходимость чем всякие экзотические экспорты, на какие идут анонсы новых версий.
  Такой действительно прекрасный продукт FastReport и не может делать прозрачный фон! Понимаю, что это, возможно, трудно реализовать,
  но ЭТО ОЧЕНЬ НАДО!!!
  Если рисунок прямоугольный, то и нет необходимости прозрачности. Но если на рисунке объект занимает только определенную область, например овал, круг и т.п. (и у этого рисунка есть прозрачный фон), а цвет других объектов в самом отчете должен динамически меняться - белый фон на рисунке ОЧЕНЬ ПОРТИТ весь отчет.
  
  Авторы! ПОЖ-СТА ДОБАВЬТЕ ВОЗМОЖНОСТЬ ПРОЗРАЧНОСТИ + БЫЛО СУПЕР, поддержка GIF (интересно, что в дизайнере GIF можно вставить, он отображается)
• Stalker4 123

  October 2007 отредактировано 13:47

  vitaly_l написал: »

  Авторы! ПОЖ-СТА ДОБАВЬТЕ ВОЗМОЖНОСТЬ ПРОЗРАЧНОСТИ + БЫЛО СУПЕР, поддержка GIF (интересно, что в дизайнере GIF можно вставить, он отображается)

  По поводу Gif: В frxAdvPicture есть поддержка GIF (для печати и для диалоговой формы). Брать на сайте http://www.stalker4.dp.ua
  По поводу прозрачности, не уверен есть она там или нет.
  
• vitaly_l Винница, Украина

  October 2007 отредактировано 13:47

  Stalker4 написал: »

  По поводу Gif: В frxAdvPicture есть поддержка GIF (для печати и для диалоговой формы). Брать на сайте http://www.stalker4.dp.ua
  По поводу прозрачности, не уверен есть она там или нет.

  Компонент скачал, то проект сделан только под Delphi, а я работаю в C++ Builder 6. Можно было бы попробовать
  повозиться с переносом в билдер, но раз нет уверенности, пока отложу. Но все равно спасибо!
• Noskov

  January 2009 отредактировано 13:47

  А всего-то надо - переместить свойство Color в published и выставить ему значение clNone.
• Palych

  January 2009 отредактировано January 2009

  Noskov написал: »

  А всего-то надо - переместить свойство Color в published и выставить ему значение clNone.

  Подробнее плз! Где переместить color в published?
  Допустим, есть у меня картинка в Image1 (transperent=true), нужно ее вставить в отчет, чтобы сохранить прозрачность.
  Такая попытка прозрачности не добавляет:

  Pict := frxReport1.FindObject('Picture1') as TfrxPictureView;
  if Assigned(Pict) then
  begin
  Pict.Color:=clNone;
  Pict.Picture.Bitmap.TransparentColor:=$00FFFFFF;
  Pict.Picture.Bitmap.Transparent:=true;
  Pict.Picture.Bitmap:=Image1.Picture.Bitmap;
  end;
  

  Что не так?
  И еще вопрос - как сделать в рантайм Pict.SendToBack?
• Palych

  January 2009 отредактировано January 2009

  Молчание радует...
  Пришлось делать так: соединять рисунки с прозрачным фоном на невидимой панели, копировать панель в bitmap и уже bitmap вставлять в заранее подготовленную картинку за заднем плане отчета. Изврат одним словом.
• Stalker4 123

  January 2009 отредактировано 13:47

  Noskov написал: »

  А всего-то надо - переместить свойство Color в published и выставить ему значение clNone.

  Добавил я в свой TfrxAdvPictureView в published св-во Color и закомментировал его в конструкторе.
  Действительно, в дизайнере и в Preview gif с прозрачным фоном отображается правильно. Но при печати прозрачный фон не работает. Надо что то меня в методе TfrxAdvPictureView.Draw, но вот что именно я не знаю. Если All может это подсказать, буду очень благодарен (и думаю не только я).
• DimOsBar

  August 2009 отредактировано 13:47

  В файле frxClass.pas:

  procedure TfrxPictureView.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended);
  var
    r: TRect;
    kx, ky: Extended;
    rgn: HRGN;
  
    procedure PrintGraphic(Canvas: TCanvas; DestRect: TRect; aGraph: TGraphic);
    begin
      frxDrawGraphic(Canvas, DestRect, aGraph, IsPrinting);
    end;
  
  begin
    BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
  
    with Canvas do
    begin
      if not FTransparent then DrawBackground; // <-- Поменяйте оригинал на такую строчку
      r := Rect(FX, FY, FX1, FY1);
  

  
  И тогда фон объекта будет прозрачным, а для картинки прозрачным цветом будет считаться пиксел в левом нижнем углу
• Stalker4 123

  October 2009 отредактировано 13:47

  DimOsBar написал: »

  В файле frxClass.pas:

  procedure TfrxPictureView.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended);
  var
    r: TRect;
    kx, ky: Extended;
    rgn: HRGN;
  
    procedure PrintGraphic(Canvas: TCanvas; DestRect: TRect; aGraph: TGraphic);
    begin
      frxDrawGraphic(Canvas, DestRect, aGraph, IsPrinting);
    end;
  
  begin
    BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
  
    with Canvas do
    begin
      if not FTransparent then DrawBackground; // <-- Поменяйте оригинал на такую строчку
      r := Rect(FX, FY, FX1, FY1);
  

  
  И тогда фон объекта будет прозрачным, а для картинки прозрачным цветом будет считаться пиксел в левом нижнем углу

  
  А откуда в коде взялось свойство FTransparent ?
  В модуле frxClass.pas вообще ни у кого нет такого свойства.