Imagens de botão no Delphi

Delphi

21/09/2016

Boa noite pessoal, venho ate você para fazer um pedido. Sera que vocês poderia se não for pedir muito me enviar algumas imagens para eu colocar nos meus botoes que vou inserindo no meu projeto. Quem puder me enviar imagens pra botão grande, médio e pequeno o e-mail é delphiimagens@gmail.com . Desde já grato pela ajuda de vocês.
Rubens Pena

Rubens Pena

Curtidas 0

Melhor post

Raylan Zibel

Raylan Zibel

21/09/2016

Se não me engano, depois que voce instala o cnpack o imagelist ativa uma opção de busca de imagens e icones por ele mesmo.

Confere aí: http://www.cnpack.org

Altamente recomendado.
GOSTEI 1

Mais Respostas

Dirceu Morais

Dirceu Morais

21/09/2016

Não entendi bem mas tem neste site http://www.flaticon.com/packs/business-collection-3/3 tem vários modelos de icones free.

Espero ter ajudado.
GOSTEI 0
Raylan Zibel

Raylan Zibel

21/09/2016

No Delphi 7 funciona...

TNumeros = record
    Valores: Array [0..50] of Integer;
end;



procedure TForm1.Button1Click(Sender: TObject);
var
   Meus_Numeros: TNumeros;
   Meu_ArrayVar: Array [0..50] of TNumeros;
   i, j: Byte;
begin
   mmo1.Lines.Clear;
   for i := 0 to 50 do
      Meus_Numeros.Valores[i] := i;
   for i := 0 to 50 do
      Meu_ArrayVar[i] := Meus_Numeros;
   for i := 0 to 50 do
   begin
      for j := 0 to 50 do
      begin
         if Meu_ArrayVar[i].Valores[j] = 0 then
            mmo1.Lines.Add( '- POSIÇÃO '+IntToStr(i)+' -' );
         mmo1.Lines.Add( IntToStr( Meu_ArrayVar[i].Valores[j] ) );
      end;
   end;
end;
GOSTEI 0
Raylan Zibel

Raylan Zibel

21/09/2016

Ignore, tópico errado..rs

No Delphi 7 funciona...

TNumeros = record
    Valores: Array [0..50] of Integer;
end;



procedure TForm1.Button1Click(Sender: TObject);
var
   Meus_Numeros: TNumeros;
   Meu_ArrayVar: Array [0..50] of TNumeros;
   i, j: Byte;
begin
   mmo1.Lines.Clear;
   for i := 0 to 50 do
      Meus_Numeros.Valores[i] := i;
   for i := 0 to 50 do
      Meu_ArrayVar[i] := Meus_Numeros;
   for i := 0 to 50 do
   begin
      for j := 0 to 50 do
      begin
         if Meu_ArrayVar[i].Valores[j] = 0 then
            mmo1.Lines.Add( '- POSIÇÃO '+IntToStr(i)+' -' );
         mmo1.Lines.Add( IntToStr( Meu_ArrayVar[i].Valores[j] ) );
      end;
   end;
end;
GOSTEI 0
POSTAR