RxFPC:fix RxMDI button orders, publish property RxDBGird.OnUserCheckboxImage

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

components/rx/trunk/demos/RxMDI/unit1.lfm

@@ -13,15 +13,31 @@ object Form1: TForm1
   WindowState = wsMaximized
   object ToolPanel1: TToolPanel
     Left = 0
-    Height = 31
+    Height = 32
     Top = 0
     Width = 613
-    Items = <>
+    Items = <    
+      item
+        Action = Action1
+        Visible = True
+        ShowCaption = True
+      end    
+      item
+        Action = Action2
+        Visible = True
+        ShowCaption = True
+      end    
+      item
+        Action = Action3
+        Visible = True
+        ShowCaption = True
+      end>
+    ToolBarStyle = tbsNative
     Options = []
     CustomizeShortCut = False
     Align = alTop
     BorderWidth = 4
-    ClientHeight = 31
+    ClientHeight = 32
     ClientWidth = 613
     TabOrder = 0
     object RxMDICloseButton1: TRxMDICloseButton
@@ -31,7 +47,7 @@ object Form1: TForm1
       AnchorSideRight.Side = asrBottom
       Left = 585
       Height = 22
-      Top = 4
+      Top = 5
       Width = 23
       Anchors = [akTop, akRight]
       Glyph.Data = {
@@ -81,8 +97,8 @@ object Form1: TForm1
   end
   object RxMDIPanel1: TRxMDIPanel
     Left = 0
-    Height = 333
-    Top = 31
+    Height = 332
+    Top = 32
     Width = 613
     CloseButton = RxMDICloseButton1
     TaskPanel = RxMDITasks1

components/rx/trunk/demos/RxMDI/unit4.lfm

@@ -47,7 +47,7 @@ object Form4: TForm4
   }
   OnClose = FormClose
   OnCreate = FormCreate
-  LCLVersion = '1.1'
+  LCLVersion = '2.1.0.0'
   object Panel1: TPanel
     Left = 0
     Height = 50
@@ -58,26 +58,43 @@ object Form4: TForm4
     TabOrder = 0
   end
   object Edit1: TEdit
-    Left = 47
-    Height = 25
-    Top = 84
-    Width = 80
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Panel1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 6
+    Height = 31
+    Top = 56
+    Width = 608
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
     TabOrder = 1
     Text = 'Edit1'
   end
   object Edit2: TEdit
-    Left = 43
-    Height = 25
-    Top = 154
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Edit1
+    AnchorSideTop.Side = asrBottom
+    Left = 270
+    Height = 31
+    Top = 93
     Width = 80
+    BorderSpacing.Around = 6
     TabOrder = 2
     Text = 'Edit2'
   end
   object Edit3: TEdit
-    Left = 45
-    Height = 25
-    Top = 215
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Edit2
+    AnchorSideTop.Side = asrBottom
+    Left = 270
+    Height = 31
+    Top = 130
     Width = 80
+    BorderSpacing.Around = 6
     TabOrder = 3
     Text = 'Edit3'
   end

components/rx/trunk/demos/RxMDI/unit4.pas

@@ -43,6 +43,7 @@ begin
   Inc(CntMM);
   Panel1.Caption:=Panel1.Caption + IntToStr(CntMM);
   Caption:=Panel1.Caption;
+  Edit1.Text:=IntToStr(CntMM);
 end;
 
 end.