Delphi取得圖片的透明區域

(*//

標題:取得圖片的透明區域

說明:適用於制作復雜的不規則窗體

設計:Zswang

支持:[email protected]

日期:2004-03-10

//*)

(*//============================================================================

設計思路:～～

就是對畫布一行一行的掃描～～

對於不是透明色相連的像素都看成一條條的線段～～

───────── ─ ─── ─────

─────── ──── ───────

─── ─── ── ───────

── ─────────

用這些線段組合成不規則的區域～～

線段就是找到開始位置和結束位置就行了～～

組合區域是最花時間的地方～～

減少組合區域的頻率就可以提高運行的速度～～

用線段組合就比用點組合少多了～～

============================================================================//*)

function GraphicToRGN(mGraphic: TGraphic; mTransPoint: TPoint): HRGN;
var
I, J: Integer;
vStart: Integer;
vHandle: HRGN;
vTransColor: TColor;
begin
Result := 0;
if not Assigned(mGraphic) then Exit;
Result := CreateRectRgn(0, 0, 0, 0);
with TBitmap.Create do try
Width := mGraphic.Width;
Height := mGraphic.Height;
Canvas.Draw(0, 0, mGraphic);
vTransColor := Canvas.Pixels[mTransPoint.X, mTransPoint.Y];
for I := 0 to Height - 1 do begin
vStart := 0;
for J := 0 to Width do begin
if (Canvas.Pixels[J, I] <> vTransColor) and (J < Width) then
if vStart < 0 then
vStart := J
else
else if vStart >= 0 then begin
vHandle := CreateRectRgn(vStart, I, J, I + 1);
try
CombineRgn(Result, Result, vHandle, RGN_OR);
finally
DeleteObject(vHandle);
end;
vStart := -1;
end;
end;
end;
finally
Free;
end;
end; { GraphicToRGN }
//Example
procedure TForm1.Button1Click(Sender: TObject);
var
vRGN: HRGN;
begin
BorderStyle := bsNone;
Image1.Left := 0;
Image1.Top := 0;
vRGN := GraphicToRGN(Image1.Picture.Graphic, Point(0, 0));
try
SetWindowRgn(Handle, vRGN, True);
finally
DeleteObject(vRGN);
end;
end;