* Fixed regression: accessing Font would cause a access violation

* Fixed compilation of VtHeaderPopup

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@167 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-05-24 12:05:51 +00:00
parent ca1ebaca2b
commit 1456413285

View File

@ -2276,7 +2276,7 @@ TBaseVirtualTree = class(TCustomControl)
procedure DrawDottedVLine(const PaintInfo: TVTPaintInfo; Top, Bottom, Left: Integer); virtual;
function FindNodeInSelection(P: PVirtualNode; var Index: Integer; LowBound, HighBound: Integer): Boolean; virtual;
procedure FinishChunkHeader(Stream: TStream; StartPos, EndPos: Integer); virtual;
procedure FontChanged(AFont: TObject); override;
procedure FontChanged(AFont: TObject); virtual;
//lcl
procedure FreeDragManager;
function GetBorderDimensions: TSize; virtual;