Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: CL | DM;

Вниз

Потеря цвета   Найти похожие ветки 

 
webpauk   (2005-06-23 16:38) [0]

При копировании Bitmap на Timage теряются цвета. Может кто знает где собака зарыта?

     Btmp:=TBitmap.Create;
     try
        Btmp.LoadFromFile(...);

        with Image1.Canvas do
        begin
           Brush.Color:=clWhite;
           Pen.Color:=clGray;
           Rectangle(0,0, Image1.Width-1, Image1.Height-1);
        end;
        SetRect(fR1, 0, 0, Btmp.Width, Btmp.Height);
        SetRect(fR2, (Image1.Width-Btmp.Width) div 2, (Image1.Height-Btmp.Height) div 2, Btmp.Width, Btmp.Height);
        Image1.Canvas.BrushCopy(fR2, Btmp, fR1, clWhite);


А это работает нормально:

        Image1.Picture.Bitmap:=Btmp;


 
-=XP=- ©   (2005-06-23 16:44) [1]

Какая глубина цвета в загружаемом растре?

Btmp.PixelFormat := pf24bit;


 
rOOse ©   (2005-06-23 16:47) [2]

подгони размеры image к bitmap


 
Grief ©   (2005-06-25 11:32) [3]

А у меня нормально. Только вот в чем смысл операций?!



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

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
8-1111400251
man1
2005-03-21 13:17
2005.07.18
где можно найти исходники граф. редактора


1-1120128240
Cat
2005-06-30 14:44
2005.07.18
Динамический массив


1-1119952704
SergZ
2005-06-28 13:58
2005.07.18
DevExpress


3-1118065913
Андрей (гость)
2005-06-06 17:51
2005.07.18
Создание отчета из DBGrid а


6-1113309267
ламерок
2005-04-12 16:34
2005.07.18
Программа для работы с поисковыми запросами на делфи