Archivo INI y propiedad FontStyle

[Jose Roman]

Hola a todos, resulta que estoy creando un reporte con QuickReport con algunas cosas en tiempo de ejecución, mi duda es la siguiente:

Creo un QRLabel y en el archivo INI deseo asignarle la propiedad fsBold pero me da error al leer la fila, esto lo deseo hacer pero sin llegar hacer un condicional IF. Este es la linea:

Código Delphi [-]
qrLabel.Font.Style    := ReadString('TITU','Style','');

Gracias de antemano por la ayuda brindada.

[[Caral]]

Hola
Abría que ver:
1- Como llamas al archivo INI desde el principio.
2- Como creas el qreport.
3- En que linea del INI esta el style del qrlabel.
Saludos

[Jose Roman]

Gracias por responder:
- El archivo INI se llama de igual manera que el ejecutable
- Ya tengo un reporte de la clase TQuickRep creado, solo que esta en blanco para que este se llene con lo necesario en el archivo INI
- La linea del archivo INI es :
[TITU]
Top=0
Left=56
Height=23
Width=311
Font=BankGothic Md BT
Style=fsBold
Size=14

Todo me lo crea y enseña el reporte con la configuración del INI solo con Style tengo el inconveniente.

[Casimiro Notevi]

¿Y fsBold es un valor correcto para Style?
¿Puede tener otros valores 'sumados'?

Se me adelantó Román, era eso a donde quería llegar.

[[Delphius]]

Muy posiblemente el error está en que la propiedad Style es de un tipo diferente a un string

Y por tanto cuando intentas leer el dato como string, y pasarlo a una propiedad de un tipo diferente, ¡pum! aparece salvaje error
Necesitas implementar de algún modo, una asociación entre el tipo que espera y lo guardado en el ini. No hay otra...

Saludos,

[roman]

La propiedad Style es un conjunto, no un valor suelto. En lugar de guardar Style como una propiedad, podrías guardar cada uno de los posibles elementos, por ejemplo:

[TITU]
Bold=true
Italic=false

Entonces, para leer los valores, harías algo así:

Código Delphi [-]
Valor := ReadBool('TITU','Bold',false);
if Valor
  then qrLabel.Font.Style := qrLabel.Font.Style + [fsBold]
  else qrLabel.Font.Style := qrLabel.Font.Style - [fsBold];

// Saludos

[[Caral]]

Hola
Cuando se meten los Maestros y con tan buenas respuestas, mejor, calladito Caral.
Saludos

[ecfisa]

Hola Jose.

Como te comentó roman, la propiedad Style es un set, otra forma que se me ocurre podés lograrlo es:

Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject);
begin
  with TIniFile.Create('C:\TEMP\ARCHIVO.INI') do
  try
    ...
    Label1.Font.Style:= TFontStyles(Byte(ReadInteger('LABEL1','STYLE',0)));
  finally
    Free;
  end;
end;
...
procedure TForm.FormDestroy(Sender: TObject);
begin
  with TIniFile.Create('C:\TEMP\ARCHIVO.INI') do
  try
    ...
    WriteInteger('LABEL1','STYLE',Byte(Label1.Font.Style));
  finally
    Free;
  end;
end;

Saludos.

[roman]

Y nótese que estamos aplicando a rajatabla la regla 3 de la otra guía de estilo.

// Saludos

[Casimiro Notevi]

Seguramente te han regalado esta navidad una nueva bola de cristal USB