Opkman: Improved details form. Issue #31501, patch from AlexeyT.

git-svn-id: trunk@54473 -

components/onlinepackagemanager/opkman_packagedetailsfrm.lfm

@@ -1,7 +1,7 @@
 object PackageDetailsFrm: TPackageDetailsFrm
-  Left = 455
+  Left = 418
   Height = 310
-  Top = 264
+  Top = 383
   Width = 477
   BorderIcons = [biSystemMenu]
   ClientHeight = 310
@@ -24,25 +24,20 @@ object PackageDetailsFrm: TPackageDetailsFrm
     ScrollBars = ssBoth
     TabOrder = 0
   end
-  object pnButtons: TPanel
-    Left = 0
-    Height = 41
-    Top = 269
-    Width = 477
-    Align = alBottom
-    BevelOuter = bvNone
-    ClientHeight = 41
-    ClientWidth = 477
+  object ButtonPanel: TButtonPanel
+    Left = 6
+    Height = 34
+    Top = 270
+    Width = 465
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
     TabOrder = 1
-    object bOk: TButton
-      Left = 390
-      Height = 26
-      Top = 8
-      Width = 75
-      Anchors = [akTop, akRight]
-      Caption = 'Ok'
-      ModalResult = 1
-      TabOrder = 0
-    end
+    ShowButtons = [pbOK]
   end
 end

components/onlinepackagemanager/opkman_packagedetailsfrm.pas

@@ -29,16 +29,15 @@ interface
 
 uses
   // LCL
-  Forms, StdCtrls, ExtCtrls;
+  Forms, StdCtrls, ExtCtrls, ButtonPanel;
 
 type
 
   { TPackageDetailsFrm }
 
   TPackageDetailsFrm = class(TForm)
-    bOk: TButton;
+    ButtonPanel: TButtonPanel;
     mDetails: TMemo;
-    pnButtons: TPanel;
     procedure FormKeyPress(Sender: TObject; var Key: char);
   private