/trunk/Win32_Player/Main.dfm |
---|
41,16 → 41,14 |
OnMouseUp = ControlClick |
end |
object MediaPlayer1: TMediaPlayer |
Left = 167 |
Top = 47 |
Left = 191 |
Top = 51 |
Width = 57 |
Height = 30 |
VisibleButtons = [btPlay, btStop] |
DoubleBuffered = True |
Display = Panel2 |
FileName = 'D:\_test\INTRO.AVI' |
Visible = False |
ParentDoubleBuffered = False |
TabOrder = 1 |
end |
object Panel2: TPanel |
58,7 → 56,8 |
Top = 63 |
Width = 137 |
Height = 18 |
Caption = 'Panel2' |
BevelOuter = bvNone |
ParentColor = True |
TabOrder = 2 |
Visible = False |
end |
/trunk/Win32_Player/Main.pas |
---|
223,6 → 223,8 |
procedure TMainForm.FormDestroy(Sender: TObject); |
begin |
FreeAndNil(Game); |
// Without this, some audio drivers could crash if you press ESC to end the game. |
// (VPC 2007 with Win95; cpsman.dll crashes sometimes) |
PlaySound(nil, hinstance, 0); |
314,7 → 316,6 |
try |
Game := TGame.Create('.'); |
try |
Game.PictureShowCallback := cbPictureShow; |
Game.AsyncSoundCallback := cbAsyncSound; |
Game.ExitCallback := cbExit; |
322,9 → 323,6 |
Game.SetHotspotCallback := cbSetHotspot; |
Game.ClearHotspotsCallback := cbClearHotspots; |
Game.Run; |
finally |
FreeAndNil(Game); |
end; |
except |
on E: Exception do |
begin |
/trunk/Win32_Player/ShowTime32.exe |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
/trunk/Win32_Player/Showtime32.bdsproj |
---|
119,7 → 119,7 |
<Linker Name="ExeDescription"></Linker> |
</Linker> |
<Directories> |
<Directories Name="OutputDir">E:\_test</Directories> |
<Directories Name="OutputDir"></Directories> |
<Directories Name="UnitOutputDir"></Directories> |
<Directories Name="PackageDLLOutputDir"></Directories> |
<Directories Name="PackageDCPOutputDir"></Directories> |
160,14 → 160,14 |
<VersionInfo Name="CodePage">1252</VersionInfo> |
</VersionInfo> |
<VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription">Showtime32</VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName">ViaThinkSoft</VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription">Plumbers Don't Wear Ties (Win32 Player)</VersionInfoKeys> |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
<VersionInfoKeys Name="InternalName">ShowTime32</VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright">(C) 2019-2020 ViaThinkSoft</VersionInfoKeys> |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductName">Showtime32</VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename">ShowTime32.exe</VersionInfoKeys> |
<VersionInfoKeys Name="ProductName">Plumbers Don't Wear Ties</VersionInfoKeys> |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> |
<VersionInfoKeys Name="ProgramID">com.embarcadero.Showtime32</VersionInfoKeys> |
/trunk/Win32_Player/Showtime32.cfg |
---|
31,9 → 31,8 |
-M |
-$M16384,1048576 |
-K$00400000 |
-E"E:\_test" |
-LE"C:\Users\DELL User\Documents\Borland Studio-Projekte\Bpl" |
-LN"C:\Users\DELL User\Documents\Borland Studio-Projekte\Bpl" |
-LE"C:\Users\Daniel Marschall\Documents\Borland Studio-Projekte\Bpl" |
-LN"C:\Users\Daniel Marschall\Documents\Borland Studio-Projekte\Bpl" |
-w-UNSAFE_TYPE |
-w-UNSAFE_CODE |
-w-UNSAFE_CAST |
/trunk/Win32_Player/Showtime32.res |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |