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

* Fixed compilation and cleaned the demos applications

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@412 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-10 03:06:03 +00:00
parent 4c622efc11
commit 40fa686aa4
19 changed files with 6603 additions and 3783 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/virtualtreeview-unstable/demos/dataarray/Main.lfm
View File

@ -7,38 +7,38 @@ object Form1: TForm1
VertScrollBar.Page = 436
ActiveControl = Button1
Caption = 'Form1'
ClientHeight = 437
ClientWidth = 612
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClose = FormClose
OnCreate = FormCreate
LCLVersion = '0.9.25'
object Label1: TLabel
Left = 204
Height = 14
Top = 351
Width = 152
Left = 129
Height = 17
Top = 348
Width = 227
Anchors = [akRight, akBottom]
Caption = 'Array data of the clicked node'
Color = clNone
ParentColor = False
end
object Label2: TLabel
Left = 362
Height = 14
Top = 335
Width = 227
Left = 249
Height = 17
Top = 332
Width = 340
Anchors = [akRight, akBottom]
Caption = 'Find and show the node by specific array index'
Color = clNone
ParentColor = False
end
object Label3: TLabel
Left = 358
Height = 14
Top = 351
Width = 246
Left = 241
Height = 17
Top = 348
Width = 363
Anchors = [akRight, akBottom]
Caption = 'Type index to get related tree node on the screen:'
Color = clNone
ParentColor = False
end
object Button1: TButton

22
components/virtualtreeview-unstable/demos/dataarray/Main.pas
View File

@ -116,7 +116,7 @@ type
procedure FormCreate(Sender: TObject);
procedure MyTreeBeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellRect: TRect);
const CellRect: TRect);
procedure MyTreePaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType);
@ -139,22 +139,8 @@ var
implementation
uses Math;
//fpc 204 does not have comparevalue
function CompareValue ( const A, B : Integer) : Integer;
begin
result:=1;
if a=b then
result:=0
else
if a<b then
result:=-1;
end;
uses
Math;
procedure TForm1.MyTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
@ -420,7 +406,7 @@ end;
procedure TForm1.MyTreeBeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellRect: TRect);
const CellRect: TRect);
begin
// This is example how to conditionally

2
components/virtualtreeview-unstable/demos/dataarray/dataarray.lpi
View File

@ -2,7 +2,7 @@
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<Version Value="6"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>