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

RXLib/.svn/pristine/6f/6f2b5da582e1b357ac430bc40b6879d6d481fde8.svn-base

@@ -0,0 +1,101 @@
+unit Unit1;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  PopupNotifier, ExtCtrls, ColorBox, MRUList, rxPopupNotifier, rxtooledit, DB;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Button1: TButton;
+    Button4: TButton;
+    Button5: TButton;
+    Button6: TButton;
+    ColorBox1: TColorBox;
+    Label1: TLabel;
+    RadioGroup1: TRadioGroup;
+    RxPopupNotifier1: TRxPopupNotifier;
+    procedure Button1Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
+    procedure Button6Click(Sender: TObject);
+    procedure RadioGroup1Click(Sender: TObject);
+    procedure RxPopupNotifier1NotifiClick(Sender: TRxPopupNotifier;
+      AItem: TRxPopupNotifierItem);
+  private
+    FRClose: TRxPopupNotifierItem;
+    FR: TRxPopupNotifierItem;
+    FCurID:integer;
+  public
+
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.Button4Click(Sender: TObject);
+begin
+  if Assigned(FR) then
+    FR.Active:=true
+  else
+    FR:=RxPopupNotifier1.AddNotifyItem('Information', 'Static text information');
+end;
+
+procedure TForm1.Button1Click(Sender: TObject);
+var
+  R: TRxPopupNotifierItem;
+begin
+  if RxPopupNotifier1.Items.Count>0 then
+  begin
+    R:=RxPopupNotifier1.Items[0];
+    R.Active:=true;
+
+  end;
+end;
+
+procedure TForm1.Button5Click(Sender: TObject);
+var
+  R1: TRxPopupNotifierItem;
+begin
+  Inc(FCurID);
+  R1:=RxPopupNotifier1.AddNotifyItem('Warning', 'Error message № ' + IntToStr(FCurID));
+  R1.ShowCloseTimer:=true;
+  R1.Color:=ColorBox1.Selected;
+end;
+
+procedure TForm1.Button6Click(Sender: TObject);
+begin
+  if Assigned(FRClose) then
+    FRClose.Active:=true
+  else
+  begin
+    FRClose:=RxPopupNotifier1.AddNotifyItem('Information', 'Static text information without close');
+    FRClose.ShowCloseTimer:=false;
+  end
+end;
+
+procedure TForm1.RadioGroup1Click(Sender: TObject);
+begin
+  RxPopupNotifier1.MessageCorner:=TRxPopupNotifierCorner(RadioGroup1.ItemIndex);
+end;
+
+procedure TForm1.RxPopupNotifier1NotifiClick(Sender: TRxPopupNotifier;
+  AItem: TRxPopupNotifierItem);
+begin
+  ShowMessage('Click');
+end;
+
+end.
+