Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2009, 07:54   #1
Lokos
Форумчанин
 
Регистрация: 29.09.2009
Сообщений: 587
Счастье работа с image

Здравствуйте.
Интересует следующий вопрос как отчистить Image тоесть сделать его таким каким он есвляется при добавлении его на форму.
ЗАрание спасибо.
Lokos вне форума Ответить с цитированием
Старый 28.12.2009, 08:34   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Код:
image.Canvas.Brush.Color:=form1.Color;
 image.canvas.fillrect(image.canvas.cliprect);
SERG1980 вне форума Ответить с цитированием
Старый 28.12.2009, 08:40   #3
Volt
Форумчанин
 
Аватар для Volt
 
Регистрация: 07.12.2008
Сообщений: 244
По умолчанию

Image1.Picture.Bitmap.FreeImage
|̲̅̅●̲̅̅|̲̅̅=̲̅̅|̲̅̅●̲̅̅]
Volt вне форума Ответить с цитированием
Старый 28.12.2009, 08:59   #4
Lokos
Форумчанин
 
Регистрация: 29.09.2009
Сообщений: 587
По умолчанию

Цитата:
Сообщение от Volt Посмотреть сообщение
Image1.Picture.Bitmap.FreeImage
Данный способ почему то срабатывает не всегда.
Вот код моего преложения
Код:
if TabControl1.TabIndex=4 then
    begin
       AgentBox.Visible:=false;
       DokumBox.Visible:=false;
       PosrednikBox.Visible:=false;
       VladelecBox.Visible:=false;
       MestonahBox.Visible:=false;
       GilfondBox.Visible:=false;
       akonomparambox.Visible:=false;
       kvparambox.visible:=false;
       addagentbox.Visible:=false;
       Image2.Picture.Bitmap.FreeImage;
       foto1Im.Picture.Bitmap.FreeImage;
       foto2Im.Picture.Bitmap.FreeImage;
       foto3Im.Picture.Bitmap.FreeImage;
       foto1.Enabled:=true;
       foto1.Checked:=true;
       foto2.Enabled:=true;
       foto3.Enabled:=true;
       foto1.Caption:='Фото1';
       foto2.Caption:='Фото2';
       foto3.Caption:='Фото3';
    end;
и такой на все вкладки кроме той на которой данные элементы но бывает что не срабатывает и картинка остается.
Причем caption меняется всегда.
А с image я делаю ухудшение качества изображения(Сжатие)

Последний раз редактировалось Lokos; 28.12.2009 в 09:05.
Lokos вне форума Ответить с цитированием
Старый 28.12.2009, 09:28   #5
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Код:
Image1.Picture := nil
Баламут вне форума Ответить с цитированием
Старый 28.12.2009, 09:34   #6
Lokos
Форумчанин
 
Регистрация: 29.09.2009
Сообщений: 587
Счастье

Цитата:
Сообщение от Баламут Посмотреть сообщение
Код:
Image1.Picture := nil
все вышло спс.
А в чем причина? почему данный код работает
Код:
foto1Im.Picture:=nil;
а выше представленый нет
Код:
foto3Im.Picture.Bitmap.FreeImage;
Lokos вне форума Ответить с цитированием
Старый 28.12.2009, 18:05   #7
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Как всегда - смотрим в хэлп:
Цитата:
FreeImage method (TBitmap)
Frees the cached file image stored in memory by the bitmap.
Т.е. освобождает память, выделенную под картинку при чтении ее из файла...
А к содержимому картинки никакого отношения не имеет.
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по Image (скачанная картинка не хочет выводиться в Image) Radnor Мультимедиа в Delphi 2 06.07.2009 02:20
Image IVANSour Общие вопросы Delphi 10 19.01.2009 18:11
image Черничный Общие вопросы Delphi 2 25.06.2008 16:09
image Elm0 Свободное общение 4 21.06.2007 17:34
blobdata в image renex Помощь студентам 4 21.12.2006 10:41