paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Fix compilation of vtbasic demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@713 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2009-02-19 00:40:21 +00:00
parent a94f3a379b
commit 10672ff117
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/virtualtreeview-new/demos/vtbasic/VTNoData.pas
View File

@ -131,7 +131,8 @@ implementation
Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String); Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
const const
aAnimOpts : array[0..Ord(High(TVTAnimationOption ))] of string[25] = aAnimOpts : array[0..Ord(High(TVTAnimationOption ))] of string[25] =
( 'Animated Toggle' ); ( 'Animated Toggle',
'Advanced Animated Toggle' );
aAutoOpts : array[0..Ord(High(TVTAutoOption ))] of string[25] = aAutoOpts : array[0..Ord(High(TVTAutoOption ))] of string[25] =
( (
@ -164,7 +165,9 @@ implementation
'WheelPanning' , 'WheelPanning' ,
'ReadOnly' , 'ReadOnly' ,
'VariableNodeHeight', 'VariableNodeHeight',
'FullRowDrag' 'FullRowDrag',
'NodeHeightResize',
'NodeHeightDblClickResize'
); );
aPaintOpts : array[0..Ord(High(TVTPaintOption ))] of string[25] = aPaintOpts : array[0..Ord(High(TVTPaintOption ))] of string[25] =