[DopInfa]

Нужно вставить картинку в виде фона на форму с округлыми краями ~ 600x400
Сделал ее в фотошопе, но проблема, что прозрачность поддерживают только PNG и GIF. А в TImage не поддерживает данные форматы.

Подскажите как можно решить эту проблему? или есть другие способы как-то красиво оформить программу.

[Bargest]

Делаем углы розового цвета (или любого другого неиспользуемого), ставим в TImage свойство Transparent в TRUE. Должно прокатить.

[angvelem]

Я так понимаю, ТС нужно несколько другое. Сделать программу нестандартной формы? Так?

[DopInfa]

Сообщение от angvelem

Я так понимаю, ТС нужно несколько другое. Сделать программу нестандартной формы? Так?

Нет. Возьмем например не фон, а кнопку.
Просто при добавление в TImage картинки в формате JPEG\BMP - прозрачность теряется и вокруг овальной, красивой кнопки - белый фон
Я решил эту проблему тем, что кнопка маленькая и ее можно превратить в формат .ico не потеряв прозрачность. А вот с фоном так не получается.

[angvelem]

Ну тогда как было сказано выше, дополнительно вывести на Canvas с прозрачностью можно функцией TransparentBlt.

[Karsh]

Распакуйте архив в папку с проектом и добавте к проекту файл PngImage.pas.
Тогда у вас TImage начнет понимать формат PNG.

[DopInfa]

Сообщение от Karsh

Распакуйте архив в папку с проектом и добавте к проекту файл PngImage.pas.
Тогда у вас TImage начнет понимать формат PNG.

Как добавить к проекту PngImage.pas

[Janom]

Код:

uses
    ...Windows,...SysUtils,...PngImage;

И все его компоненты в папку с программой положи.
и потом используешь просто

Код:

Image1.Picture.LoadFromFile('Моя_Картинка.PNG');

[einstein]

а зачем на форму кидать картинку с прозрачностью чтобы фон формы было видно.

[DopInfa]

Сообщение от einstein

а зачем на форму кидать картинку с прозрачностью чтобы фон формы было видно.

Я же уже объяснил, что это может быть не только фон, а кнопка, нарисованная в фотошопе.
А с фоном, я придумал интересный дизайн, но нужна прозрачность. Щяс пробую добавить PNGImage

[einstein]

покажешь потом?

[DopInfa]

Сообщение от Janom

Код:

uses
    ...Windows,...SysUtils,...PngImage;

И все его компоненты в папку с программой положи.
и потом используешь просто

Код:

Image1.Picture.LoadFromFile('Моя_Картинка.PNG');

В uses добавил.

Потом так?

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('fon.png');
end;

[NumLock]

http://data.cod.ru/112114

[DopInfa]

Решение найдено - AlphaSkins, в котором уже есть поддержка PNG.

[angvelem]

Это не решение, это не умение решать проблемы самостоятельно.