Scanline erklären

[-NIP-]

Hi! Als ich in der DP nach Scanline rumgestöbert bin, bin ich auf diesen Thread gestoßen, indem ein Beispielprogramm mit Scanline arbeitet. Beispiel-Programm
Wenn ich den Code aus der ScanLine Prozedur mit Copy&Paste in meine Unit einfüge und versuche zu kompilieren, hat er einen Fehler in der Prozedur, wo er Bilder zusammenfügen soll:

Delphi-Quellcode:

function BilderVerbinden(Bild1,Bild2:TBitmap;Opacity:Double):TBitmap;
var i,i2:Integer;
    P: PByteArray;
begin
      for i := 0 to Bild1.Height - 1 do
    begin
      P := Bild1.ScanLine[i];

      for i2 := 0 to Bild1.Width - 1 do
      begin
        If ( P^.rgbRed = $ff ) And ( P^.rgbGreen = $ff ) And ( P^.rgbBlue = $ff ) Then
        Begin
          P^.rgbRed   := 0;
          P^.rgbGreen := 0;
          // P^.rgbBlue  := $ff;  <-- haben wir ja schon, siehe IF Bedingung
        End;
        Inc(P);
      end;
    End;

end;

Und zwar kommt er anscheinend nicht mit
P^.rgbRed klar. Er zeigt mir dann immer an:

Code:

[Fehler] Unit2.pas(77): Record, Objekt oder Klassentyp erforderlich

Wie soll ich das denn lösen?
Im Falle, dass es an etwas Fehlendem in meiner Unit liegen sollte, habe ich meine Unit mal drangehängt.

-NIP-

[Christian Seehase]

Moin Christian,

sieht so aus, als hättest Du da die Sourcen von zwei Beiträgen gemischt.
Steppo hat es so deklariert:
P : PByteArray; und Muetze1 so:
P : PRGBQuad; Du hast jetzt die Variablendeklaration von Steppo, und die Prozedur von Muetze1 genommen.

Für eines musst Du Dich schon entscheiden

[-NIP-]

oh mann. Danke für das Fehlerlesen