Unit14.pas

unit Unit14;

interface

{$WARN UNIT_PLATFORM OFF}

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, FileCtrl, Menus, ActnList;

type
  TLevelSearchForm = class(TForm)
    ListView1: TListView;
    Panel1: TPanel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel1: TBevel;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    LabeledEdit1: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    LabeledEdit2: TLabeledEdit;
    CheckBox2: TCheckBox;
    CheckBox1: TCheckBox;
    BitBtn4: TBitBtn;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    CheckBox3: TCheckBox;
    PopupMenu1: TPopupMenu;
    Delete1: TMenuItem;
    Copy1: TMenuItem;
    Move1: TMenuItem;
    BitBtn3: TBitBtn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
//    procedure OpenSelected;
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1Edited(Sender: TObject; Item: TListItem;
      var S: String);
    procedure FormResize(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Delete1Click(Sender: TObject);
    //procedure WMSize(var Message: TWMSize); message WM_SIZE;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure Recalc;  

const
  srName=1;
  srLgr=2;
  srGround=3;
  srSky=4;

var
  LevelSearchForm: TLevelSearchForm;
  Stopped: boolean;

implementation

uses LevelEngine, Unit1, ListOps;

{$R *.dfm}

procedure TLevelSearchForm.SpeedButton1Click(Sender: TObject);
var
  s:string;
begin
  s:=ExtractFilePath(LabeledEdit1.Text);
  if SelectDirectory(MessageString[67],'',s) then
    LabeledEdit1.Text:=s+'\*.lev';
end;

procedure TLevelSearchForm.BitBtn1Click(Sender: TObject);
var
  SR:TSearchRec;
  NeedAdd:boolean;
  tip,i:integer;
  LevelName,LgrName,GroundName,SkyName:string;
begin
  BitBtn4.Enabled:=false;
  BitBtn1.Enabled:=false;
  BitBtn3.Enabled:=true;
  Stopped:=false;
  if ActiveControl=ListView1 then begin
    OpenSelected;
    exit;
  end;
  if FindFirst(LabeledEdit1.Text,faAnyFile,SR)<>0 then exit;
  if (Sender as TBitBtn).Tag=0 then ListView1.Clear;
  WasPath:=ExtractFilePath(LabeledEdit1.Text);
  repeat
    tip:=Level.GetLevInfo(WasPath+SR.Name,LevelName,LgrName,GroundName,SkyName);
    NeedAdd:=true;
    if (LabeledEdit2.Text<>'') then begin
      if not CheckBox3.Checked then begin
        if (Pos(LowerCase(LabeledEdit2.Text),LowerCase(LevelName))=0)then NeedAdd:=false;
      end else begin
        if not SameText(LabeledEdit2.Text,LevelName) then NeedAdd:=false;
      end;
    end;
    if (LowerCase(ComboBox3.Text)<>LowerCase(MessageString[75])) and (ComboBox3.Text<>'') then begin
      if not SameText(ComboBox3.Text,LgrName) then NeedAdd:=false;
    end;
    if (LowerCase(ComboBox1.Text)<>LowerCase(MessageString[75])) and (ComboBox1.Text<>'') then begin
      if not SameText(ComboBox1.Text,GroundName) then NeedAdd:=false;
    end;
    if (LowerCase(ComboBox2.Text)<>LowerCase(MessageString[75])) and (ComboBox2.Text<>'') then begin
      if not SameText(ComboBox2.Text,SkyName) then NeedAdd:=false;
    end;
    if NeedAdd then
    with ListView1.Items.Add do begin
      Caption:=LowerCase(SR.Name);
      if tip=ltAcross then begin
        SubItems.Add(MessageString[76]);
        for i:=0 to 2 do SubItems.Add('-------');
      end;
      if tip=ltOther then begin
        SubItems.Add(MessageString[77]);
        for i:=0 to 2 do SubItems.Add('-------');
      end;
      if tip=ltNormal then begin
        SubItems.Add(LevelName);
        SubItems.Add(LowerCase(LgrName));
        SubItems.Add(LowerCase(GroundName));
        SubItems.Add(LowerCase(SkyName));
      end;       
    end;
    if GetTickCount mod 100 = 0 then Application.ProcessMessages;
  until  (FindNext(SR)<>0) or Stopped; 
  BitBtn4.Enabled:=true;
  BitBtn1.Enabled:=true;
  BitBtn3.Enabled:=false;
  ReCalc;
end;

procedure TLevelSearchForm.FormShow(Sender: TObject);
var
  SR:TSearchRec;
  i:integer;
  s1, s2, s3: string;
begin
  WindowState:=wsNormal;
  ReCalc;
  WasPath:=ExtractFilePath(LabeledEdit1.Text);
  List:=ListView1;
  ReCalculate:=ReCalc;
  s1:= ComboBox1.Text;
  s2:= ComboBox2.Text;
  s3:= ComboBox3.Text;
  ComboBox1.Clear;
  ComboBox2.Clear;
  for i:=0 to High(Level.PC) do with Level.PC[i] do
  if tip=ptTexture then begin
    ComboBox1.AddItem(Name,nil);
    ComboBox2.AddItem(Name,nil);
  end;         
  ComboBox3.Items.Clear;
  if FindFirst(CurDir+'\LGR\*.lgr',faAnyFile,SR)=0 then
  repeat
    SetLength(SR.Name,Pos('.',SR.Name)-1);
    SR.Name:=LowerCase(SR.Name);
    ComboBox3.Items.Add(SR.Name);
  until FindNext(SR)<>0;
  ComboBox1.Sorted:=true;
  ComboBox2.Sorted:=true;
  ComboBox3.Sorted:=true;
  ComboBox1.Text:= s1;
  ComboBox2.Text:= s2;
  ComboBox3.Text:= s3;
  {ComboBox1.Text:=MessageString[75];
  ComboBox2.Text:=MessageString[75];
  ComboBox3.Text:=MessageString[75];}
  ActiveControl:=LabeledEdit2;
end;

procedure TLevelSearchForm.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  if Column.Index=0 then ListView1.SortType:=stText else begin
    ListView1.SortType:=stNone;
    ListView1.CustomSort(@SortItems,Column.Tag);
  end;
end;

{procedure TLevelSearchForm.OpenSelected;
begin
  if ListView1.Selected=nil then exit;
  Level.Open(WasPath+ListView1.Selected.Caption);
end;   }

procedure TLevelSearchForm.ListView1DblClick(Sender: TObject);
begin
  OpenSelected;
end;

procedure TLevelSearchForm.ListView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not ListView1.IsEditing then begin
    if Key=VK_DELETE then DeleteSelected(CheckBox1.Checked,CheckBox2.Checked);
    //if Key=VK_F2 then ListView1.
  end;
end;

procedure TLevelSearchForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
  if ActiveControl=ListView1 then begin
    if not ListView1.IsEditing then
      OpenSelected;
    exit;
  end else BitBtn1Click(BitBtn1);
  if Key=VK_ESCAPE then Close;
  Key:=0;
end;

procedure Recalc;
begin
  LevelSearchForm.Label1.Caption:=Format(MessageString[74],[LevelSearchForm.ListView1.Items.Count]);
end;

procedure TLevelSearchForm.ListView1Edited(Sender: TObject;
  Item: TListItem; var S: String);
begin
  if CheckBox1.Checked then if not RenameFile(WasPath+Item.Caption,WasPath+S) then begin
    ShowMessage(Format(MessageString[71],[WasPath+Item.Caption]));
    s:=Item.Caption;
  end;
end;

procedure TLevelSearchForm.FormResize(Sender: TObject);
begin
  ListView1.Width:=ClientWidth-240;
end;

procedure TLevelSearchForm.CheckBox1Click(Sender: TObject);
begin
  CheckBox2.Enabled:=CheckBox1.Checked;
end;

procedure TLevelSearchForm.Delete1Click(Sender: TObject);
begin
  DeleteSelected(CheckBox1.Checked,CheckBox2.Checked);
end;

{procedure TLevelSearchForm.WMSize(var Message: TWMSize);
begin
  if Message.SizeType=SIZE_MINIMIZED then ALEForm.WindowState:=wsMinimized else
  if (Message.SizeType=SIZE_RESTORED) or (Message.SizeType=SIZE_MAXIMIZED) then begin
    if ALEForm.WindowState=wsMinimized then ShowWindow(ALEForm.Handle,SW_RESTORE);
  end else Inherited;
end;                 }

procedure TLevelSearchForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TLevelSearchForm.FormActivate(Sender: TObject);
begin
  ALEForm.ActionList1.State:=asSuspended;
  WasPath:=ExtractFilePath(LabeledEdit1.Text);
  List:=ListView1;
  ReCalculate:=ReCalc;
end;

procedure TLevelSearchForm.Copy1Click(Sender: TObject);
begin
  CopySelected(ExtractFilePath(LabeledEdit1.Text), (Sender as TMenuItem).Tag);
end;

procedure TLevelSearchForm.FormDeactivate(Sender: TObject);
begin
  ALEForm.ActionList1.State:=asNormal;
end;

procedure TLevelSearchForm.BitBtn3Click(Sender: TObject);
begin
  Stopped:=true;
end;

end.