Cel :

Stworzymy prostą przeglądarkę graficzną opierającą się na drzewie katalogów. Po wybraniu pliku graficznego obrazek zostanie załadowany do komponentu TImage.


Końcowy efekt :


Potrzebne komponenty :


Metoda :

1) Wstawiamy komponenty, wypisane w powyższej tabeli i zmieniamy im właściwość name na taką jaka jest w kolumnie "Nazwa". Komponenty TDriveComboBox, FilterComboBox1 wstawiamy na Panel

2) Właściwość DirList komponentu DriveComboBox1 ustawiamy na DirectoryListBox1

3) Właściwość FileList komponentu DirectoryListBox1 ustawiamy na FileListBox1

4) Właściwość FileList komponentu FilterComboBox1 zmieniamy na FileListBox1

5) Klkamy raz na komp. FilterComboBox1 i w Object Inspector podwójnie klikamy przy właściwości Filter. W otworzonym okienku w kolumnie " Filter Name " wpisujemy - Bitmapa (*.bmp), zaś w kolumnie " Filter " - *.bmp

6) Klikamy podwójnie na komponencie - TFileListBox i w wygenerowanym zdarzeniu wpisujemy poniższy kod:

var
x:string;
begin
x:= filelistbox1.FileName;
if x = '' then Exit;
Image1.Picture.Loadfromfile(x);

7) Właściwości komponentu TImage zmień następująco:
AutoSize = true
Align = alClient
Center = true

8) Uruchamiamy program.


Kod źródłowy :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, FileCtrl, ExtCtrls;

type
TForm1 = class(TForm)
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
Image1: TImage;
Panel1: TPanel;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
procedure FileListBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FileListBox1Change(Sender: TObject);
var
x:string;
begin
x:= filelistbox1.FileName;
if x = '' then Exit;
Image1.Picture.Loadfromfile(x);
end;


end.