paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 11:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: cleanup. remove unused code in TfrPictureView.Draw

Browse Source 
git-svn-id: trunk@39368 -
This commit is contained in:
blikblum 2012-11-25 00:52:46 +00:00
parent 9eebd8fcb5
commit f2da5e3ec8
1 changed files with 1 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/lazreport/source/lr_class.pas
View File

@ -4379,35 +4379,6 @@ var
ClipRgn, PreviousClipRgn: HRGN;
ClipNeeded: Boolean;
procedure PrintBitmap(DestRect: TRect; Bitmap: TBitmap);
var
{%H-}BitmapHeader: pBitmapInfo;
begin
aCanvas.StretchDraw(DestRect, Bitmap);
//**
{GetDIBSizes(Bitmap.Handle, HeaderSize, ImageSize);
GetMem(BitmapHeader, HeaderSize);
GetMem(BitmapImage, ImageSize);
try
GetDIB(Bitmap.Handle, Bitmap.Palette, BitmapHeader^, BitmapImage^);
StretchDIBits(
aCanvas.Handle,
DestRect.Left, DestRect.Top, // Destination Origin
DestRect.Right - DestRect.Left, // Destination Width
DestRect.Bottom - DestRect.Top, // Destination Height
0, 0, // Source Origin
Bitmap.Width, Bitmap.Height, // Source Width & Height
BitmapImage,
TBitmapInfo(BitmapHeader^),
DIB_RGB_COLORS,
SRCCOPY)
finally
FreeMem(BitmapHeader);
FreeMem(BitmapImage)
end;
}
end;
begin
{$IFDEF DebugLR}
DebugLnEnter('TfrPictureView.Draw INI');
@ -4448,10 +4419,6 @@ begin
if (Flags and flPictCenter) <> 0 then
OffsetRect(r, (w - w1) div 2, (h - h1) div 2);
end;
if IsPrinting and (Picture.Graphic is TBitmap) then
PrintBitmap(r, Picture.Bitmap)
else
StretchDraw(r, Picture.Graphic);
end
else