This is a multi-part message in MIME format.
------=_NextPart_000_000B_01C6BC48.B6138E80
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000C_01C6BC48.B6138E80"
------=_NextPart_001_000C_01C6BC48.B6138E80
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola:
Hace muchas lunas me ayudaste para generar letras de impresion tipo =
condensadas, despues de muchas pruebas he logrado solo hacerlas mas =
peque=F1as, pero no condensadas, en windows que instale encontre la =
fuente "Bodoni MT condensed" en la que te anexo la imagen de como es, y =
una imagen basandome en la ayuda que me proporcionaste, las fuentes las =
genero de la manera siguiente:
WITH OBJECT ::oFontBody :=3D TFont():New( ::oDevice )
:cName :=3D "Courier New" //"Bodoni MT condensed"
:nWidth :=3D 4
:nHeight :=3D 8
:Create()
END WITH
lo que quiero en si es llegar al tipo de letra de Bodoni MT, pero un =
poco mas grande, mas aun no entiendo muy bien la ayuda de TFONT, ya que =
habla de el tama=F1o de la fuente en "UNIDADES LOGICAS" y no halle la =
definicion de este en ninguna parte.
"Valores negativos indican el tama=F1o de la fuente desde la primera a =
la =FAltima posici=F3n imprimible."
Cual vendria siendo la primera linea? y cual la ultima posicion =
imprimible?=20
Gracias.
--=20
Ram=F3n Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
------=_NextPart_001_000C_01C6BC48.B6138E80
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hola:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Hace muchas lunas me ayudaste para =
generar letras=20
de impresion tipo condensadas, despues de muchas pruebas he logrado solo =
hacerlas mas peque=F1as, pero no condensadas, en windows que instale =
encontre la=20
fuente "Bodoni MT condensed" en la que te anexo la imagen de como es, y =
una=20
imagen basandome en la ayuda que me proporcionaste, las fuentes las =
genero de la=20
manera siguiente:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>ÂÂ WITH =
OBJECT ::oFontBody=20
:=3D TFont():New( ::oDevice )<BR> ÂÂÂÂÂÂ =
:cName :=3D=20
"Courier New"Â //"Bodoni MT=20
condensed"<BR>  :nWidth :=3D=20
4<BR> ÂÂÂÂÂÂ :nHeight :=3D=20
8<BR> ÂÂÂÂÂÂ :Create()</FONT></DIV>
<DIV><FONT color=3D#0000ff></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>ÂÂ END=20
WITH</FONT></DIV><FONT face=3DArial size=3D2>
<DIV>Â</DIV>
<DIV>lo que quiero en si es llegar al tipo de letra de Bodoni MT, pero =
un poco=20
mas grande, mas aun no entiendo muy bien la ayuda de TFONT, ya que habla =
de el=20
tama=F1o de la fuente en "<STRONG>UNIDADES LOGICAS</STRONG>" y no halle =
la=20
definicion de este en ninguna parte.</DIV>
<DIV>Â</DIV>
<DIV>"<STRONG>Valores negativos indican el tama=F1o de la fuente desde =
la primera=20
a la =FAltima posici=F3n imprimible.</STRONG>"</DIV>
<DIV>Cual vendria siendo la primera linea? y cual la ultima posicion =
imprimible?=20
</DIV>
<DIV>Â</DIV>
<DIV>Gracias.<BR>-- <BR>Ram=F3n Zea<BR><A=20
href=3D"mailto:ramonzea@yahoo.com">ramonzea@yahoo.com</A><BR><A=20
href=3D"mailto:zeasoftware@hotmail.com">zeasoftware@hotmail.com</A><BR><A=
=20
href=3D"mailto:zeasoft.movil@hotmail.com">zeasoft.movil@hotmail.com</A></=
DIV>
<DIV>Â</DIV>
<DIV><A=20
href=3D"http://www.paginasprodigy.com/zeasoft/" ... asprodigy=
..com/zeasoft/</A></FONT></DIV></BODY></HTML>
------=_NextPart_001_000C_01C6BC48.B6138E80--
------=_NextPart_000_000B_01C6BC48.B6138E80
Content-Type: image/png;
name="Bodoni MT condensed.PNG"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Bodoni MT condensed.PNG"
iVBORw0KGgoAAAANSUhEUgAAAe4AAACpCAIAAABiX0lhAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAD31JREFU
eF7tndGa3SYMBpP3f+j0bM9XhwKSfmxsMEyu0l0ZxAgPsnN2+/vPnz+/7D+/ f//2A5xr+RYEIAAB
CDxE4GNq588nCT+A70IAAhCAwHACgalR+fAKkQAEIACBkAAqDxERAAEIQGB2 Aqh89gqRHwQgAIGQ
ACoPEREAAQhAYHYCqHz2CpEfBCAAgZAAKg8REQABCEBgdgKofPYKkR8EIACB kAAqDxERAAEIQGB2
Aqh89gqRHwQgAIGQwFWVf38m1ZkmC/D/sxwnHP+45Pjp2KZBquP7P2hbzpjF WwlYoJzMP0OVyYS0
00usYH/SpimUDFvXqGwqMSZcqYLLKXp4jxEAgQcIoPLKUXRR5aViHFn4HrEy qe6Mc8Gtm0z5hRKn
D7PwUPyO3GRnEb4i9CbCrWCJh8AVAn1UrvebN3Xlx7BOl+3oL/tWdRCx2a9a RrRJNY2MrWUxf15r
geJKwybd34J+dQ41p4M4shZHC7k1EbPOj/BQuXJzci0EdAJXVV69D7On0fIW dQIuWnW4yn0x6Q27
L9nyu1a8D2RalTv7SlR5ePT6xKongXVfXceo37FEQqDelYb9VAjO2cehccJ7 IAz4pjdPV+6ovPyW
lXbY65UBIigFV1hx52yub7J/k1PsrIx8WuXl4OXJmvFJ/9MKPtblBDQhJRgC Jwh06MqtW1RpkEMB
hQGOHw8cTYeNY5yMr7NAq6fLLvFVHp6y6Syh/S0aCmEnk/Bya8m+ta3l6KP5 Yg3TVg6V1pgT9yeX
QEAksJHKDzuUf6k6uhpf7ezEAVu78iaVp72h7ynFhuLuUY49ZTqrNGUaymgK ClSul5jIVxBA5T83
dV+VOwK6ryvPmm6nSRdtKG7f0InKdN1V/k0+G/Z0Ex2uUTnSRJ6EQeAcgT4q d/rNqiUz7ziph3dR
NUDRR3q3+0la6Z2b5bgqvVwfqhVddlApuJp2UtMTgMVczEoMs47SFEW4r1q9 3zRgE2GCIaAQWETl
1bZOsd5pO1QbMet+rlr7bpVXvWn1v+WjibJ7wm5UnE7hVnbZ6eBKtg5w/3JF 00qMkiQxEDhHoJvK
07va2dat7afS9IW+0PNxWnWr1yvbt1KL51Tu6PVYcphwOXWIq2knhWyV6RSV O+OIjq6iqC62ukv1
cjQBJBgCXQisoPLwbgx1k40gdljVsPCLR4AvIOUMa33saOWg7LBzY4on+mlH h1vCeZ7IjsnwsAwf
TRSMxEDgIgFU/nPndld5NmbY5TkHQHUoK2c/+Jx2T7980KdTlt86WsjNUXa1 AW+Nv3hncjkEmgj0
VPnRnoSPolk7edwk5d1Sfqva1fpdmG6BtAVzpvY7tXK6cypPeWbJlOu1sj1q 4UAolxMGhw8E4Qhp
wB3JV8esntnO9rsY33QrEgyBKwRQ+c+NLN6xVSM7VrV8Z51YzoGU6sapt2P8 E25VNpY17InpwhM9
XHgaEB5+1X4iXLLu/XAoAiDQkUBnlXfMjKHGEnAercYmxuwQgEClg/ShcD9v u2ko/balZ+FvJEBX
/saq3Z4zHr8dMRNAoCsBVN4VJ4NBAAIQGEEAlY+gzpwQgAAEuhJA5V1xMhgE IACBEQRQ+QjqzAkB
CECgKwFU3hUng0EAAhAYQQCVj6DOnBCAAAS6Euip8vKHGK1Uw59dDH9WUBm5 +om68IcAHw4Qqxn+
GHoYkE10mrCYMGEQgMCTBJ5WufXbNrqIJtTZKwKq5T+XufPxcFT+5G3GXBC4 m0A3lR9qcBxRbdud
L7YuPpu6zKR7wCfDi2OKSg3DrMX6jyathImHAATmJDBA5SWI0uahuaxBnO6+ Omb6xRkC/BdHzh4K
k/9eG74+mnObkhUEIOATeE7l1e77SC7sbcNChi67HuC8+hAlG+Zwbory4SAV dzqm8vAUoiYAAhCY
jUAflSsibmq0m4ItbWWCCzUaBpzzbFPj70+R9tTO80fWgJ9Le7adSj4QgIDX MgZNe/G7vBUvnHNi
tXnUixdOej3AWrvOMMzBwZu9G8legpff9Y/DE4elXgsiIQCBhwnQlf84Tezr y9qEQqw+r6QW9t87
WYmVV6Hyh+8cpoPAVAQ6qFzsNEPrva4rD1fkkPFbbGWLXHypFSav5EAMBCAw CYFuKq92haft7IjG
kmB4olwPaFqOuITPmEdkk98VlaeDZxsOlU9yB5IGBLoQuKpy67neeQPgvA4+ viV6MA27bupwBCU9
512NVTBU3mUrMwgEdibQR+WKncMOsXyD3FSYUMTXA0RNh+dQa4McZh6yLUnS lTftLoIhMDmBASpP
lX04qPrFVnbhO4fuAa2KtB5W/JUqVzm6z9iKB1IrfOIhAIGBBC6pPOzsygDr hUy1UW16d5yeCumF
6cjV2fUA521S6kd/ljAH5xEnuzbMvPX5YOBGZGoIQOAKgadVXipPN1e1u/TP AKtrLvvcI/KKLkPX
i8sPmYTrchZIV37lhuFaCMxJ4JLK51wSWUEAAhDYjQAq363irBcCEFiQACpf sKgsCQIQ2I0AKt+t
4qwXAhBYkAAqX7CoLAkCENiNACrfreKsFwIQWJAAKl+wqCwJAhDYjQAq363i rBcCEFiQACpfsKgs
CQIQ2I0AKt+t4qwXAhBYkAAqX7CoLAkCENiNACrfreKsFwIQWJAAKl+wqCwJ AhDYjQAq363irBcC
EFiQACpfsKgsCQIQ2I0AKt+t4qwXAhBYkAAqX7CoLAkCENiNACrfreKsFwIQ WJAAKl+wqCwJAhDY
jQAq363irBcCEFiQACpfsKgsCQIQ2I0AKt+t4qwXAhBYkAAqX7CoLAkCENiN QKDyD45fv+KY3aix
XghAAAJTEYg1jcqnKhjJQAACECgJxCqnMWffQAACEJicgKTyr82/fyZfD+lB AAIQ2JBAs5oPp/MX
CEAAAhCYhcCGxxdLhgAEILAYgeaufLH1sxwIQAACCxBA5QsUkSVAAAK7E0Dl u+8A1g8BCCxAAJUv
UESWAAEI7E4Ale++A1g/BCCwAAFUvkARWQIEILA7AVS++w5g/RCAwAIE/qp8 lg+6kwcEIAABCLQS
+BxH/ET+AmcyS4AABHYmwK9V2bn6rB0CEFiEACpfpJAsAwIQ2JkA/+y5c/VZ OwQgsAgBVL5IIVkG
BCCwMwFUvnP1WTsEILAIgVeqPPuUjlOK8vM8ZbDzmZ8sOPz/b/RNbJEtxjIg cA8B/3bT7+tPduEH
/9KY6mrEZBz/HN8KPVP30j2Q7xpVL49fmzS/E5FdzoPqvHeBY1wILEdAtKdy o11RuSIlx87lt3SV
/2/qF9X3hHObKFvB4Wmp7IPvIGHkJ+BFFSFVCAwkcEXl2Y0W3phWVy5K6Q6V 51MPrETr1FUc6XpK
5zoF0wXtR1YTKMVtfcX/eisi4iGwCYHUBr4Z6q8j7J7J0q4+S+mEu1X+c9K8 pfChMUOPh3q1Sn6c
B86jkNVNfy9RfO0s8C01Ik8IPEZgBpWfkFLJx7GKA7NyWjyG/uJEzrF28dTV D8xz0MP2Xw+4yJDL
IbAMgalUHlLVJfPTX//3R1H5X3uESUwSoCwva36tzLOhdMqofJLNQBoQSJ93 q/pL+9bq30U/OJ1W
Fymds0rlqrfsiS7Uqq7vrnJr34RLCAPeUizyhMCtBBT9+SpvanitHlG/YXXJ 0JX/LU3I9+6uHJXf
ehszOASuqDykZwlEmbS10/efJ5rOm/f9s+fpSlgPSvqBKdYSlYc1IgACVwg4 HXd4m3+u9adG5VdK
E1+bFi+Ltt6aVWtWjnNF5eHTUDq4s4R0nHCrxbCIgMC6BPw3J8ft4zRe/i12 QuXlgJaUyrKIDWJV
euksr+nKLWlW/WhJ0w+2YFnnfPYGzSrn/3AnGaTT+ZZf965kZRBoJnBa5WHj ld3RoRB0KXUxkm/z
V6rceoNROrfpQcwK9lWeNdT+IOEupCVvvrO5YDMCYtdcDVN6JnH8spMr726r XesSmQ/yrm2gqPkB
xM5T0sVj5l3lIFsIPEzA8mzZUDcZuepcpSv3O7lbVZ5P/XAlukyX6dIZ0z/9 fOk7vrZm7JtYF1YM
AoGVCHRUufUEfO4MEO/9K0ZKX9VWDomVysxaIAABCOxJ4E3vyvesEKuGAAQg EBJA5SEiAiAAAQjM
TgCVz14h8oMABCAQEkDlISICIAABCMxOAJXPXiHygwAEIBASQOUhIgIgAAEI zE4Alc9eIfKDAAQg
EBJA5SEiAiAAAQjMTuDnB4hmz5H8IAABCEDAJfDjcevnQUEHAQhAAAKvIPC3 JVd+aR8xEIAABCAw
I4FXHDgkCQEIQAACDgFelLM9IAABCLyeACp/fQlZAAQgAAHelc/41oucIAAB CLQR4BMsnOcQgAAE
3k6Az5W/vYLkDwEIQODfz5SDAQIQgAAEXk0Aj7+6fCQPAQhA4IcAKmcfQAAC EHg9AVT++hKyAAhA
AAKByrNfz5L+5/FBGQdi9iK+/GUvaUD6yZvvmOVXqnNZv0OmOh3/NsCmhwAE 1iMQd+WZbQ/JZn8p
0ZTHQHlJdfBjKEW7R0x5bFipKsOuV2lWBAEILExAUvnXfVlLrkDxj4HvmI64 FeeicqUQxEAAAmsT
eE7lpbKPEyJ7nZJGWi9Pqg8B6RdLxVvSX7vArA4CENiBwKMqr75yKVtv5Suo fIfdyRohAAGRwCWV
h//yWX1DknXHirjDNy3OIE57LjIiDAIQgMDkBCSVHy+1W7UYqrz6/kSRe4YV lU++z0gPAhC4lcBz
KreOAeWltt+VhwfG8S4++8utZBkcAhCAwGMEXq/yKyfEY5SZCAIQgMCtBNQf Eap+HjFslst/50zN
q4wZfoLleF9fdXqWYTjarawZHAIQgMBNBOKu/KaJGRYCEIAABHoRQOW9SDIO BCAAgWEEUPkw9EwM
AQhAoBcBVN6LJONAAAIQGEYAlQ9Dz8QQgAAEehFA5b1IMg4EIACBYQRQ+TD0 TAwBCECgFwFU3osk
40AAAhAYRgCVD0PPxBCAAAR6EUDlvUgyDgQgAIFhBFD5MPRMDAEIQKAXAVTe iyTjQAACEBhGAJUP
Q8/EEIAABHoRQOW9SDIOBCAAgWEEUPkw9EwMAQhAoBcBVN6LJONAAAIQGEYA lQ9Dz8QQgAAEehFA
5b1IMg4EIACBYQRQ+TD0TAwBCECgFwFU3osk40AAAhAYRgCVD0PPxBCAAAR6 EUDlvUgyDgQgAIFh
BFD5MPRMDAEIQKAXAVTeiyTjQAACEBhGAJUPQ8/EEIAABHoRQOW9SDIOBCAA gWEEUPkw9EwMAQhA
oBcBVN6LJONAAAIQGEYAlQ9Dz8QQgAAEehH4B2GP86SBmVXIAAAAAElFTkSu QmCC
------=_NextPart_000_000B_01C6BC48.B6138E80
Content-Type: image/png;
name="Courier New.PNG"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Courier New.PNG"
iVBORw0KGgoAAAANSUhEUgAAAg0AAAC8CAIAAAB0cwo6AAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAEthJREFU
eF7tndtyJKkORT3//9E9nsjoDAaBtCGpApLVDycctgBp6bKh2j3nnz9//vzw BwIQgAAEIFAj8KsT
/IEABCAAAQjUCPyABgIQgAAEIOAQUHWCBxkEIAABCBxKIFTRi0tohgEEIAAB CLySQCAAKMQrs05Q
EIAABHQC6ITOCksIQAACJxLwdILHxIkVQcwQgAAE/k8AnaAiIAABCEDAI4BO UB8QgAAEINClE/t+
6JT94poTvf0VN2vs/BpcZnxb1k4c6xh1DQEI6N1d69aHQ+D+dVC//f3ed9ba H4VzJoy0o2yq74kd
daJjpheXpBz9X5cuWg4Rm9CxjmSzBALnEBBHs9Jo4b+Z+KVaG9/KUPqQTuiz K6yK9+iEDiXMeqqR
ofGNuKNQ7svItUl41o7iHZYgBhD4BIEnOpE1WtiYNZ0Qh9IndCL0uWmYvFAn aq8BO9CdatCnv2+Z
Zst5D1qdCKP4RGuxJwTeQSCdvMUpHN7qahyaFvpH3/Pn0zrxfJi8RCfCcRyK RG1Sh2XhJNvxKj3O
Fwnlp+/obaKAwCgCK+hEx1Cy4dv544hK95QLsb9NJ+KA/2IW7wu61PdlNHy4 6AZh7BhA4BACS+lE
yFwfMr9bNemEOOViD52NwsXrGCjssou5SFBPITqxTj3gyeEErmZ07ljhx/fi fFCOCHOhDxl0IoTp
GWykE8UCVdKvx/gIJYshsDkB5cbm64QDIPwguuMDAHTiSxWnz9DQMjPQU6hU Z6oH2ceXrY59iSzH
QGA3Akon1nQijBWd+B+i9NUWsptuEA5ZXeTRienZxAEIPCHgvBVqcyC7tPGe yAi87e+xrbzVPqks
CqEtlyfvifDTpHRzv1L1On7SYKyFwO4ExL94cN4c/hW54z2hDyULX3kbOavE KRcm/SU6UZvIxfFa
m7m+cS6wf639l4oz3x1NyrKLSIR1jAEELgLdOhHe6rL9w4GgD6UhE6nmz5Bh 8kKdKBZKCjGspJRs
aBx+ohXucB+nWzIUIACBIgHxvl80Uy5k4v6KaOlDqcNy7DB5j074VwlHbC3Q jqz4lxE/Z33HMSYg
AAHlUl+8yTWN+2KHikc7vd/X+FOGyat0oqjhTi/5CuHfCOy2tcqzZXpZPnSM GQEBCIjDOutl51YX
Pin6BCYbNbXEPZlItami7BkW0gt1IowZAwhAAAIQ0AmgEzorLCEAAQicSACd ODHrxAwBCEBAJ4BO
6KywhAAEIHAiAXTixKwTMwQgAAGdADqhs8ISAhCAwIkEgt/OPBEJMUMAAhCA QEIAnaAcIAABCEDA
I4BOUB8QgAAEINCrE7/r/H82DFoIQAACEHg9Ae89cQUf/kcmXs+IACEAAQic TCDWiVQtlP8GITYQ
gAAEIPAqAieLJLFDAAIQgEBIQH1PhBthAAEIQAACrySATrwyrQQFAQhAYBgB VSde9VkbwUAAAhCA
gE4gVBx+3ylEhAEEIACBFxMI3hP8+4kX557QIAABCCgE0AmFEjYQgAAEziXA f7fj3NwTOQQgAAGF
ADqhUMIGAhCAwLkEtteJ4t+gpH+Nf25uifwAAtT/AUmeH+LT/5+i4i9WhWHd q25L+51wk1+D4u9i
ZZ3DX8UrJIfbhIXhZNyuzdyz94DuihIX1rxtddUWZ1/lX0CG13/qDI0zvCn2 3XCATtwlm33hQ8lK
vOO3b686ttWMTqxQjncW7BfZ5aDorZPE2o9sCYmTTizFWok2uZoaPyzU4fWf +SbSW6HY8OHTBGbq
xD3laxXvBO9Pn3Qh5f7pGvIHfS1TTgat/CvGtorE1KcLw+Gr30uKpyuBKPn6 RP0/1C3FbWw2JfBC
nbjf47UL4Kap2svt8D3RNDEV4y10In1L2YSKwpbqaE2NruLXNyw+zfcqObz9 HIGnOuHXffggsFc5
JdTsgZwt4VqkMPyaTW1UKaPfVpdzSQ+VqRby8/fEPZT9ygyfueJY/1z9FwP5 Wqlw0LIEJutEeDOq
faaRFrQvDGLvLZuh3R0LL7zFa28tv4pO3EUlpj4UmMyZWr01XVCcQMKMi/5c +4gQnjxuQocx2J3A
fJ3ofpHU2qCpXXfP3/r+KwPR2oSvEHs3t7dscUSGp+sXke+8J/x3SXf9dy9c vwjx8CGBj+tE8bZY
vOYU2zVs9dYmf8iL5a0EwgQV9d7Ju36dD4tHuWqEOueMVz/2IXM5xCtCuFpS 17nWMsB+awIDdCJ7
BWc4ijpxL0kfE9aypjF3e9t9wh9tna29nC8WRjFl2Tf9ironWloetYoKifml GHobnqt0h1/ntRDS
nYtN17rtJRK1ngpJYvBiAgN04sV0CA0CEIAABNAJagACEIAABDwC6AT1AQEI QAAC6AQ1AAEIQAAC
vQR4T/SSYx0EIACBMwigE2fkmSghAAEI9BJAJ3rJsQ4CEIDAGQTQiTPyTJQQ gAAEegmgE73kWAcB
CEDgDALoxBl5JkoIQAACvQTQiV5yrIMABCBwBgF04ow8EyUEIACBXgLoRC85 1kEAAhA4gwA6cUae
iRICEIBALwF0opcc6yAAAQicQQCdOCPPRAkBCECglwA60UuOdRCAAATOIIBO nJFnooQABCDQSwCd
6CXHOghAAAJnEEAnzsgzUUIAAhDoJYBO9JJjHQQgAIEzCKATZ+SZKCEAAQj0 EkAnesmxDgIQgMAZ
BNCJM/JMlBCAAAR6CaATveRYBwEIQOAMAujEGXkmSghAAAK9BNCJXnKsgwAE IHAGgb114if5k+ar
9v0zckqUEPiPQLELaA2Ko4PAU51Iy+7+WvcjXfL7tb7waoOiffb91m2bfMC4 RiAsDKda7NrsFDvs
7G6t1VgrRSeQ8FAnkOxHtVtOaxT3PsWypzVo2D4CA3TiOvguQX0up5ZXP+gx OMY0g47xc5a2HmzK
nKQ7Saz9yO6mV5RSirXJ66/1q7Hm4cMa/tC2n6sWdl6cwCo64bwPLEG//x/2 2OIJ28W9UCf8i4Uj
BrV6uJZkU1vEpdRMTSfuQ60DtqqVg8JVflBcocSkY6YTWEgnGpz+OxGuK2Tf lU0/DssOAlvrRDHe
KTqhP4myT5zu1nCEs2PzjkpgyQsIPNWJrDpbiRSrOdzE1wbxyhaegsEQAuFn IM78tdUVDuv0Mt40
B8NSDI8e+54o3oGUjDjdQWsoALEpPNlrUJp6zL6UO1jrJ1pLLk0dwL+zpDZe 07lcTKhyI75CsAO6
OLL1eBXpSo92xCkMM/UqfIQpITjdgU4oALFZSye6qxad2KiUlZnrJ7Q4Se03 7V2h++ah+JzphH36
1AyccKxOKJtkxYBObNQdu7j68c+d7Cs47SjnHXDd0cSO5T2xbMGJGqBfGmqW 9vtNOuGXYu3FHEbn
+6DHoucXndBZYSkSGKAT4cu61irX9+/lhcdORSfSVUUtSV0SQWA2nECxMIrp zr7pV1SW/fvGnVWC
c0EpVlqtFDNn0m1tLHogxW2zjuguYwdg957Dy4MNNyIwQCc2ihZXIQABCECg lQA60UoMewhAAAJn
EUAnzso30UIAAhBoJYBOtBLDHgIQgMBZBNCJs/JNtBCAAARaCaATrcSwhwAE IHAWAXTirHwTLQQg
AIFWAuhEKzHsIQABCJxFAJ04K99ECwEIQKCVADrRSgx7CEAAAmcRQCfOyjfR QgACEGglgE60EsMe
AhCAwFkE0Imz8k20EIAABFoJoBOtxLCHAAQgcBYBdOKsfBMtBCAAgVYC6EQr MewhAAEInEUAnTgr
30QLAQhAoJUAOtFKDHsIQAACZxFAJ87KN9FCAAIQaCWATrQSwx4CEIDAWQTQ ibPyTbQQgAAEWgmg
E63EsIcABCBwFgF04qx8Ey0EIACBVgLoRCsx7CEAAQicRQCdOCvfRAsBCECg lQA60UoMewhAAAJn
EUAnzso30UIAAhBoJbC3Tvwkf9LIa99vpYM9BCDwBQI08hcgPzlijE7cadZd SSujY/nvQb+risdl
36+Z6a5i2U2gmFmb+prGX5b29FrB+DtfNWP3bPUndanvRJ+n3xrOT210zneu KO5YlH6001w5MSye
TzRy6hgTIExBaDBGJ+4ODM+7DdICvb7ZlE7HGJ3Qs/AFy+Ks93OkZLBj27vM bPE88Sf0tuiqQz5s
DefEograptNROGtrm0xvZCvkX6jzdx8xRidsZYfUwmZQGon3RMh5rkGtMJ7M 5ewWXAuwOK1Ef7Jb
yxNvP9Eavk7UnPeB1PTAucNdG6b/23rh8xUlFGAx9U26Nbdflj19Y524rk7+ Bar1mbJsnjZ1TJzL
TYNY0YnaaBD9eTJqa7Ho0yq8Qjna40xt0QFRTjKFSFeJB6U7jG1k3YFN2+r7 bk/TCf/+4oPwtaH7
GvJ9+q8/0ZnLNZm/xofz0yk6URxk9/XZj6X1lh22RtNxjqgoz3HxPaEkxR73 uUb26+f1fTc8wAE6
kXV1q5i32hefCM51pmP/4ZTP3NApDF/L/dEW1lst47o/fe8Je27oangf8kd5 8cRMZr6mE9kLQ6l5
xf9QNcODmAAhotBgjE6kx7RmpdUenQiTuoiBIwaiToS5tgb6jcGxrOlE8XLd d6KSI0fwah1nnTlQ
J/zqUshjkxF4qhPFUs6K1VcC56fXdaz4XM3DSMyokhWq3E+crhP+yM4Gt65M +kJfipyfiqXrJOuh
Tly+6XJYVMHadb4mP7WeLYZpA9RF1+fmR71Cg+zlwyOduGrCNmf6Tadu7uWO Hjitki63slH0ba/c
7OutXxhZ3v36SYddWG+1nYf4U6w3u7NT1XpNKptYf2rOZI8PP5CmtlJO9MvY HwKOM6G+6rT3bbSv
ef5IJ77mJQdBAAIQgMAsAujELPKcCwEIQGAPAujEHnnCSwhAAAKzCKATs8hz LgQgAIE9CKATe+QJ
LyEAAQjMIoBOzCLPuRCAAAT2IIBO7JEnvIQABCAwiwA6MYs850IAAhDYgwA6 sUee8BICEIDALALo
xCzynAsBCEBgDwLoxB55wksIQAACswigE7PIcy4EIACBPQigE3vkCS8hAAEI zCKATswiz7kQgAAE
9iCATuyRJ7yEAAQgMIsAOjGLPOdCAAIQ2IMAOrFHnvASAhCAwCwC6MQs8pwL AQhAYA8C6MQeecJL
CEAAArMIoBOzyHMuBCAAgT0IoBN75AkvIQABCMwigE7MIs+5EIAABPYggE7s kSe8hAAEIDCLADox
izznQgACENiDADqxR57wEgIQgMAsAujELPKcCwEIQGAPAujEHnnCSwhAAAKz CGyvEz8/hRB+v3n/
mUWWcyFwIAH68ZVJH6MTHUM5HeXX1x18iwuzrfp27nCGJZZAsTD81CuFUau3 cO0Qf9KK6jvRL5Vw
z9/ltZuQszb7UeaDXdjROMP7Mc1Xhz+05CgCY3TiLtwmtx4O9Gu5rZ6H2zaF gHFIoGN2KBns2PZy
tWOh70/obfHEUCpSgycOhO7dB+mWReeH96PV47DYMPgQgTE6cWe0SfPDEe/E 7Jz4sNw/BPrMbWtp
ejL40suBU2/FH4n+ZPePJ94Obw0/Lntz0ttBtyw+HG8Zti8VR/OUHq/tfGZP TYn6hTpx3xk77nFT
cvDiQ8W53DSIFZ2o6YfoT00nwhntjOlRV6jQh1aY9j3R5Go2xGvuXc3YtHOT 8YubaIXQttSJtIBs
MT25Fq2Qkjf54Mzle3AUM+j8dIpOOGMuddWpxqap17pP1hE+21qB+czFi//Y fux26U1NtEIsA3Qi
6xO9H8KSUgraXlLQiRUKK3vVZWnyc1RTl/vqKo5m+wFIbaFfiqE/zkcuvqtO hdc+vSn2l3NzElEr
6ju3H/XBskj9v8mNMTqREtHT2a0T/nHoxCIF6iSiY3jZj0eK07lvYoo6MfBE P0cP3xNOg3QnRSyq
sKm754O+UHQVM53AU51Qbje1BIcD3b4VbGAD61KnhmVIwC8MXSfSe272tVUO fQhmE7/bH+uS+Pho
0olPuGc1L+zHMOnFBHVvm7U/OqHw/5DNI52439TZ/SVNcG3W32uLm9xF7BRH ukNGx/nRhziyrVMD
aTZt3u0csQPisgnrrVZU/kK/FH2H7c6ZfYilePVxNrEwi0eEjmUGYV7CCh/e j07SQ2cwGEvgkU6M
dYXdIAABCEBgQQLoxIJJwSUIQAACCxFAJxZKBq5AAAIQWJAAOrFgUnAJAhCA wEIE0ImFkoErEIAA
BBYkgE4smBRcggAEILAQAXRioWTgCgQgAIEFCaATCyYFlyAAAQgsRACdWCgZ uAIBCEBgQQLoxIJJ
wSUIQAACCxFAJxZKBq5AAAIQWJAAOrFgUnAJAhCAwEIE0ImFkoErEIAABBYk gE4smBRcggAEILAQ
AXRioWTgCgQgAIEFCaATCyYFlyAAAQgsRACdWCgZuAIBCEBgQQLoxIJJwSUI QAACCxFAJxZKBq5A
AAIQWJAAOrFgUnAJAhCAwEIE0ImFkoErEIAABBYk8C+kei9ypw2b1AAAAABJ RU5ErkJggg==
------=_NextPart_000_000B_01C6BC48.B6138E80--
Attached files
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
a J.Gimenez
-
- Mensajes: 1831
- Registrado: Mar Oct 11, 2005 9:53 am
a J.Gimenez
Ramón Zea
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
Móvil: 01-993-231-62-29
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoftware/
a J.Gimenez
Ramón,
Las unidades lógicas son las que le muestra posiblemente el editor de correo que este utilizando para leer este mensaje. Un font ocupa no sólo lo que ocupa la mayor de sus letras, tanto en ancho como en alto, sino que además del posible acento o dieresis el API de Windows tiene en cuenta unas lineas adicionales tanto por arriba como por abajo para dejar espacio entre lineas. Para más información consulte la documentación del API de Windows referente a la función CreateFont()
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=44db1ca2@news.xailer.com...]44db1ca2@news.xailer.com...[/email]
Hola:
Hace muchas lunas me ayudaste para generar letras de impresion tipo condensadas, despues de muchas pruebas he logrado solo hacerlas mas pequeñas, pero no condensadas, en windows que instale encontre la fuente "Bodoni MT condensed" en la que te anexo la imagen de como es, y una imagen basandome en la ayuda que me proporcionaste, las fuentes las genero de la manera siguiente:
WITH OBJECT ::oFontBody := TFont():New( ::oDevice )
:cName := "Courier New" //"Bodoni MT condensed"
:nWidth := 4
:nHeight := 8
:Create()
END WITH
lo que quiero en si es llegar al tipo de letra de Bodoni MT, pero un poco mas grande, mas aun no entiendo muy bien la ayuda de TFONT, ya que habla de el tamaño de la fuente en "UNIDADES LOGICAS" y no halle la definicion de este en ninguna parte.
"Valores negativos indican el tamaño de la fuente desde la primera a la última posición imprimible."
Cual vendria siendo la primera linea? y cual la ultima posicion imprimible?
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--
Las unidades lógicas son las que le muestra posiblemente el editor de correo que este utilizando para leer este mensaje. Un font ocupa no sólo lo que ocupa la mayor de sus letras, tanto en ancho como en alto, sino que además del posible acento o dieresis el API de Windows tiene en cuenta unas lineas adicionales tanto por arriba como por abajo para dejar espacio entre lineas. Para más información consulte la documentación del API de Windows referente a la función CreateFont()
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=44db1ca2@news.xailer.com...]44db1ca2@news.xailer.com...[/email]
Hola:
Hace muchas lunas me ayudaste para generar letras de impresion tipo condensadas, despues de muchas pruebas he logrado solo hacerlas mas pequeñas, pero no condensadas, en windows que instale encontre la fuente "Bodoni MT condensed" en la que te anexo la imagen de como es, y una imagen basandome en la ayuda que me proporcionaste, las fuentes las genero de la manera siguiente:
WITH OBJECT ::oFontBody := TFont():New( ::oDevice )
:cName := "Courier New" //"Bodoni MT condensed"
:nWidth := 4
:nHeight := 8
:Create()
END WITH
lo que quiero en si es llegar al tipo de letra de Bodoni MT, pero un poco mas grande, mas aun no entiendo muy bien la ayuda de TFONT, ya que habla de el tamaño de la fuente en "UNIDADES LOGICAS" y no halle la definicion de este en ninguna parte.
"Valores negativos indican el tamaño de la fuente desde la primera a la última posición imprimible."
Cual vendria siendo la primera linea? y cual la ultima posicion imprimible?
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--