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

RXLib/.svn/pristine/41/410d5a34d2805972eaead11ddb74e5c6c9a301f3.svn-base

@@ -0,0 +1,88 @@
+unit Unit1; 
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  Buttons, StdCtrls, rxdbgrid, rxvclutils, rxmemds, db, IniPropStorage;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Datasource1: TDatasource;
+    Edit1: TEdit;
+    IniPropStorage1: TIniPropStorage;
+    PaintBox1: TPaintBox;
+    RadioGroup1: TRadioGroup;
+    RxDBGrid1: TRxDBGrid;
+    RxMemoryData1: TRxMemoryData;
+    RxMemoryData1Demo21: TStringField;
+    RxMemoryData1DEMO_11: TLongintField;
+    procedure CheckBox1Change(Sender: TObject);
+    procedure Edit1Change(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure PaintBox1Paint(Sender: TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end; 
+
+var
+  Form1: TForm1; 
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.PaintBox1Paint(Sender: TObject);
+var
+  FOri:TTextOrientation;
+begin
+
+  PaintBox1.Canvas.TextOut(1,1, 'Text for test');
+  case RadioGroup1.ItemIndex of
+    0:FOri:=toHorizontal;
+    1:FOri:=toVertical90;
+    2:FOri:=toHorizontal180;
+    3:FOri:=toVertical270;
+    4:FOri:=toHorizontal360;
+  end;
+
+  OutTextXY90(PaintBox1.Canvas, 1, 20, Edit1.Text, FOri);
+end;
+
+procedure TForm1.CheckBox1Change(Sender: TObject);
+var
+  FOri:TTextOrientation;
+begin
+  PaintBox1.Invalidate;
+  case RadioGroup1.ItemIndex of
+    0:FOri:=toHorizontal;
+    1:FOri:=toVertical90;
+    2:FOri:=toHorizontal180;
+    3:FOri:=toVertical270;
+    4:FOri:=toHorizontal360;
+  end;
+  (RxDBGrid1.Columns[0].Title as TRxColumnTitle).Orientation:=FOri;
+end;
+
+procedure TForm1.Edit1Change(Sender: TObject);
+begin
+  PaintBox1.Invalidate;
+  (RxDBGrid1.Columns[0].Title as TRxColumnTitle).Caption:=Edit1.Text;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  RxMemoryData1.Open;
+end;
+
+end.
+

RXLib/.svn/pristine/41/4114754a8c1a839fe4ef3441efe4be725e81a7b5.svn-base

@@ -0,0 +1,10 @@
+TRXSORTBYFORM.CAPTION=rxSortByForm
+TRXSORTBYFORM.LABEL1.CAPTION=&Orden de Ordenamiento :
+TRXSORTBYFORM.LABEL2.CAPTION=&Campos Disponibles :
+TRXSORTBYFORM.LABEL4.CAPTION=Seleccionar Dirección de Ordenamiento :
+TRXSORTBYFORM.REMOVEBTN.CAPTION=&Eliminar
+TRXSORTBYFORM.UPBTN.CAPTION=A&rriba
+TRXSORTBYFORM.DOWNBTN.CAPTION=A&bajo
+TRXSORTBYFORM.OKBUTTON.CAPTION=Aceptar
+TRXSORTBYFORM.CANCELBUTTON.CAPTION=Cancelar
+TRXSORTBYFORM.ADDBTN.CAPTION=&Adicionar

RXLib/.svn/pristine/41/41f79dd5e4782d761dd3f0df8bc48f8c37207cb6.svn-base

@@ -0,0 +1,34 @@
+/* XPM */
+static char *TDualListDialog[]={
+"24 24 7 1",
+". c None",
+"b c #000000",
+"e c #000080",
+"c c #0000ff",
+"# c #808080",
+"d c #c0c0c0",
+"a c #ffffff",
+"........................",
+"........................",
+".######################.",
+".#abccccccccccccccbabab.",
+".#bbbbbbbbbbbbbbbbbbbbb.",
+".#dadadadadadadadadadab.",
+".#adadadadadadadadadadb.",
+".#dbbbbadad#dadbbbbadab.",
+".#abaabbadab#dabaabbadb.",
+".#dbaabdbadbb#dbaabdbab.",
+".#abaabbbdabbdabaabbbdb.",
+".#dbaaaabadbdadbaaaabab.",
+".#abaeeabdadadabaeeabdb.",
+".#dbaaaabadabadbaaaabab.",
+".#abaeeabdabbdabaeeabdb.",
+".#dbaaaaba#bbadbaaaabab.",
+".#abaaaabda#bdabaaaabdb.",
+".#dbbbbbbada#adbbbbbbab.",
+".#adadadadadadadadadadb.",
+".#dadadadadadadadadadab.",
+".#adadadadadadadadadadb.",
+".#bbbbbbbbbbbbbbbbbbbbb.",
+"........................",
+"........................"};