Problemer med bitmap

"BmpSkovtrold.Canvas.pixels[i,k]" i for-løkken skal selvfølgelig være

Bmp.Canvas.pixels[i,k]

Mon ikke det er nede i CoolColorCode-funktionen problemet ligger.
Det her giver i hvert fald ingen problemer her.


procedure TForm4.Button1Click(Sender: TObject);
var
i,k :integer;
Bmp :TBitmap;
begin

Bmp := TBitmap.Create;
Bmp.Height := 1200;
Bmp.width := 1200;

for i := 0 to 1200-1 do
  for k := 0 to 1200-1 do
    Bmp.Canvas.pixels[i,k] := random(1000000);
  // CoolColerCode(Temperatur[i,k]);

Image1.Width := Bmp.width;
Image1.Height := Bmp.Height;

Image1.Canvas.Draw(0,0,Bmp);

Bmp.Free; //jeg bruger normalt Free i stedet for Freeimage. Jeg tror nu ikke det gør nogen forskel her.
end;

Jeg skal måske nævne at ovenstående kode nemt kan blive kaldt 100 - 1000 gange i løbet af en programkørsel...

Jeg er lidt fatsvag eht... pixels[i,k] tager da en TColor og ikke en Random... hvordan fungerer det???

Hej Friiiis

Enhver TColor kan også opfattes som en talværdi (integer), vist nok inden for et vist interval. Det husker jeg ikke lige.

Delphi har med andre ord ikke noget problem med at man laver et regnestykke med farver, f.eks.  clBlue + clRed + 1000, da clRed og clBlue bare opfattes som tal.

Random returnerer en tilfældig talværdi indenfor et angivent interval.
Og da random returnerer en talværdi, kan man også bruge den til at angive en tilfældig TColor.

Der er sikkert lidt mere teori bag det. Jeg har ikke styr på det hele selv.

Prøv f.eks. at sætte en SpinEdit ind på en form.
Sæt increment til f.eks 1000
og så denne kode:

procedure TForm4.SpinEdit1Change(Sender: TObject);
begin
color := spinedit1.value
end;

Og vælg så forskellige værdier.

bemærk: "EOutOfResources" kan opstå hvis der er problemer med det "handle" som er tilknyttet, og behøver derfor også opstå, selvom der er ressourcer til rådighed.

behøver=kan

type
  TRGB32 = packed record
    B, G, R, A: Byte;
end;
  TRGB32Array = packed array[0..MaxInt div SizeOf(TRGB32)-1] of TRGB32;
  PRGB32Array = ^TRGB32Array;

Procedure TForm1.MakeBitmap;
var
i,k :integer;
Bmp :TBitmap;
Line : PRGB32Array;
R,G,B :byte;
begin

Bmp := TBitmap.Create;
Bmp.PixelFormat := pf32bit;
Bmp.Height := 600;
Bmp.width := 1200;

R := 0;
G := 0;
B := 0;

for k := 0 to 600-1 do
  begin
    Line := Bmp.ScanLine[k];
    for i := 0 to 1200-1 do
      begin
        CoolColorCodeRGB(Temperatur[i,k],R,G,B);
        Line[i].B := B;
        Line[i].G := G;
        Line[i].R := R;
        Line[i].A := 0;
      end;
  end;
//CoolColorcodeRGB(x:extended;var R,G,B :byte) konverterer en temperaturværdi om
//til en passende farve RGB værdier

Image7.Width := Bmp.width;
Image7.Height := Bmp.Height;

Image7.Canvas.Draw(0,0,Bmp);
Image7.Invalidate;

Bmp.FreeImage;

end;

Ovenstående kode virker mere stabil - bryder ihvertfald ikke ned...

Burde også være hurtigere med det kan jeg ikke lige vurdere... syn's det ikke...

Omkring scanline så se: http://dn.codegear.com/article/29173

lukker