Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: auf dem Desktop zeichnen

   
    by Teekeks, 6. Apr 2009
  Bin ich auch gerade am ausprobieren:
  
  procedure TForm1.Button2Click(Sender: TObject);
  var
  MyBitmap: TBitmap;
  ScreenDC: HDC;
  begin
  MyBitmap := TBitmap.Create;
  ScreenDC := GetDC(0);
  MyBitmap.LoadFromDevice(ScreenDC);
• Forum: Multimedia

  Re: auf dem Desktop zeichnen

   
    by Teekeks, 6. Apr 2009
  procedure TForm1.Button1Click(Sender: TObject);
  var
  DCanvas: TCanvas;
  DHandle: HWND;
  begin
  DHandle:=GetDC(0);
  if DHandle<>0 then
  begin
  try
  DCanvas:=TCanvas.Create;
• Forum: Multimedia

  Re: auf dem Desktop zeichnen

   
    by Teekeks, 6. Apr 2009
  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 :D )
  
  gruß Teekeks
• Forum: Multimedia

  auf dem Desktop zeichnen

   
    by Teekeks, 5. Apr 2009
  Hi!
  Ich möchte auf einen Buttonklick auf den Desktop etwas malen.
  Das hier hab ich:
  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;