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

Class TDlg_TextureDetails

Unit

App_TextureDetails

Declaration

type TDlg_TextureDetails = class(TForm)

Description

form which displays extended infos on a texture and display the texture itself (fully animated, if possible) using OpenGL

Fields

NameDescription
GroupBox5  
GroupBox7  
Image1  
Image2  
imgZoomin  
Label12  
Label14  
Label20  
Label21  
Label23  
Label24  
Label25  
Label30  
LabelMaxFrameRate  
LabelMinFrameRate  
LabelNumberofFrames  
OKBtn  
OpenGLPanel  
OpenGLTimer  
Panel1  
PropertyMemo  
TexturebMasked  
TextureDimensions  
TextureFrameCount  
TextureIsAnimated  
TextureMaxFramerate  
TextureMinFramerate  
TextureMipMapCount  
TextureName  
TexturePackage  
TextureSize  
ZoomBar  

Methods

Overview

function CreateOpenGL( const WindowHandle : HWND; Width, Height : integer ) : Boolean;
procedure DrawGL;
procedure FormHide(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure imgZoominClick(Sender: TObject);
function KillOpenGL : Boolean;
function LoadTextures: TStrings;
procedure OpenGLTimerTimer(Sender: TObject);
procedure ZoomBarChange(Sender: TObject);
procedure ZoomGL( Factor : real );

Description

function CreateOpenGL( const WindowHandle : HWND; Width, Height : integer ) : Boolean;

initialises OpenGL

procedure DrawGL;

renders the scene

procedure FormHide(Sender: TObject);

 

procedure FormShow(Sender: TObject);

 

procedure Image2Click(Sender: TObject);

zoom bar handler

procedure imgZoominClick(Sender: TObject);

zoom bar handler

function KillOpenGL : Boolean;

destroys OpenGL

function LoadTextures: TStrings;

loads the texture (and all other parts of the animation if needed)

procedure OpenGLTimerTimer(Sender: TObject);

updates the output

procedure ZoomBarChange(Sender: TObject);

zoom bar handler

procedure ZoomGL( Factor : real );

zooms in and out of the texture

Properties

None.


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