![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||||||
|
||||||||
![]() 7привет)
решил переделать свой скриншотер, написанный на delphi 7. щас юзаю xe10 seattle. один и тот же код, не работает на xe10, хотя на д7 всё ок. нюанс, скрин то делает, но если попытаться сделать скрин выделенной области, ничего не происходит. мне кажется проблема с переменной Bild : tbitmap; вставлял image1.picture.bitmap := Bild; куда угодно - image как был чистый, так и остаётся.. на форме image и button по кнопке открывается вторая форма, где уже и происходит выделение нужной области. вот код : Код:
вторая форма Код:
Код:
Код:
исходник статьи http://delphiexpert.ru/sozdanie-skri...na-delphi.html Последний раз редактировалось Gareth, 15.05.2018 в 16:13. |
#2
|
||||
|
||||
![]() Во-первых:
1. При создании формы2 Form2Create Вы создаете битмап Bild:=TBitMap.Create; 2. При скриншоте вы опять создаете битмап Result := TBitMap.Create; И присваиваете новый битмап к Bild 3. При уничтожении формы Вы удаляете созданный битмап Bild.Free; Проверяем работу: Тест №1 1. Запуск программы -> создали битмап 2. Закрыли программу -> удалили битмап Тест №2 1. Запуск программы -> создали битмап 2. Сделали скриншот -> создали еще битмап и присвоили ссылку на него в bild 3. Закрыли программу -> удалили битмап Вопрос: сколько битмапов создано и сколько удалено? А если скриншот сделали 10 раз, сколько создано и сколько битмапов удалено? Во-вторых: Проверьте что у Вас скриншотится: Код:
Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
Gareth (15.05.2018)
|
#3
|
|||
|
|||
![]() Проверил, создается битая картинка. Ни один просмотрщик картинок не видит её, и хостинг картинок не может её загрузить. Открыл через пикаса, и сделал скрин:
![]() Ну ведь тот же код, на д7 работает как нормально) убрал переменную в unit1. создаю (Bild := Tbitmap.Create ![]() при закрытии второй формы присваиваю Image.Picture.Bitmap := Bild; потом Bild.Free. всё так и осталось Последний раз редактировалось Gareth, 15.05.2018 в 18:55. |
#4
|
||||
|
||||
![]() Тогда на чистом проекте попробуйте:
Код:
Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
Gareth (15.05.2018)
|
#5
|
|||
|
|||
![]() Цитата:
![]() окошко делает скрин самой себя |
#6
|
||||
|
||||
![]() Если Вы оставили параметры без изменений, то логично - на экране по этим координатам сама форма
![]() Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
Этот пользователь сказал Спасибо dr. F.I.N. за это полезное сообщение: | ||
Gareth (15.05.2018)
|