FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Consulta sobre Impresion
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 |
#2
|
||||
|
||||
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:
Aclaro que no he revisado el API, y me baso en lo que vos has dicho para sugerirte la solución. Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate Última edición por jachguate fecha: 13-07-2004 a las 14:38:55. |
#3
|
|||
|
|||
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 |
|
|
|