[Delphi] Resize Canvas'a ?

0

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

0
  1. 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.

0
  1. 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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0