Runde, ovale, diagonale, geschwungene oder sonstwie Buttons

[Namenloser]

Zitat von Sunlight7:

PPS: Kann mal wer probieren, ob diese Funktion in neueren Delphi Versionen auch nen internen Fehler verursacht?!

Delphi-Quellcode:

function GetPixel(Bitmap:TBitmap; const x, y:Integer):LongInt;
   var sl:PByteArray;
begin
   sl:=Bitmap.ScanLine[y];
   Result:=RGB(sl[(x * 3)+2],
               sl[(x * 3)+1],
               sl[(x * 3)+0]);
end;

Zitat von Delphi 5.0 Compiler:

interner Fehler C1569

Das hat mich was genervt...

das ist jetzt mehr oder weniger ins Blaue getippt, aber könnte das vielleicht eher etwas mit dem Bitmap-Format zu tun haben?
Außerdem bin ich mir nicht sicher, ob Scanline in diesem Falle tatsächlich schneller ist als Canvas.Pixels