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

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/9c/9c12c07bec80f97a28a3e46541800d4748c56437.svn-base
+++ b/RXLib/.svn/pristine/9c/9c12c07bec80f97a28a3e46541800d4748c56437.svn-base
@@ -0,0 +1,230 @@
+object Form1: TForm1
+  Left = 386
+  Height = 524
+  Top = 218
+  Width = 780
+  Caption = 'Auto sort demo'
+  ClientHeight = 524
+  ClientWidth = 780
+  OnCreate = FormCreate
+  LCLVersion = '1.7'
+  object RxDBGrid1: TRxDBGrid
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = CheckBox1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 6
+    Height = 452
+    Top = 66
+    Width = 768
+    ColumnDefValues.BlobText = '(данные)'
+    TitleButtons = True
+    AutoSort = True
+    Columns = <    
+      item
+        Title.Alignment = taCenter
+        Title.Orientation = toHorizontal
+        Title.Caption = 'ID'
+        Width = 88
+        FieldName = 'ID'
+        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    
+      item
+        Title.Alignment = taCenter
+        Title.Orientation = toHorizontal
+        Title.Caption = 'NAME'
+        Width = 350
+        FieldName = 'NAME'
+        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    
+      item
+        Title.Alignment = taCenter
+        Title.Orientation = toHorizontal
+        Title.Caption = 'DATE_ENTER'
+        Width = 100
+        FieldName = 'DATE_ENTER'
+        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 = []
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 6
+    Color = clWindow
+    DrawFullLine = False
+    FocusColor = clRed
+    SelectedColor = clHighlight
+    GridLineStyle = psSolid
+    DataSource = Datasource1
+    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook]
+    ParentColor = False
+    TabOrder = 0
+    TitleStyle = tsNative
+  end
+  object CheckBox1: TCheckBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = CheckBox2
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 24
+    Top = 36
+    Width = 107
+    BorderSpacing.Around = 6
+    Caption = 'Title buttons'
+    OnChange = CheckBox2Change
+    TabOrder = 1
+  end
+  object CheckBox2: TCheckBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 6
+    Height = 24
+    Top = 6
+    Width = 85
+    BorderSpacing.Around = 6
+    Caption = 'Auto sort'
+    OnChange = CheckBox2Change
+    TabOrder = 2
+  end
+  object RxMemoryData1: TRxMemoryData
+    AutoCalcFields = False
+    FieldDefs = <    
+      item
+        Name = 'ID'
+        DataType = ftInteger
+        Precision = -1
+      end    
+      item
+        Name = 'NAME'
+        DataType = ftString
+        Precision = -1
+        Size = 100
+      end    
+      item
+        Name = 'DATE_ENTER'
+        DataType = ftDate
+        Precision = -1
+      end>
+    PacketRecords = 0
+    left = 192
+    top = 16
+    object RxMemoryData1ID: TLongintField
+      DisplayWidth = 10
+      FieldKind = fkData
+      FieldName = 'ID'
+      Index = 0
+      LookupCache = False
+      ProviderFlags = [pfInUpdate, pfInWhere]
+      ReadOnly = False
+      Required = False
+    end
+    object RxMemoryData1NAME: TStringField
+      DisplayWidth = 100
+      FieldKind = fkData
+      FieldName = 'NAME'
+      Index = 1
+      LookupCache = False
+      ProviderFlags = [pfInUpdate, pfInWhere]
+      ReadOnly = False
+      Required = False
+      Size = 100
+    end
+    object RxMemoryData1DATE_ENTER: TDateField
+      DisplayWidth = 10
+      FieldKind = fkData
+      FieldName = 'DATE_ENTER'
+      Index = 2
+      LookupCache = False
+      ProviderFlags = [pfInUpdate, pfInWhere]
+      ReadOnly = False
+      Required = False
+    end
+  end
+  object Datasource1: TDataSource
+    DataSet = RxMemoryData1
+    left = 152
+    top = 16
+  end
+end
--- a/RXLib/.svn/pristine/9c/9c13146935aa68cf954b92c4ea92008cdfba7526.svn-base
+++ b/RXLib/.svn/pristine/9c/9c13146935aa68cf954b92c4ea92008cdfba7526.svn-base
@@ -0,0 +1,43 @@
+LazarusResources.Add('TForm1','FORMDATA',[
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'`'#2#6'Height'#3','#1#3'Top'#3#239#1#5'Wi'
+  +'dth'#3#144#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3
+  +#144#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6
+  +'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
+  +'Owner'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'.'#18'BorderSpacing'
+  +'.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#6'Label1'#11'ParentColor'
+  +#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSi'
+  +'deTop.Control'#7#11'DBDateEdit1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
+  +'ft'#2#6#6'Height'#2#18#3'Top'#2'?'#5'Width'#2']'#20'BorderSpacing.Around'#2
+  +#6#7'Caption'#6#13'Currency edit'#11'ParentColor'#8#0#0#11'TDBDateEdit'#11'D'
+  +'BDateEdit1'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'
+  +#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2
+  +#27#3'Top'#2#30#5'Width'#3#148#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing'
+  +'.Top'#2#6#11'ButtonWidth'#2#23#7'Enabled'#8#10'Glyph.Data'#10':'#1#0#0'6'#1
+  +#0#0'BM6'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#28#0#0#0#12#0#0#0#1#0#4#0#0#0#0#0
+  +#192#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128
+  +#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255
+  +#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#221
+  +#215'wwwww'#221#255#255#255#255#255#255#0#0#221#0'@D'#4#0'G'#215'wwwww'#127#0
+  +#0#221#255#255#255#255#255'G'#215#253#255#253#255#253#127#0#0#221#240#0#240#0
+  +#143'G'#215#247'w'#215'w'#223#127#0#0#221#255#15#248#248#15'G'#215#253#127
+  +#221#221#127#127#0#0#221#255#15#255#255#15'G'#215#253#127#221#255'}'#127#0#0
+  +#221#255#15#240#0#143'G'#215#253#127#215'w'#221#127#0#0#221#240#15#240#255
+  +#255'G'#215#247#127#215#255#255#127#0#0#221#255#15#240#0#15'G'#215#253'}'#215
+  +'w}'#127#0#0#221#255#255#255#255#255'G'#215#253#221#221#221#221#127#0#0#221
+  +#248#136#136#136#143'G'#215#255#255#255#255#255#127#0#0#221#0#0#0#0#0#221#215
+  +'wwwww}'#0#0#9'NumGlyphs'#2#2#10'PopupColor'#7#8'clWindow'#8'TabOrder'#2#0#9
+  +'DataField'#6#8'DOC_DATE'#10'DataSource'#7#6'dsData'#0#0#13'TCurrencyEdit'#13
+  +'CurrencyEdit1'#22'AnchorSideLeft.Control'#7#6'Label2'#21'AnchorSideTop.Cont'
+  +'rol'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heigh'
+  +'t'#2#27#3'Top'#2'W'#5'Width'#3#148#0#9'Alignment'#7#8'taCenter'#20'BorderSp'
+  +'acing.Around'#2#6#8'MaxValue'#2#0#8'MinValue'#2#0#8'TabOrder'#2#1#5'Value'#2
+  +#0#0#0#7'TButton'#7'Button1'#4'Left'#3#248#0#6'Height'#2#29#3'Top'#2'P'#5'Wi'
+  +'dth'#2'L'#8'AutoSize'#9#7'Caption'#6#10'Invalidate'#7'OnClick'#7#12'Button1'
+  +'Click'#8'TabOrder'#2#2#0#0#11'TDatasource'#6'dsData'#7'DataSet'#7#6'rxData'
+  +#4'left'#3#8#1#3'top'#2#21#0#0#13'TRxMemoryData'#6'rxData'#9'FieldDefs'#14#1
+  +#4'Name'#6#8'DOC_DATE'#8'DataType'#7#6'ftDate'#9'Precision'#2#0#4'Size'#2#0#0
+  +#0#4'left'#3'0'#1#3'top'#2#21#0#10'TDateField'#14'rxDataDOC_DATE'#12'Display'
+  +'Width'#2#10#9'FieldKind'#7#6'fkData'#9'FieldName'#6#8'DOC_DATE'#5'Index'#2#0
+  +#11'LookupCache'#8#13'ProviderFlags'#11#10'pfInUpdate'#9'pfInWhere'#0#8'Read'
+  +'Only'#8#8'Required'#8#0#0#0#0
+]);
--- a/RXLib/.svn/pristine/9c/9c46d2fefb051c8c2f41f1eafabce5d884e58108.svn-base
+++ b/RXLib/.svn/pristine/9c/9c46d2fefb051c8c2f41f1eafabce5d884e58108.svn-base
--- a/RXLib/.svn/pristine/9c/9cdcdc7003846a5990dfc2f9e1ad7254666dfc0d.svn-base
+++ b/RXLib/.svn/pristine/9c/9cdcdc7003846a5990dfc2f9e1ad7254666dfc0d.svn-base
@@ -0,0 +1,116 @@
+object RxDBGridFooterTools_SetupForm: TRxDBGridFooterTools_SetupForm
+  Left = 789
+  Height = 290
+  Top = 366
+  Width = 341
+  Caption = 'Setup footer row'
+  ClientHeight = 290
+  ClientWidth = 341
+  OnCreate = FormCreate
+  Position = poScreenCenter
+  ShowHint = True
+  LCLVersion = '1.7'
+  object ButtonPanel1: TButtonPanel
+    Left = 6
+    Height = 42
+    Top = 242
+    Width = 329
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
+    TabOrder = 0
+    ShowButtons = [pbOK, pbCancel, pbHelp]
+  end
+  object PageControl1: TPageControl
+    Left = 0
+    Height = 236
+    Top = 0
+    Width = 341
+    ActivePage = TabSheet2
+    Align = alClient
+    TabIndex = 1
+    TabOrder = 1
+    object TabSheet1: TTabSheet
+      Caption = 'Functions'
+      ClientHeight = 198
+      ClientWidth = 335
+      object StringGrid1: TStringGrid
+        Left = 0
+        Height = 198
+        Top = 0
+        Width = 335
+        Align = alClient
+        AutoFillColumns = True
+        ColCount = 2
+        Columns = <        
+          item
+            ReadOnly = True
+            Title.Alignment = taCenter
+            Title.Caption = 'Collumn name'
+            Width = 166
+          end        
+          item
+            PickList.Strings = (
+              'fvtNon'
+              'fvtSum'
+              'fvtAvg'
+              'fvtCount'
+              'fvtFieldValue'
+              'fvtStaticText'
+              'fvtMax'
+              'fvtMin'
+              'fvtRecNo'
+            )
+            Title.Alignment = taCenter
+            Title.Caption = 'Function'
+            Width = 167
+          end>
+        FixedCols = 0
+        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
+        TabOrder = 0
+        TitleStyle = tsNative
+        ColWidths = (
+          166
+          167
+        )
+      end
+    end
+    object TabSheet2: TTabSheet
+      Caption = 'Other options'
+      ClientHeight = 198
+      ClientWidth = 335
+      object Label1: TLabel
+        AnchorSideLeft.Control = TabSheet2
+        AnchorSideTop.Control = TabSheet2
+        Left = 6
+        Height = 20
+        Top = 6
+        Width = 108
+        BorderSpacing.Around = 6
+        Caption = 'Footer row color'
+        ParentColor = False
+      end
+      object ColorBox1: TColorBox
+        AnchorSideLeft.Control = Label1
+        AnchorSideTop.Control = Label1
+        AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = TabSheet2
+        AnchorSideRight.Side = asrBottom
+        Left = 12
+        Height = 34
+        Top = 32
+        Width = 317
+        Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames, cbCustomColors]
+        Anchors = [akTop, akLeft, akRight]
+        BorderSpacing.Around = 6
+        ItemHeight = 0
+        TabOrder = 0
+      end
+    end
+  end
+end