If FontDialog1.Execute

then TabbedNoteBook1.TabFont:= FontDialog1.Font;

Задание № 4

1. В форму поместите компонент DriveComboBox и DirectoryListBox. На правой стороне формы поместите компонет Image и под ним - TabSet.

2. Когда пользователь выбирает новый каталог, ярлыки должны сразу вывести на экран имена файлов с растровыми изображениями ярлыков каждый раз, когда изменяется выбор в списке каталога. Для этого поместите компонент FileListBox в форму (поместите его позади других компонентов или присвойте его свойству Visible значение False). Затем измените свойство Mask списка файлов на *.bmp. Для того чтобы связать компонент DirectoryListBox с компонентом FileListBox, запишите в окне Object Inspector для свойства DirectoryListBox следующее имя компонента: FileListBox1. Теперь добавьте метод для обработки события OnChange списка каталога:

procedure TForm1.DirectoryListBox1Change(Sender:TObject);

Begin

With FileListBox1

do if Item.Count = 0

Then begin

TabSet1.Tabs.Clear;

Image1.Visible:= False;

TabSet1.Tabs.Add(‘None’);

End

Else begin

Image1.Visible:= True;

TabSet1.Tabs:= FileListBox1.Items;

End;

End;

3. Когда ярлыки выводят на экран имена файлов, для загрузки соответствующего растрового изображения в компонент Image используется следующий код:

procedure TForm1.TabSet1Change(Sender:TObject;

NewTab:Integer;var AllowChange:Boolean);

Begin

if TabSet1.Tabs[NewTab] <> ‘None’

then TabSet1.Tabs[NewTab];

End;