Ver Mensaje Individual
  #2  
Antiguo 16-04-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola dauryakatimi2.

Básicamente con un componente TImage.

Te pongo un ejemplo muy simple que te permite recorrer tu disco y visualizar imágenes al hacer doble click sobre el nombre del archivo.

Componentes:
.TDirectoryListBox (Paleta Win 3.1)
.TFileListBox (Paleta Win 3.1)
.TImage (Paleta Additional)

Código:
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
}

#include <jpeg.hpp>

void __fastcall TForm1::FormShow(TObject *Sender)
{
 DirectoryListBox1->Align = alLeft;
 FileListBox1->Align = alLeft;
 Image1->Align = alClient;
 DirectoryListBox1->Directory = "C:\\";
 FileListBox1->Mask = "*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.vmf";
 Image1->Stretch = TRUE;
}

void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
{
  FileListBox1->Directory = DirectoryListBox1->Directory;
}

void __fastcall TForm1::FileListBox1DblClick(TObject *Sender)
{
  /* Aca se carga la imagen en el TImage */
  Image1->Picture->LoadFromFile(FileListBox1->FileName);
}
Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita