ShuriZma
/
FPPS4
mirror of https://github.com/red-prig/fpPS4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

caption_format

This commit is contained in:
Pavel 2022-12-22 11:17:06 +03:00
parent 27043d14eb
commit bab79118f4
2 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fpPS4.lpr
View File

@ -67,7 +67,7 @@ begin
if (ParamCount=0) then
begin
promo:
Writeln('fpPS4 '+{$I tag.inc});
Writeln('fpPS4 (',{$I tag.inc},')');
Writeln('Copyright (c) 2021-2022 by Red_prig');
Writeln('PS4 compatibility layer (emulator) on Free Pascal '+{$I %FPCVERSION%});
Writeln(' Parameters:');

27
src/ps4_libscevideoout.pas
View File

@ -355,6 +355,7 @@ type
TMyForm=class(TForm)
public
caption_format:RawByteString;
procedure SetCaptionFPS(Ffps:QWORD);
procedure CloseEvent(Sender:TObject;var CloseAction:TCloseAction);
procedure WMEraseBkgnd(var Message:TLMEraseBkgnd); message LM_ERASEBKGND;
procedure KeyEvent(Sender:TObject;var Key:Word;Shift:TShiftState);
@ -496,6 +497,11 @@ end;
//
procedure TMyForm.SetCaptionFPS(Ffps:QWORD);
begin
Caption:=Format(caption_format,[Ffps]);
end;
procedure TMyForm.CloseEvent(Sender:TObject;var CloseAction:TCloseAction);
begin
//Halt;
@ -543,18 +549,23 @@ begin
post_event_vblank;
end;
procedure TVideoOut.sceVideoOutOpen(node:PQNode);
function get_caption_format:RawByteString;
var
TITLE,TITLE_ID,APP_VER:RawByteString;
begin
TITLE :=param_sfo.ParamSfoGetString('TITLE');
TITLE_ID:=param_sfo.ParamSfoGetString('TITLE_ID');
APP_VER :=param_sfo.ParamSfoGetString('APP_VER');
Result:=Format('fpPS4 (%s) [%s-%s:%s]',[{$I tag.inc},TITLE,TITLE_ID,APP_VER])+' FPS:%d';
end;
procedure TVideoOut.sceVideoOutOpen(node:PQNode);
begin
VblankStatus.FprocessTime:=ps4_sceKernelReadTsc;
VblankStatus.FTsc :=ps4_sceKernelGetProcessTime;
TITLE :=param_sfo.ParamSfoGetString('TITLE');
TITLE_ID:=param_sfo.ParamSfoGetString('TITLE_ID');
APP_VER :=param_sfo.ParamSfoGetString('APP_VER');
Writeln('sceVideoOutOpen:',HexStr(Pointer(Self)));
FForm:=TMyForm.CreateNew(nil);
FForm.ShowInTaskBar:=stAlways;
@ -562,8 +573,8 @@ begin
FForm.ParentDoubleBuffered:=False;
FForm.FormStyle:=fsNormal;
FForm.SetBounds(100, 100, pd_Width, pd_Height);
FForm.caption_format:='fpPS4 '+'['+TITLE+'-'+TITLE_ID+':'+APP_VER+'] FPS:%d';
FForm.Caption:=Format(FForm.caption_format,[0]);
FForm.caption_format:=get_caption_format;
FForm.SetCaptionFPS(0);
FForm.OnClose:=@FForm.CloseEvent;
FForm.OnKeyDown:=@FForm.KeyEvent;
@ -1439,7 +1450,7 @@ begin
Inc(Ffps);
if ((FlipStatus.Ftsc_flips-Ftsc_prev) div ps4_sceKernelGetTscFrequency)>=1 then
begin
FForm.Caption:=Format(FForm.caption_format,[Ffps]);
FForm.SetCaptionFPS(Ffps);
Ffps:=0;
Ftsc_prev:=FlipStatus.Ftsc_flips;
end;