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

← →
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

неправильные Найти похожие ветки