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

* Update demos to work after the recent changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@620 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-12-07 22:48:02 +00:00
parent 24eee16e8a
commit bc82d7544b
9 changed files with 690 additions and 363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -94,6 +94,8 @@ type
end;
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
btnDelete: TButton;
@ -104,6 +106,9 @@ type
Label2: TLabel;
Label3: TLabel;
MyTree: TVirtualStringTree;
procedure MyTreeBeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
procedure MyTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
@ -114,9 +119,6 @@ type
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure btnDeleteClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MyTreeBeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
const CellRect: TRect);
procedure MyTreePaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType);
@ -406,7 +408,7 @@ end;
procedure TForm1.MyTreeBeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
const CellRect: TRect);
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
// This is example how to conditionally