index 60fd18f3e452366f8c8fed8d66a2a4835eba845f..815fb1f38a8961a25fff67b9e211aa7d567a51a2 100644 (file)
unit f_addresource;
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
interface
implementation
uses
- f_main, WADSTRUCT, g_language;
+ f_main, WADSTRUCT, g_language, utils;
{$R *.lfm}
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;
SectionName := '';
// Читаем ресурсы выбранной секции:
- ResourceList := WAD.GetResourcesList(SectionName);
+ ResourceList := WAD.GetResourcesList(utf2win(SectionName));
WAD.Free();
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);