Mauszeiger auf Screenshot ?

[Hansa]

Hi,

ich brauche einen Mauszeiger auf einem Screenshot, wie geht das ? Möglichst mit Paint, zumindest ohne Zusatzprogramm. Eventuell reicht es den von sonstwo rein zu kopieren.

[Ultimator]

Vielleicht hilft dir das was.

Ist, wie man vielleicht erkennen kann, von den Schweizern ;-)

[Hansa]

Es geht nicht um Delphi, das wird auf die Schnelle zu kompliziert. Ist irgendwo bei Windows ein Pfeil dabei ? Wenn ja, wo ?

[alcaeus]

Hi Hansa,

wenn du in der Systemsteuerung das Panel "Maus" öffnest, kannst du dort die Zeiger einstellen. Screenshot machen, ausschneiden, schon ist der Zeiger da.

Greetz
alcaeus

[Hansa]

Jetzt habe ich zwar einen dicken fetten Mauszeiger, aber nicht auf dem Screenshot.

[alcaeus]

Zitat:

Zitat von Hansa

Jetzt habe ich zwar einen dicken fetten Mauszeiger, aber nicht auf dem Screenshot.

Wenn ich dich richtig verstanden habe, dann willst du einen Mauszeiger auf einen Screenshot bekommen. Einfach von dem zweiten Screenshot den Cursor ausschneiden und in den ersten Screenshot reinkopieren. Das Ganze kannst du einfach mit Paint machen.
Oder hab ich da was falsch verstanden? :oops:
[add]Nix falsch verstanden :mrgreen:[/add]

Greetz
alcaeus

[Hansa]

Thx Alcaeus ! jaja, ist jetzt klar. 8) Ich weiß was Du gemeint hast. Allerdings mußte ich ihn transparent machen. :lol:

[SirThornberry]

hab grad googel bemüht und folgendes unter http://delphi.about.com/library/weekly/aa021004a.htm gefunden

Delphi-Quellcode:

procedure DrawCursor(ScreenShotBitmap : TBitmap);
var
  r: TRect;
  CI: TCursorInfo;
  Icon: TIcon;
  II: TIconInfo;
begin
  r := ScreenShotBitmap.Canvas.ClipRect;
  Icon := TIcon.Create;
  try
    CI.cbSize := SizeOf(CI);
    if GetCursorInfo(CI) then
      if CI.Flags = CURSOR_SHOWING then
      begin
        Icon.Handle := CopyIcon(CI.hCursor);
        if GetIconInfo(Icon.Handle, II) then
        begin
          ScreenShotBitmap.Canvas.Draw(
                ci.ptScreenPos.x - Integer(II.xHotspot) - r.Left,
                ci.ptScreenPos.y - Integer(II.yHotspot) - r.Top,
                Icon
                );
        end;
      end;
  finally
    Icon.Free;
  end;
end;

[MarcusB]

Hi,

wenn Du nicht den kompletten Bildschirm brauchst, hilft folgender Trick:

Programme-Zubehör-Bildschirmlupe
Vergrösserung auf "1" stellen
Lupenbereich auf die Hälfte des Screens schieben
Screenshot machen

Auf der Hälfte des Screens mit der Bildschirmlupe ist auch der Mauspfeil drauf,
vielleicht hilft Dir's ja :-D :hi:

[Kevin]

Ich mach Screenshots meistens mit Corel Capture und kann dort einstellen, ob ich den Cursor mit drauf haben will oder nicht. Deswegen hab ich zunächst nicht verstanden, was das Problem sein sollte... :zwinker:

[Hansa]

Ihr sollt euch doch nicht überschlagen, :shock: es geht um einen Screenshot, der in einer Zeitschrift gedruckt wird. Es hat mit Delphi nicht direkt etwas zu tun. Allerdings werde ich mir die Sourcen zu gegebener Zeit mal genauer ansehen. Die Redaktion brauchte einen Text als Word Datei und eine Grafik, also der Screenshot. Da ist nun der Mauspfeil drauf, mit der "Alcaeus-Methode". :lol: Mit den reinen Delphi-Methoden wärs zu knapp geworden.

[Robert Marquardt]

Der uebliche Trick ist beim Screenshot den aktuellen Mauscursor und die Cursorposition (eine Mausposition gibt es nicht ;-))
einzulesen und dann den Cursor auf den Screenshot zu malen. Das geht mit DrawIcon (Icons und Cursors sind praktisch gleich
und werden vom Windows nicht wirklich unterschieden).

[Duffy]

Hallo Hansa,
benutze doch das Programm Hardcopy. Mit dem kannst Du sowas wie im Anhang machen.

bye
Claus

Download: Download Hardcopy (2,2 MB)