Como criar um openpicturedialog em delphi7???

Vamos fazer nosso propri openpicturedialog em delphi7...
1º) add: 1 openpicturedialog (Dialogs)
add: 1 button (standard)
add: 1 groupbox (standard)
add: 1 Label (standard)
add: 1 XPManifest (Win32)
add: 1 DriveComboBox1 (Win 3.1)
add: 1 DirectoryListBox1 (Win 3.1)
add: 1 FileListBox1 (Win 3.1)
O DriveComboBox1, DirectoryListBox1 e o FileListBox1 estão na palheta do Win 3.1
Siga a imagem...

Troque o caption do form para (Exemplo), ou o que você desejar...
troque o caption do groupbox para (Visualização:)...
troque o caption do button para (Visualizar)...
selecione o openpicturedialog e va em (propriedades > Filter) clik nos 3 pontinhos (...) que tem lá...
ira aparecer uma janelinha nela voce vera varios formatos de imagem como (*.bmp;*.jpg......)
copie esses formatos...
apos ter copiado todos os formatos você pode excluir o openpicturedialog (afinal o openpicturedialog era
só uma ajuda para nós...).
Agora selecione o DriveComboBox1 va em (propriedades > DirList > DirectoryListBox1)
Vamos associar o  DriveComboBox1 com o DirectoryListBox1...
Agora selecione o DirectoryListBox1 va em (propriedades > FileList > FileListBox1)
Vamos associar o DirectoryListBox1 com o FileListBox1
Agora selecione o FileListBox1 va em (propriedades > FileEdit > Edit1)
Associamos o FileListBox1 com o Edit1...
Para pegar os formatos que copiamos do openpicturedialog vamos selecionar o FileListBox1
depois vamos em (propriedades > Mask) cole os formatos em Mask...

 Tente organizar assim...

VAMOS PROGRAMAR.............................................................................
Dê um duplo clik no button1 (ou melhor 'Visualizar') e coloque esse pequeno codigo...

---

---

Agora um pequeno detalhe.........

Quando você abrir a imagem desejada ela não vai ficar numa boa proporção entao vamos ajustar isso...

Selecione a image1 va em (propriedades > Center > true).
ainda na image1 va em (propriedades > Proportional > true).

quando eu fui dar o play na minha aplicação ela não tava aceitando formato (*.jpg)
então bolei um jeito de pegar... Eu coloquei uma imagem (*.jpg) direto quando estava editando.
vejam como ficou...

Coloquei uma imagem que utilizei para esse tutorial formato dessa imagem (*.jpg);
depois disso ficou pegando corretamente...
SALVE, COMPILE,  EXECULTE,  DIVIRTA-SE...