From 59c717c748c4c230db514d71a5be6fb193d6dc8a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 20 Jul 2016 21:05:51 +0000
Subject: [PATCH] tvplanit: uses clocale. Wider granularity combo in fulldemo.
 No panel captions in wavdlg.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5018 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/examples/fulldemo/demomain.lfm | 2 +-
 components/tvplanit/examples/fulldemo/demomain.pas | 3 +++
 components/tvplanit/source/vpwavdlg.lfm            | 1 -
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm
index 4c53af80e..15f4e328e 100644
--- a/components/tvplanit/examples/fulldemo/demomain.lfm
+++ b/components/tvplanit/examples/fulldemo/demomain.lfm
@@ -232,7 +232,7 @@ object MainForm: TMainForm
               Left = 320
               Height = 23
               Top = 8
-              Width = 68
+              Width = 120
               ItemHeight = 15
               ItemIndex = 5
               Items.Strings = (
diff --git a/components/tvplanit/examples/fulldemo/demomain.pas b/components/tvplanit/examples/fulldemo/demomain.pas
index f1fa94628..4965ad9d8 100644
--- a/components/tvplanit/examples/fulldemo/demomain.pas
+++ b/components/tvplanit/examples/fulldemo/demomain.pas
@@ -5,6 +5,9 @@ unit demoMain;
 interface
 
 uses
+ {$IFDEF UNIX}
+  clocale,
+ {$ENDIF}
   Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics, Dialogs,
   ExtCtrls, StdCtrls, ComCtrls, LCLTranslator, Menus, VpBaseDS, VpDayView,
   VpWeekView, VpTaskList, VpAbout, VpContactGrid, VpMonthView, VpResEditDlg,
diff --git a/components/tvplanit/source/vpwavdlg.lfm b/components/tvplanit/source/vpwavdlg.lfm
index dca5de7c6..742ad2d63 100644
--- a/components/tvplanit/source/vpwavdlg.lfm
+++ b/components/tvplanit/source/vpwavdlg.lfm
@@ -33,7 +33,6 @@ object FrmSoundDialog: TFrmSoundDialog
         Width = 333
         Align = alRight
         BevelOuter = bvNone
-        Caption = 'Nothing to select from...'
         ClientHeight = 446
         ClientWidth = 333
         TabOrder = 2