[英]AggPas Delphi Drawing Transparencies
我想做什么
我有一個繪制過程(它起作用),它繪制到位圖“ OBJmap”,然后將OBJmap放入Wholemap。 所有這些都有效,但是有一個問題。 即使將objmap和Wholemap設置為PF32Bit,似乎也將objmap的未定義部分視為白色,因此,當將objmap放入Wholemap時,在粘貼的圖像后面會出現一個白框,該框應該是透明的。
這僅在ATI機器上發生,但這是針對學校的,它們都具有100%的ati,因為它們便宜(我不偏愛誠實),因此建議我使用AggPas解決此問題。
我的密碼
procedure DrawScene();
var
ObjLength,LineLength,Filllength,Obj,lin,angle,i,x1,y1,x2,y2:integer;
Npoints : array[0..1] of Tpoint;
WG,OG: Tagg2d;
Objmap,wholemap:TBitmap;
begin
//Set up WholeMap Bitmap
wholemap := TBitmap.Create;
wholemap.PixelFormat:=pf32bit;
wholemap.Transparent:=false;
wholemap.Width:=area;
wholemap.height:=area;
WG:= Tagg2d.create;
BitmapAlphaTransparency(wholemap, 0);
WG.attach(wholemap,False);
WG.ClearAll(255,0,0,255);
//BitmapAlphaTransparency(wholemap, 255);
//WG.MasterAlpha(255);
// itterate through each object drawing the object to OBJmap
ObjLength:=length(Objects);
for Obj:=0 to (ObjLength-1) do
if objects[Obj].Visible then
begin
//Set up Object map Bitmap
Objmap := TBitmap.Create;
Objmap.PixelFormat:=pf32bit;
Objmap.Transparent:=true;
Objmap.Width:=Objects[obj].Boundright-objects[obj].Boundleft+3;
Objmap.height:=Objects[obj].BoundTop-objects[obj].Boundbottom+3;
OG:= Tagg2d.create;
OG.attach(Objmap,False);
{OG.ClearAll(0,0,255,255); // Clears all bitmap to transparrent
OG.MasterAlpha(255);
OG.LineWidth(5);
og.AntiAliasGamma(255);
OG.
OG.LineColor(0,255,0,255);
OG.FillColor(0,255,0,255);
//OG.
OG.MoveTo(0,0);
OG.LineTo(Objmap.width-1,Objmap.height-1); }
//Draw the Lines to Objmap
LineLength:=length(objects[Obj].Lines)-1;
angle:=objects[Obj].Rotation;
for lin:=0 to (LineLength) do
begin
//Transform points
for i:=0 to 1 do
Npoints[i] := PointAddition(RotatePoint(objects[obj].Lines[lin].Point[i],angle),point(-objects[obj].boundleft,-Objects[obj].Boundbottom),false);
//draw transformed points
Objmap:=DrawLine(Npoints[0].x,Npoints[0].y,Npoints[1].x,Npoints[1].y,objects[obj].Lines[lin].Color,Objmap,OG);
end;
//Draw the Fills to Objmap
Filllength:=length(objects[Obj].Fills)-1;
for i:=0 to Filllength do
begin
//transform points
Npoints[0]:=PointAddition(RotatePoint(objects[Obj].Fills[i].Point,objects[Obj].Rotation),point(-objects[obj].boundleft,-Objects[obj].Boundbottom),false);
// fill points
Objmap:=fillpoint( Npoints[0].x, Npoints[0].y,objects[Obj].Fills[i].color,Objmap);
end;
//draw objmap to wholemap
x1:=objects[obj].Position.x+objects[obj].Boundleft-1;
y1:=area-(objects[obj].Position.y+objects[obj].Boundtop)-2;
x2:=x1+Objmap.Width;
y2:=y1+Objmap.Height;
WG.TransformImage(Objmap,x1,y1,x2,y2); //this show border
//WG.copyimage(Objmap,x1,y1); //this draws the scene up but does not handle transparencies correctly
//wholemap.Canvas.Draw(x1,y1,Objmap);//does not work in PF32bit or on ati machines
//wg.Free; // this it does not like (crash) do i need it?
Objmap.Free;
end;
// write wholemap to Visible Canvas
mainwindow.bufferim.Canvas.Draw(0,0,wholemap);
wholemap.Free;
mainwindow.RobotArea.Picture.Graphic:=mainwindow.bufferim.Picture.Graphic;
end;
圖片范例
不工作,正在工作,目前
我只能在具有默認設置的Nvidia機器上獲得工作結果
wholemap.Canvas.Draw
方法,我希望使用aggpass在所有機器上都可以使用它。
我該怎么辦我如何將objmap繪制到全圖上而不繪制透明位?
嘗試BitmapAlphaTransparency(wholemap,0); WG.attach之前。
我遇到了同樣的問題,您需要在調用Transform Image之前設置BlendMode
WG.BlendMode(AGG_BlendSrcTop);
這對我有用,但是您可能需要嘗試幾種混合模式才能獲得正確的答案。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.