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

*Update VTLogger to compile after recent changes in MultiLog (trunk)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4658 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2016-05-22 21:50:26 +00:00
parent a26545a455
commit 2181769050
2 changed files with 34 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -73,7 +73,7 @@ uses
virtualpanningwindow, virtualpanningwindow,
VTGraphics, //alpha blend functions VTGraphics, //alpha blend functions
{$ifdef DEBUG_VTV} {$ifdef DEBUG_VTV}
vtlogger, VTLogger,
{$endif} {$endif}
LCLType, LResources, LMessages, Types, LCLType, LResources, LMessages, Types,
SysUtils, Classes, Graphics, Controls, Forms, ImgList, StdCtrls, Menus, Printers, SysUtils, Classes, Graphics, Controls, Forms, ImgList, StdCtrls, Menus, Printers,

63
components/virtualtreeview-new/trunk/vtlogger.pas
View File

@ -1,56 +1,59 @@
unit vtlogger; unit VTLogger;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
uses uses
multiloglcl, multilog; LCLLogger, MultiLog;
const const
//lc stands for LogClass
//it's possible to define the constants to suit any need
lcAll = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31]; lcAll = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31];
lcDebug = 0; lcDebug = 0;
lcError = 1; lcError = 1;
lcInfo = 2; lcInfo = 2;
lcWarning = 3; lcWarning = 3;
lcEvents = 4; lcEvents = 4;
lcPaint = 5; //reserved
lcPaintHeader = 6; lcUser = 8;
lcDummyFunctions = 7;
lcMessages = 8; lcVTEvents = lcUser + 1;
lcPaintSelection = 9; lcPaint = lcUser + 2;
lcSetCursor = 10;//it generates a lot of messages. so it will be debugged alone lcPaintHeader = lcUser + 3;
lcPaintBitmap = 11; lcDummyFunctions = lcUser + 4;
lcScroll = 12; lcMessages = lcUser + 5;
lcPaintDetails = 13; lcPaintSelection = lcUser + 6;
lcCheck = 14; lcSetCursor = lcUser + 7;//it generates a lot of messages. so it will be debugged alone
lcEditLink = 15; lcPaintBitmap = lcUser + 8;
lcEraseBkgnd = 16; lcScroll = lcUser + 8;
lcColumnPosition = 17; lcPaintDetails = lcUser + 9;
lcTimer = 18; lcCheck = lcUser + 10;
lcDrag = 19; lcEditLink = lcUser + 11;
lcOle = 20; lcEraseBkgnd = lcUser + 12;
lcPanning = 21; lcColumnPosition = lcUser + 13;
lcHeaderOffset = 22; lcTimer = lcUser + 14;
lcSelection = 23; lcDrag = lcUser + 15;
lcAlphaBlend = 24; lcOle = lcUser + 16;
lcHint = 25; lcPanning = lcUser + 17;
lcMouseEvent = 26; lcHeaderOffset = lcUser + 18;
lcSelection = lcUser + 19;
lcAlphaBlend = lcUser + 20;
lcHint = lcUser + 21;
lcMouseEvent = lcUser + 22;
lcVT = [lcEvents..lcMouseEvent];
var var
Logger: TLCLLogger; Logger: TLCLLogger;
function GetSelectedNodes(Sender: TLogger; Data: Pointer; var DoSend: Boolean): String; function GetSelectedNodes(Sender: TLogger; Data: Pointer; var DoSend: Boolean): String;
implementation implementation
uses uses
VirtualTrees, sysutils; VirtualTrees, sysutils;
type type
TNodeData = record TNodeData = record
Title: String; Title: String;