Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Вниз

самонахождение файлов *.bmp   Найти похожие ветки 

← →
clampo ©   (2004-07-03 12:12) [0]

Подскажите, пожалуйста решить проблему:
У меня в плеере скинка - это бмп-файл под опред. названием
и при загрузке плеер его находит и загружает. А как сделать так
чтобы при вызывании опред. меню в нём отображался список
бмп файлов находящихся в папке ../Skins. А при клике на выбранный файл (из этого меню) он загружался в обложку плеера

---

← →
Рамиль ©   (2004-07-03 12:40) [1]

opSkin: TOpenDialog;
....
if  opSkin.Execute then
begin
 Skin := opSkin.FileName;
end;

---

← →
Рамиль ©   (2004-07-03 12:41) [2]

Не дочитал:)
Тогда не так, находишь все файлы и динамически добавляешь пунты меню.

---

← →
Cardinal ©   (2004-07-03 15:04) [3]

>Рамиль ©   (03.07.04 12:41) [2]
Думаю, автору вопроса это очень поможет :->

function ScanDir(SkinMenu: tmenuitem; SetSkin: TNotifyEvent; StartDir: string;
        Mask: string = "*.*"; FindNested: boolean = false): integer;
var
 SearchRec: TSearchRec;
 newitem: tmenuitem;
begin
result:=0;
if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\";
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
 begin
 repeat
  Application.ProcessMessages;
  if (SearchRec.Attr and faDirectory) <> faDirectory then
    begin
    newitem := tmenuitem.create(nil);
    newitem.Caption := StartDir + extractfilename(SearchRec.Name);
    newitem.Hint := StartDir + extractfilename(SearchRec.Name);
    newitem.OnClick := setskin;
    skinmenu.Add(newitem);
    inc(result);
    end
  else
    if FindNested then
     if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then
      begin
      newitem := tmenuitem.create(nil);
      newitem.Caption := StartDir + SearchRec.Name + "\";
      newitem.Hint := StartDir + SearchRec.Name + "\";
      newitem.OnClick := setskin;
      skinmenu.Add(newitem);
      ScanDir(SkinMenu,setskin,StartDir + SearchRec.Name + "\",Mask);
      end;
 until FindNext(SearchRec) <> 0;
 FindClose(SearchRec);
 end;
end;

procedure TForm1.setscinclick(Sender: TObject);
begin
{Устанавливаем скин с именем tmenuitem(sender).hint}
end;


Чтобы заполнить у меню, к примеру n4, субменю пунктами с bmp-скинами из папки "c:\skins", надо выполнить

scandir(n4,setscinclick,"c:\skins","*.bmp",false);


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.028 c