Unit8.pas

unit Unit8;

interface

{$WARN UNIT_PLATFORM OFF}

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

type
  TLGRForm = class(TForm)
    ComboBox1: TComboBox;
    LabeledEdit1: TLabeledEdit;
    Label1: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LGRForm: TLGRForm;

implementation

{$R *.dfm}

procedure TLGRForm.FormShow(Sender: TObject);
var
  SR:TSearchRec;
begin
  ComboBox1.Items.Clear;
  if FindFirst(CurDir+'\LGR\*.lgr',faAnyFile,SR)=0 then begin
    SetLength(SR.Name,Pos('.',SR.Name)-1);
    SR.Name:=LowerCase(SR.Name);
    ComboBox1.Items.Add(SR.Name);
    while FindNext(SR)=0 do begin
      SetLength(SR.Name,Pos('.',SR.Name)-1);
      SR.Name:=LowerCase(SR.Name);
      ComboBox1.Items.Add(SR.Name);
    end;
  end;
  ComboBox1.Sorted:=true;
  ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(Level.LGR);
  LabeledEdit1.Text:=CurDir+'\'+Level.LGR;
  Memo1.Clear;
end;

procedure TLGRForm.BitBtn1Click(Sender: TObject);
var
  f,f2:TFileStream;
  ft:TextFile;
  mas:array of
   record
     dis,clip,unn:dword;
     tip:string[4];
   end;
  i,j:integer;
  id:string[5];
  nofp,nofall,dw:dword;
  name:string[12];
  names:array of string[10];
  b:byte;
begin
  f:=nil;
  try
    f:=TFileStream.Create(CurDir+'\LGR\'+ComboBox1.Text+'.lgr',fmOpenRead);
    AssignFile(ft,LabeledEdit1.Text+'\pictures.lst');
    CreateDir(LabeledEdit1.Text);
    //ShowMessage(LabeledEdit1.Text+'\pictures.lst');
    f.Read(id[1],5);
    id[0]:=#5;
    if id<>'LGR12' then exit;
    f.Read(nofall,4);
    f.Read(dw,4);
    f.Read(nofp,4);
    SetLength(names,nofp);
    for i:=0 to nofp-1 do begin
     SetLength(names[i],10);
     f.Read(names[i,1],10);
     //Memo1.Lines.Add(names[i]);
    end;
    SetLength(Mas,nofp);
    for i:=0 to nofp-1 do begin
     SetLength(mas[i].tip,4);
     f.Read(mas[i].tip[1],4);
    end;
    for i:=0 to nofp-1 do
     f.Read(mas[i].dis,4);
    for i:=0 to nofp-1 do
     f.Read(mas[i].clip,4);
    for i:=0 to nofp-1 do
     f.Read(mas[i].unn,4);
    Rewrite(ft);
    for i:=0 to nofp-1 do with mas[i] do begin
      //Memo1.Lines.Add(mas[i].tip[1]);
      for j:=1 to 10 do
       if names[i,j]=#0 then names[i,j]:=' ';
      Write(ft,names[i]);
      case tip[1] of
        'd':Write(ft,'pict');
        'e':Write(ft,'text');
        'f':Write(ft,'mask');
      end;
      if tip[1]='f' then Writeln(ft) else begin
        Write(ft,' ',mas[i].dis,' ');
        case mas[i].clip of
          0:Writeln(ft,'u');
          1:Writeln(ft,'g');
          2:Writeln(ft,'s');
        end;
      end;
    end;
    CloseFile(ft);
    for i:=0 to nofall-1 do begin
      SetLength(name,12);
      f.Read(name[1],12);
      f.Read(dw,4);
      f.Read(dw,4);
      f.Read(dw,4);
      if not FileExists(LabeledEdit1.Text+'\'+name) then begin
       f2:=TFileStream.Create(LabeledEdit1.Text+'\'+name,fmCreate);
       f2.Free;
      end;
      f2:=TFileStream.Create(LabeledEdit1.Text+'\'+name,fmOpenWrite);
      Memo1.Lines.Add(MessageString[47]+'  '+name);
      for j:=0 to dw-1 do begin
        f.Read(b,1);
        f2.Write(b,1);
      end;
      f2.Free;
    end;
    Memo1.Lines.Add(MessageString[48])
  finally
    f.Free;
  end;
end;

procedure TLGRForm.ComboBox1Change(Sender: TObject);
begin
  LabeledEdit1.Text:=CurDir+'\'+ComboBox1.Text;
end;

procedure TLGRForm.FormDeactivate(Sender: TObject);
begin
  ModalResult:=mrCancel;
  Close;
end;

procedure TLGRForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then Close;
end;

procedure TLGRForm.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    key:=#0;
    BitBtn1Click(nil);
  end;
end;

procedure TLGRForm.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    key:=#0;
    LabeledEdit1.SetFocus;
  end;
end;

procedure TLGRForm.SpeedButton1Click(Sender: TObject);
var
  s:string;
begin
  s:=CurDir;
  if SelectDirectory(MessageString[41],'',s) then
    LabeledEdit1.Text:=s;
end;

end.