Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

неправильные

Alex © (2003-02-06 11:05:00)
Добавил рисунки в меню (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 и при этом картинки для
недоступных пунктов рисовались правильно.
Как это можно сделать?

mukha (2003-02-10 21:50:00) [1]
Завтра отправлю.
С ув. mukha

Alex (2003-02-09 21:46:00) [2]
Я получил письмо, да именно эта проблема
хотелось бы хоть бы изменить их првильное "серое" изображение.
значит решение все таки есть.
Если можно пришли мне код пожалуйста, буду благодарен.

mukha (2003-02-09 11:37:00) [3]

> <Alex> © (07.02.03 18:51)
> Неужели никто не сталкивался с такой проблемой?

А в чём заключается эта неправильность?

Alex (2003-02-07 18:51:00) [4]
Неужели никто не сталкивался с такой проблемой?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »