TfrxPictureView

Комментарии

• AlexTZ

  June 2005 отредактировано 02:25

  Никак, это не поддерживается. Только менять исходники.
• Yojik

  June 2005 отредактировано 02:25

  А где хоть, я тут менял уже помоему вездле блин никак не помогает. Например вот так.
  Неподскажите какой метод хоть у какого класса переписать.
  
  procedure frxDrawGraphic(Canvas: TCanvas; DestRect: TRect; aGraph: TGraphic);
  var
  Bitmap: TBitmap;
  begin
  if aGraph is TMetaFile then
  Canvas.StretchDraw(DestRect, aGraph)
  else
  begin
  Bitmap := TBitmap.Create;
  try
  Bitmap.Transparent := true;
  Bitmap.Width := aGraph.Width;
  Bitmap.Height := aGraph.Height;
  Bitmap.PixelFormat := pf32Bit;
  Bitmap.Canvas.Draw(0, 0, aGraph);
  DrawBitmap(Canvas, DestRect, Bitmap);
  finally
  Bitmap.Free;
  end;
  end;
  end;
• AlexTZ

  June 2005 отредактировано 02:25

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