Changeset 71


Ignore:
Timestamp:
Jan 11, 2023, 3:25:24 PM (16 months ago)
Author:
chronos
Message:
  • Fixed: Build under Windows.
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.pas

    r67 r71  
    160160
    161161procedure TFormMain.FormCreate(Sender: TObject);
     162{$IFDEF UNIX}
    162163const
    163164  UnixLanguagesDir = '/usr/share/Tunneler/Languages';
     165{$ENDIF}
    164166begin
    165167  {$IFDEF UNIX}

  • trunk/Languages/Tunneler.cs.po

    r70 r71  
    234234msgstr "Růşová"
    235235
    236 #: uengine.splayer
    237 msgctxt "uengine.splayer"
    238 msgid "Player"
    239 msgstr "Hráč"
    240 
    241236#: uengine.spressesc
    242237msgid "Press ESC to continue"
    … …  
    285280msgstr "%0:s z %1:s"
    286281
    287 #: usound.splaynotsupported
    288 #, object-pascal-format
    289 msgid "The play command %s does not work on your system"
    290 msgstr ""
    291 
    292282#: usound.sunabletoplay
    293283msgid "Unable to play "

  • trunk/Languages/Tunneler.pot

    r70 r71  
    198198msgstr ""
    199199
    200 #: uengine.splayer
    201 msgid "Player"
    202 msgstr ""
    203 
    204200#: uengine.spressesc
    205201msgid "Press ESC to continue"
    … …  
    247243msgstr ""
    248244
    249 #: usound.splaynotsupported
    250 #, object-pascal-format
    251 msgid "The play command %s does not work on your system"
    252 msgstr ""
    253 
    254245#: usound.sunabletoplay
    255246msgid "Unable to play "

  • trunk/UEngine.pas

    r70 r71  
    277277
    278278resourcestring
    279   SPlayer = 'Player';
    280279  SRound = 'Round';
    281280  SPressEsc = 'Press ESC to continue';
    … …  
    19461945  KeyF3 = 114;
    19471946  KeyF4 = 115;
    1948   KeyF5 = 116;
    19491947  KeyEsc = 27;
    19501948var

  • trunk/USound.pas

    r70 r71  
    4141resourcestring
    4242  SUnableToPlay = 'Unable to play ';
     43  {$IFDEF WINDOWS}
     44  {$ELSE}
    4345  SPlayNotSupported = 'The play command %s does not work on your system';
     46  {$ENDIF}
    4447
    4548procedure Register;
    … …  
    126129begin
    127130{$IFDEF WINDOWS}
    128   if FPlayStyle = psASync then
     131  if FStyle = psASync then
    129132    Flags := SND_ASYNC or SND_NODEFAULT
    130133  else
Note: See TracChangeset for help on using the changeset viewer.