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

RxFPC:RxDBGrid - move property DrawFullLine to RxDBGrid.FooterOptions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4638 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-05-05 06:49:18 +00:00
parent fdbf8a6f0b
commit 6b38f2d82b
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -820,7 +820,7 @@ type
property BorderStyle;
property Color;
property BorderColor;
property DrawFullLine: boolean read GetDrawFullLine write SetDrawFullLine;
property DrawFullLine: boolean read GetDrawFullLine write SetDrawFullLine; deprecated;
property FocusColor;
property FixedHotColor;
@ -1870,6 +1870,7 @@ procedure TRxDBGridFooterOptions.SetDrawFullLine(AValue: boolean);
begin
if FDrawFullLine=AValue then Exit;
FDrawFullLine:=AValue;
FOwner.VisualChange;
end;
procedure TRxDBGridFooterOptions.SetRowCount(AValue: integer);
@ -2448,13 +2449,12 @@ end;
function TRxDBGrid.GetDrawFullLine: boolean;
begin
Result := FDrawFullLine;
Result := FFooterOptions.FDrawFullLine;
end;
procedure TRxDBGrid.SetDrawFullLine(Value: boolean);
begin
FDrawFullLine := Value;
VisualChange;
FFooterOptions.DrawFullLine := Value;
end;
procedure TRxDBGrid.DoCreateJMenu;
@ -3946,7 +3946,7 @@ begin
begin
TxS := Canvas.TextStyle;
if FDrawFullLine then
if FFooterOptions.FDrawFullLine then
begin
ColRowToOffset(True, True, 0, R.Left, R.Right);
Canvas.Pen.Color := GridLineColor;
@ -3969,7 +3969,7 @@ begin
Canvas.FillRect(R);
DrawCellGrid(i, 0, R, []);
if FDrawFullLine then
if FFooterOptions.FDrawFullLine then
begin
Canvas.MoveTo(R.Right - 1, R.Top);
Canvas.LineTo(R.Right - 1, RowHeights[0]);
@ -4024,7 +4024,7 @@ begin
if assigned(ABrush)then FreeAndNil(ABrush);
if FDrawFullLine then
if FFooterOptions.FDrawFullLine then
begin
Canvas.MoveTo(FooterRect.Left, FooterRect.Top);
Canvas.LineTo(R.Right, FooterRect.Top);

2
components/rx/trunk/rxfileutils.pas
View File

@ -45,8 +45,8 @@ function GetUserName:string;
implementation
uses
{$IFDEF WINDOWS}
uses
Windows;
{$ELSE}
{$ENDIF}