Bitmap
lazarus / 39-Graphics

----------------------------------------------------------------------
hvh · 2015-06-30 20:21

Yust a simple test procdure
I want the image to change color each time in the loop.
But it shows only the color of the last run.
How should I manage this.

procedure TForm1.VulRechthoek(Sender: TObject);
var I     :Integer;
begin
  for I := 1 to 10 do begin
    Memo1.Lines.Add('Tekst');
    Sleep(500);
    MyBitmap.Canvas.Brush.Color  := 92000+10*I;
    MyBitmap.Canvas.Fillrect(0,0,MyBitmap.Width,MyBitmap.Height);
    Image1.Canvas.Draw( 0, 0, MyBitmap);
  end;
end;

----------------------------------------------------------------------
eny · 2015-06-30 20:34

Code: [Select]procedure TForm1.VulRechthoek(Sender: TObject);
var I     :Integer;
begin
  for I := 1 to 10 do begin
    Memo1.Lines.Add('Tekst');
    MyBitmap.Canvas.Brush.Color  := 92000+10*I;
    MyBitmap.Canvas.Fillrect(0,0,MyBitmap.Width,MyBitmap.Height);
    Image1.Canvas.Draw( 0, 0, MyBitmap);
    Application.ProcessMessages;        // <--------------------
    Sleep(500);
  end;
end;

----------------------------------------------------------------------
hvh · 2015-07-01 20:59

Your solution works.
Thanks for your work!