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, sfs;
  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 begin
  59   cbWADList.Clear();
  60   cbSectionsList.Clear();
  61   lbResourcesList.Clear();
  62
  63   FResourceName := '';
  64   FFullResourceName := '';
  65   FResourceSelected := False;
  66
  67   ChDir(EditorDir);
  68   if FindFirst(EditorDir + 'wads/*.*', faAnyFile, SR) = 0 then
  69   repeat
  70     if (SR.name <> '.') and (SR.name <> '..') then
  71       cbWADList.Items.Add(SR.Name);
  72   until FindNext(SR) <> 0;
  73   FindClose(SR);
  74
  75 // "Standart.wad" в начало списка:
  76   if cbWADList.Items.IndexOf(STANDART_WAD) > 0 then
  77   begin
  78     cbWADList.Items.Delete(cbWADList.Items.IndexOf(STANDART_WAD));
  79     cbWADList.Items.Insert(0, STANDART_WAD);
  80   end;
  81
  82 // WAD карты:
  83   if OpenedMap <> '' then
  84     cbWADList.Items.Add(_lc[I_WAD_SPECIAL_MAP]);
  85 end;
  86
  87 procedure TAddResourceForm.bOKClick(Sender: TObject);
  88 begin
  89   if FResourceName = '' then
  90   begin
  91     MessageBox(0, PChar(_lc[I_MSG_CHOOSE_RES]),
  92                PChar(_lc[I_MSG_ERROR]), MB_OK + MB_ICONERROR);
  93     Exit;
  94   end;
  95
  96   if @FOKFunction <> nil then
  97     begin
  98       if FOKFunction() then
  99         Close();
 100     end
 101   else
 102     Close();
 103 end;
 104
 105 procedure TAddResourceForm.cbWADListChange(Sender: TObject);
 106   var
 107     wad: TSFSFileList;
 108     i: Integer;
 109     FileName, Section, sn, rn: String;
 110 begin
 111   if cbWADList.Text <> _lc[I_WAD_SPECIAL_MAP] then
 112     FileName := EditorDir + 'wads/' + cbWADList.Text (* Resource wad *)
 113   else
 114     g_ProcessResourceStr(OpenedMap, FileName, sn, rn); (* Map wad *)
 115
 116   cbSectionsList.Clear();
 117   lbResourcesList.Clear();
 118
 119   wad := SFSFileList(FileName);
 120   if wad <> nil then
 121   begin
 122     for i := 0 to wad.Count - 1 do
 123     begin
 124       Section := win2utf(Copy(wad.Files[i].path, 1, Length(wad.Files[i].path) - 1));
 125       if cbSectionsList.Items.IndexOf(Section) = -1 then
 126         cbSectionsList.Items.Add(Section)
 127     end;
 128     wad.Destroy
 129   end;
 130
 131   (* Update resource list (see below) *)
 132   cbSectionsListChange(Sender)
 133 end;
 134
 135 procedure TAddResourceForm.cbSectionsListChange(Sender: TObject);
 136   var
 137     wad: TSFSFileList;
 138     i: Integer;
 139     FileName, Section, SectionName, sn, rn: String;
 140 begin
 141   if cbWADList.Text <> _lc[I_WAD_SPECIAL_MAP] then
 142     FileName := EditorDir + 'wads/' + cbWADList.Text (* Resource wad *)
 143   else
 144     g_ProcessResourceStr(OpenedMap, FileName, sn, rn); (* Map wad *)
 145
 146   SectionName := cbSectionsList.Text;
 147   lbResourcesList.Clear();
 148
 149   wad := SFSFileList(FileName);
 150   if wad <> nil then
 151   begin
 152     for i := 0 to wad.Count - 1 do
 153     begin
 154       Section := win2utf(Copy(wad.Files[i].path, 1, Length(wad.Files[i].path) - 1));
 155       if Section = SectionName then
 156         lbResourcesList.Items.Add(win2utf(wad.Files[i].name))
 157     end;
 158     wad.Destroy
 159   end;
 160 end;
 161
 162 procedure TAddResourceForm.lbResourcesListClick(Sender: TObject);
 163   var
 164     FileName, fn: String;
 165 begin
 166   FResourceSelected := (lbResourcesList.SelCount > 0) or (lbResourcesList.ItemIndex > -1);
 167   if not FResourceSelected then
 168   begin
 169     FResourceName := '';
 170     FFullResourceName := '';
 171     Exit;
 172   end;
 173
 174   if cbWADList.Text[1] <> '<' then
 175     FileName := cbWADList.Text
 176   else
 177     FileName := '';
 178
 179   FResourceName := FileName + ':' + cbSectionsList.Text + '\' + lbResourcesList.Items[lbResourcesList.ItemIndex];
 180
 181   g_ProcessResourceStr(OpenedMap, @fn, nil, nil);
 182   if FileName <> '' then
 183     FFullResourceName := EditorDir + 'wads/' + FResourceName
 184   else
 185     FFullResourceName := fn + FResourceName
 186 end;
 187
 188 end.