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

RXLib/.svn/pristine/93/93c704b75dbca058d6d2d91ef414b9cabd2cb5d6.svn-base

@@ -0,0 +1,15 @@
+program FolderLister;
+
+{$mode objfpc}{$H+}
+
+uses
+  Interfaces, // this includes the LCL widgetset
+  Forms
+  { add your units here }, Unit1, AboutUnit;
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.
+

RXLib/.svn/pristine/93/93e7ff16223406a48059e86c545397055ea7c712.svn-base

@@ -0,0 +1,95 @@
+unit Unit1; 
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, db, FileUtil, LResources, Forms, Controls, Graphics,
+  Dialogs, StdCtrls, DBGrids, ExtCtrls, rxlookup, rxmemds;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Button1: TButton;
+    Button2: TButton;
+    CheckBox1: TCheckBox;
+    DBGrid1: TDBGrid;
+    dsData1: TDatasource;
+    dsLookUpData: TDatasource;
+    Edit1: TEdit;
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    RadioGroup1: TRadioGroup;
+    RadioGroup2: TRadioGroup;
+    rxData1ID: TLongintField;
+    RxDBLookupCombo1: TRxDBLookupCombo;
+    rxData1: TRxMemoryData;
+    rxLookUpData: TRxMemoryData;
+    rxLookUpDataCaption: TStringField;
+    rxLookUpDataID: TLongintField;
+    rxLookUpDataPrice: TCurrencyField;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure CheckBox1Change(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end; 
+
+var
+  Form1: TForm1; 
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  Label2.Caption:=RxDBLookupCombo1.Text;
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  RxDBLookupCombo1.Text:=Edit1.Text;
+end;
+
+procedure TForm1.CheckBox1Change(Sender: TObject);
+begin
+  RxDBLookupCombo1.Flat:=CheckBox1.Checked;
+
+  case RadioGroup1.ItemIndex of
+    0:RxDBLookupCombo1.BorderStyle:=bsNone;
+    1:RxDBLookupCombo1.BorderStyle:=bsSingle;
+  end;
+
+  case RadioGroup2.ItemIndex of
+    0:RxDBLookupCombo1.Style:=rxcsDropDown;
+    1:RxDBLookupCombo1.Style:=rxcsDropDownList;
+  end;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  rxData1.Open;
+  rxData1.Append;
+  rxLookUpData.Open;
+  rxLookUpData.AppendRecord([1, 'Lazarus', 0]);
+  rxLookUpData.AppendRecord([2, 'Delphi', 1000]);
+  rxLookUpData.AppendRecord([3, 'MS Office', 400]);
+  rxLookUpData.AppendRecord([4, 'MS Windows XP', 150]);
+  rxLookUpData.AppendRecord([5, 'MS Windows Vista', 100]);
+  rxLookUpData.AppendRecord([6, 'MS Windows 7', 200]);
+  rxLookUpData.AppendRecord([7, 'Fedora Linux 11 - 27', 0]);
+  Label2.Caption:='';
+end;
+
+end.
+