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

* Replace #13 by LineEnding in advanced demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@971 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-10-04 14:08:44 +00:00
parent 1d9351d20e
commit 312447448c
3 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/virtualtreeview-new/demos/advanced/AlignDemo.pas
View File

@ -334,9 +334,9 @@ begin
// allow to enter multiline strings (it does not allow to edit wide strings correctly at all).
with AlignTree.Header do
begin
Columns[0].Hint := DefaultHintColumn0 + #13 + CommonHeaderHint;
Columns[1].Hint := DefaultHintColumn1 + #13 + CommonHeaderHint;
Columns[2].Hint := DefaultHintColumn2 + #13 + CommonHeaderHint;
Columns[0].Hint := DefaultHintColumn0 + LineEnding + CommonHeaderHint;
Columns[1].Hint := DefaultHintColumn1 + LineEnding + CommonHeaderHint;
Columns[2].Hint := DefaultHintColumn2 + LineEnding + CommonHeaderHint;
end;
// Set up the initial values of the alignment and bidi-mode pickers as well as layout and options.
@ -588,7 +588,7 @@ end;
procedure TAlignForm.AlignTreeFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
const
FocusedText = #13'Text of focused node is: ';
FocusedText = LineEnding + 'Text of focused node is: ';
var
Data: PAlignData;
@ -599,9 +599,9 @@ begin
Data := Sender.GetNodeData(Node);
with AlignTree.Header do
begin
Columns[0].Hint := DefaultHintColumn0 + #13 + CommonHeaderHint + FocusedText + Data.MainColumnText;
Columns[1].Hint := DefaultHintColumn1 + #13 + CommonHeaderHint + FocusedText + Data.GreekText;
Columns[2].Hint := DefaultHintColumn2 + #13 + CommonHeaderHint + FocusedText + Data.RTLText;
Columns[0].Hint := DefaultHintColumn0 + LineEnding + CommonHeaderHint + FocusedText + Data.MainColumnText;
Columns[1].Hint := DefaultHintColumn1 + LineEnding + CommonHeaderHint + FocusedText + Data.GreekText;
Columns[2].Hint := DefaultHintColumn2 + LineEnding + CommonHeaderHint + FocusedText + Data.RTLText;
end;
end;
end;