From 2fb499d22083ff7b99d3c0bbd5bc9a4cc6ce3d0a Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 27 Feb 2018 07:00:13 +0000
Subject: [PATCH] RxFPC:fix paint TRxLockupCombo on resize

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6215 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../rx/trunk/demos/RxLookup/project1.lpi      | 39 +++++++++++++------
 components/rx/trunk/rxdb/rxlookup.pas         |  7 ++++
 2 files changed, 34 insertions(+), 12 deletions(-)

diff --git a/components/rx/trunk/demos/RxLookup/project1.lpi b/components/rx/trunk/demos/RxLookup/project1.lpi
index 4dc295a6b..ba28cb90b 100644
--- a/components/rx/trunk/demos/RxLookup/project1.lpi
+++ b/components/rx/trunk/demos/RxLookup/project1.lpi
@@ -55,8 +55,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="22"/>
+        <TopLine Value="16"/>
         <CursorPos X="23" Y="74"/>
         <UsageCount Value="24"/>
         <Loaded Value="True"/>
@@ -75,17 +74,19 @@
       <Unit3>
         <Filename Value="../../../../lcl/controls.pp"/>
         <UnitName Value="Controls"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="1135"/>
-        <CursorPos Y="1152"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="1276"/>
+        <CursorPos X="15" Y="1294"/>
         <UsageCount Value="11"/>
+        <Loaded Value="True"/>
       </Unit3>
       <Unit4>
         <Filename Value="../../../../lcl/include/control.inc"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="4113"/>
-        <CursorPos Y="4129"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="3771"/>
+        <CursorPos X="3" Y="3778"/>
         <UsageCount Value="11"/>
+        <Loaded Value="True"/>
       </Unit4>
       <Unit5>
         <Filename Value="../../rxpopupunit.pas"/>
@@ -124,10 +125,12 @@
       </Unit9>
       <Unit10>
         <Filename Value="../../rxdb/rxlookup.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="1520"/>
-        <CursorPos X="33" Y="1520"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="1466"/>
+        <CursorPos X="2" Y="1471"/>
         <UsageCount Value="11"/>
+        <Loaded Value="True"/>
       </Unit10>
       <Unit11>
         <Filename Value="../../registerrx.pas"/>
@@ -162,7 +165,7 @@
         <UsageCount Value="10"/>
       </Unit14>
     </Units>
-    <JumpHistory Count="13" HistoryIndex="12">
+    <JumpHistory Count="16" HistoryIndex="15">
       <Position1>
         <Filename Value="unit1.pas"/>
         <Caret Line="47" TopLine="34"/>
@@ -215,6 +218,18 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="62" Column="14" TopLine="57"/>
       </Position13>
+      <Position14>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="74" Column="23" TopLine="16"/>
+      </Position14>
+      <Position15>
+        <Filename Value="../../rxdb/rxlookup.pas"/>
+        <Caret Line="334" Column="3" TopLine="315"/>
+      </Position15>
+      <Position16>
+        <Filename Value="../../rxdb/rxlookup.pas"/>
+        <Caret Line="277" Column="30" TopLine="259"/>
+      </Position16>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/components/rx/trunk/rxdb/rxlookup.pas b/components/rx/trunk/rxdb/rxlookup.pas
index 2fb78e77f..6e279d75f 100644
--- a/components/rx/trunk/rxdb/rxlookup.pas
+++ b/components/rx/trunk/rxdb/rxlookup.pas
@@ -274,6 +274,7 @@ type
     procedure MouseLeave; override;
     procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
     procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
+    procedure Resize; override;
 
     procedure Click; override;
     function RealGetText: TCaption; override;
@@ -1464,6 +1465,12 @@ begin
   Invalidate;
 end;
 
+procedure TRxCustomDBLookupCombo.Resize;
+begin
+  inherited Resize;
+  Invalidate;
+end;
+
 procedure TRxCustomDBLookupCombo.Click;
 begin
  inherited Click;