Ubuntu-Magnifier für WinXP

[mike_merry]

Guden,

hab folgende Problemstellung:
Ich möchte unter Delphi 7 eine Ubuntu-ähnliche Bildschurmlupe für Windows XP programmieren, da ich eine Funktastatur & Maus besitze und gerne vom Sofa aus noch alles lesen können würde, wärs Optimal wenn ihr mir ein wenig helfen könntet.

Die Ubuntulupe besteht aus einem Quadrat, in dem die Maus permanent den Mittelpunkt darstellt. Die Maus ist also praktisch mit dem Quadrat verschmolzen.


Hier der Code

Delphi-Quellcode:

unit Unit1;

interface

type
  TForm1 = class(TForm)
    procedure Mouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  top,left: integer;

implementation

{$R *.dfm}

procedure TForm1.Mouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin

Form1.Left:= TMouse.create.cursorpos.X - (TMouse.Create.CursorPos.X div 2) ;
Form1.Top:= TMouse.Create.CursorPos.Y - (TMouse.Create.CursorPos.Y div 2) ;

end;

end.

Meine Fragen:

1. Mein Quadrat bewegt sich zwar schon mit der Maus mit, aber nicht als Einheit. Kennt Ihr vielleicht eine bessere Lösung?

2. Wie bringe ich es dar, dass TForm überhalb der Maus ist und wie vergrößere ich alles worüber sich TForm befindet (Cascade?!).

[ernschd]

Gegenfrage: wieso verwendest Du nicht einfach die in XP integrierte Bildschirmlupe?
Start -> Programme -> Zubehör -> Eingabehilfen -> Bildschirmlupe

[mike_merry]

Weil die einfach nur unhandlich und schelcht ist...die nervt nur wenn man sie benutzt.

[DeddyH]

Schau doch mal unter Freeware nach rzMagnifier (ich glaub, so hieß das).

[mike_merry]

Zitat von DeddyH:

Schau doch mal unter Freeware nach rzMagnifier (ich glaub, so hieß das).

Danke für die Hilfe
Hab den rzMagnifier gefunden -> http://www.delphipraxis.net/internal...ht=rzmagnifier

leider find ich nirgends einen Downloadlink. Bin neu hier. Wo kann ich also Progranne von dieser Page runterladen?

[DeddyH]

http://www.delphipraxis.net/internal...t.php?t=137306 im Eingangspost ganz unten.