mirror of
https://github.com/love2d/love-android.git
synced 2026-08-21 21:15:34 +02:00
added dependencies and build files (loosely inspired by Sebastian Dorda's love-native-android)
This commit is contained in:
Martin Felis
Binary file not shown.
@@ -0,0 +1,555 @@
|
||||
unit Main;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Qt, QExtCtrls, QDialogs, QMenus, QTypes, QGraphics, QControls, QForms,
|
||||
SysUtils, Classes, QStdCtrls, IdGlobal,
|
||||
libmng;
|
||||
|
||||
{****************************************************************************}
|
||||
{* For conditions of distribution and use, *}
|
||||
{* see copyright notice in libmng.pas *}
|
||||
{****************************************************************************}
|
||||
{* *}
|
||||
{* project : libmng *}
|
||||
{* file : main.pas copyright (c) 2000-2002 G.Juyn *}
|
||||
{* version : 1.0.5 *}
|
||||
{* *}
|
||||
{* 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 : 1.0.5 - 09/21/2002 - G.Juyn *}
|
||||
{* - modified for Kylix use *}
|
||||
{* *}
|
||||
{****************************************************************************}
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
|
||||
OFMainMenu: TMainMenu;
|
||||
OFMenuFile: TMenuItem;
|
||||
OFMenuFileOpen: TMenuItem;
|
||||
OFMenuFileN1: TMenuItem;
|
||||
OFMenuFileExit: TMenuItem;
|
||||
|
||||
OFTimer: TTimer;
|
||||
|
||||
OFOpenDialog: TOpenDialog;
|
||||
OFPanel: TPanel;
|
||||
OFImage: TImage;
|
||||
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure FormKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
|
||||
procedure OFImageMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure OFImageMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure OFImageMouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
|
||||
procedure OFTimerTimer(Sender: TObject);
|
||||
|
||||
procedure OFMenuFileOpenClick(Sender: TObject);
|
||||
procedure OFMenuFileExitClick(Sender: TObject);
|
||||
|
||||
private
|
||||
{ Private declarations }
|
||||
|
||||
SFFileName : string; { filename of the input stream }
|
||||
OFFile : TFileStream; { input stream }
|
||||
IFHandle : mng_handle; { the libray handle }
|
||||
OFBitmap : TBitmap; { drawing canvas }
|
||||
BFCancelled : boolean; { <esc> or app-exit }
|
||||
BFHasMouse : boolean; { mouse is/was over image }
|
||||
|
||||
procedure MNGerror (SHMsg : string);
|
||||
|
||||
public
|
||||
{ Public declarations }
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function Memalloc (iLen : mng_uint32) : mng_ptr; cdecl;
|
||||
{$F-}
|
||||
begin
|
||||
getmem (Result, iLen); { get memory from the heap }
|
||||
fillchar (Result^, iLen, 0); { and initialize it }
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
procedure Memfree (iPtr : mng_ptr;
|
||||
iLen : mng_size_t); cdecl;
|
||||
{$F-}
|
||||
begin
|
||||
freemem (iPtr, iLen); { free the memory }
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function Openstream (hHandle : mng_handle) : mng_bool; cdecl;
|
||||
{$F-}
|
||||
|
||||
var OHForm : TMainForm;
|
||||
|
||||
begin { get a fix on our form }
|
||||
OHForm := TMainForm (mng_get_userdata (hHandle));
|
||||
|
||||
with OHFORM do
|
||||
begin
|
||||
if OFFile <> nil then { free previous stream (if any) }
|
||||
OFFile.Free;
|
||||
{ open a new stream }
|
||||
OFFile := TFileStream.Create (SFFileName, fmOpenRead or fmShareDenyWrite);
|
||||
end;
|
||||
|
||||
Result := MNG_TRUE;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function Closestream (hHandle : mng_handle) : mng_bool; cdecl;
|
||||
{$F-}
|
||||
|
||||
var OHForm : TMainForm;
|
||||
|
||||
begin { get a fix on our form }
|
||||
OHForm := TMainForm (mng_get_userdata (hHandle));
|
||||
|
||||
with OHFORM do
|
||||
begin
|
||||
OFFile.Free; { cleanup the stream }
|
||||
OFFile := nil; { don't use it again ! }
|
||||
end;
|
||||
|
||||
Result := MNG_TRUE;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function Readdata ( hHandle : mng_handle;
|
||||
pBuf : mng_ptr;
|
||||
iBuflen : mng_uint32;
|
||||
var pRead : mng_uint32) : mng_bool; cdecl;
|
||||
{$F-}
|
||||
|
||||
var OHForm : TMainForm;
|
||||
|
||||
begin
|
||||
{ get a fix on our form }
|
||||
OHForm := TMainForm (mng_get_userdata (hHandle));
|
||||
|
||||
with OHForm do
|
||||
begin { are we at EOF ? }
|
||||
if OFFile.Position >= OFFile.Size then
|
||||
begin
|
||||
pRead := 0; { indicate so }
|
||||
end
|
||||
else
|
||||
begin
|
||||
{ read the requested data }
|
||||
pRead := OFFile.Read (pBuf^, iBuflen);
|
||||
end;
|
||||
end;
|
||||
|
||||
Result := MNG_TRUE;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function ProcessHeader (hHandle : mng_handle;
|
||||
iWidth : mng_uint32;
|
||||
iHeight : mng_uint32) : mng_bool; cdecl;
|
||||
{$F-}
|
||||
|
||||
var OHForm : TMainForm;
|
||||
|
||||
begin { get a fix on our form }
|
||||
OHForm := TMainForm (mng_get_userdata (hHandle));
|
||||
|
||||
with OHForm do
|
||||
begin
|
||||
OFBitmap.Width := iWidth; { store the new dimensions }
|
||||
OFBitmap.Height := iHeight;
|
||||
OFBitmap.PixelFormat := pf32bit;
|
||||
|
||||
OFImage.Left := 0; { adjust the visible component }
|
||||
OFImage.Top := 0;
|
||||
OFImage.Width := iWidth;
|
||||
OFImage.Height := iHeight;
|
||||
|
||||
FormResize (OHForm); { force re-centering the image}
|
||||
{ clear the canvas & draw an outline }
|
||||
OFBitmap.Canvas.Brush.Color := clGray;
|
||||
OFBitmap.Canvas.Brush.Style := bsSolid;
|
||||
OFBitmap.Canvas.FillRect (OFBitmap.Canvas.ClipRect);
|
||||
|
||||
OFImage.Picture.Assign (OFBitmap); { make sure it gets out there }
|
||||
{ tell the library we want funny windows-bgr}
|
||||
if mng_set_canvasstyle (hHandle, MNG_CANVAS_BGRX8) <> 0 then
|
||||
MNGerror ('libmng reported an error setting the canvas style');
|
||||
|
||||
end;
|
||||
|
||||
Result := MNG_TRUE;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function GetCanvasLine (hHandle : mng_handle;
|
||||
iLinenr : mng_uint32) : mng_ptr; cdecl;
|
||||
{$F-}
|
||||
|
||||
var OHForm : TMainForm;
|
||||
|
||||
begin { get a fix on our form }
|
||||
OHForm := TMainForm (mng_get_userdata (hHandle));
|
||||
{ easy with these bitmap objects ! }
|
||||
Result := TBitmap(OHForm.OFImage.Picture.Graphic).ScanLine [iLinenr];
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function ImageRefresh (hHandle : mng_handle;
|
||||
iX : mng_uint32;
|
||||
iY : mng_uint32;
|
||||
iWidth : mng_uint32;
|
||||
iHeight : mng_uint32) : mng_bool; cdecl;
|
||||
{$F-}
|
||||
|
||||
var OHForm : TMainForm;
|
||||
|
||||
begin { get a fix on our form }
|
||||
OHForm := TMainForm (mng_get_userdata (hHandle));
|
||||
{ force redraw }
|
||||
OHForm.OFImage.Refresh;
|
||||
|
||||
Result := MNG_TRUE;
|
||||
end;
|
||||
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function MyGetTickCount (hHandle : mng_handle) : mng_uint32; cdecl;
|
||||
{$F-}
|
||||
begin
|
||||
Result := GetTickCount; { the system knows that }
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
{$F+}
|
||||
function SetTimer (hHandle : mng_handle;
|
||||
iMsecs : mng_uint32) : mng_bool; cdecl;
|
||||
{$F-}
|
||||
|
||||
var OHForm : TMainForm;
|
||||
|
||||
begin { get a fix on our form }
|
||||
OHForm := TMainForm (mng_get_userdata (hHandle));
|
||||
OHForm.OFTimer.Interval := iMsecs; { and set the timer }
|
||||
OHForm.OFTimer.Enabled := true;
|
||||
|
||||
Result := MNG_TRUE;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
|
||||
var IHRed, IHGreen, IHBlue : word;
|
||||
|
||||
begin { initialize }
|
||||
OFBitmap := TBitmap.Create;
|
||||
BFHasMouse := false;
|
||||
OFFile := nil;
|
||||
|
||||
OFOpenDialog.Initialdir := '';
|
||||
{ now initialize the library }
|
||||
IFHandle := mng_initialize (mng_ptr(self), Memalloc, Memfree, nil);
|
||||
|
||||
if IFHandle = NIL then
|
||||
begin
|
||||
MNGerror ('libmng initialization error' + #13#10 +
|
||||
'Program aborted');
|
||||
Application.Terminate;
|
||||
end;
|
||||
{ no need to store chunk-info ! }
|
||||
mng_set_storechunks (IFHandle, MNG_FALSE);
|
||||
{ do not use suspension-buffer }
|
||||
mng_set_suspensionmode (IFHandle, MNG_FALSE);
|
||||
{ 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, MyGetTickCount ) <> MNG_NOERROR) or
|
||||
(mng_setcb_settimer (IFHandle, SetTimer ) <> MNG_NOERROR) then
|
||||
begin
|
||||
MNGerror ('libmng reported an error setting a callback function!' + #13#10 +
|
||||
'Program aborted');
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
IHRed := (Color ) and $FF; { supply our own bg-color }
|
||||
IHGreen := (Color shr 8) and $FF;
|
||||
IHBlue := (Color shr 16) and $FF;
|
||||
|
||||
IHRed := (IHRed shl 8) + IHRed;
|
||||
IHGreen := (IHGreen shl 8) + IHGreen;
|
||||
IHBlue := (IHBlue shl 8) + IHBlue;
|
||||
|
||||
if mng_set_bgcolor (IFHandle, IHRed, IHGreen, IHBlue) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error setting the background color!');
|
||||
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
begin
|
||||
BFCancelled := true;
|
||||
|
||||
if OFTimer.Enabled then { if we're still animating then stop it }
|
||||
begin
|
||||
OFTimer.Enabled := false;
|
||||
|
||||
Application.ProcessMessages;
|
||||
|
||||
if mng_reset (IFHandle) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during reset!');
|
||||
|
||||
end;
|
||||
|
||||
mng_cleanup (IFHandle);
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.FormShow(Sender: TObject);
|
||||
begin
|
||||
FormResize (self);
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.FormResize(Sender: TObject);
|
||||
begin { center the image in the window }
|
||||
if ClientWidth < OFImage.Width then
|
||||
OFImage.Left := 0
|
||||
else
|
||||
OFImage.Left := (ClientWidth - OFImage.Width ) div 2;
|
||||
|
||||
if ClientHeight < OFImage.Height then
|
||||
OFImage.Top := 0
|
||||
else
|
||||
OFImage.Top := (ClientHeight - OFImage.Height) div 2;
|
||||
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
if Key = Key_Escape then { pressing <esc> will freeze an animation }
|
||||
begin
|
||||
if OFTimer.Enabled then
|
||||
if mng_display_freeze (IFHandle) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during display_freeze!');
|
||||
|
||||
OFTimer.Enabled := false; { don't let that timer go off then ! }
|
||||
BFCancelled := true;
|
||||
end;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
begin
|
||||
if mng_status_dynamic (IFHandle) then
|
||||
begin
|
||||
if BFHasMouse then { if we had the mouse, it's left ! }
|
||||
begin
|
||||
if mng_trapevent (IFHandle, 3, 0, 0) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during trapevent!');
|
||||
|
||||
BFHasMouse := false;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.OFImageMouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
begin
|
||||
if mng_status_dynamic (IFHandle) then
|
||||
begin
|
||||
if BFHasMouse then { did we have the mouse already ? }
|
||||
begin
|
||||
if mng_trapevent (IFHandle, 2, X, Y) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during trapevent!');
|
||||
end
|
||||
else
|
||||
begin { if not, it has entered ! }
|
||||
if mng_trapevent (IFHandle, 1, X, Y) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during trapevent!');
|
||||
|
||||
BFHasMouse := true;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.OFImageMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if mng_status_dynamic (IFHandle) then
|
||||
if mng_trapevent (IFHandle, 4, X, Y) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during trapevent!');
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.OFImageMouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
if mng_status_dynamic (IFHandle) then
|
||||
if mng_trapevent (IFHandle, 5, X, Y) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during trapevent!');
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.OFTimerTimer(Sender: TObject);
|
||||
|
||||
var IHRslt : mng_retcode;
|
||||
|
||||
begin
|
||||
OFTimer.Enabled := false; { only once ! }
|
||||
|
||||
if not BFCancelled then
|
||||
begin { and inform the library }
|
||||
IHRslt := mng_display_resume (IFHandle);
|
||||
|
||||
if (IHRslt <> MNG_NOERROR) and (IHRslt <> MNG_NEEDTIMERWAIT) then
|
||||
MNGerror ('libmng reported an error during display_resume!');
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.OFMenuFileOpenClick(Sender: TObject);
|
||||
|
||||
var IHRslt : mng_retcode;
|
||||
|
||||
begin
|
||||
OFOpenDialog.InitialDir := '';
|
||||
OFOpenDialog.FileName := SFFileName;
|
||||
|
||||
if OFOpenDialog.Execute then { get the filename }
|
||||
begin
|
||||
if OFTimer.Enabled then { if the lib was active; stop it }
|
||||
begin
|
||||
OFTimer.Enabled := false;
|
||||
|
||||
Application.ProcessMessages; { process any timer requests (for safety) }
|
||||
{ now freeze the animation }
|
||||
if mng_reset (IFHandle) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during reset!');
|
||||
end;
|
||||
{ save interesting fields }
|
||||
SFFileName := OFOpenDialog.FileName;
|
||||
BFCancelled := false;
|
||||
|
||||
OFImage.Picture.Graphic := nil; { clear the output-canvas }
|
||||
OFImage.Refresh;
|
||||
{ always reset (just in case) }
|
||||
if mng_reset (IFHandle) <> MNG_NOERROR then
|
||||
MNGerror ('libmng reported an error during reset!')
|
||||
else
|
||||
begin { and let the lib do it's job ! }
|
||||
IHRslt := mng_readdisplay (IFHandle);
|
||||
|
||||
if (IHRslt <> MNG_NOERROR) and (IHRSLT <> MNG_NEEDTIMERWAIT) then
|
||||
MNGerror ('libmng reported an error reading the input file!');
|
||||
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.OFMenuFileExitClick(Sender: TObject);
|
||||
begin
|
||||
if mng_cleanup (IFHandle) <> MNG_NOERROR then
|
||||
MNGerror ('libmng cleanup error');
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
procedure TMainForm.MNGerror;
|
||||
|
||||
var iErrorcode : mng_uint32;
|
||||
iSeverity : mng_uint8;
|
||||
iChunkname : mng_chunkid;
|
||||
iChunkseq : mng_uint32;
|
||||
iExtra1 : mng_int32;
|
||||
iExtra2 : mng_int32;
|
||||
zErrortext : mng_pchar;
|
||||
|
||||
begin { get extended info }
|
||||
iErrorcode := mng_getlasterror (IFHandle, iSeverity, iChunkname, iChunkseq,
|
||||
iExtra1, iExtra2, zErrortext);
|
||||
|
||||
MessageDlg (SHMsg + #13#10#13#10 + strpas (zErrortext) + #13#10#13#10 +
|
||||
Format ('Error = %d; Severity = %d; Chunknr = %d; Extra1 = %d',
|
||||
[iErrorcode, iSeverity, iChunkseq, iExtra1]),
|
||||
mtError, [mbOK], 0);
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,17 @@
|
||||
#!/bin/bash
|
||||
#
|
||||
app_install_dir=/data/Triple-T/Software/mnglib3t/libmng-devel/contrib/kylix/mngview
|
||||
app_path=$app_install_dir/mngview.bin
|
||||
app_ld_path=$app_install_dir/lib
|
||||
#
|
||||
if [ -n "$LD_LIBRARY_PATH" ]; then
|
||||
export LD_LIBRARY_PATH="$app_ld_path:$LD_LIBRARY_PATH"
|
||||
else
|
||||
export LD_LIBRARY_PATH="$app_ld_path"
|
||||
fi
|
||||
#
|
||||
if [ -z "$LANG" ]; then
|
||||
export LANG="en_US"
|
||||
fi
|
||||
#
|
||||
exec $app_path $*
|
||||
@@ -0,0 +1,33 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-cg
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-DCLX_USE_LIBQT
|
||||
@@ -0,0 +1,17 @@
|
||||
program mngview;
|
||||
|
||||
uses
|
||||
QForms,
|
||||
Main in 'Main.pas' {MainForm},
|
||||
libmng in '../libmng.pas';
|
||||
|
||||
{$E .bin}
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.Title := 'mngview - libmng test-viewer in Kylix';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
@@ -0,0 +1,61 @@
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
DynamicLoader=/lib/ld-linux.so.2
|
||||
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=baseclx:visualclx:dataclx:visualdbclx:netclx:netdataclx:xmlrtl:indy:webdsnapclx:websnapclx
|
||||
Conditionals=CLX_USE_LIBQT
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee%
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user