Форум: "Media";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Внизнеправильные Найти похожие ветки
← →
Alex (2003-02-06 11:05) [0]Добавил рисунки в меню (PopupMenu), из Imagelist (2 рисунка размером 32х32),
Если один из пунктов меню Доступен(т.е. enabled=true) то другой должен быть
отключен и обратное. Но Delphi неправильно рисует "недоступные" картинки
(не только для меню кстати).
Поэтому пришлось зашить 4 рисунка (2 цветных и 2 ч/б) грузить их и
вручную назначать для меню, Но они сжимаются до 19х19.
procedure SetpicMenu(idx: integer);
var
Bmp: Tbitmap;
ResName1: string;
ResName2: string;
begin
if Idx=1 then
begin
Form1.N2.Enabled:=false;{можно соединять}
Form1.N1.Enabled:=true;
ResName1:="Disc1";
ResName2:="Con2";
end
else
begin
Form1.N2.Enabled:=true;{можно разъединять}
Form1.N1.Enabled:=false;
ResName1:="Disc2";
ResName2:="Con1";
end;
Bmp := TBitmap.Create;
Bmp.Transparent:=true;
Bmp.TransparentMode:=tmAuto;
Bmp.LoadFromResourceName(Hinstance,ResName1);
Form1.N2.Bitmap:=nil;
Form1.N2.Bitmap:=Bmp;
Bmp.free;
Bmp := TBitmap.Create;
Bmp.Transparent:=true;
Bmp.TransparentMode:=tmAuto;
Bmp.LoadFromResourceName(Hinstance,ResName2);
Form1.N1.Bitmap:=nil;
Form1.N1.Bitmap:=Bmp;
Bmp.free;
end;
Нужно чтоб рисунки в меню были 32х32 и при этом картинки для
недоступных пунктов рисовались правильно.
Как это можно сделать?
← →
Alex (2003-02-07 18:51) [1]Неужели никто не сталкивался с такой проблемой?
← →
mukha (2003-02-09 11:37) [2]
> <Alex> © (07.02.03 18:51)
> Неужели никто не сталкивался с такой проблемой?
А в чём заключается эта неправильность?
← →
Alex (2003-02-09 21:46) [3]Я получил письмо, да именно эта проблема
хотелось бы хоть бы изменить их првильное "серое" изображение.
значит решение все таки есть.
Если можно пришли мне код пожалуйста, буду благодарен.
← →
mukha (2003-02-10 21:50) [4]Завтра отправлю.
С ув. mukha
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c