paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 16:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: TImageList -> TCustomImageList

Browse Source 
git-svn-id: trunk@57863 -
This commit is contained in:
ondrej 2018-05-09 00:54:42 +00:00
parent 052e0b841e
commit cb0d5d86d4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syneditmiscclasses.pp
View File

@ -44,7 +44,7 @@ interface
uses
LCLIntf, LCLType, LCLProc,
Classes, Graphics, Controls, SysUtils, Clipbrd, SynEditHighlighter,
SynEditMiscProcs, SynEditTypes, LazSynEditText, SynEditPointClasses;
SynEditMiscProcs, SynEditTypes, LazSynEditText, SynEditPointClasses, ImgList;
type
@ -350,7 +350,7 @@ type
TSynBookMarkOpt = class(TPersistent)
private
fBookmarkImages: TImageList;
fBookmarkImages: TCustomImageList;
fDrawBookmarksFirst: boolean; //mh 2000-10-12
fEnableKeys: Boolean;
fGlyphsVisible: Boolean;
@ -358,7 +358,7 @@ type
fOwner: TComponent;
fXoffset: integer;
fOnChange: TNotifyEvent;
procedure SetBookmarkImages(const Value: TImageList);
procedure SetBookmarkImages(const Value: TCustomImageList);
procedure SetDrawBookmarksFirst(Value: boolean); //mh 2000-10-12
procedure SetGlyphsVisible(Value: Boolean);
procedure SetLeftMargin(Value: Integer);
@ -366,7 +366,7 @@ type
public
constructor Create(AOwner: TComponent);
published
property BookmarkImages: TImageList
property BookmarkImages: TCustomImageList
read fBookmarkImages write SetBookmarkImages;
property DrawBookmarksFirst: boolean read fDrawBookmarksFirst //mh 2000-10-12
write SetDrawBookmarksFirst default True;
@ -1336,7 +1336,7 @@ begin
fXOffset := 12;
end;
procedure TSynBookMarkOpt.SetBookmarkImages(const Value: TImageList);
procedure TSynBookMarkOpt.SetBookmarkImages(const Value: TCustomImageList);
begin
if fBookmarkImages <> Value then begin
if Assigned(fBookmarkImages) then fBookmarkImages.RemoveFreeNotification(fOwner);