[Rabid Coyote]

Есть программка для расчета оптимального веса, основанная на весо-ростовых показателях. Ошибки нет, но по нажатию кнопки картинка в Image почему-то не загружается. В uses модуль jpeg прописал.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
factW := StrToInt(Edit2.text);
Rost := StrToInt(Edit1.Text);
OptW :=Rost - 100;
Delta := abs(factW - OptW);
if OptW = factW then begin
Label3.caption :='Ваш вес идеален!';
Image1.Picture.LoadFromFile('C:\1.jpg');
end;

В Uses модуль jpeg прописал.

[Alegun]

В D7 надо делать так

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
j : TJjpegImage;
begin
 ...
 ..
 .

 if OptW = factW then
  begin
   Label3.caption :='Ваш вес идеален!';

   j:= TJjpegImage.Create;
   j.LoadFromFile('C:\1.jpg');
   Image1.Picture.Bitmap.Assign(j);
   j.Free;
  end;
end;

возможно и в вашей прокатит

[Rabid Coyote]

Сообщение от Alegun

возможно и в вашей прокатит

увы. так тоже не прокатывает.

[Alegun]

В паинте рисунок открывается? Может что со сжатием не так.

[angvelem]

Сообщение от Alegun

В D7 надо делать так

В Дельфи 7 и напрямую грузится без проблем.

[Alegun]

Оффтоп:

Сообщение от angvelem

В Дельфи 7 и напрямую грузится без проблем.

У нас наверное версии разные у меня она 2002 года и прямой загрузки jpg программно здесь нет. Можно только через диалог загрузки в редакторе свойств под дизайном.

[angvelem]

Сообщение от Alegun

У нас наверное версии разные

Наверное, только и у меня 2002 года.

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('image.jpg');
  Image1.Update;
  sleep(500);
  Image1.Picture.LoadFromFile('F:\PICTURE\JPG\Animals\1.jpg');
  Image1.Update;
  sleep(500);
  Image1.Picture.LoadFromFile('rose.jpg');
end;

[Alegun]

И правда, работает, надо было всего лишь jpeg в uses подрубить!

Спасибо за науку, Учитель!

[Rabid Coyote]

Сообщение от Alegun

И правда, работает

Ваш вариант тоже работает - это я просто забыл один слэш поставить.

[NumLock]

с GdipGraphic в Image можно загружать BMP, JPEG, GIF, TIFF, PNG (естественно с прозрачностью) в desing-time и run-time.

[angvelem]

Сообщение от NumLock

...в Image можно загружать...

Можно, но чаще всего не нужно.