tvplanit: Update FlexDatastore mapping form to scale correctly in the HiDPI mode of Lazarus 1.8. Update demos datastores/bufds and datastores/flex/access.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5873 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/datastores/flex/access/unit1.lfm

@@ -1,46 +1,61 @@
 object Form1: TForm1
-  Left = 344
+  Left = 336
   Height = 686
-  Top = 169
+  Top = 153
   Width = 980
   Caption = 'VpFlexDatastore demo (MS Access via ODBC)'
   ClientHeight = 686
   ClientWidth = 980
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  LCLVersion = '1.7'
+  LCLVersion = '1.9.0.0'
   object Panel1: TPanel
     Left = 0
-    Height = 34
+    Height = 33
     Top = 0
     Width = 980
     Align = alTop
+    AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 34
+    ClientHeight = 33
     ClientWidth = 980
     TabOrder = 0
     object VpResourceCombo1: TVpResourceCombo
-      Left = 8
+      AnchorSideLeft.Control = Panel1
+      Left = 4
       Height = 23
       Top = 5
       Width = 208
       DataStore = VpFlexDataStore1
       Style = csDropDownList
+      Borderspacing.Left = 4
+      Borderspacing.Top = 4
+      Borderspacing.Bottom = 4
     end
     object BtnNewRes: TButton
-      Left = 222
+      AnchorSideLeft.Control = VpResourceCombo1
+      AnchorSideLeft.Side = asrBottom
+      Left = 216
       Height = 25
       Top = 4
       Width = 99
+      BorderSpacing.Left = 4
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 4
       Caption = 'New resource'
       OnClick = BtnNewResClick
       TabOrder = 1
     end
     object BtnEditRes: TButton
-      Left = 328
+      AnchorSideLeft.Control = BtnNewRes
+      AnchorSideLeft.Side = asrBottom
+      Left = 319
       Height = 25
       Top = 4
       Width = 96
+      BorderSpacing.Left = 4
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 4
       Caption = 'Edit resource'
       OnClick = BtnEditResClick
       TabOrder = 2
@@ -48,8 +63,8 @@ object Form1: TForm1
   end
   object PageControl1: TPageControl
     Left = 0
-    Height = 652
-    Top = 34
+    Height = 653
+    Top = 33
     Width = 980
     ActivePage = TabSheet1
     Align = alClient
@@ -58,11 +73,11 @@ object Form1: TForm1
     OnChange = PageControl1Change
     object TabSheet1: TTabSheet
       Caption = 'Events and tasks'
-      ClientHeight = 624
+      ClientHeight = 625
       ClientWidth = 972
       object VpDayView1: TVpDayView
         Left = 0
-        Height = 624
+        Height = 625
         Top = 0
         Width = 301
         DataStore = VpFlexDataStore1
@@ -80,7 +95,6 @@ object Form1: TForm1
         TimeSlotColors.Active = clWhite
         TimeSlotColors.Inactive = 8454143
         TimeSlotColors.Holiday = 16744703
-        TimeSlotColors.Weekday = clWhite
         TimeSlotColors.Weekend = 16777088
         TimeSlotColors.ActiveRange.RangeBegin = h_00
         TimeSlotColors.ActiveRange.RangeEnd = h_00
@@ -99,18 +113,18 @@ object Form1: TForm1
       end
       object Panel2: TPanel
         Left = 306
-        Height = 624
+        Height = 625
         Top = 0
         Width = 386
         Align = alLeft
         BevelOuter = bvNone
         Caption = 'Panel2'
-        ClientHeight = 624
+        ClientHeight = 625
         ClientWidth = 386
         TabOrder = 1
         object VpWeekView1: TVpWeekView
           Left = 0
-          Height = 378
+          Height = 379
           Top = 0
           Width = 386
           DataStore = VpFlexDataStore1
@@ -138,7 +152,7 @@ object Form1: TForm1
         object VpMonthView1: TVpMonthView
           Left = 0
           Height = 241
-          Top = 383
+          Top = 384
           Width = 386
           DataStore = VpFlexDataStore1
           ControlLink = VpControlLink1
@@ -148,29 +162,28 @@ object Form1: TForm1
           TabOrder = 1
           KBNavigation = True
           DateLabelFormat = 'mmmm yyyy'
-          DayHeadAttributes.Color = clBtnFace
           DayHeadAttributes.Font.Height = -13
           DayHeadAttributes.Font.Name = 'Tahoma'
+          DayHeadAttributes.Color = clBtnFace
           DayNameStyle = dsShort
           DrawingStyle = dsFlat
           EventDayStyle = []
           HeadAttributes.Color = clBtnFace
-          LineColor = clGray
-          TimeFormat = tf12Hour
-          TodayAttributes.Color = clSilver
-          TodayAttributes.BorderPen.Color = clRed
-          TodayAttributes.BorderPen.Width = 3
           OffDayColor = clSilver
           SelectedDayColor = clRed
           ShowEvents = True
           ShowEventTime = False
+          TimeFormat = tf12Hour
+          TodayAttributes.Color = clSilver
+          TodayAttributes.BorderPen.Color = clRed
+          TodayAttributes.BorderPen.Width = 3
           WeekStartsOn = dtMonday
         end
         object Splitter2: TSplitter
           Cursor = crVSplit
           Left = 0
           Height = 5
-          Top = 378
+          Top = 379
           Width = 386
           Align = alBottom
           ResizeAnchor = akBottom
@@ -178,7 +191,7 @@ object Form1: TForm1
       end
       object VpTaskList1: TVpTaskList
         Left = 697
-        Height = 624
+        Height = 625
         Top = 0
         Width = 275
         DataStore = VpFlexDataStore1
@@ -206,13 +219,13 @@ object Form1: TForm1
       end
       object Splitter1: TSplitter
         Left = 692
-        Height = 624
+        Height = 625
         Top = 0
         Width = 5
       end
       object Splitter3: TSplitter
         Left = 301
-        Height = 624
+        Height = 625
         Top = 0
         Width = 5
       end