added style-range selection (carbon-only for now), updated test for the new feature

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

components/richmemo/samples/testsimple/unit1.lfm

@@ -1,8 +1,8 @@
 object Form1: TForm1
-  Left = 234
-  Height = 592
-  Top = 220
-  Width = 752
+  Left = 333
+  Height = 596
+  Top = 22
+  Width = 751
   Align = alNone
   AllowDropFiles = False
   AutoScroll = True
@@ -11,14 +11,15 @@ object Form1: TForm1
   BorderStyle = bsSizeable
   BorderWidth = 0
   Caption = 'Form1'
-  ClientHeight = 592
-  ClientWidth = 752
+  ClientHeight = 596
+  ClientWidth = 751
   DefaultMonitor = dmActiveForm
   DockSite = False
   DragKind = dkDrag
   DragMode = dmManual
   Enabled = True
   FormStyle = fsNormal
+  OnCreate = FormCreate
   ParentBiDiMode = True
   ParentFont = False
   Position = poDesigned
@@ -27,10 +28,10 @@ object Form1: TForm1
   LCLVersion = '0.9.27'
   WindowState = wsNormal
   object RichMemo1: TRichMemo
-    Left = 32
-    Height = 518
-    Top = 24
-    Width = 288
+    Left = 40
+    Height = 432
+    Top = 32
+    Width = 704
     Align = alNone
     Alignment = taLeftJustify
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -61,8 +62,8 @@ object Form1: TForm1
   object Button1: TButton
     Left = 24
     Height = 25
-    Top = 548
-    Width = 152
+    Top = 472
+    Width = 160
     Align = alNone
     Anchors = [akLeft, akBottom]
     AutoSize = False
@@ -84,10 +85,10 @@ object Form1: TForm1
     Visible = True
   end
   object Button2: TButton
-    Left = 184
+    Left = 192
     Height = 25
-    Top = 548
-    Width = 136
+    Top = 472
+    Width = 97
     Align = alNone
     Anchors = [akLeft, akBottom]
     AutoSize = False
@@ -109,10 +110,10 @@ object Form1: TForm1
     Visible = True
   end
   object Button3: TButton
-    Left = 328
+    Left = 304
     Height = 25
-    Top = 548
-    Width = 168
+    Top = 472
+    Width = 96
     Align = alNone
     Anchors = [akLeft, akBottom]
     AutoSize = False
@@ -134,9 +135,9 @@ object Form1: TForm1
     Visible = True
   end
   object Button4: TButton
-    Left = 512
+    Left = 112
     Height = 25
-    Top = 548
+    Top = 552
     Width = 75
     Align = alNone
     AutoSize = False
@@ -157,39 +158,10 @@ object Form1: TForm1
     TabStop = True
     Visible = True
   end
-  object Memo1: TMemo
-    Left = 328
-    Height = 506
-    Top = 24
-    Width = 408
-    Align = alNone
-    Alignment = taLeftJustify
-    BorderStyle = bsSingle
-    Color = clWindow
-    DragCursor = crDrag
-    DragKind = dkDrag
-    DragMode = dmManual
-    Enabled = True
-    Lines.Strings = (
-      'Memo1'
-    )
-    MaxLength = 0
-    ParentBidiMode = True
-    ParentColor = False
-    ParentFont = True
-    ParentShowHint = True
-    ReadOnly = False
-    ScrollBars = ssBoth
-    TabOrder = 5
-    TabStop = True
-    Visible = True
-    WantReturns = True
-    WantTabs = False
-  end
   object Button5: TButton
-    Left = 600
+    Left = 24
     Height = 25
-    Top = 547
+    Top = 552
     Width = 75
     Align = alNone
     AutoSize = False
@@ -206,6 +178,30 @@ object Form1: TForm1
     OnClick = Button5Click
     ParentFont = True
     ParentShowHint = True
+    TabOrder = 5
+    TabStop = True
+    Visible = True
+  end
+  object Button6: TButton
+    Left = 24
+    Height = 25
+    Top = 504
+    Width = 160
+    Align = alNone
+    AutoSize = False
+    Cancel = False
+    Caption = 'Next Style Range'
+    Color = clBtnFace
+    Default = False
+    DragCursor = crDrag
+    DragKind = dkDrag
+    DragMode = dmManual
+    Enabled = True
+    ParentBidiMode = True
+    ModalResult = 0
+    OnClick = Button6Click
+    ParentFont = True
+    ParentShowHint = True
     TabOrder = 6
     TabStop = True
     Visible = True
@@ -213,7 +209,20 @@ object Form1: TForm1
   object FontDialog1: TFontDialog
     MinFontSize = 0
     MaxFontSize = 0
-    left = 328
-    top = 368
+    left = 696
+    top = 472
+  end
+  object SaveDialog1: TSaveDialog
+    DefaultExt = '.rtf'
+    Filter = 'RichText file (*.rtf)|*.rtf'
+    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
+    left = 616
+    top = 472
+  end
+  object OpenDialog1: TOpenDialog
+    DefaultExt = '.rtf'
+    Filter = 'RichText file (*.rtf)|*.rtf'
+    left = 536
+    top = 472
   end
 end