diff --git a/X2Log.Observer.MonitorForm.dfm b/X2Log.Observer.MonitorForm.dfm index 47262d4..b7a31e7 100644 --- a/X2Log.Observer.MonitorForm.dfm +++ b/X2Log.Observer.MonitorForm.dfm @@ -159,7 +159,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible] - HintMode = hmHint + HintMode = hmTooltip Images = ilsLog TabOrder = 0 TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware] @@ -168,7 +168,6 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm OnFreeNode = vstLogFreeNode OnGetText = vstLogGetText OnGetImageIndex = vstLogGetImageIndex - OnGetHint = vstLogGetHint Columns = < item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coShowDropMark, coVisible, coAllowFocus] @@ -267,12 +266,14 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm Margins.Bottom = 0 Panels = <> SimplePanel = True + ExplicitLeft = 20 + ExplicitTop = 503 end object ilsLog: TImageList Left = 448 Top = 48 Bitmap = { - 494C01010A004000F40010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 494C01010A004000F80010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000003000000001002000000000000030 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 diff --git a/X2Log.Observer.MonitorForm.pas b/X2Log.Observer.MonitorForm.pas index b575518..a97e185 100644 --- a/X2Log.Observer.MonitorForm.pas +++ b/X2Log.Observer.MonitorForm.pas @@ -12,13 +12,14 @@ uses Vcl.ExtCtrls, Vcl.Forms, Vcl.ImgList, + Vcl.Menus, Vcl.StdCtrls, Vcl.ToolWin, VirtualTrees, Winapi.Messages, X2Log.Details.Intf, - X2Log.Intf, Vcl.Menus; + X2Log.Intf; const @@ -99,7 +100,6 @@ type procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure vstLogFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode); procedure vstLogGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string); - procedure vstLogGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string); procedure vstLogGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer); procedure vstLogFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex); procedure actCloseExecute(Sender: TObject); @@ -803,20 +803,6 @@ begin end; -procedure TX2LogObserverMonitorForm.vstLogGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; - var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string); -var - nodeData: PLogEntryNodeData; - -begin - if Column = ColumnLevel then - begin - nodeData := Sender.GetNodeData(Node); - HintText := GetLogLevelText(nodeData^.Level); - end; -end; - - procedure TX2LogObserverMonitorForm.vstLogGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer); var