3 replies to this topic

[escafandra]

Me surgió la necesidad de tener que obligar a un proceso a repintarse conociendo sólo su PID, para ello escribí este código:
 

delphi

procedure ReDrawWindows(PID: DWORD);
  function EnumWindowsProc(Wnd: HWND; PID: PDWORD): BOOL; stdcall;
  var
    _PID: DWORD;
    cr: TRect;
  begin
    GetWindowThreadProcessId(Wnd, _PID);
    if PID^ = _PID then
    begin
      Windows.GetClientRect(Wnd, cr);
      InvalidateRect(Wnd, @cr, true);
      RedrawWindow(Wnd, @cr, 0, RDW_FRAME + RDW_ERASE + RDW_INVALIDATE + RDW_UPDATENOW + RDW_ALLCHILDREN);
    end;
    Result:= true;
  end;
begin
  EnumWindows(@EnumWindowsProc, LPARAM(@PID));
end;

Saludos.

[escafandra]

El mismo truco en C/C++

cpp

void ReDrawWindows(DWORD PID)
{
  struct TWinParam{
    static BOOL CALLBACK EnumWindowsProc(HWND hWnd, DWORD* Pid){
      DWORD PId = 0;
      GetWindowThreadProcessId(hWnd, &PId);
      if(*Pid == PId){
        TRect cr;
        ::GetClientRect(hWnd, &cr);
        InvalidateRect(hWnd, &cr, true);
        RedrawWindow(hWnd, &cr, 0, RDW_FRAME|RDW_ERASE|RDW_INVALIDATE|RDW_UPDATENOW|RDW_ALLCHILDREN);
      }
      return true;
    }
  } WinParam;
  EnumWindows((PROC)TWinParam::EnumWindowsProc, LPARAM(&PID));
}

Saludos.

[cram]

Muy bueno Escafandra. Lo bueno es que se llama a petición y no mediante evento.

No recuerdo bien, pero creo que si pasás nil en el parámetro TRect, se repinta todo el ClientRect y no habría necesidad de obtener sus propiedades.

Gracias.

 

Saludos.

[escafandra]

...creo que si pasás nil en el parámetro TRect, se repinta todo el ClientRect y no habría necesidad de obtener sus propiedades....

Cierto, así es, peor al querer obligar a repintarse el FRAME y todas las ventanas hijas, ya si se precisa conocer el valor para poder usar RedrawWindow

 

 

Saludos.