Changeset 72
- Timestamp:
- Jan 11, 2023, 5:18:36 PM (22 months ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Install/win/Tunneler.iss
r40 r72 3 3 4 4 #define MyAppName "Tunneler" 5 #define MyAppVersion "1.0.0-alfa" 5 #define MyAppNameShort "Tunneler" 6 #define MyAppVersion "1.0.0" 6 7 #define MyAppPublisher "Chronosoft" 7 8 #define MyAppPublisherShort "Chronosoft" … … 9 10 #define MyAppExeName "Tunneler.exe" 10 11 #define MyAppDebugName "Tunneler.dbg" 11 #define MyAppSubDir ".. \.."12 #define MyAppSubDir "../.." 12 13 13 14 [Setup] … … 18 19 AppName={#MyAppName} 19 20 AppVersion={#MyAppVersion} 20 ;AppVerName={#MyAppName} {#MyAppVersion}21 AppVerName={#MyAppName} {#MyAppVersion} 21 22 AppPublisher={#MyAppPublisher} 22 23 AppPublisherURL={#MyAppURL} 23 24 AppSupportURL={#MyAppURL} 24 25 AppUpdatesURL={#MyAppURL} 25 DefaultDirName={pf}\{#MyAppPublisherShort}\{#MyAppName} 26 UninstallDisplayName={#MyAppName} 27 UninstallDisplayIcon="{app}\{#MyAppExeName}" 28 VersionInfoVersion={#MyAppVersion} 29 VersionInfoCompany={#MyAppPublisher} 30 DefaultDirName={commonpf}\{#MyAppPublisherShort}\{#MyAppName} 26 31 DefaultGroupName={#MyAppPublisherShort}\{#MyAppName} 27 32 AllowNoIcons=yes 28 33 OutputDir=. 29 OutputBaseFilename=Install-{#MyAppName }-{#MyAppVersion}34 OutputBaseFilename=Install-{#MyAppNameShort}-{#MyAppVersion} 30 35 Compression=lzma 31 36 SolidCompression=yes … … 39 44 ; installation to run on all architectures (including Itanium, 40 45 ; since it's capable of running 32-bit code too). 46 WizardStyle=modern 41 47 42 48 [Languages] … … 48 54 49 55 [Registry] 50 Root: HK CU; Subkey: "Software\Chronosoft\Tunneler"; Flags: uninsdeletekey56 Root: HKLM; Subkey: "Software\Chronosoft\Tunneler"; Flags: uninsdeletekey 51 57 52 58 [Files] … … 54 60 Source: "{#MyAppSubDir}\lib\i386-win32-Release\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion; Check: not Is64BitInstallMode 55 61 Source: "{#MyAppSubDir}\Languages\*.po"; DestDir: "{app}\Languages"; Flags: ignoreversion 56 ; NOTE: Don't use "Flags: ignoreversion" on any shared system files 62 Source: "{#MyAppSubDir}\Languages\*.pot"; DestDir: "{app}\Languages"; Flags: ignoreversion 57 63 58 64 [Icons] -
trunk/Install/win/build.bat
r40 r72 18 18 copy %MAIN_EXE% %WIN64_EXE% 19 19 20 "c:\Program Files (x86)\Inno Setup 5\ISCC.exe" "%PROJECTNAME%.iss"20 "c:\Program Files (x86)\Inno Setup 6\ISCC.exe" "%PROJECTNAME%.iss" -
trunk/UEngine.pas
r71 r72 219 219 procedure SetActive(const AValue: Boolean); 220 220 procedure SetBitmap(const AValue: TBitmap); 221 procedure Redraw;222 221 function IsInsideHouses(Pos: TPoint): Boolean; 223 222 procedure InitPlayers; 224 223 procedure CheckGameEnd; 224 procedure ClearBackground; 225 225 procedure DrawMenu; 226 226 procedure DrawStats; … … 250 250 procedure ResizePlayerFrames; 251 251 procedure Tick; 252 procedure Redraw; 252 253 procedure Draw; 253 254 procedure DrawThread(Thread: TVirtualThread); … … 1211 1212 begin 1212 1213 with Bitmap.Canvas do begin 1213 Brush.Style := bsSolid; 1214 Brush.Color := clBlack; 1215 Clear; 1214 ClearBackground; 1216 1215 1217 1216 X := Bitmap.Width div 2; … … 1257 1256 begin 1258 1257 with Bitmap.Canvas do begin 1259 Brush.Style := bsSolid; 1260 Brush.Color := clBlack; 1261 Clear; 1258 ClearBackground; 1262 1259 1263 1260 X := Bitmap.Width div 2; … … 1308 1305 begin 1309 1306 with Bitmap.Canvas do begin 1310 Brush.Style := bsSolid; 1311 Brush.Color := clBlack; 1312 Clear; 1307 ClearBackground; 1313 1308 1314 1309 Brush.Style := bsClear; … … 1607 1602 end; 1608 1603 1609 procedure TEngine.DrawMenu; 1610 var 1611 Text: string; 1612 MenuWidth: Integer; 1604 procedure TEngine.ClearBackground; 1613 1605 begin 1614 1606 with Bitmap.Canvas do begin 1615 1607 Brush.Style := bsSolid; 1616 1608 Brush.Color := clBlack; 1617 Clear; 1609 FillRect(0, 0, Bitmap.Width, Bitmap.Height); 1610 end; 1611 end; 1612 1613 procedure TEngine.DrawMenu; 1614 var 1615 Text: string; 1616 MenuWidth: Integer; 1617 begin 1618 with Bitmap.Canvas do begin 1619 ClearBackground; 1618 1620 1619 1621 if FShowMenuStats then begin
Note:
See TracChangeset
for help on using the changeset viewer.