]> git.sesse.net Git - vlc/commitdiff
The win32 interface is preparing for the internationalization.
authorOlivier Teulière <ipkiss@videolan.org>
Thu, 29 Aug 2002 22:29:55 +0000 (22:29 +0000)
committerOlivier Teulière <ipkiss@videolan.org>
Thu, 29 Aug 2002 22:29:55 +0000 (22:29 +0000)
18 files changed:
modules/gui/win32/Makefile
modules/gui/win32/about.cpp
modules/gui/win32/about.dfm
modules/gui/win32/disc.cpp
modules/gui/win32/disc.dfm
modules/gui/win32/mainframe.cpp
modules/gui/win32/mainframe.dfm
modules/gui/win32/mainframe.h
modules/gui/win32/messages.cpp
modules/gui/win32/messages.dfm
modules/gui/win32/misc.cpp [new file with mode: 0644]
modules/gui/win32/misc.h [new file with mode: 0644]
modules/gui/win32/network.cpp
modules/gui/win32/network.dfm
modules/gui/win32/playlist.cpp
modules/gui/win32/playlist.dfm
modules/gui/win32/win32.bpf
modules/gui/win32/win32.bpr

index 9d8ab4bf01995ff29c7851db71e0b7e5027c4c94..f55df00b639c7b9c0e24ecaa53fcd2e595550cf5 100644 (file)
@@ -6,7 +6,7 @@ win32_CUSTOM = yes
 
 win32.so: Makefile
        rm -f win32.mak
-       $(BCBUILDER)/Bin/bpr2mak win32.bpr -s | sed 's#^LIBPATH = .*#&;$$(RELEASELIBPATH)# ; s#^USERDEFINES = .*#& -DWIN32 -D__PLUGIN__ -D__VLC__ -DMODULE_NAME_IS_win32 -DMODULE_NAME=win32 -DMODULE_PATH=modules_gui_win32_win32#' > win32.mak
+       $(BCBUILDER)/Bin/bpr2mak win32.bpr -s | sed 's#^LIBPATH = .*#&;$$(RELEASELIBPATH)# ; s#^USERDEFINES = .*#& -DMODULE_NAME=win32 -DMODULE_PATH=modules_gui_win32_win32#' > win32.mak
        $(BCBUILDER)/Bin/make -f win32.mak -b
 
 
index 12302d2311fd550851d375351b70c9afe0f004c6..b89ff2be1edd606b52b09bb6c1aa4b9977f1015d 100644 (file)
@@ -1,47 +1,48 @@
-/*****************************************************************************\r
- * about.cpp: The "About" dialog box\r
- *****************************************************************************\r
- * Copyright (C) 2002 VideoLAN\r
- *\r
- * Authors: Olivier Teuliere <ipkiss@via.ecp.fr>\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.\r
- *****************************************************************************/\r
-\r
-#include <vcl.h>\r
-#pragma hdrstop\r
-\r
-#include <vlc/vlc.h>\r
-#include <vlc/intf.h>\r
-\r
-#include "about.h"\r
-#include "win32_common.h"\r
-\r
-//---------------------------------------------------------------------------\r
-//#pragma package(smart_init)\r
-#pragma resource "*.dfm"\r
-\r
-extern  intf_thread_t *p_intfGlobal;\r
-\r
-//---------------------------------------------------------------------------\r
-__fastcall TAboutDlg::TAboutDlg( TComponent* Owner )\r
-        : TForm( Owner )\r
-{\r
-    Image1->Picture->Icon = p_intfGlobal->p_sys->p_window->Icon;\r
-    LabelVersion->Caption = "Version " VERSION;\r
-}\r
-//---------------------------------------------------------------------------\r
-\r
-\r
+/*****************************************************************************
+ * about.cpp: The "About" dialog box
+ *****************************************************************************
+ * Copyright (C) 2002 VideoLAN
+ *
+ * Authors: Olivier Teuliere <ipkiss@via.ecp.fr>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
+ *****************************************************************************/
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include <vlc/vlc.h>
+#include <vlc/intf.h>
+
+#include "about.h"
+#include "misc.h"
+#include "win32_common.h"
+
+//---------------------------------------------------------------------------
+//#pragma package(smart_init)
+#pragma resource "*.dfm"
+
+extern  intf_thread_t *p_intfGlobal;
+
+//---------------------------------------------------------------------------
+__fastcall TAboutDlg::TAboutDlg( TComponent* Owner )
+        : TForm( Owner )
+{
+    Image1->Picture->Icon = p_intfGlobal->p_sys->p_window->Icon;
+    LabelVersion->Caption = "Version " VERSION;
+    Translate( this );
+}
+//---------------------------------------------------------------------------
+
index 6c7af7b189e4b38bee26c092f3b5c233e79ebc42..94f553d94afba16b45484f877851d175cef163ea 100644 (file)
@@ -246,6 +246,7 @@ object AboutDlg: TAboutDlg
   PixelsPerInch = 96\r
   TextHeight = 13\r
   object Label1: TLabel\r
+    Tag = 3\r
     Left = 114\r
     Top = 18\r
     Width = 132\r
@@ -259,6 +260,7 @@ object AboutDlg: TAboutDlg
     ParentFont = False\r
   end\r
   object Label2: TLabel\r
+    Tag = 3\r
     Left = 10\r
     Top = 64\r
     Width = 267\r
@@ -266,6 +268,7 @@ object AboutDlg: TAboutDlg
     Caption = '(C) Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002'\r
   end\r
   object Label4: TLabel\r
+    Tag = 3\r
     Left = 15\r
     Top = 123\r
     Width = 253\r
@@ -277,6 +280,7 @@ object AboutDlg: TAboutDlg
     WordWrap = True\r
   end\r
   object Label3: TLabel\r
+    Tag = 3\r
     Left = 30\r
     Top = 80\r
     Width = 227\r
@@ -290,6 +294,7 @@ object AboutDlg: TAboutDlg
     Height = 49\r
   end\r
   object Label5: TLabel\r
+    Tag = 3\r
     Left = 83\r
     Top = 96\r
     Width = 121\r
@@ -297,6 +302,7 @@ object AboutDlg: TAboutDlg
     Caption = 'http://www.videolan.org/'\r
   end\r
   object LabelVersion: TLabel\r
+    Tag = 3\r
     Left = 114\r
     Top = 40\r
     Width = 59\r
@@ -304,6 +310,7 @@ object AboutDlg: TAboutDlg
     Caption = 'Version x.y.z'\r
   end\r
   object BitBtnOk: TBitBtn\r
+    Tag = 3\r
     Left = 64\r
     Top = 178\r
     Width = 145\r
index 7b3d4949f180bc313582b53cae766739a1c3d026..60b28fde1fcb8c866fe914460b25a28293e77b9d 100644 (file)
@@ -27,6 +27,7 @@
 #include <vlc/intf.h>\r
 \r
 #include "disc.h"\r
+#include "misc.h";\r
 #include "win32_common.h"\r
 \r
 //---------------------------------------------------------------------------\r
@@ -42,6 +43,7 @@ __fastcall TDiscDlg::TDiscDlg( TComponent* Owner )
 {\r
     /* Simulate a click to get the correct device name */\r
     RadioGroupTypeClick( RadioGroupType );\r
+    Translate( this );\r
 }\r
 //---------------------------------------------------------------------------\r
 void __fastcall TDiscDlg::FormShow( TObject *Sender )\r
index a86d5303ed8d024fbb4b5d877486c65cf3db609d..58983a971525d81f3381ab2d9c284bce20820c1b 100644 (file)
@@ -248,6 +248,7 @@ object DiscDlg: TDiscDlg
   PixelsPerInch = 96\r
   TextHeight = 13\r
   object LabelDevice: TLabel\r
+    Tag = 3\r
     Left = 8\r
     Top = 105\r
     Width = 63\r
@@ -255,6 +256,7 @@ object DiscDlg: TDiscDlg
     Caption = 'Device name'\r
   end\r
   object GroupBoxPosition: TGroupBox\r
+    Tag = 3\r
     Left = 96\r
     Top = 8\r
     Width = 153\r
@@ -262,6 +264,7 @@ object DiscDlg: TDiscDlg
     Caption = 'Starting position'\r
     TabOrder = 1\r
     object LabelTitle: TLabel\r
+      Tag = 3\r
       Left = 16\r
       Top = 24\r
       Width = 20\r
@@ -269,6 +272,7 @@ object DiscDlg: TDiscDlg
       Caption = 'Title'\r
     end\r
     object LabelChapter: TLabel\r
+      Tag = 3\r
       Left = 16\r
       Top = 52\r
       Width = 37\r
@@ -301,6 +305,7 @@ object DiscDlg: TDiscDlg
     end\r
   end\r
   object RadioGroupType: TRadioGroup\r
+    Tag = 3\r
     Left = 8\r
     Top = 8\r
     Width = 81\r
@@ -314,6 +319,7 @@ object DiscDlg: TDiscDlg
     OnClick = RadioGroupTypeClick\r
   end\r
   object BitBtnOk: TBitBtn\r
+    Tag = 3\r
     Left = 8\r
     Top = 136\r
     Width = 113\r
@@ -325,6 +331,7 @@ object DiscDlg: TDiscDlg
     OnClick = BitBtnOkClick\r
   end\r
   object BitBtnCancel: TBitBtn\r
+    Tag = 3\r
     Left = 136\r
     Top = 136\r
     Width = 113\r
@@ -335,6 +342,7 @@ object DiscDlg: TDiscDlg
     OnClick = BitBtnCancelClick\r
   end\r
   object EditDevice: TEdit\r
+    Tag = 5\r
     Left = 88\r
     Top = 101\r
     Width = 161\r
index 93861c3c0fd9ff6fac9ba306d10b89d6eeae0c38..3e4f063116bba9ebd9a5fa4443952e4798cbdc5f 100644 (file)
@@ -36,6 +36,7 @@
 #include "preferences.h"\r
 #include "messages.h"\r
 #include "playlist.h"\r
+#include "misc.h"\r
 #include "win32_common.h"\r
 \r
 #include "netutils.h"\r
@@ -64,6 +65,8 @@ __fastcall TMainFrameDlg::TMainFrameDlg( TComponent* Owner )
     Caption = VOUT_TITLE " (Win32 interface)";\r
 \r
     StringListPref = new TStringList();\r
+    \r
+    Translate( this );\r
 }\r
 //---------------------------------------------------------------------------\r
 __fastcall TMainFrameDlg::~TMainFrameDlg()\r
index bcf48e6b7981c117069bf4200b44e44231c9c53c..9407a5101513695781bf5e30e8e9f80a314c7641 100644 (file)
@@ -1,6 +1,6 @@
 object MainFrameDlg: TMainFrameDlg\r
-  Left = 179\r
-  Top = 442\r
+  Left = 285\r
+  Top = 170\r
   Width = 541\r
   Height = 306\r
   BorderIcons = [biSystemMenu, biMinimize]\r
@@ -151,16 +151,19 @@ object MainFrameDlg: TMainFrameDlg
     ShowCaptions = True\r
     TabOrder = 0\r
     object ToolButtonFile: TToolButton\r
+      Tag = 3\r
       Left = 0\r
       Top = 0\r
       Action = OpenFileAction\r
     end\r
     object ToolButtonDisc: TToolButton\r
+      Tag = 3\r
       Left = 39\r
       Top = 0\r
       Action = OpenDiscAction\r
     end\r
     object ToolButtonNet: TToolButton\r
+      Tag = 3\r
       Left = 78\r
       Top = 0\r
       Action = NetworkStreamAction\r
@@ -174,26 +177,31 @@ object MainFrameDlg: TMainFrameDlg
       Style = tbsSeparator\r
     end\r
     object ToolButtonBack: TToolButton\r
+      Tag = 3\r
       Left = 125\r
       Top = 0\r
       Action = BackAction\r
     end\r
     object ToolButtonPlay: TToolButton\r
+      Tag = 3\r
       Left = 164\r
       Top = 0\r
       Action = PlayAction\r
     end\r
     object ToolButtonPause: TToolButton\r
+      Tag = 3\r
       Left = 203\r
       Top = 0\r
       Action = PauseAction\r
     end\r
     object ToolButtonStop: TToolButton\r
+      Tag = 3\r
       Left = 242\r
       Top = 0\r
       Action = StopAction\r
     end\r
     object ToolButtonEject: TToolButton\r
+      Tag = 3\r
       Left = 281\r
       Top = 0\r
       Action = EjectAction\r
@@ -207,11 +215,13 @@ object MainFrameDlg: TMainFrameDlg
       Style = tbsSeparator\r
     end\r
     object ToolButtonSlow: TToolButton\r
+      Tag = 3\r
       Left = 328\r
       Top = 0\r
       Action = SlowAction\r
     end\r
     object ToolButtonFast: TToolButton\r
+      Tag = 3\r
       Left = 367\r
       Top = 0\r
       Action = FastAction\r
@@ -225,17 +235,20 @@ object MainFrameDlg: TMainFrameDlg
       Style = tbsSeparator\r
     end\r
     object ToolButtonPlaylist: TToolButton\r
+      Tag = 3\r
       Left = 414\r
       Top = 0\r
       Action = PlaylistAction\r
       Style = tbsCheck\r
     end\r
     object ToolButtonPrev: TToolButton\r
+      Tag = 3\r
       Left = 453\r
       Top = 0\r
       Action = PreviousAction\r
     end\r
     object ToolButtonNext: TToolButton\r
+      Tag = 3\r
       Left = 492\r
       Top = 0\r
       Action = NextAction\r
@@ -252,6 +265,7 @@ object MainFrameDlg: TMainFrameDlg
     SimplePanel = True\r
   end\r
   object GroupBoxFile: TGroupBox\r
+    Tag = 3\r
     Left = 0\r
     Top = 90\r
     Width = 533\r
@@ -260,6 +274,7 @@ object MainFrameDlg: TMainFrameDlg
     TabOrder = 2\r
     Visible = False\r
     object LabelFileName: TLabel\r
+      Tag = 3\r
       Left = 2\r
       Top = 15\r
       Width = 529\r
@@ -278,6 +293,7 @@ object MainFrameDlg: TMainFrameDlg
     TabOrder = 3\r
     Visible = False\r
     object LabelChannel: TLabel\r
+      Tag = 3\r
       Left = 288\r
       Top = 16\r
       Width = 42\r
@@ -285,6 +301,7 @@ object MainFrameDlg: TMainFrameDlg
       Caption = 'Channel:'\r
     end\r
     object LabelServer: TLabel\r
+      Tag = 3\r
       Left = 64\r
       Top = 16\r
       Width = 49\r
@@ -292,6 +309,7 @@ object MainFrameDlg: TMainFrameDlg
       Caption = 'No server!'\r
     end\r
     object ButtonGo: TButton\r
+      Tag = 3\r
       Left = 384\r
       Top = 10\r
       Width = 25\r
@@ -320,6 +338,7 @@ object MainFrameDlg: TMainFrameDlg
     TabOrder = 4\r
     Visible = False\r
     object LabelDisc: TLabel\r
+      Tag = 3\r
       Left = 32\r
       Top = 11\r
       Width = 21\r
@@ -327,6 +346,7 @@ object MainFrameDlg: TMainFrameDlg
       Caption = 'Disc'\r
     end\r
     object LabelTitle: TLabel\r
+      Tag = 3\r
       Left = 96\r
       Top = 11\r
       Width = 23\r
@@ -334,6 +354,7 @@ object MainFrameDlg: TMainFrameDlg
       Caption = 'Title:'\r
     end\r
     object LabelChapter: TLabel\r
+      Tag = 3\r
       Left = 296\r
       Top = 11\r
       Width = 40\r
@@ -355,6 +376,7 @@ object MainFrameDlg: TMainFrameDlg
       Caption = '---'\r
     end\r
     object ButtonTitlePrev: TButton\r
+      Tag = 3\r
       Left = 152\r
       Top = 8\r
       Width = 33\r
@@ -363,6 +385,7 @@ object MainFrameDlg: TMainFrameDlg
       TabOrder = 0\r
     end\r
     object ButtonTitleNext: TButton\r
+      Tag = 3\r
       Left = 184\r
       Top = 8\r
       Width = 33\r
@@ -371,6 +394,7 @@ object MainFrameDlg: TMainFrameDlg
       TabOrder = 1\r
     end\r
     object ButtonChapterPrev: TButton\r
+      Tag = 3\r
       Left = 368\r
       Top = 8\r
       Width = 33\r
@@ -379,6 +403,7 @@ object MainFrameDlg: TMainFrameDlg
       TabOrder = 2\r
     end\r
     object ButtonChapterNext: TButton\r
+      Tag = 3\r
       Left = 400\r
       Top = 8\r
       Width = 33\r
@@ -388,6 +413,7 @@ object MainFrameDlg: TMainFrameDlg
     end\r
   end\r
   object GroupBoxSlider: TGroupBox\r
+    Tag = 3\r
     Left = 0\r
     Top = 50\r
     Width = 533\r
@@ -417,16 +443,20 @@ object MainFrameDlg: TMainFrameDlg
     Left = 40\r
     Top = 208\r
     object MenuFile: TMenuItem\r
+      Tag = 3\r
       Caption = '&File'\r
       object MenuOpenFile: TMenuItem\r
+        Tag = 3\r
         Action = OpenFileAction\r
         Caption = 'Open &file...'\r
       end\r
       object MenuOpenDisc: TMenuItem\r
+        Tag = 3\r
         Action = OpenDiscAction\r
         Caption = 'Open &disc...'\r
       end\r
       object MenuNetworkStream: TMenuItem\r
+        Tag = 3\r
         Action = NetworkStreamAction\r
         Caption = '&Network stream...'\r
       end\r
@@ -435,6 +465,7 @@ object MainFrameDlg: TMainFrameDlg
         Visible = False\r
       end\r
       object MenuEjectDisc: TMenuItem\r
+        Tag = 3\r
         Action = EjectAction\r
         Caption = '&Eject disc'\r
       end\r
@@ -442,38 +473,46 @@ object MainFrameDlg: TMainFrameDlg
         Caption = '-'\r
       end\r
       object MenuExit: TMenuItem\r
+        Tag = 3\r
         Action = ExitAction\r
       end\r
     end\r
     object MenuView: TMenuItem\r
+      Tag = 3\r
       Caption = '&View'\r
       object MenuHideinterface: TMenuItem\r
+        Tag = 3\r
         Caption = '&Hide interface'\r
         Hint = 'Hide the main interface window'\r
         OnClick = MenuHideinterfaceClick\r
       end\r
       object MenuFullscreen: TMenuItem\r
+        Tag = 3\r
         Action = FullscreenAction\r
       end\r
       object N2: TMenuItem\r
         Caption = '-'\r
       end\r
       object MenuProgram: TMenuItem\r
+        Tag = 3\r
         Caption = 'Progr&am'\r
         Enabled = False\r
         Hint = 'Select program'\r
       end\r
       object MenuTitle: TMenuItem\r
+        Tag = 3\r
         Caption = '&Title'\r
         Enabled = False\r
         Hint = 'Select title'\r
       end\r
       object MenuChapter: TMenuItem\r
+        Tag = 3\r
         Caption = '&Chapter'\r
         Enabled = False\r
         Hint = 'Select chapter'\r
       end\r
       object MenuAngle: TMenuItem\r
+        Tag = 3\r
         Caption = 'An&gle'\r
         Enabled = False\r
         Hint = 'Select angle'\r
@@ -482,21 +521,26 @@ object MainFrameDlg: TMainFrameDlg
         Caption = '-'\r
       end\r
       object MenuPlaylist: TMenuItem\r
+        Tag = 3\r
         Action = PlaylistAction\r
         Caption = '&Playlist...'\r
       end\r
       object MenuMessages: TMenuItem\r
+        Tag = 3\r
         Action = MessagesAction\r
       end\r
     end\r
     object MenuSettings: TMenuItem\r
+      Tag = 3\r
       Caption = '&Settings'\r
       object MenuAudio: TMenuItem\r
+        Tag = 3\r
         Caption = '&Audio'\r
         Enabled = False\r
         Hint = 'Select audio language'\r
       end\r
       object MenuSubtitles: TMenuItem\r
+        Tag = 3\r
         Caption = '&Subtitles'\r
         Enabled = False\r
         Hint = 'Select subtitles language'\r
@@ -505,12 +549,15 @@ object MainFrameDlg: TMainFrameDlg
         Caption = '-'\r
       end\r
       object MenuPreferences: TMenuItem\r
+        Tag = 3\r
         Action = PreferencesAction\r
       end\r
     end\r
     object MenuHelp: TMenuItem\r
+      Tag = 3\r
       Caption = '&Help'\r
       object MenuAbout: TMenuItem\r
+        Tag = 3\r
         Action = AboutAction\r
       end\r
     end\r
@@ -2254,10 +2301,12 @@ object MainFrameDlg: TMainFrameDlg
     Left = 72\r
     Top = 208\r
     object PopupClose: TMenuItem\r
+      Tag = 3\r
       Caption = '&Close this popup'\r
       OnClick = PopupCloseClick\r
     end\r
     object PopupToggleInterface: TMenuItem\r
+      Tag = 3\r
       Caption = '&Toggle interface'\r
       OnClick = PopupToggleInterfaceClick\r
     end\r
@@ -2265,35 +2314,45 @@ object MainFrameDlg: TMainFrameDlg
       Caption = '-'\r
     end\r
     object Control1: TMenuItem\r
+      Tag = 3\r
       Caption = 'Control'\r
       object PopupBack: TMenuItem\r
+        Tag = 3\r
         Action = BackAction\r
       end\r
       object PopupPlay: TMenuItem\r
+        Tag = 3\r
         Action = PlayAction\r
       end\r
       object PopupPause: TMenuItem\r
+        Tag = 3\r
         Action = PauseAction\r
       end\r
       object PopupStop: TMenuItem\r
+        Tag = 3\r
         Action = StopAction\r
       end\r
       object PopupSlow: TMenuItem\r
+        Tag = 3\r
         Action = SlowAction\r
       end\r
       object PopupFast: TMenuItem\r
+        Tag = 3\r
         Action = FastAction\r
       end\r
       object N5: TMenuItem\r
         Caption = '-'\r
       end\r
       object PopupPrev: TMenuItem\r
+        Tag = 3\r
         Action = PreviousAction\r
       end\r
       object PopupNext: TMenuItem\r
+        Tag = 3\r
         Action = NextAction\r
       end\r
       object PopupJump: TMenuItem\r
+        Tag = 3\r
         Caption = '&Jump...'\r
         OnClick = PopupJumpClick\r
       end\r
@@ -2301,43 +2360,54 @@ object MainFrameDlg: TMainFrameDlg
         Caption = '-'\r
       end\r
       object PopupFullscreen: TMenuItem\r
+        Tag = 3\r
         Action = FullscreenAction\r
         ShortCut = 70\r
       end\r
     end\r
     object PopupNavigation: TMenuItem\r
+      Tag = 3\r
       Caption = 'Navigation'\r
     end\r
     object PopupProgram: TMenuItem\r
+      Tag = 3\r
       Caption = 'Program'\r
     end\r
     object PopupAudio: TMenuItem\r
+      Tag = 3\r
       Caption = 'Audio'\r
     end\r
     object PopupSubtitles: TMenuItem\r
+      Tag = 3\r
       Caption = 'Subtitles'\r
     end\r
     object N10: TMenuItem\r
       Caption = '-'\r
     end\r
     object PopupPlaylist: TMenuItem\r
+      Tag = 3\r
       Action = PlaylistAction\r
       Caption = 'Playlist...'\r
     end\r
     object PopupPreferences: TMenuItem\r
+      Tag = 3\r
       Action = PreferencesAction\r
     end\r
     object PopupFile: TMenuItem\r
+      Tag = 3\r
       Caption = 'New stream'\r
       object PopupOpenFile: TMenuItem\r
+        Tag = 3\r
         Action = OpenFileAction\r
         Caption = 'Open file...'\r
       end\r
       object PopupOpenDisc: TMenuItem\r
+        Tag = 3\r
         Action = OpenDiscAction\r
         Caption = 'Open disc...'\r
       end\r
       object PopupNetworkStream: TMenuItem\r
+        Tag = 3\r
         Action = NetworkStreamAction\r
         Caption = 'Network stream...'\r
       end\r
@@ -2346,6 +2416,7 @@ object MainFrameDlg: TMainFrameDlg
       Caption = '-'\r
     end\r
     object PopupExit: TMenuItem\r
+      Tag = 3\r
       Action = ExitAction\r
     end\r
   end\r
@@ -2358,6 +2429,7 @@ object MainFrameDlg: TMainFrameDlg
     Left = 168\r
     Top = 208\r
     object OpenFileAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'File'\r
       Hint = 'Open a file'\r
@@ -2366,6 +2438,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = OpenFileActionExecute\r
     end\r
     object OpenDiscAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'Disc'\r
       Hint = 'Open a DVD or VCD'\r
@@ -2374,6 +2447,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = OpenDiscActionExecute\r
     end\r
     object NetworkStreamAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'Net'\r
       Hint = 'Open a network stream'\r
@@ -2382,6 +2456,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = NetworkStreamActionExecute\r
     end\r
     object BackAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Back'\r
       Enabled = False\r
@@ -2389,6 +2464,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = BackActionExecute\r
     end\r
     object PlayAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Play'\r
       Hint = 'Play stream'\r
@@ -2396,6 +2472,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = PlayActionExecute\r
     end\r
     object PauseAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Pause'\r
       Enabled = False\r
@@ -2404,6 +2481,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = PauseActionExecute\r
     end\r
     object StopAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Stop'\r
       Enabled = False\r
@@ -2412,6 +2490,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = StopActionExecute\r
     end\r
     object EjectAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Eject'\r
       Enabled = False\r
@@ -2420,6 +2499,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = EjectActionExecute\r
     end\r
     object SlowAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Slow'\r
       Enabled = False\r
@@ -2428,6 +2508,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = SlowActionExecute\r
     end\r
     object FastAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Fast'\r
       Enabled = False\r
@@ -2436,6 +2517,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = FastActionExecute\r
     end\r
     object PreviousAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Prev'\r
       Hint = 'Previous file'\r
@@ -2443,6 +2525,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = PreviousActionExecute\r
     end\r
     object NextAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Next'\r
       Hint = 'Next file'\r
@@ -2450,6 +2533,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = NextActionExecute\r
     end\r
     object PlaylistAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'Playlist'\r
       Hint = 'Open the playlist window'\r
@@ -2458,6 +2542,7 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = PlaylistActionExecute\r
     end\r
     object ExitAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'Exit'\r
       Hint = 'Exit the program'\r
@@ -2465,18 +2550,21 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = ExitActionExecute\r
     end\r
     object FullscreenAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Fullscreen'\r
       Hint = 'Toggle fullscreen'\r
       OnExecute = FullscreenActionExecute\r
     end\r
     object PreferencesAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'Preferences...'\r
       Hint = 'Configure the application'\r
       OnExecute = PreferencesActionExecute\r
     end\r
     object MessagesAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'Messages...'\r
       Hint = 'Open the messages window'\r
@@ -2484,30 +2572,35 @@ object MainFrameDlg: TMainFrameDlg
       OnExecute = MessagesActionExecute\r
     end\r
     object AboutAction: TAction\r
+      Tag = 3\r
       Category = 'Menu'\r
       Caption = 'About...'\r
       Hint = 'About this application'\r
       OnExecute = AboutActionExecute\r
     end\r
     object PrevTitleAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Prev'\r
       Hint = 'Jump to previous title'\r
       OnExecute = PrevTitleActionExecute\r
     end\r
     object NextTitleAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Next'\r
       Hint = 'Jump to next title'\r
       OnExecute = NextTitleActionExecute\r
     end\r
     object PrevChapterAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Prev'\r
       Hint = 'Jump to previous chapter'\r
       OnExecute = PrevChapterActionExecute\r
     end\r
     object NextChapterAction: TAction\r
+      Tag = 3\r
       Category = 'Control'\r
       Caption = 'Next'\r
       Hint = 'Jump to next chapter'\r
index 20c48442a9d847b6e708ca31b9773970447c101d..48815e8ea9f9fc813612cb5b944cb7aca5087aee 100644 (file)
@@ -178,15 +178,15 @@ __published:      // IDE-managed Components
     void __fastcall StopActionExecute( TObject *Sender );\r
     void __fastcall SlowActionExecute( TObject *Sender );\r
     void __fastcall FastActionExecute( TObject *Sender );\r
+    void __fastcall EjectActionExecute( TObject *Sender );\r
     void __fastcall PlaylistActionExecute( TObject *Sender );\r
-    void __fastcall ExitActionExecute( TObject *Sender );\r
     void __fastcall PreviousActionExecute( TObject *Sender );\r
     void __fastcall NextActionExecute( TObject *Sender );\r
     void __fastcall FullscreenActionExecute( TObject *Sender );\r
     void __fastcall PreferencesActionExecute( TObject *Sender );\r
     void __fastcall MessagesActionExecute( TObject *Sender );\r
     void __fastcall AboutActionExecute( TObject *Sender );\r
-    void __fastcall EjectActionExecute( TObject *Sender );\r
+    void __fastcall ExitActionExecute( TObject *Sender );\r
     void __fastcall PrevTitleActionExecute( TObject *Sender );\r
     void __fastcall NextTitleActionExecute( TObject *Sender );\r
     void __fastcall PrevChapterActionExecute( TObject *Sender );\r
index c812881fdf418f3e9fe17019f81d07ce88c7fe9a..761eb80985336d07561b1e146ef0452b47fcd669 100644 (file)
@@ -26,8 +26,9 @@
 #include <vlc/vlc.h>\r
 #include <vlc/intf.h>\r
 \r
-#include "win32_common.h"\r
 #include "messages.h"\r
+#include "misc.h"\r
+#include "win32_common.h"\r
 \r
 //---------------------------------------------------------------------------\r
 #pragma package(smart_init)\r
@@ -40,6 +41,7 @@ __fastcall TMessagesDlg::TMessagesDlg( TComponent* Owner )
     : TForm( Owner )\r
 {\r
     Icon = p_intfGlobal->p_sys->p_window->Icon;\r
+    Translate( this );\r
 }\r
 //---------------------------------------------------------------------------\r
 void __fastcall TMessagesDlg::ButtonOKClick( TObject *Sender )\r
index dbe1734b336938ffc6c32c35b612e416a93ed37b..fb804b9ac0f09f5f88fc698705a6fdf89c05e81e 100644 (file)
@@ -34,6 +34,7 @@ object MessagesDlg: TMessagesDlg
     WantReturns = False\r
   end\r
   object ButtonOK: TButton\r
+    Tag = 3\r
     Left = 144\r
     Top = 437\r
     Width = 145\r
diff --git a/modules/gui/win32/misc.cpp b/modules/gui/win32/misc.cpp
new file mode 100644 (file)
index 0000000..cb70bd8
--- /dev/null
@@ -0,0 +1,137 @@
+/*****************************************************************************\r
+ * misc.cpp: miscellaneous functions.\r
+ *****************************************************************************\r
+ * Copyright (C) 2002 VideoLAN\r
+ *\r
+ * Authors: Olivier Teuliere <ipkiss@via.ecp.fr>\r
+ *\r
+ * This program is free software; you can redistribute it and/or modify\r
+ * it under the terms of the GNU General Public License as published by\r
+ * the Free Software Foundation; either version 2 of the License, or\r
+ * (at your option) any later version.\r
+ *\r
+ * This program is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
+ * GNU General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License\r
+ * along with this program; if not, write to the Free Software\r
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.\r
+ *****************************************************************************/\r
+\r
+#include <vcl.h>\r
+#pragma hdrstop\r
+\r
+#include "misc.h"\r
+\r
+/****************************************************************************\r
+ * This function replaces "Hint", "Caption" and "Text" properties of each\r
+ * component of the form by the appropriate translation.\r
+ ****************************************************************************/\r
+void __fastcall Translate( TForm *Form )\r
+{\r
+#if 0\r
+    Form->Hint = N_( Form->Hint );\r
+    Form->Caption = N_( Form->Caption );\r
+\r
+    int i;\r
+    for( i = 0; i < Form->ComponentCount; i++ )\r
+    {\r
+        // Does this component need a translation ?\r
+        if( Form->Components[i]->Tag > 0 )\r
+        {\r
+            TComponent *Component = Form->Components[i];\r
+\r
+            // Hint property\r
+            if( Component->Tag & 1 )\r
+            {\r
+                if( Component->InheritsFrom( __classid( TControl ) ) )\r
+                {\r
+                    TControl *Object = (TControl *) Component;\r
+                    Object->Hint = N_( Object->Hint );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TMenuItem ) ) )\r
+                {\r
+                    TMenuItem *Object = (TMenuItem *) Component;\r
+                    Object->Hint = N_( Object->Hint );\r
+                }\r
+            }\r
+\r
+            // Caption property\r
+            if( Component->Tag & 2 )\r
+            {\r
+                if( Component->InheritsFrom( __classid( TMenuItem ) ) )\r
+                {\r
+                    TMenuItem *Object = (TMenuItem *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TLabel ) ) )\r
+                {\r
+                    TLabel *Object = (TLabel *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TButton ) ) )\r
+                {\r
+                    TButton *Object = (TButton *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TToolButton ) ) )\r
+                {\r
+                    TToolButton *Object = (TToolButton *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TRadioButton ) ) )\r
+                {\r
+                    TRadioButton *Object = (TRadioButton *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TCheckBox ) ) )\r
+                {\r
+                    TCheckBox *Object = (TCheckBox *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TRadioGroup ) ) )\r
+                {\r
+                    TRadioGroup *Object = (TRadioGroup *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TGroupBox ) ) )\r
+                {\r
+                    TGroupBox *Object = (TGroupBox *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TTabSheet ) ) )\r
+                {\r
+                    TTabSheet *Object = (TTabSheet *) Component;\r
+                    Object->Caption = N_( Object->Caption );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TListView ) ) )\r
+                {\r
+                    TListView *Object = (TListView *) Component;\r
+                    int iCol;\r
+                    for( iCol = 0; iCol < Object->Columns->Count; iCol++ )\r
+                        Object->Columns->Items[iCol]->Caption =\r
+                                 N_( Object->Columns->Items[iCol]->Caption );\r
+                }\r
+            }\r
+\r
+            // Text property\r
+            if( Component->Tag & 4 )\r
+            {\r
+                if( Component->InheritsFrom( __classid( TEdit ) ) )\r
+                {\r
+                    TEdit *Object = (TEdit *) Component;\r
+                    Object->Text = N_( Object->Text );\r
+                }\r
+                else if( Component->InheritsFrom( __classid( TComboBox ) ) )\r
+                {\r
+                    TComboBox *Object = (TComboBox *) Component;\r
+                    Object->Text = N_( Object->Text );\r
+                }\r
+            }\r
+        }\r
+    }\r
+#endif\r
+}\r
\r
diff --git a/modules/gui/win32/misc.h b/modules/gui/win32/misc.h
new file mode 100644 (file)
index 0000000..aaef4f2
--- /dev/null
@@ -0,0 +1,28 @@
+/*****************************************************************************\r
+ * misc.h: Prototype for main window\r
+ *****************************************************************************\r
+ * Copyright (C) 2002 VideoLAN\r
+ *\r
+ * Authors: Olivier Teuliere <ipkiss@via.ecp.fr>\r
+ *\r
+ * This program is free software; you can redistribute it and/or modify\r
+ * it under the terms of the GNU General Public License as published by\r
+ * the Free Software Foundation; either version 2 of the License, or\r
+ * (at your option) any later version.\r
+ * \r
+ * This program is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
+ * GNU General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License\r
+ * along with this program; if not, write to the Free Software\r
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.\r
+ *****************************************************************************/\r
+\r
+#ifndef miscH\r
+#define miscH\r
+\r
+void __fastcall Translate( TForm *Form );\r
+\r
+#endif\r
index caebf5aa22500419304833eae50f55c6de60a304..36356e026dc7d69a14d1c0a309134329a9345d9e 100644 (file)
@@ -27,6 +27,7 @@
 #include <vlc/intf.h>\r
 \r
 #include "network.h"\r
+#include "misc.h"\r
 #include "win32_common.h"\r
 \r
 #include "netutils.h"\r
@@ -65,6 +66,8 @@ __fastcall TNetworkDlg::TNetworkDlg( TComponent* Owner )
         }\r
 \r
         SpinEditCSPort->Value = config_GetInt( p_intfGlobal, "channel-port" );\r
+\r
+        Translate( this );\r
 }\r
 //---------------------------------------------------------------------------\r
 void __fastcall TNetworkDlg::FormShow( TObject *Sender )\r
index 02f6cd6f5fc7008678fa49be287942b94dff86d8..072131f70e9ecd5361738bb945f4502b5ecfd228 100644 (file)
@@ -248,6 +248,7 @@ object NetworkDlg: TNetworkDlg
   PixelsPerInch = 96\r
   TextHeight = 13\r
   object BitBtnOk: TBitBtn\r
+    Tag = 3\r
     Left = 40\r
     Top = 168\r
     Width = 177\r
@@ -257,6 +258,7 @@ object NetworkDlg: TNetworkDlg
     Kind = bkOK\r
   end\r
   object BitBtnCancel: TBitBtn\r
+    Tag = 3\r
     Left = 256\r
     Top = 168\r
     Width = 177\r
@@ -266,6 +268,7 @@ object NetworkDlg: TNetworkDlg
     Kind = bkCancel\r
   end\r
   object GroupBoxMode: TGroupBox\r
+    Tag = 3\r
     Left = 8\r
     Top = 8\r
     Width = 465\r
@@ -273,6 +276,7 @@ object NetworkDlg: TNetworkDlg
     Caption = 'Network mode'\r
     TabOrder = 2\r
     object LabelUDPPort: TLabel\r
+      Tag = 3\r
       Left = 148\r
       Top = 26\r
       Width = 22\r
@@ -280,6 +284,7 @@ object NetworkDlg: TNetworkDlg
       Caption = 'Port:'\r
     end\r
     object LabelMulticastPort: TLabel\r
+      Tag = 3\r
       Left = 364\r
       Top = 54\r
       Width = 22\r
@@ -288,6 +293,7 @@ object NetworkDlg: TNetworkDlg
       Enabled = False\r
     end\r
     object LabelCSPort: TLabel\r
+      Tag = 3\r
       Left = 364\r
       Top = 82\r
       Width = 22\r
@@ -296,6 +302,7 @@ object NetworkDlg: TNetworkDlg
       Enabled = False\r
     end\r
     object LabelMulticastAddress: TLabel\r
+      Tag = 3\r
       Left = 139\r
       Top = 54\r
       Width = 41\r
@@ -304,6 +311,7 @@ object NetworkDlg: TNetworkDlg
       Enabled = False\r
     end\r
     object LabelCSAddress: TLabel\r
+      Tag = 3\r
       Left = 139\r
       Top = 82\r
       Width = 41\r
@@ -312,6 +320,7 @@ object NetworkDlg: TNetworkDlg
       Enabled = False\r
     end\r
     object LabelHTTPURL: TLabel\r
+      Tag = 3\r
       Left = 147\r
       Top = 110\r
       Width = 25\r
@@ -320,6 +329,7 @@ object NetworkDlg: TNetworkDlg
       Enabled = False\r
     end\r
     object RadioButtonUDP: TRadioButton\r
+      Tag = 3\r
       Left = 16\r
       Top = 24\r
       Width = 97\r
@@ -331,6 +341,7 @@ object NetworkDlg: TNetworkDlg
       OnEnter = RadioButtonUDPEnter\r
     end\r
     object RadioButtonMulticast: TRadioButton\r
+      Tag = 3\r
       Left = 16\r
       Top = 52\r
       Width = 97\r
@@ -340,6 +351,7 @@ object NetworkDlg: TNetworkDlg
       OnEnter = RadioButtonMulticastEnter\r
     end\r
     object RadioButtonCS: TRadioButton\r
+      Tag = 3\r
       Left = 16\r
       Top = 80\r
       Width = 97\r
@@ -349,6 +361,7 @@ object NetworkDlg: TNetworkDlg
       OnEnter = RadioButtonCSEnter\r
     end\r
     object RadioButtonHTTP: TRadioButton\r
+      Tag = 3\r
       Left = 16\r
       Top = 108\r
       Width = 97\r
@@ -358,6 +371,7 @@ object NetworkDlg: TNetworkDlg
       OnEnter = RadioButtonHTTPEnter\r
     end\r
     object ComboBoxMulticastAddress: TComboBox\r
+      Tag = 5\r
       Left = 184\r
       Top = 50\r
       Width = 161\r
@@ -367,6 +381,7 @@ object NetworkDlg: TNetworkDlg
       TabOrder = 5\r
     end\r
     object ComboBoxCSAddress: TComboBox\r
+      Tag = 5\r
       Left = 184\r
       Top = 78\r
       Width = 161\r
@@ -379,6 +394,7 @@ object NetworkDlg: TNetworkDlg
         'vlcs')\r
     end\r
     object EditHTTPURL: TEdit\r
+      Tag = 5\r
       Left = 184\r
       Top = 106\r
       Width = 265\r
index cdea5ef91b37851fbbdc4a56ae09c6a1dadab9f3..09f81fed47c9c6d3f2bff1b89d2c55249050773e 100644 (file)
@@ -27,6 +27,7 @@
 #include <vlc/intf.h>\r
 \r
 #include "playlist.h"\r
+#include "misc.h"\r
 #include "win32_common.h"\r
 \r
 //---------------------------------------------------------------------------\r
@@ -40,6 +41,7 @@ __fastcall TPlaylistDlg::TPlaylistDlg( TComponent* Owner )
         : TForm( Owner )\r
 {\r
     Icon = p_intfGlobal->p_sys->p_window->Icon;\r
+    Translate( this );\r
 }\r
 //---------------------------------------------------------------------------\r
 char * __fastcall TPlaylistDlg::rindex( char *s, char c )\r
index 154bf2e110393f71f153ae1d645c108a3f7de831..c3567550dd05048114c3b93166a4727321d7051c 100644 (file)
@@ -1,6 +1,6 @@
 object PlaylistDlg: TPlaylistDlg\r
-  Left = 162\r
-  Top = 364\r
+  Left = 346\r
+  Top = 231\r
   Width = 335\r
   Height = 436\r
   Caption = 'Playlist'\r
@@ -17,6 +17,7 @@ object PlaylistDlg: TPlaylistDlg
   PixelsPerInch = 96\r
   TextHeight = 13\r
   object BitBtnOk: TBitBtn\r
+    Tag = 3\r
     Left = 76\r
     Top = 356\r
     Width = 176\r
@@ -28,6 +29,7 @@ object PlaylistDlg: TPlaylistDlg
     OnClick = BitBtnOkClick\r
   end\r
   object ListViewPlaylist: TListView\r
+    Tag = 3\r
     Left = 11\r
     Top = 10\r
     Width = 305\r
@@ -58,41 +60,52 @@ object PlaylistDlg: TPlaylistDlg
     Left = 8\r
     Top = 352\r
     object MenuAdd: TMenuItem\r
+      Tag = 3\r
       Caption = '&Add'\r
       object MenuAddFile: TMenuItem\r
+        Tag = 3\r
         Caption = '&File'\r
         OnClick = MenuAddFileClick\r
       end\r
       object MenuAddDisc: TMenuItem\r
+        Tag = 3\r
         Caption = '&Disc'\r
         OnClick = MenuAddDiscClick\r
       end\r
       object MenuAddNet: TMenuItem\r
+        Tag = 3\r
         Caption = '&Network'\r
         OnClick = MenuAddNetClick\r
       end\r
       object MenuAddUrl: TMenuItem\r
+        Tag = 3\r
         Caption = '&Url'\r
         Enabled = False\r
         OnClick = MenuAddUrlClick\r
       end\r
     end\r
     object MenuDelete: TMenuItem\r
+      Tag = 3\r
       Caption = '&Delete'\r
       object MenuDeleteAll: TMenuItem\r
+        Tag = 3\r
         Action = DeleteAllAction\r
       end\r
       object MenuDeleteSelected: TMenuItem\r
+        Tag = 3\r
         Action = DeleteSelectionAction\r
         Caption = '&Selection'\r
       end\r
     end\r
     object MenuSelection: TMenuItem\r
+      Tag = 3\r
       Caption = '&Selection'\r
       object MenuSelectionCrop: TMenuItem\r
+        Tag = 3\r
         Action = CropSelectionAction\r
       end\r
       object MenuSelectionInvert: TMenuItem\r
+        Tag = 3\r
         Action = InvertSelectionAction\r
       end\r
     end\r
@@ -101,16 +114,19 @@ object PlaylistDlg: TPlaylistDlg
     Left = 40\r
     Top = 352\r
     object PopupPlay: TMenuItem\r
+      Tag = 3\r
       Action = PlayStreamAction\r
     end\r
     object N1: TMenuItem\r
       Caption = '-'\r
     end\r
     object PopupInvertSelection: TMenuItem\r
+      Tag = 3\r
       Action = InvertSelectionAction\r
       Caption = '&Invert selection'\r
     end\r
     object PopupCropSelection: TMenuItem\r
+      Tag = 3\r
       Action = CropSelectionAction\r
       Caption = '&Crop selection'\r
     end\r
@@ -118,10 +134,12 @@ object PlaylistDlg: TPlaylistDlg
       Caption = '-'\r
     end\r
     object PopupDeleteSelected: TMenuItem\r
+      Tag = 3\r
       Action = DeleteSelectionAction\r
       Caption = '&Delete selection'\r
     end\r
     object PopupDeleteAll: TMenuItem\r
+      Tag = 3\r
       Action = DeleteAllAction\r
       Caption = 'Delete &all'\r
     end\r
@@ -130,26 +148,31 @@ object PlaylistDlg: TPlaylistDlg
     Left = 264\r
     Top = 352\r
     object InvertSelectionAction: TAction\r
+      Tag = 3\r
       Caption = 'Invert'\r
       Hint = 'Invert selection'\r
       OnExecute = InvertSelectionActionExecute\r
     end\r
     object CropSelectionAction: TAction\r
+      Tag = 3\r
       Caption = 'Crop'\r
       Hint = 'Crop selection'\r
       OnExecute = CropSelectionActionExecute\r
     end\r
     object DeleteSelectionAction: TAction\r
+      Tag = 3\r
       Caption = 'Delete'\r
       Hint = 'Delete selection'\r
       OnExecute = DeleteSelectionActionExecute\r
     end\r
     object DeleteAllAction: TAction\r
+      Tag = 3\r
       Caption = 'All'\r
       Hint = 'Delete all items'\r
       OnExecute = DeleteAllActionExecute\r
     end\r
     object PlayStreamAction: TAction\r
+      Tag = 3\r
       Caption = 'Play'\r
       Hint = 'Play the selected stream'\r
       OnExecute = PlayStreamActionExecute\r
index 24e5c00d886443f6e662f1fb60a8ba1d3fe741b8..638e7a4db0c06aa645498089e273b6d3c94cc876 100644 (file)
@@ -1,5 +1,4 @@
 USEUNIT("win32.cpp");\r
-USEUNIT("intf_win32.cpp");\r
 USEFORM("mainframe.cpp", MainFrameDlg);\r
 USEFORM("network.cpp", NetworkDlg);\r
 USEFORM("playlist.cpp", PlaylistDlg);\r
@@ -10,7 +9,8 @@ USEUNIT("control.cpp");
 USE("win32_common.h", File);\r
 USEUNIT("menu.cpp");\r
 USEFORM("messages.cpp", MessagesDlg);\r
+USEUNIT("misc.cpp");\r
 //---------------------------------------------------------------------------\r
 This file is used by the project manager only and should be treated like the project file\r
 
-\rDllEntryPoint
\ No newline at end of file
+\rDllEntryPoint
index 9909d5c905e05abce632eccb8be17cd21ab1dfba..9b820b1ce203f9033006ae9511bd872da87734cc 100644 (file)
@@ -4,8 +4,8 @@
   <MACROS>\r
     <VERSION value="BCB.05.03"/>\r
     <PROJECT value="win32.so"/>\r
-    <OBJFILES value="win32.obj mainframe.obj network.obj playlist.obj \r
-      preferences.obj about.obj disc.obj control.obj menu.obj messages.obj"/>\r
+    <OBJFILES value="win32.obj mainframe.obj network.obj playlist.obj preferences.obj about.obj \r
+      disc.obj control.obj menu.obj messages.obj misc.obj"/>\r
     <RESFILES value=""/>\r
     <DEFFILE value=""/>\r
     <RESDEPEN value="$(RESFILES) mainframe.dfm network.dfm playlist.dfm preferences.dfm \r
@@ -23,7 +23,7 @@
     <DEBUGLIBPATH value="$(BCB)\lib\debug"/>\r
     <RELEASELIBPATH value="$(BCB)\lib\release"/>\r
     <LINKER value="tlink32"/>\r
-    <USERDEFINES value="_DEBUG"/>\r
+    <USERDEFINES value="_DEBUG;WIN32;__VLC__;__PLUGIN__;MODULE_NAME_IS_win32"/>\r
     <SYSDEFINES value="NO_STRICT"/>\r
     <MAINSOURCE value="win32.bpf"/>\r
     <INCLUDEPATH value="..\..\win32;$(BCB)\include;$(BCB)\include\vcl;..\..\..\include;..\..\.."/>\r
@@ -72,20 +72,25 @@ ProductVersion=1.0.0.0
 Comments=\r
 \r
 [HistoryLists\hlIncludePath]\r
-Count1=\r
-Item0=..\win32;..\..\win32;$(BCB)\include;$(BCB)\include\vcl;..\..\include;..\..\src\misc\r
+Count=1\r
+Item0=..\..\win32;$(BCB)\include;$(BCB)\include\vcl;..\..\..\include;..\..\src\misc\r
 \r
 [HistoryLists\hlLibraryPath]\r
-Count=1\r
-Item0=..\win32;..\..\win32;$(BCB)\lib\obj;$(BCB)\lib\r
+Count=2\r
+Item0=..\..\win32;$(BCB)\lib\obj;$(BCB)\lib\r
+Item1=..\win32;..\..\win32;$(BCB)\lib\obj;$(BCB)\lib\r
 \r
 [HistoryLists\hlDebugSourcePath]\r
 Count=1\r
 Item0=$(BCB)\source\vcl\r
 \r
 [HistoryLists\hlConditionals]\r
-Count=1\r
-Item0=_DEBUG\r
+Count=5\r
+Item0=_DEBUG;WIN32;__VLC__;__PLUGIN__;MODULE_NAME_IS_win32\r
+Item1=_DEBUG;WIN32;__VLC__;__PLUGIN__;MODULE_NAME_IS_win32;MODULE_NAME=win32;MODULE_PATH=modules_gui_win32_win32\r
+Item2=_DEBUG;__VLC__;__PLUGIN__;MODULE_NAME_IS_win32;MODULE_NAME=win32;MODULE_PATH=modules_gui_win32_win32\r
+Item3=_DEBUG;__VLC__;__PLUGIN__\r
+Item4=_DEBUG\r
 \r
 [Debugging]\r
 DebugSourceDirs=$(BCB)\source\vcl\r
@@ -107,4 +112,4 @@ ActiveLang=
 ProjectLang=\r
 RootDir=\r
   </IDEOPTIONS>\r
-</PROJECT>\r
+</PROJECT>
\ No newline at end of file