TorqueGameEngines/Torque3D
1
0
Fork 0
mirror of https://github.com/TorqueGameEngines/Torque3D.git synced 2026-07-16 09:04:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Engine directory for ticket #1

Browse source
This commit is contained in:
DavidWyand-GG 2012-09-19 11:15:01 -04:00
parent 352279af7a
commit 7dbfe6994d
3795 changed files with 1363358 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
Engine/lib/lmng/bcb/mngview/MNGI.ICO Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 766 B

573
Engine/lib/lmng/bcb/mngview/Main.cpp Normal file
View file

@ -0,0 +1,573 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <stdlib.h> // for : malloc & free
#include "Main.h"
/****************************************************************************}
{* For conditions of distribution and use, *}
{* see copyright notice in libmng.pas *}
{****************************************************************************}
{* *}
{* project : libmng *}
{* file : main.pas copyright (c) 2000 G.Juyn *}
{* version : 1.0.1 *}
{* *}
{* purpose : Main form for mngview application *}
{* *}
{* author : G.Juyn *}
{* web : http://www.3-t.com *}
{* email : mailto:info@3-t.com *}
{* *}
{* comment : this is the heart of the mngview applciation *}
{* *}
{* changes : This project is a converted version of "mngview" - AP *}
{* - AP - 15/9/2000 - revisions ... *}
{* - made the callbacks calling convention explicit *}
(* - Moved the defines from "project options" to "main.h" *}
{* - Added Readme.txt to the project - Please READ IT ! *}
(* *}
{* 0.5.1 - 05/02/2000 - G.Juyn *}
{* - added this version block *}
{* - made the initialization part more robust *}
{* eg. program aborts on initialization errors *}
{* - B002(105797) - added check for existence of default sRGB *}
{* profile (now included in distribution) *}
{* - added mng_cleanup to program exit *}
{* 0.5.1 - 05/08/2000 - G.Juyn *}
{* - changed to stdcall convention *}
{* 0.5.1 - 05/11/2000 - G.Juyn *}
{* - changed callback function declarations *}
{* *}
{* 0.5.3 - 06/16/2000 - G.Juyn *}
{* - removed processmessages call from refresh callback *}
{* 0.5.3 - 06/17/2000 - G.Juyn *}
{* - switched "storechunks" off *}
{* 0.5.3 - 06/26/2000 - G.Juyn *}
{* - changed definition of userdata to mng_ptr *}
{* 0.5.3 - 06/28/2000 - G.Juyn *}
{* - changed the default icon to something more appropriate *}
{* - changed definition of memory alloc size to mng_size_t *}
{* 0.5.3 - 06/29/2000 - G.Juyn *}
{* - changed order of refresh parameters *}
{* *}
{* 0.9.0 - 06/30/2000 - G.Juyn *}
{* - changed refresh parameters to 'x,y,width,height' *}
{* *}
{* 0.9.1 - 07/08/2000 - G.Juyn *}
{* - fixed to use returncode constants *}
{* - changed to accomodate MNG_NEEDTIMERWAIT returncode *}
{* 0.9.1 - 07/10/2000 - G.Juyn *}
{* - changed to use suspension-mode *}
{* *}
{* 1.0.1 - 05/02/2000 - G.Juyn *}
{* - removed loading of default sRGB profile (auto in libmng) *}
{* *}
{****************************************************************************/
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
# define _OR_ |
# define _AND_ &
# define _DIV_ /
# define _NOT_ !
# define _NIL_ 0
# define _SHR_ >>
# define _SHL_ <<
// Prototypes for static functions - the LibMng Callbacks.
static mng_ptr __stdcall Memalloc( mng_uint32 iLen );
static void __stdcall Memfree( mng_ptr iPtr, mng_size_t iLen );
static mng_bool __stdcall Openstream( mng_handle hHandle );
static mng_bool __stdcall Closestream( mng_handle hHandle );
static mng_bool __stdcall Readdata ( mng_handle hHandle, mng_ptr pBuf,
mng_uint32 iBuflen, mng_uint32 *pRead );
static mng_bool __stdcall ProcessHeader ( mng_handle hHandle,
mng_uint32 iWidth, mng_uint32 iHeight );
static mng_ptr __stdcall GetCanvasLine ( mng_handle hHandle,
mng_uint32 iLinenr );
static mng_ptr __stdcall GetAlphaLine( mng_handle hHandle, mng_uint32 iLinenr );
static mng_bool __stdcall ImageRefresh ( mng_handle hHandle,
mng_uint32 iX, mng_uint32 iY, mng_uint32 iWidth, mng_uint32 iHeight );
static mng_uint32 __stdcall GetTickCount( mng_handle hHandle );
static mng_bool __stdcall SetTimer( mng_handle hHandle, mng_uint32 iMsecs );
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
static mng_ptr __stdcall Memalloc( mng_uint32 iLen )
{
mng_ptr pResult =
malloc( iLen ); /* get memory from the heap */
if( pResult ) /* Added - condition */
memset( pResult, 0, iLen );
return pResult;
}
//---------------------------------------------------------------------------
static void __stdcall Memfree( mng_ptr iPtr, mng_size_t iLen )
{
free( iPtr ); /* free the memory */
(void)iLen; // Kill compiler warning
}
//---------------------------------------------------------------------------
static mng_bool __stdcall Openstream( mng_handle hHandle )
{
TMainForm *OHForm;
/* get a fix on our form */
OHForm = (TMainForm *)mng_get_userdata( hHandle );
if( OHForm->OFFile != _NIL_ ) /* free previous stream (if any) */
OHForm->OFFile->Free();
/* open a new stream */
OHForm->OFFile = new TFileStream(
OHForm->SFFileName, fmOpenRead _OR_ fmShareDenyWrite);
OHForm->ProgressBar1->Position = 0; /* Added */
OHForm->ProgressBar1->Min =0; /* Added */
OHForm->ProgressBar1->Max = OHForm->OFFile->Size; /* Added */
return MNG_TRUE;
}
//---------------------------------------------------------------------------
static mng_bool __stdcall Closestream( mng_handle hHandle )
{
TMainForm *OHForm;
/* get a fix on our form */
OHForm = (TMainForm *)mng_get_userdata( hHandle );
OHForm->OFFile->Free(); /* cleanup the stream */
OHForm->OFFile = 0; /* don't use it again ! */
OHForm->ProgressBar1->Position = 0; /* Added */
return MNG_TRUE;
}
//---------------------------------------------------------------------------
static mng_bool __stdcall Readdata ( mng_handle hHandle, mng_ptr pBuf,
mng_uint32 iBuflen, mng_uint32 *pRead )
{
TMainForm *OHForm;
unsigned int IHTicks;
unsigned int IHByte1;
unsigned int IHByte2;
unsigned int IHBytesPerSec ;
/* get a fix on our form */
OHForm = (TMainForm *)mng_get_userdata( hHandle );
/* are we at EOF ? */
if( OHForm->OFFile->Position >= OHForm->OFFile->Size )
{
*pRead = 0; /* indicate so */
}
else
{
IHBytesPerSec = OHForm->IFBytesPerSec; /* fake a slow connection */
if( IHBytesPerSec > 0 )
{
IHTicks = (unsigned int)GetTickCount();
IHByte1 = (IHTicks - OHForm->IFTicks) * IHBytesPerSec;
IHByte2 = (OHForm->IFBytes + iBuflen) * 1000;
if( IHByte2 > IHByte1 ) /* Added - condition */
if( ((IHByte2 - IHByte1) _DIV_ IHBytesPerSec) > 10 )
{
Sleep( (DWORD)((IHByte2 - IHByte1) _DIV_ IHBytesPerSec) );
}
};
/* read the requested data */
*pRead = OHForm->OFFile->Read( pBuf, iBuflen);
OHForm->IFBytes = OHForm->IFBytes + *pRead;
OHForm->ProgressBar1->Position = (int)OHForm->IFBytes; /* Added */
} // end else;
return MNG_TRUE;
}
//---------------------------------------------------------------------------
static mng_bool __stdcall ProcessHeader ( mng_handle hHandle,
mng_uint32 iWidth, mng_uint32 iHeight )
{
TMainForm *OHForm;
/* get a fix on our form */
OHForm = (TMainForm *)mng_get_userdata( hHandle );
/* Added */
OHForm->Caption = ExtractFileName( OHForm->SFFileName ) +
" [" +
String( iWidth ) +
"x" +
String( iHeight ) +
"]";
OHForm->OFBitmap->Width = iWidth; /* store the new dimensions */
OHForm->OFBitmap->Height = iHeight;
OHForm->OFImage->Left = 0; /* adjust the visible component */
OHForm->OFImage->Top = 0;
OHForm->OFImage->Width = iWidth;
OHForm->OFImage->Height = iHeight;
OHForm->FormResize (OHForm); /* force re-centering the image*/
/* clear the canvas & draw an outline */
OHForm->OFBitmap->Canvas->Brush->Color = clGray;
OHForm->OFBitmap->Canvas->Brush->Style = bsSolid;
OHForm->OFBitmap->Canvas->FillRect( OHForm->OFBitmap->Canvas->ClipRect );
OHForm->OFBitmap->Canvas->Brush->Color = clRed;
OHForm->OFBitmap->Canvas->Brush->Style = bsSolid;
OHForm->OFBitmap->Canvas->Pen->Color = clRed;
OHForm->OFBitmap->Canvas->Pen->Style = psSolid;
OHForm->OFBitmap->Canvas->FrameRect( OHForm->OFBitmap->Canvas->ClipRect);
/* make sure it gets out there */
OHForm->OFImage->Picture->Assign( OHForm->OFBitmap );
/* tell the library we want funny windows-bgr*/
if( mng_set_canvasstyle( hHandle, MNG_CANVAS_BGR8 ) )
OHForm->MNGerror( "libmng reported an error setting the canvas style" );
return MNG_TRUE;
}
//---------------------------------------------------------------------------
static mng_ptr __stdcall GetCanvasLine ( mng_handle hHandle,
mng_uint32 iLinenr )
{
TMainForm *OHForm;
/* get a fix on our form */
OHForm = (TMainForm *)mng_get_userdata( hHandle );
/* easy with these bitmap objects ! */
return OHForm->OFBitmap->ScanLine[ iLinenr ];
}
//---------------------------------------------------------------------------
static mng_bool __stdcall ImageRefresh ( mng_handle hHandle,
mng_uint32 iX, mng_uint32 iY, mng_uint32 iWidth, mng_uint32 iHeight )
{
TMainForm *OHForm;
/* get a fix on our form */
OHForm = (TMainForm *)mng_get_userdata( hHandle );
/* force redraw */
OHForm->OFImage->Picture->Assign( OHForm->OFBitmap );
return MNG_TRUE;
}
//---------------------------------------------------------------------------
static mng_uint32 __stdcall GetTickCount( mng_handle hHandle )
{
return GetTickCount(); /* windows knows that */
}
//---------------------------------------------------------------------------
static mng_bool __stdcall SetTimer( mng_handle hHandle, mng_uint32 iMsecs )
{
TMainForm *OHForm;
/* get a fix on our form */
OHForm = (TMainForm *)mng_get_userdata( hHandle );
OHForm->OFTimer->Interval = iMsecs; /* and set the timer */
OHForm->OFTimer->Enabled = true;
return MNG_TRUE;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
String SHProfileName;
mng_uint16 IHRed, IHGreen, IHBlue; /* word */
OFBitmap = new Graphics::TBitmap(); /* initialize */
IFBytesPerSec = 10000000;
OFFile = 0;
OFOpenDialog->InitialDir = "";
OFBitmap->HandleType = bmDIB; /* make it a 24-bit DIB */
OFBitmap->PixelFormat = pf24bit;
/* now initialize the library */
IFHandle = mng_initialize( mng_ptr(this), Memalloc, Memfree, _NIL_ );
if( IFHandle == _NIL_ )
{
MNGerror ("libmng initializiation error"\
"\n"\
"Program aborted"
);
PostMessage( Handle, WM_CLOSE, 0, 0);
return; // was Exit
};
/* no need to store chunk-info ! */
mng_set_storechunks( IFHandle, MNG_FALSE );
/* use suspension-buffer */
mng_set_suspensionmode( IFHandle, MNG_TRUE );
/* set all the callbacks */
if(
(mng_setcb_openstream (IFHandle, Openstream ) != MNG_NOERROR) _OR_
(mng_setcb_closestream (IFHandle, Closestream ) != MNG_NOERROR) _OR_
(mng_setcb_readdata (IFHandle, Readdata ) != MNG_NOERROR) _OR_
(mng_setcb_processheader(IFHandle, ProcessHeader) != MNG_NOERROR) _OR_
(mng_setcb_getcanvasline(IFHandle, GetCanvasLine) != MNG_NOERROR) _OR_
(mng_setcb_refresh (IFHandle, ImageRefresh ) != MNG_NOERROR) _OR_
(mng_setcb_gettickcount (IFHandle, GetTickCount ) != MNG_NOERROR) _OR_
(mng_setcb_settimer (IFHandle, SetTimer ) != MNG_NOERROR)
)
{
MNGerror ("libmng reported an error setting a callback function!"\
"\n"\
"Program aborted"
);
PostMessage( Handle, WM_CLOSE, 0, 0 );
return; // was Exit
};
/* supply our own bg-color */
IHRed = (mng_uint16)((Color ) _AND_ 0xFF);
IHGreen = (mng_uint16)((Color _SHR_ 8) _AND_ 0xFF);
IHBlue = (mng_uint16)((Color _SHR_ 16) _AND_ 0xFF);
IHRed = (mng_uint16)((IHRed _SHL_ 8) + IHRed);
IHGreen = (mng_uint16)((IHGreen _SHL_ 8) + IHGreen);
IHBlue = (mng_uint16)((IHBlue _SHL_ 8) + IHBlue);
if( mng_set_bgcolor (IFHandle, IHRed, IHGreen, IHBlue) != MNG_NOERROR )
MNGerror( "libmng reported an error setting the background color!");
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCloseQuery(TObject *Sender,
bool &CanClose)
{
BFCancelled = true;
/* if we're still animating then stop it */
if( OFTimer->Enabled )
{
if( mng_display_freeze (IFHandle) != MNG_NOERROR )
MNGerror ("libmng reported an error during display_freeze!" );
}
OFTimer->Enabled = false;
mng_cleanup( &IFHandle );
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormShow(TObject *Sender)
{
FormResize( this );
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormResize(TObject *Sender)
{
/* center the image in the window */
if( ClientWidth < OFImage->Width )
OFImage->Left = 0;
else
OFImage->Left = (ClientWidth - OFImage->Width ) _DIV_ 2;
if( ClientHeight < OFImage->Height )
OFImage->Top = 0;
else
OFImage->Top = (ClientHeight - OFImage->Height) _DIV_ 2;
ProgressBar1->Width = Panel1->Width - 8; /* Added */
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
/* pressing <esc> will freeze an animation */
if( Key == VK_ESCAPE )
{
if( OFTimer->Enabled )
{
if( mng_display_freeze( IFHandle) != MNG_NOERROR )
MNGerror( "libmng reported an error during display_freeze!" );
}
OFTimer->Enabled = false; /* don't let that timer go off then ! */
BFCancelled = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OFTimerTimer(TObject *Sender)
{
mng_retcode IHRslt;
OFTimer->Enabled = false; /* only once ! */
if( _NOT_ BFCancelled )
{
/* and inform the library */
IHRslt = mng_display_resume( IFHandle );
if( (IHRslt != MNG_NOERROR) _AND_ (IHRslt != MNG_NEEDTIMERWAIT) )
MNGerror( "libmng reported an error during display_resume!" );
};
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OFMenuFileOpenClick(TObject *Sender)
{
mng_retcode IHRslt;
OFOpenDialog->InitialDir = "";
OFOpenDialog->InitialDir = GetCurrentDir(); //@@
OFOpenDialog->FileName = SFFileName;
if( OFOpenDialog->Execute() ) /* get the filename */
{
if( OFTimer->Enabled ) /* if the lib was active; stop it */
{
OFTimer->Enabled = false;
Application->ProcessMessages(); /* process any timer requests (for safety) */
/* now freeze the animation */
if( mng_display_freeze( IFHandle ) != MNG_NOERROR )
MNGerror( "libmng reported an error during display_freeze!" );
};
/* save interesting fields */
SFFileName = OFOpenDialog->FileName;
IFTicks = GetTickCount();
IFBytes = 0;
BFCancelled = false;
/* always reset (just in case) */
if( mng_reset( IFHandle ) != MNG_NOERROR )
{
MNGerror( "libmng reported an error during reset!" );
}
else
{
/* and let the lib do it's job ! */
IHRslt = mng_readdisplay (IFHandle);
if( (IHRslt != MNG_NOERROR) _AND_ (IHRslt != MNG_NEEDTIMERWAIT) )
MNGerror( "libmng reported an error reading the input file!" );
};
};
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OFMenuFileProfileClick(TObject *Sender)
{
char SHProfileDir[ MAX_PATH ];
GetSystemDirectory( SHProfileDir, MAX_PATH );
strcat( SHProfileDir, "\\Color" );
OFOpenDialogProfile->InitialDir = String( SHProfileDir );
if( OFOpenDialogProfile->Execute() )
{
if( mng_set_outputprofile( IFHandle, OFOpenDialogProfile->FileName.c_str()) != 0 )
MNGerror( "libmng reported an error setting the output-profile!" );
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OFMenuFileExitClick(TObject *Sender)
{
if( mng_cleanup( &IFHandle ) != MNG_NOERROR )
MNGerror( "libmng cleanup error" );
Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OFMenuOptionsModemSpeedClick(TObject *Sender)
{
OFMenuOptionsModem28k8->Checked = false;
OFMenuOptionsModem33k6->Checked = false;
OFMenuOptionsModem56k->Checked = false;
OFMenuOptionsModemISDN64->Checked = false;
OFMenuOptionsModemISDN128->Checked = false;
OFMenuOptionsModemCable512->Checked = false;
OFMenuOptionsModemUnlimited->Checked = false;
if( IFBytesPerSec == (unsigned int)OFMenuOptionsModem28k8->Tag _DIV_ 10 )
OFMenuOptionsModem28k8->Checked = true;
else
if( IFBytesPerSec == (unsigned int)OFMenuOptionsModem33k6->Tag _DIV_ 10 )
OFMenuOptionsModem33k6->Checked = true;
else
if( IFBytesPerSec == (unsigned int)OFMenuOptionsModem56k->Tag _DIV_ 10 )
OFMenuOptionsModem56k->Checked = true;
else
if( IFBytesPerSec == (unsigned int)OFMenuOptionsModemISDN64->Tag _DIV_ 10 )
OFMenuOptionsModemISDN64->Checked = true;
else
if( IFBytesPerSec == (unsigned int)OFMenuOptionsModemISDN128->Tag _DIV_ 10 )
OFMenuOptionsModemISDN128->Checked = true;
else
/* Added - changedit was the line below ! */
// if( IFBytesPerSec == (unsigned int)OFMenuOptionsModemUnlimited->Tag _DIV_ 10 )
if( IFBytesPerSec == (unsigned int)OFMenuOptionsModemCable512->Tag _DIV_ 10 )
OFMenuOptionsModemCable512->Checked = true;
else
OFMenuOptionsModemUnlimited->Checked = true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OFMenuOptionsModemXClick(TObject *Sender)
{
IFBytesPerSec = ((TMenuItem*)Sender)->Tag _DIV_ 10;
}
//---------------------------------------------------------------------------
void TMainForm::MNGerror( String SHMsg )
{
/* get extended info */
mng_uint32 iErrorcode;
mng_uint8 iSeverity;
mng_chunkid iChunkname;
mng_uint32 iChunkseq;
mng_int32 iExtra1;
mng_int32 iExtra2;
mng_pchar zErrortext;
char szFormatStr[ 256 ];
iErrorcode = mng_getlasterror (IFHandle, &iSeverity,
&iChunkname, &iChunkseq, &iExtra1, &iExtra2,
(mng_pchar*)&zErrortext);
wsprintf( szFormatStr,
"Error = %d; Severity = %d; Chunknr = %d; Extra1 = %d",
(int)iErrorcode, (int)iSeverity, (int)iChunkseq, (int)iExtra1
);
MessageDlg( SHMsg +
"\n\n" +
String(zErrortext) +
"\n\n" +
szFormatStr, /* see wsprintf above */
mtError,
TMsgDlgButtons() << mbOK,
0
);
}
//---------------------------------------------------------------------------

BIN
Engine/lib/lmng/bcb/mngview/Main.dfm Normal file
View file

Binary file not shown.

84
Engine/lib/lmng/bcb/mngview/Main.h Normal file
View file

@ -0,0 +1,84 @@
//---------------------------------------------------------------------------
#ifndef MainH
#define MainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
// These MUST be defined before we include "Libmng.h
# define MNG_SUPPORT_READ
# define MNG_ACCESS_CHUNKS
# define MNG_STORE_CHUNKS
# define MNG_NO_CMS
# define MNG_USE_DLL
# define MNG_SUPPORT_DISPLAY
# define MNG_SKIP_ZLIB // we don't need the zlib definitions here
# define MNG_SKIP_IJG6B // we don't need the IJG definitions here
#include "libmng.h"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TMainMenu *OFMainMenu;
TMenuItem *OFMenuFile;
TMenuItem *OFMenuFileOpen;
TMenuItem *OFMenuFileProfile;
TMenuItem *OFMenuFileN1;
TMenuItem *OFMenuFileExit;
TMenuItem *OFMenuOptions;
TMenuItem *OFMenuOptionsModemSpeed;
TMenuItem *OFMenuOptionsModem28k8;
TMenuItem *OFMenuOptionsModem33k6;
TMenuItem *OFMenuOptionsModem56k;
TMenuItem *OFMenuOptionsModemISDN64;
TMenuItem *OFMenuOptionsModemISDN128;
TMenuItem *OFMenuOptionsModemCable512;
TMenuItem *OFMenuOptionsModemUnlimited;
TOpenDialog *OFOpenDialog;
TTimer *OFTimer;
TOpenDialog *OFOpenDialogProfile;
TImage *OFImage;
TPanel *Panel1;
TProgressBar *ProgressBar1;
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
void __fastcall FormShow(TObject *Sender);
void __fastcall FormResize(TObject *Sender);
void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall OFTimerTimer(TObject *Sender);
void __fastcall OFMenuFileOpenClick(TObject *Sender);
void __fastcall OFMenuFileProfileClick(TObject *Sender);
void __fastcall OFMenuFileExitClick(TObject *Sender);
void __fastcall OFMenuOptionsModemSpeedClick(TObject *Sender);
void __fastcall OFMenuOptionsModemXClick(TObject *Sender);
private: // User declarations
public :
// Data - was private in the pascal version
String SFFileName; /* filename of the input stream */
TFileStream *OFFile; /* input stream */
mng_handle IFHandle; /* the libray handle */
Graphics::TBitmap *OFBitmap; /* drawing canvas */
# ifdef TEST_RGB8_A8
void *OFAlpha;
# endif
bool BFCancelled; /* <esc> or app-exit */
unsigned int IFTicks; /* used to fake slow connections */
unsigned int IFBytes;
unsigned int IFBytesPerSec;
// Methods
void MNGerror( String SHMsg );
public: // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif

187
Engine/lib/lmng/bcb/mngview/MngView.bpr Normal file
View file

@ -0,0 +1,187 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.03
# ---------------------------------------------------------------------------
PROJECT = MngView.exe
OBJFILES = MngView.obj Main.obj
RESFILES = MngView.res
DEFFILE =
RESDEPEN = $(RESFILES) Main.dfm
LIBFILES = ..\win32dll\libmng.lib
LIBRARIES = VCL35.lib
SPARELIBS = VCL35.lib
PACKAGES = VCLX35.bpi VCL35.bpi VCLDB35.bpi VCLDBX35.bpi bcbsmp35.bpi dclocx35.bpi \
QRPT35.bpi
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
# ---------------------------------------------------------------------------
CFLAG1 = -Od -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tW
CFLAG2 = -I$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\..\zlib;..\..\..\jpgsrc6b
CFLAG3 = -Tkh30000 -6
PFLAGS = -U$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\..\zlib;..\..\..\jpgsrc6b -$Y \
-$W -$O- -v -JPHN -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\..\zlib;..\..\..\jpgsrc6b
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /i..\.. /i..\..\..\zlib \
/i..\..\..\jpgsrc6b /mx /w2 /zd /dMNG_USE_DLL
LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -aa -Tpe -x -Gn
IFLAGS =
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2057
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=8
Item0=$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\..\zlib;..\..\..\jpgsrc6b
Item1=$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\..\zlib;..\..\..\jpgsrc6b;..\win32dll
Item2=$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\..\zlib;..\..\..\ijgsrc6b
Item3=$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\..\zlib;..\..\..\libjpeg
Item4=$(BCB)\include;$(BCB)\include\vcl;..\..;..\..\zlib
Item5=$(BCB)\include;$(BCB)\include\vcl;..\..
Item6=$(BCB)\include;$(BCB)\include\vcl
Item7=..\..\delphi;$(BCB)\include;$(BCB)\include\vcl
[HistoryLists\hlLibraryPath]
Count=2
Item0=$(BCB)\lib\obj;$(BCB)\lib
Item1=..\..\delphi;$(BCB)\lib\obj;$(BCB)\lib
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[HistoryLists\hlConditionals]
Count=3
Item0=MNG_USE_DLL
Item1=_RTLDLL
Item2=_RTLDLL;USEPACKAGES
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

23
Engine/lib/lmng/bcb/mngview/MngView.cpp Normal file
View file

@ -0,0 +1,23 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("MngView.res");
USEFORM("Main.cpp", MainForm);
USEFILE("README.txt");
USELIB("..\win32dll\libmng.lib");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
Engine/lib/lmng/bcb/mngview/MngView.res Normal file
View file

Binary file not shown.

22
Engine/lib/lmng/bcb/mngview/README.TXT Normal file
View file

@ -0,0 +1,22 @@
Please note :
If your project includes the header file "Rpcndr.h", then
you will then have to define "HAVE_BOOLEAN" before "libmng.h"
is included. Why ? ...
"jmorecfg.h" has
#ifndef HAVE_BOOLEAN
typedef int boolean;
#endif
and "Rpcndr.h" has
typedef unsigned char boolean
This >>MAY<< affect other libraries used in the same project
that depend on the jpeg source - especially as "boolean" is
used in structures (possible alignment problems). For example
"Sam leffler's" LibTiff can be built with the Jpeg codec.
Just a little something to be aware of !. AP - 15/9/2000.