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

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.
+

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

@@ -0,0 +1,110 @@
+unit Unit1;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, rxdbgrid, rxmemds, RxDBGridExportSpreadSheet,
+  RxDBGridPrintGrid, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, db,
+  Grids, DBGrids;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Button1: TButton;
+    Button2: TButton;
+    CheckBox1: TCheckBox;
+    dsData: TDataSource;
+    Panel1: TPanel;
+    rxDataCODE: TLongintField;
+    rxDataDATE: TDateTimeField;
+    rxDataNAME: TStringField;
+    RxDBGrid1: TRxDBGrid;
+    rxData: TRxMemoryData;
+    RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet;
+    RxDBGridPrint1: TRxDBGridPrint;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure CheckBox1Change(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure RxDBGrid1Columns0DrawColumnCell(Sender: TObject;
+      const Rect: TRect; DataCol: Integer; Column: TColumn;
+      State: TGridDrawState);
+    procedure RxDBGrid1MergeCells(Sender: TObject; ACol: Integer; var ALeft,
+      ARight: Integer; var ADisplayColumn: TRxColumn);
+  private
+
+  public
+
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+var
+  i: Integer;
+begin
+  rxData.Open;
+  rxData.DisableControls;
+  for i:=1 to 30 do
+    rxData.AppendRecord([i, Date - i, 'Line '+IntToStr(i)]);
+  rxData.First;
+  rxData.EnableControls;
+end;
+
+procedure TForm1.RxDBGrid1Columns0DrawColumnCell(Sender: TObject;
+  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
+var
+  S: String;
+  FAl: TAlignment;
+begin
+  S:=rxDataCODE.DisplayText;
+  if CheckBox1.Checked and (rxDataCODE.AsInteger mod 10 = 1) then
+    FAl:=taCenter
+  else
+    FAl:=taRightJustify;
+  WriteTextHeader(RxDBGrid1.Canvas, Rect, S, FAl)
+end;
+
+procedure TForm1.RxDBGrid1MergeCells(Sender: TObject; ACol: Integer; var ALeft,
+  ARight: Integer; var ADisplayColumn: TRxColumn);
+begin
+  if rxDataCODE.AsInteger mod 10 = 1 then
+  begin
+    ALeft:=1;
+    ARight:=3;
+{    if rxDataCODE.AsInteger > 10 then
+      ADisplayColumn:=RxDBGrid1.ColumnByFieldName('DATE');}
+  end;
+end;
+
+procedure TForm1.CheckBox1Change(Sender: TObject);
+begin
+  if CheckBox1.Checked then
+    RxDBGrid1.OptionsRx:=RxDBGrid1.OptionsRx + [rdgColSpanning]
+  else
+    RxDBGrid1.OptionsRx:=RxDBGrid1.OptionsRx - [rdgColSpanning];
+end;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  RxDBGridExportSpreadSheet1.Execute;
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  RxDBGridPrint1.Execute;
+end;
+
+end.
+