RxFPC:RxMDI - add new options rxtoAskCloseAll

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

components/rx/trunk/demos/RxMDI/project1.lpi

@@ -1,10 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <AutoCreateForms Value="False"/>
       <Title Value="project1"/>
       <ResourceType Value="res"/>

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

@@ -13,7 +13,7 @@ object Form1: TForm1
   WindowState = wsMaximized
   object ToolPanel1: TToolPanel
     Left = 0
-    Height = 32
+    Height = 36
     Top = 0
     Width = 613
     Items = <    
@@ -37,7 +37,7 @@ object Form1: TForm1
     CustomizeShortCut = False
     Align = alTop
     BorderWidth = 4
-    ClientHeight = 32
+    ClientHeight = 36
     ClientWidth = 613
     TabOrder = 0
     object RxMDICloseButton1: TRxMDICloseButton
@@ -47,7 +47,7 @@ object Form1: TForm1
       AnchorSideRight.Side = asrBottom
       Left = 585
       Height = 22
-      Top = 5
+      Top = 7
       Width = 23
       Anchors = [akTop, akRight]
       Glyph.Data = {
@@ -79,7 +79,7 @@ object Form1: TForm1
     Width = 613
     Align = alBottom
     FlatButton = True
-    Options = [rxtoMidleClickClose]
+    Options = [rxtoMidleClickClose, rxtoAskCloseAll]
   end
   object StatusBar1: TStatusBar
     Left = 0
@@ -97,8 +97,8 @@ object Form1: TForm1
   end
   object RxMDIPanel1: TRxMDIPanel
     Left = 0
-    Height = 332
-    Top = 32
+    Height = 328
+    Top = 36
     Width = 613
     CloseButton = RxMDICloseButton1
     TaskPanel = RxMDITasks1
@@ -155,6 +155,12 @@ object Form1: TForm1
       Caption = 'Close all...'
       OnExecute = wndCloseAllExecute
     end
+    object optAskCloseAll: TAction
+      Category = 'Options'
+      Caption = 'Ask close all window'
+      Checked = True
+      OnExecute = optAskCloseAllExecute
+    end
   end
   object MainMenu1: TMainMenu
     Left = 408
@@ -176,6 +182,9 @@ object Form1: TForm1
       object MenuItem11: TMenuItem
         Action = optHideCloseButton
       end
+      object MenuItem12: TMenuItem
+        Action = optAskCloseAll
+      end
     end
     object MenuItem3: TMenuItem
       Caption = 'MDI forms'

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

@@ -16,6 +16,8 @@ type
     Action1: TAction;
     Action2: TAction;
     Action3: TAction;
+    MenuItem12: TMenuItem;
+    optAskCloseAll: TAction;
     WindowItems: TMenuItem;
     MenuItem13: TMenuItem;
     wndCloseAll: TAction;
@@ -46,6 +48,7 @@ type
     procedure Action2Execute(Sender: TObject);
     procedure Action3Execute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure optAskCloseAllExecute(Sender: TObject);
     procedure optHideCloseButtonExecute(Sender: TObject);
     procedure optMidleMouseClickCloseExecute(Sender: TObject);
     procedure optShowInfoLabelExecute(Sender: TObject);
@@ -97,6 +100,10 @@ begin
   else
     RxMDITasks1.Options:=RxMDITasks1.Options - [rxtoMidleClickClose];
 
+  if optAskCloseAll.Checked then
+    RxMDITasks1.Options:=RxMDITasks1.Options + [rxtoAskCloseAll]
+  else
+    RxMDITasks1.Options:=RxMDITasks1.Options - [rxtoAskCloseAll];
   RxMDIPanel1.HideCloseButton:=optHideCloseButton.Checked; ;
 end;
 
@@ -123,6 +130,12 @@ begin
   UpdateOptions;
 end;
 
+procedure TForm1.optAskCloseAllExecute(Sender: TObject);
+begin
+  optAskCloseAll.Checked:=not optAskCloseAll.Checked;
+  UpdateOptions;
+end;
+
 procedure TForm1.optHideCloseButtonExecute(Sender: TObject);
 begin
   optHideCloseButton.Checked:=not optHideCloseButton.Checked;