کامپوننت Hint با قابلیت نمای تصویر از ImageList

[hadisalahi2]

سلام به همگی دوستان.
من برای نمایش hint های سفارشی قبلا از کامپوننت HvBallonHint استفاده میکردم
اما به دلایلی دیگه نمیخوام از این کامپوننت استفاده کنم و مجموعه Jedi رو نصب کنم.

توی سایت میچرخیدم که به کامپونتت آقای وفاخواه خوردن
جالب طراحی کرده ، اما یک مشکل وجود داره و اون تصویر مربوط به Hint هستش.

مشکل اول از کامپوننتی استفاده کرده که من ندارمش و اصلا نمیدونم چه نوع کامپوننتیه
دوم اینکه قابلیت تغییر رو نداره.

خیلی با کدهاش ور رفتم تا بتونم یک کم سفارشیش کنم
اما چون بلد نبودم ، دیگه راه به جایی نبردم. :افسرده:

من یونیتش رو میزارم ، دوستان اگه میتونند ، کد رو طوری تغییر بدند که بشه تصویر روی کادر رو از Image List انخاب کرد. :متفکر:

مشکل اصلی توی این پروسیجره :


procedure TAVFSmoothPopup.SetIconMode(const Value: THintIconMode);
var
Img: TPngImage;


ResName: string;
begin
FIconMode := Value;
case Value of
imInfo:
ResName:= 'RCDATA_INFO';
imError:
ResName:= 'RCDATA_ERROR';
imWarning:
ResName:= 'RCDATA_WARNING';
end;


Img:= TPngImage.Create;
try
Img.LoadFromResourceName(HInstance, ResName);
FImage.Picture.Graphic:= Img;
finally
Img.Free;
end;
end;


اینجا از TPngImage استفاده شده که من یونیتش رو ندارم.
و اینکه اصلا قابلیت سفارشی شدن نداره
فقط سه حالت میشه انتخاب کرد.

ممنون میشم اگه دوستان راهنمایی کنند.120132120132