Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Zmiana rozdzielczości obrazka (Delphi)

bluehawk 17 Paź 2004 22:03 1926 3
  • #1 17 Paź 2004 22:03
    bluehawk
    Poziom 11  

    Mam mały problemik z obrazkiem jeśli chodzi o Delphi. Nie mogę zmienić rozdzielczości obrazka. Chodzi mi o to że bitmapa lub jpg które ładuje do DBImage zajmują ponad 2MB, chciałbym żeby zajmowała mniej. Może to proste pytanie, ale jak dotąd zajmowałem się tylko bazami bez potrzeby wklejania rysunków.

    0 3
  • #2 16 Lis 2004 20:55
    notset
    Poziom 16  

    Zmiane rozmiarow obrazka w delphi robi sie mniej wiecej tak (dokladne parametry sobie zobacz w helpie bo pisze na sucho :))

    zalozmy ze Bitmape ktora chcesz przeskalowac masz w zmiennej ObrazekDuzy: TBitmap

    Teraz zrob:

    var
    ObrazekMaly: TBitmap;

    begin
    ObrazekMaly := TBitmap.Create;
    with ObrazekMaly do
    begin
    Width := (Tutaj wstaw jakas szerokosc);
    Height := (Tutaj wstaw jakas wysokosc);
    end;
    ObrazekMaly.Canvas.StretchDraw(0, 0, ObrazekMaly.Width, ObrazekMaly.Height, ObrazekDuzy);


    I po tym masz w ObrazekMaly przeskalowany ObrazekDuzy :) takze tamten mozesz juz sobie zwolnic z pamieci, a uzywac ObrazekMaly.
    Pamietaj aby go po zakonczeniu pracy zwolnic z pamieci.
    Pozdrawiam!

    0
  • #3 15 Mar 2006 19:34
    qwert24
    Poziom 1  

    sory że odświerzam stary temat ale chciałbym zastosować wyżej podaną procedurę do zmiany rozdzielczości jpga a nie bmp. Ktoś podpowie jak to zrobić..?

    0