PLOP ENGINE - POUR LES PLAYERS AUDIO/VIDEO

{ -------------------------------------------------------------------- }
{ -------------------------------------------------------------------- }
{
A propos de PlopEngine.pas

PlopEngine contient divers types, variables, constantes, fonctions 
et procedures utilisable dans n'importe quel projet de lecteur 
multimedia
}

procedure SetTimeFormat(const val : string);

function MinutesToTime(const Minutes : integer) : TDateTime;
function MinutesToStr(const Minutes : integer) : string;

function SecondsToTime(const Seconds : integer) : TDateTime;
function SecondsToStr(const Seconds : integer) : string;

function MillisecsToTime(const MilliSecs : integer) : TDateTime;
function MillisecsToStr(const MilliSecs : integer) : string;

function TimeRemain(const Ps,Len : TDateTime) : TDateTime;
function TimeRemainStr(const Ps,Len : TDateTime) : string;

function GenreToStr(const GenreID : byte) : string;

function ValueToPercent(const P,Max : single;const Min : single = 0) : single;
function ValueToPercentStr(const P,Max : single;const Min : single = 0) : string;

function ShuffleAPC(const PlaylistCount,CurrentTrackIndex : integer) : integer;
function ShufflePlayList(var PlayList) : integer;

Procedure PlopEngine_Close;

Procedure PLOPPANIK;

{ -------------------------------------------------------------------- }
{ -------------------------------------------------------------------- }
{
A propos de PlopGraphics.pas

PlopGraphics contient deux tout nouveaux types TPointFloat, TRectFloat 
et egalement leurs equivalent pointeurs PPointFloat et PRectFloat.
Elle contient egalement diverses methodes pour gerer tout ce qui est 
d'ordre graphique (point, rect, pointfloat, rectfloat ect...)

(!) le type TRectFloat est réellement derivé de TRect.
(!) le type TPointFloat est réellement derivé de TPoint.
}

function RectFloat(ALeft,ATop,ARight,ABottom : Single) : TRectFloat; overload;
function RectFloat(ATopLeft,ABottomRight : TPointFloat) : TRectFloat; overload;
function PointFloat(AX,AY : Single) : TPointFloat;

procedure FusionRect(const Src : TRect; var Dest : TRect);
procedure FusionRectFloat(const Src : TRectFloat; var Dest : TRectFloat);

function CollideRect(const R1,R2 : TRect) : boolean; overload;
function CollideRect(const R1,R2 : TRectFloat) : Boolean; overload;

function RectCenter(const ARect: TRect): TPoint;
function RectFloatCenter(const ARect: TRectFloat): TPointFloat;

function IsEmptyRect(const ARect : TRect) : boolean; overload;
function IsEmptyRect(const ARect : TRectFloat) : boolean; overload;

function IsZeroPoint(const APoint : TPoint) : boolean; overload;
function IsZeroPoint(const APoint : TPointFloat) : boolean; overload;

function IsPositivePoint(const APoint : TPoint) : boolean; overload;
function IsPositivePoint(const APoint : TPointFloat) : boolean; overload;

function PointInRect(const APoint : TPoint; const ARect : TRect) : boolean; overload;
function PointInRect(const APoint : TPointFloat; const ARect : TRect) : boolean; overload;
function PointInRect(const APoint : TPoint; const ARect : TRectFloat) : boolean; overload;
function PointInRect(const APoint : TPointFloat; const ARect : TRectFloat) : boolean; overload;

function PointFloatToPoint(const APoint : TPointFloat; const Scale : Single = 0) : TPoint;
function PointToPointFloat(const APoint : TPoint; const Scale : Single = 0) : TPointFloat;

function RectFloatToRect(const ARect : TRectFloat; const Scale : Single = 0) : TRect;
function RectToRectFloat(const ARect : TRect; const Scale : Single = 0) : TRectFloat;

function SetRect(ALeft,ATop,ARight,ABottom : Integer) : TRect; overload;
function SetRect(ATopLeft,ABottomRight : TPoint) : TRect; overload;
function SetPoint(AX,AY : Integer) : TPoint;

function SetRectFloat(ALeft,ATop,ARight,ABottom : Single) : TRectFloat; overload;
function SetRectFloat(ATopLeft,ABottomRight : TPointFloat) : TRectFloat; overload;
function SetPointFloat(AX,AY : Single) : TPointFloat;

Télécharger le zip

21 décembre 2005 17:58:57 :

correction de la source affichée, because // grrr

21 décembre 2005 18:00:52 :

idem que la precedente! Nix ton colorisateur syntaxique bug! (c'est pas grave, ça arrive...)

21 décembre 2005 18:03:40 :

pfff decidement...

22 décembre 2005 17:53:00 :

Ajout d'une unité "PlopGraphics" permettant la manipulation des types TPoint TRect et egalement TPointFloat et TRectFloat. Ajout d'un tableau des noms des effets d'environnement standard EAX dans PlopEngine.

22 décembre 2005 18:00:38 :

Niveau passe de Debutant a Initié (j'avais oublier de le faire)

22 décembre 2005 18:14:56 :

Suppression d'une erreur dans la fonction PointToPointFloat et egalement l'oublis de publier les fonctions RectToRectFloat et RectFloatToRect.