auf dem Desktop zeichnen

[Teekeks]

Hi!
Ich möchte auf einen Buttonklick auf den Desktop etwas malen.
Das hier hab ich:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var btm1:TImage;
    x,y:integer;
begin
  btm1:=TImage.Create(Form1);
  btm1.Picture.LoadFromFile('/home/peter/Decbild/ursprung.bmp');
  btm1.Canvas.Color:=clgreen;
  btm1.Canvas.Rectangle(200,200,300,300);  
  btm1.Picture.SaveToFile('/home/peter/Decbild/dect.bmp');
  btm1.Free;
  screen.Updatescreen;
end;

Das dect.bmp ist das Bild was der Desktop ist. Mein Problem ist das ich zwar das bild ändere aber nicht den Desktop. Wie mach ich das?

gruß Teekeks
ps: ich arbeite mit Linux

[mr_emre_d]

Gibt es die Funktionen GetDesktopWindow, GetDC / GetWindowDC und BitBlt in Lazarus ?

PS:

Zitat von Teekeks:

..LoadFromFile('/home/peter/Decbild/ursprung.bmp'); ps: ich arbeite mit Linux

Also auf das wäre ich nieee gekommen

MfG

[_frank_]

Zitat von mr_emre_d:

Gibt es die Funktionen GetWindowDesktop, GetDC / GetWindowDC und BitBlt in Lazarus ?

in Lazaru schon, aber die Frage ist, obs die Funktionen unter Linux gibt, bzw. wie deren Pendants sind.

Gruß Frank

[BullsEye]

Mit folgendem Code kannst du was auf dem Desktop schreiben. Vllt kannste den Code anpassen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 DCanvas: TCanvas;
 DHandle: HWND;
begin
 DHandle:=GetDC(0);
 if DHandle<>0 then
 begin
   try
     DCanvas:=TCanvas.Create;
     try
       DCanvas.Handle:=DHandle;
       DCanvas.Font.Color:=clRed;
       DCanvas.Font.Size:=24;
       DCanvas.Brush.Style:=bsClear;
       DCanvas.TextOut(100, 100, 'Ich will ein Spiel spielen!!!');
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
    end;
 end;
end;

[mr_emre_d]

Zitat von _frank_:

Zitat von mr_emre_d:

Gibt es die Funktionen GetDesktopWindow, GetDC / GetWindowDC und BitBlt in Lazarus ?

in Lazaru schon, aber die Frage ist, obs die Funktionen unter Linux gibt, bzw. wie deren Pendants sind.

Gruß Frank

Ja, ich hätte die Frage genauer formulieren sollen. Thx

Zitat von BullsEye:

DHandle:=GetDC(0);

DesktopDC muss nicht zwingend = 0 sein. Besser wäre es da GetDesktopWindow zu benützen.

MfG

[Luckie]

GetDesktopWindow ist eine Windows API-Funktion, ob es diese auch unter Linux gibt wage ich zu bezweifeln.

[_frank_]

eine möglichkeit wäre evtl. das bild zu ändern und "xsetroot -bitmap <bilddatei>" aufzurufen. das wäre eine möglichkeit das hintergrundbild unabhängig vom Displayanager zu setzen.

HTH Frank

[Teekeks]

Hallo alle zusammen.
Ich bedanke mich schonmal für alle Kommentare. Ich werde auch mal alles ausprobieren...
GetDesktopWindow hatte ich bereits probiert, geht aber nicht (ist ja auch WindowsAPI )

gruß Teekeks

[jaenicke]

Zitat von mr_emre_d:

Zitat von BullsEye:

DHandle:=GetDC(0);

DesktopDC muss nicht zwingend = 0 sein. Besser wäre es da GetDesktopWindow zu benützen.

Der Unterschied ist nur, dass GetDC(0) auch unter Linux funktioniert, GetDesktopWindow aber wohl nicht (ausprobiert habe ich das aber jetzt nicht).

// EDIT:
Hier ein Beispiel:
http://wiki.lazarus.freepascal.org/D..._of_the_screen

[Teekeks]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
DCanvas: TCanvas;
DHandle: HWND;
begin
DHandle:=GetDC(0);
if DHandle<>0 then
begin
   try
     DCanvas:=TCanvas.Create;
     try
       DCanvas.Handle:=DHandle;
       DCanvas.Font.Color:=clRed;
       DCanvas.Font.Size:=24;
       DCanvas.Brush.Style:=bsClear;
       DCanvas.TextOut(100, 100, 'Ich will ein Spiel spielen!!!');
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
    end;
end;
end;

So. Das geht zwar (nach ewiger unit-suche) aber es passiert nichts.
Ich kriege keine Fehlermeldung, nichts, er tut einfach nichts nachdem ich auf den Button geklickt habe