type TDlg_TextureDetails = class(TForm)
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
None.