delphi - que - fieldset bootstrap

¿Establecer etiquetas múltiples para transparentar a través de 1.000 formularios?

Question

Despellejé mi software con Devexpress y descubrí que las etiquetas no eran transparentes, lo que causaba que tuvieran un fondo gris.

Simplemente hay formularios infinitos, así que me preguntaba si había una forma de hacer esta tarea (de establecer etiquetas transparentes) automáticamente.

Hice algo similar antes, los controles Devexpress en el formulario tenían LookAndFeel.NativeStyle = True, utilicé Grep Search para reemplazarlo a False en todos los formularios dfm. Sin embargo, en el caso de la etiqueta, la propiedad transparente no está presente.

Gracias.

Answer 1

En el momento del diseño, puede analizar todos los archivos .dfm y luego agregar el

  Transparent = True

línea justo después de cualquier

  object MyLabel : TLabel

línea.

En tiempo de ejecución, puede anular los métodos TCustomForm.DoCreate y TCustomFrame.Create , como tales:

type
  THookedForm = class(TCustomForm)
    procedure HookedDoCreate;
  end;

  THookedFrame = class(TCustomFrame)
    constructor Create(AOwner: TComponent); override;
  end;

var
  PatchForm, OriginalForm: TPatchEvent;
  PatchPositionForm: PPatchEvent = nil;
  PatchFrame, OriginalFrame: TPatchEvent;
  PatchPositionFrame: PPatchEvent = nil;

procedure PatchCreate;
var ov: cardinal;
begin
  // hook TForm:
  PatchPositionForm := PPatchEvent(@THookedForm.DoCreate);
  OriginalForm := PatchPositionForm^;
  PatchForm.Jump := $E9; // Jmp opcode
  PatchForm.Offset := PtrInt(@THookedForm.HookedDoCreate)-PtrInt(PatchPositionForm)-5;
  if not VirtualProtect(PatchPositionForm, 5, PAGE_EXECUTE_READWRITE, @ov) then
    RaiseLastOSError;
  PatchPositionForm^ := PatchForm; // enable Hook
  // hook TFrame:
  PatchPositionFrame := PPatchEvent(@TCustomFrame.Create);
  OriginalFrame := PatchPositionFrame^;
  PatchFrame.Jump := $E9; // Jmp opcode
  PatchFrame.Offset := PtrInt(@THookedFrame.Create)-PtrInt(PatchPositionFrame)-5;
  if not VirtualProtect(PatchPositionFrame, 5, PAGE_EXECUTE_READWRITE, @ov) then
    RaiseLastOSError;
  PatchPositionFrame^ := PatchFrame; // enable Hook
end;

{ THookedForm }

procedure THookedForm.HookedDoCreate;
var i: integer;
begin
  // enumerate all labels, then set Transparent := true
  for i := 0 to Components.Count-1 do
    if Components[i] is TLabel then
      TLabel(Components[i]).Transparent := true;
  DoCreate; // call initial code
end;

{ THookedFrame }

constructor THookedFrame.Create(AOwner: TComponent);
var i: integer;
begin
  // enumerate all labels, then set Transparent := true
  for i := 0 to Components.Count-1 do
    if Components[i] is TLabel then
      TLabel(Components[i]).Transparent := true;
  inherited Create(AOwner); // call normal constructor
end;

....

initialization
  PatchCreate;

Answer 2

Lo siguiente debería funcionar: la propiedad transparent está presente en el archivo DFM solo si el valor no es el predeterminado. Entonces puede usar una búsqueda Grep para insertar "transparente = VERDADERO" justo en la siguiente línea después de "= TLabel". No lo he intentado yo mismo, pero es fácil de probar ...

Answer 3

Para este tipo de tarea, GExperts contiene la herramienta Establecer propiedades de componentes :

Esta herramienta espera en segundo plano hasta que compile un proyecto. Luego escanea los formularios del proyecto actual para verificar los componentes con ciertas propiedades y cambia esas propiedades a un valor definido. Esta herramienta es útil para desactivar conjuntos de datos o conexiones de bases de datos antes de compilar sus aplicaciones, pero también se puede usar para situaciones similares. Para activar el escaneo, habilite la casilla de verificación junto a este experto en la pantalla Configuración de GExperts.

Se puede usar para establecer una propiedad que aún no está en el DFM, y solo requiere una entrada adicional en la configuración de GExpert y una recompilación.

Acabo de probarlo y funciona como se esperaba.

Answer 4

Puede establecer la propiedad BackColor en Color.Transparent .

Answer 5

Un consejo relacionado (siempre me olvido de usar esta práctica función):

1. Configure la etiqueta de la manera que desee tenerla;
2. Seleccionarlo en el formulario;
3. Vaya a Component/Create component template ;
4. Puede entonces un nombre para la plantilla:

A partir de ese momento, la plantilla aparece como un nuevo tipo de componente en la paleta de herramientas, con la configuración que prefiera.

_{(Sí, sé que esto no cambia las etiquetas actuales)}

Answer 6

La variable de Screen global realiza un seguimiento de todas las formas:

procedure MakeLabelsTransparent(AParent: TWinControl);
var
  I: Integer;
begin
  with AParent do
    for I := 0 to ControlCount - 1 do
      if Controls[I] is TLabel then
        TLabel(Controls[I]).Transparent := True
      else if Controls[I] is TWinControl then
        MakeLabelsTransparent(TWinControl(Controls[I]));
end;

procedure TMainForm.ActiveFormChange(Sender: TObject);
begin
  with Screen do
    if (ActiveCustomForm <> nil) and (ActiveCustomForm.Tag = 0) then
    begin
      MakeLabelsTransparent(ActiveCustomForm);
      ActiveCustomForm.Tag := 1;
    end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Screen.OnActiveFormChange := ActiveFormChange;
end;

Y si tiene que usar la propiedad Tag para un formulario en particular, entonces omita este control: realmente no sería mucho más lento.