Mam kod który na image rusuje kolory RGB a dokładniej jedną wartość i jej
odcień ale
mam mały problem kod generuje/rysuje mi pasek z kolorem strasznie wolno
prawie 3 sekundy co na to poradzić, jak to zmienić.
var
Bitmap : Tbitmap;
i,j : integer;
begin
Bitmap := Tbitmap.Create;
Try
for i:=0 to 255 do begin
for j:=0 to 15 do begin
Bitmap.PixelFormat:=pf32bit;
Bitmap.Width:=image1.Width;
Bitmap.Height:=image1.Height;
Bitmap.Canvas.Pixels[i,j]:=RGB(i,0,0);
image1.Picture.Graphic:=Bitmap;
end;
end;
FINALLY
Bitmap.Free;
end;
image1.Refresh;
end;
---= pozdrawiam Oskar =- (delphi 6 GG:2792614)