Auf Desktop zeichnen

[Christian]

hallo,
hat das schon jemand plattformübergreifend hinbekommen ?
ich habs so probiert:
funktioniert leider schon unter gnome ned

Code: Alles auswählen

var
  ScreenDC: HDC;
  Bitmap: TBitmap;
  ACanvas: TCanvas;
begin
  Bitmap := TBitmap.Create;
  try
    ScreenDC := GetDC(0);
    ACanvas := TCanvas.Create;
    ACanvas.Handle:=ScreenDC;
    ACanvas.Font.Color := clRed;
    ACanvas.Font.Name := Text;
    ACanvas.Font.Size := 32;
    ACanvas.TextOut( Round((Screen.Width/2)-(ACanvas.TextWidth(Text)/2)), Round((Screen.Height/2)-(ACanvas.TextHeight(Text)/2)), 'lkasjdhlkfjshdlkfhKA') ;
    ReleaseDC(0, ScreenDC);
    Canvas.Draw(0, 0, Bitmap);
  finally
    Bitmap.Free;
  end;
end;
 

[corpsman]

So viel ich weis ist das was du da hast die Windoof lösung, eine KDE variante würde mich auch interessieren, scheint aber auch nicht ohne zu sein ...

[Soner]

Ich würde in die Quelltexte von hsetroot oder fsetroot schauen. Die Programme zeichnen ja auch Bilder auf den Desktop.
Ich würde aber vorher probieren ob man bei Gnome-desktop mit diesen Programmen auf den Desktop zeichnen kann. Also Desktophandler von Gnome (Nautilus?) killen und dann versuchen. Bei Xfce(Xubuntu 12.10) ging das nicht obwohl ich xfdesktop beendet hatte. Erst beim Abmelden (XFCE beendet) sah man das Bild. Xfce erzeugt wahrscheinlich ein Vollbildfenster auf den Desktop.

Als zweite Lösung kannst du in das Dekstopfenster ein Panel plazieren und das Zeichnen. Das geht mit Windows. Panel ist dann auf gleiche Ebene wie hintergrundicons. Vielleicht geht das auch mit LInux. Versuchmal Panel1.Parent:=GetDesktopWindow.

[theo]

So direkt geht das afaik nicht ohne weiteres.
Allgemein immer gut, für Anfanger sowie für alte Hasen: Beschreibe das Ziel, nicht einen Schritt