475 lines
15 KiB
ObjectPascal
475 lines
15 KiB
ObjectPascal
{***************************************************************************}
|
|
{ This source code was generated automatically by }
|
|
{ Pas file import tool for Scripter Studio }
|
|
{ }
|
|
{ Scripter Studio and Pas file import tool for Scripter Studio }
|
|
{ written by Automa / TMS Software }
|
|
{ copyright © 1997 - 2003 }
|
|
{ Email : info@tmssoftware.com }
|
|
{ Web : http://www.tmssoftware.com }
|
|
{***************************************************************************}
|
|
unit ap_FileCtrl;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows,
|
|
Messages,
|
|
SysUtils,
|
|
Classes,
|
|
Controls,
|
|
Graphics,
|
|
Forms,
|
|
Menus,
|
|
StdCtrls,
|
|
Buttons,
|
|
FileCtrl,
|
|
Variants,
|
|
atScript;
|
|
|
|
type
|
|
TatFileCtrlLibrary = class(TatScripterLibrary)
|
|
procedure __TFileListBoxCreate(AMachine: TatVirtualMachine);
|
|
procedure __TFileListBoxDestroy(AMachine: TatVirtualMachine);
|
|
procedure __TFileListBoxUpdate(AMachine: TatVirtualMachine);
|
|
procedure __TFileListBoxApplyFilePath(AMachine: TatVirtualMachine);
|
|
procedure __GetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
|
procedure __SetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
|
procedure __GetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
|
procedure __SetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
|
procedure __GetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
|
procedure __SetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
|
procedure __TDirectoryListBoxCreate(AMachine: TatVirtualMachine);
|
|
procedure __TDirectoryListBoxDestroy(AMachine: TatVirtualMachine);
|
|
procedure __TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine);
|
|
procedure __TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine);
|
|
procedure __TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine);
|
|
procedure __TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine);
|
|
procedure __TDirectoryListBoxUpdate(AMachine: TatVirtualMachine);
|
|
procedure __GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
|
procedure __SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
|
procedure __GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
|
procedure __SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
|
procedure __GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine);
|
|
procedure __GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine);
|
|
procedure __TDriveComboBoxCreate(AMachine: TatVirtualMachine);
|
|
procedure __TDriveComboBoxDestroy(AMachine: TatVirtualMachine);
|
|
procedure __GetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
|
procedure __SetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
|
procedure __TFilterComboBoxCreate(AMachine: TatVirtualMachine);
|
|
procedure __TFilterComboBoxDestroy(AMachine: TatVirtualMachine);
|
|
procedure __GetTFilterComboBoxMask(AMachine: TatVirtualMachine);
|
|
procedure __ProcessPath(AMachine: TatVirtualMachine);
|
|
procedure __MinimizeName(AMachine: TatVirtualMachine);
|
|
procedure __DirectoryExists(AMachine: TatVirtualMachine);
|
|
procedure __ForceDirectories(AMachine: TatVirtualMachine);
|
|
procedure Init; override;
|
|
class function LibraryName: string; override;
|
|
end;
|
|
|
|
TFileListBoxClass = class of TFileListBox;
|
|
TDirectoryListBoxClass = class of TDirectoryListBox;
|
|
TDriveComboBoxClass = class of TDriveComboBox;
|
|
TFilterComboBoxClass = class of TFilterComboBox;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
{$WARNINGS OFF}
|
|
|
|
|
|
|
|
procedure TatFileCtrlLibrary.__TFileListBoxCreate(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := Integer(TFileListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TFileListBoxDestroy(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TFileListBox(CurrentObject).Destroy;
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TFileListBoxUpdate(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TFileListBox(CurrentObject).Update;
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TFileListBoxApplyFilePath(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TFileListBox(CurrentObject).ApplyFilePath(GetInputArg(0));
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TFileListBox(CurrentObject).Drive);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__SetTFileListBoxDrive(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TFileListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TFileListBox(CurrentObject).Directory);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__SetTFileListBoxDirectory(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TFileListBox(CurrentObject).Directory:=GetInputArg(0);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TFileListBox(CurrentObject).FileName);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__SetTFileListBoxFileName(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TFileListBox(CurrentObject).FileName:=GetInputArg(0);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDirectoryListBoxCreate(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := Integer(TDirectoryListBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDirectoryListBoxDestroy(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TDirectoryListBox(CurrentObject).Destroy;
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDirectoryListBoxDisplayCase(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := TDirectoryListBox(CurrentObject).DisplayCase(GetInputArg(0));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDirectoryListBoxFileCompareText(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := Integer(TDirectoryListBox(CurrentObject).FileCompareText(GetInputArg(0),GetInputArg(1)));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDirectoryListBoxGetItemPath(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := TDirectoryListBox(CurrentObject).GetItemPath(VarToInteger(GetInputArg(0)));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDirectoryListBoxOpenCurrent(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TDirectoryListBox(CurrentObject).OpenCurrent;
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDirectoryListBoxUpdate(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TDirectoryListBox(CurrentObject).Update;
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TDirectoryListBox(CurrentObject).Drive);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDrive(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TDirectoryListBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TDirectoryListBox(CurrentObject).Directory);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__SetTDirectoryListBoxDirectory(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TDirectoryListBox(CurrentObject).Directory:=GetInputArg(0);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxPreserveCase(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TDirectoryListBox(CurrentObject).PreserveCase);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTDirectoryListBoxCaseSensitive(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TDirectoryListBox(CurrentObject).CaseSensitive);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDriveComboBoxCreate(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := Integer(TDriveComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TDriveComboBoxDestroy(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TDriveComboBox(CurrentObject).Destroy;
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TDriveComboBox(CurrentObject).Drive);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__SetTDriveComboBoxDrive(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TDriveComboBox(CurrentObject).Drive:=VarToStr(GetInputArg(0))[1];
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TFilterComboBoxCreate(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := Integer(TFilterComboBoxClass(CurrentClass.ClassRef).Create(TComponent(Integer(GetInputArg(0)))));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__TFilterComboBoxDestroy(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
TFilterComboBox(CurrentObject).Destroy;
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__GetTFilterComboBoxMask(AMachine: TatVirtualMachine);
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
ReturnOutputArg(TFilterComboBox(CurrentObject).Mask);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__ProcessPath(AMachine: TatVirtualMachine);
|
|
var
|
|
Param1: Char;
|
|
Param2: string;
|
|
Param3: string;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
Param1 := VarToStr(GetInputArg(1))[1];
|
|
Param2 := GetInputArg(2);
|
|
Param3 := GetInputArg(3);
|
|
FileCtrl.ProcessPath(GetInputArg(0),Param1,Param2,Param3);
|
|
SetInputArg(1,Param1);
|
|
SetInputArg(2,Param2);
|
|
SetInputArg(3,Param3);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__MinimizeName(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := FileCtrl.MinimizeName(GetInputArg(0),TCanvas(Integer(GetInputArg(1))),VarToInteger(GetInputArg(2)));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__DirectoryExists(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := FileCtrl.DirectoryExists(GetInputArg(0));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.__ForceDirectories(AMachine: TatVirtualMachine);
|
|
var
|
|
AResult: variant;
|
|
begin
|
|
with AMachine do
|
|
begin
|
|
AResult := FileCtrl.ForceDirectories(GetInputArg(0));
|
|
ReturnOutputArg(AResult);
|
|
end;
|
|
end;
|
|
|
|
procedure TatFileCtrlLibrary.Init;
|
|
begin
|
|
With Scripter.DefineClass(TFileListBox) do
|
|
begin
|
|
DefineMethod('Create',1,tkClass,TFileListBox,__TFileListBoxCreate,true);
|
|
DefineMethod('Destroy',0,tkNone,nil,__TFileListBoxDestroy,false);
|
|
DefineMethod('Update',0,tkNone,nil,__TFileListBoxUpdate,false);
|
|
DefineMethod('ApplyFilePath',1,tkNone,nil,__TFileListBoxApplyFilePath,false);
|
|
DefineProp('Drive',tkVariant,__GetTFileListBoxDrive,__SetTFileListBoxDrive,nil,false,0);
|
|
DefineProp('Directory',tkVariant,__GetTFileListBoxDirectory,__SetTFileListBoxDirectory,nil,false,0);
|
|
DefineProp('FileName',tkVariant,__GetTFileListBoxFileName,__SetTFileListBoxFileName,nil,false,0);
|
|
end;
|
|
With Scripter.DefineClass(TDirectoryListBox) do
|
|
begin
|
|
DefineMethod('Create',1,tkClass,TDirectoryListBox,__TDirectoryListBoxCreate,true);
|
|
DefineMethod('Destroy',0,tkNone,nil,__TDirectoryListBoxDestroy,false);
|
|
DefineMethod('DisplayCase',1,tkVariant,nil,__TDirectoryListBoxDisplayCase,false);
|
|
DefineMethod('FileCompareText',2,tkInteger,nil,__TDirectoryListBoxFileCompareText,false);
|
|
DefineMethod('GetItemPath',1,tkVariant,nil,__TDirectoryListBoxGetItemPath,false);
|
|
DefineMethod('OpenCurrent',0,tkNone,nil,__TDirectoryListBoxOpenCurrent,false);
|
|
DefineMethod('Update',0,tkNone,nil,__TDirectoryListBoxUpdate,false);
|
|
DefineProp('Drive',tkVariant,__GetTDirectoryListBoxDrive,__SetTDirectoryListBoxDrive,nil,false,0);
|
|
DefineProp('Directory',tkVariant,__GetTDirectoryListBoxDirectory,__SetTDirectoryListBoxDirectory,nil,false,0);
|
|
DefineProp('PreserveCase',tkVariant,__GetTDirectoryListBoxPreserveCase,nil,nil,false,0);
|
|
DefineProp('CaseSensitive',tkVariant,__GetTDirectoryListBoxCaseSensitive,nil,nil,false,0);
|
|
end;
|
|
With Scripter.DefineClass(TDriveComboBox) do
|
|
begin
|
|
DefineMethod('Create',1,tkClass,TDriveComboBox,__TDriveComboBoxCreate,true);
|
|
DefineMethod('Destroy',0,tkNone,nil,__TDriveComboBoxDestroy,false);
|
|
DefineProp('Text',tkVariant,nil,nil,nil,false,0);
|
|
DefineProp('Drive',tkVariant,__GetTDriveComboBoxDrive,__SetTDriveComboBoxDrive,nil,false,0);
|
|
end;
|
|
With Scripter.DefineClass(TFilterComboBox) do
|
|
begin
|
|
DefineMethod('Create',1,tkClass,TFilterComboBox,__TFilterComboBoxCreate,true);
|
|
DefineMethod('Destroy',0,tkNone,nil,__TFilterComboBoxDestroy,false);
|
|
DefineProp('Mask',tkVariant,__GetTFilterComboBoxMask,nil,nil,false,0);
|
|
DefineProp('Text',tkVariant,nil,nil,nil,false,0);
|
|
end;
|
|
With Scripter.DefineClass(ClassType) do
|
|
begin
|
|
DefineMethod('ProcessPath',4,tkNone,nil,__ProcessPath,false).SetVarArgs([1,2,3]);
|
|
DefineMethod('MinimizeName',3,tkVariant,nil,__MinimizeName,false);
|
|
DefineMethod('DirectoryExists',1,tkVariant,nil,__DirectoryExists,false);
|
|
DefineMethod('ForceDirectories',1,tkVariant,nil,__ForceDirectories,false);
|
|
AddConstant('ftReadOnly',ftReadOnly);
|
|
AddConstant('ftHidden',ftHidden);
|
|
AddConstant('ftSystem',ftSystem);
|
|
AddConstant('ftVolumeID',ftVolumeID);
|
|
AddConstant('ftDirectory',ftDirectory);
|
|
AddConstant('ftArchive',ftArchive);
|
|
AddConstant('ftNormal',ftNormal);
|
|
AddConstant('dtUnknown',dtUnknown);
|
|
AddConstant('dtNoDrive',dtNoDrive);
|
|
AddConstant('dtFloppy',dtFloppy);
|
|
AddConstant('dtFixed',dtFixed);
|
|
AddConstant('dtNetwork',dtNetwork);
|
|
AddConstant('dtCDROM',dtCDROM);
|
|
AddConstant('dtRAM',dtRAM);
|
|
AddConstant('tcLowerCase',tcLowerCase);
|
|
AddConstant('tcUpperCase',tcUpperCase);
|
|
AddConstant('sdAllowCreate',sdAllowCreate);
|
|
AddConstant('sdPerformCreate',sdPerformCreate);
|
|
AddConstant('sdPrompt',sdPrompt);
|
|
AddConstant('WNTYPE_DRIVE',WNTYPE_DRIVE);
|
|
end;
|
|
end;
|
|
|
|
class function TatFileCtrlLibrary.LibraryName: string;
|
|
begin
|
|
result := 'FileCtrl';
|
|
end;
|
|
|
|
initialization
|
|
RegisterScripterLibrary(TatFileCtrlLibrary, True);
|
|
|
|
{$WARNINGS ON}
|
|
|
|
end.
|