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.