Auf dem Desktop ''malen''

[Sharky]

Zitat von Stanlay Hanks:

Noch was, was gegen ein Transparentes fenster spricht. Wenn die Zeichnung immer zu sehen sein soll, dann muss das Programm ja immer im Vordergrund sein...was wiederum heißt, dass man keine anderen Programme mehr bedienen kann. Also nich so doll...

Mir geht es um ein kleines Programm das in der Systray liegt und über ein Hotkey ein Transparentes Fenster über den Desktop legt um auf diesem malen zu können.

Hintergrund:

Bei ein einem Vortrag oder einer Schulung kann dann der Vortragende schnell mal einen bestimten Bereich (z.B. einen Menüpunkt oder einen Eintrag in einer Excel-Tabelle) dadurch hervorheben das er einen roten Kreis darum malt. Es ist also nur für eine temporäre Zeichnung notwendig.

Zu diesem Zeitpunkt muss ja kein anderes Programm bedient werden. Mit der ESC-Taste soll das Fenster dann wieder verschwinden und es kann normal weiter gemacht werden.

[Stanlay Hanks]

Achso..ich dachte, du wolltest ein dauerhaftes Bild über den Desktop malen.

[GuenterM]

hab noch ne frage: hat jemand ne ahnung, wie ich das machen muss, wenn ich mit der maus zeichnen will. irgendwie klappt das bei mir nicht. der fängt an einer ganz anderen stelle zu malen an, als an der ich geklickt habe

[alcaeus]

Überprüfst du auch die richtigen Mauskoordinaten? Du darfst nicht die absoluten Koordinaten abfragen, sondern musst die Mauskoordinaten relativ zur linken oberen Ecke des Forms finden. Evtl. kannst du ja mal Form1.Left bzw. Form1.Top von Mouse.CursorPos.x bzw. Mouse.CursorPos.y abziehen

Greetz
alcaeus

[SirThornberry]

Wenn du den desktop zu dem Zeitpunkt nicht klickbar machen willst kannst du auch einfach einen Screenshot machen bei dem Hotkey und den dann als zeichenfläche anbieten

[vlees91]

whiteboard/smartboard software hat das auch
einfach mal bei google nach webster oder smartboard (beides firmen) suchen

ps:die webster software ist schlechter als die von smartboard. ich weiß das, weil wir bei uns in jeder klasse von den neuen räumen ein smartboard/whiteboard haben. zuerst muit websterboards und jetzt mit smartboardboards, weil die auflösung dabei viel besser war

[GuenterM]

ich steig immer noch nicht so ganz durch
wo muss ich den programmcode fürs Zeichnen einfügen, damit ich auch auf dem desktop zum malen anfangen kann? bis jetzt hab ich nur auf der form klicken und dann erst hinausmalen können.

[SirThornberry]

Hier mal nen Sourceschnippsel, sollte alles selbsterklärend sein

Delphi-Quellcode:

[...]
type
  TForm1 = class(TForm)
  [...]
    FMDown: Boolean;
    { Private declarations }
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Brush.Style := bsClear;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FMDown then Canvas.LineTo(x, y);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  fMDown := True;
  Canvas.MoveTo(x, y);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  fMDown := False;
end;

[GuenterM]

das mit dem zeichnen mit der klappt, aber ich glaube wir haben aneinander vorbeigeredet.
wenn ich zum zeichnen anfangen will muss ich auf der Form klicken, damit ich malen kann.
Ich kann nicht einfach irgendwo am Desktop ansetzen und dann ne Linie ziehen.
Gibts da ne Möglichkeit, das so einzustellen?

[Fib]

Zitat von vlees91:

whiteboard/smartboard software hat das auch
einfach mal bei google nach webster oder smartboard (beides firmen) suchen

ps:die webster software ist schlechter als die von smartboard. ich weiß das, weil wir bei uns in jeder klasse von den neuen räumen ein smartboard/whiteboard haben. zuerst muit websterboards und jetzt mit smartboardboards, weil die auflösung dabei viel besser war

Aehm, welche Stadt oder Gemeinde hat Geld um ne Schule mit sowas auszustatten?