Przeglądarka graficzna
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:
7) Właściwości komponentu TImage zmień następująco:
8) Uruchamiamy program.
Kod źródłowy
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
Nazwa |
Komponent |
Panel1 |
TPanel |
DriveComboBox1 |
TDriveComboBox |
FilterComboBox1 |
TFilterComboBox |
DirectoryListBox1 |
TDirectoryListBox |
FileListBox1 |
TFileListBox |
Image1 |
TImage |
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.
Materiał dodany przez użytkownika: alphan