mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-16 09:28:26 +02:00
56 lines
1.5 KiB
ObjectPascal
56 lines
1.5 KiB
ObjectPascal
{ $Id$}
|
|
{
|
|
*****************************************************************************
|
|
* GtkWSGrids.pp *
|
|
* ------------- *
|
|
* *
|
|
* *
|
|
*****************************************************************************
|
|
|
|
*****************************************************************************
|
|
This file is part of the Lazarus Component Library (LCL)
|
|
|
|
See the file COPYING.modifiedLGPL.txt, included in this distribution,
|
|
for details about the license.
|
|
*****************************************************************************
|
|
}
|
|
unit GtkWSGrids;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Controls, Graphics, Grids, WSGrids, WSLCLClasses;
|
|
|
|
type
|
|
{ TGtkWSCustomGrid }
|
|
|
|
TGtkWSCustomGrid = class(TWSCustomGrid)
|
|
published
|
|
class procedure SetFont(const AWinControl: TWinControl; const AFont: TFont); override;
|
|
class function InvalidateStartY(const FixedHeight, RowOffset: Integer): integer; override;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{ TGtkWSCustomGrid }
|
|
|
|
class procedure TGtkWSCustomGrid.SetFont(const AWinControl: TWinControl;
|
|
const AFont: TFont);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
class function TGtkWSCustomGrid.InvalidateStartY(const FixedHeight,
|
|
RowOffset: Integer): integer;
|
|
begin
|
|
if RowOffset<>0 then
|
|
result := 0
|
|
else
|
|
result := FixedHeight;
|
|
end;
|
|
|
|
end.
|