From 8f7627dae73bad0f425e2ac16810a19feb735476 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 5 Jul 2007 04:36:46 +0000
Subject: [PATCH] fix compilation of qt

git-svn-id: trunk@11424 -
---
 lcl/interfaces/qt/qtwsdialogs.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwsdialogs.pp b/lcl/interfaces/qt/qtwsdialogs.pp
index 03a64521a9..8ac2005669 100644
--- a/lcl/interfaces/qt/qtwsdialogs.pp
+++ b/lcl/interfaces/qt/qtwsdialogs.pp
@@ -323,7 +323,8 @@ begin
   AQtColor := QColor_create(ARgb);
   try
     QColor_toRgb(AQtColor, @AColor);
-    TQColorToColorRef(AColor, TColorDialog(ACommonDialog).Color);
+    TQColorToColorRef(AColor, ARefColor);
+    TColorDialog(ACommonDialog).Color := ARefColor;
   finally
     QColor_destroy(AQtColor);
   end;