522da1e090
Implemented checkbuttons git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@57 8e941d3f-bd1b-0410-a28a-d453659cc2b4
74 lines
1.5 KiB
ObjectPascal
74 lines
1.5 KiB
ObjectPascal
unit vtlogger;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
multiloglcl, multilog;
|
|
|
|
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];
|
|
lcDebug = 0;
|
|
lcError = 1;
|
|
lcInfo = 2;
|
|
lcWarning = 3;
|
|
|
|
lcEvents = 4;
|
|
lcPaint = 5;
|
|
lcPaintHeader = 6;
|
|
lcDummyFunctions = 7;
|
|
lcMessages = 8;
|
|
lcPaintSelection = 9;
|
|
lcSetCursor = 10;//it generates a lot of messages. so it will be debugged alone
|
|
lcPaintBitmap = 11;
|
|
lcScroll = 12;
|
|
lcPaintDetails = 13;
|
|
lcCheck = 14;
|
|
|
|
var
|
|
Logger: TLCLLogger;
|
|
|
|
|
|
function GetSelectedNodes(Sender: TLogger; Data: Pointer; var DoSend: Boolean): String;
|
|
|
|
implementation
|
|
|
|
uses
|
|
VirtualTrees, sysutils;
|
|
|
|
type
|
|
TNodeData = record
|
|
Title: String;
|
|
end;
|
|
PNodeData = ^TNodeData;
|
|
|
|
function GetSelectedNodes(Sender: TLogger; Data: Pointer; var DoSend: Boolean): String;
|
|
var
|
|
i: Integer;
|
|
TempNode: PVirtualNode;
|
|
begin
|
|
with TBaseVirtualTree(Data) do
|
|
begin
|
|
Result:='SelectedCount: '+IntToStr(SelectedCount)+LineEnding;
|
|
TempNode:=GetFirstSelected;
|
|
if TempNode = nil then exit;
|
|
Result:=Result+PNodeData(GetNodeData(TempNode))^.Title+LineEnding;
|
|
for i:= 1 to SelectedCount -1 do
|
|
begin
|
|
TempNode:=GetNextSelected(TempNode);
|
|
Result:=Result+PNodeData(GetNodeData(TempNode))^.Title+LineEnding;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
initialization
|
|
Logger:=TLCLLogger.Create;
|
|
finalization
|
|
Logger.Free;
|
|
end.
|
|
|