[Lazarus-es] imprimir tickeadora: ticket y testigo

[Paola Bruccoleri]

El 29/09/2012 09:38 a.m., José Mejuto escribió:
> El 27/09/2012 20:12, Paola Bruccoleri escribió:
>
>>>> // impresion dual en ticket/testigo
>>>> @ 0,0 say chr(27)+"@"+CHR(27)+"c0"+chr(3)+chr(27)+"!"+chr(1)
>>>>
>>>> @0,0   say PADC(alltrim(i_razon),38)  // impresión en ticket
>>>> @0,42 say PADC(alltrim(i_razon),38) // impresión en testigo
> [...]
>> clipper (pero en harbour es lo mismo..)
>> imprimir es muy sencillo; solo indicas fila/col y ya está.. nada de
>> andar armando cadenas de caracteres!
>
> Hola,
>
> Si usais mucho estas funciones se puede hacer un "driver" de 
> tickeadora que se maneje algo así:
>
> var
>   t: TTickadora;
>   Lineas: TStringList;
>   j: integer;
> begin
>   T:=TTickadora.Create(AnchoEnChars);
>   T.Write(X,Y,'Prueba 1');
>   T.Write(X,Y+1,'Prueba 2');
>   T.DuplicateRight;
>   T.PrintEverything;
>
>   //O en vez de imprimir directamente
>
>   Lineas:=T.GetLines;
>   for j = 0 To Lineas.Count-1
>     PrintRaw(Lineas[j]+LineEnding);
>   end;
>   T.Free;
> end;
>
Hola José..
y qué ventajas obtengo con esta otra forma??
supongo que deberé inventar una clase TTickeadora con sus métodos 
duplicateright, etc...
mychas gracias!