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

14
components/virtualtreeview-unstable/demos/advanced/GridDemo.pas
View File

@ -17,14 +17,18 @@ uses
StdCtrls, VirtualTrees, LResources, LCLType, variants;
type
{ TGridForm }
TGridForm = class(TForm)
VST5: TVirtualStringTree;
GridLineCheckBox: TCheckBox;
Label15: TLabel;
TreeImages: TImageList;
Label1: TLabel;
procedure VST5BeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; CellRect: TRect);
procedure VST5BeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
procedure VST5BeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect;
var Color: TColor; var EraseAction: TItemEraseAction);
procedure VST5CreateEditor(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
@ -156,9 +160,9 @@ end;
//----------------------------------------------------------------------------------------------------------------------
procedure TGridForm.VST5BeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
Column: TColumnIndex; CellRect: TRect);
procedure TGridForm.VST5BeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
// Fill random cells with our own background, but don't touch the currently focused cell.
if ((Column <> Sender.FocusedColumn) or (Node <> Sender.FocusedNode)) and