Fuentes de letra del programa

[tarco35]

Hola, hay alguna forma de obtener un listado de todos los tipos de letra, fuentes, que uso en mi programa delphi 6
Gracias

[Casimiro Noteví]

Efectivamente, hay una forma de obtenerla.
¿Y la pregunta?

[tarco35]

La pregunta es: como obtengo ese listado (el de tipos de fuentes) de tal forma que cuando genere la instalación pueda incluir esos tipos de letra en el ordenador del cliente.

[ecfisa]

Hola tarco35.

Empezado por tarco35

Hola, hay alguna forma de obtener un listado de todos los tipos de letra, fuentes, que uso en mi programa delphi 6
Gracias

No dispongo de la versión 6, pero en la 7 lo podes obtener de la variable Screen (TScreen):

Código Delphi [-]
  ComboBox1.Items.Assign(Screen.Fonts);

Saludos

[tarco35]

Gracias, pero me muestra todos los fonts que tengo, y lo que deseo es saber solo los que uso en todos los forms de la aplicacion.

[Casimiro Noteví]

Mejor copias las fuentes que uses en algún directorio de tu programa. Así van siempre con la instalación del mismo.

[ecfisa]

Hola tarco35.

No sé si será lo que estas buscando, pero podrías obtener las fuentes usadas en los formularios de tus proyectos, escudriñando en los .dfm...

Código Delphi [-]
procedure GetFormsFonts(PrjPath: string; UsedFonts: TStrings);
const
  SEARCHED = 'Font.Name = ';
var
  SR: TSearchRec;
  TS: TStrings;
  SL: TStringList;
  s : string;
  i : Integer;
begin
  PrjPath := IncludeTrailingPathDelimiter(PrjPath);
  if FindFirst(PrjPath + '*.dfm', faArchive, SR) = 0 then
  begin
    SL := TStringList.Create;
    try
      repeat
        TS := TStringList.Create;
        try
          TS.LoadFromFile(PrjPath + SR.Name);
          for i := 0 to TS.Count-1 do
            if Pos(SEARCHED, TS[i]) <> 0 then
            begin
              s := Trim(TS[i]);
              s := Copy(s, Pos(SEARCHED, s) + Length(SEARCHED), MaxInt);
              s := StringReplace(s, '''', '', [rfReplaceAll]);
              SL.Add(s);
            end;
        finally
          TS.Free;
        end;
      until FindNext(SR) <> 0;
      FindClose(SR);
      SL.Sorted     := True;
      SL.Duplicates := dupIgnore;
      SL.Text       := SL.Text;
      UsedFonts.Assign(SL);
    finally
      SL.Free;
    end;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFormsFonts('C:\Carpeta_Del_Proyecto', ListBox1.Items);
end;

Saludos