UNITS
CLASSES, INTERFACES, OBJECTS
TYPES
VARIABLES
CONSTANTS
FUNCTIONS, PROCEDURES
IDENTIFIERS

Class TMainForm

Unit

Main

Declaration

type TMainForm = class(TForm)

Fields

NameDescription
About1  
Actions1  
AddtoExistingPackage1  
AllPackages1  
AllPackages2  
AllPackagesinCurrentDirectory1  
AllPackagesnotrecommended1  
BasePanel  
CopytClipboard1  
CreateAdd1  
CreateNewPackage1  
CurrentPackage1  
CurrentPackage2  
Directory init vars
Directory_Desc  
DisplayFullsizePreview1  
DisplayLogfile1  
DisplayTextureFullsize1  
Exit1  
Export1  
Export2BMP  
Fav_Node  
File1  
FilterBtn  
FilterText  
GroupBox1  
GroupBox2  
Help1  
image1  
Information1  
lbltitleText  
LoadPreset1  
MainMenu1  
Manual1  
N1  
N10  
N11  
N12  
N2  
N3  
N4  
N5  
N6  
N7  
N8  
N9  
OpenDetails  
OpenGLPanel display actual preview of texture
OpenGL_TexSize  
OpenGL_Timer  
OpenPackage1  
OpenPackageDlg  
PackageWriter1  
Panel_PkgList  
Panel_Scroll  
PerformanceTest1  
PImg displays texture's internal package
PkgLabel displays texture name and count
Pkg_TreeView  
PnlStatus  
PosTop  
PPanel  
Preferences1  
PreviewColumns  
PreviewCount  
PreviewRows  
PreviewScrollBar  
Print1  
PrinterDialog  
Resolution  
SaveDir  
SearchList  
ShowTextureDetails1  
StatusBar  
StatusBarPanel  
TexId working vars
TexLabel contains labels and images of each texture
TexturePopup  
TilePreview1  
TileTexture1  
TitlePanel  
UseOpenGL  
Utilities1  
UTPackage_Load package file

Methods

Overview

procedure About1Click(Sender: TObject);
procedure AllPackages1Click(Sender: TObject);
procedure App_Log( Text : string; Icon : BYTE );
procedure CloseBtnClick(Sender: TObject);
procedure CopytClipboard1Click(Sender: TObject);
procedure CurrentPackage1Click(Sender: TObject);
procedure CurrentPackage2Click(Sender: TObject);
procedure DisplayLogfile1Click(Sender: TObject);
procedure DisplayTextureFullsize1Click(Sender: TObject);
procedure DrawPreviews( Position : integer);
procedure Export2BMPClick(Sender: TObject);
procedure FilterBtnClick(Sender: TObject);
procedure FilterTextKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Information1Click(Sender: TObject);
procedure MyException(Sender: TObject; E: Exception);
procedure OpenGL_TimerTimer(Sender: TObject);
procedure OpenPackage1Click(Sender: TObject);
procedure PackageListClick(Sender: TObject);
procedure PerformanceBtnClick(Sender: TObject);
procedure Pkg_TreeViewClick(Sender: TObject);
procedure Preferences1Click(Sender: TObject);
procedure PreviewScrollBarChange(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
procedure ShowHint(Sender: TObject);
procedure ShowTextureDetails1Click(Sender: TObject);
procedure TexPanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TilePreview1Click(Sender: TObject);

Description

procedure About1Click(Sender: TObject);

 

procedure AllPackages1Click(Sender: TObject);

 

procedure App_Log( Text : string; Icon : BYTE );

 

procedure CloseBtnClick(Sender: TObject);

 

procedure CopytClipboard1Click(Sender: TObject);

 

procedure CurrentPackage1Click(Sender: TObject);

 

procedure CurrentPackage2Click(Sender: TObject);

 

procedure DisplayLogfile1Click(Sender: TObject);

 

procedure DisplayTextureFullsize1Click(Sender: TObject);

 

procedure DrawPreviews( Position : integer);

 

procedure Export2BMPClick(Sender: TObject);

 

procedure FilterBtnClick(Sender: TObject);

 

procedure FilterTextKeyPress(Sender: TObject; var Key: Char);

 

procedure FormClose(Sender: TObject; var Action: TCloseAction);

 

procedure FormCreate(Sender: TObject);

 

procedure FormShow(Sender: TObject);

 

procedure Information1Click(Sender: TObject);

 

procedure MyException(Sender: TObject; E: Exception);

 

procedure OpenGL_TimerTimer(Sender: TObject);

 

procedure OpenPackage1Click(Sender: TObject);

 

procedure PackageListClick(Sender: TObject);

 

procedure PerformanceBtnClick(Sender: TObject);

 

procedure Pkg_TreeViewClick(Sender: TObject);

 

procedure Preferences1Click(Sender: TObject);

 

procedure PreviewScrollBarChange(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

 

procedure ShowHint(Sender: TObject);

 

procedure ShowTextureDetails1Click(Sender: TObject);

 

procedure TexPanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

 

procedure TilePreview1Click(Sender: TObject);

 

Properties

None.


Generated by pasdoc 0.6.20 on Wed 20 Mar 2002 20:59:34