pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:RxDBVerticalGrid - published property SelectedColor - thx.ssadragon

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6860 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2019-04-23 06:33:05 +00:00
parent a908ae901c
commit 3f8f7e96fd
5 changed files with 60 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/rx/trunk/demos/RxDBVerticalGrid/project1.lpi
View File

@ -1,10 +1,12 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="12"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/> <Title Value="project1"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
@ -17,9 +19,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>

22
components/rx/trunk/demos/RxDBVerticalGrid/project1.lps
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectSession> <ProjectSession>
<Version Value="10"/> <Version Value="12"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="74"> <Units Count="74">
<Unit0> <Unit0>
@ -19,7 +19,7 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="123"/> <TopLine Value="109"/>
<CursorPos X="86" Y="146"/> <CursorPos X="86" Y="146"/>
<UsageCount Value="52"/> <UsageCount Value="52"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -90,7 +90,7 @@
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../../../lcl/dbctrls.pp"/> <Filename Value="../../../../lcl/dbctrls.pp"/>
<UnitName Value="DbCtrls"/> <UnitName Value="DBCtrls"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="1042"/> <TopLine Value="1042"/>
<CursorPos X="15" Y="1070"/> <CursorPos X="15" Y="1070"/>
@ -177,11 +177,11 @@
<Unit22> <Unit22>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/> <Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<TopLine Value="1289"/> <TopLine Value="319"/>
<CursorPos X="26" Y="1290"/> <CursorPos X="77" Y="342"/>
<UsageCount Value="25"/> <UsageCount Value="25"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="38" Y="914" ID="1"/> <Item0 X="38" Y="915" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit22> </Unit22>
@ -554,7 +554,7 @@
<DefaultSyntaxHighlighter Value="LFM"/> <DefaultSyntaxHighlighter Value="LFM"/>
</Unit73> </Unit73>
</Units> </Units>
<JumpHistory Count="28" HistoryIndex="27"> <JumpHistory Count="29" HistoryIndex="28">
<Position1> <Position1>
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/> <Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="293" Column="15" TopLine="272"/> <Caret Line="293" Column="15" TopLine="272"/>
@ -667,7 +667,15 @@
<Filename Value="../../rxdb/rxdbverticalgrid.pas"/> <Filename Value="../../rxdb/rxdbverticalgrid.pas"/>
<Caret Line="1290" Column="26" TopLine="1289"/> <Caret Line="1290" Column="26" TopLine="1289"/>
</Position28> </Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="146" Column="106"/>
</Position29>
</JumpHistory> </JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode="default"/>
</RunParams>
</ProjectSession> </ProjectSession>
<Debugging> <Debugging>
<Watches Count="1"> <Watches Count="1">

BIN
components/rx/trunk/demos/RxDBVerticalGrid/project1.res
View File

Binary file not shown.

62
components/rx/trunk/demos/RxDBVerticalGrid/unit1.lfm
View File

@ -8,14 +8,15 @@ object Form1: TForm1
ClientWidth = 1206 ClientWidth = 1206
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.9.0.0' LCLVersion = '2.1.0.0'
object RxDBVerticalGrid1: TRxDBVerticalGrid object RxDBVerticalGrid1: TRxDBVerticalGrid
Left = 899 Left = 899
Height = 642 Height = 646
Top = 107 Top = 103
Width = 307 Width = 307
Align = alClient Align = alClient
Color = clWindow Color = clWindow
SelectedColor = clSkyBlue
GridDefValues.BlobText = '(данные)' GridDefValues.BlobText = '(данные)'
DataCoumn.Title.Alignment = taCenter DataCoumn.Title.Alignment = taCenter
DataCoumn.Title.Caption = 'Данные' DataCoumn.Title.Caption = 'Данные'
@ -171,8 +172,8 @@ object Form1: TForm1
end end
object RxDBGrid1: TRxDBGrid object RxDBGrid1: TRxDBGrid
Left = 0 Left = 0
Height = 642 Height = 646
Top = 107 Top = 103
Width = 894 Width = 894
ColumnDefValues.BlobText = '(данные)' ColumnDefValues.BlobText = '(данные)'
TitleButtons = False TitleButtons = False
@ -186,6 +187,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -199,6 +201,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -212,6 +215,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -225,6 +229,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -238,6 +243,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -251,6 +257,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -264,6 +271,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -277,6 +285,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -290,6 +299,7 @@ object Form1: TForm1
EditButtons = <> EditButtons = <>
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Пусто)' Filter.EmptyValue = '(Пусто)'
Filter.NotEmptyValue = '(Не пусто)'
Filter.AllValue = '(Все значения)' Filter.AllValue = '(Все значения)'
Filter.EmptyFont.Style = [fsItalic] Filter.EmptyFont.Style = [fsItalic]
Filter.ItemIndex = -1 Filter.ItemIndex = -1
@ -368,21 +378,21 @@ object Form1: TForm1
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 107 Height = 103
Top = 0 Top = 0
Width = 1206 Width = 1206
Align = alTop Align = alTop
AutoSize = True AutoSize = True
ClientHeight = 107 ClientHeight = 103
ClientWidth = 1206 ClientWidth = 1206
TabOrder = 2 TabOrder = 2
object Button1: TButton object Button1: TButton
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 7 Left = 7
Height = 36 Height = 31
Top = 7 Top = 7
Width = 80 Width = 78
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Diconnect' Caption = 'Diconnect'
@ -393,10 +403,10 @@ object Form1: TForm1
AnchorSideLeft.Control = Button1 AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 93 Left = 91
Height = 36 Height = 31
Top = 7 Top = 7
Width = 69 Width = 66
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Connect' Caption = 'Connect'
@ -407,10 +417,10 @@ object Form1: TForm1
AnchorSideLeft.Control = Button2 AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 168 Left = 163
Height = 93 Height = 89
Top = 7 Top = 7
Width = 83 Width = 85
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -422,8 +432,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 72 ClientHeight = 69
ClientWidth = 81 ClientWidth = 83
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Left' 'Left'
@ -438,10 +448,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox1 AnchorSideTop.Control = CheckBox1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 257 Left = 254
Height = 24 Height = 23
Top = 37 Top = 36
Width = 111 Width = 114
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show images' Caption = 'Show images'
OnChange = CheckBox1Change OnChange = CheckBox1Change
@ -451,10 +461,10 @@ object Form1: TForm1
AnchorSideLeft.Control = RadioGroup1 AnchorSideLeft.Control = RadioGroup1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
Left = 257 Left = 254
Height = 24 Height = 23
Top = 7 Top = 7
Width = 110 Width = 112
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Show header' Caption = 'Show header'
OnChange = CheckBox1Change OnChange = CheckBox1Change
@ -463,8 +473,8 @@ object Form1: TForm1
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 894 Left = 894
Height = 642 Height = 646
Top = 107 Top = 103
Width = 5 Width = 5
end end
object dsData: TDataSource object dsData: TDataSource

1
components/rx/trunk/rxdb/rxdbverticalgrid.pas
View File

@ -335,6 +335,7 @@ type
property BorderStyle; property BorderStyle;
property CellHintPriority; property CellHintPriority;
property Color; property Color;
property SelectedColor;
property GridDefValues; property GridDefValues;
property DataCoumn; property DataCoumn;
property DataSource; property DataSource;