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-