Dibujar sobre el escritorio de Windows

[dec]

Hola,

Tal vez pueda servirte el componente TDesktopCanvas de Zarko Gajic.

[alquimista]

gracias..

probare a ver si me sirve.

[fdanielc]

A mi tambien me sirve, pero lo que no vi ningun ejemplo, si tenes elguno te lo encargo, desde ya muchisimas gracias.

[roman]

Un ejemplito, aunque no con lo de Zarco,

Código Delphi [-]
var
  Desktop: TControlCanvas;

begin
  Desktop := TControlCanvas.Create;

  try
    Desktop.Handle := GetDC(0);

    Desktop.Pen.Width := 2;
    Desktop.Pen.Color := clRed;

    Desktop.MoveTo(0, 0);
    Desktop.LineTo(Screen.Width, Screen.Height);

    Desktop.MoveTo(0, Screen.Height);
    Desktop.LineTo(Screen.Width, 0);
  finally
    Desktop.Free
  end;
end;

// Saludos

[[seoane]]

Otra sugerencia:

[roman]

Está muy bien ese ejemplo Domingo. Una pregunta, ¿esta técnica es la que usarías para poder dibujar y borrar?

Ya sé que es una pregunta tonta porque es justamente lo que hace tu ejemplo, pero estoy pensando en programas como el wink que permiten trazar un recuadro sobre el escritorio y cambiarle de posición y tamaño. ¿Usan algo así como tu ejemplo o hay otras técnicas?

// Saludos

[[seoane]]

Lo mas difícil de dibujar directamente sobre la pantalla es interceptar los eventos del ratón, pero creo que eso lo podemos solucionar con un hook. Por ejemplo, nuestra aplicación podría utilizar un hook de ratón y cuando estemos dibujando procesar ella misma los eventos de ratón, y no dejar que lleguen a otras aplicaciones.

Por lo demás seria igual que cualquier otra aplicación de dibujo, pero teniendo en cuenta que uno de los colores es transparente.

Aquí por ejemplo, deje el código de una aplicación (muy sencilla) que permitía dibujar objetos (rectángulos, elipses, etc) y luego moverlo, redimensionarlos, etc.

http://www.clubdelphi.com/foros/show...88&postcount=2

Como ya dije lo mas complicado seria lo de los hooks, pero tampoco demasiado

[roman]

Ya, gracias. Pero en realidad me has confundido más

A ver, en este otro ejemplo, tú dibujas sobre un PaintBox en tu formulario, de manera que puedes borrar (o pintar) el fondo cada vez que lo requieras de manera que puedes dar el efecto de la redimensión y movimiento de los objetos.

Pero si dibujas directamente sobre el escritorio, ¿cómo lo haces? ¿Cómo borras la posición anterior? Por eso me llamó la atención tu ejemplo 45. Es decir, más que el uso del ratón, mi duda va sobre como borrar lo dibujado, en caso de dibujar directamente sobre el HDC del escritorio. ¿Hay alguna forma directa, o se debe usar una técnica como la de tu formulario transparente?

// Saludos