Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
 Аватар для HanDi
898 / 345 / 65
Регистрация: 11.02.2012
Сообщений: 1,502

Image1 показывает всю картинку, а не обрезает ее.

18.02.2012, 17:12. Показов 2543. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть код :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  bmp:=TBitmap.Create;
  jpgImg := TJPEGImage.Create;
    bmp.Height:=Screen.Height;
    bmp.Width:=Screen.Width;
    DC:=GetDC(0);
    bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
      DC, 0, 0, SRCCOPY);
 
  ReleaseDC(0, DC);
  jpgImg.Assign(bmp); {в JPG грузим Битмап}
[COLOR="Red"]    image1.Width:=bmp.Width;
  image1.Height:=bmp.Height;
  image1.Picture.Bitmap:=bmp;[/COLOR]
  jpgImg.CompressionQuality:=100; {устанавливаем компрессию (качество) (1-100)}
 if SavePictureDialog1.Execute then
    jpgImg.SaveToFile(SavePictureDialog1.FileName+'.jpg'); {сохраняем в формате JPG}
  jpgImg.Free;
  bmp.Free;
Как сделать, чтобы image1 показывало всю уменьшенную картинку, а не обрезал ее?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.02.2012, 17:12
Ответы с готовыми решениями:

DrawImage обрезает картинку
Image em_cel = Image.FromFile(@"Icons\Empty_Cells.PNG"); e.Graphics.DrawImage(em_cel, 5,5,20,20); Почему если писать подобие...

Фон обрезает картинку
Как сделать чтоб фон обрезал картинку. Пример ниже!

Вытащить из ImageList картинку в Image1
Есть 2 картинки (файлы png или jpg ) они содержатся в ImageList. Надо их вытащить и поместить в Image. Как? час уже смотрю на форумах?...

6
 Аватар для NIch
401 / 312 / 74
Регистрация: 17.03.2010
Сообщений: 1,119
18.02.2012, 17:22
В ObjectInspector твоего Image установи свойство
Stretch в True
AutoSize в False
0
 Аватар для HanDi
898 / 345 / 65
Регистрация: 11.02.2012
Сообщений: 1,502
18.02.2012, 17:25  [ТС]
Пробовал, тоже самое.

Добавлено через 1 минуту
http://img-life.ru/upload_imag... 2949f7.png
0
 Аватар для NIch
401 / 312 / 74
Регистрация: 17.03.2010
Сообщений: 1,119
18.02.2012, 17:29
Естественно у тебя ведь Image размером с картинку.
Delphi
1
2
image1.Width:=bmp.Width;
image1.Height:=bmp.Height;
У тебя просто сам Image не помещается на форму.
Установи полосы прокрутки на форме и двигай их что бы увидеть всю картинку или убери этот код.
0
 Аватар для HanDi
898 / 345 / 65
Регистрация: 11.02.2012
Сообщений: 1,502
18.02.2012, 17:31  [ТС]
С этим разобрался.

Тут еще кое что
0
 Аватар для NIch
401 / 312 / 74
Регистрация: 17.03.2010
Сообщений: 1,119
18.02.2012, 17:37
Цитата Сообщение от HanDi Посмотреть сообщение
Тут еще кое что
Пиши)))
0
 Аватар для HanDi
898 / 345 / 65
Регистрация: 11.02.2012
Сообщений: 1,502
18.02.2012, 19:08  [ТС]
Вот к примеру я нажал в трее на иконку программы, как сделать чтобы я мог выбрать определенную область и тогда уже как выше показать ее в image и сохранить?

А то не удобно, когда форма еще висит, вот так получается: http://img-life.ru/upload_imag... e4422f.png

Добавлено через 1 час 28 минут
up'///
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.02.2012, 19:08
Помогаю со студенческими работами здесь

Как поместить картинку из БД Access в Image1?
Добрый день, у меня такой вопрос я уже правда голову поломал ни чё ни как не понял как поместить картинку в Image1 из БД Access. Вот короче...

Как поместить картинку из БД Access в Image1?
Добрый день, у меня такой вопрос я уже правда голову поломал ни чё ни как не понял как поместить картинку в Image1 из БД Access. Вот короче...

Ворд обрезает картинку при вставке
Почему ворд вставляет картинку так, что она обрезается? Изменение обтекания текстом исправляет проблему, но нужно то, чтобы обтекание...

JQuery .autocomplete во ввода выбора показывает полное значение (title), а при выборе обрезает до id
Доброго дня! Есть функция .autocomplete. <script> $(function() { $( "#skills" ).autocomplete({ source:...

Обрезает картинку на главной странице,если смотреть сайт с телефона
Картинка находится в контент-блоке и подгружается из галереи медиа файлов. Если смотреть сайт со смартфона, обрезана половина картинки....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru