ActiveDelphi

[DarkProgrammer]

Olá a todos, recentemente venho fazendo um projeto de auto atualização de arquivos para um jogo, porém estou tendo dificuldades em fazer uma imagem ir ficando maior de acordo com a posição de minha progress bar, ou seja quero simular uma progressbar com uma imagem.

Ja tentei.
Image.left:=Progressbar1.position;
Image.41:=Progressbar1.position;

Porém não está indo, se alguem que ja trabalhou com isso ou sabe como funciona por favor me ajude, ficarei muito grato.

[AndersonWorkInfo]

Amigão o left da imagem é a posição dele, se você aumentar ele vai distanciar do lado esquerdo e não crescer, você tem que implementar o Width da imagem sendo assim faça:

Coloquei no click de um botão pra você ver como fica.

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to ProgressBar1.Max -1 do
begin
ProgressBar1.Position := ProgressBar1.Position+1;
Image1.Width := Image1.Width + 1;
end;
ShowMessage('O tamanho da imagem é: '+ IntToStr(Image1.Width));
end;

Espero ter ajudado.

[DarkProgrammer]

Sim desse jeito que você falou ele vai aumentar a imagem em +1, mas não vai aumentar de acordo com a progressbar, que é oque eu quero fazer ou seja.
Tamanho da imagem = posição da progressbar.
oque eu tentei foi
imagem1.Width:= Progressbar1.position;
mas o problema é que a imagem não acompanha a progressbar.

[alanporto]

tenta dar imagem1.Repaint a cada mudança de largura

[strak2012]

Nunca trabalhei com isso, mas sei como funciona.

Com o TPanel

Coloque o TImage em um TPanel.
Na propriedade "align" do Timage coloque "alLeft".
Na proppriedade "Stretch" do Timage coloque como "true".

Desta forma agora só basta fazer contas

Se for usar com um Progressbar em %, basta assumir o Width do Tpanel como 100%

Assim a conta fica:

[strak2012]

No caso do seu exemplo você pode fazer assim.

[cetics]

Tente mexer também na propriedade stretch (acho que é assim que se escreve)...

tem um codigo bem simples (aqui funcionou)
lembrando que tem que colocar como true a propriedade stretch da imagem.

[DarkProgrammer]

[strak2012]

você não necessita obrigatoriamente usar o tpanel, dá uma relida no post mostro duas forma uma de fazer uma com o tpanel e outra sem.