Finalement c'était juste une histoire de ^
j'ai maintenant un autre problème
quand je compile j'ai un message d'erreur Project Raised exception class 'External SIGSEGV'
j'arrive à cette ligne :
Form.PaintBox1.Canvas.MoveTo(i,y);
et ça me lance l'unité CustomImage.inc à la ligne :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| function TCustomImage.GetCanvas: TCanvas;
var
TempBitmap: TBitmap;
begin
//debugln('TCustomImage.GetCanvas A ',DbgSName(Self),' ',DbgSName(FPicture.Graphic));
if not FUseParentCanvas and (FPicture.Graphic = nil) then
begin
// make a new bitmap to draw on
TempBitmap := TBitmap.Create;
try
TempBitmap.Width := Width;
TempBitmap.Height := Height;
FPicture.Graphic := TempBitmap;
finally
TempBitmap.Free;
end;
end; |
j'ai tout essayé (points de suivis et pas à pas approfondi)
je pense que ça vient d'une mauvaise utilisation de MoveTo
que dois je faire ?
merci d'avance
Partager