Painten außerhalb des eigenen Fensters

[joe]

Hallo!

Ich möchte außerhalb meines eigenen TForm auf den Bildschirm painten.
Also z.B. auf den Desktop oder an eine Stelle, wo eigentlich ein anderes Fenster liegt.
Die Ausgabe von ein paar Rechtecken würde für den Anfang erst mal genügen.

1. Ansatz: Kleines Fenster mit BorderStyle=bsNone.
Damit könnte ich zumindest erst mal ein rechteckigen Bereich farbig darstellen.
Jedoch:
(a) Leider funktioniert TForm.FormStyle:=fsStayOnTop offenbar nicht unter Linux.
(getestet mit Lazarus 0.9.28.2-8ubuntu unter Kubuntu 10.04).
(b) Mausklicks werden dann von meinem TForm abgeschirmt, was für meinen Anwendungsfall ungünstig ist.
(c) Der Fenstermanager verändert mitunter auch die Pixel neben meinem TForm (Schatten-Effekt et cetera).

2. Ansatz: Painten via GetDC(0)

Code: Alles auswählen

procedure TForm1.Test;
  var c      : TCanvas;
      hScreen: HDC;
  begin
  c:=TCanvas.Create;
  hScreen:=GetDC(0);
  c.Handle:=hScreen;
  with c do
    begin
    Brush.Style:=bsSolid;
    Brush.Color:=clRed;
    FillRect(0,0,100,100);
    end;
  ReleaseDC(0,hScreen);
  end;

Funktioniert aber leider nicht.

Corpsman stand vor einigen Monden offenbar vor einem ähnlichen Problem (http://www.lazarusforum.de/viewtopic.php?f=25&t=3131).
@Corpsman: Hast du dafür mittlerweile eine Lösung gefunden?

Nachteil wäre wohl auch, dass meine Ausgaben beim nächsten Repaint des ggf. an dieser Stelle befindlichen Fensters verschwinden.
Damit könnte ich aber evtl. leben.


Aktuell benötige ich das für Linux. Eine portable Lösung wäre mir aber lieber.

[MAC]

uhh , frage für mich

Code: Alles auswählen

var
Canv: TCanvas;  
 
Canv := TCanvas.Create;
Canv.Handle := GetWindowDC(0);    // eigentliche Zeile
 
// paint paint paint.
 
// am ende des programms
Canv.Free;

ja, ähnelt deinem eben sehr, aber wenn du einmal drüberwischts (unter windows) ist es weg.

[carli]

ich glaub, für solche exotischen Wünsche solltest du mir der libx arbeiten

[mschnell]

Ich möchte .. painten ..

Zehn Qualen ? Du bist im falschen Formum....
-Michael

[corpsman]

sry, leider bin ich auch noch nicht weitergekommen,..

[_X_]

Dafür hab ich ein paar Code Schnippsel, aber das fertige Projekt finde Ich gerade nicht.
Die Schnippsel sind im Anhang. Ich verwende zum Erzeugen der Maske beim Zeichnen opbitmap.
Schau sie einfach mal an.

mfg _X_