Форум «Всё о Паскале» [Русская версия Invision Power Board]

Автор: DekaR 4.03.2006 21:39

Пользователь с помошью OpenPictureDialog открывает картинку(jpg,bmp или gif). Программа должна её уменьшить или увеличить до размеров 290*290 и в уменьшеном виде сохранить.Сожранить-не проблемма,а вот уменьшить/увеличить....

Автор: volvo 4.03.2006 21:53

Скачай http://forum.pascal.net.ru/index.php?showtopic=6361 и читай темы:
"Качественно уменьшить изображение"
и
"Как качественно увеличить изображение при помощи билинейной интерполяции"

Автор: DekaR 4.03.2006 22:39

10 метров Вы издеваетесь? У меня диал-ап со скоросмтью 48

Автор: volvo 4.03.2006 22:42

А ты что, хочешь, чтобы я выложил сюда этот кусок? И потом придет человек, у которого ТАК ЖЕ КАК У ТЕБЯ диалап и скажет, "А зачем??? Это решение у меня уже есть - оно же есть в DRKB!!! Я ищу другое!" А открытие страницы - траффик, а за траффик он платит... И кто прав?

А если надо будет 4 функции WinAPI? Тебе и из MSDN их сюда копировать?

Автор: DekaR 18.03.2006 16:58

У и как?Там в качестве "некачественного" есть пример :

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Form1.Canvas.Font.Size := 24; 
  Form1.Canvas.TextOut(0, 0, 'Text'); 
  Form1.Canvas.CopyRect(Bounds(0, 50, 25, 10), Form1.Canvas, 
  Bounds(0, 0, 100, 40)); 
end;

А мне нужно:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OPD1.Execute then begin
Image1.picture.loadfromfile (OPD1.FileName);
label3.Caption:=OPD1.FileName;
{Здесь надо вставить код,который уменьшает изборажение в Image1.picture до размеров 290*290}
Image1.Show;
Form1.podpis.SetFocus;
end;
end;

Автор: Ozzя 18.03.2006 17:26

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRect : TRect;
begin
  With MyRect do
  begin
    Left:=0;
    Right:=290;
    Top:=0;
    Bottom:=290;
  end;
  Image1.BoundsRect:=MyRect;
  Image1.Stretch:=True;
end;

Автор: Гость 20.10.2006 19:58

Цитата(DekaR @ 4.03.2006 17:39)

Пользователь с помошью OpenPictureDialog открывает картинку(jpg,bmp или gif). Программа должна её уменьшить или увеличить до размеров 290*290 и в уменьшеном виде сохранить.Сожранить-не проблемма,а вот уменьшить/увеличить....

У тебя получилась такая прога?

Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате