How to display the icon in the toolbar in Delphi7

BIZ TMS Scripter
1

Hi!


How to display the icon in the toolbar in Delphi7.

I try:
procedure TdmScripter.IDEEngine1GetComponentImage(Sender: TObject;
  RegComp: TIDERegisteredComp; ABitmap: TBitmap; var AHandled: Boolean);
begin
   if RegComp.CompClass = TOraQuery then
      begin
         il1.GetBitmap(0, ABitmap); AHandled:= True;
      end;
end;

Result:
https://cloud.mail.ru/public/LYHK/qmTvyqxXG
2

Hi Alena,

Create a 24x24 bitmap resource in your application name TORAQUERY, it's the easiest way.
3

Ok. Thank