[Andorra]2D-Karte wie bei Diablo2

[igel457]

Das ist natürlich auch eine Möglichkeit und lässt sich direkt durch überschreiben von "TImageSprite.CreateMask" erreichen:

Delphi-Quellcode:

procedure TMyImageSprite.CreateMask;
var
  bmp:TBitmap;
begin  
  if (FPixelCheck) then
  begin  
    if FShape <> nil then FreeAndNil(FShape);
    FShape := TAdBimapShape.Create(round(width),round(height);

    bmp := TBitmap.Create;
    try    
      bmp.LoadFromFile('myspriteshape.bmp');

      TAdBitmapShape(FShape).Mask.AssignBitmap(bmp);

    finally  
      bmp.Free;
    end;
  end;  
end;

PixelCheck muss jedoch auf "true" gesetzt werden.