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

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c