Image Map generator

[franktron]

Ich was gemacht ist aber nicht besonders schnell

Delphi-Quellcode:

procedure TDataList.PaintRand(C: TCanvas);
Var
  i     : Longint;
  Item  : TData;

  Function IsRand1(Const X,Y : Longint;Const IsX : Boolean): Boolean;
  Var
    i   : Longint;
    item: TData;
  Begin
    i:=0;
    Result:=False;
    While i<FList.Count do
    Begin
      Item:=Get(i);
      If (item.X=X) AND (item.Y=Y) then Result:=True;
      If Result then i:=FList.Count;
      Inc(i);
    End;
  End;

  Function IsRand(Const X,Y : Longint): Boolean;
  Var
    i   : Byte;
  Begin
    i:=0;
    If IsRand1(X-1,Y,True) then Inc(i);
    If IsRand1(X+1,Y,True) then Inc(i);

    If IsRand1(X,Y-1,False) then Inc(i);
    If IsRand1(X,Y+1,False) then Inc(i);

    Result:=i<4;
  End;
  
begin
  For i:=0 To FList.Count-1 do
  Begin
    Item:=Get(i);
    If IsRand(Item.X,Item.Y) then
      C.Pixels[Item.X-FMinX,Item.Y-FMinY]:=clRed;  
  End;
end;