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

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/0a/0a5992e697834a36b6904473bf65012d3fdfae17.svn-base
+++ b/RXLib/.svn/pristine/0a/0a5992e697834a36b6904473bf65012d3fdfae17.svn-base
@@ -0,0 +1,202 @@
+object Form1: TForm1
+  Left = 369
+  Height = 500
+  Top = 228
+  Width = 536
+  ActiveControl = RadioGroup1.RadioButton4
+  Caption = 'Form1'
+  ClientHeight = 500
+  ClientWidth = 536
+  OnCreate = FormCreate
+  SessionProperties = 'Edit1.Text'
+  LCLVersion = '1.7'
+  object PaintBox1: TPaintBox
+    Left = 16
+    Height = 129
+    Top = 16
+    Width = 184
+    OnPaint = PaintBox1Paint
+  end
+  object Edit1: TEdit
+    Left = 8
+    Height = 37
+    Top = 152
+    Width = 192
+    OnChange = Edit1Change
+    TabOrder = 0
+    Text = 'Edit1'
+  end
+  object RadioGroup1: TRadioGroup
+    Left = 208
+    Height = 153
+    Top = 8
+    Width = 78
+    AutoFill = True
+    AutoSize = True
+    Caption = 'Direction'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 132
+    ClientWidth = 76
+    ItemIndex = 4
+    Items.Strings = (
+      '0 %'
+      '90 %'
+      '180 %'
+      '270 %'
+      '360 %'
+    )
+    OnClick = CheckBox1Change
+    TabOrder = 1
+  end
+  object RxDBGrid1: TRxDBGrid
+    Left = 0
+    Height = 308
+    Top = 192
+    Width = 536
+    ColumnDefValues.BlobText = '(данные)'
+    TitleButtons = False
+    AutoSort = False
+    Columns = <    
+      item
+        Title.Alignment = taCenter
+        Title.Orientation = toHorizontal
+        Title.Caption = 'DEMO_1'
+        FieldName = 'DEMO_1'
+        EditButtons = <>
+        Filter.IsNull = False
+        Filter.IsAll = True
+        Filter.DropDownRows = 0
+        Filter.EmptyValue = '(Пусто)'
+        Filter.AllValue = '(All values)'
+        Filter.EmptyFont.Style = [fsItalic]
+        Filter.ItemIndex = -1
+        Footers = <>
+      end>
+    KeyStrokes = <    
+      item
+        Command = rxgcShowFindDlg
+        ShortCut = 16454
+        Enabled = True
+      end    
+      item
+        Command = rxgcShowColumnsDlg
+        ShortCut = 16471
+        Enabled = True
+      end    
+      item
+        Command = rxgcShowFilterDlg
+        ShortCut = 16468
+        Enabled = True
+      end    
+      item
+        Command = rxgcShowSortDlg
+        ShortCut = 16467
+        Enabled = True
+      end    
+      item
+        Command = rxgcShowQuickFilter
+        ShortCut = 16465
+        Enabled = True
+      end    
+      item
+        Command = rxgcHideQuickFilter
+        ShortCut = 16456
+        Enabled = True
+      end    
+      item
+        Command = rxgcSelectAll
+        ShortCut = 16449
+        Enabled = True
+      end    
+      item
+        Command = rxgcDeSelectAll
+        ShortCut = 16429
+        Enabled = True
+      end    
+      item
+        Command = rxgcInvertSelection
+        ShortCut = 16426
+        Enabled = True
+      end    
+      item
+        Command = rxgcOptimizeColumnsWidth
+        ShortCut = 16427
+        Enabled = True
+      end    
+      item
+        Command = rxgcCopyCellValue
+        ShortCut = 16451
+        Enabled = True
+      end>
+    FooterOptions.DrawFullLine = False
+    OptionsRx = []
+    Align = alBottom
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Color = clWindow
+    DrawFullLine = False
+    FocusColor = clRed
+    SelectedColor = clHighlight
+    GridLineStyle = psSolid
+    DataSource = Datasource1
+    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
+    ParentColor = False
+    TabOrder = 2
+    TitleStyle = tsNative
+  end
+  object RxMemoryData1: TRxMemoryData
+    AutoCalcFields = False
+    FieldDefs = <    
+      item
+        Name = 'DEMO_1'
+        DataType = ftInteger
+        Precision = -1
+      end    
+      item
+        Name = 'Demo2'
+        DataType = ftString
+        Precision = -1
+        Size = 40
+      end>
+    PacketRecords = 0
+    left = 312
+    top = 64
+    object RxMemoryData1DEMO_11: TLongintField
+      DisplayWidth = 10
+      FieldKind = fkData
+      FieldName = 'DEMO_1'
+      Index = 0
+      LookupCache = False
+      ProviderFlags = [pfInUpdate, pfInWhere]
+      ReadOnly = False
+      Required = False
+    end
+    object RxMemoryData1Demo21: TStringField
+      DisplayWidth = 40
+      FieldKind = fkData
+      FieldName = 'Demo2'
+      Index = 1
+      LookupCache = False
+      ProviderFlags = [pfInUpdate, pfInWhere]
+      ReadOnly = False
+      Required = False
+      Size = 40
+    end
+  end
+  object Datasource1: TDataSource
+    DataSet = RxMemoryData1
+    left = 312
+    top = 32
+  end
+  object IniPropStorage1: TIniPropStorage
+    StoredValues = <>
+    left = 447
+    top = 19
+  end
+end