Detectar evento cambio de foco

[Neftali [Germán.Estévez]]

Empezado por pborges36

...espero su opinion, comentarios y sugerencias para que vayamos mejorandolo.

Código Delphi [-]
Procedure TBRGFocusAdmin.AplicarColor(Color :TColor; Componente: TWinControl);
begin
  try
    if (Componente is TCustomEdit)     then (Componente as TEdit).Color := Color;
    if (Componente is TDateTimePicker) then (Componente as TDateTimePicker).Color:= Color;
    if (Componente is TCustomMemo)     then (Componente as TMemo).Color:= Color;
    if (Componente is TCustomComboBox) then (Componente as TComboBox).Color:= Color;

    (Componente as TWinControl).Repaint;
  except
  end;
end;

Creo que esto se puede optimizar (para cualquier componente que tenga esa propiedad) utilizando RTTI. Lo bueno de esto es que generalizando un poco la siguiente función se puede hacer para cualquier propiedad.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;

  //·······················································································
  // Comprueba si existe una propiedad con ese nombre
  function ExistProp(Instance: TObject; const PropName: string):Boolean;
  var
    PropInfo: PPropInfo;
  begin
    // Busca la propiedad y deviuelve la estructura nil
    PropInfo := GetPropInfo(Instance, PropName);
    Result := not (PropInfo = nil);
  end;
  //·······················································································
  // Cambia el valor de la propiedad
  function SetPropAsString(AObj: TObject; const PropName, Value: String):Boolean;
  var
    PInfo: PPropInfo;
  Begin
    // Intentamos acceder (con un puntero) a la info. de la propiedad
    PInfo := GetPropInfo(AObj.ClassInfo, PropName);
    Result := PInfo <> nil;

    // Se ha obtenido la información...
    if (Result) then begin
      // Se ha encontrado la propiedad con éste nombre; Chequear el tipo...
      if (PInfo^.Proptype^.Kind = tkString) or
         (PInfo^.Proptype^.Kind = tkLString) then begin
        // Asignar el valor de tipo String
        SetStrProp(AObj, PInfo, Value);
      end
      else if (PInfo^.Proptype^.Kind = tkInteger) then begin
        // Asignar el valor...
        if (PInfo^.PropType^.Name = 'TColor') then begin
          SetOrdProp(AObj, PInfo, StringToColor(Value));
        end
        else begin
          SetOrdProp(AObj, PInfo, StrToInt(Value));
        end;
      end
      else begin
        Result := False;
        MessageDlg('''La propiedad '' + PropName + '' no es de tipo String (o un tipo implementado)', mtWarning, [mbOK], 0);
      end;
    end
    else begin
      // No se ha encontrado la propiedad con ese nombre
      Result := False;
    end;
  end;
  //·······················································································


begin
  // recorrer los componentes
  for i := 0 to (Self.ComponentCount - 1) do begin
    // existe esa propiedad
    if ExistProp(Self.Components[i], 'Color') then begin
      // Asignar valor
      SetPropAsString(Self.Components[i], 'Color', 'clInfoBk');
    end;
  end;
end;

[[Crandel]]

Empezado por Neftali

Creo que esto se puede optimizar (para cualquier componente que tenga esa propiedad) utilizando RTTI. Lo bueno de esto es que generalizando un poco la siguiente función se puede hacer para cualquier propiedad.

Ya lo habia probado, el tema que no todos los componentes quedan lindos cuando se les cambia la propiedad color (como el TListBox).

Este es el codigo que use:

Código Delphi [-]
  if not (csDesigning in Self.ComponentState) then
    if Sender <> nil then
       if IsPublishedProp(Sender,'Color') then
         SetOrdProp(Sender,'Color', Color) ;

[Neftali [Germán.Estévez]]

Empezado por Crandel

...no todos los componentes quedan lindos cuando se les cambia la propiedad color (como el TListBox).

¿Y que le pasa al TListBox cuando le cambias el color? ¿Queda como debe quedar no?

De todas formas creo que sería mejor programarlo así y en todos caso aplicar código espacial para las exceciones y no al revés.

[[Crandel]]

Empezado por Neftali

¿Y que le pasa al TListBox cuando le cambias el color? ¿Queda como debe quedar no?

no me gusta como queda. Para ver como queda, es suficiente con poner un ListBox en un formulario y cambiar la propiedad color.

Empezado por Neftali

De todas formas creo que sería mejor programarlo así y en todos caso aplicar código espacial para las exceciones y no al revés.

Si es cierto.
El problema del TListBox es que no se redibuja correctamente completo, solo la parte de los items.

Estuve probando recien para que se redibuje correctamente pero no logro que se redibuje el fondo.

Para que se redibuje correctamente, tengo minimar y maximizar la aplicacion. Esto quiere decir que debe existir algun metodo que me lo repinte completo, pero no lo encuentro.

[roman]

¿No se están complicando mucho?

A quien se quiere cambiar de color es a un TWinControl y la propiedad Color aparece desde TControl. Sólo hay que desprotegerla:

Código Delphi [-]
type THackControl = class(TWinControl);

...

procedure TBRGFocusAdmin.AplicarColor(Color :TColor; Componente: TWinControl);
begin
  THackControl(Componente).Color := Color;
  Componente.Repaint;
end;

// Saludos

[[Crandel]]

Empezado por roman

¿No se están complicando mucho?

A quien se quiere cambiar de color es a un TWinControl y la propiedad Color aparece desde TControl. Sólo hay que desprotegerla:

Código Delphi [-]
type THackControl = class(TWinControl);

Se puede, pero no me parece buena practica hacer publica toda la clase por solo necesitar la propiedad Color. Ahora que conoci los métodos RTTI, prefiero hacerlo asi.

Igualmente sigue el problema del TListBox, que el tonto no se sabe repintar

[roman]

¿Y quién dice que estás haciendo pública toda la clase?

Fuera del código de AplicarColor, nadie podrá acceder a esas propiedades.

// Saludos