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

* Set Multiline param only for multiline nodes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1235 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-06-14 02:45:01 +00:00
parent d7b0852498
commit 8a55f916d0
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30465,9 +30465,13 @@ begin
// This does not harm formatting as single line control, if we don't use word wrapping. // This does not harm formatting as single line control, if we don't use word wrapping.
with Params do with Params do
begin begin
Style := Style or ES_MULTILINE; //todo: delphi uses Multiline for all
//Style := Style or ES_MULTILINE;
if vsMultiline in FLink.FNode.States then 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 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 if tsUseThemes in FLink.FTree.FStates then
begin begin
Style := Style and not WS_BORDER; Style := Style and not WS_BORDER;