fix compile in lazarus svn version 18518

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

components/rx/autopanel.pas

@@ -52,11 +52,9 @@ type
     property Enabled;
     property Caption;
     property Color;
-    property Ctl3D;
     property Font;
     //property Locked;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;

components/rx/curredit.pas

@@ -110,7 +110,6 @@ type
     property BorderSpacing;
     property CheckOnExit;
     property Color;
-    property Ctl3D;
     property DecimalPlaces;
     property DisplayFormat;
     property DragCursor;
@@ -134,7 +133,6 @@ type
     property MaxValue;
     property MinValue;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;

components/rx/pickdate.pas

@@ -704,7 +704,6 @@ begin
   inherited Create(AOwner);
   ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks];
   ControlStyle := ControlStyle + [csReplicatable];
-  Ctl3D := False;
 //  Enabled := False;
   BorderStyle := bsNone;
   ParentColor := True;

components/rx/rxclock.pas

@@ -68,7 +68,7 @@ type
     procedure ResetAlarm;
     procedure CheckAlarm;
     function FormatSettingsChange(var Message: TLMessage): Boolean;
-    procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
+//    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}
@@ -117,14 +117,12 @@ type
     property FullRepaint;
 {$ENDIF}
     property Color;
-    property Ctl3D;
     property Cursor;
     property DragMode;
     property DragCursor;
     property Enabled;
     property Font;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
@@ -373,12 +371,13 @@ begin
   inherited DestroyWindowHandle;
 end;
 }
+{
 procedure TRxClock.CMCtl3DChanged(var Message: TMessage);
 begin
   inherited;
   if ShowMode = scAnalog then Invalidate;
 end;
-
+}
 procedure TRxClock.CMTextChanged(var Message: TMessage);
 begin
   { Skip this message, no repaint }
@@ -673,7 +672,7 @@ begin
       begin
         if MinDots then
         begin
-          if Ctl3D then
+//          if Ctl3D then
           begin
             Canvas.Brush.Color := clBtnShadow;
             OffsetRect(R, -1, -1);
@@ -694,7 +693,7 @@ begin
         R.Right := R.Left + DotWidth;
         R.Bottom := R.Top + DotHeight;
         OffsetRect(R, -DotCenter.X, -DotCenter.Y);
-        if Ctl3D and MinDots then
+        if {Ctl3D and} MinDots then
           with Canvas do
           begin
             Brush.Color := FDotsColor;
@@ -703,7 +702,7 @@ begin
             RxFrame3D(Canvas, R, LightColor(FDotsColor), clWindowFrame, 1);
           end;
         Canvas.Brush.Color := Canvas.Pen.Color;
-        if not (Ctl3D and MinDots) then Canvas.FillRect(R);
+        if not ({Ctl3D and} MinDots) then Canvas.FillRect(R);
       end;
     end;
   finally

components/rx/rxctrls.pas

@@ -43,7 +43,6 @@ type
     property Align;
     property BorderStyle;
     property Color;
-    property Ctl3D;
     property DragCursor;
     property DragMode;
     property Enabled;
@@ -67,7 +66,6 @@ type
     property Items;
     property MultiSelect;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
@@ -170,7 +168,7 @@ type
     procedure WMKillFocus(var Msg: TWMKillFocus); message WM_KILLFOCUS;
     procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;
 {$IFDEF WIN32}
-    procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED;
+//    procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED;
 {$ENDIF}
   protected
     procedure CreateParams(var Params: TCreateParams); override;
@@ -315,7 +313,6 @@ type
     property BorderStyle;
     property Color;
     property Columns;
-    property Ctl3D;
     property DragCursor;
     property DragMode;
     property Enabled;
@@ -340,7 +337,6 @@ type
     property Items stored False;
     property MultiSelect;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
@@ -621,10 +617,8 @@ type
     property DragCursor;
     property DragMode;
     property Color;
-    property Ctl3D;
     property Font;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;

components/rx/rxdbcomb.pas

@@ -90,7 +90,6 @@ type
     property BorderSpacing;
     property Style; { must be published before Items }
     property Color;
-    property Ctl3D;
     property DataField;
     property DataSource;
     property DragMode;
@@ -106,7 +105,6 @@ type
     property ItemWidth;
     property MaxLength default -1;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;

components/rx/rxlookup.pas

@@ -249,7 +249,6 @@ type
     property ButtonOnlyWhenFocused;
     Property ButtonWidth;
     property Color;
-    property Ctl3D;
     property DataField;
     property DataSource;
     Property DirectInput;
@@ -282,7 +281,6 @@ type
     property OnStartDrag;
     property OnGetGridCellProps;
     property ParentColor;
-    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
@@ -1278,7 +1276,6 @@ begin
   FEmptyItemColor:=clWindow;
   Glyph:=CreateArrowBitmap;
   ButtonWidth:=15;
-  Ctl3D:=true;
   TabStop:=true;
   
 end;

components/rx/rxspin.pas

@@ -131,7 +131,7 @@ type
     procedure CMExit(var Message: TLMExit); message CM_EXIT;
     procedure WMPaste(var Message: TLMessage); message LM_PASTE;
     procedure WMCut(var Message: TLMessage); message LM_CUT;
-    procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
+//    procedure CMCtl3DChanged(var Message: TLMessage); message CM_CTL3DCHANGED;
     procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED;
     procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
     procedure CheckButtonVisible;
@@ -171,7 +171,7 @@ type
     property AutoSize;
     property BorderStyle;
     property Color;
-    property Ctl3D;
+//    property Ctl3D;
     property DragCursor;
     property DragMode;
     property Enabled;
@@ -185,7 +185,7 @@ type
 //{$ENDIF}
     property MaxLength;
     property ParentColor;
-    property ParentCtl3D;
+//    property ParentCtl3D;
     property ParentFont;
     property ParentShowHint;
     property PopupMenu;
@@ -834,11 +834,11 @@ begin
   inherited;
 end;
 
-procedure TRxSpinEdit.CMCtl3DChanged(var Message: TLMessage);
+{procedure TRxSpinEdit.CMCtl3DChanged(var Message: TLMessage);
 begin
   inherited;
   ResizeButton;
-end;
+end;}
 
 procedure TRxSpinEdit.CMEnabledChanged(var Message: TLMessage);
 begin