diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-18 08:46:03 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-04 17:06:41 +0200 |
| commit | 365d36929ba9c0d49836df6144d22d98faf65343 (patch) | |
| tree | 83fd55b14e3911b9eb1cbc6b84c32cbca59800b2 | |
| parent | 292e10ff07835e2809d1cc20f0cf3edcff0b18cf (diff) | |
| download | fpGUI-365d36929ba9c0d49836df6144d22d98faf65343.tar.xz | |
imagelist Item[] property changed to plural Items[]
This is consistent with other components in the RTL, FCL and even fpGUI
itself.
| -rw-r--r-- | src/corelib/fpg_imagelist.pas | 8 | ||||
| -rw-r--r-- | src/gui/fpg_listview.pas | 4 | ||||
| -rw-r--r-- | src/gui/fpg_tree.pas | 6 |
3 files changed, 9 insertions, 9 deletions
diff --git a/src/corelib/fpg_imagelist.pas b/src/corelib/fpg_imagelist.pas index 20d34e35..ac2c8bde 100644 --- a/src/corelib/fpg_imagelist.pas +++ b/src/corelib/fpg_imagelist.pas @@ -73,7 +73,7 @@ type procedure RemoveIndex(AIndex: integer); function GetMaxItem: integer; procedure Clear; - property Item[AIndex: integer]: TfpgImageItem read GetItem write SetItem; + property Items[AIndex: integer]: TfpgImageItem read GetItem write SetItem; property Count: integer read GetCount; end; @@ -163,7 +163,7 @@ begin AImageItem := TfpgImageItem.Create; AImageItem.LoadFromFile(AFileName); if AIndex > -1 then - Item[AIndex] := AImageItem + Items[AIndex] := AImageItem else begin FList.Add(AImageItem); @@ -178,7 +178,7 @@ begin AImageItem := TfpgImageItem.Create; AImageItem.Image := AImage; if AIndex > -1 then - Item[AIndex] := AImageItem + Items[AIndex] := AImageItem else begin FList.Add(AImageItem); @@ -227,7 +227,7 @@ begin if FImageList <> nil then FImageList.RemoveIndex(Index); FImageList := AImageList; - FImageList.Item[Index] := self; + FImageList.Items[Index] := self; end; end; diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas index 72164496..8703d6de 100644 --- a/src/gui/fpg_listview.pas +++ b/src/gui/fpg_listview.pas @@ -699,7 +699,7 @@ begin if (ImgIndex <> -1) and (ImgIndex < ImgList.Count) then begin - Result := ImgList.Item[ImgIndex].Image; + Result := ImgList.Items[ImgIndex].Image; end else begin @@ -708,7 +708,7 @@ begin else ImgIndex := AColumnIndex-1; if ImgIndex < ImgList.Count then - Result := ImgList.Item[ImgIndex].Image; + Result := ImgList.Items[ImgIndex].Image; end; break; end; diff --git a/src/gui/fpg_tree.pas b/src/gui/fpg_tree.pas index ffc5ec9a..bd143dff 100644 --- a/src/gui/fpg_tree.pas +++ b/src/gui/fpg_tree.pas @@ -1061,7 +1061,7 @@ begin begin if ANode.ImageIndex > -1 then begin - AImage := ImageList.Item[ANode.ImageIndex]; + AImage := ImageList.Items[ANode.ImageIndex]; if AImage <> nil then result := result + AImage.Image.Width + 2; end @@ -1558,7 +1558,7 @@ begin Canvas.FillRectangle(w - FXOffset, ACenterPos - (GetNodeHeight div 2), GetNodeWidth(h), GetNodeHeight); if (ImageList <> nil) and ShowImages then begin - AImageItem := ImageList.Item[h.ImageIndex]; + AImageItem := ImageList.Items[h.ImageIndex]; if AImageItem <> nil then begin Canvas.DrawImagePart(w - FXOffset + 1, ACenterPos - 8, AImageItem.Image, 0, 0, 16, 16); @@ -1580,7 +1580,7 @@ begin begin if (ImageList <> nil) and ShowImages then begin - AImageItem := ImageList.Item[h.ImageIndex]; + AImageItem := ImageList.Items[h.ImageIndex]; if AImageItem <> nil then begin Canvas.DrawImagePart(w - FXOffset + 1, ACenterPos - 8, AImageItem.Image, 0, 0, 16, 16); |