Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.036 c