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

LCL-Grids and VirtualTreeView: Move "FixDesignFontsPPI" for the basic components to "public". Declare as "override" for VTV.

Browse Source 
git-svn-id: trunk@63831 -
This commit is contained in:
wp 2020-08-26 14:36:34 +00:00
parent e0c036e091
commit 09ee5f1c56
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -2776,9 +2776,6 @@ type
procedure EnsureNodeFocused(); virtual; procedure EnsureNodeFocused(); virtual;
function FindNodeInSelection(P: PVirtualNode; var Index: Integer; LowBound, HighBound: Integer): Boolean; virtual; function FindNodeInSelection(P: PVirtualNode; var Index: Integer; LowBound, HighBound: Integer): Boolean; virtual;
procedure FinishChunkHeader(Stream: TStream; StartPos, EndPos: Integer); virtual; procedure FinishChunkHeader(Stream: TStream; StartPos, EndPos: Integer); virtual;
{$IF LCL_FullVersion >= 2010000}
procedure FixDesignFontsPPI(const ADesignTimePPI: Integer); virtual;
{$IFEND}
procedure FontChanged(AFont: TObject); virtual; reintroduce; procedure FontChanged(AFont: TObject); virtual; reintroduce;
function GetBorderDimensions: TSize; virtual; function GetBorderDimensions: TSize; virtual;
function GetCheckImage(Node: PVirtualNode; ImgCheckType: TCheckType = ctNone; function GetCheckImage(Node: PVirtualNode; ImgCheckType: TCheckType = ctNone;
@ -3134,6 +3131,9 @@ type
procedure EnsureNodeSelected(); virtual; procedure EnsureNodeSelected(); virtual;
function ExecuteAction(Action: TBasicAction): Boolean; override; function ExecuteAction(Action: TBasicAction): Boolean; override;
procedure FinishCutOrCopy; procedure FinishCutOrCopy;
{$IF LCL_FullVersion >= 2010000}
procedure FixDesignFontsPPI(const ADesignTimePPI: Integer); override;
{$IFEND}
procedure FlushClipboard; procedure FlushClipboard;
procedure FullCollapse(Node: PVirtualNode = nil); virtual; procedure FullCollapse(Node: PVirtualNode = nil); virtual;
procedure FullExpand(Node: PVirtualNode = nil); virtual; procedure FullExpand(Node: PVirtualNode = nil); virtual;

4
lcl/grids.pas
View File

@ -1145,8 +1145,6 @@ type
procedure RowHeightsChanged; virtual; procedure RowHeightsChanged; virtual;
procedure SaveContent(cfg: TXMLConfig); virtual; procedure SaveContent(cfg: TXMLConfig); virtual;
procedure SaveGridOptions(cfg: TXMLConfig); virtual; procedure SaveGridOptions(cfg: TXMLConfig); virtual;
procedure FixDesignFontsPPI(const ADesignTimePPI: Integer); override;
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
procedure ScrollBarRange(Which:Integer; aRange,aPage,aPos: Integer); procedure ScrollBarRange(Which:Integer; aRange,aPage,aPos: Integer);
procedure ScrollBarPosition(Which, Value: integer); procedure ScrollBarPosition(Which, Value: integer);
function ScrollBarIsVisible(Which:Integer): Boolean; function ScrollBarIsVisible(Which:Integer): Boolean;
@ -1321,6 +1319,7 @@ type
procedure EndUpdate(aRefresh: boolean = true); procedure EndUpdate(aRefresh: boolean = true);
procedure EraseBackground(DC: HDC); override; procedure EraseBackground(DC: HDC); override;
procedure FixDesignFontsPPI(const ADesignTimePPI: Integer); override;
function Focused: Boolean; override; function Focused: Boolean; override;
function HasMultiSelection: Boolean; function HasMultiSelection: Boolean;
procedure HideSortArrow; procedure HideSortArrow;
@ -1339,6 +1338,7 @@ type
function MouseToGridZone(X,Y: Integer): TGridZone; function MouseToGridZone(X,Y: Integer): TGridZone;
procedure SaveToFile(FileName: string); virtual; procedure SaveToFile(FileName: string); virtual;
procedure SaveToStream(AStream: TStream); virtual; procedure SaveToStream(AStream: TStream); virtual;
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
procedure SetFocus; override; procedure SetFocus; override;
property CursorState: TGridCursorState read FCursorState; property CursorState: TGridCursorState read FCursorState;