Archivo INI y propiedad FontStyle

[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 Noteví]

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

[[Delphius]]

Empezado por Casimiro Notevi

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

¡La que yo tenía era a puerto serie! Espero que para mi próximo cumpleaños me regalen una que tenga conexión wifi y bluetooth. Como seguramente ya saben... todo es mejor si tiene bluetooth

Saludos,

[Casimiro Noteví]

Empezado por Delphius

¡La que yo tenía era a puerto serie! Espero que para mi próximo cumpleaños me regalen una que tenga conexión wifi y bluetooth. Como seguramente ya saben... todo es mejor si tiene bluetooth
Saludos,

A ver si para el año que viene está mejor la cosa por ahí, porque por lo que me ha contado un recién llegado argentino a España...
Aunque por aquí tampoco anda la cosa muy bien, a mí no me han traido este año ni carbón

[Jose Roman]

Gracias a todos esta ayuda sirvió mucho

[Jose Roman]

Hola...
Siguiendo con el reporte que he creado en tiempo de diseño, lo cree en un procedimiento (esto lo hice para cuadrar el titulo de un reporte el cual se modificara a gusto del cada usuario por medio de un archivo INI), todo funciona a la perfección y muestro un preliminar de como quedara:

Código Delphi [-]
with TqrPreview.Create(Application) do
try
  with TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI')) do
  try
    ...
  finally
    free;
  end 
  Preview;
finally
  free;
end;

La duda mia es la siguiente, como puedo volver a utilizar este mismo código sin que se genere un error, es decir, son tres tipos de reportes pero llevan el mismo encabezado y no deseo escribir tres veces este mismo codigo y los tres reportes se llaman por medio de tres procedimientos distintos. Gracias