102 lines
2.1 KiB
ObjectPascal
102 lines
2.1 KiB
ObjectPascal
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.
|
|
|