diff --git a/components/rx/docs/WhatsNew.eng.txt b/components/rx/docs/WhatsNew.eng.txt
index 69931c14c..df9f20772 100644
--- a/components/rx/docs/WhatsNew.eng.txt
+++ b/components/rx/docs/WhatsNew.eng.txt
@@ -35,6 +35,8 @@
   + In RxDBGrid property FixedHotColor now published
   - fix error with empty sring in TRxDateEdit.
   + In property  TRxDBLookupCombo.PopUpFormOptions add field  AutoFillColumns. Used in dropdown list.
+  - Cleanup code in  TRxDBLookupCombo.Paint
+
 29.08.2007 - ўҐабЁп 1.1.5.98 (svn revision 39)
   + In RxDBgrid - after close dataset  list of SelectedRows is cleared
   + fix resaizing find form for RxDbGrd    
diff --git a/components/rx/docs/WhatsNew.rus.txt b/components/rx/docs/WhatsNew.rus.txt
index a86baceaf..39a04146f 100644
--- a/components/rx/docs/WhatsNew.rus.txt
+++ b/components/rx/docs/WhatsNew.rus.txt
@@ -42,6 +42,7 @@
   - Исправлена ошибка в обработке пустой даты в редакторе дат.
   + В свойстве PopUpFormOptions компоненты TRxDBLookupCombo добавлено поле AutoFillColumns - аналог одноимённого поля
     из TDBGrid - используется в выпадающем списке
+  - Улучшен код в отрисовке компоненты TRxDBLookupCombo
 29.08.2007 - версия 1.1.5.98 (svn revision 39)
   + В RxDBGrid После закрытия набора данных список помеченных строк (SelectedRows) 
     очищается
diff --git a/components/rx/rxlookup.pas b/components/rx/rxlookup.pas
index 8a96cea1b..310322efa 100644
--- a/components/rx/rxlookup.pas
+++ b/components/rx/rxlookup.pas
@@ -10,6 +10,9 @@ uses
   DB, EditBtn, DBGrids, StdCtrls, Buttons, LMessages, DbCtrls, GraphType,
   dbutils, RxDbGrid, rxpopupunit;
 
+const
+  TextMargin = 5;
+  
 type
   TRxCustomDBLookupCombo = class;
 
@@ -1136,7 +1139,7 @@ procedure TRxCustomDBLookupCombo.Paint;
 var
   Selected:boolean;
   R, R1: TRect;
-  X, TextMargin: Integer;
+//  X: Integer;
   AText: string;
 begin
   Canvas.Font := Font;
@@ -1164,12 +1167,9 @@ begin
     RxFrame3D(Canvas, R, clBtnShadow, clBtnFace, 1);
   end;
   
-  TextMargin := 0;
   if ClientWidth > 6 then
   begin
     SetRect(R1, 3, 3, ClientWidth - 3, ClientHeight - 3);
-    if TextMargin > 0 then Inc(TextMargin);
-    X := 3 + TextMargin;
     Canvas.FillRect(R1);
     R.Right:=R.Right - GetButtonWidth;
     if FDisplayAll then
@@ -1187,7 +1187,7 @@ begin
         AText:=FValuesList[FLookupDisplayIndex]
       else
         AText:='';
-      Canvas.TextRect(R, X, Max(0, (HeightOf(R) - Canvas.TextHeight('Wg')) div 2), AText);
+      Canvas.TextRect(R, TextMargin, Max(0, (HeightOf(R) - Canvas.TextHeight('Wg')) div 2), AText);
     end
   end;
 end;