+ TDBDateEdit inherited from TRxDateEdit, for old style use DBDateEdit_OLD compiller directive

(see rx.inc). 
  + In RxDBGrid property FixedHotColor now published


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

components/rx/dbdateedit.pas

@@ -1,17 +1,21 @@
 unit dbdateedit;
 
-{$mode objfpc}{$H+}
+{$I rx.inc}
 
 interface
 
 uses
   Classes, SysUtils, LResources, LMessages, LCLType, Controls, Graphics,
-  DB, DbCtrls, EditBtn, CurrEdit;
+  DB, DbCtrls, EditBtn, tooledit;
 
 type
 
   { TDBDateEdit }
+{$IFDEF DBDateEdit_OLD}
   TDBDateEdit = class(TDateEdit)
+{$ELSE}
+  TDBDateEdit = class(TRxDateEdit)
+{$ENDIF}
   private
     FDataLink:TFieldDataLink;
     FDefaultToday: Boolean;

components/rx/docs/WhatsNew.eng.txt

@@ -30,7 +30,9 @@
   + TRxSpeedButton and TRxClock
   + new procedure in module dbutils -  FillValueForField
   + editor for property TRxColumnFooter.FieldName
-
+  + TDBDateEdit inherited from TRxDateEdit, for old style use DBDateEdit_OLD compiller directive
+    (see rx.inc). 
+  + In RxDBGrid property FixedHotColor now published
 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    

components/rx/docs/WhatsNew.rus.txt

@@ -35,6 +35,10 @@
   + ���������� ���������� TRxSpeedButton � TRxClock
   + ����� ������� � ������ dbutils -  FillValueForField
   + ���������� �������� ��� RxColumnFooter.FieldName
+  + TDBDateEdit ������ ����������� �� TRxDateEdit, ����� �������� ��� ���� ���������� 
+    �������� ��������� DBDateEdit_OLD. ��� ����������������� �������� ���������� ����������� ��� ����� 
+    � ���������.
+  + � RxDBGrid ������������ ����������� ����
 29.08.2007 - ������ 1.1.5.98 (svn revision 39)
   + � RxDBGrid ����� �������� ������ ������ ������ ���������� ����� (SelectedRows) 
     ���������

components/rx/rx.inc

@@ -1,4 +1,5 @@
 {$mode objfpc}
+
 {$H+}
 
 {$DEFINE RX_D3}
@@ -10,3 +11,6 @@
 {$DEFINE DEFAULT_POPUP_CALENDAR}
 
 {.$DEFINE FIX_BUG_FieldNo}
+
+//
+{.$DEFINE DBDateEdit_OLD}

components/rx/rxclock.pas

@@ -72,7 +72,9 @@ type
     procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
     procedure CMTextChanged(var Message: TLMessage); message CM_TEXTCHANGED;
     procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
+    {$IFDEF windows}
     procedure WMTimeChange(var Message: TLMessage); message WM_TIMECHANGE;
+    {$ENDIF}
   protected
     { Protected declarations }
     procedure SetAutoSize(const Value: Boolean); virtual;
@@ -390,15 +392,18 @@ begin
   if AutoSize then Realign;
 end;
 
+{$IFDEF windows}
 procedure TRxClock.WMTimeChange(var Message: TMessage);
 begin
   inherited;
   Invalidate;
   CheckAlarm;
 end;
+{$ENDIF}
 
 function TRxClock.FormatSettingsChange(var Message: TMessage): Boolean;
 begin
+{$IFDEF windows}
   Result := False;
   case Message.Msg of
     WM_WININICHANGE:
@@ -407,6 +412,7 @@ begin
         if AutoSize then Realign;
       end;
   end;
+{$ENDIF}
 end;
 
 function TRxClock.GetSystemTime: TDateTime;

components/rx/rxdbgrid.pas

@@ -332,6 +332,7 @@ type
     property Color;
     property BorderColor;
     property FocusColor;
+    property FixedHotColor;
 
     property SelectedColor;
     property GridLineColor;