diff options
| author | drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-08 20:24:48 +0000 |
|---|---|---|
| committer | drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-08 20:24:48 +0000 |
| commit | d1b3f4809d58376b3180afd8b25533e743ff9dcf (patch) | |
| tree | 48ee13ebf8233a360313501605b619605df2d3b6 /examples/gui/listviewtest | |
| parent | c6c911f4d302861488f8fe1477d812a3055d8409 (diff) | |
| download | fpGUI-d1b3f4809d58376b3180afd8b25533e743ff9dcf.tar.xz | |
* fixed compilation for older versions of fpc
* updated to comply with coding standards
Diffstat (limited to 'examples/gui/listviewtest')
| -rw-r--r-- | examples/gui/listviewtest/listviewtest.lpr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr index af06eb66..ccce9e20 100644 --- a/examples/gui/listviewtest/listviewtest.lpr +++ b/examples/gui/listviewtest/listviewtest.lpr @@ -23,7 +23,7 @@ type procedure AddBttn(Sender: TObject); procedure ShowHeadersChange(Sender: TObject); procedure PaintItem(ListView: TfpgListView; ACanvas: TfpgCanvas; Item: TfpgLVItem; - ItemIndex: Integer; Area:TRect; var PaintPart: TfpgLVItemPaintPart); + ItemIndex: Integer; Area:TfpgRect; var PaintPart: TfpgLVItemPaintPart); public constructor Create(AOwner: TComponent); override; @@ -65,7 +65,7 @@ begin end; procedure TMainForm.PaintItem(ListView: TfpgListView; ACanvas: TfpgCanvas; - Item: TfpgLVItem; ItemIndex: Integer; Area: TRect; var PaintPart: TfpgLVItemPaintPart); + Item: TfpgLVItem; ItemIndex: Integer; Area: TfpgRect; var PaintPart: TfpgLVItemPaintPart); begin if ItemIndex mod 2 = 0 then ACanvas.TextColor := clRed; if ItemIndex mod 3 = 0 then ACanvas.TextColor := clBlue; |