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;