Forum: Multimedia
Delphi
by Flips,
14. Mai 2008
OK...wie immer...
Schuld war mal wieder das berühmte Pixelformat -> pf24Bit
So sollte es dann stimmen:
procedure ArrangeSymbol(aSource: TBitmap; Width: Integer = -1;Height : Integer = -1;threshold: Byte = 254);
var h,w : integer;
b : ^TRGBTriple;
start, last : TPoint;
buffer : TBitmap;
begin
Forum: Multimedia
Delphi
by Flips,
14. Mai 2008
Ok thx, das hatte ich auchmal gehabt, konnte es nur nicht begründen :-)
Aber das er bei dir perfekt funktioniert...
Könntest du mal ein Beispiel anhängen? :-)
Forum: Multimedia
Delphi
by Flips,
14. Mai 2008
Hi.
Mit folgender Procedure wollte ich aus einem Bild den "nicht-weißen"-Bereich ausschneiden. Das Beispiel verdeutlicht das hoffentlich.
//Aufruf im Bsp: ArrangeSymbol(buf); buf -> Bitmap
procedure ArrangeSymbol(aSource: TBitmap; Width: Integer = -1;Height : Integer = -1;threshold: Byte = 254);
var h,w : integer;
b : ^TRGBTriple;
start, last : TPoint;
buffer : TBitmap;
begin