Quake++ for Quake/Quake++.iso/quake/unit1.~pa

Text File | 1996-09-23 | 6.0 KB | 276 lines

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,Printers, FileCtrl,unit2,
  unit3,unit4,unit5,unit6;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    g: TLabel;
    Timer1: TTimer;
    Memo1: TMemo;
    Button4: TButton;
    Bevel1: TBevel;
    Panel1: TPanel;
    Button7: TButton;
    Button10: TButton;
    b6: TButton;
    C: TButton;
    Button5: TButton;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    Panel2: TPanel;
    Memo2: TMemo;
    Button6: TButton;
    Button8: TButton;
    Button9: TButton;
    Button11: TButton;
    OpenDialog1: TOpenDialog;
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure DriveComboBox1Change(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure CClick(Sender: TObject);
    procedure b6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tt,gdd,st1,st,s,temp,f,ex:String;
  i,j: Integer;
  cmd:array[0..255] of char;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if sender=bitbtn1 then bitbtn1.setfocus;
if sender=button1 then button1.setfocus;
if sender=button2 then button2.setfocus;
if sender=button3 then button3.setfocus;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
s:=g.caption;
temp:='';
For i:=2 to length(s) do
Begin
     temp:=temp+s[i];
End;
temp:=temp+s[1];
g.caption:=temp;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.visible:=true;
button4.visible:=true;
panel1.visible:=false;
panel2.visible:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.visible:=false;
button4.visible:=false;
panel1.visible:=true;
panel2.visible:=false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.visible:=false;
button4.visible:=false;
panel1.visible:=false;
panel2.visible:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
Var
   MyFile:TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);
for i:=0 to memo1.lines.count-1 do
  Writeln(MyFile, memo1.lines[i]);
  System.CloseFile(MyFile);
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
filelistbox1.directory:=directorylistbox1.directory;
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
directorylistbox1.drive:=drivecombobox1.drive;
end;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
for i:=0 to filelistbox1.items.count-1 do
if filelistbox1.selected[i] then
Begin
s:=ExtractFileExt(filelistbox1.items[i]);
f:=filelistbox1.items[i];
temp:='';
for j:=2 to length(s) do
temp:=temp+s[j];
ex:=temp;
End;
if ex<>'' then
Begin
if (ex='txt') or (ex='doc') then
   Begin
        strpcopy(cmd,'notepad '+f);
        winexec(cmd,Sw_shownormal);
   End;
if (ex='bmp') then
   Begin
        strpcopy(cmd,'pbrush '+f);
        winexec(cmd,Sw_shownormal);
   End;

if (ex='com') or (ex='exe') then
begin
r.edit1.text:=f;
r.show;
end;
End;
ex:='';

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
d.edit1.text:=filelistbox1.directory;
d.show;
end;

procedure TForm1.CClick(Sender: TObject);
begin
for i:=0 to filelistbox1.items.count-1 do
if filelistbox1.selected[i] then
Begin
     f:=filelistbox1.items[i];
     ti.label1.caption:=f;
     ti.show;
End;
getdir(0,gdd);
filelistbox1.directory:='c:\';
filelistbox1.directory:=gdd;
end;

procedure TForm1.b6Click(Sender: TObject);
begin
winexec('notepad quake.txt',SW_ShowNormal);
end;

procedure TForm1.Button7Click(Sender: TObject);
var
   fi:textFile;
begin
st:='';
tag:=0;
For i:=1 to 26 do
if fileexists(chr(66+i)+':\Quake\id1\pak0.pak') then tag:=i;
if tag in [1..26] then
Begin
StrpCopy(cmd,tt+'qube -kX '+chr(66+tag)+':\Quake\id1\pak0.pak');
chdir(chr(66+tag)+':\quake\id1');
Winexec(cmd,SW_ShowNormal);
End;
if tag=0 then where.show;
tag:=0;
chdir(tt);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
Winexec('\adquedit\adquedit',SW_ShowMaximized);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
winexec('notepad help.txt',sw_Shownormal);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
winexec('quakemon',SW_ShowMaximized);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
tag:=0;
For i:=1 to 26 do
if fileexists(chr(66+i)+':\Quake\quake.exe') then
begin
tag:=i;
strpcopy(cmd,chr(66+i)+':\Quake\quake.exe');
winexec(cmd,SW_ShowNormal);
end;
if tag=0 then
   if opendialog1.execute then
      Begin
      StrpCopy(cmd,opendialog1.filename);
      winexec(cmd,SW_ShowNormal);
      end;
tag:=0;

end;

procedure TForm1.Button11Click(Sender: TObject);
begin
For i:=0 to filelistbox1.items.count-1 do
if filelistbox1.selected[i] then
begin
ren.label1.caption:=filelistbox1.filename;
ren.show;
end;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
getdir(0,tt);
where.label2:=tt;
end;

end.