tvplanit: Add cancel button to FieldMapping editor

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5027 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2016-07-24 14:44:45 +00:00
parent 257f3fd322
commit 365b9a6de6
3 changed files with 74 additions and 29 deletions
--- a/components/tvplanit/source/vpflxdsed1.lfm
+++ b/components/tvplanit/source/vpflxdsed1.lfm
@ -22,15 +22,24 @@ object frmFieldMapper: TfrmFieldMapper
    ClientHeight = 45
    ClientWidth = 409
    TabOrder = 1
-    object BtnClose: TButton
-      Left = 325
+    object BtnOK: TButton
+      Left = 240
      Height = 25
      Top = 8
      Width = 75
-      Caption = 'Close'
-      OnClick = BtnCloseClick
+      Caption = 'OK'
+      ModalResult = 1
      TabOrder = 0
    end
+    object BtnCancel: TButton
+      Left = 320
+      Height = 25
+      Top = 8
+      Width = 75
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
  end
  object PageControl1: TPageControl
    Left = 0