paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, reworked grid's cell drawing fixing several bugs including issue #17407

Browse Source 
git-svn-id: trunk@27373 -
This commit is contained in:
jesus 2010-09-15 21:09:44 +00:00
parent f21517ba5c
commit 3b670b01a2
2 changed files with 165 additions and 154 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
lcl/dbgrids.pas
View File

@ -371,6 +371,7 @@ type
procedure CreateWnd; override; procedure CreateWnd; override;
procedure DefineProperties(Filer: TFiler); override; procedure DefineProperties(Filer: TFiler); override;
procedure DefaultDrawCell(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); procedure DefaultDrawCell(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState);
function DefaultEditorStyle(const Style:TColumnButtonStyle; const F:TField): TColumnButtonStyle;
procedure DoExit; override; procedure DoExit; override;
function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override; function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override; function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
@ -1663,17 +1664,11 @@ end;
function TCustomDBGrid.ColumnEditorStyle(aCol: Integer; F: TField): TColumnButtonStyle; function TCustomDBGrid.ColumnEditorStyle(aCol: Integer; F: TField): TColumnButtonStyle;
begin begin
Result := cbsAuto; result := cbsAuto;
if Columns.Enabled then if Columns.Enabled then
Result := ColumnFromGridColumn(aCol).ButtonStyle; result := ColumnFromGridColumn(aCol).ButtonStyle;
if (Result=cbsAuto) and (F<>nil) then result := DefaultEditorStyle(result, F);
case F.DataType of
ftBoolean: Result := cbsCheckboxColumn;
end;
if (result = cbsCheckBoxColumn) and not (dgeCheckboxColumn in FExtraOptions) then
Result := cbsAuto;
end; end;
function TCustomDBGrid.CreateColumns: TGridColumns; function TCustomDBGrid.CreateColumns: TGridColumns;
@ -1717,20 +1712,31 @@ procedure TCustomDBGrid.DefaultDrawCell(aCol, aRow: Integer; aRect: TRect;
var var
S: string; S: string;
F: TField; F: TField;
cbs: TColumnButtonStyle;
begin begin
if gdFixed in aState then begin // background
if (gdFixed in aState) and (TitleStyle=tsNative) then
DrawThemedCell(aCol, aRow, aRect, aState)
else
Canvas.FillRect(aRect);
if TitleStyle<>tsNative then if gdFixed in aState then
DrawFixedText(aCol, aRow, aRect, aState); DrawFixedText(aCol, aRow, aRect, aState)
else
end else
if not FDrawingEmptyDataset then begin if not FDrawingEmptyDataset then begin
F := GetFieldFromGridColumn(aCol); F := GetFieldFromGridColumn(aCol);
case ColumnEditorStyle(aCol, F) of cbs := ColumnEditorStyle(aCol, F);
case cbs of
cbsCheckBoxColumn: cbsCheckBoxColumn:
DrawCheckBoxBitmaps(aCol, aRect, F); DrawCheckBoxBitmaps(aCol, aRect, F);
else begin else
begin
if cbs=cbsButtonColumn then
DrawButtonCell(aCol, aRow, aRect, aState);
{$ifdef dbggridpaint} {$ifdef dbggridpaint}
DbgOut('Col=%d',[ACol]); DbgOut('Col=%d',[ACol]);
{$endif} {$endif}
@ -1753,6 +1759,18 @@ begin
end; end;
end; end;
function TCustomDBGrid.DefaultEditorStyle(const Style: TColumnButtonStyle;
const F: TField): TColumnButtonStyle;
begin
result := Style;
if (Result=cbsAuto) and (F<>nil) then
case F.DataType of
ftBoolean: Result := cbsCheckboxColumn;
end;
if (result = cbsCheckBoxColumn) and not (dgeCheckboxColumn in FExtraOptions) then
Result := cbsAuto;
end;
procedure TCustomDBGrid.DoOnChangeBounds; procedure TCustomDBGrid.DoOnChangeBounds;
begin begin
@ -2206,8 +2224,7 @@ procedure TCustomDBGrid.PrepareCanvas(aCol, aRow: Integer;
aState: TGridDrawState); aState: TGridDrawState);
begin begin
inherited PrepareCanvas(aCol, aRow, aState); inherited PrepareCanvas(aCol, aRow, aState);
if (not FDatalink.Active) and ((gdSelected in aState) or if (not FDatalink.Active) and ((gdSelected in aState) or (gdFocused in aState)) then
(gdFocused in aState)) then
Canvas.Brush.Color := Self.Color; Canvas.Brush.Color := Self.Color;
end; end;
@ -2557,9 +2574,6 @@ var
begin begin
PrepareCanvas(aCol, aRow, aState); PrepareCanvas(aCol, aRow, aState);
if (gdFixed in aState) or DefaultDrawing then
Canvas.FillRect(aRect);
{$ifdef dbgGridPaint} {$ifdef dbgGridPaint}
DbgOut(' ',IntToStr(aCol)); DbgOut(' ',IntToStr(aCol));
if gdSelected in aState then DbgOut('S'); if gdSelected in aState then DbgOut('S');
@ -2567,7 +2581,7 @@ begin
if gdFixed in aState then DbgOut('F'); if gdFixed in aState then DbgOut('F');
{$endif dbgGridPaint} {$endif dbgGridPaint}
if (gdFixed in aState) or DefaultDrawing then if DefaultDrawing then
DefaultDrawCell(aCol, aRow, aRect, aState); DefaultDrawCell(aCol, aRow, aRect, aState);
if (ARow>=FixedRows) and Assigned(OnDrawColumnCell) and if (ARow>=FixedRows) and Assigned(OnDrawColumnCell) and
@ -2576,16 +2590,10 @@ begin
DataCol := ColumnIndexFromGridColumn(aCol); DataCol := ColumnIndexFromGridColumn(aCol);
if DataCol>=0 then if DataCol>=0 then
OnDrawColumnCell(Self, aRect, DataCol, TColumn(Columns[DataCol]), aState); OnDrawColumnCell(Self, aRect, DataCol, TColumn(Columns[DataCol]), aState);
end; end;
DrawCellGrid(aCol, aRow, aRect, aState); DrawCellGrid(aCol, aRow, aRect, aState);
if TitleStyle=tsNative then begin
if gdFixed in aState then
DrawFixedText(aCol,aRow,aRect,aState)
else
DrawColumnText(aCol,aRow,aRect,aState);
end;
end; end;
procedure TCustomDBGrid.DrawCheckboxBitmaps(aCol: Integer; aRect: TRect; procedure TCustomDBGrid.DrawCheckboxBitmaps(aCol: Integer; aRect: TRect;
@ -2650,24 +2658,16 @@ end;
procedure TCustomDBGrid.DrawColumnText(aCol, aRow: Integer; aRect: TRect; procedure TCustomDBGrid.DrawColumnText(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState); aState: TGridDrawState);
var F: TField; var
begin F: TField;
if ((gdFixed in aState) and (aCol >= FirstGridColumn)) then
begin
if (aRow = 0) then
begin
DrawColumnTitleImage(aRect, aCol);
DrawCellText(aCol, aRow, aRect, aState, GetColumnTitle(aCol));
end else
begin
if ((gdFixed in aState) and (aCol < FixedCols)) then
begin begin
if GetIsCellTitle(aCol, aRow) then
inherited DrawColumnText(aCol, aRow, aRect, aState)
else begin
F := GetFieldFromGridColumn(aCol); F := GetFieldFromGridColumn(aCol);
if F<>nil then if F<>nil then
DrawCellText(aCol, aRow, aRect, aState, F.DisplayText) DrawCellText(aCol, aRow, aRect, aState, F.DisplayText)
end;//End if (gdFixed in aState) end;
end;//End if (aRow = 0)
end;//End if ((gdFixed in aState) and (aCol >= FirstGridColumn))
end; end;
procedure TCustomDBGrid.DrawIndicator(ACanvas: TCanvas; R: TRect; procedure TCustomDBGrid.DrawIndicator(ACanvas: TCanvas; R: TRect;
@ -3569,7 +3569,15 @@ begin
end; end;
function TColumn.GetDefaultAlignment: TAlignment; function TColumn.GetDefaultAlignment: TAlignment;
var
Bs: set of TColumnButtonStyle;
begin begin
bs := [buttonStyle];
if Grid<>nil then
Include(bs, TCustomDbGrid(Grid).DefaultEditorStyle(ButtonStyle, FField));
if bs*[cbsCheckboxColumn,cbsButtonColumn]<>[] then
result := taCenter
else
if FField<>nil then if FField<>nil then
result := FField.Alignment result := FField.Alignment
else else

261
lcl/grids.pas
View File

@ -854,9 +854,11 @@ type
procedure DrawCell(aCol,aRow:Integer; aRect:TRect; aState:TGridDrawState); virtual; procedure DrawCell(aCol,aRow:Integer; aRect:TRect; aState:TGridDrawState); virtual;
procedure DrawCellGrid(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); virtual; procedure DrawCellGrid(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); virtual;
procedure DrawTextInCell(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); virtual; procedure DrawTextInCell(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); virtual;
procedure DrawThemedCell(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState);
procedure DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; aText: String); virtual; procedure DrawCellText(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState; aText: String); virtual;
procedure DrawGridCheckboxBitmaps(const aCol,aRow: Integer; const aRect: TRect; procedure DrawGridCheckboxBitmaps(const aCol,aRow: Integer; const aRect: TRect;
const aState: TCheckboxState); virtual; const aState: TCheckboxState); virtual;
procedure DrawButtonCell(const aCol,aRow: Integer; aRect: TRect; const aState:TGridDrawState);
procedure DrawColRowMoving; procedure DrawColRowMoving;
procedure DrawColumnText(aCol,aRow: Integer; aRect: TRect; aState:TGridDrawState); virtual; procedure DrawColumnText(aCol,aRow: Integer; aRect: TRect; aState:TGridDrawState); virtual;
procedure DrawColumnTitleImage(var ARect: TRect; AColumnIndex: Integer); procedure DrawColumnTitleImage(var ARect: TRect; AColumnIndex: Integer);
@ -918,6 +920,7 @@ type
procedure InvalidateGrid; procedure InvalidateGrid;
procedure InvalidateRow(ARow: Integer); procedure InvalidateRow(ARow: Integer);
procedure InvalidateFocused; procedure InvalidateFocused;
function GetIsCellTitle(aCol,aRow: Integer): boolean;
function GetIsCellSelected(aCol, aRow: Integer): boolean; virtual; function GetIsCellSelected(aCol, aRow: Integer): boolean; virtual;
procedure KeyDown(var Key : Word; Shift : TShiftState); override; procedure KeyDown(var Key : Word; Shift : TShiftState); override;
procedure KeyUp(var Key : Word; Shift : TShiftState); override; procedure KeyUp(var Key : Word; Shift : TShiftState); override;
@ -1123,7 +1126,6 @@ type
FMouseWheelOption: TMouseWheelOption; FMouseWheelOption: TMouseWheelOption;
function CellNeedsCheckboxBitmaps(const aCol,aRow: Integer): boolean; function CellNeedsCheckboxBitmaps(const aCol,aRow: Integer): boolean;
procedure DrawCellCheckboxBitmaps(const aCol,aRow: Integer; const aRect: TRect); procedure DrawCellCheckboxBitmaps(const aCol,aRow: Integer; const aRect: TRect);
procedure DrawCellButtonColumn(const aCol,aRow: Integer; aRect: TRect; const aState:TGridDrawState);
protected protected
FGrid: TVirtualGrid; FGrid: TVirtualGrid;
procedure CalcCellExtent(acol, aRow: Integer; var aRect: TRect); virtual; procedure CalcCellExtent(acol, aRow: Integer; var aRect: TRect); virtual;
@ -3221,6 +3223,7 @@ begin
if IsSelected then begin if IsSelected then begin
Canvas.Brush.Color := SelectedColor; Canvas.Brush.Color := SelectedColor;
SetCanvasFont(GetColumnFont(aCol, False)); SetCanvasFont(GetColumnFont(aCol, False));
if not IsCellButtonColumn(point(aCol,aRow)) then
Canvas.Font.Color := clHighlightText; Canvas.Font.Color := clHighlightText;
FLastFont:=nil; FLastFont:=nil;
end else begin end else begin
@ -3428,11 +3431,9 @@ end;
procedure TCustomGrid.DrawColumnText(aCol, aRow: Integer; aRect: TRect; procedure TCustomGrid.DrawColumnText(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState); aState: TGridDrawState);
begin begin
if (gdFixed in aState) and (aRow=0) and (aCol>=FirstGridColumn) then begin
DrawColumnTitleImage(aRect, aCol); DrawColumnTitleImage(aRect, aCol);
DrawCellText(aCol,aRow,aRect,aState,GetColumnTitle(aCol)); DrawCellText(aCol,aRow,aRect,aState,GetColumnTitle(aCol));
end; end;
end;
procedure TCustomGrid.DrawColumnTitleImage( procedure TCustomGrid.DrawColumnTitleImage(
var ARect: TRect; AColumnIndex: Integer); var ARect: TRect; AColumnIndex: Integer);
@ -3671,12 +3672,12 @@ end;
procedure TCustomGrid.DrawCellGrid(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState); procedure TCustomGrid.DrawCellGrid(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState);
var var
dv,dh: Boolean; dv,dh: Boolean;
details: TThemedElementDetails;
begin begin
// Draw Cell Grid or Maybe in the future Borders..
with Canvas, aRect do begin with Canvas, aRect do begin
if (gdFixed in aState) then
begin // fixed cells
if (gdFixed in aState) then begin
Dv := goFixedVertLine in Options; Dv := goFixedVertLine in Options;
Dh := goFixedHorzLine in Options; Dh := goFixedHorzLine in Options;
Pen.Style := psSolid; Pen.Style := psSolid;
@ -3684,9 +3685,87 @@ begin
Pen.Width := 1 Pen.Width := 1
else else
Pen.Width := 0; Pen.Width := 0;
if not FFlat then if not FFlat then begin
begin
if FTitleStyle=tsNative then if FTitleStyle=tsNative then
exit
else
if FGridLineWidth > 0 then begin
if gdPushed in aState then
Pen.Color := cl3DShadow
else
Pen.Color := cl3DHilight;
if UseRightToLeftAlignment then begin
//the light still on the left but need to new x
MoveTo(Right, Top);
LineTo(Left + 1, Top);
LineTo(Left + 1, Bottom);
end else begin
MoveTo(Right - 1, Top);
LineTo(Left, Top);
LineTo(Left, Bottom);
end;
if FTitleStyle=tsStandard then begin
// more contrast
if gdPushed in aState then
Pen.Color := cl3DHilight
else
Pen.Color := cl3DShadow;
if UseRightToLeftAlignment then begin
MoveTo(Left+2, Bottom-2);
LineTo(Right, Bottom-2);
LineTo(Right, Top);
end else begin
MoveTo(Left+1, Bottom-2);
LineTo(Right-2, Bottom-2);
LineTo(Right-2, Top);
end;
end;
end;
end;
Pen.Color := cl3DDKShadow;
end else begin
Dv := goVertLine in Options;
Dh := goHorzLine in Options;
Pen.Style := fGridLineStyle;
Pen.Color := fGridLineColor;
Pen.Width := fGridLineWidth;
end;
// non-fixed cells
if fGridLineWidth > 0 then begin
if Dh then begin
if UseRightToLeftAlignment then begin
MoveTo(Right, Bottom - 1);
LineTo(Left, Bottom - 1);
end else begin
MoveTo(Left, Bottom - 1);
LineTo(Right, Bottom - 1);
end;
end;
if Dv then begin
if UseRightToLeftAlignment then begin
MoveTo(Left, Top);
LineTo(Left, Bottom);
end else begin
MoveTo(Right - 1, Top);
LineTo(Right - 1, Bottom);
end;
end;
end;
end; // with canvas,rect
end;
procedure TCustomGrid.DrawTextInCell(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState);
begin
//
end;
procedure TCustomGrid.DrawThemedCell(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState);
var
details: TThemedElementDetails;
begin begin
if gdPushed in aState then if gdPushed in aState then
Details := ThemeServices.GetElementDetails(thHeaderItemPressed) Details := ThemeServices.GetElementDetails(thHeaderItemPressed)
@ -3695,98 +3774,7 @@ begin
Details := ThemeServices.GetElementDetails(thHeaderItemHot) Details := ThemeServices.GetElementDetails(thHeaderItemHot)
else else
Details := ThemeServices.GetElementDetails(thHeaderItemNormal); Details := ThemeServices.GetElementDetails(thHeaderItemNormal);
ThemeSErvices.DrawElement(Handle, Details, aRect, nil); ThemeSErvices.DrawElement(Canvas.Handle, Details, aRect, nil);
exit;
end
else
begin
if FGridLineWidth > 0 then
begin
if gdPushed in aState then
Pen.Color := cl3DShadow
else
Pen.Color := cl3DHilight;
if UseRightToLeftAlignment then
begin
//the light still on the left but need to new x
MoveTo(Right, Top);
LineTo(Left + 1, Top);
LineTo(Left + 1, Bottom);
end
else
begin
MoveTo(Right - 1, Top);
LineTo(Left, Top);
LineTo(Left, Bottom);
end;
if FTitleStyle=tsStandard then
begin
// more contrast
if gdPushed in aState then
Pen.Color := cl3DHilight
else
Pen.Color := cl3DShadow;
if UseRightToLeftAlignment then
begin
MoveTo(Left+2, Bottom-2);
LineTo(Right, Bottom-2);
LineTo(Right, Top);
end
else
begin
MoveTo(Left+1, Bottom-2);
LineTo(Right-2, Bottom-2);
LineTo(Right-2, Top);
end;
end;
end;
end;
end;
Pen.Color := cl3DDKShadow;
end
else
begin
Dv := goVertLine in Options;
Dh := goHorzLine in Options;
Pen.Style := fGridLineStyle;
Pen.Color := fGridLineColor;
Pen.Width := fGridLineWidth;
end;
if fGridLineWidth > 0 then
begin
if Dh then begin
if UseRightToLeftAlignment then
begin
MoveTo(Right, Bottom - 1);
LineTo(Left, Bottom - 1);
end
else
begin
MoveTo(Left, Bottom - 1);
LineTo(Right, Bottom - 1);
end;
end;
if Dv then begin
if UseRightToLeftAlignment then
begin
MoveTo(Left, Top);
LineTo(Left, Bottom);
end
else
begin
MoveTo(Right - 1, Top);
LineTo(Right - 1, Bottom);
end;
end;
end;
end;
end;
procedure TCustomGrid.DrawTextInCell(aCol, aRow: Integer; aRect: TRect;
aState: TGridDrawState);
begin
//
end; end;
procedure TCustomGrid.DrawCellText(aCol, aRow: Integer; aRect: TRect; procedure TCustomGrid.DrawCellText(aCol, aRow: Integer; aRect: TRect;
@ -3865,6 +3853,22 @@ begin
end; end;
end; end;
procedure TCustomGrid.DrawButtonCell(const aCol, aRow: Integer; aRect: TRect;
const aState: TGridDrawState);
var
details: TThemedElementDetails;
begin
InflateRect(aRect, -2, 0);
if gdPushed in aState then
Details := ThemeServices.GetElementDetails(tbPushButtonPressed)
else
if gdHot in aState then
Details := ThemeServices.GetElementDetails(tbPushButtonHot)
else
Details := ThemeServices.GetElementDetails(tbPushButtonNormal);
ThemeSErvices.DrawElement(Canvas.Handle, Details, aRect, nil);
end;
procedure TCustomGrid.OnTitleFontChanged(Sender: TObject); procedure TCustomGrid.OnTitleFontChanged(Sender: TObject);
begin begin
FTitleFontIsDefault := False; FTitleFontIsDefault := False;
@ -4537,6 +4541,11 @@ begin
(ACell.y>=FixedRows); (ACell.y>=FixedRows);
end; end;
function TCustomGrid.GetIsCellTitle(aCol, aRow: Integer): boolean;
begin
result := (FixedRows>0) and (aRow=0) and Columns.Enabled and (aCol>=FirstGridColumn)
end;
function TCustomGrid.GetIsCellSelected(aCol, aRow: Integer): boolean; function TCustomGrid.GetIsCellSelected(aCol, aRow: Integer): boolean;
begin begin
Result:= (FRange.Left<=aCol) and Result:= (FRange.Left<=aCol) and
@ -8649,22 +8658,6 @@ begin
DrawGridCheckboxBitmaps(aCol, aRow, aRect, aState); DrawGridCheckboxBitmaps(aCol, aRow, aRect, aState);
end; end;
procedure TCustomDrawGrid.DrawCellButtonColumn(const aCol, aRow: Integer;
aRect: TRect; const aState:TGridDrawState);
var
details: TThemedElementDetails;
begin
InflateRect(aRect, -2, 0);
if gdPushed in aState then
Details := ThemeServices.GetElementDetails(tbPushButtonPressed)
else
if gdHot in aState then
Details := ThemeServices.GetElementDetails(tbPushButtonHot)
else
Details := ThemeServices.GetElementDetails(tbPushButtonNormal);
ThemeSErvices.DrawElement(Canvas.Handle, Details, aRect, nil);
end;
procedure TCustomDrawGrid.CalcCellExtent(acol, aRow: Integer; var aRect: TRect); procedure TCustomDrawGrid.CalcCellExtent(acol, aRow: Integer; var aRect: TRect);
begin begin
// //
@ -8697,8 +8690,6 @@ begin
DefaultDrawCell(aCol,aRow,aRect,aState); DefaultDrawCell(aCol,aRow,aRect,aState);
end; end;
DrawCellGrid(aCol,aRow,aRect,aState); DrawCellGrid(aCol,aRow,aRect,aState);
if FTitleStyle=tsNative then
DrawColumnText(aCol,aRow,aRect,aState);
end; end;
procedure TCustomDrawGrid.DrawFocusRect(aCol, aRow: Integer; ARect: TRect); procedure TCustomDrawGrid.DrawFocusRect(aCol, aRow: Integer; ARect: TRect);
@ -9000,27 +8991,39 @@ end;
procedure TCustomDrawGrid.DefaultDrawCell(aCol, aRow: Integer; var aRect: TRect; procedure TCustomDrawGrid.DefaultDrawCell(aCol, aRow: Integer; var aRect: TRect;
aState: TGridDrawState); aState: TGridDrawState);
procedure DrawText;
begin
if GetIsCellTitle(aCol, aRow) then
DrawColumnText(aCol, aRow, aRect, aState)
else
DrawTextInCell(aCol,aRow, aRect,aState);
end;
begin begin
if goColSpanning in Options then CalcCellExtent(acol, arow, aRect); if goColSpanning in Options then CalcCellExtent(acol, arow, aRect);
if (FTitleStyle=tsNative) and (gdFixed in AState) then
DrawThemedCell(aCol, aRow, aRect, aState)
else
DrawFillRect(Canvas, aRect); DrawFillRect(Canvas, aRect);
if CellNeedsCheckboxBitmaps(aCol,aRow) then if CellNeedsCheckboxBitmaps(aCol,aRow) then
DrawCellCheckboxBitmaps(aCol,aRow,aRect) DrawCellCheckboxBitmaps(aCol,aRow,aRect)
else else
if IsCellButtonColumn(Point(aCol,aRow)) then if IsCellButtonColumn(Point(aCol,aRow)) then begin
DrawCellButtonColumn(aCol,aRow,aRect,aState) DrawButtonCell(aCol,aRow,aRect,aState);
else DrawText;
if (aRow>=FixedRows) then begin end
else begin
if (aCol=0) and (goFixedRowNumbering in Options) and (FixedCols >= 1) then if (goFixedRowNumbering in Options) and (ARow>=FixedRows) and (aCol=0) and
(FixedCols>0)
then
DrawCellAutonumbering(aCol, aRow, aRect, IntToStr(aRow-FixedRows+1)); DrawCellAutonumbering(aCol, aRow, aRect, IntToStr(aRow-FixedRows+1));
DrawTextInCell(aCol,aRow, aRect,aState); DrawText;
end end;
else
if (FTitleStyle<>tsNative) then
DrawColumnText(aCol,aRow,aRect,aState);
end; end;
{ TCustomStringGrid } { TCustomStringGrid }