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

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