Asignar Dinamicamente Propiedad DisplayFormat antes de ejecutar X formulario o Report

rmendoza83 · #1 03-11-2016

Cita:

Empezado por movorack

Código Delphi [-]implementation
uses TypInfo;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsPublishedProp (Button1, 'Visible') then
    begin
      SetPropValue (Button1, 'Visible',false);
    end;

end;

creo que basicamente era lo que estaba buscando! sera implementable estos métodos en delphi 2006? BDS 2006, el otro detalle es con los reportes de rave reports! hay muy poca documentación de ellas en la red!

[movorack] · #2 03-11-2016

Tengo D5 y XE3 en mi pc y ahí funciona. Creo que deberá funcionar en 2006.

Con respecto a Rave Reports, La verdad, no lo manejo.

[Al González] · #3 03-11-2016

Creo que este hilo, y en especial la respuesta de cadetill (a quien envío un cordial saludo), te servirá:
http://www.clubdelphi.com/foros/showthread.php?t=8730

Por cierto, lo que comenté ahí en 2004 ha perdido un poco de vigencia. Ya que desde la versión 2010 existe una RTTI extendida con mayores capacidades.

Saludos.

rmendoza83 · #4 04-11-2016

Cita:

Empezado por Al González

Creo que este hilo, y en especial la respuesta de cadetill (a quien envío un cordial saludo), te servirá:
http://www.clubdelphi.com/foros/showthread.php?t=8730

Por cierto, lo que comenté ahí en 2004 ha perdido un poco de vigencia. Ya que desde la versión 2010 existe una RTTI extendida con mayores capacidades.

Saludos.

Considerado amigo! muchas gracias por la ayuda

rmendoza83 · #5 04-11-2016

Bueno mi gente, muchas gracias por el aporte de ideas, logre resolver por el lado de delphi, me queda ahora ver como lo hago con Rave Reports, en un principio pensaba que la clase Component manejaba una propiedad de los componentes contenidos en el y ya me habia hecho una funcion recursiva y todo jejejeje, pero al depurar note que el arreglo Components y el ComponentCount devuelven los datos de todos los componentes indiferentemente de si estan contenidos o no, creo que debio haber sido una duda que tuve desde hace muchos años ya que programo en otros lenguajes, creo que java es asi y pense que delphi tambien, pero bueh funciona muy bien, les adjunto el codigo para quien le pueda ser util.

Código Delphi [-]//Procedimientos y Funciones especiales para el cambio automatico del DisplayFormat
procedure AsignarDisplayFormat(Component: TComponent; NumeroDecimales: Integer);
var
  Formato: string;
begin
  Formato := '#,##0.' + StringOfChar('0',NumeroDecimales);
  if (Component.ClassName = 'TCurrencyEdit') then
  begin
    (Component as TCurrencyEdit).DisplayFormat := Formato;
    (Component as TCurrencyEdit).DecimalPlaces := NumeroDecimales;
  end;
  if (Component.ClassName = 'TFloatField') then
  begin
    (Component as TFloatField).DisplayFormat := Formato;
  end;
end;

procedure BuscarDisplayFormat(Form: TForm; NumeroDecimales: Integer);
var
  i: Integer;
begin
  for i := 0 to Form.ComponentCount - 1 do
  begin
    if (IsPublishedProp(Form.Components[i],'DisplayFormat')) then
    begin
      AsignarDisplayFormat(Form.Components[i],NumeroDecimales);
    end;
  end;
end;

Hice el procedimiento AsignarDisplayFormat de esa manera ya que no se si haya otra manera mas agradable de escribir jejejeje, se aceptan sugerencias en el codigo tambien.

Me pondre ahora con rave! ahi creo que si sera una total aventura!!! jejeje

ecfisa · #6 04-11-2016

Hola.

No uso los componentes que mencionas pero tal vez esta opción, que almacena y por tanto "recuerda" el último formato elegido, te podría ser útil:

Código Delphi [-]unit uCurrFormat;

interface

uses Classes;

type
  TCurrFormat  = class
  private
    FIniFileName  : string;
    FDefaultFormat: string;
    FGlobalFormat : string;
    function  GetGlobalFormat: string;
    procedure SetGlobalFormat( const StrFormat: string );
  public
    constructor Create;
    procedure SetDisplayFormat( TC: TComponent );
    property Format: string read FGlobalFormat write SetGlobalFormat;
  end;

var
  CurrFormat: TCurrFormat;

implementation

uses SysUtils, Forms, TypInfo, IniFiles, DB;

constructor TCurrFormat.Create;
begin
  FIniFileName   := ExtractFilePath(Application.ExeName) + 'IniFile.ini';
  FDefaultFormat := '#,##0.0000';
  FGlobalFormat  := GetGlobalFormat;
end;

function TCurrFormat.GetGlobalFormat: string;
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    if not FileExists( FIniFileName ) then
    begin
      Result := FDefaultFormat;
      ini.WriteString( 'DisplayFormat', 'Format', Result );
    end
    else
      Result := ini.ReadString( 'DisplayFormat', 'Format', '' );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetGlobalFormat( const StrFormat: string );
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    FGlobalFormat := StrFormat;
    if not FileExists( FIniFileName ) then
      ini.WriteString( 'DisplayFormat', 'Format', FDefaultFormat )
    else
      ini.WriteString( 'DisplayFormat', 'Format', FGlobalFormat );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetDisplayFormat( TC: TComponent );
var
  i, j: Integer;
  fld : TField;
  pNfo: PPropInfo;
begin
  for i := 0 to TC.ComponentCount-1 do
  begin
    if TC.Components[i] is TDataSet then
    begin
      for j := 0 to TDataSet( TC.Components[i] ).FieldCount-1 do
      begin
        fld := TDataSet( TC.Components[i] ).Fields[j];
        if fld is TCurrencyField then
          TCurrencyField(fld).DisplayFormat := FGlobalFormat;
      end;
    end
    else
    begin
      pNfo := GetPropInfo( TC.Components[i], 'DisplayFormat' );
      if Assigned( pNfo ) then
        SetStrProp( TC.Components[i], pNfo, FGlobalFormat );
    end;
  end;
end;

initialization
  if not Assigned ( CurrFormat ) then
    CurrFormat := TCurrFormat.Create;

finalization
  CurrFormat := nil;
end.

Ejemplo del uso:

DataModule,

Código Delphi [-]unit Unit2;
...
implementation

uses uCurrFormat;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  DataSet.Open;
  CurrFormat.SetDisplayFormat(DataModule1); // (*)
end;

Form,

Código Delphi [-]...
var
  MainForm: TMainForm;

implementation

uses Unit2{ DataModule }, uCurrFormat;

procedure TMainForm.Button1Click(Sender: TObject);
var
  peso: string;
begin
  if CheckBox1.Checked then
    peso := '$ '
  else
    peso := '';
  CurrFormat.Format := peso +'#,##0.' + StringOfChar('0', SpinEdit1.Value);
  CurrFormat.SetDisplayFormat(DataModule1);
end;
...

Vista del ejemplo:

(*) En esta línea se aplica el formato almacenado a los componentes del contenedor (form, datamodule, ) , por lo que tendrías que usarla en todas aquellas unidades en que desees visualizar el formato.

Saludos

Pd: (Si tenes alguna dificultad para implementarlo, avisame y te adjunto el código fuente del ejemplo)

rmendoza83 · #7 04-11-2016

Cita:

Empezado por ecfisa

Hola.

No uso los componentes que mencionas pero tal vez esta opción, que almacena y por tanto "recuerda" el último formato elegido, te podría ser útil:

Código Delphi [-]unit uCurrFormat;

interface

uses Classes;

type
  TCurrFormat  = class
  private
    FIniFileName  : string;
    FDefaultFormat: string;
    FGlobalFormat : string;
    function  GetGlobalFormat: string;
    procedure SetGlobalFormat( const StrFormat: string );
  public
    constructor Create;
    procedure SetDisplayFormat( TC: TComponent );
    property Format: string read FGlobalFormat write SetGlobalFormat;
  end;

var
  CurrFormat: TCurrFormat;

implementation

uses SysUtils, Forms, TypInfo, IniFiles, DB;

constructor TCurrFormat.Create;
begin
  FIniFileName   := ExtractFilePath(Application.ExeName) + 'IniFile.ini';
  FDefaultFormat := '#,##0.0000';
  FGlobalFormat  := GetGlobalFormat;
end;

function TCurrFormat.GetGlobalFormat: string;
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    if not FileExists( FIniFileName ) then
    begin
      Result := FDefaultFormat;
      ini.WriteString( 'DisplayFormat', 'Format', Result );
    end
    else
      Result := ini.ReadString( 'DisplayFormat', 'Format', '' );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetGlobalFormat( const StrFormat: string );
var
  ini : TIniFile;
begin
  ini := TIniFile.Create( FIniFileName );
  try
    FGlobalFormat := StrFormat;
    if not FileExists( FIniFileName ) then
      ini.WriteString( 'DisplayFormat', 'Format', FDefaultFormat )
    else
      ini.WriteString( 'DisplayFormat', 'Format', FGlobalFormat );
  finally
    ini.Free;
  end;
end;

procedure TCurrFormat.SetDisplayFormat( TC: TComponent );
var
  i, j: Integer;
  fld : TField;
  pNfo: PPropInfo;
begin
  for i := 0 to TC.ComponentCount-1 do
  begin
    if TC.Components[i] is TDataSet then
    begin
      for j := 0 to TDataSet( TC.Components[i] ).FieldCount-1 do
      begin
        fld := TDataSet( TC.Components[i] ).Fields[j];
        if fld is TCurrencyField then
          TCurrencyField(fld).DisplayFormat := FGlobalFormat;
      end;
    end
    else
    begin
      pNfo := GetPropInfo( TC.Components[i], 'DisplayFormat' );
      if Assigned( pNfo ) then
        SetStrProp( TC.Components[i], pNfo, FGlobalFormat );
    end;
  end;
end;

initialization
  if not Assigned ( CurrFormat ) then
    CurrFormat := TCurrFormat.Create;

finalization
  CurrFormat := nil;
end.

Ejemplo del uso:

DataModule,

Código Delphi [-]unit Unit2;
...
implementation

uses uCurrFormat;

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  DataSet.Open;
  CurrFormat.SetDisplayFormat(DataModule1); // (*)
end;

Form,

Código Delphi [-]...
var
  MainForm: TMainForm;

implementation

uses Unit2{ DataModule }, uCurrFormat;

procedure TMainForm.Button1Click(Sender: TObject);
var
  peso: string;
begin
  if CheckBox1.Checked then
    peso := '$ '
  else
    peso := '';
  CurrFormat.Format := peso +'#,##0.' + StringOfChar('0', SpinEdit1.Value);
  CurrFormat.SetDisplayFormat(DataModule1);
end;
...

Vista del ejemplo:

(*) En esta línea se aplica el formato almacenado a los componentes del contenedor (form, datamodule, ) , por lo que tendrías que usarla en todas aquellas unidades en que desees visualizar el formato.

Saludos

Pd: (Si tenes alguna dificultad para implementarlo, avisame y te adjunto el código fuente del ejemplo)

Interesante lo que propones, de verdad, aunque con lo que hice logre implementarlo sin ningun problema! como bien dije anteriormente solo me queda solucionar lo de rave reports!

rmendoza83 · #8 04-11-2016

Cita:

Empezado por movorack

Tengo D5 y XE3 en mi pc y ahí funciona. Creo que deberá funcionar en 2006.

Con respecto a Rave Reports, La verdad, no lo manejo.

Listo! Me pondre en estos momentos a hacer la rutina! la compartire al tenerla lista, estoy seguro que a muchos les sera de utilidad!

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Asignar dinámicamente valores a propiedades sin conocer previamente cuáles	Leviatan	OOP	4	31-01-2012 00:34:59
La propiedad DisplayFormat	gcaffe	Varios	1	25-12-2009 15:18:01
Cambiar propiedad de componente del formulario padre al cerrar el formulario hijo	jzginez	OOP	5	22-06-2007 21:40:51
Asignar evento on exit y otros a varios labeledit creados dinamicamente	cotoprix	OOP	2	08-01-2004 23:05:53
asignar evento a control creado dinamicamente	jorgeganc	Varios	4	17-12-2003 02:47:51