卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure FillColors(Xs:integer;Ys:integer;OldColor,NewColor:Byte);
type stackfield=record
xl,xr,y:integer;
end;
var
i,X,y,Xl,Xr,p_Xl,p_Xr,signed_Y:integer;
P : PByteArray;
stack:array of stackfield;
procedure set_stack_empty();
begin
setlength(stack,10);
end;
function stack_not_empty():boolean;
begin
if stack[0].y=0 then
result:=false
else
result:=true;
end;
procedure push(xl,xr,y:integer);
begin
stack[0].y:=stack[0].y+1;
if stack[0].y>=length(stack) then
setlength(stack,length(stack)*2);
stack[stack[0].y].xl:=xl;
stack[stack[0].y].xr:=xr;
stack[stack[0].y].y:=y
end;
procedure pop(var xl:integer;var xr:integer;var y:integer);
begin
xl:=stack[stack[0].y].xl;
xr:=stack[stack[0].y].xr;
y:=stack[stack[0].y].y;
stack[0].y:=stack[0].y-1;
end;
begin
if ((Xs>Fwidth)or(Ys>FHeight))and(OldColor=0) then exit; //Fwidth,FHeight为位图的宽度和高度
set_stack_empty;//////////
P:=FBitmap.scanline[Ys];
i:=Xs;
if P=Newcolor then exit;
while P=OldColor do
begin
P:=NewColor;
i:=i+1;
end;
Xr:=i-1;
i:=Xs-1;
while P=OldColor do
begin
P:=NewColor;
i:=i-1;
end;
Xl:=i+1;
push(Xl,Xr,-(Ys-1));
push(Xl,Xr,(Ys+1));
while stack_not_empty do
begin
pop(p_Xl,p_Xr,signed_Y);
y:=abs(signed_Y);
P:=FBitmap.scanline[y];
if (P[p_Xl]=OldColor) then
begin
x:=p_Xl-1;
while (P[x]=OldColor) do
begin
P[x]:=NewColor;
x:=x-1;
end;
Xl:=x+1;
x:=p_Xl;
end
else
begin
x:=p_Xl;
while (p[x]<>OldColor)and(x<=p_Xr)do
begin
x:=x+1;
end;
xl:=x;
end;
while x<=p_Xr do
begin
while(p[x]=OldColor) do
begin
p[x]:=NewColor;
x:=x+1;
end;
Xr:=x-1;
if (Xl<p_Xl-1) then push(xl,p_Xl-1,-(signed_y-1));
if (Xr>p_Xr+1) then push(p_xr+1,xr,-(signed_y-1));
push(Xl,Xr,signed_y+1);
while (p[x]<>OldColor)and(x<=p_Xr) do
x:=x+1;
Xl:=x;
end;
end;
invalidate;
end;
]