index 71e1c1d6a11049ce166fda9a1c76385721b710a8..815fb1f38a8961a25fff67b9e211aa7d567a51a2 100644 (file)
unit f_addresource;
unit f_addresource;
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
interface
interface
implementation
uses
implementation
uses
- f_main, WADSTRUCT, g_language;
+ f_main, WADSTRUCT, g_language, utils;
{$R *.lfm}
{$R *.lfm}
FResourceSelected := False;
ChDir(EditorDir);
FResourceSelected := False;
ChDir(EditorDir);
- if FindFirst(EditorDir+'wads\*.wad', faAnyFile, SR) = 0 then
+ if FindFirst(EditorDir+'wads/*.wad', faAnyFile, SR) = 0 then
repeat
cbWADList.Items.Add(SR.Name);
until FindNext(SR) <> 0;
repeat
cbWADList.Items.Add(SR.Name);
until FindNext(SR) <> 0;
// Внешний WAD:
if cbWADList.Text <> _lc[I_WAD_SPECIAL_MAP] then
// Внешний WAD:
if cbWADList.Text <> _lc[I_WAD_SPECIAL_MAP] then
- FileName := EditorDir+'wads\'+cbWADList.Text
+ FileName := EditorDir+'wads/'+cbWADList.Text
else // WAD карты:
begin
g_ProcessResourceStr(OpenedMap, fn, sn, rn);
else // WAD карты:
begin
g_ProcessResourceStr(OpenedMap, fn, sn, rn);
if SectionList <> nil then
for i := 0 to High(SectionList) do
if SectionList[i] <> '' then
if SectionList <> nil then
for i := 0 to High(SectionList) do
if SectionList[i] <> '' then
- cbSectionsList.Items.Add(SectionList[i])
+ cbSectionsList.Items.Add(win2utf(SectionList[i]))
else
cbSectionsList.Items.Add('..');
end;
else
cbSectionsList.Items.Add('..');
end;
// Внешний WAD:
if cbWADList.Text <> _lc[I_WAD_SPECIAL_MAP] then
// Внешний WAD:
if cbWADList.Text <> _lc[I_WAD_SPECIAL_MAP] then
- FileName := EditorDir+'wads\'+cbWADList.Text
+ FileName := EditorDir+'wads/'+cbWADList.Text
else // WAD карты:
begin
g_ProcessResourceStr(OpenedMap, fn, sn, rn);
else // WAD карты:
begin
g_ProcessResourceStr(OpenedMap, fn, sn, rn);
SectionName := '';
// Читаем ресурсы выбранной секции:
SectionName := '';
// Читаем ресурсы выбранной секции:
- ResourceList := WAD.GetResourcesList(SectionName);
+ ResourceList := WAD.GetResourcesList(utf2win(SectionName));
WAD.Free();
WAD.Free();
if ResourceList <> nil then
for i := 0 to High(ResourceList) do
if ResourceList <> nil then
for i := 0 to High(ResourceList) do
- lbResourcesList.Items.Add(ResourceList[i]);
+ lbResourcesList.Items.Add(win2utf(ResourceList[i]));
end;
procedure TAddResourceForm.lbResourcesListClick(Sender: TObject);
end;
procedure TAddResourceForm.lbResourcesListClick(Sender: TObject);
FResourceName := FileName+':'+SectionName+'\'+lbResourcesList.Items[lbResourcesList.ItemIndex];
if FileName <> '' then
FResourceName := FileName+':'+SectionName+'\'+lbResourcesList.Items[lbResourcesList.ItemIndex];
if FileName <> '' then
- FFullResourceName := EditorDir+'wads\'+FResourceName
+ FFullResourceName := EditorDir+'wads/'+FResourceName
else
begin
g_ProcessResourceStr(OpenedMap, @fn, nil, nil);
else
begin
g_ProcessResourceStr(OpenedMap, @fn, nil, nil);