Space Shooter Game Editor

[User137]

Now I only need to make the logic if I keep the mouse pressed it should draw the last tile... say I wanna draw land tiles for say 20 screens, it wont do clicking one-by-one.

Notice that Shift is also provided. It can tell if left mousebutton is down. Just throwing some code, might or might not be what you are after

procedure TMain.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  MyMouse.Position.X:=X;
  MyMouse.Position.Y:=Y;
  ScreenToWorldCoords(X, Y);
  if ssLeft in Shift then begin
    FillTile(trunc(worldX), trunc(worldY), Pattern);
  end;
end;