tvplanit: Refactor ical import preview to facilitate future import of vcards.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8379 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2022-08-11 16:46:32 +00:00
parent 4596ff2bef
commit c22ce64166
23 changed files with 815 additions and 351 deletions
--- a/components/tvplanit/source/vpimportpreview.lfm
+++ b/components/tvplanit/source/vpimportpreview.lfm
@ -0,0 +1,82 @@
+object VpImportPreviewForm: TVpImportPreviewForm
+  Left = 327
+  Height = 295
+  Top = 127
+  Width = 603
+  Caption = 'VpImportPreviewForm'
+  ClientHeight = 295
+  ClientWidth = 603
+  object Grid: TDrawGrid
+    Left = 0
+    Height = 258
+    Top = 0
+    Width = 603
+    Align = alClient
+    AutoFillColumns = True
+    ColCount = 2
+    Columns = <    
+      item
+        Alignment = taCenter
+        ButtonStyle = cbsCheckboxColumn
+        SizePriority = 0
+        Title.Caption = ''
+        Width = 33
+      end    
+      item
+        ReadOnly = True
+        Title.Caption = 'Items'
+        Width = 566
+      end>
+    ExtendedSelect = False
+    FixedCols = 0
+    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goThumbTracking, goSmoothScroll]
+    TabOrder = 0
+    OnDrawCell = GridDrawCell
+    OnGetCheckboxState = GridGetCheckboxState
+    OnPrepareCanvas = GridPrepareCanvas
+    OnSetCheckboxState = GridSetCheckboxState
+    ColWidths = (
+      33
+      566
+    )
+  end
+  object ButtonPanel: TPanel
+    Left = 6
+    Height = 25
+    Top = 264
+    Width = 591
+    Align = alBottom
+    AutoSize = True
+    BorderSpacing.Around = 6
+    BevelOuter = bvNone
+    ClientHeight = 25
+    ClientWidth = 591
+    TabOrder = 1
+    object btnExecute: TButton
+      AnchorSideTop.Control = ButtonPanel
+      AnchorSideRight.Control = btnCancel
+      Left = 375
+      Height = 25
+      Top = 0
+      Width = 141
+      Anchors = [akTop, akRight]
+      AutoSize = True
+      Caption = 'Import checked items'
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object btnCancel: TButton
+      AnchorSideTop.Control = ButtonPanel
+      AnchorSideRight.Control = ButtonPanel
+      AnchorSideRight.Side = asrBottom
+      Left = 516
+      Height = 25
+      Top = 0
+      Width = 75
+      Anchors = [akTop, akRight]
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+end