ich bin gerade dabei mit Hilfe von Scanline ein Image abzudunkeln.
Doch aus mir unerfindlichen Gründen habe ich das Problem, dass ich keine Bitmaps erzeugen knn :O
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
var x, y, byte: integer;
blend: real=0.8;
p: ^TPixArray;
byteCol: TByteColor;
bit: TBitmap;
begin
Image1.Picture.LoadFromFile('pics/offers/album.jpg');
bit:=TBitmap.Create;
bit.SetSize(Image1.Width, Image1.Height);
bit.PixelFormat:=pf24Bit;
//weiterer Code
end;
Dieser Code bricht schon bei der Kompilierung mit dem Hinweis 'identifier idents no member "Create" ab. Ein Check der Befehlvorschläge hat mir gezeigt, das anscheinend keine sonst bekannten properties, functions und procedures für dieses Bitmap vorliegen (z.B. Create, SetSize, Width, Height, Canvas). Was mache ich falsch??? Bin gerade echt am Verzweifeln!
Hofe ihr könnt helfen, Grüße
ConcAPPtLab