[KOOL]

Пишу скин-движок, столкнулся с проблемой: при растягивании изображения оно плавно переходит в прозрачное, как будто на краю лежит полоска из прозрачных пикселей. Если увеличить ширину изображения, то прозрачная полоска уменьшается в длине, но исчезает только когда изображение не уже области вывода. Во вложении то, что получается. 3 часа уже пытаюсь исправить, ничего не вышло. Пробовал SetInterpolationMode и подобные методы, эффекта ноль. Собственно, как устранить данную "фичу"?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

function TSkin.SkinForm(hWnd:HWND):TGPBitmap; var img: TGPBitmap;     g:TGPGraphics;     si:PSImage;     Rect:TRect;     X, Y:integer;     Br:TGPBrush; begin   GetWindowRect(hWnd, Rect);   img := TGPBitmap.Create(Rect.Right-Rect.Left, Rect.Bottom-Rect.Top, PixelFormat32bppARGB);     g:=TGPGraphics.Create(img);     if SortedList[SKIN_FIRST]<>nil then     si:=SortedList[SKIN_FIRST].Next   else     si:=nil;     while (si<>nil) do     begin       if (si.ID>SKIN_WND)and(si.ID<SKIN_WND_END) then         begin           if si.Pos.X>=0 then             X:=si.Pos.X           else             X:=(Rect.Right-Rect.Left)+si.Pos.X;           if si.Pos.Y>=0 then             Y:=si.Pos.Y           else             Y:=(Rect.Bottom-Rect.Top)+si.Pos.Y;           case si.ID of             SKIN_WND_TOP, SKIN_WND_BOTTOM:               if si.Image<>nil then                 g.DrawImage(si.Image, X, Y, (Rect.Right-Rect.Left-Abs(si.Pos.X))+si.Size.X, si.Size.Y)               else                 begin                   Br:=TGPSolidBrush.Create(Cardinal(si.Color));                   g.FillRectangle(Br, X, Y, (Rect.Right-Rect.Left-Abs(si.Pos.X))+si.Size.X, si.Size.Y);                   Br.Free;                 end;             SKIN_WND_LEFT, SKIN_WND_RIGHT:               if si.Image<>nil then                 g.DrawImage(si.Image, X, Y, si.Size.X, (Rect.Bottom-Rect.Top-Abs(si.Pos.Y))+si.Size.Y)               else                 begin                   Br:=TGPSolidBrush.Create(Cardinal(si.Color));                   g.FillRectangle(Br, X, Y, si.Size.X, (Rect.Bottom-Rect.Top-Abs(si.Pos.Y))+si.Size.Y);                   Br.Free;                 end;             SKIN_WND_FILL:               if si.Image<>nil then                 g.DrawImage(si.Image, X, Y, (Rect.Right-Rect.Left-Abs(si.Pos.X))+si.Size.X, (Rect.Bottom-Rect.Top-Abs(si.Pos.Y))+si.Size.Y)               else                 begin                   Br:=TGPSolidBrush.Create(Cardinal(si.Color));                   g.FillRectangle(Br, X, Y, (Rect.Right-Rect.Left-Abs(si.Pos.X))+si.Size.X, (Rect.Bottom-Rect.Top-Abs(si.Pos.Y))+si.Size.Y);                   Br.Free;                 end             else               if si.Image<>nil then                 g.DrawImage(si.Image, X, Y, si.Size.X, si.Size.Y)               else                 begin                   Br:=TGPSolidBrush.Create(Cardinal(si.Color));                   g.FillRectangle(Br, X, Y, si.Size.X, si.Size.Y);                   Br.Free;                 end;           end;         end;       si:=si.Next;     end;   g.Free;   Result:=img; end;