You've already forked lazarus-ccr
RxFPC:RxDBGrid - SelectedFont property and demo
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6156 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
BIN
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.ico
Normal file
BIN
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
83
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.lpi
Normal file
83
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.lpi
Normal file
@ -0,0 +1,83 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="11"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="RxDBGrid demo - SelectedFont"/>
|
||||
<Scaled Value="True"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<DpiAware Value="True"/>
|
||||
</XPManifest>
|
||||
<Icon Value="0"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="0"/>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="FCL"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="rxnew"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item3>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<Target>
|
||||
<Filename Value="project1"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
23
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.lpr
Normal file
23
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.lpr
Normal file
@ -0,0 +1,23 @@
|
||||
program project1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, rxnew, Unit1
|
||||
{ you can add units after this };
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Title:='RxDBGrid demo - SelectedFont';
|
||||
RequireDerivedFormResource:=True;
|
||||
Application.Scaled:=True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
227
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.lps
Normal file
227
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.lps
Normal file
@ -0,0 +1,227 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectSession>
|
||||
<Version Value="11"/>
|
||||
<BuildModes Active="Default"/>
|
||||
<Units Count="10">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<WindowIndex Value="-1"/>
|
||||
<TopLine Value="-1"/>
|
||||
<CursorPos X="-1" Y="-1"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<TopLine Value="41"/>
|
||||
<CursorPos X="78" Y="63"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="735"/>
|
||||
<CursorPos Y="754"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<TopLine Value="848"/>
|
||||
<CursorPos X="17" Y="879"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Bookmarks Count="2">
|
||||
<Item0 Y="311" ID="1"/>
|
||||
<Item1 X="30" Y="7484" ID="2"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/dbgrids.pas"/>
|
||||
<UnitName Value="DBGrids"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<TopLine Value="2725"/>
|
||||
<CursorPos X="3" Y="2730"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/>
|
||||
<UnitName Value="Graphics"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<TopLine Value="557"/>
|
||||
<CursorPos X="22" Y="580"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/grids.pas"/>
|
||||
<UnitName Value="Grids"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<TopLine Value="5269"/>
|
||||
<CursorPos Y="5278"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="/usr/local/share/lazarus/lcl/include/font.inc"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<TopLine Value="760"/>
|
||||
<CursorPos X="3" Y="765"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="unit1.lfm"/>
|
||||
<EditorIndex Value="-1"/>
|
||||
<CursorPos X="7" Y="12"/>
|
||||
<FoldState Value=" T0B2}= T1mfEj1;"/>
|
||||
<UsageCount Value="10"/>
|
||||
<DefaultSyntaxHighlighter Value="LFM"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="../../../../install/source/fpcsrc/rtl/objpas/sysutils/sysinth.inc"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<TopLine Value="84"/>
|
||||
<CursorPos X="45" Y="103"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit9>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="7455" Column="3" TopLine="7451"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="409" Column="14" TopLine="389"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="7428" Column="3" TopLine="7426"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="410" Column="14" TopLine="392"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="7436" Column="3" TopLine="7432"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="411" Column="14" TopLine="393"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="7441" Column="3" TopLine="7437"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="412" Column="14" TopLine="394"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="7446" Column="3" TopLine="7442"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="569" Column="27" TopLine="558"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="1332" Column="3" TopLine="1330"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="569" Column="15" TopLine="550"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="1332" Column="36" TopLine="1330"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="571" Column="15" TopLine="550"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="1355" Column="3" TopLine="1353"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="572" Column="14" TopLine="552"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="1360" Column="3" TopLine="1358"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="576" Column="14" TopLine="553"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="1385" TopLine="1381"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="587" Column="15" TopLine="557"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="/usr/local/share/lazarus/components/rxnew/rxdb/rxdbgrid.pas"/>
|
||||
<Caret Line="1520" Column="3" TopLine="1518"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="121" Column="12" TopLine="98"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="42" Column="15" TopLine="20"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="93" Column="8" TopLine="73"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="38" Column="14" TopLine="24"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="101" Column="3" TopLine="98"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="40" Column="15" TopLine="20"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="67" TopLine="56"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="42" Column="14" TopLine="24"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<Caret Line="93" Column="12" TopLine="41"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="0" ActiveMode=""/>
|
||||
</RunParams>
|
||||
</ProjectSession>
|
||||
</CONFIG>
|
||||
BIN
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.res
Normal file
BIN
components/rx/trunk/demos/rxdbgrid/SelectedFont/project1.res
Normal file
Binary file not shown.
434
components/rx/trunk/demos/rxdbgrid/SelectedFont/unit1.lfm
Normal file
434
components/rx/trunk/demos/rxdbgrid/SelectedFont/unit1.lfm
Normal file
@ -0,0 +1,434 @@
|
||||
object Form1: TForm1
|
||||
Left = 469
|
||||
Height = 537
|
||||
Top = 245
|
||||
Width = 898
|
||||
Caption = 'RxDBGrid demo - SelectedFont'
|
||||
ClientHeight = 537
|
||||
ClientWidth = 898
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.9.0.0'
|
||||
object Panel1: TPanel
|
||||
Left = 698
|
||||
Height = 537
|
||||
Top = 0
|
||||
Width = 200
|
||||
Align = alRight
|
||||
ClientHeight = 537
|
||||
ClientWidth = 200
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = ColorBox1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 20
|
||||
Top = 105
|
||||
Width = 87
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Selected font'
|
||||
ParentColor = False
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = Panel1
|
||||
Left = 7
|
||||
Height = 24
|
||||
Top = 7
|
||||
Width = 97
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Row select'
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 0
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideBottom.Control = SpinEdit1
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 20
|
||||
Top = 217
|
||||
Width = 58
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
Caption = 'Font size'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = CheckBox1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 20
|
||||
Top = 37
|
||||
Width = 93
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Selected color'
|
||||
ParentColor = False
|
||||
end
|
||||
object ColorBox1: TColorBox
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Panel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 13
|
||||
Height = 36
|
||||
Top = 63
|
||||
Width = 180
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 1
|
||||
end
|
||||
object Label4: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 20
|
||||
Top = 131
|
||||
Width = 68
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Font name'
|
||||
ParentColor = False
|
||||
end
|
||||
object EditButton1: TEditButton
|
||||
AnchorSideLeft.Control = Label4
|
||||
AnchorSideTop.Control = Label4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Panel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 13
|
||||
Height = 37
|
||||
Top = 157
|
||||
Width = 180
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ButtonWidth = 23
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||
FF00FFFFFF00E69B6266E69A61FFE5975EFFE2945BFFE3935AFFE3915733FFFF
|
||||
FF00E38F5499E28D53FFE28C51FFE28A50FFE28A50FFE28A5099FFFFFF00FFFF
|
||||
FF00FFFFFF00E79F6611E79C6477E8A573FFDB915FFEDC905DA9E5945B10FFFF
|
||||
FF00E3915722E3905677E59A68FFEAAD83FFE4945EFFE28A5044FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00E79E6666E5A575FFDD9868FFDA905E2DFFFF
|
||||
FF00FFFFFF00FFFFFF00E39057FFE9A77AFFE28D54CCFFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E7A16888E1A579FFDC9462F5DB91
|
||||
61BDDA905EBDD88D5BBDDF9A6CFFE9A779FFE39056BBFFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9A36A11E6A169E3E3AA80FFDC95
|
||||
64ADDB946203FFFFFF00E5975DFFE9A676FFE3935A99FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E9A56D33E5A472FFDF9B
|
||||
68FAE59C6653E79C6477E9A673FFE8A572FFE5955D77FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00419149E539853FFF317A37FF2A702FFF86864AFBE4AA
|
||||
7CFFDF9C69D1E7A16879EAAA79FFE9A876FFE69A6177FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00419149F99BD2A2FF95D09DFF2A702FF8E7A6
|
||||
70DBE2A16DF9E29F6ABAEDB487FFE9A672FFE79C6444FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF0051A75A8A71B67AFFA6D8ADFF9ED3A5FF317A37FCEAAA
|
||||
7322E5A670FAE3A26FFCEEBC95FFEAA975FFE7A16844FFFFFF00DB7423DDD970
|
||||
1EFFD86B1BCC84A052CA80C588FFB0DCB6FF75B87CFF419149F539853FFBE5A9
|
||||
76E7E5A874F4EABB92FFE9BA93FFE7B489FFE09E6CE8FFFFFF00E49555FFDB77
|
||||
25EEDB701F778CA453F288CB90FF83C68BFF619F52BF499C5203419149E1E6AC
|
||||
788AE5AA7791E7A976D4E6A974E2E5A671E2E2A27094FFFFFF00E18E42FFDF7E
|
||||
2EEEDB792733DB74235592AA5DFF85A151F958B16203FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E28B3A55DF85
|
||||
35DDE18C41FFDD7B2ACCE7A36CFFDE813AFFD86C1B44FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E2904022E28D
|
||||
3CBBE1873977DF843177DF7E2ECCE49859FFDB742388FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E6954722E698
|
||||
4EFFE28E40DDE28B3A11DF853588E69F60FFDD7B2ABBFFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E697
|
||||
4755E49445DDE39344FFE69A52FFE28E43FFDF843188FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||
}
|
||||
MaxLength = 0
|
||||
NumGlyphs = 1
|
||||
OnButtonClick = EditButton1ButtonClick
|
||||
PasswordChar = #0
|
||||
Spacing = 0
|
||||
TabOrder = 2
|
||||
Text = 'EditButton1'
|
||||
end
|
||||
object SpinEdit1: TSpinEdit
|
||||
AnchorSideLeft.Control = Label2
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = EditButton1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 71
|
||||
Height = 37
|
||||
Top = 200
|
||||
Width = 89
|
||||
BorderSpacing.Around = 6
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 3
|
||||
Value = 1
|
||||
end
|
||||
object CheckBox2: TCheckBox
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = SpinEdit1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 24
|
||||
Top = 243
|
||||
Width = 55
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Bold'
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 4
|
||||
end
|
||||
object CheckBox3: TCheckBox
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = CheckBox2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 24
|
||||
Top = 273
|
||||
Width = 56
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Italic'
|
||||
TabOrder = 5
|
||||
end
|
||||
object CheckBox4: TCheckBox
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = CheckBox3
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 24
|
||||
Top = 303
|
||||
Width = 88
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Underline'
|
||||
TabOrder = 6
|
||||
end
|
||||
object CheckBox5: TCheckBox
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = CheckBox4
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 24
|
||||
Top = 333
|
||||
Width = 87
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'StrikeOut'
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 7
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = CheckBox5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 20
|
||||
Top = 363
|
||||
Width = 65
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Font color'
|
||||
ParentColor = False
|
||||
end
|
||||
object ColorBox2: TColorBox
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Panel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 13
|
||||
Height = 36
|
||||
Top = 389
|
||||
Width = 180
|
||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Around = 6
|
||||
ItemHeight = 0
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 8
|
||||
end
|
||||
end
|
||||
object RxDBGrid1: TRxDBGrid
|
||||
Left = 0
|
||||
Height = 537
|
||||
Top = 0
|
||||
Width = 698
|
||||
ColumnDefValues.BlobText = '(данные)'
|
||||
TitleButtons = False
|
||||
AutoSort = True
|
||||
Columns = <
|
||||
item
|
||||
Title.Alignment = taCenter
|
||||
Title.Orientation = toHorizontal
|
||||
Title.Caption = 'ID'
|
||||
Width = 60
|
||||
FieldName = 'ID'
|
||||
EditButtons = <>
|
||||
Filter.DropDownRows = 0
|
||||
Filter.EmptyValue = '(Пусто)'
|
||||
Filter.NotEmptyValue = '(Не пусто)'
|
||||
Filter.AllValue = '(Все значения)'
|
||||
Filter.EmptyFont.Style = [fsItalic]
|
||||
Filter.ItemIndex = -1
|
||||
Footers = <>
|
||||
end
|
||||
item
|
||||
Title.Alignment = taCenter
|
||||
Title.Orientation = toHorizontal
|
||||
Title.Caption = 'Caption'
|
||||
Width = 450
|
||||
FieldName = 'Caption'
|
||||
EditButtons = <>
|
||||
Filter.DropDownRows = 0
|
||||
Filter.EmptyValue = '(Пусто)'
|
||||
Filter.NotEmptyValue = '(Не пусто)'
|
||||
Filter.AllValue = '(Все значения)'
|
||||
Filter.EmptyFont.Style = [fsItalic]
|
||||
Filter.ItemIndex = -1
|
||||
Footers = <>
|
||||
end
|
||||
item
|
||||
Title.Alignment = taCenter
|
||||
Title.Orientation = toHorizontal
|
||||
Title.Caption = 'EditDate'
|
||||
Width = 150
|
||||
FieldName = 'EditDate'
|
||||
EditButtons = <>
|
||||
Filter.DropDownRows = 0
|
||||
Filter.EmptyValue = '(Пусто)'
|
||||
Filter.NotEmptyValue = '(Не пусто)'
|
||||
Filter.AllValue = '(Все значения)'
|
||||
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
|
||||
SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
|
||||
SearchOptions.FromStart = False
|
||||
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter]
|
||||
Align = alClient
|
||||
Color = clWindow
|
||||
DrawFullLine = False
|
||||
FocusColor = clRed
|
||||
SelectedColor = clHighlight
|
||||
GridLineStyle = psSolid
|
||||
DataSource = dsData
|
||||
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
||||
TabOrder = 1
|
||||
end
|
||||
object rxData: TRxMemoryData
|
||||
FieldDefs = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = ftInteger
|
||||
end
|
||||
item
|
||||
Name = 'Caption'
|
||||
DataType = ftString
|
||||
Size = 250
|
||||
end
|
||||
item
|
||||
Name = 'EditDate'
|
||||
DataType = ftDateTime
|
||||
end>
|
||||
PacketRecords = 0
|
||||
Left = 224
|
||||
Top = 80
|
||||
object rxDataID: TLongintField
|
||||
FieldKind = fkData
|
||||
FieldName = 'ID'
|
||||
Index = 0
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
Required = False
|
||||
end
|
||||
object rxDataCaption: TStringField
|
||||
FieldKind = fkData
|
||||
FieldName = 'Caption'
|
||||
Index = 1
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
Required = False
|
||||
Size = 250
|
||||
end
|
||||
object rxDataEditDate: TDateTimeField
|
||||
FieldKind = fkData
|
||||
FieldName = 'EditDate'
|
||||
Index = 2
|
||||
LookupCache = False
|
||||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||
ReadOnly = False
|
||||
Required = False
|
||||
end
|
||||
end
|
||||
object dsData: TDataSource
|
||||
DataSet = rxData
|
||||
Left = 184
|
||||
Top = 80
|
||||
end
|
||||
object FontDialog1: TFontDialog
|
||||
Width = 459
|
||||
Height = 359
|
||||
MinFontSize = 0
|
||||
MaxFontSize = 0
|
||||
Left = 784
|
||||
Top = 136
|
||||
end
|
||||
end
|
||||
144
components/rx/trunk/demos/rxdbgrid/SelectedFont/unit1.pas
Normal file
144
components/rx/trunk/demos/rxdbgrid/SelectedFont/unit1.pas
Normal file
@ -0,0 +1,144 @@
|
||||
unit Unit1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, db,
|
||||
DBGrids, ColorBox, EditBtn, Spin, rxmemds, rxdbgrid, rxtooledit;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
CheckBox1: TCheckBox;
|
||||
CheckBox2: TCheckBox;
|
||||
CheckBox3: TCheckBox;
|
||||
CheckBox4: TCheckBox;
|
||||
CheckBox5: TCheckBox;
|
||||
ColorBox1: TColorBox;
|
||||
ColorBox2: TColorBox;
|
||||
dsData: TDataSource;
|
||||
EditButton1: TEditButton;
|
||||
FontDialog1: TFontDialog;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Panel1: TPanel;
|
||||
rxData: TRxMemoryData;
|
||||
rxDataCaption: TStringField;
|
||||
rxDataEditDate: TDateTimeField;
|
||||
rxDataID: TLongintField;
|
||||
RxDBGrid1: TRxDBGrid;
|
||||
SpinEdit1: TSpinEdit;
|
||||
procedure CheckBox1Change(Sender: TObject);
|
||||
procedure EditButton1ButtonClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
procedure LoadFontParams;
|
||||
public
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
uses math;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
rxData.Open;
|
||||
for i:=1 to 12 do
|
||||
rxData.AppendRecord([i, 'Line '+IntToStr(i) + ' ('+DefaultFormatSettings.LongMonthNames[i] +')', RandomRange(1, 100000) + Random]);
|
||||
rxData.First;
|
||||
|
||||
LoadFontParams;
|
||||
end;
|
||||
|
||||
procedure TForm1.LoadFontParams;
|
||||
begin
|
||||
SpinEdit1.OnChange:=nil;
|
||||
CheckBox2.OnChange:=nil;
|
||||
CheckBox3.OnChange:=nil;
|
||||
CheckBox4.OnChange:=nil;
|
||||
CheckBox5.OnChange:=nil;
|
||||
ColorBox1.OnChange:=nil;
|
||||
ColorBox2.OnChange:=nil;
|
||||
|
||||
EditButton1.Text:=RxDBGrid1.SelectedFont.Name;
|
||||
SpinEdit1.Value:=RxDBGrid1.SelectedFont.Size;
|
||||
CheckBox2.Checked:=fsBold in RxDBGrid1.SelectedFont.Style;
|
||||
CheckBox3.Checked:=fsItalic in RxDBGrid1.SelectedFont.Style;
|
||||
CheckBox4.Checked:=fsUnderline in RxDBGrid1.SelectedFont.Style;
|
||||
CheckBox5.Checked:=fsStrikeOut in RxDBGrid1.SelectedFont.Style;
|
||||
ColorBox2.Selected:=RxDBGrid1.SelectedFont.Color;
|
||||
ColorBox1.Selected:=RxDBGrid1.SelectedColor;
|
||||
|
||||
SpinEdit1.OnChange:=@CheckBox1Change;
|
||||
CheckBox2.OnChange:=@CheckBox1Change;
|
||||
CheckBox3.OnChange:=@CheckBox1Change;
|
||||
CheckBox4.OnChange:=@CheckBox1Change;
|
||||
CheckBox5.OnChange:=@CheckBox1Change;
|
||||
ColorBox1.OnChange:=@CheckBox1Change;
|
||||
ColorBox2.OnChange:=@CheckBox1Change;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox1Change(Sender: TObject);
|
||||
begin
|
||||
if CheckBox1.Checked then
|
||||
RxDBGrid1.Options:=RxDBGrid1.Options + [dgRowSelect]
|
||||
else
|
||||
RxDBGrid1.Options:=RxDBGrid1.Options - [dgRowSelect];
|
||||
|
||||
RxDBGrid1.SelectedColor:=ColorBox1.Selected;
|
||||
|
||||
if CheckBox2.Checked then
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style + [fsBold]
|
||||
else
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style - [fsBold];
|
||||
|
||||
if CheckBox3.Checked then
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style + [fsItalic]
|
||||
else
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style - [fsItalic];
|
||||
|
||||
if CheckBox4.Checked then
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style + [fsUnderline]
|
||||
else
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style - [fsUnderline];
|
||||
|
||||
if CheckBox5.Checked then
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style + [fsStrikeOut]
|
||||
else
|
||||
RxDBGrid1.SelectedFont.Style:=RxDBGrid1.SelectedFont.Style - [fsStrikeOut];
|
||||
|
||||
RxDBGrid1.SelectedFont.Color:=ColorBox2.Selected;
|
||||
RxDBGrid1.SelectedFont.Size:=SpinEdit1.Value;
|
||||
|
||||
|
||||
LoadFontParams;
|
||||
end;
|
||||
|
||||
procedure TForm1.EditButton1ButtonClick(Sender: TObject);
|
||||
begin
|
||||
FontDialog1.Font:=RxDBGrid1.SelectedFont;
|
||||
if FontDialog1.Execute then
|
||||
begin
|
||||
RxDBGrid1.SelectedFont:=FontDialog1.Font;
|
||||
LoadFontParams;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -388,6 +388,8 @@ type
|
||||
|
||||
TRxColumnFilter = class(TPersistent)
|
||||
private
|
||||
FIsFontStored:Boolean;
|
||||
FIsEmptyFontStored:Boolean;
|
||||
FAllValue: string;
|
||||
FCurrentValues: TStringList;
|
||||
FEnabled: boolean;
|
||||
@ -405,7 +407,11 @@ type
|
||||
FColor: TColor;
|
||||
function GetDisplayFilterValue: string;
|
||||
function GetItemIndex: integer;
|
||||
function IsEmptyFontStored: Boolean;
|
||||
function IsFontStored: Boolean;
|
||||
procedure FontChanged(Sender: TObject);
|
||||
procedure SetColor(const AValue: TColor);
|
||||
procedure SetEmptyFont(AValue: TFont);
|
||||
procedure SetFont(const AValue: TFont);
|
||||
procedure SetItemIndex(const AValue: integer);
|
||||
public
|
||||
@ -418,7 +424,7 @@ type
|
||||
property ManulEditValue : string read FManulEditValue write FManulEditValue;
|
||||
property DisplayFilterValue:string read GetDisplayFilterValue;
|
||||
published
|
||||
property Font: TFont read FFont write SetFont;
|
||||
property Font: TFont read FFont write SetFont stored IsFontStored;
|
||||
property Alignment: TAlignment read FAlignment write FAlignment default
|
||||
taLeftJustify;
|
||||
property DropDownRows: integer read FDropDownRows write FDropDownRows;
|
||||
@ -427,7 +433,7 @@ type
|
||||
property EmptyValue: string read FEmptyValue write FEmptyValue;
|
||||
property NotEmptyValue: string read FNotEmptyValue write FNotEmptyValue;
|
||||
property AllValue: string read FAllValue write FAllValue;
|
||||
property EmptyFont: TFont read FEmptyFont write FEmptyFont;
|
||||
property EmptyFont: TFont read FEmptyFont write SetEmptyFont stored IsEmptyFontStored;
|
||||
property ItemIndex: integer read GetItemIndex write SetItemIndex;
|
||||
property Enabled:boolean read FEnabled write FEnabled default true;
|
||||
property Style : TRxFilterStyle read FStyle write FStyle default rxfstSimple;
|
||||
@ -740,10 +746,12 @@ type
|
||||
TRxDBGrid = class(TCustomDBGrid)
|
||||
private
|
||||
FColumnDefValues: TRxDBGridColumnDefValues;
|
||||
FIsSelectedDefaultFont:boolean;
|
||||
|
||||
FFooterOptions: TRxDBGridFooterOptions;
|
||||
FOnCalcRowHeight: TRxDBGridCalcRowHeight;
|
||||
FSearchOptions: TRxDBGridSearchOptions;
|
||||
FSelectedFont: TFont;
|
||||
FSortColumns: TRxDbGridColumnsSortList;
|
||||
FSortingNow:Boolean;
|
||||
FInProcessCalc: integer;
|
||||
@ -817,6 +825,8 @@ type
|
||||
function GetTitleButtons: boolean;
|
||||
function IsColumnsStored: boolean;
|
||||
|
||||
procedure SelectedFontChanged(Sender: TObject);
|
||||
function IsSelectedFontStored: Boolean;
|
||||
procedure SetAutoSort(const AValue: boolean);
|
||||
procedure SetColumnDefValues(AValue: TRxDBGridColumnDefValues);
|
||||
procedure SetColumns(const AValue: TRxDbGridColumns);
|
||||
@ -827,6 +837,7 @@ type
|
||||
procedure SetOptionsRx(const AValue: TOptionsRx);
|
||||
procedure SetPropertyStorage(const AValue: TCustomPropertyStorage);
|
||||
procedure SetSearchOptions(AValue: TRxDBGridSearchOptions);
|
||||
procedure SetSelectedFont(AValue: TFont);
|
||||
procedure SetTitleButtons(const AValue: boolean);
|
||||
procedure TrackButton(X, Y: integer);
|
||||
function GetDrawFullLine: boolean;
|
||||
@ -834,6 +845,7 @@ type
|
||||
procedure StopTracking;
|
||||
procedure CalcTitle;
|
||||
procedure ClearMLCaptionPointers;
|
||||
procedure FillDefaultFonts;
|
||||
function getFilterRect(bRect: TRect): TRect;
|
||||
function getTitleRect(bRect: TRect): TRect;
|
||||
procedure OutCaptionCellText(aCol, aRow: integer; const aRect: TRect;
|
||||
@ -1017,6 +1029,7 @@ type
|
||||
property FooterOptions:TRxDBGridFooterOptions read FFooterOptions write SetFooterOptions;
|
||||
property SearchOptions:TRxDBGridSearchOptions read FSearchOptions write SetSearchOptions;
|
||||
property OnCalcRowHeight:TRxDBGridCalcRowHeight read FOnCalcRowHeight write FOnCalcRowHeight;
|
||||
property SelectedFont:TFont read FSelectedFont write SetSelectedFont stored IsSelectedFontStored;
|
||||
|
||||
//storage
|
||||
property PropertyStorage: TCustomPropertyStorage read GetPropertyStorage write SetPropertyStorage;
|
||||
@ -1316,7 +1329,7 @@ end;
|
||||
|
||||
procedure TRxColumnGroupParam.FontChanged(Sender: TObject);
|
||||
begin
|
||||
FisDefaultFont := False;
|
||||
FisDefaultFont := FFont.IsDefault;
|
||||
FColumn.ColumnChanged;
|
||||
end;
|
||||
|
||||
@ -1828,7 +1841,7 @@ end;
|
||||
|
||||
procedure TRxColumnFooterItem.FontChanged(Sender: TObject);
|
||||
begin
|
||||
FisDefaultFont := False;
|
||||
FisDefaultFont := Font.IsDefault;
|
||||
FOwner.ColumnChanged;
|
||||
end;
|
||||
|
||||
@ -3173,6 +3186,17 @@ begin
|
||||
Result := TRxDbGridColumns(TCustomDrawGrid(Self).Columns).Enabled;
|
||||
end;
|
||||
|
||||
procedure TRxDBGrid.SelectedFontChanged(Sender: TObject);
|
||||
begin
|
||||
FIsSelectedDefaultFont:=FSelectedFont.IsDefault;
|
||||
VisualChange;
|
||||
end;
|
||||
|
||||
function TRxDBGrid.IsSelectedFontStored: Boolean;
|
||||
begin
|
||||
Result:=not FIsSelectedDefaultFont
|
||||
end;
|
||||
|
||||
procedure TRxDBGrid.SetColumns(const AValue: TRxDbGridColumns);
|
||||
begin
|
||||
inherited Columns := TDBGridColumns(AValue);
|
||||
@ -3245,6 +3269,12 @@ begin
|
||||
FSearchOptions.Assign(AValue);
|
||||
end;
|
||||
|
||||
procedure TRxDBGrid.SetSelectedFont(AValue: TFont);
|
||||
begin
|
||||
if not FSelectedFont.IsEqual(AValue) then
|
||||
FSelectedFont.Assign(AValue);
|
||||
end;
|
||||
|
||||
function TRxDBGrid.DatalinkActive: boolean;
|
||||
begin
|
||||
Result := Assigned(DataSource) and Assigned(DataSource.DataSet) and
|
||||
@ -3494,6 +3524,13 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRxDBGrid.FillDefaultFonts;
|
||||
begin
|
||||
FSelectedFont.Assign(Font);
|
||||
//FSelectedFont.Color:=clHighlightText;
|
||||
FIsSelectedDefaultFont := True;
|
||||
end;
|
||||
|
||||
function TRxDBGrid.getFilterRect(bRect: TRect): TRect;
|
||||
begin
|
||||
Result := bRect;
|
||||
@ -6612,6 +6649,15 @@ begin
|
||||
end;
|
||||
|
||||
procedure TRxDBGrid.PrepareCanvas(aCol, aRow: Integer; AState: TGridDrawState);
|
||||
function IsCellButtonColumn(ACell: TPoint): boolean;
|
||||
var
|
||||
Column: TGridColumn;
|
||||
begin
|
||||
Column := ColumnFromGridColumn(ACell.X);
|
||||
result := (Column<>nil) and (Column.ButtonStyle=cbsButtonColumn) and
|
||||
(ACell.y>=FixedRows);
|
||||
end;
|
||||
|
||||
var
|
||||
L, R, RR: Integer;
|
||||
C: TRxColumn;
|
||||
@ -6622,6 +6668,18 @@ begin
|
||||
if (aCol >= L) and (aCol <= R) then
|
||||
AState := AState + [gdSelected, gdFocused];
|
||||
inherited PrepareCanvas(aCol, aRow, AState);
|
||||
|
||||
|
||||
if (gdSelected in AState) then
|
||||
begin
|
||||
if not IsCellButtonColumn(point(aCol,aRow)) then
|
||||
if not FIsSelectedDefaultFont then
|
||||
begin
|
||||
Canvas.Font:=FSelectedFont;
|
||||
if FSelectedFont.Color = clDefault then
|
||||
Canvas.Font.Color := clHighlightText;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFDEF DEVELOPER_RX}
|
||||
@ -6948,6 +7006,9 @@ begin
|
||||
FRxDbGridDateEditor.Name := 'RxDbGridDateEditor';
|
||||
FRxDbGridDateEditor.Visible := False;
|
||||
|
||||
FSelectedFont:=TFont.Create;
|
||||
FSelectedFont.OnChange:=@SelectedFontChanged;
|
||||
FillDefaultFonts;
|
||||
UpdateJMenuKeys;
|
||||
|
||||
end;
|
||||
@ -6955,6 +7016,7 @@ end;
|
||||
destructor TRxDBGrid.Destroy;
|
||||
begin
|
||||
CleanDSEvent;
|
||||
FreeAndNil(FSelectedFont);
|
||||
FreeAndNil(FFilterSimpleEdit);
|
||||
FreeAndNil(FFooterOptions);
|
||||
FreeAndNil(FRxDbGridLookupComboEditor);
|
||||
@ -7366,6 +7428,25 @@ begin
|
||||
Result := -1;
|
||||
end;
|
||||
|
||||
function TRxColumnFilter.IsEmptyFontStored: Boolean;
|
||||
begin
|
||||
Result:=FIsEmptyFontStored;
|
||||
end;
|
||||
|
||||
function TRxColumnFilter.IsFontStored: Boolean;
|
||||
begin
|
||||
Result:=FIsFontStored;
|
||||
end;
|
||||
|
||||
procedure TRxColumnFilter.FontChanged(Sender: TObject);
|
||||
begin
|
||||
if Sender = FFont then
|
||||
FIsFontStored:=not FFont.IsDefault
|
||||
else
|
||||
FIsEmptyFontStored:=not FEmptyFont.IsDefault;
|
||||
FOwner.ColumnChanged;
|
||||
end;
|
||||
|
||||
function TRxColumnFilter.GetDisplayFilterValue: string;
|
||||
begin
|
||||
Result:='';
|
||||
@ -7397,10 +7478,16 @@ begin
|
||||
FOwner.ColumnChanged;
|
||||
end;
|
||||
|
||||
procedure TRxColumnFilter.SetEmptyFont(AValue: TFont);
|
||||
begin
|
||||
if not FEmptyFont.IsEqual(AValue) then
|
||||
FEmptyFont.Assign(AValue);
|
||||
end;
|
||||
|
||||
procedure TRxColumnFilter.SetFont(const AValue: TFont);
|
||||
begin
|
||||
FFont.Assign(AValue);
|
||||
FOwner.ColumnChanged;
|
||||
if not FFont.IsEqual(AValue) then
|
||||
FFont.Assign(AValue);
|
||||
end;
|
||||
|
||||
procedure TRxColumnFilter.SetItemIndex(const AValue: integer);
|
||||
@ -7419,8 +7506,12 @@ constructor TRxColumnFilter.Create(Owner: TRxColumn);
|
||||
begin
|
||||
inherited Create;
|
||||
FOwner := Owner;
|
||||
|
||||
FFont := TFont.Create;
|
||||
FFont.OnChange:=@FontChanged;
|
||||
FEmptyFont := TFont.Create;
|
||||
FEmptyFont.OnChange:=@FontChanged;
|
||||
|
||||
FValueList := TStringList.Create;
|
||||
FValueList.Sorted := True;
|
||||
FCurrentValues:=TStringList.Create;
|
||||
|
||||
@ -23,9 +23,9 @@
|
||||
</CompilerOptions>
|
||||
<Description Value="Delphi VCL Extensions (RX)
|
||||
Copyright (c) 1998 Master-Bank
|
||||
translate to Lazarus by alexs in 2005 - 2017"/>
|
||||
translate to Lazarus by alexs in 2005 - 2018"/>
|
||||
<License Value="LGPL"/>
|
||||
<Version Major="3" Minor="1" Release="1" Build="210"/>
|
||||
<Version Major="3" Minor="2" Release="1" Build="210"/>
|
||||
<Files Count="72">
|
||||
<Item1>
|
||||
<Filename Value="registerrx.pas"/>
|
||||
@ -316,7 +316,7 @@ translate to Lazarus by alexs in 2005 - 2017"/>
|
||||
</Item71>
|
||||
<Item72>
|
||||
<Filename Value="rxcontrols\rxrangesel.pas"/>
|
||||
<UnitName Value="rxrangesel"/>
|
||||
<UnitName Value="RxRangeSel"/>
|
||||
</Item72>
|
||||
</Files>
|
||||
<LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/>
|
||||
|
||||
Reference in New Issue
Block a user