[Doctor_Che]

Как вывести в компонент TLabel имя и размер выделенного файла в компоненте TFilterComboBox?
По заданию необходимо создать обработчик события onChange для FileListBox. Для получения имени выделенного файла использовать свойства Items и ItemIndex (номер выделенного файла) компонента FileListBox.

[Страдалецъ]

Где то так:

Код:

procedure TForm14.FileListBox1Change(Sender: TObject);
begin
 if FileListBox1.ItemIndex = -1 then Exit;
 Label1.Caption := FileListBox1.Items[FileListBox1.ItemIndex];
 try
 with TFileStream.Create(Label1.Caption, fmOpenRead)
 do begin
    Panel1.Caption := IntToStr(Size);
    Free;
    end;
 except
  Panel1.Caption := 'Locked';
 end;
end;

[Doctor_Che]

Спасибо огромное! Помогло!

[Doctor_Che]

А как эти же данные поместить в StatusBar?
И туда же поместить текущее время.
При условии что:
Размер первых двух панелей зависит от значения свойства Directory компонента DirectoryListBox1. Размер третьей панели, отображающей текущее время, не меняется.

[Страдалецъ]

А практически так-же.

Код:

StatusBar1.Panels[0].Text := 'что тут';  
StatusBar1.Panels[1].Text := 'и что тут';

[Doctor_Che]

Ага. Получилось вставить данные в StatusBar.
Правда таймер кудато пропал...
Но не получается сделать так, что бы размер первых двух панелей зависил от значения свойства Directory компонента DirectoryListBox1. А размер третьей панели, отображающей текущее время, не менялся.

[Страдалецъ]

А вот резиновости стандартный StatusBar не имеет, придется делать расчет границ производить самому, примерно так:

Код:

 for i := 0 to StatusBa1.Panels.Count - 1
 do StatusBa1.Panels[i].Width := Canvas.TextWidth(StatusBa1.Panels[i].Text) + 8;

[Doctor_Che]

Сделал вот так:

Код:

StatusBar1.Panels[0].Width := Canvas.TextWidth(StatusBar1.Panels[0].Text) + 8;
StatusBar1.Panels[1].Width := StatusBar1.Width - StatusBar1.Panels[0].Width - 90;
StatusBar1.Panels[2].Width := 90;

Но при больших значениях в "0" ячейке она перекрывает всё.
И вообще ведет себя странно...

[NumLock]

Код:

uses
  FileCtrl,

...

begin
  StatusBar1.Panels[0].Width:=200;
  StatusBar1.Panels[0].Text:=MinimizeName('c:\Program Files\Справочник школьника. Электронное приложение 1-4\AccessDB\SchoolTest.mdb', StatusBar1.Canvas, StatusBar1.Panels[0].Width);
end;

будет:
c:\...\AccessDB\SchoolTest.mdb

[Doctor_Che]

О! Возьму на заметку.

Но тут есть одно "но":

При условии что:
Размер первых двух панелей зависит от значения свойства Directory компонента DirectoryListBox1.

[Doctor_Che]

Еще один вопрос по FileListBox.
Как из него вывести в TImage графическое изображение только в том случае, если в FileListBox выбран BMP-файл.
Пытаюсь вот так

Код:

Image1.Picture.LoadFromFile(FileListBox1.Items[FileListBox1.ItemIndex]);

Выдает ошибку и пишет "Locked".

[Doctor_Che]

Код:

 if LowerCase(ExtractFileExt(FileListBox1.FileName)) = '.bmp'
    then begin
    Image1.Picture.LoadFromFile(FileListBox1.FileName); //ðèñóåì èçîáðàæåíèå, ïóòü áåðåòñÿ èç FileListBox
    end
    else begin
    Image1.Picture:= nil;
    end;