[Delphi] Resize Canvas'a ?

Dzień dobry, muszę znowu pomęczyć:

1. Nie ma jakiegoś modułu GIF co by się go dodało do sekcji
   uses żeby program obsługiwał pliki *.gif ?
2. Jak się robi Resize Canvasa, chodzi mi konkretnie o pomniejszenie
   obrazka wczytywanego do TPicture i później malowanego na Canvasie,
   wszystko jedno w którym momencie byle by był zmniejszony do podanych
   rozmiarów ?

Z góry dziękuję...

--
Pozdrawiam...
piechnat

2. hehe użyj CopyRect załóżmy że Bmp1 to oryginał, a w Bmp2 (to są TBitmap) chcesz mięc pomniejszone coś więc:

Bmp2.Width:=100;
Bmp2.Height:=100;
Bmp2.Canvas.CopyRect(Rect(0,0,Bmp1.Width,Bmp1.Height),Bmp1.Canvas,Rect((0,0,Bmp2.Width,Bmp2.Height));

pomniejszy/powiększy do rozmiarów 100x100 obrazek znajdujący się w Bmp1 :)

--
W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

2. hehe użyj CopyRect załóżmy że Bmp1 to oryginał, a w Bmp2 (to są TBitmap) chcesz mięc pomniejszone coś więc:

Bmp2.Width:=100;
Bmp2.Height:=100;
Bmp2.Canvas.CopyRect(Rect(0,0,Bmp1.Width,Bmp1.Height),Bmp1.Canvas,Rect((0,0,Bmp2.Width,Bmp2.Height));

pomniejszy/powiększy do rozmiarów 100x100 obrazek znajdujący się w Bmp1 :)

--
W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

serdecznie dziękuję, tak coś myślałem że z tym copyrect ale ja
się boje funkcji co mają więcej niż dwa parametry :-D

--
Pozdrawiam...
piechnat