From 8a55f916d0c126305bfe06bc767234a9cb7b04af Mon Sep 17 00:00:00 2001 From: blikblum Date: Mon, 14 Jun 2010 02:45:01 +0000 Subject: [PATCH] * Set Multiline param only for multiline nodes git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1235 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../virtualtreeview-new/branches/4.8/VirtualTrees.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas index 7e3e26d5f..100b8a6ab 100644 --- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas +++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas @@ -30465,9 +30465,13 @@ begin // This does not harm formatting as single line control, if we don't use word wrapping. with Params do begin - Style := Style or ES_MULTILINE; + //todo: delphi uses Multiline for all + //Style := Style or ES_MULTILINE; if vsMultiline in FLink.FNode.States then + begin Style := Style and not (ES_AUTOHSCROLL or WS_HSCROLL) or WS_VSCROLL or ES_AUTOVSCROLL; + Style := Style or ES_MULTILINE; + end; if tsUseThemes in FLink.FTree.FStates then begin Style := Style and not WS_BORDER;