[sensativ]

Практически нашел решение, все прозрачно теперь=)

bmp:=tbitmap.Create;

bmp.PixelFormat:=pf32bit;

Bmp.Height:=32;

Bmp.Width:= 32;

DrawIconEx(bmp.Canvas.Handle, 0, 0, Application.Icon.Handle,32,32,0,0,DI_IMAGE);

Form1.sknprvdr1.TitleIcon.Glyph.Handle:=Bmp.Handle;

Проблема в том что выводится половина иконки, примерно 32×16

если увеличить

Bmp.Height:=64;

Bmp.Width:= 32;

То появляется белый артифакт внизу, как правильно выставить разрешения?

Что бы у клиентов не было проблем при работе с разными иконками

[sensativ]

Пробовал так:

Ic:=TIcon.Create;

Ic.Handle:=LoadIcon(MainInstance, 'MAINICON');

bmp:=tbitmap.Create;

Bmp.Height:=32;

Bmp.Width:= 32;

DrawIconEx(Bmp.Canvas.Handle,0,0,ic.Handle,32,32,0,bmp.Canvas.Brush.Handle,DI_NORMAL);

Form1.sknprvdr1.TitleIcon.Glyph.Handle:=Bmp.Handle;

Выводиться половина иконки в Title разрешением 32×16, и если в иконке прозрачный фон, то в программе она отображается с белым фоном.

[sensativ]

Забыл уточнить. Да, нужно увеличить свободное пространство между вкладками.

[Author]

Posts