Thema: Delphi Scanline erklären

Einzelnen Beitrag anzeigen

Benutzerbild von -NIP-
-NIP-

Registriert seit: 6. Jun 2004
Ort: Aachen
254 Beiträge
 
Delphi 7 Personal
 
#1

Scanline erklären

  Alt 26. Jun 2005, 15:02
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-
Angehängte Dateien
Dateityp: pas unit2_519.pas (3,9 KB, 5x aufgerufen)
Christian
  Mit Zitat antworten Zitat