[delphi-br] Como imprimir matriz de imagens

Thu, 20 Apr 2006 11:25:28 -0700

No código abaixo eu consigo imprimir a matriz em texto de etiquetas
em 5 colunas, mas como imprimir imagens???


procedure TForm1.Button3Click(Sender: TObject);
var
  Descarrega: String;
  I: Integer;
  F: TextFile;
  Pagina, Linha, Coluna, N_Coluna, X: Integer;
  M_Descricao1: array[1..6] of String;
  M_Descricao2: array[1..6] of String;

begin
   Coluna := 0; // Coluna inicial da etiqueta

   for N_Coluna := 1 to 6 do begin
      M_Descricao1[N_Coluna] :=  'Cueca Keeper Slim';
      M_Descricao2[N_Coluna] :=  'G        R$ 35,00';


      if N_Coluna = 6 then begin

         Printer.BeginDoc;
         Printer.Canvas.Font.Name := 'Courier New';
         Printer.Canvas.Font.Size := 7;

         Descarrega := Preenche_Campo(M_Descricao1[1],' ',15, 'D') +
StringOfChar(' ',5) + Preenche_Campo(M_Descricao1[2],' ',15, 'D') +
StringOfChar(' ',4) +
                       Preenche_Campo(M_Descricao1[3],' ',15, 'D') +
StringOfChar(' ',4) + Preenche_Campo(M_Descricao1[4],' ',15, 'D') +
StringOfChar(' ',4) +
                       Preenche_Campo(M_Descricao1[5],' ',15, 'D') +
StringOfChar(' ',4) + Preenche_Campo(M_Descricao1[6],' ',15, 'D');

         Printer.Canvas.TextOut(0,0, Descarrega);
         Descarrega := '';


         Descarrega := Preenche_Campo(M_Descricao2[1],' ',15, 'D') +
StringOfChar(' ',5) + Preenche_Campo(M_Descricao2[2],' ',15, 'D') +
StringOfChar(' ',4) +
                       Preenche_Campo(M_Descricao2[3],' ',15, 'D') +
StringOfChar(' ',4) + Preenche_Campo(M_Descricao2[4],' ',15, 'D') +
StringOfChar(' ',4) +
                       Preenche_Campo(M_Descricao2[5],' ',15, 'D') +
StringOfChar(' ',4) + Preenche_Campo(M_Descricao2[6],' ',15, 'D');
         Printer.Canvas.TextOut(0,55,Descarrega);
         Descarrega := '';

// Até aqui imprime legal, depois imprime somente a primeira
imagem.Mas como imprimir as outras colunas????

{         for I := 1 to 6 do begin
            if I = 1 then begin
               Printer.canvas.stretchdraw( rect
(0,98,image1.picture.bitmap.width*5, image1.picture.bitmap.height*5),
                                           image1.picture.bitmap);
            end else begin
               Printer.canvas.stretchdraw( rect(I *
280,100,image1.picture.bitmap.width*5,
image1.picture.bitmap.height*5),
                                           image1.picture.bitmap);
            end;
            Coluna := Coluna + 300;
         end; }

         Printer.canvas.stretchdraw( rect
(1,100,image1.picture.bitmap.width*5, image1.picture.bitmap.height*6),
                                    image1.picture.bitmap);


         Printer.EndDoc;

      end;

   end;
end;


// Ficaria assim:
Onde x = Imagem que quero colocar

Cueca Keeper Slim   Cueca Keeper Slim   Cueca Keeper Slim  
G        R$ 15,20   G        R$ 15,20   G        R$ 15,20
xxxxxxxxxxxxxxxxx   xxxxxxxxxxxxxxxxx   xxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxx   xxxxxxxxxxxxxxxxx   xxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxx   xxxxxxxxxxxxxxxxx   xxxxxxxxxxxxxxxxx





--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]


Links do Yahoo! Grupos

Responder a