PDA

View Full Version : اضافه کردن ایتم جدید(فایل باشه) به لیست با ایکونه همون فایل



FiACKER
سه شنبه 18 فروردین 1388, 13:00 عصر
سلام
ساله نو مبارک باشه.
من تویه برنامه ام یه لیست دارم که هر فایلی که بهش اضافه می شه باید ایکون اون فایل هم به اون ایتم جدید اختصاص داده بشه.

یعنی کدی می خوام که ایکونه فایل رو دریافت کنه... در شی ImageList قرار بده و موقع اضافه کردن ایتم جدید به لیست ایکونه اون فایل هم که تازه اضافه شده به اون ایتم اختصاص داده بشه.

اگه دوستان منبع ی سورسی دارن ممنون می شم معرفی کنن.

با تشکر

sql_qassem
سه شنبه 18 فروردین 1388, 18:57 عصر
سوالت پيچيده است ؛‌ يعني يكمي سوالت رو پيچوندي . كمي ساده تر بنويس تا بتونيم بهت كمك كنيم.

FiACKER
سه شنبه 18 فروردین 1388, 19:29 عصر
سوال ساده اس !
دوستاني كه تجربه كار با ليست رو دارن مي دونن من چي مي گم.

منظورم اينه كه مثلا اگه يه ليست داريم كه مي خواييم پروسه هاي ويندوز رو بهش اضاف كنيم، ايكونه همون پروسه رو به اون پروسه در ليست اختصاص بديم.

البته خودم فهميدمش !
خيلي اسون بود. فقط من يه خورده تنبلي كرده بودم :



function GetIcon(Filename:String):Integer ;
Var
HIcon32 ,
HIcon16 : HIcon;
Icon : tIcon;
Begin
ExtractIconEx(Pchar(Filename),0,HIcon32,HIcon16,1) ;

If (HIcon16<>0) then
Begin
Icon:=tIcon.Create;
Icon.handle:=HIcon16;
Result := frmMain.ilProcessImage.AddIcon (Icon);
Icon.Free;
end
End;