Acces to pixels




  • types of acces to pixels in delphi


    How to clear memeory bitmap:
    procedure TForm1.Clear1Click(Sender: TObject);
    var iX,iY:integer;
    begin
    FirstLine := bitmap.Scanline[0];
    LineLength := (Longint(bitmap.Scanline[1]) - Longint(FirstLine)) div SizeOf(TRGB32);
    // clear all points of the bitmap
    for iX:=iXmin to iXmax do
    For iY :=iYmin to iYMax do
    with FirstLine[iY*LineLength+iX] do
    begin // all points white
    B := 255;
    G := 255;
    R := 255;
    //A := 0;
    end;
    // display new = blank, white bitmap
    Image1.Picture.Graphic:=bitmap;
    end;


    Main Page



    Feel free to e-mail me!

    Author: Adam Majewski adammaj1-at-o2-dot-pl

    About

    http://republika.pl/fraktal/