Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

TMenuItem_&_Icons   Найти похожие ветки 

 
fester   (2002-07-28 23:51) [0]

Кто знает, как сделать красивые иконки в меню? А то так корявые получаются:

With MenuItem.Bitmap do
begin
ic:=ExtractAssociatedIcon(0,filename,index);
Width:=31;
Height:=31;
TransparentColor:=clWhite;/////////////////
DrawIcon(Canvas.Handle,0,0,Ic);
end;


 
Poirot   (2002-07-29 06:02) [1]

Ну во-первых "бери поразмеру"....
Естественное положение с растрами....
А во-вторых нафига ты их так добавляешь.... Можно-ж TImageList юзать... т.е также в рунтайм грузить, тока успевай индексы к меню присваивать.... :)


 
Song   (2002-07-29 08:02) [2]

Если Ваша иконка больше чем надо, используйте DrawIconEx()


 
fester   (2002-07-29 12:08) [3]

Ну в общем проблема-то в том, что у меня белый цвет получается прозрачный. И если в иконке есть этот цвет, то получается криво. Если не ставить TransparentColor:=clWhite, то по краям изображения заливка белая. Может надо как-то с масками работать ???
---Ну а с размерами вроде все нормально :-)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
4-35520
jonik pegas
2002-06-07 13:23
2002.08.12
Рисование на форме и скроллинг


1-35253
^SANYA
2002-07-30 15:43
2002.08.12
Перехват клавиш, нажатых в Win32


3-35130
Bash.ua
2002-07-19 21:12
2002.08.12
исключительная ситуация при SQL-запросе...


1-35260
anod
2002-07-31 00:22
2002.08.12
TColor


1-35321
Aleksandr
2002-07-29 13:53
2002.08.12
Можно ли заставить Делфи делать трассировку пошагово?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский