project_files/hwc/rtl/SysUtils.h
author Wuzzy <Wuzzy2@mail.ru>
Thu, 11 Jul 2019 16:24:09 +0200
changeset 15252 c10e9261ab9c
parent 14934 68e1783762bc
permissions -rw-r--r--
Make lowest line of Splash image frames transparent to work around scaling issues The Splash image is scaled. Sometimes, the lowest line is repeated on the top, which caused some weird lines to appear above big splashes (e.g. piano). This has been done fully automated with a script. Only the alpha channel was changed. The color information is preserved.

#ifndef _FPCRTL_SYSUTILS_H_
#define _FPCRTL_SYSUTILS_H_

#include "Types.h"

// EFFECTS: return the current date time in pascal notation
//          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
TDateTime   fpcrtl_now();
#define     fpcrtl_Now              fpcrtl_now
#define     now                     fpcrtl_Now
#define     Now                     fpcrtl_Now

string255   fpcrtl_formatDateTime(string255 FormatStr, TDateTime DateTime);
#define     fpcrtl_FormatDateTime   fpcrtl_formatDateTime

// EFFECTS: return the current time
//          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
TDateTime   fpcrtl_time();


// EFFECTS: return the current date
//          http://www.merlyn.demon.co.uk/del-prgg.htm#TDT
TDateTime   fpcrtl_date();
#define     date                    fpcrtl_date
#define     Date                    fpcrtl_date

// EFFECTS: Trim strips blank characters (spaces) at the beginning and end of S
// and returns the resulting string. Only #32 characters are stripped.
// If the string contains only spaces, an empty string is returned.
string255   fpcrtl_trim(string255 s);
#define     trim                    fpcrtl_trim
#define     Trim                    fpcrtl_trim

Integer     fpcrtl_strToInt(string255 s);
#define     StrToInt                fpcrtl_strToInt
#define     strToInt                fpcrtl_strToInt

string255   fpcrtl_extractFileDir(string255 f);
#define     fpcrtl_ExtractFileDir  fpcrtl_extractFileDir

string255   fpcrtl_extractFileName(string255 f);
#define     fpcrtl_ExtractFileName  fpcrtl_extractFileName

string255   fpcrtl_strPas(PChar);
#define     fpcrtl_StrPas           fpcrtl_strPas


#endif