Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Вниз

Скажите пожалуйста, как можно очистить TImage от загруженного рис   Найти похожие ветки 

 
3Lander   (2007-10-26 19:41) [0]

Скажите пожалуйста, как можно очистить TImage от загруженного рисунка? Тока заполнять его через канвас мнимым прямоугольником?! (к сожалению фон самого окна не однотонный - поэтому не катит)


 
3Lander   (2007-10-26 19:45) [1]

причем брать пиксель от окна и перекрашивать его в имадж - не оч хор решение, т.к. таких рисунков 10 шт и они постоянно меняются (так была поставленна задача)


 
3Lander   (2007-10-26 20:21) [2]

вощем раз никто не знает пришлось написать процедурку с закраской по цвету фона - мож кому пригодится:

procedure DoTransPicture(var im:TImage);  { принимаем наш имадж к-й нужно "залить" под цвет фона. Здесь mainImage - наш основной фоновый рисунок}
var i,j:integer;
begin
for i:=0 to im.Width-1 do
  for j:=0 to im.Height-1 do
  begin     im.Picture.Bitmap.Canvas.pen.Color:=form1.mainImage.Picture.Bitmap.Canvas.Pixels [im.Left+i,im.Top+j];
    im.Picture.Bitmap.Canvas.MoveTo(i,j);
    im.Picture.Bitmap.Canvas.LineTo(i+1,j+1);
  end;
im.Repaint;
end;


 
Desdechado ©   (2007-10-26 21:01) [3]

Очистить или залить фоновым цветом? Это таки разные вещи.
Заливка FillRect


 
PZ   (2007-10-27 07:57) [4]

Image1.Picture := nil;


 
Дмитрий Белькевич ©   (2007-10-30 02:25) [5]


> Image1.Picture := nil;


Утечек не будет?


 
MetalFan ©   (2007-10-30 12:41) [6]


> Утечек не будет?

не должно



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.053 c
2-1194007977
BATTLE_MAX
2007-11-02 15:52
2007.11.25
Сохранение TImageList


2-1193725640
dumka
2007-10-30 09:27
2007.11.25
Рисунок на форме


15-1192549756
vasIZmax
2007-10-16 19:49
2007.11.25
Вот не могу сообразить, как лучше сделать


2-1194269229
Свой
2007-11-05 16:27
2007.11.25
Как загрузить файл из интернета


1-1188801005
KOSS
2007-09-03 10:30
2007.11.25
CorelDraw





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский