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

2
components/virtualtreeview-new/demos/advanced/PropertiesDemo.pas
View File

@ -146,7 +146,7 @@ procedure TPropertiesForm.VST3GetHint(Sender: TBaseVirtualTree; Node: PVirtualNo
begin begin
// Add a dummy hint to the normal hint to demonstrate multiline hints. // Add a dummy hint to the normal hint to demonstrate multiline hints.
if (Column = 0) and (Node.Parent <> Sender.RootNode) then if (Column = 0) and (Node.Parent <> Sender.RootNode) then
HintText := PropertyTexts[Node.Parent.Index, Node.Index, ptkHint] + #13 + '(Multiline hints are supported too).'; HintText := PropertyTexts[Node.Parent.Index, Node.Index, ptkHint] + LineEnding + '(Multiline hints are supported too).';
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------

4
components/virtualtreeview-new/demos/advanced/WindowsXPStyleDemo.pas
View File

@ -255,8 +255,8 @@ procedure TWindowsXPForm.XPTreeGetHint(Sender: TBaseVirtualTree; Node: PVirtualN
begin begin
// Show only a dummy hint. It is just to demonstrate how to do it. // Show only a dummy hint. It is just to demonstrate how to do it.
HintText := 'Size larger than 536 MB' + #13 + HintText := 'Size larger than 536 MB' + LineEnding +
'Folders: addins, AppPatch, Config, Connection Wizard, ...' + #13 + 'Folders: addins, AppPatch, Config, Connection Wizard, ...' + LineEnding +
'Files: 1280.bmp, 1280x1024.bmp, 2001 94 mars.bmp, ac3api.ini, ...'; 'Files: 1280.bmp, 1280x1024.bmp, 2001 94 mars.bmp, ac3api.ini, ...';
end; end;