Graphics

Здравейте,
Случвало ли ви се е подобно нещо:
Рисувам в/у TImage.Canvas. Правя правоъгълник
Image1.Canvas.Rectnagle(0,0,Image1.Width,Image1.Height);
След това променям размерите на Image1 и наново рисувам
Image1.Width := Image1.Width + 100;
Image1.Canvas.Rectnagle(0,0,Image1.Width,Image1.Height);
обаче правоъгълника се рисува само върху старите размери.
Пробвах Repaint,Refresh,Update,Invalidate не помага
Някой има ли идея?
Предварително благодаря.

Я пробвай тоя код и ще разбереш какъв е проблема :)

  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

  ShowMessage(IntToStr(Image1.Width) + #13#10 + IntToStr(Image1.Picture.Width));

  Image1.Width := Image1.Width + 100;

  ShowMessage(IntToStr(Image1.Width) + #13#10 + IntToStr(Image1.Picture.Width));

  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);

Добави тоя ред, за да си разшириш и самия Picture:

  Image1.Picture.Graphic.Width := Image1.Width;

Много мерси andrew_nikoloff