paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: use TImageIndex type instead of Integer for TMenuItem.ImageIndex property

Browse Source 
git-svn-id: trunk@22129 -
This commit is contained in:
paul 2009-10-13 07:42:59 +00:00
parent fe4756c8f4
commit eb1e1f863c
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/menuitem.inc
View File

@ -1217,15 +1217,15 @@ end;
Enables a menuItem.
------------------------------------------------------------------------------}
procedure TMenuItem.SetImageIndex(Value: Integer);
procedure TMenuItem.SetImageIndex(AValue: TImageIndex);
var
AImageList: TCustomImageList;
begin
if (FImageIndex = Value) then
if (FImageIndex = AValue) then
Exit;
//debugln('TMenuItem.SetImageIndex A ',Name,' Old=',FImageIndex,' New=',Value);
AImageList := GetImageList;
FImageIndex := Value;
FImageIndex := AValue;
if AImageList = nil then
Exit;

6
lcl/menus.pp
View File

@ -114,7 +114,7 @@ type
FHelpContext: THelpContext;
FHint: String;
FImageChangeLink: TChangeLink;
FImageIndex : Integer;
FImageIndex: TImageIndex;
FItems: TList; // list of TMenuItem
FMenu: TMenu;
FOnChange: TMenuChangeEvent;
@ -188,7 +188,7 @@ type
procedure SetAction(NewAction: TBasicAction);
procedure SetChildOrder(Child: TComponent; Order: Integer); override;
procedure SetGroupIndex(AValue: Byte);
procedure SetImageIndex(value : Integer);
procedure SetImageIndex(AValue : TImageIndex);
procedure SetParentComponent(AValue : TComponent); override;
procedure SetShortCut(const AValue : TShortCut);
procedure SetVisible(AValue: Boolean);
@ -264,7 +264,7 @@ type
property HelpContext: THelpContext read FHelpContext write FHelpContext
stored IsHelpContextStored default 0;
property Hint: TTranslateString read FHint write FHint stored IsHintStored;
property ImageIndex: Integer read FImageIndex write SetImageIndex
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex
stored IsImageIndexStored default -1;
property RadioItem: Boolean read FRadioItem write SetRadioItem
default False;