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

ideintf: make ImageList search more generic for ImageIndex property editor

Browse Source 
git-svn-id: trunk@22140 -
This commit is contained in:
paul 2009-10-13 09:43:23 +00:00
parent b716faba72
commit 95cc044bf8
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ideintf/graphpropedits.pas
View File

@ -24,7 +24,7 @@ interface
uses
Classes, TypInfo, SysUtils, LCLProc, Forms, Controls, LCLType, GraphType,
FileUtil, Graphics, StdCtrls, Buttons, ComCtrls, Menus, ExtCtrls, Dialogs,
LCLIntf, ExtDlgs, PropEdits, ImgList, Math, ActnList,
LCLIntf, ExtDlgs, PropEdits, ImgList, Math,
GraphicPropEdit; // defines TGraphicPropertyEditorForm
type
@ -656,7 +656,10 @@ function TImageIndexPropertyEditor.GetImageList: TCustomImageList;
var
Persistent: TPersistent;
Component: TComponent absolute Persistent;
PropInfo: PPropInfo;
Obj: TObject;
begin
Result := nil;
Persistent := GetComponent(0);
if not (Persistent is TComponent) then
Exit;
@ -674,13 +677,17 @@ begin
end;
end
else
if Component is TCustomAction then
begin
Component := Component.GetParentComponent;
if Component is TCustomActionList then
Exit(TCustomActionList(Component).Images);
if Component = nil then
Exit;
PropInfo := TypInfo.GetPropInfo(Component, 'Images');
if PropInfo = nil then
Exit;
Obj := GetObjectProp(Component, PropInfo);
if Obj is TCustomImageList then
Exit(TCustomImageList(Obj));
end;
Result := nil;
end;
function TImageIndexPropertyEditor.GetAttributes: TPropertyAttributes;
@ -751,8 +758,7 @@ initialization
RegisterPropertyEditor(ClassTypeInfo(TBitmap), TSpeedButton,'Glyph', TButtonGlyphPropEditor);
RegisterPropertyEditor(ClassTypeInfo(TBitmap), TBitBtn,'Glyph', TButtonGlyphPropEditor);
RegisterPropertyEditor(TypeInfo(TFontCharset), nil, 'CharSet', TFontCharsetPropertyEditor);
RegisterPropertyEditor(TypeInfo(TImageIndex), TMenuItem, 'ImageIndex', TImageIndexPropertyEditor);
RegisterPropertyEditor(TypeInfo(TImageIndex), TContainedAction, 'ImageIndex', TImageIndexPropertyEditor);
RegisterPropertyEditor(TypeInfo(TImageIndex), TComponent, 'ImageIndex', TImageIndexPropertyEditor);
end.