FoxClub Forums > Visual Foxpro, Foxpro for DOS

• Войти

Объект Image
LED Автор Сообщений: 204 Дата регистрации: 22.07.2006	LED 21.03.19 19:36:47 Всем здравствуйте. Подскажите что надо сделать. На форме есть объект Image Загружаю в него картинку из файла формат bmp GrFile='C:\1\1.dmp" ThisForm.Image1.Picture=GrFile Картинка меняется, а файл остается под тем же именем. При загрузке формы остается та же картинка. Как очистить Image1, чтобы менялась картинка На форуме искал и ничего не нашел.

LED
Автор

Сообщений: 204
Дата регистрации: 22.07.2006

LED

21.03.19 19:36:47

Всем здравствуйте.

Подскажите что надо сделать.
На форме есть объект Image

Загружаю в него картинку из файла формат bmp

GrFile='C:\1\1.dmp"
ThisForm.Image1.Picture=GrFile

Картинка меняется, а файл остается под тем же именем.

При загрузке формы остается та же картинка.
Как очистить Image1, чтобы менялась картинка

На форуме искал и ничего не нашел.

Re: Объект Image
vk65 Сообщений: 402 Дата регистрации: 08.04.2008	vk65 21.03.19 23:17:53 после выгрузки формы: clear resources (GrFile)

Re: Объект Image
LED Автор Сообщений: 204 Дата регистрации: 22.07.2006	LED 23.03.19 11:43:24 vk65 Спасибо. Не срабатывает. На форме есть кнопка Command7 - Выход В click прописываю clear resources(GrFile) ThisForm.Release() Остается картинка Куда clear resources(GrFile) ставить. Может есть другой вариант

Re: Объект Image
vk65 Сообщений: 402 Дата регистрации: 08.04.2008	vk65 23.03.19 12:17:09 У меня сделано после выгрузки формы: cFnGif = "picture.gif" oFrm = createobject("myForm") oFrm.Show() *read events && если форма немодальная release oFrm clear class myForm clear resources (cFnGif)

Re: Объект Image
LED Автор Сообщений: 204 Дата регистрации: 22.07.2006	LED 24.03.19 00:20:09 Да, спасибо. С файлом получилось. А вот другой вариант С помощью GDI+ Создаю рисунок и заношу его в буфер обмена. Потом из буфера обмена картинку кидаю на объект Image IF oGPI1.CopyFromClipboard() thisform.Image1.PictureVal = oGPI1.SaveToField("bmp") ENDIF Картинка появляется. Буфер обмена очищаю. Выхожу из формы. Создаю новый рисунок. Также заношу в буфер обмена. Из буфера обмена кидаю на Image Остается первый рисунок. Даже выхожу из программы остается начальный рисунок Как очисть этот удивительный объект Image если добавлять новую картинку из буфера обмена? Исправлено 3 раз(а). Последнее : LED, 24.03.19 11:02

Re: Объект Image

LED
Автор

Сообщений: 204
Дата регистрации: 22.07.2006

LED

24.03.19 00:20:09

Да, спасибо.
С файлом получилось.

А вот другой вариант
С помощью GDI+ Создаю рисунок и заношу его в буфер обмена.
Потом из буфера обмена картинку кидаю на объект Image


       IF oGPI1.CopyFromClipboard()  
         thisform.Image1.PictureVal = oGPI1.SaveToField("bmp")  
       ENDIF

Картинка появляется.
Буфер обмена очищаю.

Выхожу из формы. Создаю новый рисунок. Также заношу в буфер обмена.
Из буфера обмена кидаю на Image
Остается первый рисунок.
Даже выхожу из программы остается начальный рисунок

Как очисть этот удивительный объект Image если добавлять новую картинку из буфера обмена?

Исправлено 3 раз(а). Последнее : LED, 24.03.19 11:02

Re: Объект Image
LED Автор Сообщений: 204 Дата регистрации: 22.07.2006	LED 24.03.19 13:19:20 Всем спасибо. Нашел решение.

Re: Объект Image
LED Автор Сообщений: 204 Дата регистрации: 22.07.2006	LED 26.03.19 21:00:55 Нужна еще помощь. Необходимо полученный растр закинуть в объект Image Записывается создаваемый график. Но для примера взял такой код oGPI = CREATEOBJECT("gdipimages") llStatus = oGPI.CreateBitmap(640, 250) IF llStatus * Создаём перо llStatus = oGPI.CreatePen(1, 0xFF0000FF) ENDIF IF llStatus * Рисуется прямоугольник и в дальнейшем в него записывается график llStatus = oGPI.DrawRectangle(0, 0, 600, 500) ENDIF и т.д. Создаваемый растр нужно записать в Image1 Объекта Image На форуме прочитал что это можно сделать через PictureVal Подскажите как это сделать через GDI+ И еще. Надо сделать не через файл а напрямую. На форуме находил примеры. Пробовал не получилось. Fox 9 sp2 Исправлено 1 раз(а). Последнее : LED, 26.03.19 21:12

Re: Объект Image

LED
Автор

Сообщений: 204
Дата регистрации: 22.07.2006

LED

26.03.19 21:00:55

Нужна еще помощь.

Необходимо полученный растр закинуть в объект Image

Записывается создаваемый график.
Но для примера взял такой код


oGPI = CREATEOBJECT("gdipimages")
llStatus = oGPI.CreateBitmap(640, 250)

IF llStatus
* Создаём перо
   llStatus = oGPI.CreatePen(1, 0xFF0000FF)
ENDIF 
IF llStatus
* Рисуется прямоугольник и в дальнейшем в него записывается график
   llStatus = oGPI.DrawRectangle(0, 0, 600, 500)
ENDIF

и т.д.

Создаваемый растр нужно записать в Image1 Объекта Image
На форуме прочитал что это можно сделать через PictureVal

Подскажите как это сделать через GDI+
И еще. Надо сделать не через файл а напрямую.
На форуме находил примеры. Пробовал не получилось.
Fox 9 sp2

Исправлено 1 раз(а). Последнее : LED, 26.03.19 21:12

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 25 (Гостей: 25)