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

2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
--- a/RXLib/.svn/pristine/46/462aa028748e88d82c4ae8efa60160e7e5822fcd.svn-base
+++ b/RXLib/.svn/pristine/46/462aa028748e88d82c4ae8efa60160e7e5822fcd.svn-base
@@ -0,0 +1,71 @@
+/* XPM */
+static char *DICE2[]={
+"64 64 4 1",
+". c None",
+"# c #000000",
+"b c #c0c0c0",
+"a c #ffffff",
+"................................................................",
+".............................######.............................",
+"...........................##########...........................",
+".........................####aaaaaa####.........................",
+".......................####aaaaaaaaaa####.......................",
+".....................####aaaaa####aaaaa####.....................",
+"...................####aaaaa########aaaaa####...................",
+".................####aaaaaa##########aaaaaa####.................",
+"...............####aaaaaaaa##########aaaaaaaa####...............",
+".............####aaaaaaaaaaa########aaaaaaaaaaa####.............",
+"...........####aaaaaaaaaaaaaaa####aaaaaaaaaaaaaaa####...........",
+".........####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####.........",
+".......####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####.......",
+".....####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####.....",
+"...####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####...",
+".####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####.",
+"#####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa#####",
+"##b####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####a##",
+"##bbb####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####aaa##",
+"##bbbbb####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####aaaaa##",
+"##bbbbbbb####aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa####aaaaaaa##",
+"##bbbbbbbbb####aaaaaaaaaaaaaaa####aaaaaaaaaaaaaaa####aaaaaaaaa##",
+"##bbbbbbbbbbb####aaaaaaaaaaa########aaaaaaaaaaa####aaaa###aaaa##",
+"##bbbbbbbbbbbbb####aaaaaaaa##########aaaaaaaa####aaaa######aaa##",
+"##bbbbbbbbbbbbbbb####aaaaaa##########aaaaaa####aaaaaa######aaa##",
+"##bbbbbbbbbbbbbbbbb####aaaaa########aaaaa####aaaaaaa#######aaa##",
+"##bbbbbbbbbbbbbbbbbbb####aaaaa####aaaaa####aaaaaaaaa#######aaa##",
+"##bbbbbbbbbbbbbbbbbbbbb####aaaaaaaaaa####aaaaaaaaaaa#######aaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbb####aaaaaa####aaaaaaaaaaaaa######aaaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbb####aa####aaaaaaaaaaaaaaaa####aaaaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbb######aaaa###aaaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaaa######aaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaaa######aaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaa#######aaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaa#######aaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbbb###bbbbbbbbbbbbbb##aaa#######aaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbb######bbbbbbbbbbbb##aaa######aaaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbb######bbbbbbbbbbbb##aaaa####aaaaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbb#######bbbbbbbbbbb##aaaaaaaaaaaaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbb#######bbbbbbbbbbb##aaaaaaaaaaaaaaaaaaaaaaaaaaaaa##",
+"##bbbbbbbbbbb#######bbbbbbbbbbb##aaaaaaaaaaaaaaaaaaaaaa###aaaa##",
+"##bbbbbbbbbbbb######bbbbbbbbbbb##aaaaaaaaaaaaaaaaaaaa######aaa##",
+"##bbbbbbbbbbbbb####bbbbbbbbbbbb##aaaaaaaaaaaaaaaaaaaa######aaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaaaaaaaaaaaaaaaaaa#######aaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaaaaaaaaaaaaaaaaaa#######aaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaaaaaaaaaaaaaaaaaa#######aaa##",
+"##bbbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaaaaaaaaaaaaaaaaaa######aaaa##",
+"###bbbbbbbbbbbbbbbbbbbbbbbbbbbb##aaaaaaaaaaaaaaaaaaaa####aaaa###",
+".####bbbbbbbbbbbbbbbbbbbbbbbbbb##aaaaaa###aaaaaaaaaaaaaaaaa####.",
+"...####bbbbbbbbbbbbbbbbbbbbbbbb##aaaa######aaaaaaaaaaaaaa####...",
+".....####bbbbbbbbbbbbbbbbbbbbbb##aaaa######aaaaaaaaaaaa####.....",
+".......####bbbbbbbbbbbbbbbbbbbb##aaa#######aaaaaaaaaa####.......",
+".........####bbbbbbbbbbbbbbbbbb##aaa#######aaaaaaaa####.........",
+"...........####bbbbbbbbbbbbbbbb##aaa#######aaaaaa####...........",
+".............####bbbbbbbbbbbbbb##aaa######aaaaa####.............",
+"...............####bbbbbbbbbbbb##aaaa####aaaa####...............",
+".................####bbbbbbbbbb##aaaaaaaaaa####.................",
+"...................####bbbbbbbb##aaaaaaaa####...................",
+".....................####bbbbbb##aaaaaa####.....................",
+".......................####bbbb##aaaa####.......................",
+".........................####bb##aa####.........................",
+"...........................##########...........................",
+"..............................####..............................",
+"................................................................"};
--- a/RXLib/.svn/pristine/46/465cb8288ed3f7e3305f7d5adee3b690e9c40319.svn-base
+++ b/RXLib/.svn/pristine/46/465cb8288ed3f7e3305f7d5adee3b690e9c40319.svn-base
@@ -0,0 +1,57 @@
+unit Unit1; 
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DbCtrls,
+  StdCtrls, db, rxmemds, rxdbgrid, RxDBColorBox;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Datasource1: TDatasource;
+    DBNavigator1: TDBNavigator;
+    Label1: TLabel;
+    Label2: TLabel;
+    RxDBColorBox1: TRxDBColorBox;
+    RxDBColorBox2: TRxDBColorBox;
+    RxDBGrid1: TRxDBGrid;
+    RxMemoryData1: TRxMemoryData;
+    RxMemoryData1COLOR_INT: TLongintField;
+    RxMemoryData1COLOR_STR: TStringField;
+    RxMemoryData1FIELD_ID: TAutoIncField;
+    procedure FormCreate(Sender: TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end; 
+
+var
+  Form1: TForm1; 
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  RxMemoryData1.Open;
+  RxMemoryData1.Append;
+  RxMemoryData1COLOR_STR.AsString:='clWhite';
+  RxMemoryData1COLOR_INT.AsInteger:=Integer(clGreen);
+  RxMemoryData1.Post;
+  RxMemoryData1.Append;
+  RxMemoryData1COLOR_STR.AsString:='clGreen';
+  RxMemoryData1COLOR_INT.AsInteger:=Integer(clRed);
+  RxMemoryData1.Post;
+end;
+
+end.
+