Christian Iversen wrote:
On Saturday 13 May 2006 13:05, Andreas Berger wrote:
Micha Nelissen wrote:
On Fri, 12 May 2006 13:50:22 -0300
Andreas Berger <[EMAIL PROTECTED]> wrote:
Reading and writing pixels to a bitmap under windows 98 does not work. I
have looked at the Lazarus LCL code and it seem correct since it ends up
Please send an example project that reproduces the error.
Here is a simple example that horizontally flips a small image:
procedure TForm1.Button1Click(Sender: TObject);
var
x, y, x1 : integer;
bmp : TBitmap;
begin
bmp := TBitmap.Create;
bmp.Assign(Image1.Picture.Bitmap);
for y := 0 to bmp.Height - 1 do
begin
x := 0;
x1 := bmp.Width - 1;
while (x < bmp.Width) do
begin
bmp.Canvas.Pixels[x, y] :=
Image1.Picture.Bitmap.Canvas.Pixels[x1, y];
inc(x);
dec(x1);
end;
end;
Image2.Picture.Bitmap.Assign(bmp);
bmp.Free;
end;
Form.bmp has the result in Lazarus, Form1.bmp has the result in delphi.
The project is attached.
Seems to me the mask is not flipped?
What mask?
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
