Стартовый пул

RXLib/.svn/pristine/e2/e2a1ddae864f0501e5b9414b2c98abffa453456d.svn-base

@@ -0,0 +1,146 @@
+unit Unit1;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, rxtoolbar, RxMDI, Forms, Controls, Graphics,
+  Dialogs, ActnList, Menus, ComCtrls, ExtCtrls;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Action1: TAction;
+    Action2: TAction;
+    Action3: TAction;
+    MenuItem11: TMenuItem;
+    optHideCloseButton: TAction;
+    MenuItem10: TMenuItem;
+    optMidleMouseClickClose: TAction;
+    MenuItem9: TMenuItem;
+    optShowInfoLabel: TAction;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    sysClose: TAction;
+    ActionList1: TActionList;
+    MainMenu1: TMainMenu;
+    RxMDICloseButton1: TRxMDICloseButton;
+    RxMDIPanel1: TRxMDIPanel;
+    RxMDITasks1: TRxMDITasks;
+    StatusBar1: TStatusBar;
+    Timer1: TTimer;
+    ToolPanel1: TToolPanel;
+    procedure Action1Execute(Sender: TObject);
+    procedure Action2Execute(Sender: TObject);
+    procedure Action3Execute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure optHideCloseButtonExecute(Sender: TObject);
+    procedure optMidleMouseClickCloseExecute(Sender: TObject);
+    procedure optShowInfoLabelExecute(Sender: TObject);
+    procedure RxMDIPanel1ChangeCurrentChild(Sender: TRxMDIPanel; AForm: TForm);
+    procedure sysCloseExecute(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+  private
+    procedure UpdateOptions;
+  public
+    { public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+uses Unit2, Unit3, Unit4;
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.sysCloseExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TForm1.Timer1Timer(Sender: TObject);
+begin
+  if Assigned(ActiveControl) then
+    StatusBar1.Panels[0].Text:=ActiveControl.Caption
+  else
+    StatusBar1.Panels[0].Text:='<NONE>'
+    ;
+end;
+
+procedure TForm1.UpdateOptions;
+begin
+  RxMDICloseButton1.ShowInfoLabel:=optShowInfoLabel.Checked;
+  if optMidleMouseClickClose.Checked then
+    RxMDITasks1.Options:=RxMDITasks1.Options + [rxtoMidleClickClose]
+  else
+    RxMDITasks1.Options:=RxMDITasks1.Options - [rxtoMidleClickClose];
+
+  RxMDIPanel1.HideCloseButton:=optHideCloseButton.Checked;
+end;
+
+procedure TForm1.Action1Execute(Sender: TObject);
+begin
+  RxMDIPanel1.ChildWindowsCreate(Form2, TForm2);
+end;
+
+procedure TForm1.Action2Execute(Sender: TObject);
+begin
+  RxMDIPanel1.ChildWindowsCreate(Form3, TForm3);
+end;
+
+procedure TForm1.Action3Execute(Sender: TObject);
+var
+  Form4: TForm4;
+begin
+  Form4:=TForm4.Create(Application);
+  RxMDIPanel1.ChildWindowsAdd(Form4);
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  UpdateOptions;
+end;
+
+procedure TForm1.optHideCloseButtonExecute(Sender: TObject);
+begin
+  optHideCloseButton.Checked:=not optHideCloseButton.Checked;
+  UpdateOptions;
+end;
+
+procedure TForm1.optMidleMouseClickCloseExecute(Sender: TObject);
+begin
+  optMidleMouseClickClose.Checked:=not optMidleMouseClickClose.Checked;
+  UpdateOptions;
+end;
+
+procedure TForm1.optShowInfoLabelExecute(Sender: TObject);
+begin
+  optShowInfoLabel.Checked:=not optShowInfoLabel.Checked;
+  UpdateOptions;
+end;
+
+procedure TForm1.RxMDIPanel1ChangeCurrentChild(Sender: TRxMDIPanel; AForm: TForm
+  );
+begin
+  if Assigned(AForm) then
+    StatusBar1.Panels[1].Text:=AForm.Caption
+  else
+    StatusBar1.Panels[1].Text:='<NONE>'
+    ;
+end;
+
+end.
+