Guardar y recuperar color pixel originales de una zona pantalla

[NEG1414]

Muchas gracias por tu tiempo ecfisa voy a probar y te cuento....

[ecfisa]

Hola NEG1414.

Quien dice 30 dice 31... , yo me refería a implementar algo parecido a esto:

...
class PACKAGE MiControl : public TCustomControl
{
private:
  Graphics::TBitmap *FArea;
  TControlCanvas *FCtrlCanvas;
  //...
public:
   __fastcall MiControl(TComponent *Owner) : TCustomControl(Owner)
   {
      FArea = new Graphics::TBitmap;
      FCtrlCanvas = new TControlCanvas;
      FCtrlCanvas->Control = this;
   };
   __fastcall ~MiControl()
   {
      delete FArea;
      delete FCtrlCanvas;
   }
   void __fastcall LoadArea(void)
   {
      FArea->Width  = Left + Width;
      FArea->Height = Top + Height;
      TRect R = Rect(0, 0, FArea->Width, FArea->Height);
      FArea->Canvas->CopyRect(R, Canvas, R);
    };
   __property TControlCanvas *Canvas = { read = FCtrlCanvas, write = FCtrlCanvas};
   __property Graphics::TBitmap *Area = { read = FArea, write = FArea };
};

MiControl *mc;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  mc = new MiControl(this);
}

// Crear y mostrar
void __fastcall TForm1::btnCreateClick(TObject *Sender)
{
  mc->Left   = 0;
  mc->Top    = 0;
  mc->Width  = 250;
  mc->Height = 300;
  mc->Parent = this;
  // Dibujar algo
  mc->Canvas->Ellipse(0,0,mc->Width-10,mc->Height-40);
  // Guardar área
  mc->LoadArea();
}
// borrar área
void __fastcall TForm1::btnClearClick(TObject *Sender)
{
  mc->Canvas->Brush->Color = Color;
  mc->Canvas->FillRect(Rect(0,0,mc->Width,mc->Height));
}

// Restaurar área
void __fastcall TForm1::btnRestoreClick(TObject *Sender)
{
  mc->Canvas->Draw(0,0,mc->Area);
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete mc;
}

Saludos

[NEG1414]

Buenas..

Siento ser tan pesado pero no doy hecho que se reponga la imagen del trozo de componente que deseo... la verdad es que dibuja el area totalmente blanca...

Dado que la todas las operaciones las hago desde el propio componente (por si sirve de algo lo que se va ha visiualizar en el componente lo dibujo mediante el metodo paint() usandola la propiedad canvas) lo he dadptado asi:

 
 
class PACKAGE TGrafica : public TCustomControl
{
  __published: // IDE-managed Components  
 
   TPanel *PanelInf;
   Graphics::TBitmap *AreaPanelInf;
   TControlCanvas    *FCtrlCanvas; 
 
   int PPx; //Posicion X esquina superior Derecha Panel Informacion
   int PPy; //Posicion Y esquina superior Derecha Panel Informacion
 
    .................
 
 
void TGrafica::MostrarPanelDatos()
{
 
   AreaPanelInf->Width   = 16;
   AreaPanelInf->Height  = 10;
 
   TRect R = Rect(PPx,PPy,AreaPanelInf->Width,AreaPanelInf->Height);
   AreaPanelInf->Canvas->CopyRect(R, Canvas, R);
 
   //Creo y visualizo Panel Informacion
   PanelInf = new TPanel (this);
   PanelInf->Parent  =    this;
   PanelInf->Height  = 10;
   PanelInf->Width   = 16;
   PanelInf->Left = PPx;
   PanelInf->Top  = PPy;
   PanelInf->Visible = true;
 
   Application->ProcessMessages();
 
}
 
 
//---------------------------------------------------------------------------
//Restaura que ocupada el Panel Informativo
 
void TGrafica::RestaurAreaPanel()
{
 
  PanelInf->Visible = false;
 
  this->Canvas->Draw(PPx,PPy,AreaPanelInf);
 
  Application->ProcessMessages();
}

Alguna idea... Gracias

[NEG1414]

Buenas..

Retomo el tema adjuntando una pequeña aplicacion que intenta explicar graficamente mi problema...


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


He llegado a la conclusion de que uasando el codigo siguiente (gracias ecfisa):

 
      FArea->Width  = Left + Width;
      FArea->Height = Top + Height;
      TRect R = Rect(0, 0, FArea->Width, FArea->Height);
      FArea->Canvas->CopyRect(R, Canvas, R);

Solo guarda el area correspondiente dibujada mediante el procedimiento paint() del componente.. ignorado el area "redibujada" a posteriori desde otro procedimiento (que es mi caso)...
Dado que solo modifica areas afectadas por el evento paint().. no gano nada guardando y recuperando una pequeña area ya que el Procedimiento paint() regenera la imagen de todo el componente si o si..

Hay alguna manera de regenerar el area dibujada desde otro procedimiento diferente al Paint()

Espero haberme explicado bien... Gracias.

[ecfisa]

Hola NEG1414.

Descargué tu adjunto para poder hacerme una mejor idea del problema pero no pude acceder. No encuentra la clase TPrueba, falta Prueba.h y me pide el package lmd70se_B6.bpi (que no poseo).

En cuanto al ejecutable me genera el error:

No se encuentra el punto de entrada del procedimiento
@@Gifviewer@finalize en la biblioteca de vinculos dinámicos
...

Saludos

[[escafandra]]

Hola NEG1414. No puedo ejecutar ni compilar tu ejemplo pues faltan los archivos correspondientes a TPrueba.

Según entiendo tu sólo quieres repintar un área determinada tras hacer desaparecer una imagen que la ocupaba. Para ello tienes la API InvalidateRect siempre que tu control sea una ventana con Handle (hWnd):

 
  TRect cr; // aqui colocas el valor del rectángulo a repintar
  InvalidateRect(hWnd, &cr, true);
  SendMessage(hWnd, WM_NCPAINT, 0, 0);

Saludos.

PD mientras escribía ecfisa encontraba el mismo error que yo en tu ejemplo...