From 3d2824268f5c0e28cd8626caf36f8bf8be66e903 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 25 Jan 2008 05:45:10 +0000
Subject: [PATCH] cleanup

git-svn-id: trunk@13872 -
---
 lcl/graphtype.pp | 37 -------------------------------------
 1 file changed, 37 deletions(-)

diff --git a/lcl/graphtype.pp b/lcl/graphtype.pp
index d5972dae61..94a74d2d8c 100644
--- a/lcl/graphtype.pp
+++ b/lcl/graphtype.pp
@@ -261,43 +261,6 @@ function CopyImageData(AWidth, AHeight, ARowStride: Integer; ABPP: Word;
                        ADestinationOrder: TRawImageLineOrder; ADestinationEnd: TRawImageLineEnd;
                        out ADestination: Pointer; out ASize: PtrUInt): Boolean;
 
-{.$define OldRawImageProcs}
-
-// TODO: remove
-{$ifdef OldRawImageProcs}
-function RawImageMaskIsEmpty(RawImage: PRawImage; TestPixels: boolean): boolean;
-function RawImageDescriptionAsString(Desc: PRawImageDescription): string;
-procedure FreeRawImageData(RawImage: PRawImage);
-procedure ReleaseRawImageData(RawImage: PRawImage);
-
-procedure CreateRawImageData(Width, Height, BitsPerPixel: cardinal;
-                             LineEnd: TRawImageLineEnd;
-                             var Data: Pointer; var DataSize: PtrUInt);
-procedure CreateRawImageLineStarts(Width, Height, BitsPerPixel: cardinal;
-                                   LineEnd: TRawImageLineEnd;
-                                   var LineStarts: PRawImagePosition);
-procedure CreateRawImageDescFromMask(SrcRawImageDesc,
-                                     DestRawImageDesc: PRawImageDescription);
-procedure GetRawImageXYPosition(RawImageDesc: PRawImageDescription;
-                                LineStarts: PRawImagePosition; x, y: cardinal;
-                                var Position: TRawImagePosition);
-procedure ExtractRawImageRect(SrcRawImage: PRawImage; const SrcRect: TRect;
-                              DestRawImage: PRawImage);
-
-
-procedure ReadRawImageBits(TheData: PByte; const Position: TRawImagePosition;
-                       BitsPerPixel, Prec, Shift: cardinal;
-                       BitOrder: TRawImageBitOrder; var Bits: word);
-procedure WriteRawImageBits(TheData: PByte; const Position: TRawImagePosition;
-                       BitsPerPixel, Prec, Shift: cardinal;
-                       BitOrder: TRawImageBitOrder; Bits: word);
-
-procedure ReAlignRawImageLines(var Data: Pointer; var Size: PtrUInt;
-  Width, Height, BitsPerPixel: cardinal;
-  var OldLineEnd: TRawImageLineEnd; NewLineEnd: TRawImageLineEnd);
-
-{$endif}
-
 var
   MissingBits: array[0..15] of array[0..7] of word;