RxDateEdit - fix work with new ButtonEdit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2943 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/images/componet_img/all_component_res.sh

@@ -3,8 +3,8 @@ rm rxdbgrid.lrs
 rm tooledit.res
 rm rxdbgrid.res
 
-/usr/local/share/lazarus/tools/lazres tooledit.res picDateEdit.png
 /usr/local/share/lazarus/tools/lazres rxdbgrid.res rx_markerdown.png rx_markerup.png
+/usr/local/share/lazarus/tools/lazres rx_lcl.res picDateEdit.png rxbtn_downarrow.png
 
-../../../../tools\lazres.exe tooledit.lrs picDateEdit.bmp
+#../../../../tools\lazres.exe tooledit.lrs picDateEdit.bmp
 #../../../../tools\lazres.exe rxdbgrid.lrs rx_markerdown.xpm rx_markerup.xpm

components/rx/trunk/rx.inc

@@ -57,9 +57,14 @@
 {$if FPC_FULLVERSION<20701}
   {$DEFINE NoAutomatedBookmark}
   {$DEFINE RX_USE_LCL_DEVEL}
-  {$DEFINE RX_USE_LAZARUS_RESOURCE}
 {$endif}
 
+{$IFDEF OLD_EDITBUTTON}
+{$if FPC_FULLVERSION<20701}
+{$DEFINE RX_USE_LAZARUS_RESOURCE}
+{$ENDIF}
+{$ENDIF}
+
 {$IFDEF NoAutomatedBookmark}
 {$ELSE}
 {$ENDIF}

components/rx/trunk/rxlookup.pas

@@ -627,12 +627,7 @@ begin
   FLookupDataLink.FOnLayoutChanged:=@ListLinkActiveChanged;
   FLookupDataLink.FOnDataSetChanged:=@LookupDataSetChanged;
 
-
-//  FDropDownCount:=8;
   FFieldList:=TStringList.Create;
-  P:=CreateArrowBitmap;
-  Glyph.Assign(P);
-  P.Free;
   ButtonWidth:=15;
   FPopUpFormOptions:=TPopUpFormOptions.Create(Self);
 end;

components/rx/trunk/rxnew.lpk

@@ -26,8 +26,8 @@ Copyright (c) 1998 Master-Bank
 translate to Lazarus by alexs in 2005 - 2014
 "/>
     <License Value="LGPL"/>
-    <Version Major="2" Minor="6" Release="4" Build="142"/>
+    <Version Major="2" Minor="6" Release="5" Build="152"/>
-    <Files Count="67">
+    <Files Count="68">
       <Item1>
         <Filename Value="autopanel.pas"/>
         <UnitName Value="AutoPanel"/>
@@ -299,6 +299,10 @@ translate to Lazarus by alexs in 2005 - 2014
         <Filename Value="rxinipropstorage.pas"/>
         <UnitName Value="RxIniPropStorage"/>
       </Item67>
+      <Item68>
+        <Filename Value="rx_lcl.res"/>
+        <Type Value="Binary"/>
+      </Item68>
     </Files>
     <LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/>
     <i18n>

components/rx/trunk/tooledit.pas

@@ -230,9 +230,9 @@ uses lclintf, LCLStrConsts, rxconst, rxstrutils, LResources,
   Forms, LCLProc,
   variants;
 
-{$IFNDEF RX_USE_LAZARUS_RESOURCE}
+{.$IFNDEF RX_USE_LAZARUS_RESOURCE}
-{$R tooledit.res}
+{.$R tooledit.res}
-{$ENDIF}
+{.$ENDIF}
 
 type
   TPopupCalendarAccess = class(TPopupCalendar)

components/rx/trunk/vclutils.pas

@@ -104,6 +104,10 @@ procedure OutOfResources;
 implementation
 uses LCLProc, LCLIntf, LCLType, LCLStrConsts;
 
+{$IFNDEF RX_USE_LAZARUS_RESOURCE}
+{$R rx_lcl.res}
+{$ENDIF}
+
 function WidthOf(R: TRect): Integer;
 begin
   Result := R.Right - R.Left;
@@ -600,10 +604,26 @@ end;
 {$ENDIF}
 
 function CreateArrowBitmap:TBitmap;
+var
+  C : TCustomBitmap;
 begin
+  {$IFNDEF RX_USE_LAZARUS_RESOURCE}
+  Result := TBitmap.Create;
+  try
+    try
+      C := TPortableNetworkGraphic.Create;
+      C.LoadFromResourceName(hInstance, 'rxbtn_downarrow');
+      Result.Assign(C);
+    finally
+      C.Free;
+    end;
+  except
+    Result.Free;
+    raise;
+  end;
+  {$ELSE}
   Result:=LoadLazResBitmapImage('rxbtn_downarrow')
-{  Result:=Graphics.TBitmap.Create;
+  {$ENDIF}
-  Result.LoadFromLazarusResource('rxbtn_downarrow');}
 end;
 
 //Code from DBGrid
@@ -650,10 +670,13 @@ begin
 end;
 
 initialization
+{$IFDEF RX_USE_LAZARUS_RESOURCE}
   LazarusResources.Add('rxbtn_downarrow','XPM',[
   '/* XPM */'#13#10'static char * btn_downarrow_xpm[] = {'#13#10'"5 3 2 1",'#13
   +#10'" '#9'c None",'#13#10'".'#9'c #000000",'#13#10'".....",'#13#10'" ... ",'
   +#13#10'"  .  "};'#13#10]);
+{$ENDIF}
+
 end.