Consulta sobre Impresion

[mmtaffarel]

hola amigos estoy haciendo uso de un scripcito que encontre en la parte de trucos ==> impresiones y es el siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
LogRec: TLOGFONT;
OldFont,NewFont: HFONT;
i, X, Y: LongInt;

begin
if pdPrinter.Execute then begin
with Printer do begin
GetObject(Canvas.Font.Handle, SizeOf(LogRec), @LogRec);
BeginDoc;
for i := 0 to 5 do begin
LogRec.lfEscapement := (i * 60)*10;
LogRec.lfOutPrecision := OUT_TT_ONLY_PRECIS;

******LogRec.lfFaceName := 'Times New Roman';*******

NewFont := CreateFontIndirect(LogRec);
OldFont := SelectObject(Canvas.Handle,NewFont);
Canvas.TextOut(100, 100, 'Hello World!');
NewFont := SelectObject(Canvas.Font.Handle,OldFont);
DeleteObject(NewFont);
end; { for }
EndDoc;
end;
end;
end.

Tengoun problemita conceptual con la linea de codigo que esta entre * (asteriscos) le quiero asignar la propiedad text de una combo que tiene muchos tipos de letras pero me dice que son incompatibles los tipos. Luego de leer un poco llego a la conclusion lfFaceName es un vector de caracteres??? terminado en 0 asi es supuestamente como se manejan en C los string. Ahora la pregunta concreta es como podria hacer para asignar los valores de la combo a la lfFaceName, ya probe varias maneras pero no le encuentro al vuelta...

Desde ya muchas gracias, saludos

[jachguate]

En primer lugar, bienvenido a los foros del club delphi. Te recomiendo la lectura de la guia de estilo de los foros que tiene una serie de recomendaciones y reglas para la buena convivencia en este lugar.

También te insto a aprender a usar las etiquetas [ delphi ] [ sql ] [ php ] y [ code ] para publicar trozos de código. En mi firma hay un vínculo a la ayuda de la etiqueta CODE y al inicio de este foro un anuncio con las otras etiquetas.

Ahora, sobre tu pregunta, Siempre que se trate de una cadena al estilo C, podes usar un molde de tipo PChar.sobre un string cualquiera de Delphi.

Algo como:

Código Delphi [-]
Var
  fname : String;

Begin
  ...
  fname := 'Times New Roman';
  ...
  LogRec.lfFaceName := PChar(fname);
  ...
end;

Aclaro que no he revisado el API, y me baso en lo que vos has dicho para sugerirte la solución.

Hasta luego.

[mmtaffarel]

Bueno amigo gracias por la bienvenida y las recomendaciones.

Creo que lo que vos me decis ya lo probe y no funciono. Pero en fin fueron tantas las maneras que intente que ya no me acuerdo bien..Voy a volver a probarlo y despues te cuento. Muchas gracias