jak zmienić rozdzielczość obrazka BMP?

0

Szukalem na formu i cos tworzylem ale w rezultacie po wpisaniu wlasciwosci

stretch:=true 

i wpisaniu

obraz.picture.bitmap.Height:=450;
obraz.picture.bitmap.width:=900;

obrazek sie zapisal w tej rozdz. ale nie rozciagnal tylko dostawil biale miejsce:(

Jak to zrobic szybko i fachowo?

dzieki :-)

0
var
 o1, o2 : TBitmap;
 rozmiarDocelowy : TRect;

begin
   rozmiarDocelowy.Width := costam;
   rozmiarDocelowy.Heigth := costam;

   o1 := TBitmap.Create;
   o2 := TBitmap.Create;
   o2.Width :=    rozmiarDocelowy.Width;
   o2.Heigth :=    rozmiarDocelowy.Heigth;
   o1.LoadFromFile(cośtam);
   o2.Canvas.StrechDraw(rozmiarDocelowy, o1);
   o2.SaveToFile(cośtam2);
end;

z pamięci.. bez bicia proszę..
pozdr

0

Troche poprawilem i ....bledow nie ma ale zapisuje bitmape o wielkosci 0. Pp prostu pusta jest.

Kod jest taki.

var
o1, o2 : TBitmap;
rozmiarDocelowy : TRect;

begin
   rozmiarDocelowy:=rect(0,0,500,500);
   o1 := TBitmap.Create;
   o2 := TBitmap.Create;
   o2.Width :=    500;
   o2.Height :=    500;
   o1.LoadFromFile('c:\ 1.bmp');
   o2.Canvas.StretchDraw((rozmiarDocelowy), o1);
   o2.SaveToFile('c:\2.bmp');
end;
0

wielkie dzieki AndRew !! Juz jest OK

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