Einzelnen Beitrag anzeigen

Teekeks

Registriert seit: 19. Okt 2008
Ort: Dresden
765 Beiträge
 
FreePascal / Lazarus
 
#1

auf dem Desktop zeichnen

  Alt 5. Apr 2009, 15:29
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
Peter
"Div by zero Error" oder auch: "Es geht auch ohne Signatur!".
  Mit Zitat antworten Zitat