[D3D] How to reset texture blending settings

[chronozphere]

Good idea... I have checked the return values and i've build this procedure:

[pascal]
procedure TBF_CustomGraphic.ResetTextureBlending;
begin
with fD3DDevice do
begin
SetTextureStageState(0,D3DTSS_ALPHAOP,D3DTOP_SELEC TARG1);
SetTextureStageState(0,D3DTSS_ALPHAARG1,D3DTA_TEXT URE);
SetTextureStageState(0,D3DTSS_ALPHAARG2,D3DTA_CURR ENT);
SetTextureStageState(0,D3DTSS_COLOROP,D3DTOP_MODUL ATE);
SetTextureStageState(0,D3DTSS_COLORARG1,D3DTA_TEXT URE);
SetTextureStageState(0,D3DTSS_COLORARG2,D3DTA_CURR ENT);

SetTextureStageState(1,D3DTSS_ALPHAOP,D3DTOP_DISAB LE);
SetTextureStageState(1,D3DTSS_ALPHAARG1,D3DTA_TEXT URE);
SetTextureStageState(1,D3DTSS_ALPHAARG2,D3DTA_CURR ENT);
SetTextureStageState(1,D3DTSS_COLOROP,D3DTOP_DISAB LE);
SetTextureStageState(1,D3DTSS_COLORARG1,D3DTA_TEXT URE);
SetTextureStageState(1,D3DTSS_COLORARG2,D3DTA_CURR ENT);
end;
end;
[/pascal]