From 17bb1a6f4ced564610ea7d2931e66ef0b813bf4f Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 25 Nov 2010 07:41:17 +0000
Subject: [PATCH] qt: fix messageDlg error

git-svn-id: trunk@28473 -
---
 lcl/interfaces/qt/qtlclintf.inc | 2 +-
 lcl/interfaces/qt/qtwidgets.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/qt/qtlclintf.inc b/lcl/interfaces/qt/qtlclintf.inc
index 03753bcc61..255292bc1d 100644
--- a/lcl/interfaces/qt/qtlclintf.inc
+++ b/lcl/interfaces/qt/qtlclintf.inc
@@ -149,7 +149,7 @@ begin
     for BtnIdx := 0 to Buttons.Count - 1 do
     begin
       with Buttons[BtnIdx] do
-        QtMessageBox.AddButton(ModalResult, Caption, Default, Cancel);
+        QtMessageBox.AddButton(Caption, ModalResult, Default, Cancel);
     end;
 
     if DialogCaption <> '' then
diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index ca5d90550d..b4c2a3f5d0 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -1513,7 +1513,7 @@ type
       const AEscapeBtn: Boolean); overload;
     procedure AddButton(ABtnType: QMessageBoxStandardButton; ACaption: WideString;
       const ADefaultBtn: Boolean; const AEscapeBtn: Boolean = False); overload;
-    procedure AddButton(AResult: Int64; ACaption: WideString;
+    procedure AddButton(ACaption: WideString; AResult: Int64;
       const ADefaultBtn: Boolean; const AEscapeBtn: Boolean = False);
     function exec: Int64;
     property DetailText: WideString read getDetailText write setDetailText;
@@ -13519,7 +13519,7 @@ begin
   AddButton(ABtn, Int64(ABtnType), ADefaultBtn, AEscapeBtn);
 end;
 
-procedure TQtMessageBox.AddButton(AResult: Int64; ACaption: WideString; const ADefaultBtn: Boolean;
+procedure TQtMessageBox.AddButton(ACaption: WideString; AResult: Int64; const ADefaultBtn: Boolean;
   const AEscapeBtn: Boolean);
 var
   ABtn: QPushButtonH;