src/editor/f_addresource.pas

   1 unit f_addresource;
   2
   3 {$INCLUDE ../shared/a_modes.inc}
   4
   5 interface
   6
   7 uses
   8   LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes,
   9   Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
  10   ExtDlgs, e_Log, e_textures, WADEDITOR;
  11
  12 type
  13   TOKFunction = function: Boolean;
  14
  15   TAddResourceForm = class (TForm)
  16     LabelWADs: TLabel;
  17     cbWADList: TComboBox;
  18     LabelSections: TLabel;
  19     cbSectionsList: TComboBox;
  20     lbResourcesList: TListBox;
  21     bOK: TButton;
  22     bCancel: TButton;
  23
  24     procedure FormActivate(Sender: TObject);
  25     procedure bOKClick(Sender: TObject);
  26     procedure cbWADListChange(Sender: TObject);
  27     procedure cbSectionsListChange(Sender: TObject);
  28     procedure lbResourcesListClick(Sender: TObject);
  29
  30   protected
  31     FResourceName: String;
  32     FFullResourceName: String;
  33     FResourceSelected: Boolean;
  34     FOKFunction: TOKFunction;
  35
  36   public
  37     property ResourceName: String read FResourceName;
  38     property FullResourceName: String read FFullResourceName;
  39     property OKFunction: TOKFunction read FOKFunction write FOKFunction;
  40   end;
  41
  42 var
  43   AddResourceForm: TAddResourceForm;
  44
  45 implementation
  46
  47 uses
  48   f_main, WADSTRUCT, g_language, utils, g_options;
  49
  50 {$R *.lfm}
  51
  52 const
  53   STANDART_WAD = 'standart.wad';
  54
  55 procedure TAddResourceForm.FormActivate(Sender: TObject);
  56 var
  57   SR: TSearchRec;
  58
  59 begin
  60   cbWADList.Clear();
  61   cbSectionsList.Clear();
  62   lbResourcesList.Clear();
  63
  64   FResourceName := '';
  65   FFullResourceName := '';
  66   FResourceSelected := False;
  67
  68   if FindFirst(WadsDir + DirectorySeparator + '*.*', faReadOnly, SR) = 0 then
  69   repeat
  70     cbWADList.Items.Add(SR.Name);
  71   until FindNext(SR) <> 0;
  72   FindClose(SR);
  73
  74 // "standart.wad" в начало списка:
  75   if cbWADList.Items.IndexOf(STANDART_WAD) > 0 then
  76   begin
  77     cbWADList.Items.Delete(cbWADList.Items.IndexOf(STANDART_WAD));
  78     cbWADList.Items.Insert(0, STANDART_WAD);
  79   end;
  80
  81 // WAD карты:
  82   if OpenedMap <> '' then
  83     cbWADList.Items.Add(MsgWadSpecialMap);
  84 end;
  85
  86 procedure TAddResourceForm.bOKClick(Sender: TObject);
  87 begin
  88   if FResourceName = '' then
  89   begin
  90     Application.MessageBox(PChar(MsgMsgChooseRes),
  91                PChar(MsgMsgError), MB_OK + MB_ICONERROR);
  92     Exit;
  93   end;
  94
  95   if @FOKFunction <> nil then
  96     begin
  97       if FOKFunction() then
  98         Close();
  99     end
 100   else
 101     Close();
 102 end;
 103
 104 procedure TAddResourceForm.cbWADListChange(Sender: TObject);
 105 var
 106   WAD: TWADEditor_1;
 107   SectionList: SArray;
 108   i: Integer;
 109   FileName, fn, sn, rn: String;
 110
 111 begin
 112   WAD := TWADEditor_1.Create();
 113
 114 // Внешний WAD:
 115   if cbWADList.Text <> MsgWadSpecialMap then
 116     FileName := WadsDir + DirectorySeparator + cbWADList.Text
 117   else // WAD карты:
 118     begin
 119       g_ProcessResourceStr(OpenedMap, fn, sn, rn);
 120       FileName := fn;
 121     end;
 122
 123 // Читаем секции:
 124   WAD.ReadFile(FileName);
 125   SectionList := WAD.GetSectionList();
 126   WAD.Free();
 127
 128   cbSectionsList.Clear();
 129   lbResourcesList.Clear();
 130
 131   if SectionList <> nil then
 132     for i := 0 to High(SectionList) do
 133       if SectionList[i] <> '' then
 134         cbSectionsList.Items.Add(win2utf(SectionList[i]))
 135       else
 136         cbSectionsList.Items.Add('..');
 137 end;
 138
 139 procedure TAddResourceForm.cbSectionsListChange(Sender: TObject);
 140 var
 141   ResourceList: SArray;
 142   WAD: TWADEditor_1;
 143   i: DWORD;
 144   FileName, SectionName, fn, sn, rn: String;
 145
 146 begin
 147   WAD := TWADEditor_1.Create();
 148
 149 // Внешний WAD:
 150   if cbWADList.Text <> MsgWadSpecialMap then
 151     FileName := WadsDir + DirectorySeparator + cbWADList.Text
 152   else // WAD карты:
 153     begin
 154       g_ProcessResourceStr(OpenedMap, fn, sn, rn);
 155       FileName := fn;
 156     end;
 157
 158 // Читаем WAD:
 159   WAD.ReadFile(FileName);
 160
 161   if cbSectionsList.Text <> '..' then
 162     SectionName := cbSectionsList.Text
 163   else
 164     SectionName := '';
 165
 166 // Читаем ресурсы выбранной секции:
 167   ResourceList := WAD.GetResourcesList(utf2win(SectionName));
 168
 169   WAD.Free();
 170
 171   lbResourcesList.Clear();
 172
 173   if ResourceList <> nil then
 174     for i := 0 to High(ResourceList) do
 175       lbResourcesList.Items.Add(win2utf(ResourceList[i]));
 176 end;
 177
 178 procedure TAddResourceForm.lbResourcesListClick(Sender: TObject);
 179 var
 180   FileName, SectionName, fn: String;
 181
 182 begin
 183   FResourceSelected := (lbResourcesList.SelCount > 0) or
 184                        (lbResourcesList.ItemIndex > -1);
 185
 186   if not FResourceSelected then
 187   begin
 188     FResourceName := '';
 189     FFullResourceName := '';
 190     Exit;
 191   end;
 192
 193   if cbSectionsList.Text = '..' then
 194     SectionName := ''
 195   else
 196     SectionName := cbSectionsList.Text;
 197
 198   if cbWADList.Text[1] <> '<' then
 199     FileName := cbWADList.Text
 200   else
 201     FileName := '';
 202
 203   FResourceName := FileName+':'+SectionName+'\'+lbResourcesList.Items[lbResourcesList.ItemIndex];
 204
 205   if FileName <> '' then
 206     FFullResourceName := WadsDir + DirectorySeparator + FResourceName
 207   else
 208     begin
 209       g_ProcessResourceStr(OpenedMap, @fn, nil, nil);
 210       FFullResourceName := fn+FResourceName;
 211     end;
 212 end;
 213
 214 end.