Delphi IDE'sinde bulunan imajlara nasıl ulaşılır ?

Delphiciler olarak GUI programlar yazmak için genellikle Delphi IDE'sini kullanırız.
Ancak bu IDE içindeki imajlara nasıl ulaşırız ?
Bunları kaydetmek mümkün mü ?

Bu sorular sanırım pek çok kimsenin aklına gelmez ya da işimize yaramadığı için pek önemsemeyiz.

Delphide yüklü imajlara ulaşmak için Delphide tanımlı olan (ToolsApi.pas) servislerden faydalanırız.
Bunun için işimizi gören servis INTAServices dır.
Bu servis aslında yalnızca IDE'de bulunan imajlara erişmemizi sağlamaz, ek olarak Ana Menu, ToolBar, ActionList gibi.
Bunlara ulaştığımızda bunlarla istediğimiz gibi oynayabiliriz.

Bu örnekte imaj için kullanacağımız INTAServices.ImageList değişkenidir.
Şöyleki:

var
  imgList : TCustomImageList;
begin
  if not BorlandIDEServices.SupportsService(INTAServices) then Exit;
  imgList := (BorlandIDEServices as INTAServices).ImageList;
end;

imgList içinde artık Delphi IDE'si içinde kullanılan imajlar saklıdır.
Devamı için http://yusufcelik.googlepages.com/delphiota_ideimages
sitesinden bilgi alabilirsiniz.
Kaynak kod için : TestPIn_Img.zip

Kolay gelsin...
Yusuf ÇELİK