| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Потеря цвета [D6, WinXP]

webpauk ©   (2005-06-23 16:38:00) 

При копировании 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;


---

Grief   (2005-06-25 11:32:00) [1]

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

---

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

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

---

-=XP=-   (2005-06-23 16:44:00) [3]

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

Btmp.PixelFormat := pf24bit;

---

Наверх