diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-11 14:35:49 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-11 14:35:49 +0200 |
| commit | 1da178f690df9cc51a0ec832af9d5a50382063f5 (patch) | |
| tree | 9f815fcd3da52730704680931e2777ec858eca2a /docview/components/richtext | |
| parent | 0591497663e3bd09542dd3fd3cac347570a3361a (diff) | |
| download | fpGUI-1da178f690df9cc51a0ec832af9d5a50382063f5.tar.xz | |
RichTextView: Minor method parameter refactoring.
To reduce in possible confusion - with Images property found in
some other classes.
Diffstat (limited to 'docview/components/richtext')
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index d8b94e2c..ec1af338 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -257,7 +257,7 @@ Type Procedure SetSelectionStart( SelectionStart: longint ); Procedure SetSelectionEnd( SelectionEnd: longint ); - Procedure SetImages( Images: TfpgImageList ); + Procedure SetImages( AImages: TfpgImageList ); Procedure Notification( AComponent: TComponent; Operation: TOperation ); override; Public @@ -1693,9 +1693,9 @@ end; // Refresh; //end; -Procedure TRichTextView.SetImages( Images: TfpgImageList ); +Procedure TRichTextView.SetImages( AImages: TfpgImageList ); begin - if Images = FImages then + if AImages = FImages then exit; // no change { TODO -oGraeme : TfpgImageList is not a TComponent descendant. Maybe it should be? } @@ -1703,7 +1703,7 @@ begin // // Tell the old imagelist not to inform us any more // FImages.Notification( Self, opRemove ); - FImages := Images; + FImages := AImages; //if FImages <> nil then // // request notification when other is freed // FImages.FreeNotification( Self ); |