1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
function PresentCallback(const Self: IDirect3DDevice9; const SourceRect,
DestRect: PRect; const DestWindowOverride: HWND; DirtyRegion: PRgnData): HResult; stdcall;
Begin
...
...
SetRect(rec^, XKpaAVG, YKpaFront, Screen.Width, screen.height);
TemperatureFont.DrawTextA(nil, PAnsiChar(PPAVGStr), -1, rec, DT_LEFT, D3DCOLOR_ARGB(255, 255, 216, 0));
SetRect(rec^, XKpaAVD, YKpaFront, Screen.Width, screen.height);
TemperatureFont.DrawTextA(nil, PAnsiChar(PPAVDStr), -1, rec, DT_LEFT, D3DCOLOR_ARGB(255, 255, 216, 0));
SetRect(rec^, XKpaARG, YKpaRear, Screen.Width, screen.height);
TemperatureFont.DrawTextA(nil, PAnsiChar(PPARGStr), -1, rec, DT_LEFT, D3DCOLOR_ARGB(255, 255, 216, 0));
SetRect(rec^, XKpaARD, YKpaRear, Screen.Width, screen.height);
TemperatureFont.DrawTextA(nil, PAnsiChar(PPARDStr), -1, rec, DT_LEFT, D3DCOLOR_ARGB(255, 255, 216, 0));
... etc etc
Result := PresentNext(self, SourceRect, DestRect, DestWindowOverride, DirtyRegion);
END; |
Partager