To znowu ja. Chcę, aby mój program zmieniał rozmiar obrazka i zapisał go na pulpicie. Wczytuj najpierw przez OpenPictureDialog1.execute. Rozmiary zmienia się w programie ruszając suwakiem (początkowo ustawiony jest po środku na 50). W programie widać jak się zmienia, jednak po kliknięciu "zapisz", zapisuje się w takich samych rozmiarach jakich był na początku. Oto fragment kodu:
procedure TForm1.Button2Click(Sender: TObject); // przycisk zapisz
begin
Image1.Picture.SaveToFile('C:\Documents and Settings\Frankensztajn\Pulpit\obrazek.jpg');
end;
procedure TForm1.TrackBar1Change(Sender: TObject); //suwak
begin
Image1.Picture.LoadFromFile(openpicturedialog1.FileName);
Image1.Width := Image1.Picture.Width;
Image1.Height := Image1.Picture.Height;
Image1.Width :=round(Image1.Width*trackbar1.position*2/100);
Image1.Height :=round(Image1.Height*trackbar1.position*2/100);
Image1.Stretch := true;
end;
Jak zrobić, aby obrazek zapisał się w zmienionej rozdzielczości?