type TDlg_Extract = class(TForm)
Name | Description |
---|---|
Btn_Start | |
CancelBtn | |
ComPrg | |
CurPkg | |
CurPrg | |
CurTex | |
ExtractMode | Extraction Mode: 1 - single package; 2 - all packages in current directory |
ExtractThread | thread object which extracts the actual textures: TExtractThread |
Extract_MipMaps | |
FileCount | count of packages in list (only if all packages will be extracted) |
FileList | array which contains a list of all packages including pathes (only if all packages in current directory will be extracted) |
FileName | path & name of texture package |
GroupBox1 | |
GroupBox2 | |
GroupBox3 | |
Image1 | |
InProgress | boolean variable which shows if a extraction process is currently in progress |
Label1 | |
Label10 | |
Label23 | |
Label3 | |
Label4 | |
Label5 | |
Label6 | |
Label9 | |
lblTime | |
lblTimeLeft | |
Panel1 | |
PkgCount | |
Preserve_Groups | |
TexCount | |
TextureId | index of texture into ExportTable (only if single texture will be exported) |
txtExtractTo |
procedure Btn_StartClick(Sender: TObject); |
Starts the extraction process.
procedure CancelBtnClick(Sender: TObject); |
Cancels extraction process
procedure Complete; |
Controls the extraction-thread for a multiple packages
procedure FormShow(Sender: TObject); |
Currently disabled
function ShowModal : Integer; override; |
Does some precalculations (like determining the amount of textures/packages)
procedure Single; |
Controls the extraction-thread for a single package
None.