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

*Update VTLogger to compile after recent changes in MultiLog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4657 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2016-05-22 14:30:49 +00:00
parent 8ed5356be2
commit a26545a455
3 changed files with 37 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -334,7 +334,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,

11
components/virtualtreeview-new/branches/4.8/virtualtreeview_package.pas
View File

@ -2,8 +2,9 @@
This source is only used to compile and install the package. This source is only used to compile and install the package.
} }
unit virtualtreeview_package; unit virtualtreeview_package;
{$warn 5023 off : no warning about unused units}
interface interface
uses uses
@ -12,11 +13,11 @@ uses
implementation implementation
procedure Register; procedure Register;
begin begin
RegisterUnit('registervirtualtreeview', @registervirtualtreeview.Register); RegisterUnit('registervirtualtreeview', @registervirtualtreeview.Register);
end; end;
initialization initialization
RegisterPackage('virtualtreeview_package', @Register); RegisterPackage('virtualtreeview_package', @Register);
end. end.

57
components/virtualtreeview-new/branches/4.8/vtlogger.pas
View File

@ -1,44 +1,47 @@
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;