Показать сообщение отдельно
  #1  
Старый 28.03.2013, 13:10
Firex Firex вне форума
Прохожий
 
Регистрация: 28.03.2013
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Динамическое создание TPngImage/TImage с прозрачностью

Всем доброго времени суток господа.
Задана была курсовая - написать игру крестики-нолики.
Поскольку приоритет программирования я отдаю другому языку - пару моментов в Delphi мне не ясны.
В другом языке для нормальной прозрачности я использовал:
Код:
GDI+ Bitmap Create HBITMAP From Bitmap.
И WinAPI/SendMessage - 0x0172(Set image) и наш hBitmap.

Писать подобное в Delphi - далеко не мой уровень.
Поэтому делал я вот так:
Код:
  bg:=TImage.Create(Form1);
  bg.Parent:=Form1;
  bg.Top:=0;
  bg.Left:=0;
  bg.AutoSize:=True;
  bg.Transparent:=True;
  bg.Picture.LoadFromFile('images\bg_blue.png');
Но прозрачность ужасна, такое чувство, что рисует он ее в 16-ти битном режиме.
Быть может есть иные способы? Заранее спасибо.

P.S. Только Delphi 7
Ответить с цитированием