Scanline

tbitmappens scanline property er en pointer der peger paa den foerste pixel i bitmappen. den record du skal bruge er typisk en 32 bit rgba farve.

TRGBA = record
 b,g,r,a: byte;
end;

der skal oprettes en pointertype af denne:

PRGBA = ^TRGBA;

saa laver du en var i den procedure hvor du vil tegne pixels:

procedure paint;
var pixel: prgba;
    i,i2,t: integer;
begin
   for i := 0 to bitmap.height-1 do
   begin
      pixel := bitmap.scanline[i];
      for i2 := 0 to bitmap.width-1 do
      begin
         t := round(sin(i/360)*255);
         pixel^.r := t;
         pixel^.g := t;
         pixel^.b := t;
         pixel^.a := 255;
      end;
   end;
end;

sig endelig til hvis at det ikke er rigtigt. har desvaerre ikke adgang til delphi her. bemaerk at dette kun virker paa 32 bit bitmaps. hvis du vil lave 24 bit bitmaps saa skal du bare fjerne a typen i trgba

Hilsen Jeppe

Hej jeppe.
jeg kan desværre ikke få det helt til at virke. jeg har skrevet følgende procedure

procedure paint;
var pixel: prgb;
    i,i2,t: integer;
    bitmap: tbitmap;
begin
 bitmap := tbitmap.create;
 bitmap.pixelformat := pf24bit;
 bitmap.width := 100;
 bitmap.height := 100;
   for i := 0 to bitmap.height-1 do
   begin
      pixel := bitmap.scanline[i];
      for i2 := 0 to bitmap.width-1 do
      begin
         t := round(sin(i/360)*255);
         pixel^.r := t;
         pixel^.g := t;
         pixel^.b := t;
      end;
   end;
 bitmap.free;
end;

resultatet bliver en hvid firkant med undtagelse af den første lodrette linie som er sort.

mangler der ikke også noget i den inderste for-løkke? jeg kan i hvert fald ikke se, at i2 bliver brugt til noget.

      pixel := bitmap.scanline[i];
      for i2 := 0 to bitmap.width-1 do
      begin
         t := round(sin(i/360)*255);
         pixel^.r := t;
         pixel^.g := t;
         pixel^.b := t;
         inc(pixel);
      end;

Hehe.. glemte lige at increase pointeren

Jeppe

jeps, det var det der manglede. det fungerer fint nu, så jeg siger mange tak.