Guardar y recuperar color pixel originales de una zona pantalla

[NEG1414]

Buenas..

Primero daros las gracias y pediros perdon por no haber incluido el componente Prueba..
Acabo de Actualizar el archivo con el componente.. lo podeis descargar de la misma direcion

https://app.box.com/s/6gvqol66wahyhuk1negu

Gracias o tra vez.

Escifa: puedes crear una nueva aplicacion con los mismos archivos descargados y ya no te pedira el componente creapackage lmd70se_B6.bpi ...

[[escafandra]]

Hola NEG1414. Pude compilar tu proyecto y he visto que tienes un error al capturar el AreaPanel. El erreo está al definir el TRect fuente y destino. Lo correcto sería así:

void TPrueba::MostrarPanel()
{

   AreaPanel->Width   = 20;
   AreaPanel->Height  = 20;

   TRect Rs = Rect(PPx, PPy, PPx + AreaPanel->Width, PPy + AreaPanel->Height);
   TRect Rd = Rect(0,0,AreaPanel->Width,AreaPanel->Height);
   AreaPanel->Canvas->CopyRect(Rd, Canvas, Rs);

   //Posicionar  y visualizar
   Panel->Left    = PPx;
   Panel->Top     = PPy;
   Panel->Visible = true;

   Application->ProcessMessages();
}

Si salvas en disco AreaPanel, te darás cuenta que si estaba amarillo, te guarda un cuadradito amarillo...

Pero con esto no resuelves el problema pues al poner invisible tu panel automáticamente se llama al evento paint que redibuja tu control sin saber que había una zona amarilla. Como el evento paint lo dispara WM_PAINT, va a ocurrir despues de que tu redibujes la zona en cuestión y te la machaca.

Sólo tienes una forma de evitarlo que es usar un TImage o mejor que tu control de derive de un TImage, en lugar de un TWinControl, En ese caso lo que pintes en el canvas quedará "memorizado" para el evento Paint y evitas efectos indeseables durante el pintado pues no. Tu pintado de rayas iniciales no debe ir en el evento pain sino en funcion a parte que puedes llamar pintafondo y que ejecutas solo al crear el componente.

Saludos.

[NEG1414]

Muchas gracias por contestarme scafandra... He entendido perfectamente tu explicacion y me resigno...

[NEG1414]

Soy un poco cabezon y aun me surge una duda el procedimiento paint(); creo que redibuja siempre en segundo plano( la zona rayada debajo de la zona amarilla) si esto es asi y el proceso es:

Primero zona rayada (Paint() segundo plano)
Activo Repintar : zona amarilla (Primer plano)
Guardo area Panel (¿¿¿amarilla??)
Visualizo Panel (Paint() zona Rayada segundo plano)
Oculto Panel(Paint() zona rayada segundo plano)
Repinto Arepanel

Al repintar el area del panel en teoria amarilla en primer plano por que repinta rayado (o puede se incluso transparente)

[[escafandra]]

El problema es que tú no puedes controlar cuando el sistema va a hacer efectivo el Paint puesto que funciona con un mensaje en la cola y se ejecutará cuando le toque, incluso otra APP que se te ponga encima va a provocar el repintado y tu zona amarilla desaparecerá. Esto hace que ocurran efectos aparentemente caprichosos.

Sólo puede funcionar si es la respuesta a WM_PAINT la que te repinta la zona amarilla. Cuando el evento Paint repinta un canvas que tiene guardado, entonces lo hará correctamente, eso es lo que hace un TImage (Tiene un TBitmap que repintará en el canvas). Puedes realizar esto, heredar tu componente de un TImage o que tu componente lo contenga. Las últimas opciones son más sencillas.

Saludos.

[NEG1414]

Muchas gracias escafandra ahora lo entiendo.

[NEG1414]

Buenas...

Siento ser un pesado.. pero mis limites no me permiten prescindir de vuestra ayuda...
He decidido seguir los consejos de escafandra y modificar el componente (Tprueba) para que herede de un TImage... pero me surge un problema, al inicializar el Tpanel me salta el error :

Cannot convert TPrueba* const´to TWinControl*

En la linea

 
Panel->Parent  = this;

Supongo que al "convertir" el componente (TPrueba) en un componente "TImage" no puede heredar nada de el un componente TWincontrol como TPanel....

Tiene alguna Solucion o solo me queda incluir un Timage en el componente TPrueba original que hereda de TCustomControl (me complicaria un poco mi aplicacion)...

Espero haberme explicado bien... Gracias