Cita:
Empezado por Lepe
En mi impresora no cabe nada más ancho del A4.
|
Esteee, si, se me olvidaba, el pequeño detalle del tamaño máximo que admite la impresora; estoy muy mal acostumbrado en eso de la impresión porque en mi trabajo hay plotters, impresoras de hoja grande y laser a color y si no cabe en una tamaño carta, lo mandamos a una que sí quepa
Cita:
Empezado por Al González
Código Delphi [-]
PROCEDURE FORMAR;
BEGIN
TEXTCOLOR (0);
YANO := FALSE;
Y := - (ANY - 1);
REPEAT
INC (Y, ANY);
X := - (ANX - 1);
REPEAT
INC (X, ANX);
TEXTBACKGROUND ( ARCOLOR [RANDOM (MAXCOLOR)] );
VENTIW (X, Y, X + (ANX - 1), Y + (ANY - 1) );
UNTIL X >= 75;
UNTIL Y >= 21;
END;
¡No me pregunten para qué era esa rutina!
|
Para qué es esa rutina?
__________________
eLcHiCoTeMiDo - Rompecorazones profesional
Yo no soy presumido; ¿Pero de qué sirve mi humilde opinión contra la de los espejos?
Salva a un nylon, usa prendas de piel de foca