Fermeture inopinée d'une fenêtre en fin de procédure liée à un BitBtn de celle-ci.
Original Reporter info from Mantis: Puma Veloce
-
Reporter name: Henri Maquoi
Original Reporter info from Mantis: Puma Veloce
- Reporter name: Henri Maquoi
Description:
Bonjour,
J'observe la fermeture systématique de ma fenêtre lors de la fin du code suivant, qui ne comporte donc AUCUN appel à un CLOSE quelconque.
procedure TFormDisplay.BtnGreyToColorClick(Sender: TObject);
Var
I, J, MinX, MinY, MaxX, MaxY, Colour, ColRef, Count,
R, G, B: Integer;
begin
PB.Position:=0;
PB.Max:=Image.Picture.BitMap.Height;
Count:=0;
For J:=0 to Image.Picture.BitMap.Height-1 do Begin
PB.Position:=J;
For I:=0 to Image.Picture.BitMap.Width-1 do Begin
Colour:=Image.Picture.Bitmap.Canvas.Pixels[I, J];
R:=red(Colour);
G:=Green(Colour);
B:=Blue(Colour);
If (R=G) and (R=B) Then Begin
Image.Picture.Bitmap.Canvas.Pixels[I, J]:=clRed;
Inc(Count);
Image.Refresh;
end;
end;
end;
PB.Position:=0;
end;
Mantis conversion info:
- Mantis ID: 36058
- OS: Windows 7
- OS Build: 6.1.7601 SP1
- Platform: PC I5 - 3470 3.20GHZ
- Version: 2.0.4