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

RxFPC:add new property in RxDBGrid.Collumn.Footer - Color

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5745 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-02-10 07:05:15 +00:00
parent 6583f2dc83
commit 3a01999407
19 changed files with 427 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.pas
View File

@ -70,6 +70,7 @@ type
RxMemoryData2: TRxMemoryData;
RxMemoryData2DEVELOPER_ID1: TLongintField;
RxMemoryData2DEVELOPER_NAME1: TStringField;
Timer1: TTimer;
procedure actCalcTotalExecute(Sender: TObject);
procedure actOptimizeColumnsWidthAllExecute(Sender: TObject);
procedure actOptimizeWidthCol1Execute(Sender: TObject);
@ -90,6 +91,7 @@ type
procedure showColumnsDialogExecute(Sender: TObject);
procedure showFindDialogExecute(Sender: TObject);
procedure sysExitExecute(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TRxColumnEditButtons0Click(Sender: TObject);
procedure TRxColumnEditButtons1Click(Sender: TObject);
procedure TRxColumnEditButtons2Click(Sender: TObject);
@ -201,6 +203,17 @@ begin
Close;
end;
procedure TRxDBGridMainForm.Timer1Timer(Sender: TObject);
var
R: TRxColumn;
begin
R:=RxDBGrid1.ColumnByFieldName('Developer');
if R.Footer.Color = clBlue then
R.Footer.Color:=clNone
else
R.Footer.Color:=clBlue;
end;
procedure TRxDBGridMainForm.TRxColumnEditButtons0Click(Sender: TObject);
begin
ShowMessage('Click first button');