|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
В Image Не загружается картинка jpeg
Есть программка для расчета оптимального веса, основанная на весо-ростовых показателях. Ошибки нет, но по нажатию кнопки картинка в 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 прописал. |
#2
|
||||
|
||||
В 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; возможно и в вашей прокатит Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Цитата:
увы. так тоже не прокатывает. |
#4
|
||||
|
||||
В паинте рисунок открывается? Может что со сжатием не так.
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
||||
|
||||
Оффтоп:
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
||||
|
||||
Цитата:
Код:
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; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Alegun (27.06.2013)
|
#8
|
||||
|
||||
И правда, работает, надо было всего лишь jpeg в uses подрубить!
Спасибо за науку, Учитель! Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 27.06.2013 в 23:51. Причина: Самоцензура |
#9
|
|||
|
|||
Цитата:
Ваш вариант тоже работает - это я просто забыл один слэш поставить. |
#10
|
||||
|
||||
с GdipGraphic в Image можно загружать BMP, JPEG, GIF, TIFF, PNG (естественно с прозрачностью) в desing-time и run-time.
Пишу программы за еду. __________________ |
#11
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Alegun (29.06.2013)
|