Asignar Dinamicamente Propiedad DisplayFormat antes de ejecutar X formulario o Report

[rmendoza83]

Buenas Tardes amigos, un saludo cordial a todos, vuelvo al foro con una duda para ver si me pueden orientar de una forma poca engorrosa de como hacer esta rutina, muchos clientes me han pedido en mis sistemas que la cantidad de decimales se pueda editar, que sean menos o que no tenga, mayor fastidio ya que se imaginan cambiar en diseño de unos 200 formularios esa propiedad en todos los componentes que lo pidan, adicionalmente de unos 120 reportes que muestran montos y cantidades?

Entonces se me ocurrió hacer una rutina que verifique todos los componentes si posee dicha propiedad, lo que quería saber si delphi tiene métodos para "preguntar si dicha clase posee el displayformat" ya que en un principio pensé en hacer un arreglo de strings y colocar el nombre de cada posible componente que puede tener esa propiedad! lo bueno es que tengo como 4 plantillas de formularios y que la mayoría de los forms heredan estas plantillas y pues sera cómodo implementarlo, en el proyecto hago uso de componentes zeos y las rusas (rxlib), también los reportes están hechos en nevrona rave reports 7.0, y estamos usando BDS 2006, imagino que estos datos son importantes para el aporte de ideas.

De antemano les doy las gracias por cualquier ayuda que me presten!

[Al González]

¿Cuántos diferentes formatos podría indicar el usuario en una misma aplicación?

¿Desean aplicar el cambio de manera global o selectivamente por formulario/componente?

¿Cuántas clases de componentes se involucran en ello y cuáles son sus nombres y de qué biblioteca provienen?

¿Cómo se llama(n) la(s) propiedad(es) de formato?

¿El formato de máscara es el mismo para todas esas clases o la interpretación varía dependiendo de la implementación de los componentes? ¿Todos ellos se adhieren al estándar de la clásica propiedad DisplayFormat (http://docwiki.embarcadero.com/Libraries/Seattle/en/Data.DB.TNumericField.DisplayFormat)?

[movorack]

implementation
uses TypInfo;
{$R *.dfm}

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

end;

[rmendoza83]

¿Cuántos diferentes formatos podría indicar el usuario en una misma aplicación?

¿Desean aplicar el cambio de manera global o selectivamente por formulario/componente?

¿Cuántas clases de componentes se involucran en ello y cuáles son sus nombres y de qué biblioteca provienen?

¿Cómo se llama(n) la(s) propiedad(es) de formato?

¿El formato de máscara es el mismo para todas esas clases o la interpretación varía dependiendo de la implementación de los componentes? ¿Todos ellos se adhieren al estándar de la clásica propiedad DisplayFormat (http://docwiki.embarcadero.com/Libraries/Seattle/en/Data.DB.TNumericField.DisplayFormat)?

Al Gonzalez, gracias por la respuesta, basicamente el formato el formato sera uno solo siempre! "#,##0.0000", por defecto seran siempre 4 decimales, lo que me interesa hacer dinamico, es la cantidad de decimales, basicamente hare una funcion que devuelva el formato según una cantidad de decimales. El cambio sera siempre global! osea mucho hago con consentir al cliente con los decimales y pues mas adelante hare configurable ese cambio por formulario (realmente no sera dificil al tener el procedimiento basico que funcione para cualquier formulario), clases de componentes muchisimas, mas que todo las estandar de delphi y componentes de terceros solo uso las rusas (rxlib) , y la propiedad a cambiar (basicamente ya la dije en el titulo) es displayformat, en formularios y reportes, ojo, en el caso de componentes como el rx numeric field, debe asignar tambien el numero de decimales, que no seria gran problema ya que es simplemente preg por ese tipo de componente.

[rmendoza83]

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]

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]

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]

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!

[rmendoza83]

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]

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.


//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]

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:

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,

unit Unit2;
...
implementation

uses uCurrFormat;

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


Form,

...
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:
https://s14.postimg.org/52767287l/Display_Format.gif

(*) 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]

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:

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,

unit Unit2;
...
implementation

uses uCurrFormat;

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


Form,

...
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:
https://s14.postimg.org/52767287l/Display_Format.gif

(*) 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!