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

* make message methods protected

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2427 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-05-12 16:45:02 +00:00
parent 4d834d3fca
commit fafa74baac
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -289,14 +289,14 @@ unit VirtualTrees;
// For full document history see help file. // For full document history see help file.
// //
// Credits for their valuable assistance and code donations go to: // Credits for their valuable assistance and code donations go to:
// Freddy Ertl, Marian Aldenhövel, Thomas Bogenrieder, Jim Kuenemann, Werner Lehmann, Jens Treichler, // Freddy Ertl, Marian Aldenh�vel, Thomas Bogenrieder, Jim Kuenemann, Werner Lehmann, Jens Treichler,
// Paul Gallagher (IBO tree), Ondrej Kelle, Ronaldo Melo Ferraz, Heri Bender, Roland Bedürftig (BCB) // Paul Gallagher (IBO tree), Ondrej Kelle, Ronaldo Melo Ferraz, Heri Bender, Roland Bed�rftig (BCB)
// Anthony Mills, Alexander Egorushkin (BCB), Mathias Torell (BCB), Frank van den Bergh, Vadim Sedulin, Peter Evans, // Anthony Mills, Alexander Egorushkin (BCB), Mathias Torell (BCB), Frank van den Bergh, Vadim Sedulin, Peter Evans,
// Milan Vandrovec (BCB), Steve Moss, Joe White, David Clark, Anders Thomsen, Igor Afanasyev, Eugene Programmer, // Milan Vandrovec (BCB), Steve Moss, Joe White, David Clark, Anders Thomsen, Igor Afanasyev, Eugene Programmer,
// Corbin Dunn, Richard Pringle, Uli Gerhardt, Azza, Igor Savkic, Daniel Bauten, Timo Tegtmeier, Dmitry Zegebart, // Corbin Dunn, Richard Pringle, Uli Gerhardt, Azza, Igor Savkic, Daniel Bauten, Timo Tegtmeier, Dmitry Zegebart,
// Andreas Hausladen // Andreas Hausladen
// Beta testers: // Beta testers:
// Freddy Ertl, Hans-Jürgen Schnorrenberg, Werner Lehmann, Jim Kueneman, Vadim Sedulin, Moritz Franckenstein, // Freddy Ertl, Hans-J�rgen Schnorrenberg, Werner Lehmann, Jim Kueneman, Vadim Sedulin, Moritz Franckenstein,
// Wim van der Vegt, Franc v/d Westelaken // Wim van der Vegt, Franc v/d Westelaken
// Indirect contribution (via publicly accessible work of those persons): // Indirect contribution (via publicly accessible work of those persons):
// Alex Denissov, Hiroyuki Hori (MMXAsm expert) // Alex Denissov, Hiroyuki Hori (MMXAsm expert)
@ -310,7 +310,7 @@ unit VirtualTrees;
// Accessability implementation: // Accessability implementation:
// Marco Zehe (with help from Sebastian Modersohn) // Marco Zehe (with help from Sebastian Modersohn)
// LCL Port: // LCL Port:
// Luiz Américo Pereira Câmara // Luiz Am�rico Pereira C�mara
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
interface interface
@ -2466,7 +2466,7 @@ type
procedure StaticBackground(Source: TBitmap; Target: TCanvas; const Offset: TPoint; const R: TRect); procedure StaticBackground(Source: TBitmap; Target: TCanvas; const Offset: TPoint; const R: TRect);
procedure TileBackground(Source: TBitmap; Target: TCanvas; const Offset: TPoint; R: TRect); procedure TileBackground(Source: TBitmap; Target: TCanvas; const Offset: TPoint; R: TRect);
function ToggleCallback(Step, StepSize: Integer; Data: Pointer): Boolean; function ToggleCallback(Step, StepSize: Integer; Data: Pointer): Boolean;
protected
procedure CMColorChange(var Message: TLMessage); message CM_COLORCHANGED; procedure CMColorChange(var Message: TLMessage); message CM_COLORCHANGED;
procedure CMBiDiModeChanged(var Message: TLMessage); message CM_BIDIMODECHANGED; procedure CMBiDiModeChanged(var Message: TLMessage); message CM_BIDIMODECHANGED;
procedure CMDenySubclassing(var Message: TLMessage); message CM_DENYSUBCLASSING; procedure CMDenySubclassing(var Message: TLMessage); message CM_DENYSUBCLASSING;
@ -2525,7 +2525,6 @@ type
{$endif} {$endif}
{$endif ThemeSupport} {$endif ThemeSupport}
procedure WMVScroll(var Message: TLMVScroll); message LM_VSCROLL; procedure WMVScroll(var Message: TLMVScroll); message LM_VSCROLL;
protected
procedure AddToSelection(Node: PVirtualNode); overload; virtual; procedure AddToSelection(Node: PVirtualNode); overload; virtual;
procedure AddToSelection(const NewItems: TNodeArray; NewLength: Integer; ForceInsert: Boolean = False); overload; virtual; procedure AddToSelection(const NewItems: TNodeArray; NewLength: Integer; ForceInsert: Boolean = False); overload; virtual;
procedure AdjustPaintCellRect(var PaintInfo: TVTPaintInfo; out NextNonEmpty: TColumnIndex); virtual; procedure AdjustPaintCellRect(var PaintInfo: TVTPaintInfo; out NextNonEmpty: TColumnIndex); virtual;
@ -3922,7 +3921,7 @@ const
// Do not modify the copyright in any way! Usage of this unit is prohibited without the copyright notice // Do not modify the copyright in any way! Usage of this unit is prohibited without the copyright notice
// in the compiled binary file. // in the compiled binary file.
Copyright: string = 'Virtual Treeview © 1999, 2010 Mike Lischke'; Copyright: string = 'Virtual Treeview � 1999, 2010 Mike Lischke';
var var
//Workaround to LCL bug 8553 //Workaround to LCL bug 8553
@ -19373,7 +19372,6 @@ begin
//lclheader //lclheader
R := inherited GetClientRect; R := inherited GetClientRect;
ClipRect := R; ClipRect := R;
//todo: add MapWindowPoints to LCL??
{$ifndef INCOMPLETE_WINAPI} {$ifndef INCOMPLETE_WINAPI}
MapWindowPoints(Handle, 0, R, 2); MapWindowPoints(Handle, 0, R, 2);
{$endif} {$endif}
@ -19825,6 +19823,8 @@ var
begin begin
//{$ifdef DEBUG_VTV}Logger.EnterMethod([lcDrag],'DragOver');{$endif} //{$ifdef DEBUG_VTV}Logger.EnterMethod([lcDrag],'DragOver');{$endif}
//todo: the check to FDragManager disable drag images in non windows.
//This should be reviewed as soon as drag image is implemented in non windows
if Assigned(FDragManager) and not VTVDragManager.DropTargetHelperSupported and (Source is TBaseVirtualTree) then if Assigned(FDragManager) and not VTVDragManager.DropTargetHelperSupported and (Source is TBaseVirtualTree) then
begin begin
Tree := Source as TBaseVirtualTree; Tree := Source as TBaseVirtualTree;
@ -31687,7 +31687,7 @@ function TCustomVirtualStringTree.ContentToHTML(Source: TVSTTextSourceType; cons
// Renders the current tree content (depending on Source) as HTML text encoded in UTF-8. // Renders the current tree content (depending on Source) as HTML text encoded in UTF-8.
// If Caption is not empty then it is used to create and fill the header for the table built here. // If Caption is not empty then it is used to create and fill the header for the table built here.
// Based on ideas and code from Frank van den Bergh and Andreas Hörstemeier. // Based on ideas and code from Frank van den Bergh and Andreas H�rstemeier.
var var
Buffer: TBufferedUTF8String; Buffer: TBufferedUTF8String;
@ -32101,7 +32101,7 @@ end;
function TCustomVirtualStringTree.ContentToRTF(Source: TVSTTextSourceType): AnsiString; function TCustomVirtualStringTree.ContentToRTF(Source: TVSTTextSourceType): AnsiString;
// Renders the current tree content (depending on Source) as RTF (rich text). // Renders the current tree content (depending on Source) as RTF (rich text).
// Based on ideas and code from Frank van den Bergh and Andreas Hörstemeier. // Based on ideas and code from Frank van den Bergh and Andreas H�rstemeier.
var var
Fonts: TStringList; Fonts: TStringList;