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

RxDBGrid - russian translate

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2886 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-01-15 12:04:11 +00:00
parent 3716b6a895
commit b94045e9d1
4 changed files with 153 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

136
components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@ -54,7 +54,7 @@
<MinVersion Major="1" Release="18" Build="56" Valid="True"/> <MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item4> </Item4>
</RequiredPackages> </RequiredPackages>
<Units Count="101"> <Units Count="102">
<Unit0> <Unit0>
<Filename Value="RxDBGridDemo.lpr"/> <Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -62,7 +62,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="9" Y="16"/> <CursorPos X="9" Y="16"/>
<UsageCount Value="95"/> <UsageCount Value="96"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="rxdbgridmainunit.pas"/> <Filename Value="rxdbgridmainunit.pas"/>
@ -71,12 +71,11 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/> <UnitName Value="RxDBGridMainUnit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="134"/> <TopLine Value="62"/>
<CursorPos X="1" Y="145"/> <CursorPos X="15" Y="76"/>
<UsageCount Value="95"/> <UsageCount Value="96"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -103,14 +102,15 @@
<Unit5> <Unit5>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="5421"/> <TopLine Value="730"/>
<CursorPos X="1" Y="5446"/> <CursorPos X="97" Y="752"/>
<UsageCount Value="16"/> <UsageCount Value="16"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="1" Y="2509" ID="2"/> <Item0 X="1" Y="2564" ID="2"/>
<Item1 X="48" Y="4306" ID="1"/> <Item1 X="1" Y="4785" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
@ -505,8 +505,8 @@
<UnitName Value="DBGrids"/> <UnitName Value="DBGrids"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3021"/> <TopLine Value="222"/>
<CursorPos X="1" Y="3049"/> <CursorPos X="3" Y="216"/>
<UsageCount Value="18"/> <UsageCount Value="18"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit58> </Unit58>
@ -515,8 +515,8 @@
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1054"/> <TopLine Value="515"/>
<CursorPos X="14" Y="1068"/> <CursorPos X="1" Y="529"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="23" Y="7562" ID="3"/> <Item0 X="23" Y="7562" ID="3"/>
@ -685,9 +685,9 @@
<Filename Value="../../../../lcl/lcltype.pp"/> <Filename Value="../../../../lcl/lcltype.pp"/>
<UnitName Value="LCLType"/> <UnitName Value="LCLType"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1115"/> <TopLine Value="439"/>
<CursorPos X="3" Y="1136"/> <CursorPos X="3" Y="433"/>
<UsageCount Value="9"/> <UsageCount Value="10"/>
</Unit80> </Unit80>
<Unit81> <Unit81>
<Filename Value="../../../../lcl/include/customcontrol.inc"/> <Filename Value="../../../../lcl/include/customcontrol.inc"/>
@ -803,8 +803,8 @@
<Unit96> <Unit96>
<Filename Value="/home/alexs/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/> <Filename Value="/home/alexs/install/source/fpcsrc/rtl/objpas/classes/classesh.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="511"/> <TopLine Value="412"/>
<CursorPos X="14" Y="527"/> <CursorPos X="3" Y="427"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit96> </Unit96>
<Unit97> <Unit97>
@ -836,124 +836,135 @@
<CursorPos X="3" Y="156"/> <CursorPos X="3" Y="156"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit100> </Unit100>
<Unit101>
<Filename Value="/home/alexs/install/source/fpcsrc/rtl/inc/objpash.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="178"/>
<CursorPos X="23" Y="193"/>
<UsageCount Value="10"/>
</Unit101>
</Units> </Units>
<JumpHistory Count="29" HistoryIndex="28"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="673" Column="15" TopLine="658"/> <Caret Line="5439" Column="1" TopLine="5420"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5325" Column="3" TopLine="5323"/> <Caret Line="5440" Column="1" TopLine="5420"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5326" Column="18" TopLine="5323"/> <Caret Line="5446" Column="1" TopLine="5421"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="119" Column="15" TopLine="112"/> <Caret Line="3553" Column="5" TopLine="3506"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="138" Column="23" TopLine="113"/> <Caret Line="3553" Column="1" TopLine="3538"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="140" Column="21" TopLine="115"/> <Caret Line="4306" Column="1" TopLine="4290"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="142" Column="57" TopLine="117"/> <Caret Line="4308" Column="1" TopLine="4290"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5356" Column="3" TopLine="5354"/> <Caret Line="4309" Column="1" TopLine="4290"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="4469" Column="3" TopLine="4448"/> <Caret Line="4310" Column="1" TopLine="4290"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="1704" Column="48" TopLine="1676"/> <Caret Line="4312" Column="1" TopLine="4290"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="1705" Column="19" TopLine="1675"/> <Caret Line="176" Column="1" TopLine="148"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3566" Column="45" TopLine="3539"/> <Caret Line="168" Column="45" TopLine="155"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="4292" Column="33" TopLine="4292"/> <Caret Line="162" Column="25" TopLine="157"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="4366" Column="1" TopLine="4359"/> <Caret Line="173" Column="64" TopLine="149"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="4310" Column="51" TopLine="4291"/> <Caret Line="435" Column="53" TopLine="399"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="652" Column="30" TopLine="639"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="1705" Column="62" TopLine="1681"/> <Caret Line="671" Column="30" TopLine="647"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3566" Column="40" TopLine="3542"/> <Caret Line="165" Column="26" TopLine="149"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3553" Column="5" TopLine="3542"/> <Caret Line="173" Column="63" TopLine="149"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="3555" Column="1" TopLine="3542"/> <Caret Line="160" Column="17" TopLine="155"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5436" Column="1" TopLine="5420"/> <Caret Line="437" Column="94" TopLine="411"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5437" Column="1" TopLine="5420"/> <Caret Line="4699" Column="29" TopLine="4697"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5439" Column="1" TopLine="5420"/> <Caret Line="160" Column="15" TopLine="153"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5439" Column="1" TopLine="5420"/> <Caret Line="448" Column="45" TopLine="421"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5440" Column="1" TopLine="5420"/> <Caret Line="4775" Column="23" TopLine="4766"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5439" Column="1" TopLine="5420"/> <Caret Line="403" Column="16" TopLine="399"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../../../lcl/dbgrids.pas"/>
<Caret Line="5440" Column="1" TopLine="5420"/> <Caret Line="216" Column="3" TopLine="210"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../../../lcl/grids.pas"/>
<Caret Line="5439" Column="1" TopLine="5420"/> <Caret Line="11296" Column="3" TopLine="11292"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<Caret Line="5446" Column="2" TopLine="5420"/> <Caret Line="430" Column="39" TopLine="405"/>
</Position29> </Position29>
<Position30>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="4772" Column="33" TopLine="4767"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -982,29 +993,6 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="3">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../rxdbgrid.pas"/>
<Line Value="4306"/>
</Item1>
<Item2>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../rxdbgrid.pas"/>
<Line Value="3553"/>
</Item2>
<Item3>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="../../rxdbgrid.pas"/>
<Line Value="5442"/>
</Item3>
</BreakPoints>
<Watches Count="5"> <Watches Count="5">
<Item1> <Item1>
<Expression Value="K"/> <Expression Value="K"/>

16
components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm
View File

@ -27,6 +27,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True Title.ShowHint = True
Width = 50 Width = 50
FieldName = 'DEVELOPER_ID' FieldName = 'DEVELOPER_ID'
Constraints.MinWidth = 50
Constraints.MaxWidth = 0
ImageList = ImageList1 ImageList = ImageList1
KeyList.Strings = ( KeyList.Strings = (
'1=0' '1=0'
@ -51,6 +53,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Footer.Alignment = taRightJustify Footer.Alignment = taRightJustify
Footer.DisplayFormat = 'Count: %d' Footer.DisplayFormat = 'Count: %d'
Footer.ValueType = fvtCount Footer.ValueType = fvtCount
Constraints.MinWidth = 0
Constraints.MaxWidth = 0
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.Color = clLime Filter.Color = clLime
@ -67,6 +71,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True Title.ShowHint = True
Width = 136 Width = 136
FieldName = 'Developer' FieldName = 'Developer'
Constraints.MinWidth = 10
Constraints.MaxWidth = 0
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.Color = clLime Filter.Color = clLime
@ -83,6 +89,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True Title.ShowHint = True
Width = 110 Width = 110
FieldName = 'NAME' FieldName = 'NAME'
Constraints.MinWidth = 0
Constraints.MaxWidth = 0
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.Color = clLime Filter.Color = clLime
@ -105,6 +113,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Footer.DisplayFormat = '#,##0.00' Footer.DisplayFormat = '#,##0.00'
Footer.FieldName = 'PRICE' Footer.FieldName = 'PRICE'
Footer.ValueType = fvtSum Footer.ValueType = fvtSum
Constraints.MinWidth = 0
Constraints.MaxWidth = 0
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.Color = clLime Filter.Color = clLime
@ -134,6 +144,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True Title.ShowHint = True
Width = 136 Width = 136
FieldName = 'Date_Present' FieldName = 'Date_Present'
Constraints.MinWidth = 0
Constraints.MaxWidth = 0
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
@ -149,6 +161,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.ShowHint = True Title.ShowHint = True
Width = 141 Width = 141
FieldName = 'DEVELOPER_ID' FieldName = 'DEVELOPER_ID'
Constraints.MinWidth = 0
Constraints.MaxWidth = 0
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'
@ -167,6 +181,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
Title.Caption = 'Rait' Title.Caption = 'Rait'
Title.Orientation = toHorizontal Title.Orientation = toHorizontal
FieldName = 'RAIT' FieldName = 'RAIT'
Constraints.MinWidth = 0
Constraints.MaxWidth = 0
Filter.Font.Style = [fsItalic] Filter.Font.Style = [fsItalic]
Filter.DropDownRows = 0 Filter.DropDownRows = 0
Filter.EmptyValue = '(Нет)' Filter.EmptyValue = '(Нет)'

2
components/rx/trunk/languages/rxdconst.ru.po
View File

@ -227,7 +227,7 @@ msgstr "Копировать только метаданные..."
#: rxdconst.srxdbgridcopycellvalue #: rxdconst.srxdbgridcopycellvalue
msgid "Copy cell value" msgid "Copy cell value"
msgstr "" msgstr "Копировать значение ячейки"
#: rxdconst.srxdbgridemptifilter #: rxdconst.srxdbgridemptifilter
msgid "(Empty)" msgid "(Empty)"

74
components/rx/trunk/rxdbgrid.pas
View File

@ -155,6 +155,24 @@ type
property Items[Index: integer]: TRxDBGridKeyStroke read GetItem write SetItem; default; property Items[Index: integer]: TRxDBGridKeyStroke read GetItem write SetItem; default;
end; end;
{ TRxDBGridCollumnConstraint }
TRxDBGridCollumnConstraints = class(TPersistent)
private
FMaxWidth: integer;
FMinWidth: integer;
FOwner: TPersistent;
procedure SetMaxWidth(AValue: integer);
procedure SetMinWidth(AValue: integer);
protected
procedure AssignTo(Dest: TPersistent); override;
public
constructor Create(AOwner: TPersistent);
published
property MinWidth:integer read FMinWidth write SetMinWidth;
property MaxWidth:integer read FMaxWidth write SetMaxWidth;
end;
{ TRxDBGridFooterOptions } { TRxDBGridFooterOptions }
TRxDBGridFooterOptions = class(TPersistent) TRxDBGridFooterOptions = class(TPersistent)
@ -387,6 +405,7 @@ type
FDirectInput: boolean; FDirectInput: boolean;
FEditButtons: TRxColumnEditButtons; FEditButtons: TRxColumnEditButtons;
FFooter: TRxColumnFooter; FFooter: TRxColumnFooter;
FConstraints:TRxDBGridCollumnConstraints;
FFilter: TRxColumnFilter; FFilter: TRxColumnFilter;
FImageList: TImageList; FImageList: TImageList;
FKeyList: TStrings; FKeyList: TStrings;
@ -395,8 +414,10 @@ type
FSortOrder: TSortMarker; FSortOrder: TSortMarker;
FSortPosition: integer; FSortPosition: integer;
FWordWrap: boolean; FWordWrap: boolean;
function GetConstraints: TRxDBGridCollumnConstraints;
function GetFooter: TRxColumnFooter; function GetFooter: TRxColumnFooter;
function GetKeyList: TStrings; function GetKeyList: TStrings;
procedure SetConstraints(AValue: TRxDBGridCollumnConstraints);
procedure SetEditButtons(AValue: TRxColumnEditButtons); procedure SetEditButtons(AValue: TRxColumnEditButtons);
procedure SetFilter(const AValue: TRxColumnFilter); procedure SetFilter(const AValue: TRxColumnFilter);
procedure SetFooter(const AValue: TRxColumnFooter); procedure SetFooter(const AValue: TRxColumnFooter);
@ -406,6 +427,7 @@ type
procedure SetWordWrap(AValue: boolean); procedure SetWordWrap(AValue: boolean);
protected protected
function CreateTitle: TGridColumnTitle; override; function CreateTitle: TGridColumnTitle; override;
procedure ColumnChanged; override;
public public
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
destructor Destroy; override; destructor Destroy; override;
@ -414,6 +436,7 @@ type
property SortPosition: integer read FSortPosition; property SortPosition: integer read FSortPosition;
published published
property Footer: TRxColumnFooter read GetFooter write SetFooter; property Footer: TRxColumnFooter read GetFooter write SetFooter;
property Constraints:TRxDBGridCollumnConstraints read GetConstraints write SetConstraints;
property ImageList: TImageList read FImageList write SetImageList; property ImageList: TImageList read FImageList write SetImageList;
property KeyList: TStrings read GetKeyList write SetKeyList; property KeyList: TStrings read GetKeyList write SetKeyList;
property NotInKeyListIndex: integer read FNotInKeyListIndex property NotInKeyListIndex: integer read FNotInKeyListIndex
@ -726,6 +749,7 @@ type
property FooterRowCount: integer read GetFooterRowCount write SetFooterRowCount default 0; deprecated; property FooterRowCount: integer read GetFooterRowCount write SetFooterRowCount default 0; deprecated;
property OnFiltred: TNotifyEvent read FOnFiltred write FOnFiltred; property OnFiltred: TNotifyEvent read FOnFiltred write FOnFiltred;
// property Constraints:TRxDBGridCollumnConstraints read GetConstraints write SetConstraints;
//from DBGrid //from DBGrid
property Align; property Align;
@ -912,6 +936,37 @@ type
procedure EditingDone; override; procedure EditingDone; override;
end; end;
{ TRxDBGridCollumnConstraint }
procedure TRxDBGridCollumnConstraints.SetMaxWidth(AValue: integer);
begin
if FMaxWidth=AValue then Exit;
FMaxWidth:=AValue;
end;
procedure TRxDBGridCollumnConstraints.SetMinWidth(AValue: integer);
begin
if FMinWidth=AValue then Exit;
FMinWidth:=AValue;
end;
procedure TRxDBGridCollumnConstraints.AssignTo(Dest: TPersistent);
begin
if Dest is TRxDBGridCollumnConstraints then
begin
TRxDBGridCollumnConstraints(Dest).FMinWidth:=FMinWidth;
TRxDBGridCollumnConstraints(Dest).FMaxWidth:=FMaxWidth;
end
else
inherited AssignTo(Dest);
end;
constructor TRxDBGridCollumnConstraints.Create(AOwner: TPersistent);
begin
inherited Create;
FOwner:=AOwner;
end;
{ TRxFilterItems } { TRxFilterItems }
function TRxFilterItems.AcceptRecord: boolean; function TRxFilterItems.AcceptRecord: boolean;
@ -4641,6 +4696,11 @@ begin
Result := FKeyList; Result := FKeyList;
end; end;
procedure TRxColumn.SetConstraints(AValue: TRxDBGridCollumnConstraints);
begin
FConstraints.Assign(AValue);
end;
procedure TRxColumn.SetEditButtons(AValue: TRxColumnEditButtons); procedure TRxColumn.SetEditButtons(AValue: TRxColumnEditButtons);
begin begin
FEditButtons.Assign(AValue); FEditButtons.Assign(AValue);
@ -4656,6 +4716,11 @@ begin
Result := FFooter; Result := FFooter;
end; end;
function TRxColumn.GetConstraints: TRxDBGridCollumnConstraints;
begin
Result:=FConstraints;
end;
procedure TRxColumn.SetFooter(const AValue: TRxColumnFooter); procedure TRxColumn.SetFooter(const AValue: TRxColumnFooter);
begin begin
FFooter.Assign(AValue); FFooter.Assign(AValue);
@ -4701,10 +4766,18 @@ begin
Result := TRxColumnTitle.Create(Self); Result := TRxColumnTitle.Create(Self);
end; end;
procedure TRxColumn.ColumnChanged;
begin
inherited ColumnChanged;
if Assigned(FConstraints) and (FConstraints.MinWidth <> 0) and (FConstraints.MinWidth > Width) then
Width:=FConstraints.MinWidth;
end;
constructor TRxColumn.Create(ACollection: TCollection); constructor TRxColumn.Create(ACollection: TCollection);
begin begin
inherited Create(ACollection); inherited Create(ACollection);
FNotInKeyListIndex := -1; FNotInKeyListIndex := -1;
FConstraints:=TRxDBGridCollumnConstraints.Create(Self);
FFooter := TRxColumnFooter.Create(Self); FFooter := TRxColumnFooter.Create(Self);
FFilter := TRxColumnFilter.Create(Self); FFilter := TRxColumnFilter.Create(Self);
FDirectInput := true; FDirectInput := true;
@ -4721,6 +4794,7 @@ begin
end; end;
FreeAndNil(FFooter); FreeAndNil(FFooter);
FreeAndNil(FFilter); FreeAndNil(FFilter);
FreeAndNil(FConstraints);
inherited Destroy; inherited Destroy;
end; end;