GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-11-08 22:29:16 +00:00
Code Issues Projects Releases Wiki Activity

Fixed: FS#18 - Hint for long messages in MonitorForm

Browse Source
This commit is contained in:
Mark van Renswoude 2014-10-22 18:36:44 +00:00
parent 31e9be16d3
commit 8ff6795d13
2 changed files with 6 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
X2Log.Observer.MonitorForm.dfm
View File

@ -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

18
X2Log.Observer.MonitorForm.pas
View File

@ -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