Galera, tenho a rotina abaixo que desenha as barras em um componente image.
Eu gostaria de aumentar um pouco esse componente de modo que as barras
ficassem desenhadas no centro desse componente image,
mas não estou conseguindo.
Alguém poderia me dar uma mão?
Se for necessário eu passo o programinha completo...
procedure TForm1.EAN13DesenhaBarras(SequenciaHexa: string; Imagem: TCanvas);
var
X, Y, H : LongInt;
A, B, C, D : TPoint;
I : Boolean;
begin
Imagem.Brush.Color := ClWhite;
Imagem.Pen.Color := ClBlack;
x := 10;
i := True;
for y := 1 to Length(SequenciaHexa) do
begin
if SequenciaHexa[y] = '0' then
Imagem.Pen.Color := ClWhite
else
Imagem.Pen.Color := ClBlack;
h := 1;
a.x := x;
a.y := 0;
b.x := x;
b.y := 50;
c.x := x + h - 1;
c.y := 50;
d.x := x + h - 1;
d.y := 0;
case Y of
1..3, 46..50, 93..95:
begin
b.y := 55;
c.y := 55;
end;
end;
Imagem.Polygon([A, B, C, D]);
i := not (i);
x := x + h;
end;
end;
__ __
/ \ /| |'-.
.\__/ || | |
_ / `._ \|_|_.-'
| / \__.`=._) (_
|/ ._/ |"""""""""|
|'. `\ | | Eduardo de Almeida Silva
;"""/ / | | Kobra Sistemas
) /_/| |.-------.| Desenvolvimento de Software
' `-` ' " "
--
<<<<< 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
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
