Изменение размера TImage

[alexprey]

Я рисую на канве этого компонента. Когда я меняю размер, то отображается только та область которая меньше первоначальной. Помогите разобраться.

procedure TDGUI_Image.ReColoring;
begin
 Obj.Canvas.Brush.Style:= bsSolid;
 Obj.Canvas.Brush.Color:= ImgStdColor;
 Obj.Canvas.Rectangle(0,0,Obj.Width,Obj.Height);
 if SelectObject = (Self as TDGUI_Control) then
 begin
  Obj.Canvas.Brush.Style:= bsClear;
  Obj.Canvas.Pen.Width:= SelectBorderWidth;
  Obj.Canvas.Pen.Color:= SelectBorderColor;
  Obj.Canvas.Rectangle(SelectBorderWidth div 2,SelectBorderWidth div 2,Obj.Width,Obj.Height);
 end;
end;

procedure TDGUI_Image.Resize(w,h: integer);
begin
 Obj.Width:= w;
 Obj.Height:= h;
 
 ReColoring;
end;

[Alex Cones]

Рисуйте не на канве имаги, а на канве TBitMap, который выводите на имагу по OnPaint.

[alexprey]

сейчс попробую

[alexprey]

у TImage нету такого события. Попробовал брать канву Obj.Picture.Bitmap.Canvas вроде тоже самое

[DomiNick]

Может просто нужно Image1.Stretch:=True; и Image1.Proportional:=True;?
Не очень понял что не получается...